Check-in [bb7a68b1e7]
Overview
Comment:Updated comments
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: bb7a68b1e7b9bf193809e497300b0610852ec22a
User & Date: rkeene on 2014-07-16 18:02:24
Other Links: manifest | tags
Context
2014-07-19
06:17
More additional comments check-in: 57b7fc959d user: rkeene tags: trunk
2014-07-16
18:02
Updated comments check-in: bb7a68b1e7 user: rkeene tags: trunk
16:26
Cleaned up some return code handling, and added test for binary blobs check-in: 1c563bb769 user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [5e15b1175b] to [a8247de2cc].

   144    144   
   145    145   		# Argument definitions (in C style) initialization
   146    146   		set adefs_c [list]
   147    147   
   148    148   		# Names of all arguments initialization
   149    149   		set args [list]
   150    150   
   151         -		# If we aren't creating a new interp, it must be the first argument
   152         -		# If the definition of this proc already includes the interp
   153         -		# argument, use it -- otherwise add one
          151  +		# Determine if one of the arguments is a Tcl_Interp*, if not
          152  +		# then we will need to create our own Tcl interpreter for
          153  +		# local use
   154    154   		set newInterp 1
   155    155   		foreach {type var} $adefs {
   156    156   			if {$type == "Tcl_Interp*"} {
   157    157   				set newInterp 0
   158    158   				set interp_name $var
   159    159   
   160    160   				break
   161    161   			}
   162    162   		}
   163    163   
   164    164   		# Create the C-style argument definition
   165    165   		foreach {type var} $adefs {
          166  +			# Update definition of types
   166    167   			lappend adefs_c [list $type $var]
          168  +
          169  +			# Note the type for this variable
   167    170   			set types($var) $type
   168    171   
          172  +			# The Tcl interpreter is not added to the list of Tcl arguments
   169    173   			if {$type == "Tcl_Interp*"} {
   170    174   				continue
   171    175   			}
   172    176   
          177  +			# Update the list of arguments to pass to Tcl
   173    178   			lappend args $var
   174    179   		}
   175    180   
   176    181   		if {[llength $adefs_c] == 0} {
   177    182   			set adefs_c "void"
   178    183   		} else {
   179    184   			set adefs_c [join $adefs_c {, }]