update_rev.tcl

proc update_version_number { input_file output_file } {
	# If the input file can't be opened, return an error.
	if { [catch {open $input_file} input] } {
		 return -code error $input
		 puts "cant open input"
	}

	# If the output file can't be opened, return an error
	if { [catch {open $output_file w} output] } {
		 return -code error $output
		 puts "cant open output"
	}

	# Read through the input file a line at a time
	while {-1 != [gets $input line] } {
		if { [regexp {^\s*constant compile_rev : integer := ([[:digit:]]+);\s*$} \ $line match version_number] } {
			set decimal_value $version_number
			incr decimal_value		
			# Substitute the new version number in for the old one 
			regsub $version_number $line $decimal_value line
			# post_message "File src/revision/revision.vhd updated with Current Compile Revision: $decimal_value"
		} elseif { [regexp {^\s*constant compile_year_stamp : integer := ([[:digit:]]+);\s*$} \ $line match version_number] } {
			set decimal_value [clock format [clock seconds] -format {%y}]
			regsub $version_number $line $decimal_value line
		} elseif { [regexp {^\s*constant compile_month_stamp : integer := ([[:digit:]]+);\s*$} \ $line match version_number] } {
			set decimal_value [clock format [clock seconds] -format {%m}]
			regsub $version_number $line $decimal_value line
		} elseif { [regexp {^\s*constant compile_day_stamp : integer := ([[:digit:]]+);\s*$} \ $line match version_number] } {
			set decimal_value [clock format [clock seconds] -format {%d}]
			regsub $version_number $line $decimal_value line
		} elseif { [regexp {^\s*constant compile_hour_stamp : integer := ([[:digit:]]+);\s*$} \ $line match version_number] } {
			set decimal_value [clock format [clock seconds] -format {%H}]
			regsub $version_number $line $decimal_value line
		} 
		
		# Write out the line to the new file 
		puts $output $line 
	}
	close $input 
	close $output 
}

set script_path [file dirname [file normalize [info script]]]
set file_name "[file normalize "$script_path/src/hdl/revision/revisions.vhd"]"
set output_file_name ${file_name}.updated_version_number

if { [catch { update_version_number $file_name $output_file_name } res ] } {
    # todo: insert debug message
} else {
    if { [catch { file rename -force $output_file_name $file_name } res ] } {
	# todo: insert debug message
    }
}