(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-Jan-98 13:54:04" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>WEDIT.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "23-Oct-91 16:39:18" |{PELE:MV:ENVOS}SOURCES>WEDIT.;4| 37235 changes to%: (FNS EDITGETD) previous date%: "25-Jun-90 14:33:27" |{PELE:MV:ENVOS}SOURCES>WEDIT.;3|) SETTERMCHARS :D8 (L (5 PPCHAR 4 2CHAR 3 UNQUOTECHAR 2 LASTCHAR 1 BKCHAR 0 NEXTCHAR)) @ b@o` B bD buA bMC b(E b do` Eg oi Ci` o` Ag o` Dg qo` Bg H(223 /ECHOCONTROL 211 /SETSYNTAX 192 /ECHOCONTROL 180 /SETSYNTAX 162 /ECHOCONTROL 150 /SETSYNTAX 132 /SETSYNTAX 119 /SETSYNTAX 107 /ECHOCONTROL 96 /SETSYNTAX 76 \SETTERMCHARS/INTCHECK 66 \SETTERMCHARS/INTCHECK 56 \SETTERMCHARS/INTCHECK 46 \SETTERMCHARS/INTCHECK 32 \SETTERMCHARS/INTCHECK 25 /SETSYNTAX 5 \SETTERMCHARS/INTCHECK) (218 IGNORE 206 EDITRDTBL 187 IGNORE 175 EDITRDTBL 157 IGNORE 145 EDITRDTBL 127 EDITRDTBL 102 IGNORE 91 EDITRDTBL 20 EDITRDTBL) ( 201 (MACRO FIRST IMMEDIATE (LAMBDA NIL (CHARMACRO -1P))) 170 (MACRO FIRST IMMEDIATE (LAMBDA NIL (CHARMACRO 2P))) 140 (MACRO FIRST IMMEDIATE ESCQUOTE (LAMBDA NIL (CHARMACRO BKP))) 113 (MACRO FIRST (LAMBDA (FILE RDTBL) (EVAL (READ FILE RDTBL)))) 86 (SPLICE FIRST IMMEDIATE ESCQUOTE (LAMBDA NIL (TERPRI T) (%## PP*) (PRIN1 (QUOTE *) T) NIL)) 15 (MACRO FIRST IMMEDIATE (LAMBDA NIL (CHARMACRO NXP)))) \SETTERMCHARS/INTCHECK :D8 (L (0 CHAR)) @!HdXhHd3 Xl@Hl@XH H@Yoi Hl@Zdl !l9`Jl ُl0JJl0ن`Ji oi i hY H H3 I Yl@Il@ـIH (180 HELP 173 INTCHAR 156 CHCON1 144 INTCHAR 131 TERPRI 124 PRIN1 112 PRIN1 73 CHARACTER 57 PRIN1 39 GETINTERRUPT 22 CHCON1) (104 \OneCharAtomBase 84 \OneCharAtomBase) ( 118 " is an interrupt and can't be an edit control-character" 51 "control-") CHARMACRO :D8 (L (0 X)) i @(5 TERPRI) NIL () FIRSTATOM :D8 (L (0 X)) @@bNIL NIL () NEGATE :D8 (L (0 X)) h@dgdg@dgg@ dgg@ dg)@@g@bg@ dg>g@@@%d[dK  IHhZH&Jdg@ dgg@ @dg@hg@hd `H*h%@h @ih@d3 h g@hYd@@@I@HX(313 STRINGP 274 MKPROGN 269 \APPEND2 231 NEGATE 207 MKPROGN 202 \NEGATE/NEGL 165 NEGATE 157 \NEGATE/NEGL 115 \NEGATE/NEGC 67 \NEGATE/NEGLST 44 \NEGATE/NEGLST) (322 NOT 280 NEGATIONS 257 CONS 243 QUOTE 223 PROG1 214 PROG1 192 PROGN 132 SELECTQ 123 SELECTQ 108 COND 95 AND 75 COND 60 AND 52 OR 37 OR 29 AND 16 NULL 8 NOT) () \NEGATE/NEGL :D8 (L (0 L)) @d h@ (20 \NEGATE/NEGL 9 NEGATE) NIL () \NEGATE/NEGLST :D8 (L (0 L)) 0@d IHhZH&J(12 NEGATE) NIL () \NEGATE/NEGC :D8 (L (0 X)) S@ idhhd' @h@ b g@hh@ @ih @ (79 \NEGATE/NEGC 62 \NEGATE/NEGL 35 \NEGATE/NEGC 22 NEGATE) (44 COND) () MKPROGN :D8 (L (0 L)) @ bdg@(5 \MKPROGN/MKPROGN1) (16 PROGN) () \MKPROGN/MKPROGN1 :D8 (L (0 L)) @d@dg@b@dg5dg,dg#dgdgdgdg@@ bg@b@@ (127 \MKPROGN/MKPROGN1 101 \APPEND2) (110 QUOTE 88 NULL 80 NOT 72 CDR 63 CAR 54 CONS 45 LIST 36 PROGN 13 PROGN) () MAKEFNA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 A F 3 ACTUAL F 4 BODY F 5 SI::NLSETQ-VALUE) i@RST hc g(14 ESUBST) (23 :NORMAL) () MAKEFN :D8 (L (1 ARGLIST 0 FORM) P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 ACTUAL P 0 A I 2 BODY F 5 *PROCEED-CASES*) @d3@B BA@Bhi A@@ddd3@@oi IYH2AId3@IodAhhX bHI`UK HIY@gABhhi h(178 DEFINE 146 MAKEFNA0001 117 \NCONC2 109 GENSYM 64 ERROR 32 DEFINE 13 FNTYP) (163 LAMBDA 135 SI::NLSETQ-PROCEED-CASE) ( 90 (X Y Z A B C D) 58 "? ") EDITGETD :D8 (L (1 EDITCHAIN 0 X)) Y@D@!HdH@ d3@ Hg'Y@kI Hd3@Hg'@ @i Y0Hdd3@BHdg 3@iAo H@@@I @` @ghg Y/Hghg Y@dgWII0@>gII@ dZddi3 gJhLKh]K&M gIdd@II@ (342 EDITGETD-LAMBDA 306 EDITGETD-LAMBDA 259 EDITGETD-LAMBDA 207 GETDEF 187 GETDEF 167 GETHASH 155 COPY 138 DWIMIFY 120 GETPROP 96 EXPANDMACRO 88 COPY 83 CL:MACROEXPAND-1 57 COPY 28 EDITGETD-LAMBDA) (313 LAMBDA 279 QUOTE 241 CL:DEFUN 219 NLAMBDA 202 NOERROR 196 FNS 182 NOERROR 176 FUNCTIONS 162 CLISPARRAY 115 CLISPWORD 75 MACRO-FN 45 EDITGETD) ( 133 (NIL)) EDITGETD-LAMBDA :D8 (L (3 DONE 2 VALS 1 BODY 0 ARGS)) @CgC AA #@AB@B@hCbbbb@dgdg@bdg@BA hbbbdgdg%@Ah@gBhCbbbbZ@B@BhCbbbA(106 \APPEND2 25 MKPROGN 15 REVERSE) (148 LIST 131 &REST 123 &BODY 94 &AUX 79 &OPTIONAL 71 &ALLOW-OTHER-KEYS 9 LET) () EDITGETD-LET :D8 (L (0 FORM)) I0@dIHhZH&J0@dIHhZH&J@ (70 MKPROGN 65 SUBPAIR) NIL () MAKECOM :D8 (L (1 VALS 0 VAR) F 5 COM) h Hc hH Yd@c I@hIh h bI!lJ h@2AHddKhHKAdhgLAdh HXhLKkػJZ(124 \NCONC2 71 ERROR! 54 ERROR! 46 FIXSPELL 40 \APPEND2 19 SMARTARGLIST 5 %##) (111 N) () SWAPPEDCOND :D8 (L (0 CND) F 3 L) @dgdg3@iS @dg`   gb@@@HgH JiJIhdgIhHddgHhiHh(176 SHOULDNT 109 NEGATE 96 ERROR! 66 COND.TO.IF 60 SWAPPEDCOND 55 ERROR! 48 GETHASH 27 DWIMIFY) (147 COND 128 COND 102 COND 72 COND 43 CLISPARRAY 35 COND 15 if 7 IF) () COND.TO.IF :D8 (L (0 CONDCLAUSES)) Yg@@=d[iK@gKgKKgKh XIHZYJ YH(82 LAST 55 \APPEND2) (47 then 36 elseif 27 else 4 if) () (PRETTYCOMPRINT WEDITCOMS) (RPAQQ WEDITCOMS ((VARS EDITOPS MAXLOOP (EDITRACEFN) (UPFINDFLG T) MAXLEVEL FINDFLAG (EDITQUIETFLG)) ( INITVARS (EDITSMASHUSERFN) (EDITEMBEDTOKEN (QUOTE &)) (EDITUSERFN) (CHANGESARRAY) (EDITUNSAVEBLOCKFLG T) (EDITLOADFNSFLG (QUOTE (T)))) (INITVARS (EDITMACROS) (USERMACROS)) (ADDVARS (HISTORYCOMS ?? REDO REPEAT FIX USE |...| NAME RETRIEVE DO !N !E !F TYPE-AHEAD  BUFS ;) (DONTSAVEHISTORYCOMS SAVE P ? PP PP* E ;) (EDITCOMSA OK STOP SAVE TTY%: E ? PP PP* PPV P ^ !0 MARK UNDO !UNDO TEST UNBLOCK _ \ \P __ F BF UP DELETE NX BK !NX ?? REDO REPEAT FIX USE NAME RETRIEVE DO !N !E !F TYPE-AHEAD) (EDITCOMSL S R R1 RC RC1 E I N P F FS F= ORF BF NTH IF RI RO LI LO BI BO M NX BK ORR MBD XTR THRU TO A B %: AFTER BEFORE MV LP LPQ LC LCL _ BELOW SW BIND COMS ORIGINAL INSERT REPLACE CHANGE DELETE EMBED SURROUND MOVE EXTRACT SWITCH ?? REDO REPEAT FIX USE NAME RETRIEVE DO MARK \)) (USERMACROS CAP LOWER RAISE 2ND 3RD %%F %% NEX REPACK * >* SHOW EXAM PP* ?=) (COMS (* ; "control chars for moving around in the editor") ( FNS SETTERMCHARS INTCHECK CHARMACRO) (INITVARS (EDITCHARACTERS)) (VARS NEGATIONS) (USERMACROS 2P NXP BKP -1P) (ADDVARS (COMPACTHISTORYCOMS 2P NXP BKP -1P)) (DECLARE%: DONTCOPY (MACROS CFOBF)) (BLOCKS ( SETTERMCHARS SETTERMCHARS INTCHECK (NOLINKFNS . T) (GLOBALVARS EDITRDTBL)) (NIL CHARMACRO (LOCALVARS . T)))) (COMS (* ; "macros for calling editor") (USERMACROS EF EV EP) (ADDVARS (DONTSAVEHISTORYCOMS EF EV EP)) (FNS FIRSTATOM) (BLOCKS (NIL FIRSTATOM (LOCALVARS . T)))) (COMS (* ; "Misc edit macros") ( USERMACROS EVAL Q GETD GETVAL MAKEFN D NEGATE GO SWAP MAKE SWAPC IFY SPLITC JOINC) (FNS MAKEFN EDITGETD EDITGETD-LAMBDA EDITGETD-LET NEGATE NEGL NEGLST NEGC MKPROGN MKPROGN1 MAKECOM SWAPPEDCOND COND.TO.IF) (PROP EDITGETD LET CL:IF) (BLOCKS (NEGATE NEGATE NEGL NEGLST NEGC (NOLINKFNS . T) ( GLOBALVARS NEGATIONS)) (MKPROGN MKPROGN MKPROGN1 (NOLINKFNS . T)))) (GLOBALVARS CLISPARRAY MACROPROPS) (LOCALVARS . T) (GLOBALVARS LAMBDASPLST NORMALCOMMENTSFLG COMMENTFLG FIRSTNAME INITIALS INITIALSLST DEFAULTINITIALS) (P (MOVD? (QUOTE NILL) (QUOTE PREEDITFN))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML MAKECOM CHARMACRO) (LAMA))))) (RPAQQ EDITOPS ((INSERT (BEFORE AFTER FOR) (EDIT%: %#2 %#3 %#1)) (REPLACE (WITH BY) (EDIT%: %: %#1 %#3 )) (CHANGE (TO) (EDIT%: %: %#1 %#3)) (DELETE NIL (EDIT%: %: %#1)) (EMBED (IN WITH) (EDITMBD %#1 %#3)) (SURROUND (WITH IN) (EDITMBD %#1 %#3)) (MOVE (TO) (EDITMV %#1 (CAR %#3) (CDR %#3))) (EXTRACT (FROM) ( EDITXTR %#3 %#1)) (SWITCH (AND) (EDITSW %#1 %#3)))) (RPAQQ MAXLOOP 30) (RPAQQ EDITRACEFN NIL) (RPAQQ UPFINDFLG T) (RPAQQ MAXLEVEL 300) (RPAQQ FINDFLAG NIL) (RPAQQ EDITQUIETFLG NIL) (RPAQ? EDITSMASHUSERFN) (RPAQ? EDITEMBEDTOKEN (QUOTE &)) (RPAQ? EDITUSERFN) (RPAQ? CHANGESARRAY) (RPAQ? EDITUNSAVEBLOCKFLG T) (RPAQ? EDITLOADFNSFLG (QUOTE (T))) (RPAQ? EDITMACROS) (RPAQ? USERMACROS) (ADDTOVAR HISTORYCOMS ?? REDO REPEAT FIX USE |...| NAME RETRIEVE DO !N !E !F TYPE-AHEAD  BUFS ;) (ADDTOVAR DONTSAVEHISTORYCOMS SAVE P ? PP PP* E ;) (ADDTOVAR EDITCOMSA OK STOP SAVE TTY%: E ? PP PP* PPV P ^ !0 MARK UNDO !UNDO TEST UNBLOCK _ \ \P __ F BF UP DELETE NX BK !NX ?? REDO REPEAT FIX USE NAME RETRIEVE DO !N !E !F TYPE-AHEAD) (ADDTOVAR EDITCOMSL S R R1 RC RC1 E I N P F FS F= ORF BF NTH IF RI RO LI LO BI BO M NX BK ORR MBD XTR THRU TO A B %: AFTER BEFORE MV LP LPQ LC LCL _ BELOW SW BIND COMS ORIGINAL INSERT REPLACE CHANGE DELETE EMBED SURROUND MOVE EXTRACT SWITCH ?? REDO REPEAT FIX USE NAME RETRIEVE DO MARK \) (ADDTOVAR EDITMACROS (EXAM X (F (*ANY* . X) T) (BIND (LPQ (MARK %#1) (ORR (1 !0 P) NIL) (MARK %#2) TTY%: (MARK %#3) (IF (EQ (%## (\ %#3)) (%## (\ %#2))) ((\ %#1)) NIL) (F (*ANY* . X) N))) (E (QUOTE done))) (>* (X) (BIND (MARK %#1) 0 (_ ((*ANY* PROG PROGN COND SELECTQ LAMBDA NLAMBDA ASSEMBLE) --)) ( MARK %#2) (E (SETQ %#3 (SELECTQ (%## 1) ((COND SELECTQ) 2) 1)) T) (\ %#1) (ORR (1 1) (1) NIL) (BELOW ( \ %#2) %#3) (IF (QUOTE X) ((ORR (NX (B X)) ((IF (EQ (%## (\ %#2) 0 1) (QUOTE PROG)) NIL (BK)) (A X)) ( (\ %#2) (>* X)))) NIL))) (LOWER NIL UP (I 1 (L-CASE (%## 1))) 1) (CAP NIL UP (I 1 (L-CASE (%## 1) T)) 1) (REPACK NIL (IF (LISTP (%##)) (1) NIL) (I %: ((LAMBDA (X Y) (SETQ COM (QUOTE REPACK)) (SETQ Y ( APPLY (QUOTE CONCAT) (EDITE (UNPACK X)))) (COND ((NOT (STRINGP X)) (SETQ Y (MKATOM Y)))) (PRINT Y T T) ) (%##)))) (* X MARK (ORR ((I >* (COND ((RAISEP) (CONS (QUOTE *) (CONS (QUOTE %%) (QUOTE X)))) (T ( CONS (QUOTE *) (QUOTE X)))))) ((E (QUOTE CAN'T)))) __) (LOWER (C) (I R (QUOTE C) (L-CASE (QUOTE C)))) (RAISE (C) (I R (L-CASE (QUOTE C)) (QUOTE C))) (RAISE NIL UP (I 1 (U-CASE (%## 1))) 1) (2ND X (ORR (( LC . X) (LC . X)))) (3RD X (ORR ((LC . X) (LC . X) (LC . X)))) (%%F (X Y) (E (EDITQF (L-CASE (QUOTE X) (QUOTE Y))) T)) (%% X (COMS (CONS (CAR (QUOTE X)) (COMMENT3 (CDR (QUOTE X)) (CAR (LAST L)))))) (NEX NIL (BELOW _) NX) (NEX (X) (BELOW X) NX) (REPACK NIL (IF (LISTP (%##)) (1) NIL) (I %: ((LAMBDA (X Y) ( SETQ COM (QUOTE REPACK)) (SETQ Y (APPLY (QUOTE CONCAT) (EDITE (UNPACK X)))) (COND ((NOT (STRINGP X)) ( SETQ Y (MKATOM Y)))) (PRINT Y T T)) (%##)))) (REPACK (X) (LC . X) REPACK) (SHOW X (F (*ANY* . X) T) ( LPQ MARK (ORR (1 !0) NIL) P __ (F (*ANY* . X) N)) (E (QUOTE done))) (PP* NIL (RESETVAR **COMMENT**FLG NIL PP)) (?= NIL (E (PROGN (PRINT-ARGLIST (SMARTARGLIST (CAR (%##))) (CDR (%##)) T 0) (TERPRI T)) T))) (ADDTOVAR EDITCOMSA CAP LOWER RAISE NEX REPACK PP*) (ADDTOVAR EDITCOMSL LOWER RAISE 2ND 3RD %%F %% REPACK * >* EXAM SHOW) (ADDTOVAR DONTSAVEHISTORYCOMS PP*) (RPAQ? EDITCHARACTERS) (RPAQQ NEGATIONS ((NEQ . EQ) (NLISTP . LISTP) (GO . GO) (ERROR . ERROR) (ERRORX . ERRORX) (RETURN . RETURN) (RETFROM . RETFROM) (RETTO . RETTO) (IGREATERP . ILEQ) (ILESSP . IGEQ))) (ADDTOVAR EDITMACROS (NXP NIL (ORR (NX) (!NX (E (PRIN1 "> " T) T)) ((E (PROGN (SETQQ COM NX) (ERROR!)) ))) P) (-1P NIL (ORR (-1 P) ((E (PROGN (SETQQ COM -1) (ERROR!)))))) (BKP NIL (ORR (BK) (!0) ((E (PROGN (SETQQ COM BK) (ERROR!))))) P) (2P NIL (ORR (2) (1) ((E (PROGN (SETQQ COM 2) (ERROR!))))) P)) (ADDTOVAR EDITCOMSA NXP -1P BKP 2P) (ADDTOVAR COMPACTHISTORYCOMS 2P NXP BKP -1P) (ADDTOVAR COMPACTHISTORYCOMS 2P NXP BKP -1P) (ADDTOVAR EDITMACROS (EV NIL (ORR ((E (LISPXEVAL (LIST (QUOTE EDITV) (FIRSTATOM (%##))) (QUOTE EV->))) ) ((E (QUOTE EV?))))) (EP NIL (ORR ((E (LISPXEVAL (LIST (QUOTE EDITP) (FIRSTATOM (%##))) (QUOTE EP->)) )) ((E (QUOTE EP?))))) (EF NIL (ORR ((E (LISPXEVAL (LIST (QUOTE EDITF) (FIRSTATOM (%##))) (QUOTE EF->) ))) ((E (QUOTE EF?)))))) (ADDTOVAR EDITCOMSA EV EP EF) (ADDTOVAR DONTSAVEHISTORYCOMS EF EV EP) (ADDTOVAR DONTSAVEHISTORYCOMS EF EV EP) (ADDTOVAR USERMACROS (IFY NIL (F (COND --) T) UP (I 1 (COND.TO.IF (CDR (%## 1)))) 1)) (ADDTOVAR EDITMACROS (SWAP (LC1 LC2) (BIND (MARK %#3) (LC . LC1) UP (MARK %#1) (\ %#3) (LC . LC2) UP ( IF (NOT (OR (FMEMB (CAAR %#1) L) (FMEMB (CAAR L) %#1))) ((E (SETQ %#2 (CAR (%##))) T) (\ %#1) (E (SETQ %#1 (CAR (%##))) T) (I 1 %#2) \ (I 1 %#1)) ((E (QUOTE (NESTED EXPRESSIONS))))) (\ %#3))) (EVAL NIL ( ORR ((E (LISPXEVAL (%## (ORR (UP 1) NIL)) (QUOTE *)))) ((E (QUOTE EVAL?))))) (GO (LAB) (ORR ((_ (( *ANY* PROG ASSEMBLE DPROG RESETLST) -- LAB --)) F LAB (ORR 2 1) P) ((E (PROGN (SETQQ COM LAB) (ERROR!) ))))) (JOINC NIL (F COND T) UP (BI 1 2) 1 (BO 2) (2) (RO 1) (BO 1)) (NEGATE NIL UP (I 1 (NEGATE (%## 1 ))) 1) (SPLITC (X) (F COND T) (BI 1 X) (IF (AND (EQ (%## 2 1) T) (%## 2 2) (NULL (CDDR (%##)))) ((BO 2 ) (2)) ((-2 COND) (LI 2))) UP (BO 1)) (SWAPC NIL (F ((*ANY* COND IF if) --) T) UP (I 1 (SWAPPEDCOND ( %## 1))) 1) (MAKE (VAR . VALS) (COMS (MAKECOM VAR VALS))) (D NIL (%:) 1 P) (Q NIL (MBD QUOTE)) (MAKEFN (FORM ARGS N M) (IF (QUOTE M) ((BI N M) (LC . N) (BELOW \)) ((IF (QUOTE N) ((BI N -1) (LC . N) (BELOW \)) ((LI 1))))) (E (MAKEFN (QUOTE FORM) (QUOTE ARGS) (%##)) T) UP (1 FORM) 1) (GETD NIL UP (ORR ((I 1 (OR (EDITGETD (%## 1) (AND (CDR L) (EDITL0 L (QUOTE (!0))))) (ERROR!)))) ((E (QUOTE GETD?)))) 1) ( GETVAL NIL UP (ORR ((I 1 (EVAL (%## 1) (QUOTE *)))) ((E (QUOTE GETVAL?)))) 1)) (ADDTOVAR EDITCOMSA JOINC EVAL NEGATE SWAPC D Q GETD GETVAL) (ADDTOVAR EDITCOMSL SPLITC MAKE MAKEFN SWAP GO) (PUTPROPS LET EDITGETD EDITGETD-LET) (PUTPROPS CL:IF EDITGETD (LAMBDA (FORM) (DESTRUCTURING-BIND (TEST THEN ELSE) (CDR FORM) (BQUOTE (COND ((\, TEST) (\, THEN)) (\,@ (AND ELSE (BQUOTE ((T (\, ELSE))))))))))) (MOVD? (QUOTE NILL) (QUOTE PREEDITFN)) (PUTPROPS WEDIT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991)) NIL