DataMuseum.dk

top - download

    Length: 1577 (0x629)
    Types: TextFile
    Names: »vmsemacs.com«

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

TextFile

$	! Modified from scheme.com which originated in keptemacs.com
$
$	tt		= f$log("TT")
$	tty		= f$extract(1, f$length(tt)-2, tt)
$	scheme_name	= "SCHEME$" + tty
$	emacs_name	= "EMACS$" + tty
$	keptscheme	= "$scm:scheme.exe"
$	keptemacs	= "$emacs$exe:emacs emacs"
$	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
$	goto	find_emacs
$
$ attach_scheme:
$	write	sys$error "[Continuing Scheme]"
$	assign/user	sys$command	sys$input
$	attach "''scheme_name'"
$	! goto find_emacs
$
$ find_emacs:
$	pid		= 0
$ find_emacs_loop:
$	emacs_proc	= f$getjpi( f$pid(pid), "PRCNAM")
$	if emacs_proc .eqs. emacs_name then $ goto cont_emacs
$	if pid .ne. 0 then $ goto find_emacs_loop
$
$ cont_emacs:
$ if emacs_proc .eqs. emacs_name then $ goto attach_emacs
$	priv_list	= f$setprv( priv_list )
$	write	sys$error "[Starting Emacs]"
$	emacs_proc	= emacs_name
$	assign/user	sys$command	sys$input
$	spawn	/process="''emacs_name'" -
		/nolog -
		keptemacs-
$	goto	find_scheme
$
$ attach_emacs:
$	write	sys$error "[Continuing Emacs]"
$	assign/user	sys$command	sys$input
$	attach "''emacs_name'"
$	goto find_scheme