(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-Sep-2023 15:29:50" ("compiled on " {WMEDLEY}PSEUDOHOSTS.;158) "22-Sep-2023 11:34:09" brecompiled exprs%: PSEUDOHOST in "FULL 22-Sep-2023 ..." dated "22-Sep-2023 11:34:16") (FILECREATED "22-Sep-2023 15:29:50" {WMEDLEY}PSEUDOHOSTS.;158 26638 :EDIT-BY rmk :CHANGES-TO (FNS PSEUDOHOST SLASHIT CONTRACT.PH) (VARS PSEUDOHOSTSCOMS) :PREVIOUS-DATE "26-Jul-2023 12:34:37" {WMEDLEY}PSEUDOHOSTS.;155) PSEUDOHOSTA0018 :D8 (I 1 P2 I 0 P1) @ A (13 NCHARS 6 NCHARS) NIL () PSEUDOHOST :D8 (P 6 \INTERRUPTABLE P 5 TARGETDEV P 3 PHHOST P 2 PREFIXHOST P 1 TARGETDEVICE P 0 TARGETHOST I 1 PREFIX I 0 HOST F 7 \FILEDEVICES) J@dA@b@b@ l{@l b@m l}@km b@ bAd @h 0Ag Z ggZgA bAJ bm o "AoA oo bAg XgHdgA gA bH oH @`I d@dI2dA4dhdgdgdg dgdgdgdgdg dgdgdgDdgFdg IA@Am l/gghI6g 6:@ b.@W !K2MKW c@h @6MALL 6(579 DREMOVE 554 \DEFINEDEVICE 544 DREMOVE 518 \GETDEVICEFROMNAME 504 PSEUDOHOSTP 493 SORT 455 NTHCHARCODE 438 \DEFINEDEVICE 296 NCREATE2 283 ERROR 270 \GETDEVICEFROMHOSTNAME 261 SLASHIT 247 UNSLASHIT 223 U-CASE 218 FILENAMEFIELD 204 CONCAT 187 STRPOS 173 MEMB 163 NTHCHARCODE 154 EXPAND.PH 144 UNSLASHIT 139 PACKFILENAME 114 U-CASE 109 FILENAMEFIELD 94 PSEUDOHOST 86 PSEUDOHOSTP 73 U-CASE 68 MKATOM 59 SUBSTRING 46 NTHCHARCODE 35 SUBSTRING 23 CHCON1) (570 FDEV 561 FDEV 527 FDEV 488 PSEUDOHOSTA0018 480 FDEV 470 < 464 / 445 FDEV 430 RENAMEFILE.PH 421 SETFILEINFO.PH 412 GETFILEINFO.PH 403 GENERATEFILES.PH 394 \ADD-OPEN-STREAM 385 \GENERIC-UNREGISTER-STREAM 376 \GENERIC.OPENP 367 DELETEFILE.PH 358 REOPENFILE.PH 349 CLOSEFILE.PH 340 DIRECTORYNAMEP.PH 331 GETFILENAME.PH 322 OPENFILE.PH 290 |FDEVTYPE#| 253 UNIX 238 CORE 229 DSK 213 HOST 133 BODY 127 DSK 122 HOST 104 HOST) ( 277 "UNKNOWN TARGET HOST" 199 ">" 193 "/" 181 "/" 168 (62 47 60)) PSEUDOHOSTP :D8 (P 0 DEV I 0 HOST) 2@id Hd#2HH4h(7 \GETDEVICEFROMNAME) (42 FDEV 34 FDEV 26 FDEV 19 FDEV) () PSEUDOHOSTS :D8 (P 4 DEV F 5 \FILEDEVICES) AUAHI\2LL4hJ KhZHXK&NIL (39 FDEV 31 FDEV 23 FDEV 16 FDEV) () TARGETHOST :D8 (I 0 HOST) @ @ 2(13 \GETDEVICEFROMNAME 5 PSEUDOHOSTP) (25 FDEV 18 FDEV) () TRUEFILENAME :D8 (P 5 DEVICE P 4 FILENAME P 3 F I 0 FILE) a@"@@d[ IHhZH&J @ @@ @ \ ]4LM L(92 EXPAND.PH 76 \GETDEVICEFROMNAME 70 \ADD.CONNECTED.DIR 44 STREAMP 17 TRUEFILENAME) (82 FDEV 61 STREAM 52 STREAM) () PSEUDOFILENAME :D8 (P 7 PN P 6 D P 5 FILENAME P 3 F I 0 FILE F 8 \FILEDEVICES) d@"@@d[ IHhZH&JW@ @@ "LM^4MdN _OL\(86 CONTRACT.PH 59 \ADD.CONNECTED.DIR 43 STREAMP 17 PSEUDOFILENAME) (75 FDEV 50 STREAM) () EXPAND.PH :D8 (P 1 SUFFIXPOS P 0 SUFFIX I 1 PHDEV I 0 FILENAME) @cA@ b@@bA4n o@ Y\@Ik oXd dl
dl/iAA@ bhHl A4H @(151 CONCAT 136 SUBSTRING 121 \GETDEVICEFROMNAME 84 CHCON1 70 SUBSTRING 58 STRPOS) (143 FDEV 110 FDEV 40 FDEV 26 STREAM 15 STREAM 5 STREAM) ( 77 "" 52 "}") CONTRACT.PH :D8 (P 4 CONNECTOR P 3 SUFFIX P 2 PREFIX P 1 PM I 1 PHDEV I 0 NAME F 5 FILEDIRCASEARRAY) AA b@A26AH@YZ@khihU _@J k oKkhddU "I\dgK K gIoKo HX(156 PACK* 129 CONCAT 124 UNSLASHIT 117 SLASHIT 96 STRPOS 78 SUBSTRING 71 NCHARS 62 STRPOS 12 \GETDEVICEFROMNAME) (135 { 109 / 35 FDEV 28 FDEV 5 FDEV) ( 151 "" 143 "}" 84 ">") UNSLASHIT :D8 (P 8 LASTC P 7 C P 3 I P 2 UNSLASHED P 1 LASTDIRPOS P 0 DIRPOS I 1 LCASEDIRS I 0 X) o@ jk!HQ@K _@L ZAI HktJHkعJkI JIk o l/KOl<l}l>Ol𗿿KOO_MNh]KkԻyN&@kHk J (181 CONCAT 175 SUBSTRING 92 CONCAT 80 SUBSTRING 71 L-CASE 66 SUBSTRING 40 CONCATCODES 29 NTHCHARCODE 10 STRPOS) NIL ( 87 "" 4 "}") GETHOSTINFO.PH :D8 (I 1 ATTRIBUTE I 0 HOST) @ @@A (15 GETHOSTINFO.ORIG 5 TARGETHOST) NIL () OPENFILE.PH :D8 (P 3 A0191 P 2 STREAM P 1 TARGETDEV I 5 OLDSTRING I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) nD2D2@D ABCD2ElHJ5I IJlKJJD JD J(94 CONTRACT.PH 32 EXPAND.PH) (103 STREAM 86 STREAM 80 STREAM 62 FDEV 41 FDEV 20 FDEV 13 FDEV 5 FDEV) () GETFILENAME.PH :D8 (I 2 FDEV I 1 RECOG I 0 NAME) 0B2@B AB2lHB (45 CONTRACT.PH 24 EXPAND.PH) (31 FDEV 12 FDEV 5 FDEV) () DIRECTORYNAMEP.PH :D8 (I 2 CREATE? I 1 DEV I 0 DIRSPEC) =@m l}0A2 @A A2BlHA (58 CONTRACT.PH 37 EXPAND.PH 7 NTHCHARCODE) (43 FDEV 25 FDEV 18 FDEV) () CLOSEFILE.PH :D8 (I 1 ABORTFLG I 0 STREAM) "@ 2@AlHNIL (19 FDEV 12 FDEV 5 STREAM) () REOPENFILE.PH :D8 (P 1 STREAM I 5 OLDSTREAM I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) PD2@D ABCD2ElHIID ID I(65 CONTRACT.PH 24 EXPAND.PH) (73 STREAM 57 STREAM 51 STREAM 33 FDEV 12 FDEV 5 FDEV) () DELETEFILE.PH :D8 (I 1 DEV I 0 FILENAME) /A2@A A2lHA (44 CONTRACT.PH 24 EXPAND.PH) (30 FDEV 12 FDEV 5 FDEV) () OPENP.PH :D8 (I 2 DEVICE I 1 ACCESS I 0 FILENAME) )B2@B AB2lH(24 EXPAND.PH) (31 FDEV 12 FDEV 5 FDEV) () UNREGISTERFILE.PH :D8 (I 1 STREAM I 0 DEVICE) "@2 @2AlHNIL (23 FDEV 12 FDEV 5 FDEV) () REGISTERFILE.PH :D8 (I 1 STREAM I 0 DEVICE) "@2@2AlHNIL (23 FDEV 12 FDEV 5 FDEV) () GENERATEFILES.PH :D8 (I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 FDEV) ?@2@2A@ BClHgg@Hh(32 EXPAND.PH) (53 FILEINFOFN.PH 48 NEXTFILEFN.PH 23 FDEV 12 FDEV 5 FDEV) () GETFILEINFO.PH :D8 (I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) )B2D@B AB2lH(24 EXPAND.PH) (31 FDEV 12 FDEV 5 FDEV) () SETFILEINFO.PH :D8 (I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 STREAM) *C2F@C ABC2lH(24 EXPAND.PH) (32 FDEV 12 FDEV 5 FDEV) () NEXTFILEFN.PH :D8 (P 3 FILENAME P 1 TARGETGENFILESTATE P 0 TARGETGENOBJ I 1 NAMEONLY I 0 GENFILESTATE) (@!HHIAlJKAK@ K(35 CONTRACT.PH) NIL () FILEINFOFN.PH :D8 (I 1 ATTRIBUTE I 0 GENFILESTATE) @@AlHNIL NIL () RENAMEFILE.PH :D8 (P 3 RESULT P 2 NEWTARGETNAME P 1 NEWTARGETDEV P 0 OLDTARGETDEV I 3 NEW-NAME I 2 NEW-DEVICE I 1 OLD-NAME I 0 OLD-DEVICE) Q@2B2C#ICB HHA@ IBJlL[dIBdB K(76 CONTRACT.PH 51 EXPAND.PH 33 EXPAND.PH) (40 FDEV 25 FDEV 13 FDEV 5 FDEV) () (PRETTYCOMPRINT PSEUDOHOSTSCOMS) (RPAQQ PSEUDOHOSTSCOMS ((* ;; "Public entries") (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME) (* ;; "Internals") (FNS EXPAND.PH CONTRACT.PH UNSLASHIT GETHOSTINFO.PH) ( FNS OPENFILE.PH GETFILENAME.PH DIRECTORYNAMEP.PH CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH OPENP.PH UNREGISTERFILE.PH REGISTERFILE.PH GENERATEFILES.PH GETFILEINFO.PH SETFILEINFO.PH NEXTFILEFN.PH FILEINFOFN.PH RENAMEFILE.PH) (P (PSEUDOHOST (QUOTE LI) LOGINHOST/DIR) (MOVD? (QUOTE GETHOSTINFO) ( QUOTE GETHOSTINFO.ORIG)) (MOVD (QUOTE GETHOSTINFO.PH) (QUOTE GETHOSTINFO))) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE) (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL) (FILES (FROM LOADUPS) EXPORTS.ALL)))) (PSEUDOHOST (QUOTE LI) LOGINHOST/DIR) (MOVD? (QUOTE GETHOSTINFO) (QUOTE GETHOSTINFO.ORIG)) (MOVD (QUOTE GETHOSTINFO.PH) (QUOTE GETHOSTINFO)) NIL