| ︙ | | | ︙ | |
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
if {$pkgName == ""} {
set type "exe"
} else {
set type "package"
}
}
array set $handle [list code "" type $type filename $output package $pkgName add_inc_path "" add_lib_path "" add_lib "" add_macros ""]
proc $handle {cmd args} [string map [list @@HANDLE@@ $handle] {
set handle {@@HANDLE@@}
if {$cmd == "go"} {
set args [list 0 {*}$args]
}
|
|
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
if {$pkgName == ""} {
set type "exe"
} else {
set type "package"
}
}
array set $handle [list code "" type $type filename $output package $pkgName add_inc_path "" add_lib_path "" add_lib "" add_cmdline ""]
proc $handle {cmd args} [string map [list @@HANDLE@@ $handle] {
set handle {@@HANDLE@@}
if {$cmd == "go"} {
set args [list 0 {*}$args]
}
|
| ︙ | | | ︙ | |
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
proc _tk {handle} {
upvar #0 $handle state
set state(tk) 1
}
proc _process_command_line {handle cmdStr} {
# XXX:TODO: This needs to handle shell-quoted arguments
upvar #0 $handle state
set cmdStr [regsub -all { *} $cmdStr { }]
set work [split $cmdStr " "]
foreach cmd $work {
switch -glob -- $cmd {
"-I*" {
set dir [string range $cmd 2 end]
_add_include_path $handle $dir
}
"-D*" {
set symbolval [string range $cmd 2 end]
set symbolval [split $symbolval =]
set symbol [lindex $symbolval 0]
set val [join [lrange $symbolval 1 end] =]
dict set state(add_macros) $symbol $val
}
"-U*" {
set symbol [string range $cmd 2 end]
dict unset state(add_macros) $symbol $val
}
"-l*" {
set library [string range $cmd 2 end]
_add_library $handle $library
}
"-L*" {
set libraryDir [string range $cmd 2 end]
_add_library_path $handle $libraryDir
}
"-g" {
# Ignored
}
}
}
|
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
proc _tk {handle} {
upvar #0 $handle state
set state(tk) 1
}
proc _process_command_line {handle args} {
upvar #0 $handle state
lappend state(add_cmdline) {*}$args
}
proc _delete {handle} {
rename $handle ""
unset $handle
}
|
| ︙ | | | ︙ | |
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
|
proc _go {handle {outputOnly 0}} {
variable dir
upvar #0 $handle state
set code ""
foreach {macroName macroVal} $state(add_macros) {
append code "#define [string trim "$macroName $macroVal"]\n"
}
|
<
<
<
<
|
427
428
429
430
431
432
433
434
435
436
437
438
439
440
|
proc _go {handle {outputOnly 0}} {
variable dir
upvar #0 $handle state
set code ""
append code $state(code) "\n"
if {$state(type) == "exe" || $state(type) == "dll"} {
if {[info exists state(procs)] && [llength $state(procs)] > 0} {
set code "int _initProcs(Tcl_Interp *interp);\n\n$code"
}
}
|
| ︙ | | | ︙ | |
565
566
567
568
569
570
571
572
573
574
575
576
577
578
|
}
if {[info command ::tcc4tcl] == ""} {
return -code error "Unable to load tcc4tcl library"
}
::tcc4tcl $dir $tcc_type tcc
foreach path $state(add_inc_path) {
tcc add_include_path $path
}
foreach path $state(add_lib_path) {
tcc add_library_path $path
|
>
>
>
>
|
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
|
}
if {[info command ::tcc4tcl] == ""} {
return -code error "Unable to load tcc4tcl library"
}
::tcc4tcl $dir $tcc_type tcc
if {$state(add_cmdline) ne ""} {
tcc parse_args {*}$state(add_cmdline)
}
foreach path $state(add_inc_path) {
tcc add_include_path $path
}
foreach path $state(add_lib_path) {
tcc add_library_path $path
|
| ︙ | | | ︙ | |