1
0
mirror of synced 2026-05-10 01:19:10 +00:00
Files
Interlisp.medley/library/PSEUDOHOSTS.LCOM

181 lines
8.7 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "27-Apr-2026 21:16:52" ("compiled on " {MEDLEY}<library>PSEUDOHOSTS.;189)
"26-Apr-2026 21:23:17" brecompiled exprs%: PSEUDOHOST PSEUDOHOSTP PSEUDOFILENAME PSEUDOFILENAMES
EXPAND.PH CONTRACT.PH in "FULL 26-Apr-2026 ..." dated "26-Apr-2026 21:23:26")
(FILECREATED "27-Apr-2026 21:16:52" {WMEDLEY}<library>PSEUDOHOSTS.;189 30476 :EDIT-BY rmk :CHANGES-TO
(FNS CONTRACT.PH PSEUDOHOST PSEUDOHOSTP PSEUDOFILENAME EXPAND.PH PSEUDOFILENAMES) (VARS
PSEUDOHOSTSCOMS) (RECORDS TARGETDEVICE) :PREVIOUS-DATE "26-Apr-2026 10:31:30"
{MEDLEY}<library>PSEUDOHOSTS.;188)
PSEUDOHOSTA0017 :D8
(I 1 P2 I 0 P1) @ A ń(15 NCHARS 7 NCHARS)
NIL
()
PSEUDOHOST :D8
(P 7 PHDEV P 6 PREFIXHOST P 5 TARGETDEVICE P 4 TARGETHOST P 3 \INTERRUPTABLE P 2 TARGETDEV P 0 PHHOST I 3 NOERROR I 2 CDSUFFIX I 1 PREFIX I 0 HOST) ś@džżAŞ@bż@b€@ l{đš@l
b€@m˙
l}đ›@kmţ b€@ bAµbd ˘±@`
!HÉ2şH`
ż@h
±ůÉ6ąJ@II
6ż°ÉC
b«gh
ż@ —@h
ż@Ag
^ł gg^gA b€AN
b
o
ł"AoA
•o„o
b€Ag
\gđ©Ldgđ—żA Śgđ<>A bżL µCśgh
µ
oL
˝@`M
d@żdM2żdA4żdhżdgżdgżdg żdgżdgżdgżdgżdg żdgżdgżdgDżdg
żM@Adm˙
l/đ•g„ghMÉ6g
6°o@o żA´B—@B
żA´@(660 CDPSEUDO 647 ERROR 642 CONCAT 617 SORT 579 NTHCHARCODE 559 \DEFINEDEVICE 426 NCREATE2 413 ERROR 400 RETFROM 385 \GETDEVICEFROMHOSTNAME 376 SLASHIT 362 UNSLASHIT 338 U-CASE 333 FILENAMEFIELD 319 CONCAT 302 STRPOS 288 MEMB 278 NTHCHARCODE 269 EXPAND.PH 259 UNSLASHIT 254 PACKFILENAME 229 U-CASE 224 FILENAMEFIELD 209 PSEUDOHOST 201 PSEUDOHOSTP 194 RETFROM 180 TRUEFILENAME 169 DREMOVE 141 \DEFINEDEVICE 128 DREMOVE 99 \GETDEVICEFROMNAME 84 PSEUDOHOSTP 73 U-CASE 68 MKATOM 59 SUBSTRING 46 NTHCHARCODE 35 SUBSTRING 23 CHCON1)
(612 PSEUDOHOSTA0017 604 FDEV 594 < 588 / 569 FDEV 551 SETFILEINFO.PH 542 GETFILEINFO.PH 533 GENERATEFILES.PH 524 \ADD-OPEN-STREAM 515 \GENERIC-UNREGISTER-STREAM 506 \GENERIC.OPENP 497 DELETEFILE.PH 488 REOPENFILE.PH 479 CLOSEFILE.PH 470 DIRECTORYNAMEP.PH 461 GETFILENAME.PH 452 OPENFILE.PH 420 |FDEVTYPE#| 394 PSEUDOHOST 368 UNIX 353 CORE 344 DSK 328 HOST 248 BODY 242 DSK 237 HOST 219 HOST 188 PSEUDOHOST 160 FDEV 151 FDEV 133 \FILEDEVICES 123 \FILEDEVICES 108 FDEV 94 \FILEDEVICES)
( 637 " NOT FOUND" 631 "PREFIX FOR PSEUDOHOST " 407 "UNKNOWN TARGET HOST" 314 ">" 308 "/" 296 "/" 283 (62 47 60))
PSEUDOHOSTP :D8
(P 0 DEV I 0 HOST) L<00>@É
‡@id Hd˛#É2Ă´HÉHÉ4h(33 \GETDEVICEFROMNAME)
(68 FDEV 60 FDEV 52 FDEV 45 FDEV 22 STREAM 15 STREAM 5 FDEV)
()
PSEUDOHOSTS :D8
(P 4 DEV F 5 \FILEDEVICES) AUAHµI\É2òLÉLÉ4h»Jµ KhZąHX°ĚK&ş°řNIL
(39 FDEV 31 FDEV 23 FDEV 16 FDEV)
()
TARGETHOST :D8
(I 0 HOST) U@ ˛/@É
É2Ă´7@É
É2É@ ´@id É2É(68 \GETDEVICEFROMNAME 58 PSEUDOHOSTP 5 STREAMP)
(80 FDEV 73 FDEV 49 FDEV 42 FDEV 35 STREAM 27 FDEV 20 FDEV 13 STREAM)
()
TRUEDEVICE :D8
(P 0 DEV I 0 X) =@ <00>@É
…@ HÉ2Ă<00>HÉ2H(31 \GETDEVICEFROMNAME 15 STREAMP)
(54 FDEV 47 FDEV 40 FDEV 22 STREAM 5 FDEV)
()
TRUEFILENAME :D8
(P 5 DEVICE P 4 FILENAME P 3 F I 1 NOERROR I 0 FILE) h@˛"@d[ ¸HhZ<>H&ąµęJ @ ˛@ɵ@Ľ@É
Ś@ \A
]d˛ĐÉ4—LM
L(99 EXPAND.PH 80 \GETDEVICEFROMNAME 73 \ADD.CONNECTED.DIR 44 STREAMP 17 TRUEFILENAME)
(89 FDEV 64 STREAM 52 STREAM)
()
PSEUDOFILENAME :D8
(P 7 PN P 6 D P 5 FILENAME P 3 F I 1 PHOST I 0 FILE) w@˛#@d[A
¸HhZ<>H&ąµéJ`@ <00>@É…@ "LµM^É4˛AšANÉđźMdNA _đ˘OL\°Đ(105 CONTRACT.PH 63 \ADD.CONNECTED.DIR 47 STREAMP 18 PSEUDOFILENAME)
(92 FDEV 79 FDEV 54 STREAM 41 \FILEDEVICES)
()
PSEUDOFILENAMES :D8
(P 6 PN P 5 D P 1 TRUENAME I 0 FILE) H`@ RHµIJ]É4˛IdMÉ
^đ©NĽKµ Lh[şHX°ĎL&»°ř(47 PSEUDOFILENAME 10 TRUEFILENAME)
(40 FDEV 28 FDEV 4 \FILEDEVICES)
()
CDPSEUDO :D8
(P 0 CNAME I 2 FILEPKGFLG I 1 CDSUFFIX I 0 PHOST) o@ b´dA´aoA
o@o bgHogggg@o@hhh (108 EVAL 48 CONCAT 29 PACK* 24 L-CASE 5 PSEUDOHOSTP)
(81 CONCAT 76 SUBDIR 71 CL:IF 66 /CNDIR 55 DEFCOMMAND)
( 87 ("/" SUBDIR) 61 (SUBDIR) 43 "}" 37 "{" 18 "cd")
EXPAND.PH :D8
(P 1 SUFFIXPOS P 0 SUFFIX I 1 PHDEV I 0 FILENAME) ś˛cAŞ@É
bż@ɵ@bżAÉ4˛n o@
Y´\@IkŘ
µoXd dl<đŞdl>đĄdl/đ˛żi°ł´@ b°¨żh<C5BC>Hl
¸AÉ4H
@(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 5 PM P 3 CONNECTOR P 2 SUFFIX P 1 PREFIXMNAP P 0 PREFIXMAPS I 2 PHOST I 1 PHDEV I 0 TRUENAME F 6 PREFIXMAP F 7 PREFIX F 8 FILEDIRCASEARRAY) Đ@´‚±ČAèA bżBiđšAÉbżAÉ2É61HLµChc d˘±‡dc@W
ZoJ
˛JV[dgđ˛0J °.˝B•BMđ˛M@khihW
•Mµ¤i°ˇL<>J
şgVoo @(203 PACK* 177 CONCAT 172 UNSLASHIT 154 STRPOS 126 SLASHIT 104 STRPOS 92 SUBSTRING 85 NCHARS 19 \GETDEVICEFROMNAME)
(183 { 117 / 50 FDEV 43 FDEV 32 FDEV 12 FDEV)
( 198 "" 190 "}" 98 ">")
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µ Hkđ˛tJHŮkŘąJkI JIkŘ
µo
ş°Ńl/đ˛KąOµl<°l}đłůl>°Ol<đ©Oddl>đ—żżKąOO_żľMµNh]Ľ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
(14 GETHOSTINFO.ORIG 5 TARGETHOST)
NIL
()
OPENFILE.PH :D8
(P 3 A0694 P 2 STREAM P 1 TARGETDEV I 5 OLDSTRING I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 FILE) oDÉ2DÉ2É@D
ABCDÉ2ElHJ´6IÉ IJlKJJÉDi żJD
J(95 CONTRACT.PH 32 EXPAND.PH)
(104 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) ;BÉ2É@B
ABÉ2lHB@g
(56 CONTRACT.PH 51 FILENAMEFIELD 24 EXPAND.PH)
(46 HOST 31 FDEV 12 FDEV 5 FDEV)
()
DIRECTORYNAMEP.PH :D8
(I 2 CREATE? I 1 DEV I 0 DIRSPEC) =@m˙
l}đµ0AÉ2É @A
AÉ2BlHA
(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) QDÉ2É@D
ABCDÉ2ElHIIÉDi ID
I(66 CONTRACT.PH 24 EXPAND.PH)
(74 STREAM 57 STREAM 51 STREAM 33 FDEV 12 FDEV 5 FDEV)
()
DELETEFILE.PH :D8
(I 1 DEV I 0 FILENAME) 7AÉ2É@A
AÉ2lHAdÉ (52 CONTRACT.PH 24 EXPAND.PH)
(45 FDEV 30 FDEV 12 FDEV 5 FDEV)
()
GENERATEFILES.PH :D8
(P 1 TARGETGENOBJ I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 FDEV) H@É2É@É2A@
BClHgg@I@Éh(32 EXPAND.PH)
(61 FDEV 53 FILEINFOFN.PH 48 NEXTFILEFN.PH 23 FDEV 12 FDEV 5 FDEV)
()
GETFILEINFO.PH :D8
(I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) @ A
(11 GETFILEINFO 5 TRUEFILENAME)
NIL
()
SETFILEINFO.PH :D8
(I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 STREAM) @ AB (12 SETFILEINFO 5 TRUEFILENAME)
NIL
()
NEXTFILEFN.PH :D8
(P 3 FILENAME P 1 TARGETGENFILESTATE P 0 TARGETGENOBJ I 1 NAMEONLY I 0 GENFILESTATE) ,@!HąHşIAlJK´A¬K@@ K(39 CONTRACT.PH)
NIL
()
FILEINFOFN.PH :D8
(I 1 ATTRIBUTE I 0 GENFILESTATE) @@AlHNIL
NIL
()
(PRETTYCOMPRINT PSEUDOHOSTSCOMS)
(RPAQQ PSEUDOHOSTSCOMS ((* ;; "Public entries") (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST
TRUEDEVICE TRUEFILENAME PSEUDOFILENAME PSEUDOFILENAMES) (FNS CDPSEUDO) (* ;; "Internals") (FNS
EXPAND.PH CONTRACT.PH UNSLASHIT GETHOSTINFO.PH) (FNS OPENFILE.PH GETFILENAME.PH DIRECTORYNAMEP.PH
CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH GENERATEFILES.PH GETFILEINFO.PH SETFILEINFO.PH NEXTFILEFN.PH
FILEINFOFN.PH) (P (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))))
(MOVD? (QUOTE GETHOSTINFO) (QUOTE GETHOSTINFO.ORIG))
(MOVD (QUOTE GETHOSTINFO.PH) (QUOTE GETHOSTINFO))
NIL