(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-Jun-2022 13:32:08" ("compiled on " {DSK}kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;45) "18-Jun-2022 22:18:44" "COMPILE-FILEd" in "FULL 18-Jun-2022 ..." dated "18-Jun-2022 22:18:51") (FILECREATED "22-Jun-2022 13:32:08" {DSK}kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;45 47672 :CHANGES-TO (FNS FIXEDITDATE) :PREVIOUS-DATE "13-May-2022 08:16:23" {DSK}kaplan>local>medley3.5>working-medley>sources>EDITINTERFACE.;44) (RPAQQ EDITINTERFACECOMS ((* ;; "This is John Wozencraft's simplified edit interface, created December 1990.") (PROP ( Definition-for-EDITL Definition-for-EDITE Definition-for-EDITDATE) TELETYPE DISPLAY) (GLOBALVARS *LAST-DF* *LAST-DV* *LAST-DC* *LAST-DP*) (INITVARS (*LAST-DF*) (*LAST-DV*) (*LAST-DC*) (*LAST-DP*)) ( INITVARS (*EDITMODE* (QUOTE TELETYPE)) (*DISPLAY-EDITOR*)) (* ;; "init *EDITMODE* to TELETYPE, since that's the only editor we know is loaded. other editors should set *DISPLAY-EDITOR* and call EDITMODE as appropriate." ) (VARS DUMMY-EDIT-FUNCTION-BODY) (VARIABLES *ED-OFFERS-PROPERTY-LIST* XCL::ED-LAST-INFO) (FUNCTIONS ED INSTALL-PROTOTYPE-DEFN) (FNS EDITDEF.FNS EDITF EDITFB EDITFNS EDITLOADFNS? EDITMODE EDITP EDITV DC DF DP DV EDITPROP EF EP EV EDITE EDITL) (COMS (* ;; "Time stamp on functions when edited") (* ;; "User enables this by an (ADDTOVAR INITIALSLIST (USERNAME )) in his INIT.LISP. E.g. (ADDTOVAR INITIALSLIST (MASINTER )) The date fixup is enabled by the variable INITIALS. The function SETINITIALS sets INITIALS from INITIALSLIST and USERNAME at load time, and after a sysin." ) (FNS NEW/EDITDATE FIXEDITDATE EDITDATE? EDITDATE SETINITIALS) (INITVARS (INITIALS) (INITIALSLST) ( DEFAULTINITIALS T)) (INITVARS (*REPLACE-OLD-EDIT-DATES* NIL)) (P (MOVD? (QUOTE EDITDATE) (QUOTE TTY/EDITDATE))) (COMS (* ; "Moved from FILEPKG") (VARS (EDITDATE-ARGLIST-DEFINERS (QUOTE (FUNCTIONS TYPES))) (EDITDATE-NAME-DEFINERS (QUOTE (STRUCTURES VARIABLES)))) (GLOBALVARS EDITDATE-ARGLIST-DEFINERS EDITDATE-NAME-DEFINERS))) (INITVARS (COMMON-SOURCE-MANAGER-TYPES (QUOTE ( FUNCTIONS VARIABLES STRUCTURES TYPES SETFS OPTIMIZERS)))) (PROP FILETYPE EDITINTERFACE) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA EV EP EF DV DP DF DC EDITV EDITP EDITFNS EDITF) (NLAML) (LAMA))))) (PUTPROPS TELETYPE Definition-for-EDITL TTY/EDITL) (PUTPROPS DISPLAY Definition-for-EDITL TTY/EDITL) (PUTPROPS TELETYPE Definition-for-EDITE TTY/EDITE) (PUTPROPS DISPLAY Definition-for-EDITE TTY/EDITE) (PUTPROPS TELETYPE Definition-for-EDITDATE TTY/EDITDATE) (PUTPROPS DISPLAY Definition-for-EDITDATE TTY/EDITDATE) (RPAQ? *LAST-DF*) (RPAQ? *LAST-DV*) (RPAQ? *LAST-DC*) (RPAQ? *LAST-DP*) (RPAQ? *EDITMODE* (QUOTE TELETYPE)) (RPAQ? *DISPLAY-EDITOR*) (RPAQQ DUMMY-EDIT-FUNCTION-BODY (LAMBDA (ARGS |...|) BODY)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *ED-OFFERS-PROPERTY-LIST*))) (OR (BOUNDP (QUOTE *ED-OFFERS-PROPERTY-LIST*)) (CL:SETQ *ED-OFFERS-PROPERTY-LIST* T)) (SET-DOCUMENTATION (QUOTE *ED-OFFERS-PROPERTY-LIST*) (QUOTE CL:VARIABLE) "Controls whether ED offers property list as an editable aspect") (CL:PROCLAIM (QUOTE (GLOBAL XCL::ED-LAST-INFO))) (OR (BOUNDP (QUOTE XCL::ED-LAST-INFO)) (CL:SETQ XCL::ED-LAST-INFO NIL)) (SET-DOCUMENTATION (QUOTE XCL::ED-LAST-INFO) (QUOTE CL:VARIABLE) "used in ED to stash last call info so (ED NIL) will restart last edit") CL::EDA0001 :D8 (L (0 X)) @g'ghNIL (15 NILL 9 EDITDEF) () ED :D8 (L (1 CL::OPTIONS 0 CL::NAME) F 13 *ED-OFFERS-PROPERTY-LIST*) ] A1@d<@ i bgAHdIIdbIb@@A)`io hb`A bAigA gAqAA O!O@IhgAgAPgNO_hO_O_OiOgi@ _O Oh__O&_gg I9@d3@2W.@[h"gJg'KiKJhgAogA@JIg dLdiHN`dLho@ dNdg dgjdndh_dO dXLhoL@ L @^H` H`ioLLgoo@ L]dg#@h@ghA @I d@MhdA @(601 EDITDEF 586 INSTALL-PROTOTYPE-DEFN 577 EDITE 544 CL:FORMAT 500 TERPRI 483 ASKUSER 477 CL:FORMAT 458 MENU 409 CL:FORMAT 371 INSTALL-PROTOTYPE-DEFN 270 TYPESOF 224 GETFILEPKGTYPE 117 CL:APPEND 99 CL:FORMAT 29 NAMEFIELD 23 CL:STRING-UPCASE 18 CL:NAMESTRING) (569 PROPLST 554 PROPERTY-LIST 524 PROPERTY-LIST 508 PROMPTWINDOW 495 PROMPTWINDOW 430 DEFAULTMENUHELDFN 421 CLRPROMPT 391 |MENUTYPE#| 366 :NEW 352 :NEW 338 PROPERTY-LIST 316 PROPTYPE 302 PROPERTY-LIST 264 CL::EDA0001 259 ? 217 TYPES 181 CURRENT 172 CURRENT 164 :CURRENT 139 DISPLAY 130 :DISPLAY 110 XCL::ED-LAST-INFO 86 XCL::ED-LAST-INFO 78 XCL::ED-LAST-INFO 37 FILES 9 PATHNAME) ( 537 "definition of" 531 "of" 515 "Editing ~A ~A ~S.~%%" 470 "Edit which ~A definition of ~S ? " 403 "Edit which definition of ~S ?" 346 (PROPERTY-LIST) 94 "Sorry, there is no previous edit to restart.") INSTALL-PROTOTYPE-DEFNA0001 :D8 (L (1 DEFINER 0 TYPE) P 0 DFNFLG F 1 NAME) gQ@A (20 EVAL 15 XCL::MAKE-PROTOTYPE) (4 PROP) () INSTALL-PROTOTYPE-DEFN :D8 (L (0 -args-) P 1 NAME) ekaHl2O$O"9O&hoI J JddhJ JgL,/O$a_*O(O*h_(_&O$k_$O*&_( h_MNL+ioI 6ioI &ioNIioILioIL NdN_>io `do0Nd_ggOhhog0O 5d_ggOOhhKh_2O4 O2h_6O2&_4O6h_,O. O,h_0O,&_.|O0oh _dOdg dgjdndh_dO __dgO_;gOOlgOOhoOo io `doO oh _dOdg dgjdndh_dO _ OO lgO(629 MENU 577 \APPEND2 565 XCL::PROTOTYPE-DEFINERS-FOR-TYPE 543 CL:FORMAT 531 ECASE-FAIL 452 MENU 400 \APPEND2 292 XCL::PROTOTYPE-DEFINERS-FOR-TYPE 227 CL:FORMAT 200 CL:FORMAT 162 CL:FORMAT 146 CL:FORMAT 121 INTERSECTION 116 XCL::PROTOTYPE-DEFN-TYPES 74 XCL::PROTOTYPE-DEFN-TYPES 37 CL:FORMAT) (644 INSTALL-PROTOTYPE-DEFNA0001 601 DEFAULTMENUHELDFN 592 CLRPROMPT 548 |MENUTYPE#| 498 INSTALL-PROTOTYPE-DEFNA0001 479 :DEFINER 463 :TYPE 424 DEFAULTMENUHELDFN 415 CLRPROMPT 308 :DEFINER 303 QUOTE 282 SUBITEMS 264 :TYPE 259 QUOTE 233 |MENUTYPE#| 64 :NEW) ( 570 ("Don't make a dummy defn" NIL) 555 "Select a definer for a dummy defn:" 538 "Select a definer to use for a dummy definition.~%%" 526 (:TYPE :DEFINER NIL) 519 (CL:FIRST RESULT) 393 ("Don't make a dummy defn" NIL) 277 "Displays a menu of definers for this type." 240 "Select a type for a dummy defn:" 222 "Select a type of dummy definition to install.~%%" 193 "~S has no definition of any of these types:~%% ~A~%%" 183 "~S has no ~A definition.~%%" 170 "Installing new ~S definition for ~S~%%" 156 "Installing new definition for ~S~%%" 140 "~S has no definitions.~%%" 31 "Installs a definition for ~S using this definer.") EDITDEF.FNS :D8 (P 0 DEF I 2 OPTIONS I 1 EDITCOMS I 0 NAME F 1 *ERROR-OUTPUT*) |@g'@g'@X !Hd3@H HA@ghB @@g X @ Qo@ o@i h(120 ERROR 107 CL:FORMAT 93 EDITFB 85 EXPRP 79 GETPROP 66 EDITE 49 GETD 35 EXPRP) (74 EXPR 58 FNS 25 BROKEN 12 ADVISED) ( 113 "Could not find fns definition for " 101 "Could not find fns definition for ~a.") EDITF :D8 (P 0 FNTYPE I 0 EDITFX F 1 LASTWORD) e@ bg@oi Qi Hh@ gg@ g@@gg@ @(93 HASDEF 64 HASDEF 46 EDITDEF 37 PRINT 29 PRIN1 5 NLAMBDA.ARGS) (87 ? 82 FNS 70 FUNCTIONS 58 ? 53 FUNCTIONS 12 FNS) ( 23 "Editing ") EDITFB :D8 (P 1 TEM P 0 FL I 0 FN F 2 EDITLOADFNSFLG)  @RhoRh X@Hg /g l.@oid Xd@hg @g ioi Hi i h(123 TERPRI 116 PRIN1 108 PRIN1 94 GETPROP 82 LOADFROM 65 EDITLOADFNS? 47 NARGS 35 LOADFNS 21 EDITLOADFNS?) (89 EXPR 77 PROP 42 WHEREIS 30 PROP) ( 102 "** Not found on " 58 "not editable; do you want to LOADFROM PROP the file" 13 "not editable, do you want to load it PROP from") EDITFNSA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 Y F 3 X F 4 SI::NLSETQ-VALUE) -i@gRid ki S hcg(33 APPLY 24 SPACES 17 PRIN2) (42 :NORMAL 9 EDITF) () EDITFNS :D8 (P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 Y I 0 X F 4 *PROCEED-CASES*) @ddhbddg@hg kg ]`@lF`h@ @g @ -g@g d`TJ h(138 EDITFNSA0001 115 STKEVAL 96 FILEFNSLST 88 GETPROP 74 MISSPELLED? 47 EVALV 34 STKEVAL) (127 SI::NLSETQ-PROCEED-CASE 110 INTERNAL 103 EDITFNS 83 FILE 66 FILELST 55 DWIMFLG 42 EDITFNS 29 INTERNAL 21 EDITFNS) () EDITLOADFNS? :D8 (P 3 FD P 2 DATES P 1 FILE P 0 LST I 3 FILES I 2 ASKFLG I 1 STR I 0 FN F 4 FILEPKGFLG F 5 *TERMINAL-IO*) :@4T-@gC 1CiH` XHHd:@i Hiooo hdoH i dYdg Zd+Ig dgdiihJ Ii dYJ4dJ-JI [JI UoIKJJ Ao BAoAo@I I`g@AIhhi gh(302 ASKUSER 275 EXEC-FORMAT 249 STREQUAL 237 CL:FORMAT 215 /RPLACD 204 FILEDATE 179 FINDFILE 170 INFILEP 142 GETPROP 126 GETPROP 110 ASKUSER 103 MAKEKEYLST 89 MAPRINT 65 PRIN2 43 LDIFFERENCE 25 WHEREIS) (307 Y 287 Y 282 DWIMWAIT 150 LOADFNS 137 FILE 121 FILEDATES 38 FILELST 19 FNS) ( 268 "~&Loading definition of ~S from ~A." 261 "~&~A~A" 244 "" 223 "*** Note: loading definition from ~A dated ~A~&while file ~A dated ~A is the version currently loaded." 97 "indicate which file to use: " 83 " and " 78 " " 73 " is contained on ") EDITMODE :D8 (P 0 new.display.editor I 0 NEWMODE F 1 *DISPLAY-EDITOR* F 2 *EDITMODE* F 3 \TERM.OFD) sS gRdgQ@S@dg(gbg +oo@ gQ@dgXH@cc(75 CL:CERROR 57 GETPROP 5 DISPLAYSTREAMP) (94 TELETYPE 82 DISPLAY 52 Definition-for-EDITL 45 TELETYPE 36 STANDARD 19 DISPLAY 11 TELETYPE) ( 69 "~S is unrecognized argument to EDITMODE" 64 "Ignore call to EDITMODE") EDITP :D8 (P 0 ATM I 0 EDITPX F 1 USERWORDS) G@ bd` HHlKQhdg HXH@Hg H(67 EDITE 44 MISSPELLED? 5 NLAMBDA.ARGS) (62 PROPLST 38 GETPROPLIST 17 DWIMFLG) () EDITV :D8 (P 1 FRAME P 0 VAR I 0 EDITVX F 2 LASTWORD) u@ bdoi Ri Hd IHIhi @H Hggi Xdgg@ o (114 ERROR 103 EDITDEF 82 HASDEF 64 EDITE 56 ENVEVAL 41 STKSCAN 30 PRINT 22 PRIN1 5 NLAMBDA.ARGS) (96 CURRENT 91 VARS 76 CURRENT 71 VARS) ( 109 "not editable" 16 "= ") DC :D8 (P 1 ARGS P 0 *EDITMODE* I 0 FILE) Bg@ I``o oo (63 ERROR 39 ED 10 NLAMBDA.ARGS) (46 *LAST-DC* 29 *LAST-DC* 22 *LAST-DC* 4 DISPLAY) ( 58 "Edit aborted." 53 "No saved file name." 34 (FILES :DONTWAIT)) DF :D8 (P 1 ARGS P 0 *EDITMODE* I 0 FN) Vg@ I"`.`IIgoo oo (83 ERROR 67 ED 10 NLAMBDA.ARGS) (55 *LAST-DF* 41 NEW 29 *LAST-DF* 22 *LAST-DF* 4 DISPLAY) ( 78 "Edit aborted." 73 "No saved function name." 62 (FUNCTIONS FNS :DONTWAIT) 48 (FUNCTIONS FNS :DONTWAIT :NEW)) DP :D8 (P 1 ARGS P 0 *EDITMODE* I 0 ATOM) Yg@ I`1`dodIo oo (86 ERROR 70 ED 10 NLAMBDA.ARGS) (58 *LAST-DP* 50 *LAST-DP* 29 *LAST-DP* 22 *LAST-DP* 4 DISPLAY) ( 81 "Edit aborted." 76 "No saved symbol name." 65 (PROPERTY-LIST :DONTWAIT) 38 (PROPS :DONTWAIT)) DV :D8 (P 1 ARGS P 0 *EDITMODE* I 0 VAR) Bg@ I``o oo (63 ERROR 39 ED 10 NLAMBDA.ARGS) (46 *LAST-DV* 29 *LAST-DV* 22 *LAST-DV* 4 DISPLAY) ( 58 "Edit aborted." 53 "No saved variable name." 34 (VARIABLES VARS :DONTWAIT)) EDITPROP :D8 (I 1 PROP I 0 NAME) A@Ahg g@ (28 APPLY 16 EDITDEF) (22 EDITP 11 PROPS) () EF :D8 (P 0 *EDITMODE* I 0 FN) +g@ggg@ (40 APPLY 35 NLAMBDA.ARGS) (29 EDITF 23 EDITFERROR 16 NEW 4 TELETYPE) () EP :D8 (P 0 *EDITMODE* I 0 ATOM) gg@ (23 APPLY 18 NLAMBDA.ARGS) (12 EDITPROP 4 TELETYPE) () EV :D8 (P 0 *EDITMODE* I 0 VAR) gg@ (23 APPLY 18 NLAMBDA.ARGS) (12 EDITV 4 TELETYPE) () EDITE :D8 (P 0 A0182 I 5 OPTIONS I 4 IFCHANGEDFN I 3 TYPE I 2 ATM I 1 COMS I 0 EXPR) L@g'@ABCDElHdghg@ i@ (73 INSPECT 63 STRINGP 39 EDITMODE 7 EDITMODE) (55 SEDIT 45 TELETYPE 16 Definition-for-EDITE) () EDITL :D8 (P 0 A0183 I 4 EDITCHANGES I 3 MESS I 2 ATM I 1 COMS I 0 L) g'@ABCDlH(4 EDITMODE) (13 Definition-for-EDITL) () NEW/EDITDATE :D8 (P 0 A0184 I 1 INITLS I 0 OLDATE) g'@AlH(4 EDITMODE) (13 Definition-for-EDITDATE) () FIXEDITDATE :D8 (P 14 C P 10 CFLAG P 9 C P 6 TAIL P 5 ENDINITIALS P 4 COMMENTLEVEL P 3 PARSE P 2 INITLS P 0 E I 0 EXPR F 15 INITIALS F 16 COMMENTFLG F 17 LAMBDASPLST F 18 FOR F 19 *REPLACE-OLD-EDIT-DATES*) [W@@{ @dW"?g `@XYIH!H@gW$ `4@XhSHdgdgHdgHg%HgHW HgHWm l:Wkm W1W&LHNN N^HNHN Hi [HJK xJ H iHi [`JK &KoHdJK hJ H HQ OOHO@W HH[o K[ JKkhdi` ]JKM l:ooKM HdhK o_ qO _OOOO_O_O_C_ QOdLL O_2(592 /RPLACA 573 EDITDATE? 535 NCHARS 522 EDITDATE? 511 /RPLACA 506 EDITDATE 495 CONCAT 490 SUBSTRING 468 NTHCHARCODE 457 STRPOS 438 STRINGP 426 MEMB 366 /ATTACH 360 EDITDATE 352 /RPLACA 347 EDITDATE 323 IDATE 316 STRING.EQUAL 304 EDITDATE? 293 /ATTACH 287 EDITDATE 278 EDITDATE 263 EDITDATE? 253 /RPLACD 236 EDITDATE? 212 SUBSTRING 198 NTHCHARCODE 83 GETPROP 46 GETPROP) (451 UPPERCASEARRAY 184 DECLARATIONS%: 165 ADV-PROG 151 PROGN 137 BREAK1 125 DECLARE 117 CLISP%: 88 EDITDATE-NAME-DEFINERS 76 :DEFINER- 51 EDITDATE-ARGLIST-DEFINERS 41 :DEFINER-FOR) ( 483 ": " 477 "" 421 (; ;; ;;;) 331 86400) EDITDATE? :D8 (P 7 REST P 6 IENDPOS P 5 I P 4 DATE P 3 BYPOS P 2 STRING P 1 IPOS P 0 TAIL I 1 PARSE I 0 COMMENT F 8 COMMENTFLG) @kbWHHXo HXZ oJ ZoJklo oJl [JlKk \uKlYJ IfoJI J kk^JIN ]l M 9Mm l:Mkm JNk JI _Ah LMOh(233 SUBSTRING 225 NTHCHARCODE 215 SUBSTRING 202 NTHCHARCODE 191 NCHARS 182 SUBSTRING 169 NCHARS 161 STRPOS 145 NCHARS 131 IDATE 126 SUBSTRING 108 STRPOS 89 STREQUAL 84 SUBSTRING 64 CL:STRING-TRIM 47 STRINGP 31 MEMB) NIL ( 154 " " 100 " by " 79 "" 70 "Edited " 58 (#\Space) 26 (; ;; ;;;)) EDITDATE :D8 (P 2 OLDSEMI P 1 NEWDATE P 0 EDITSTRING I 2 REST I 1 INITLS I 0 OLDDATE F 4 COMMENTFLG) noo oBoA 1BHB @ BJggHhY@[TTdKT@I TTI(98 /RPLACD 45 CONCAT 33 CONCAT 14 DATE) (70 ; 59 ;;) ( 26 "" 19 " by " 9 (DATEFORMAT NO.SECONDS) 4 "Edited ") SETINITIALS :D8 (P 4 TRIPLE P 3 POS P 2 FILEPKGFLG P 1 USER P 0 DFNFLG F 6 DEFAULTREGISTRY F 7 DEFAULTINITIALS F 8 INITIALSLST) ihdi BoI [d"VIKkm V IkKk W]hEL$gL IL LiMgL gL gWdiWI (155 SAVESET 133 SAVESET 119 SAVESET 95 CL::SIMPLE-STRING-EQUAL 84 SAVESET 57 SUBSTRING 46 CL::SIMPLE-STRING-EQUAL 40 SUBSTRING 22 STRPOS 8 USERNAME) (139 INITIALS 124 INITIALS 111 FIRSTNAME 77 INITIALS) ( 16 ".") (RPAQ? INITIALS) (RPAQ? INITIALSLST) (RPAQ? DEFAULTINITIALS T) (RPAQ? *REPLACE-OLD-EDIT-DATES* NIL) (MOVD? (QUOTE EDITDATE) (QUOTE TTY/EDITDATE)) (RPAQQ EDITDATE-ARGLIST-DEFINERS (FUNCTIONS TYPES)) (RPAQQ EDITDATE-NAME-DEFINERS (STRUCTURES VARIABLES)) (RPAQ? COMMON-SOURCE-MANAGER-TYPES (QUOTE (FUNCTIONS VARIABLES STRUCTURES TYPES SETFS OPTIMIZERS))) (PUTPROPS EDITINTERFACE FILETYPE CL:COMPILE-FILE) (PUTPROPS EDITINTERFACE COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991)) NIL