(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "17-Nov-93 18:00:12" ("compiled on " {DSK}export>lispcore>lispusers>CD.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED " 6-Jul-88 11:51:18" {IVY}LISP>UTIL>CD.;8 18509 changes to%: (VARS CDCOMS) ( FNS CDFun) previous date%: "14-Dec-87 15:41:38" {ERINYES}LYRIC>LISPUSERS>CD.;2) CDFun :D8 (P 8 this P 7 prev P 6 dp P 5 this P 4 prev P 3 sep P 2 dir P 1 host P 0 target I 0 d)  @yi Hg Hg I @k dg@ g{@ lM@k g>jKJLk ]*gIgJkLkdjjJ h@l i g @ ^N jNk glN Nk g0N jKJOk _7JkOkdjjJ ZNk KNk gN _JKN gIgJ  (388 ChangeDir 383 CDName 377 ChangeDir 372 PACKFILENAME 354 PACK* 339 GNC 325 NTHCHAR 315 NTHCHAR 306 SUBSTRING 284 STRPOS 268 GNC 254 NTHCHAR 246 GNC 232 NTHCHAR 219 NCHARS 211 MKSTRING 201 ChangeDir 196 CDName 191 FILENAMEFIELD 181 DIRECTORYNAME 175 SUBSTRING 162 ChangeDir 157 PACKFILENAME 152 SUBSTRING 121 STRPOS 99 NTHCHAR 87 NCHARS 72 ChangeDir 57 NTHCHAR 47 CDSepr 38 FILENAMEFIELD 24 FILENAMEFIELD 10 DIRECTORYNAME) (366 DIRECTORY 360 HOST 330 > 259 %. 237 %. 186 HOST 135 DIRECTORY 129 HOST 104 < 78 < 63 { 33 DIRECTORY 19 HOST) () CDSepr :D8 (I 0 host) @`@ `g(15 GETOSTYPE) (29 > 20 CD.OS.SEPRS 5 CD.OS.SEPRS) () CDName :D8 (I 1 host I 0 dir) A`b@%dgdgih`bgAg`Gdgdgih`d`Ag`A @ @ (140 PACKFILENAME 133 PACK* 127 CDSepr 70 MACHINETYPE 17 MACHINETYPE) (121 CD.DEFAULT.PREFIX 113 DSK 104 LocalDiskVolume 98 CD.DEFAULT.PREFIX 84 DOVE 76 DANDELION 63 CD.DEFAULT.PREFIX 58 DIRECTORY 52 HOST 44 CD.DEFAULT.USER 31 DOVE 23 DANDELION 6 CD.DEFAULT.HOST) () ChangeDir :D8 (I 0 dir) i @ (11 /CNDIR 5 DIRECTORYNAME) NIL () ReshowConn :D8 (P 3 FONT P 2 REG P 1 TTYREG P 0 DN) i ` "` sjdl dhZhdi gg glhdgi [K` Jjh` hd `J ` ` ` h Zd`IJ`IImJH` h `J ` ` H` h(282 PRIN3 271 OPENW 261 DSPRESET 251 SHAPEW 239 WIDTHIFWINDOW 233 STRINGWIDTH 185 \APPEND2 177 \INSUREWINDOW 166 CLOSEW 155 ACTIVEWP 144 SHAPEW 131 HEIGHTIFWINDOW 123 DSPLINEFEED 106 DSPFONT 93 FONTCREATE 71 PUTWINDOWPROP 51 CREATEW 30 WINDOWP 15 \INSUREWINDOW 5 DIRECTORYNAME) (277 CONNWINDOW 266 CONNWINDOW 256 CONNWINDOW 245 CONNWINDOW 228 CONNWINDOW 204 CD.DEFAULT.BOTTOM 192 CD.DEFAULT.LEFT 172 CONNWINDOW 161 CONNWINDOW 150 CONNWINDOW 138 CONNWINDOW 118 CONNWINDOW 101 CONNWINDOW 86 DISPLAY 77 HELVETICA 66 ShowCDMenu 61 BUTTONEVENTFN 56 CONNWINDOW 25 CONNWINDOW 10 \TopLevelTtyWindow) () ShowCDMenuA0004 :D8 (L (3 vals 2 key 1 menu 0 item)) B@NIL NIL () ShowCDMenuA0010 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) i@hdcg(26 BLOCK 9 COPYBUTTONDOWN?) (20 :NORMAL) () ShowCDMenu :D8 (P 9 $dir$ P 8 *CONDITION-HANDLER-BINDINGS* P 7 SI::*NLSETQFLAG* P 6 *PROCEED-CASES* P 5 SI::NLSETQ-VALUE P 3 mv P 2 copyFlg I 0 cw F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS*) 6 ```d`glhdgi HdIdgdg dgjdndhHdI  KJ?`WioWN gM~K KdgK dgdgSoK K `4`d`dg dgjdndhdL (307 SHOULDNT 300 MENU 233 PROMPTPRINT 202 CDFun 183 BKSYSBUF 163 ShowCDMenuA0010 128 COPYBUTTONDOWN? 110 MENU 47 FONTCREATE 4 COPYBUTTONDOWN?) (275 DEFAULTMENUHELDFN 266 CLRPROMPT 257 CDCommandMenuItems 250 |MENUTYPE#| 243 CDCommandMenu 217 RIGHT 209 MIDDLE 192 LEFT 169 :NORMAL 142 SI::NLSETQ-PROCEED-CASE 81 DEFAULTMENUHELDFN 72 CLRPROMPT 63 ShowCDMenuA0004 40 DISPLAY 31 HELVETICA 23 CDMenuItems 16 |MENUTYPE#| 9 CDMenu) ( 226 "Choose action for directory " 151 (CL:ERROR . SI::NLSETQHANDLER)) COPYBUTTONDOWN? :D8 NIL g (9 SHIFTDOWNP) (4 SHIFT) () (PRETTYCOMPRINT CDCOMS) (RPAQQ CDCOMS ((FNS CDFun CDSepr CDName ChangeDir ReshowConn ShowCDMenu COPYBUTTONDOWN?) (INITVARS ( LocalDiskVolume (COND ((FMEMB (MACHINETYPE) (QUOTE (DANDELION DOVE))) (FILENAMEFIELD (DIRECTORYNAME ( QUOTE {DSK})) (QUOTE DIRECTORY))))) (CD.DEFAULT.HOST (QUOTE DSK)) (CD.DEFAULT.PREFIX LocalDiskVolume) (CD.DEFAULT.USER (LET ((pos (STRPOS "." (USERNAME)))) (COND (pos (PACK* (SUBSTRING (USERNAME) 1 ( DIFFERENCE pos 1)))) (T (USERNAME))))) (CD.DEFAULT.LEFT) (CD.DEFAULT.BOTTOM) (CDMenuItems) ( LOGINHOST/DIR (CDName)) (CONNWINDOW) (CDMenu) (CDCommandMenu)) (ADDVARS (LISPXCOMS CD) ( AFTERSYSOUTFORMS (SETQ CD.DEFAULT.PREFIX (SETQ LocalDiskVolume (COND ((FMEMB (MACHINETYPE) (QUOTE ( DANDELION DOVE))) (FILENAMEFIELD (DIRECTORYNAME (QUOTE {DSK})) (QUOTE DIRECTORY))))))) (POSTGREETFORMS (SETQ CD.DEFAULT.USER (LET ((pos (STRPOS "." (USERNAME)))) (COND (pos (PACK* (SUBSTRING (USERNAME) 1 (DIFFERENCE pos 1)))) (T (USERNAME))))) (SETQ CD.DEFAULT.PREFIX (SETQ LocalDiskVolume (COND ((FMEMB ( MACHINETYPE) (QUOTE (DANDELION DOVE))) (FILENAMEFIELD (DIRECTORYNAME (QUOTE {DSK})) (QUOTE DIRECTORY)) )))) (SETQ LOGINHOST/DIR (CDName))) (CD.OS.SEPRS (DSK . >) (UNIX . /) (VMS . /) (NS . >) (IFS . >)) ( CDCommandMenuItems (Connect (CDFun $dir$) "Connect to the directory") (Browse (APPLY* (FUNCTION FB) $dir$) "Bring up a file browser on the directory") (Delete (PROGN (SETQ CDMenu NIL) (SETQ CDMenuItems (DREMOVE $dir$ CDMenuItems))) "Remove the directory from the CD menu"))) (ADVISE CNDIR DIRECTORYNAME) (LISPXMACROS CD) (COMMANDS "CD") (P ((LAMBDA (new) (COND ((FMEMB new CDMenuItems) CDMenuItems) (T ( SETQ CDMenuItems (CONS new CDMenuItems))))) (PACK* (DIRECTORYNAME (QUOTE {DSK}))))) (PROP MAKEFILE-ENVIRONMENT CD) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (GLOBALVARS CD.DEFAULT.HOST CD.DEFAULT.PREFIX CD.OS.SEPRS LocalDiskVolume CD.DEFAULT.USER CD.DEFAULT.LEFT CD.DEFAULT.BOTTOM CONNWINDOW CDMenu CDMenuItems CDCommandMenuItems CDCommandMenu)))) (RPAQ? LocalDiskVolume (COND ((FMEMB (MACHINETYPE) (QUOTE (DANDELION DOVE))) (FILENAMEFIELD ( DIRECTORYNAME (QUOTE {DSK})) (QUOTE DIRECTORY))))) (RPAQ? CD.DEFAULT.HOST (QUOTE DSK)) (RPAQ? CD.DEFAULT.PREFIX LocalDiskVolume) (RPAQ? CD.DEFAULT.USER (LET ((pos (STRPOS "." (USERNAME)))) (COND (pos (PACK* (SUBSTRING (USERNAME) 1 (DIFFERENCE pos 1)))) (T (USERNAME))))) (RPAQ? CD.DEFAULT.LEFT) (RPAQ? CD.DEFAULT.BOTTOM) (RPAQ? CDMenuItems) (RPAQ? LOGINHOST/DIR (CDName)) (RPAQ? CONNWINDOW) (RPAQ? CDMenu) (RPAQ? CDCommandMenu) (ADDTOVAR LISPXCOMS CD) (ADDTOVAR AFTERSYSOUTFORMS (SETQ CD.DEFAULT.PREFIX (SETQ LocalDiskVolume (COND ((FMEMB (MACHINETYPE) ( QUOTE (DANDELION DOVE))) (FILENAMEFIELD (DIRECTORYNAME (QUOTE {DSK})) (QUOTE DIRECTORY))))))) (ADDTOVAR POSTGREETFORMS (SETQ CD.DEFAULT.USER (LET ((pos (STRPOS "." (USERNAME)))) (COND (pos (PACK* (SUBSTRING (USERNAME) 1 (DIFFERENCE pos 1)))) (T (USERNAME))))) (SETQ CD.DEFAULT.PREFIX (SETQ LocalDiskVolume (COND ((FMEMB (MACHINETYPE) (QUOTE (DANDELION DOVE))) (FILENAMEFIELD (DIRECTORYNAME ( QUOTE {DSK})) (QUOTE DIRECTORY)))))) (SETQ LOGINHOST/DIR (CDName))) (ADDTOVAR CD.OS.SEPRS (DSK . >) (UNIX . /) (VMS . /) (NS . >) (IFS . >)) (ADDTOVAR CDCommandMenuItems (Connect (CDFun $dir$) "Connect to the directory") (Browse (APPLY* ( FUNCTION FB) $dir$) "Bring up a file browser on the directory") (Delete (PROGN (SETQ CDMenu NIL) (SETQ CDMenuItems (DREMOVE $dir$ CDMenuItems))) "Remove the directory from the CD menu")) (XCL:REINSTALL-ADVICE (QUOTE CNDIR) :AROUND (QUOTE ((:LAST (PROG ((val (NLSETQ *))) (ReshowConn) ( RETURN (if val then (if (NOT (FMEMB (CAR val) CDMenuItems)) then (push CDMenuItems (CAR val)) (SETQ CDMenu NIL)) (CAR val) else (ERROR!)))))))) (XCL:REINSTALL-ADVICE (QUOTE DIRECTORYNAME) :AFTER (QUOTE ((:LAST (COND ((AND (EQ (QUOTE DSK) ( FILENAMEFIELD !VALUE (QUOTE HOST))) (NOT (FMEMB (NTHCHAR !VALUE -1) (QUOTE (> }))))) (SETQ !VALUE ( PACK* !VALUE ">")))))))) (READVISE CNDIR DIRECTORYNAME) (ADDTOVAR LISPXMACROS (CD (CDFun (CAR LISPXLINE)))) (ADDTOVAR LISPXCOMS CD) (DEFCOMMAND ("CD" :EVAL) (&OPTIONAL XCL-USER::DIR-SPEC) "un*x style directory changing, e.g. cd foo (use << for ..)" (LET ((XCL-USER::DS XCL-USER::DIR-SPEC)) (CDFun (CL:IF (EQ XCL-USER::DS (QUOTE XCL-USER::<<)) (QUOTE XCL-USER::|..|) XCL-USER::DS)))) ((LAMBDA (new) (COND ((FMEMB new CDMenuItems) CDMenuItems) (T (SETQ CDMenuItems (CONS new CDMenuItems) )))) (PACK* (DIRECTORYNAME (QUOTE {DSK})))) (PUTPROPS CD MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) (PUTPROPS CD COPYRIGHT ("Henry Thompson, Dept. of Artificial Intelligence, Univ. of Edinburgh" 1984 1985 1986 1987 1988)) NIL