Artifact 2f8edd1d0ff58816eef6d0eac3e8c12075d8b515:

• File server/buildpkgs/tcllib/process.tcl — part of check-in [710050850d] at 2014-05-16 18:03:59 on branch trunk — More small work towards a better tcllib builder (user: rkeene, size: 417) [annotate] [blame] [check-ins using]

#! /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 {
	}
}