Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/intermacs.elib
There are no other files named intermacs.elib in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
A`io@yvAyHQ
CZ	c6m
LW%.@DI[Rd\Hfo'{9UqA(3y@L#YXe+n.x(8& Exit To LISP
& Getdef& LISP SUPERIOR& Setup INTERMACS Library
^R Abort
^R Apply^RRClispify^RDwimify^REval^RrExtractSexpLEDIT Eval^R Multi Return^R Pretty Print^R Replace Sexp^R Set Variable^R Undo~DIRECTORY~~DOC~ & Exit To LISP~DOC~ & Getdef~DOC~ & LISP SUPERIOR#~DOC~ & Setup INTERMACS Library~DOC~ ^R Abort~DOC~ ^R Apply~DOC~ ^R Clispify~DOC~ ^R Dwimify~DOC~ ^R Eval~DOC~ ^R Extract Sexp~DOC~ ^R Finish~DOC~ ^R Get Function~DOC~ ^R Get Sexp~DOC~ ^R Insert Sexp~DOC~ ^R LEDIT Eval~DOC~ ^R Multi Return~DOC~ ^R Pretty Print~DOC~ ^R Replace Sexp~DOC~ ^R Set Variable~DOC~ ^R Undo~DOC~ ~Filename~~Filename~
~INVERT~v[0
E[FNE]
ZJ
.U0
I(DEFINEQ 
F[DFILE
ER
FSIFACCESS
FY
I)

Q0J
.,ZFSBOUNDARIES
-1FSPJATY
.[A
[B
[0
.U0ZJZ-3"G
0A-3"E-4D''
Q0J
"N
FSIFILEUA
QLISPFILEUB
FSUREAD"N
F~AB"N
E[
F[DFILE
FNE]
ERB'
0FSIFACCESS'
FSUREAD"E
ERB'
U0
"L-Q0U0'
"GM(M.M^R Set/Pop Mark)
ZJ'
Q0FY
"L
.+,.FXA
MA'
"G
R
.,ZFSBOUNDARIES'
'
+1"GFSTTYINI
-1FSPJATY
'
?M(M.MSelect Buffer)Main
4000000.M(M.M& Exit To LISP)
?M(M.MSelect Buffer)Main
5000000.M(M.M& Exit To LISP)
@M(M.MSelect Buffer)Main
J1000000.M(M.M& Exit To LISP)
G[0
0u0
<-:S(;%0>
3000000.M(M.M& Exit To LISP)
.-B"EQ0:S('
@M(M.MSelect Buffer)Main
J2000000.M(M.M& Exit To LISP)
..[J
6000000.M(M.M& Exit To LISP)
QJJ
..[J
7000000.M(M.M& Exit To LISP)
QJJ
8M(M.MSelect Buffer)Main
JM(M.M& Exit To LISP)
.[A
@FTFunction: 
0,M(M.M& Read Line)UA
.[B
I(A (QUOTE 
.[C
1M(M.M^R Forward Sexp)
I))
QBJ
M(M.M^R Eval)
QB,QCK
1M(M.M^R Forward Sexp)
.,.+2K
QBJ
Q!Thisfunctionmakesones-expressionoutoftheentirefileand
exitswithaspecialreturncodewhichwillcauseLISPtoevaluate
eachS-expressioninturnandreturnalistofallthes-expressions.
HackdoneattherequestofMikeGenesereth,sohecanfoolhimself
intothinkingheisusingMACLISP!
M(M.MSelect Buffer)Main
JI(ZJI)J
10000000.M(M.M& Exit To LISP)
w!ThisfunctionisanotherMACLISPsimulator.Itjustgoestothe
beginningofthetoplevels-expressionandtellslisptoevaluate
thes-expressionafterthepoint.Theneteffectisthesameastyping
<meta>^A^TZ!
1M(M.M^R Beginning of DEFUN)
M(M.M& Exit To LISP)
[A
[B
[C
[D
[M
[0
[J
M(M.M^R Exchange Point and Mark).UMM(M.M^R Exchange Point and Mark)
.UJQMJ
@FLUBUA
QJJ
@FLUDUC
QC-QA"L:I*NST	Point sexp not nested in mark sexpFSERR'
QB-QD"L:I*NST	Point sexp not nested in mark sexpFSERR'
QC,QDX0
QBJ
QA,QBK
G0
?[A
@FTSet variable: 
0,M(M.M& Read Line)UA
.[B
I(SETQQ A 
.[C
1M(M.M^R Forward Sexp)
I)
QBJ
11000000.M(M.M& Exit to LISP)
QB,QCK
1M(M.M^R Forward Sexp)
.,.+1K
QBJ
R[A
@FTReplace with value of: 
0,M(M.M& Read Line)UA
.[B
IA 
.[C
QBJ
12000000.M(M.M& Exit to LISP)
HXA
QPrevious BufferM(M.MSelect Buffer)
QB,QCK
1M(M.M^R Kill Sexp)
IA
-1FSPJATY
5[A
@FTInsert value of: 
0,M(M.M& Read Line)UA
.[B
IA
.[C
QBJ
12000000.M(M.M& Exit to LISP)
HXA
QPrevious BufferM(M.MSelect Buffer)
QB,QCK
IA
-1FSPJATY
%13000000.M(M.M& Exit to LISP)
*.[0
ZJ
I "
Q0J
1F?
FSEXIT
"HK
[J
1M.VLISPFILE
FSJNAMEUJ
F~JLISP"E
FSHSNAMEFSDSNAME
EREMACS.TEMP.FILE.0
FSIFILEULISPFILE
Q.T[A
M(M.MMake Prefix Character).TU.T
FSBCONS[..O
0F[SERROR
GPrefix Char List
0J
:S.T"E
I.T  
HXPrefix Char List'
F]SERROR
]..O
M.M^R AbortU:.T(A)
M.M^R DwimifyU:.T(D)
M.M^R ClispifyU:.T(C)
M.M^R Get SexpU:.T(G)
M.M^R Pretty PrintU:.T(P)
M.M^R FinishU:.T(Z)
M.M^R UndoU:.T(U)
M.M^R EvalU:.T(E)
M.M^R ApplyU:.T(F)
M.M^R Multi ReturnU:.T(M)
M.M^R Extract SexpU:.T(X)
M.M^R Set VariableU:.T(S)
M.M^R Replace SexpU:.T(R)
M.M^R Insert SexpU:.T(I)
M.M^R Get FunctionU:.T(H)
M.M^R LEDIT EvalU:.T()
QAU:.T()
M.M& Lisp SuperiorFSSUPERIOR'
M(M.MInterlisp Mode)
FSOSPEED-1200"G1'"#3'M.VDisplay Matching Paren
INTERMACSEMACS-INTERLISP interface.0Inserts a LISP definition from a file.
Takes two pre-arguments that indicate where to start reading
from and how much to read.  Takes a string argument -- the
file name.+S Insert as directed by call from LISP.2Return to lisp to recover initial s expressionA^R Abort Exit to LISP, and lisp will ignore all edit changes BReturn to lisp to clispify the expression, then back to EMACS ^R Pretty print buffer (using LISP pretty printer).
Leaves point close to where it was, namely the open parenthesis before point.RReturn to LISP and dwimify the expression in the buffer, then
return to EMACS3Return to LISP to get S-expression in window W2]Return to LISP to read S-exp after point and evaluate,
            printing result in W2C^R Return to lisp with the pointer at the beginning of function=^R Read a function name and apply it to the current S exp$^R Return multiple s-expressions7^R return to LEDIT call to evaluate top level s-expc^R Replace sexp at mark with embedded sexp at point
Imitates the INTERLISP edtor's XTR command^R Set LISP Variable to current expression
Reads a variable name and does (SETQQ var <sexp after point>)  Returns
to the current state of EMACS<^R Replace s expression after point with val of variable)^R Insert val of variable after point4^R Get a function definition and insert it in W2`S Simply return to LISP.
Calling (DOWN) in LISP will return to the current state of
EMACS.S SETUP&& Getdef
& LISP SUPERIOR
^R Undo
^R Abort
^R Clispify
^R Pretty Print
^R Dwimify
^R Get Sexp
^R Eval
^R Finish
^R Apply
^R Multi Return
^R LEDIT Eval
^R Extract Sexp
^R Set Variable
^R Replace Sexp
^R Insert Sexp
^R Get Function
& Exit To LISP
& Setup INTERMACS Library
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2