process.tcl at [ba02ddd48a]

File server/buildpkgs/tcllib/process.tcl artifact 2f8edd1d0f part of check-in ba02ddd48a


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