DataMuseum.dk

top - download

    Length: 945 (0x3b1)
    Types: TextFile
    Names: »vmsscheme.com«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/gnu-31mar87/scheme/microcode/vmsscheme.com« 

TextFile

$	! Modified from keptemacs.com
$
$	tt		= f$log("TT")
$	tty		= f$extract(1, f$length(tt)-2, tt)
$	scheme_name	= "SCHEME$" + tty
$	keptscheme	= "$scm:scheme.exe"
$	priv_list	= f$setprv( "NOWORLD, NOGROUP" )
$
$ find_scheme:
$	pid		= 0
$ find_scheme_loop:
$	scheme_proc	= f$getjpi( f$pid(pid), "PRCNAM")
$	if scheme_proc .eqs. scheme_name then $ goto cont_scheme
$	if pid .ne. 0 then $ goto find_scheme_loop
$
$ cont_scheme:
$ if scheme_proc .eqs. scheme_name then $ goto attach_scheme
$	priv_list	= f$setprv( priv_list )
$	write	sys$error "[Starting Scheme]"
$	scheme_proc	= scheme_name
$	assign/user	sys$command	sys$input
$	spawn	/process="''scheme_name'" -
		/nolog -
		keptscheme-
		scm:scheme.bin
$	write	sys$error "[Returning to Command Interpreter]"
$ exit
$
$ attach_scheme:
$	write	sys$error "[Continuing Scheme]"
$	assign/user	sys$command	sys$input
$	attach "''scheme_name'"
$	write	sys$error "[Returning to Command Interpreter]"
$ exit