Check-in [05cac27666]
Overview
Comment:Fixed issues with several subcommands
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 05cac27666b3fcf33382babd659c5a192c6a55de
User & Date: rkeene on 2014-06-22 23:23:54
Other Links: manifest | tags
Context
2014-06-22
23:40
Added a test using "curl" as a baseline for linking in external functions and libraries check-in: 2bc3e54e9e user: rkeene tags: trunk
23:23
Fixed issues with several subcommands check-in: 05cac27666 user: rkeene tags: trunk
22:55
Added the ability to search other paths for libraries and headers check-in: 07d1d92554 user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [33bc62956b] to [f5126bcd41].

    56     56   
    57     57   			uplevel 1 [list $callcmd $handle {*}$args]
    58     58   		}]
    59     59   
    60     60   		return $handle
    61     61   	}
    62     62   
    63         -	proc _linktclcommand {cSymbol tclCommand} {
           63  +	proc _linktclcommand {handle cSymbol tclCommand} {
    64     64   		upvar #0 $handle state
    65     65   
    66     66   		lappend state(procs) $cSymbol $tclCommand
    67     67   	}
    68     68   
    69         -	proc _add_include_path {args} {
           69  +	proc _add_include_path {handle args} {
    70     70   		upvar #0 $handle state
    71     71   
    72     72   		lappend state(add_inc_path) {*}$args
    73     73   	}
    74     74   
    75         -	proc _add_library_path {args} {
           75  +	proc _add_library_path {handle args} {
    76     76   		upvar #0 $handle state
    77     77   
    78     78   		lappend state(add_lib_path) {*}$args
    79     79   	}
    80     80   
    81         -	proc _add_library {args} {
           81  +	proc _add_library {handle args} {
    82     82   		upvar #0 $handle state
    83     83   
    84     84   		lappend state(add_lib) {*}$args
    85     85   	}
    86     86   
    87     87   	proc _cproc {handle name adefs rtype {body "#"}} {
    88     88   		upvar #0 $handle state
................................................................................
   106    106   	}
   107    107   
   108    108   	proc _tk {handle} {
   109    109   		upvar #0 $handle state
   110    110   
   111    111   		set state(tk) 1
   112    112   	}
          113  +
          114  +	proc _delete {handle} {
          115  +		rename $handle ""
          116  +		unset $handle
          117  +	}
   113    118   
   114    119   	proc _go {handle {outputOnly 0}} {
   115    120   		variable dir
   116    121   
   117    122   		upvar #0 $handle state
   118    123   
   119    124   		set code $state(code)

Modified test.tcl from [790f1d50be] to [271d570bc1].

    65     65   # New API
    66     66   set handle [tcc4tcl::new]
    67     67   $handle cproc test5 {int i} int { return(i + 42); }
    68     68   if {[$handle code] == ""} {
    69     69   	error "[list $handle code] did not give code output"
    70     70   }
    71     71   $handle cproc test6 {int i} int { return(i + 42); }
           72  +$handle add_library_path .
    72     73   $handle go
    73     74   puts [test5 1]
    74     75   puts [test6 1]