(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 12:53:17" ("compiled on " {DSK}export>lispcore>sources>CLTL2>EDITINTERFACE.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 15:30:38" "{Pele:mv:envos}Sources>CLTL2>EDITINTERFACE.;2" 40076 previous date%: "12-Jan-92 12:30:13" "{Pele:mv:envos}Sources>CLTL2>EDITINTERFACE.;1") (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)) (VARIABLES *REPLACE-OLD-EDIT-DATES*) (P (MOVD? (QUOTE EDITDATE) (QUOTE TTY/EDITDATE)))) (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*) k A?@dJ@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 @(615 EDITDEF 600 INSTALL-PROTOTYPE-DEFN 591 EDITE 558 CL:FORMAT 514 TERPRI 497 ASKUSER 491 CL:FORMAT 472 MENU 423 CL:FORMAT 385 INSTALL-PROTOTYPE-DEFN 284 TYPESOF 238 GETFILEPKGTYPE 131 CL:APPEND 113 CL:FORMAT 43 NAMEFIELD 37 CL:STRING-UPCASE 32 CL:NAMESTRING 27 CL:TRANSLATE-LOGICAL-PATHNAME 19 CL::LOGICAL-PATHNAME-P) (583 PROPLST 568 PROPERTY-LIST 538 PROPERTY-LIST 522 PROMPTWINDOW 509 PROMPTWINDOW 444 DEFAULTMENUHELDFN 435 CLRPROMPT 405 |MENUTYPE#| 380 :NEW 366 :NEW 352 PROPERTY-LIST 330 PROPTYPE 316 PROPERTY-LIST 278 CL::EDA0001 273 ? 231 TYPES 195 CURRENT 186 CURRENT 178 :CURRENT 153 DISPLAY 144 :DISPLAY 124 XCL::ED-LAST-INFO 100 XCL::ED-LAST-INFO 92 XCL::ED-LAST-INFO 51 FILES 9 PATHNAME) ( 551 "definition of" 545 "of" 529 "Editing ~A ~A ~S.~%%" 484 "Edit which ~A definition of ~S ? " 417 "Edit which definition of ~S ?" 360 (PROPERTY-LIST) 108 "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 A4632 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 A4633 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 A4634 I 1 INITLS I 0 OLDATE) g'@AlH(4 EDITMODE) (13 Definition-for-EDITDATE) () FIXEDITDATE :D8 (P 0 E I 0 EXPR F 1 INITIALS F 2 LAMBDASPLST F 3 COMMENTFLG) Q@@R@@HhHdWdgdgHXdgHdg'XgHdSdgXH HdQ Q H @(175 /ATTACH 169 EDITDATE 162 /RPLACA 157 EDITDATE 146 EDITDATE?) (129 DECLARATIONS%: 110 ADV-PROG 95 PROGN 80 BREAK1 66 DECLARE 58 CLISP%:) () EDITDATE? :D8 (L (0 COMMENT) F 3 COMMENTFLG F 4 *REPLACE-OLD-EDIT-DATES* F 5 INITIALS) T@@HS SHSi@@@h@ @!HS SHSih{HUvHdd3@^H kJIHJ l;hJkZi7Hg@o@khi ,@ o hi l H (232 NCHARS 222 STRINGP 210 CL:LENGTH 200 CL:LENGTH 189 STRPOS 147 NTHCHARCODE 132 NCHARS 81 STRINGP) (168 ;) ( 205 "Edited 01-jan-86 00:00 by " 176 "Edited ") EDITDATE :D8 (P 0 NEWDATE I 1 INITLS I 0 OLDATE F 2 COMMENTFLG) Ggoo oA h@YRRdIR@H RRH(59 /RPLACD 30 CONCAT 19 DATE) (4 ;) ( 24 " by " 14 (DATEFORMAT NO.SECONDS) 9 "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) (CL:PROCLAIM (QUOTE (CL:SPECIAL *REPLACE-OLD-EDIT-DATES*))) (OR (BOUNDP (QUOTE *REPLACE-OLD-EDIT-DATES*)) (CL:SETQ *REPLACE-OLD-EDIT-DATES* T)) (SET-DOCUMENTATION (QUOTE *REPLACE-OLD-EDIT-DATES*) (QUOTE CL:VARIABLE) "NIL or T; if NIL, old edit dates will not be replaced") (MOVD? (QUOTE EDITDATE) (QUOTE TTY/EDITDATE)) (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 1992 1993)) NIL