Check-in [d1b6ddb9a1]
Overview
Comment:Updated not produce an error if we cannot load the tcc4tcl shared object since it is possible to use the Tcl-only portion
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d1b6ddb9a14c0a3fdb0b5974aec20c421c23c5b7
User & Date: rkeene on 2017-10-13 17:59:23
Other Links: manifest | tags
Context
2017-10-13
19:56
Updated to support very basic processing of the command-line check-in: dbb450841d user: rkeene tags: trunk
17:59
Updated not produce an error if we cannot load the tcc4tcl shared object since it is possible to use the Tcl-only portion check-in: d1b6ddb9a1 user: rkeene tags: trunk
2017-01-08
06:14
tcc4tcl 0.29 check-in: 8c41429bfc user: rkeene tags: trunk, 0.29
Changes

Modified tcc4tcl.tcl from [991d4e1c6b] to [a5b9327e8f].

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
	}


	set count 0

	proc lookupNamespace {name} {
		if {![string match "::*" $name]} {
			set nsfrom [uplevel 2 {namespace current}]    
			if {$nsfrom eq "::"} {












>


>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# 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] == ""} {
		catch {
		load [file join $dir tcc4tcl[info sharedlibextension]] tcc4tcl
	}
	}

	set count 0

	proc lookupNamespace {name} {
		if {![string match "::*" $name]} {
			set nsfrom [uplevel 2 {namespace current}]    
			if {$nsfrom eq "::"} {