Check-in [6ef06b043d]
Overview
Comment:Updated to provide package version numbers
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:6ef06b043d6e44f23e43fc3fed48e4c4af6a0d22
User & Date: rkeene on 2014-06-18 17:31:09
Other Links: manifest | tags
Context
2014-06-18
17:32
Fixed issue when using package versions check-in: 68ce1fca09 user: rkeene tags: trunk
17:31
Updated to provide package version numbers check-in: 6ef06b043d user: rkeene tags: trunk
17:26
Updated to produce working shared objects and executables (might need more stuff for Windows) check-in: ff53d13ed7 user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [9fb3ac5d6d] to [127f1d0e84].

   104    104   
   105    105   				if {[info exists state(procs)] && [llength $state(procs)] > 0} {
   106    106   					foreach {procname cname} $state(procs) {
   107    107   						append state(code) "  Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
   108    108   					}
   109    109   				}
   110    110   
   111         -				append state(code) "Tcl_PkgProvide(interp, \"$state(package)\", \"0.0\");\n"
          111  +				set packageName [lindex $state(package) 0]
          112  +				set packageVersion [lindex $state(package) 1]
          113  +				if {$packageVersion == ""} {
          114  +					set packageVersion "0"
          115  +				}
          116  +
          117  +				append state(code) "Tcl_PkgProvide(interp, \"$packageName\", \"$packageVersion\");\n"
   112    118   				append state(code) "  return(TCL_OK);\n"
   113    119   				append state(code) "\}"
   114    120   			}
   115    121   		}
   116    122   
   117    123   		# Generate output code
   118    124   		tcc4tcl $dir $state(type) tcc