
ReadTo EOF >TMP.pcroptions
-msgs 0 -vp 2  -slaveiop 1  -striop 1  -stdiop 2  -thread 85  -mem 524288  -stack 90000  -tmp /tmp  -nodbxscript  -shmtype sv 
EOF

Copy TMP.pcroptions _ $1.pcroptions
Echo PCR options are: $(Type TMP.pcroptions)

Echo -s "char XR_packageVersion[] = \""($(date))"\";" >TMP.c
Echo "char *defaultArgs = \"" $(type TMP.pcroptions) -- -install_and_run_package -- "\";" >>TMP.c
ReadTo /*ENDHEADER*/ >>TMP.c
void XR_SetupPackage() {}
void XR_InstallAndRunPackage () {
/*ENDHEADER*/
LoadedFiles -ccode -after PortableCommonRuntime -except CommanderOnStandardStreamsImpl >> TMP.c
Echo " XR_DoCommanderCommands(\"Installed " $(Installed) "\");" >> TMP.c
Echo -n " XR_DoCommanderCommands(\n   " >> TMP.c
Prop -q 2 >> TMP.c
Echo -n "  );\n" >> TMP.c
LoadedFiles -ccode -first CommanderOnStandardStreamsImpl -last CommanderOnStandardStreamsImpl >> TMP.c
ReadTo /*ENDTRAILER*/ >>TMP.c
}
#include <string.h>
static char *argvec[25];
static char **defaultArgv = &argvec[0];
static int firstTime = 1;
static int defaultArgc = 0;
void XR_GetPackageDefaultArgs(argc_ptr, argv_ptr)
	int *argc_ptr; char ***argv_ptr; {
	/* extern char defaultArgs[]; */
	char *nextArg;
	if( (argc_ptr == 0) || (argv_ptr == 0) ) return;
	if(!firstTime) {
		*argv_ptr = defaultArgv;
		*argc_ptr = defaultArgc;
		return;}
	for (;;) {
		if (firstTime) {
			nextArg = strtok(defaultArgs, " ");
			firstTime = 0;}
		else nextArg = strtok(0, " ");
		if (nextArg == 0) break;
		defaultArgv[defaultArgc] = nextArg;
		defaultArgc++;};
	*argv_ptr = defaultArgv;
	*argc_ptr = defaultArgc;
}
/*ENDTRAILER*/
Rename $1.c _ TMP.c
Del TMP.pcroptions
SetProcessProperty LDNAMES ""
echo -n -s > TMP.ld
Echo Alias PackageIt.PCRName ((BIN PortableCommonRuntime)) Echo $(LoadedFiles -names -first PortableCommonRuntime -last PortableCommonRuntime) | Commander
Alias PackageIt.UnixLoad (foo) SetProcessProperty LDNAMES ($LDNAMES foo)
Alias PackageIt.LoadAndRun (foo bar) SetProcessProperty LDNAMES ($LDNAMES FILE-bar.c2c.o); echo "ln -s" foo FILE-bar.c2c.o >> TMP.ld
LoadedFiles -pcr -after PortableCommonRuntime | PrefixLines PackageIt. | Commander
Echo -n cc -o $1 -Qoption ld -Bstatic $1.c $(PackageIt.PCRName LIB XRRoot.o) $LDNAMES $(PackageIt.PCRName LIB xr.a) " " >> TMP.ld
LoadedFiles -libs >> TMP.ld
Echo -s "\nrm FILE-*.c2c.o" >> TMP.ld
Rename $1.ld _ TMP.ld
SetFileProperties -UnixMode 550B $1.ld
SetProcessProperty LDNAMES ""
List -f $1.c $1.ld

   2  
PackageIt.cm
Copyright س 1991, 1992, 1993 by Xerox Corporation.  All rights reserved.
Michael Plass, June 24, 1993 11:55 am PDT
Willie-s, July 15, 1992 3:14 pm PDT
This creates a script that builds a packaged world almost like the running one.
Arguments: outname initialcommand
Output is a c program, outname.c, and a shell script, outname.ld, to compile and link the c program.
Bugs: the cc command uses vuxy names, which generates warnings out of cc.
Restrictions: This only works starting from a dynamically loaded world.

Example:
dyload a RawViewers world (e.g. CedarCommander RawViewers)
...
% cd bindir -- The place where you want the package to end up.
% PackageIt RV RawViewers
% sh1 ./RV.ld

( The RawViewers initial command does a few things (like CommandsFromProfile ...) that are not captured by the checkpointing process ).
This will create the UnixTM executable named bindir/RV

Provide some default PCR options:
Allow for user-provided overrides:
Next, write a c program that starts everything up

Write a shell script to do the compiling and linking
‌ت¹  •NewlineDelimiter
–(cedarcode) style™ ڑœ™Jڑœ
دeœ=™HJ™)J™#—Jک J™OJ™!J™dJ™IJ™GJ™ ™Jڑœ:™:J™Jڑœ>™>Jڑœ™Jڑœ™J™ Jڑœ‡™‡Jڑœدdœدb	™6—J™ J™!JڑœکJڑœدoJœ œ ک~JڑœکJک J™"Jڑœ#ک#Jڑœ,ک,Jک J™1Jڑœ<ک<Jڑœ œ œکaڑœکJڑدsکJڑ،!ک!—JڑœکJڑœ_ک_JکHJک0JکJکJڑœfکfJڑœکJڑ،‌ک‌JڑœکJڑœکJڑœکJ™ J™4JڑœکJڑœکJکڑJکHJڑœ„ک„JڑœRکRJکپJڑœکJڑœ%ک%JڑœکJک&JڑœکJڑœکJک — …—    	z  e  