Check-in [0e71626442]
Overview
Comment:Updated to not error out about not being able to load the library until we actually need to use it
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:0e71626442d6cb428804f7ec5be770d81ecb4f50
User & Date: rkeene on 2014-06-23 01:51:33
Other Links: manifest | tags
Context
2014-06-23
02:20
Updated to default to building and linking shared check-in: b9a7430007 user: rkeene tags: trunk
01:51
Updated to not error out about not being able to load the library until we actually need to use it check-in: 0e71626442 user: rkeene tags: trunk
01:47
Used more appropriate return value check-in: 08ca5c9084 user: rkeene tags: trunk
Changes

Modified tcc4tcl.tcl from [f0b6dd4e2e] to [30ebc63823].

1
2
3
4
5
6
7

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
...
187
188
189
190
191
192
193




194
195
196
197
198
199
200
201
# tcc.tcl - library routines for the tcc wrapper (Mark Janssen)

namespace eval tcc4tcl {
	variable dir 
	variable count

	set dir [file dirname [info script]]

	if {[info command ::tcc4tcl] == ""} {
		catch { load {} tcc4tcl }
	}
	if {[info command ::tcc4tcl] == ""} {
		load [file join $dir tcc4tcl[info sharedlibextension]] tcc4tcl
	}
	if {[info command ::tcc4tcl] == ""} {
		error "Unable to load tcc4tcl shared library"
	}

	set count 0

	proc new {{output ""} {pkgName ""}} {
		variable dir
		variable count

................................................................................
				set tcc_type "dll"
			}
			default {
				set tcc_type $state(type)
			}
		}





		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







>






<
<
<







 







>
>
>
>
|







1
2
3
4
5
6
7
8
9
10
11
12
13
14



15
16
17
18
19
20
21
...
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
# tcc.tcl - library routines for the tcc wrapper (Mark Janssen)

namespace eval tcc4tcl {
	variable dir 
	variable count

	set dir [file dirname [info script]]

	if {[info command ::tcc4tcl] == ""} {
		catch { load {} tcc4tcl }
	}
	if {[info command ::tcc4tcl] == ""} {
		load [file join $dir tcc4tcl[info sharedlibextension]] tcc4tcl
	}




	set count 0

	proc new {{output ""} {pkgName ""}} {
		variable dir
		variable count

................................................................................
				set tcc_type "dll"
			}
			default {
				set tcc_type $state(type)
			}
		}

		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