Check-in [710050850d]
Overview
Comment:More small work towards a better tcllib builder
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:710050850db9265fc3e74b8d15430455c8509a62
User & Date: rkeene on 2014-05-16 18:03:59
Other Links: manifest | tags
Context
2014-05-16
18:25
Updated ignores check-in: c429aa02e2 user: rkeene tags: trunk
18:03
More small work towards a better tcllib builder check-in: 710050850d user: rkeene tags: trunk
17:56
Removed 32-bit Linux/x86 and added AIX/PowerPC check-in: 673b2e6970 user: rkeene tags: trunk
Changes

Modified server/buildpkgs/tcllib/process.tcl from [86d7214b3e] to [2f8edd1d0f].

1
2
3























#! /usr/bin/env tclsh

create fake interp with "if" defined to take both halves, "package" to determine stuff, and "source" as real -- all other commands noops

























|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#! /usr/bin/env tclsh

# create fake interp with "if" defined to take both halves, "package" to determine stuff, and "source"/"set"/"proc" as real -- all other commands noops

set keep {
	source
	set unset
	namespace
	proc
	list
	if
}

set interp [interp create]

$interp eval [list set keep $keep]
$interp eval {
	namespace eval ::teaparty {}
	rename if ::teaparty::if

	proc package args {
	}

	proc if args {
	}
}