Interlisp.medley/library/PSEUDOHOSTS.LCOM

(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şJµH`
ż@h
±
ůÉ6ąJ@II
6ż°ÉC
b«gh
ż@	—@h
ż@Ag
	^ł gg^gA	b€AN
bm˙
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żdgFż
żM@Adm˙
l/đ•g„ghMÉ6g
6°Cł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) A
UAHµ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
[	¸Iµ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
¸Iµ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@obgHogggg@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°AĂł´Aµ@	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˘±‡d
c@W	kŘ
ZoJ
˛JV
[dgđ˛0J	°.
˝B•BM
đ˛M
@khihW
•Mµ¤i°ˇL\°<>J	
şgV
oJµo@(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	ZA’Iµ	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É2ElH

IIÉDiID
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) 7
AÉ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@
BClH

gg@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
şIAlJ
K´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