tcc4tcl
Check-in [0e71626442]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

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



15
16
17
18
19
20
21








+






-
-
-








# 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
︙
187
188
189
190
191
192
193




194

195
196
197
198
199
200
201

185
186
187
188
189
190
191
192
193
194
195

196
197
198
199
200
201
202
203








+
+
+
+
-
+








				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
		::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
︙

Powered by Fossil · RSS