P [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) 5& ;au ~F y\ q ~ M +I Za@8IT]a <Mom%E<TfwuN& LEDIT Execute JCL& LEDIT Find File& LEDIT Find Tag& LEDIT Save Region& Setup LEDIT LibraryCOMPLR InferiorLEDIT ReCompileLEDIT Save Region ~^R LEDIT Find Function^R LEDIT Save DEFUN^R LEDIT Save Region^R LEDIT Zap DEFUN to LISP^R LEDIT Zap to LISP~DIRECTORY~~DOC~ & LEDIT Execute JCL~DOC~ & LEDIT Find File~DOC~ & LEDIT Find Tag~DOC~ & LEDIT Save Region~DOC~ & Setup LEDIT Library~DOC~ COMPLR Inferior~DOC~ LEDIT ReCompile~DOC~ LEDIT Save Region ~~DOC~ ^R LEDIT Find Function~DOC~ ^R LEDIT Save DEFUN~DOC~ ^R LEDIT Save Region~DOC~ ^R LEDIT Zap DEFUN to LISP~DOC~ ^R LEDIT Zap to LISP~DOC~ ~FILENAME~~FILENAME~~INVERT~0M.CLEDIT LISP JnameJob name of LISP job to return to -1FO..QLEDIT Save All Files QueryM.CLEDIT Save All Files Query 0 = No saving. 1 = Save All Files with querying. -1 = Save current buffer without query, and all other files with querying. 0FO..QLEDIT Auto SaveM.CLEDIT Auto SaveIf non-zero, use Auto Save M.M& LEDIT Execute JCLFSSUPERIOR FSOSTECO"N @:I*|M(M.M& LEDIT Execute JCL)|M.VReturn from Superior Hook' :IEditor TypeLEDIT FSOSTECO"E FSHSNAME:F6[1 FSUNAME:F6[2 :I*DSK:1;_LEDIT 2M.VLEDIT Filename' "#F[BBIND HKG(FSUNAME:F6) -:S."L0,.+1K' JILEDIT-TEMPORARY-FILE. HX*M.VLEDIT Filename F]BBIND' [..O [Previous Buffer M(M.MSelect Buffer)*LEDIT* Q:.B(QBuffer Index+4)M.CLEDIT BufferHolds s-exp's to return to lisp M(M.MLisp Mode) M(M.MSelect Buffer) 0FO..QLEDIT Setup Hooku1 FQ1"GM1' "#M.M^R LEDIT Save DEFUNU..Z M.M^R LEDIT Zap to LISPU:.X(Z) M.M^R LEDIT Save RegionU:.X(C) FSOSTECO"E M.M^R LEDIT Save RegionU...Z'' FSLispT"N M(M.M& LEDIT Execute JCL)' 1:@< [0 F[BBIND FJ HX0 F]BBIND FSOSTECO"EM0' "#FSXJName[1 F~1LEDIT"EM0'' > 0FO..QTag Table Buffer"E 5,M(M.M& Read Line)Tag Table[1 FQ1-1"L' M(M.MVisit Tag Table)1' QTag Table FilenamesF[DFILE :I*:M(M.M& Find Tag Display)r[0 F[DFile F[IFile 1: 0FSIFVersion FSIFileU0 F]IFile F]DFile M(M.MFind File)0 ]0 .[0 FSVB[1 FSVZ[2 0FSVB 0FSVZ 1,F Find Function: [3 FF-1"E F[4 1000[5 Q5*3U5> ]5]4' J <:S(DEFUN 3 ; 13,FKAF "G'> Q2FSVZ Q1FSVB Q0J :I*Unable to find function 3FSErrM(M.M& LEDIT Save Region) FF"NM(M.MSelect Buffer)*LEDIT*' 0F[VBF[VZ FF"E:,.'"#F'FFSBOUND Q..O[3 QLEDIT Buffer[..O ZJ G30.[0M(M.M^R Mark DEFUN) M(M.M& LEDIT Save Region) Q0J]0 FF"NM(M.MSelect Buffer)*LEDIT*' 0FSQPPTR QLEDIT Save All Files Query[2 FF"EQ2"LQLEDIT Auto Save"E1,M(M.M^R Save File)' "#1,1M(M.M^R Save File)'' Q2"NWM(M.MSave All Files)''' :I2NIL QLEDIT Buffer[..O Z"N FF"'E+("'N)"N F[DFILE FSOSTECO"NFSMSNAMEFSDSNAME' QLEDIT Filename[1 ET1 FSDFILEU2:I2|2| EIHPEF ]1F]DFILE' HK' ]..O FSOSTECO"N F~2NIL"E:I2'"#:I2 ' :M(@:I*| :FR :I*ZFSEchoDisplay 0FSEchoChar 2 M(M.M& LEDIT Execute JCL) |)' QLEDIT LISP Jname"E 1,F LISP Jname: ULEDIT LISP Jname' QLEDIT LISP Jname[0 FSJNAME:F6[1 :m(@:i*` 0$J:JCL (1 2) $P`(QPFSQPUN))"N.[01M(M.M^R Mark DEFUN) M(M.M& LEDIT Save Region)Q0J]0' F@:M(M.M^R LEDIT Zap to LISP)0FO..QCOMPLR Fork[2 FF"N Q2"N-Q2FZ' 0UCOMPLR Fork 0 ' :FR :I*ZFSEchoDisplay 0FSEchoChar Q2F"NFZ 0 ' FZPS:Complr.ExeM.VCOMPLR Fork 0 [0[1[2[3 QBuffer FilenamesU0 Q0"NET0' FF"N5,2F DirectoryU0 FQ0"L' ET0' FSDSNameU2 FSDDeviceU3 FTChecking 3:<2> for FASL files to recompile...  E[FNE] F[BBind EZ*.FASL J <:S.FASL;0F-5X1 2S, 1:<1,ER1.LSP>"E (FSFDConvert)-(FSIfCDate)"L FT1 needs ReCompilation. ' EC' "#FT1.LSP not found. '> FTDone.  0 LEDITThe teco half of lisp LEDIT editing system.S Set up LEDIT variables and assign ^R commands.S Run when tty returned to TECO. If there is JCL, then execute it. Otherwise do nothing.S Like ^R Find Tag, except takes string argument.S Find File insuring Logical Device Name expansion (TWENEX). The standard Find File function, when invoked by m(m.m Find File)device: fails to properly expand Logical Device Names, often causing it to select a bogus buffer name. This function calls the standard Find File after forcing the Logical Device Name expansion. ^R Find Function in Buffer. This function will find a Lisp Function in the buffer, repeatedly searching greater and greater portions of the File centering its search about an approximate location of the Function. This function will search for a string of the form ^J, ^M, or ^L followed by "(DEFUN ". If called from ^R Mode, the function will prompt for a function name. The format of the Teco call is: M(M.M & LEDIT Find Function) If no is given or if the function is called with more than one argument, then the entire file is searched starting from the beginning. C Stores region between mark and point to be returned to LISP. Stuff is appended to the contents of the buffer kept in QLEDIT Buffer If given argument (e.g. ctl-U), also selects buffer *LEDIT*S Stores region between mark and point to be returned to LISP. Stuff is appended to the TECO buffer in LEDIT Buffer (the EMACS buffer *LEDIT*). A pair of arguments may be given instead of the mark, if called from a teco pgm^R Stores the toplevel list the pointer is in to be returned to LISP. If the pointer is between lists, the following list is stored. If numeric argument is given, then also select buffer *LEDIT*.^R Returns to LISP If called with no argument, writes out *LEDIT* buffer to be returned to LISP, and save files according to LEDIT Save All Files Query. If called with non-zero argument, writes out *LEDIT* buffer only and returns. If called with zero argument, just goes directly back to LISP discarding the changes which were saved instead of zapping them. String argument is LISP jname, if currently zero.^R Save Defun and Zap to LISP Takes same arguments as LEDIT Zap to LISP, but saves the current DEFUN and then zaps it immediately.xC Call COMPLR as Inferior (on Twenex only) or continue it if we have one already. An argument means to kill fork. C Check for FASL files to recompile (TWENEX). When called with no arguments, takes directory from current default file. Takes directory as string argument, or prompts when put on a ^R character and called with numeric argument. & Setup LEDIT Library & LEDIT Execute JCL & LEDIT Find Tag & LEDIT Find File ^R LEDIT Find Function ^R LEDIT Save Region & LEDIT Save Region ^R LEDIT Save DEFUN ^R LEDIT Zap to LISP ^R LEDIT Zap DEFUN to LISP COMPLR Inferior LEDIT ReCompile +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2