Implementing firmware version

Annoyingly - Quartus will not initilise ROMs or RAMs from a text file using textio. You will need a wizard generated ROM with the correct .mif file.

I used textio the first time I tried (like more than a month ago) then I discovered that it isn't synthesizable so then I created a ROM with megawizard and used a .mif file. I just can't figure out why that doesn't work... and when I compile it, I don't see the rom instance in the analysis log under compilation.

Please raise an Enhancement Request of altera for this Feature. You can do it in Verilog and Xilinx have no problems with it for verilog or VHDL - its very annoying Altera dont support it!

I just want a working solution for this, and if it's possible to do it with verilog, then I guess I'll try that, could you possibly tell me how to do it? and post a code or something? I'm using quartus.

#  -----------------------------------------------------------------#  Generics#  -----------------------------------------------------------------
#  Build timestamp#   - Tcl  returns the same as 
set timestamp 
puts " - Build timestamp  ($timestamp 0x)"
#  Version (integer format)
set version 
#  Generics
set_parameter -name VERSION   $version
set_parameter -name TIMESTAMP $timestamp

Thanks for the reply Dave, I will do that and give a feedback later.

While searching about TCL scripting I ended up finding this:

#  Gets SVN revision number for the specified file
proc get_subversion_revision { file_name } {
    global done
   #  The maximum number of seconds to wait for the svn info
   #  command to complete
    set timeout_seconds 30
   #  The svn info command with filename that is run
    set cmd "svn info ${file_name}"
   #  Attempt to get the version information.
   #  If the command can't be run, return an error.
   #  Otherwise set up a file event to process the command output.
    if {  } {
        return -code error $input
    } else {
        fileevent $input readable 
       #  Set up a timeout so that the process can't hang if the
       #  repository is down.
        set timeout  
            
 ]
       #  Don't continue until the revision number is found,
       #  or the operation times out. Cancel the timeout anyway.
        vwait done
        after cancel $timeout
    }
}
#  Helper procedure for the above procedure
proc get_revision_info { inp  } {
    global done revision_number
    if {  } {
        catch {close $inp}
        set done 1
    } elseif { $done } {
        gets $inp line
    } else {
        gets $inp line
       #  Use a regular expression to match the line with the
       #  revision number.
        if {  } {
            set done 1
        }
    }
}
#  Creates a register bank in a vhdl file with the specified hex value
proc generate_vhdl { hex_value } {
    set num_digits 
    set bit_width 
    set high_index 
    set reset_value 
    if { 
        puts $fh "LIBRARY ieee;\nUSE ieee.std_logic_1164.ALL;"
        puts $fh "ENTITY version_reg IS"
        puts $fh "    PORT ("
        puts $fh "        clock: IN STD_LOGIC;"
        puts $fh "        reset: IN STD_LOGIC;"
        puts $fh "        data_out: OUT STD_LOGIC_VECTOR(${high_index} downto 0)"
        puts $fh "    );"
        puts $fh "END version_reg;"
        puts $fh "ARCHITECTURE rtl OF version_reg IS"
        puts $fh "BEGIN"
        puts $fh "PROCESS (clock,reset)"
        puts $fh "    BEGIN"
        puts $fh "    IF (reset='0') THEN"
        puts $fh "        data_out <=X\"${reset_value}\";"
        puts $fh "    ELSIF rising_edge (clock) THEN"
        puts $fh "        data_out <= X\"${hex_value}\";"
        puts $fh "    END IF;"
        puts $fh "END PROCESS;"
        puts $fh "END rtl;"
        close $fh
    } res ] } {
        return -code error $res
    } else {
        return 1
    }
}
#  This line accommodates script automation
foreach { flow project revision } $quartus(args) { break }
set file_name ${project}.qpf
set done 0
set revision_number ""
#  Call procedure to get file revision number and handle any errors
if {  } {
    post_message -type critical_warning "Couldn't run command to get
        revision number. $msg"
} else {
    if { -1 == $done } {
        post_message -type critical_warning "Timeout getting revision number."
    } elseif {  } {
        post_message -type critical_warning 
            "Couldn't find revision number in output of svn info $file_name."
    } else {
       #  Call procedure to store the number
        if {  } {
            post_message -type critical_warning 
               "Couldn't generate VHDL file. $res"
        } else {
            post_message "Successfully updated version number to
                version 0x${revision_number}"
        }
    }
}

I suspect your Tcl shell does not include the path to the command "svn".

Hmm I did that but I get this error:

Well it can't have spaces in the dir path... but how do I access it then?