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

177 lines
8.6 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 "26-Apr-2026 10:31:30" ("compiled on " {MEDLEY}<library>PSEUDOHOSTS.;188)
"16-Apr-2026 11:19:55" brecompiled exprs%: PSEUDOFILENAME CONTRACT.PH OPENFILE.PH REOPENFILE.PH in
"FULL 16-Apr-2026 ..." dated "16-Apr-2026 11:20:03")
(FILECREATED "26-Apr-2026 10:31:30" {MEDLEY}<library>PSEUDOHOSTS.;188 29278 :EDIT-BY rmk :CHANGES-TO (
FNS CONTRACT.PH PSEUDOFILENAME OPENFILE.PH REOPENFILE.PH CDPSEUDO DELETEFILE.PH NEXTFILEFN.PH
GENERATEFILES.PH GETFILENAME.PH GETFILEINFO.PH CONTRACT.PH.PREFIXMAP RENAMEFILE.PH PSEUDOHOST
SETFILEINFO.PH) (MACROS PSEUDOHOST.NAME) (VARS PSEUDOHOSTSCOMS) :PREVIOUS-DATE "26-Nov-2025 17:26:18"
{MEDLEY}<library>PSEUDOHOSTS.;182)
PSEUDOHOSTA0017 :D8
(I 1 P2 I 0 P1) @ A ń(13 NCHARS 6 NCHARS)
NIL
()
PSEUDOHOST :D8
(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µfd b˘±@`
!HÉ2şH`
ż@h
±őÉ6ąJAII
6ż°ÉC
b«gh
ż@ —@h
ż0Ag
^ł 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
żMA@Am˙
l/đ•g„ghMÉ6g
6°o@o żA´B—@B
żA´@(660 CDPSEUDO 647 ERROR 642 CONCAT 618 SORT 580 NTHCHARCODE 563 \DEFINEDEVICE 430 NCREATE2 417 ERROR 404 RETFROM 389 \GETDEVICEFROMHOSTNAME 380 SLASHIT 366 UNSLASHIT 342 U-CASE 337 FILENAMEFIELD 323 CONCAT 306 STRPOS 292 MEMB 282 NTHCHARCODE 273 EXPAND.PH 263 UNSLASHIT 258 PACKFILENAME 233 U-CASE 228 FILENAMEFIELD 213 PSEUDOHOST 205 PSEUDOHOSTP 198 RETFROM 184 TRUEFILENAME 173 DREMOVE 145 \DEFINEDEVICE 132 DREMOVE 103 \GETDEVICEFROMNAME 84 PSEUDOHOSTP 73 U-CASE 68 MKATOM 59 SUBSTRING 46 NTHCHARCODE 35 SUBSTRING 23 CHCON1)
(613 PSEUDOHOSTA0017 605 FDEV 595 < 589 / 570 FDEV 555 SETFILEINFO.PH 546 GETFILEINFO.PH 537 GENERATEFILES.PH 528 \ADD-OPEN-STREAM 519 \GENERIC-UNREGISTER-STREAM 510 \GENERIC.OPENP 501 DELETEFILE.PH 492 REOPENFILE.PH 483 CLOSEFILE.PH 474 DIRECTORYNAMEP.PH 465 GETFILENAME.PH 456 OPENFILE.PH 424 |FDEVTYPE#| 398 PSEUDOHOST 372 UNIX 357 CORE 348 DSK 332 HOST 252 BODY 246 DSK 241 HOST 223 HOST 192 PSEUDOHOST 164 FDEV 155 FDEV 137 \FILEDEVICES 127 \FILEDEVICES 112 FDEV 98 \FILEDEVICES)
( 637 " NOT FOUND" 631 "PREFIX FOR PSEUDOHOST " 411 "UNKNOWN TARGET HOST" 318 ">" 312 "/" 300 "/" 287 (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) i@˛#@d[A
¸HhZ<>H&ąµéJ`@ <00>@É…@ "LµM^É4źMdNA _đ˘OL\°Ţ(91 CONTRACT.PH 63 \ADD.CONNECTED.DIR 47 STREAMP 18 PSEUDOFILENAME)
(79 FDEV 54 STREAM 41 \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 8 PREFIX P 7 PM P 3 CONNECTOR P 2 SUFFIX P 1 PREFIXMNAP P 0 PREFIXMAPS I 2 PHOST I 1 PHDEV I 0 NAME F 9 PREFIXMAP F 10 PREFIX F 11 FILEDIRCASEARRAY) ć @´‚±ŢAèA bżBiđšAÉbżAÉ2É6QB—H\µNhµ H!NµUhcd˘±“dc@W
ZoJ
˛UW[dgđ˛:J °8˝BMđ•Mµ¸i°©L° _@khihW
Oµši°—N^°ŽJ
şgWoo @(225 PACK* 197 CONCAT 192 UNSLASHIT 173 STRPOS 136 SLASHIT 113 STRPOS 101 SUBSTRING 94 NCHARS 19 \GETDEVICEFROMNAME)
(203 { 127 / 50 FDEV 43 FDEV 32 FDEV 12 FDEV)
( 220 "" 212 "}" 107 ">")
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) (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