Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/efork.elib
There are no other files named efork.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   =^

h"t

]

5	1p
&%.}:cp

}h& Read Forkname& Setup EFORK LibraryDisplay EphemeronExecute EphemeronList Handles^R Invoke Inferior^R Kill Inferior~DIRECTORY~~DOC~ & Read Forkname~DOC~ & Setup EFORK Library~DOC~ Display Ephemeron~DOC~ Execute Ephemeron~DOC~ List Handles~DOC~ ^R Invoke Inferior~DOC~ ^R Kill Inferior~DOC~ ~Filename~~Filename~

~INVERT~0FO..Qforklist"E
:i*M.Vforklist
0M.Vfrk
0M.Vfrk*
'
0FO..QEFORK Setup HookU3Q3"N:M3'
M.M^R Invoke InferiorU..+
M.M^R Kill InferiorU.., F[DFILE1F[FNAMSYNTAX
[0[2[30[4
[..4:I*[..51[..6:i*[..7
Q..O[..8
FF"N64:i..7'
F[BBIND
:f"L
:I2Handle Name: 
!RHndl!HKfsRGETTY"N
:I*CfsECHODIS'"#:FT'
@FT2!EHndl!
<Q..8[..OFIu0]..O
Q0f
Q0Ifs^RMODE"N-1@T'!<!>'
Q0-13"EHFX..4OEndRead'
Q0-21"EORHndl'
Q0-27"E0;'
Q0-17"EQ..8[..OFIu0]..O
Q0Ifs^RMODE"N-1@T'!<!>'
z"E0'
zJ0Au0-D
fsRGETTY"E@FT0'
"#Q0-40."L:I*CfsECHODIS
@FT2@HT'
"#:I*XfsECHODIS''
>
HFX..4@FT$
!RRscan!
<Q..8[..OFIu0]..O
Q0fL
Q0Ifs^RMODE"N-1@T'!<!>'
Q0-21"EORHndl'
Q0-27"E@FT$0;'
Q0-13"EQ0I10Ifs^RMODE"N-2@T'!<!>'
Q0-17"EQ..8[..OFIu0]..O
Q0Ifs^RMODE"N-1@T'!<!>'
!Rub!z"EHKG..4
fsRGETTY"E:FT'
"#:I*CfsECHODIS'
@FT2@HTOEHndl'
zJ0Au0-D
fsRGETTY"E@FT0'
"#Q0-40."L:I*CfsECHODIS
@FT2..4$@HT'
"#:I*XfsECHODIS''
>
FI-27u..6q..6-100"E
:I*XfsECHODISORRscan'
HFX..5
!EndRead!
'
"#:i..4W
fq..4:"G:i*No Handle Name Given.  Taking Previous Fork.
fsechodispW
0fsechoac..60
:i..4W'
:i..5w
fq..5:"G1u..6w:i..5w'
"#
:i..6W
fq..6"G0u..6'"#1u..6'
'
'
:I2frk..4W
QForklistU3
:FO..Q2"L-1M.V2
:I*--dead--M.Vf2
:I33..4'
Q3UForklist
Q..4:FCU..4
Q2"L
F=..4EXEC"E
1U4OGo'
fsMSNAMEU3
:I33..4.EXE
E?3"EOask'
fsHSNAMEU3
:I33..4.EXE
E?3"EOask'
:I3SYS:..4.EXE
ET<>
!ask!
ET3
5,FFilenameU..4
Q..4"E'
FQ..4"GET3ET..4
FSDFILEU3'
E?3"N:I*File not found: 3fsERR'
Q3Uf2
'
"#:f+1"Nf*''
!Go!
0FO..QExit to Inferior HookU..4Q..4"NM..4'
Q2F("E0..7FZ..5OEnd'
)"GQ..6"NQ2..7FZ..5'
"#-1,(Q2)..7FZ..5'
OEnd'
Q4"EQ..6"E-1,'..7FZ3 ..5u2
OEnd'
-1,0..7FZ..5
!End!
Q2F"LW0'Ufrk
0FO..QReturn From Inferior HookU..4Q..4"NM..4'
wc[1[2[3
1,(:i*)FHandle name: U2
:I1Can't default Kill Handle
Q2"E'FQ2"EQ1:FG'
:I1Can't Kill EXEC Fork
F~2EXEC"EQ1:FG'
:I12  Illegal or Unknown Fork Handle
0FO..Qfrk2U3Q3"EQ1:FG'
Q3"L'
-Q3FZ
m(m.mKill Variable)ffrk2
m(m.mKill Variable)frk2
f[bbindgforklist
j:s2"lfk+1d'hxforklist
Qfrk-Q3"E0Ufrk'
,Qforklist[1
FQ1[21[31[4[5:I*[6[7[8
<Q3-Q2;
Q3:G1-27"E
Q4,Q3:G1U5
20-FQ5F"LW4',.:I7
Qffrk5U8
:I66578

%3U4'
%3>
:FTHandle names:
 
6
:FI
[:i*sys:-.exe.0f[dfile
23.f[:etmode
@:ft
-1fsechoactive
160200.:et
fsdfileQm(m.m& Read Forkname)Ephemeron: [0
:i*Zfsechodis
-(fz0)fz
0u..h]00@m(m.m& Read Forkname)Display: [0
f+:ft
-(fz0)fz
]00	EFORK*Commands to manipulate inferior forks.(S Initialize for handling inferiors.^R Invoke an inferior process.
	A Numeric argument before the command indicates that fz should
be called with the @ modifier.  If this macro is not called from a key
then it  requires that  all four  string arguments  be given  and  the
calling sequence is:

  M(M.M^R Invoke Inferior<esc>) {handle} <esc> {rescan string} <esc> ...
     ... {non-empty => forced read} <esc> {filename}

Otherwise, ...
	Asks for a fork  handle, which is  a local name  for
that fork.   Efork recognizes  three special  fork  handles,
which are:
	EXEC		Starts a NEW exec.
	*		Continue the old exec.
	<nothing>	Continue the last fork
			that was in operation.

CAUTION: ONLY EXPERIENCED USERS OF THE RESCAN BUFFER NEED PROCEED

	If the handle is followed by an <ESC> then a  string
(terminated by an unquoted <esc>) is read and passed to  the
fork as JCL.
	     1) If the fork is an exec fork, or the JCL
     string ends  in  <ESC><ESC>,
		  then the string is passed to the
	  fork as  terminal  input.  That  is  the
	  rescan buffer will be preset to read.
	     2) If the  fork is  not an  exec fork,
		  then the JCL string is passed to
	  the fork in the rescan buffer.

	The read  program  for the  JCL  recognizes  several
special characters:
	^Q	Quotes the next char whatever it is.
	$	Ends the JCL String.
	^M	Inserts a <CR><LF>.
	^?	Deletes last character.
	^U	Starts over from the beginning. ]^R Kill an inferior fork.
Reads the string arg. as the handle name and kills the associated fork.
You cannot default the handle name nor kill the EXEC fork
though you can define a new EXEC fork which kills the old.5C List names of handles used to invoke inferiors.)S read a fork name and return string.3C Runs a program (.exe file) below EMACS.  The program
is run "ephemerally" and is gone once it exits or is ^G'd out of.  Program
name is read twenex style in bottom window.sC Like Execute Ephemeron, but holds the display
briefly  (until something is typed) after the program returns.& Setup EFORK Library
^R Invoke Inferior
^R Kill Inferior
List Handles
& Read Forkname
Execute Ephemeron
Display Ephemeron
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2