869 lines
45 KiB
Plaintext
869 lines
45 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "20-Apr-2026 15:23:08" ("compiled on " {DSK}<home>matt>Interlisp>medley>sources>FILEIO.;3
|
||
) "18-Apr-2026 13:58:42" brecompiled changes%: \DO.PARAMS.AT.OPEN in "FULL 18-Apr-2026 ..." dated
|
||
"18-Apr-2026 13:59:48")
|
||
(FILECREATED "20-Apr-2026 15:23:07" {DSK}<home>matt>Interlisp>medley>sources>FILEIO.;3 165719 :EDIT-BY
|
||
"mth" :CHANGES-TO (FNS \DO.PARAMS.AT.OPEN) :PREVIOUS-DATE " 6-Feb-2026 23:22:00"
|
||
{DSK}<home>matt>Interlisp>medley>sources>FILEIO.;1)
|
||
(/DECLAREDATATYPE (QUOTE STREAM) (QUOTE (WORD WORD FLAG (BITS 3) POINTER BYTE BYTE WORD WORD WORD FLAG
|
||
FLAG FLAG FLAG POINTER FLAG FLAG FLAG FLAG POINTER FLAG (BITS 2) FLAG POINTER POINTER POINTER WORD
|
||
WORD POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD POINTER POINTER POINTER POINTER
|
||
POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((
|
||
STREAM 0 (BITS . 15)) (STREAM 1 (BITS . 15)) (STREAM 2 (FLAGBITS . 0)) (STREAM 2 (BITS . 18)) (STREAM
|
||
2 POINTER) (STREAM 4 (BITS . 7)) (STREAM 4 (BITS . 135)) (STREAM 5 (BITS . 15)) (STREAM 6 (BITS . 15))
|
||
(STREAM 7 (BITS . 15)) (STREAM 8 (FLAGBITS . 0)) (STREAM 8 (FLAGBITS . 16)) (STREAM 8 (FLAGBITS . 32)
|
||
) (STREAM 8 (FLAGBITS . 48)) (STREAM 8 POINTER) (STREAM 10 (FLAGBITS . 0)) (STREAM 10 (FLAGBITS . 16))
|
||
(STREAM 10 (FLAGBITS . 32)) (STREAM 10 (FLAGBITS . 48)) (STREAM 10 POINTER) (STREAM 12 (FLAGBITS . 0)
|
||
) (STREAM 12 (BITS . 17)) (STREAM 12 (FLAGBITS . 48)) (STREAM 12 POINTER) (STREAM 14 POINTER) (STREAM
|
||
16 POINTER) (STREAM 18 (BITS . 15)) (STREAM 19 (BITS . 15)) (STREAM 20 POINTER) (STREAM 22 POINTER) (
|
||
STREAM 24 POINTER) (STREAM 26 POINTER) (STREAM 28 POINTER) (STREAM 30 (BITS . 15)) (STREAM 31 (BITS .
|
||
15)) (STREAM 32 (BITS . 15)) (STREAM 33 (BITS . 15)) (STREAM 34 POINTER) (STREAM 36 POINTER) (STREAM
|
||
38 POINTER) (STREAM 40 POINTER) (STREAM 42 POINTER) (STREAM 44 POINTER) (STREAM 46 POINTER) (STREAM 48
|
||
POINTER) (STREAM 50 POINTER) (STREAM 52 (BITS . 15)) (STREAM 53 (BITS . 15)) (STREAM 54 POINTER) (
|
||
STREAM 56 POINTER) (STREAM 58 POINTER) (STREAM 60 POINTER) (STREAM 62 POINTER))) (QUOTE 64))
|
||
STREAMPROP :D8
|
||
(L (0 X)) 0 e Hdlñž¿kalala lð´
|
||
kala
|
||
(45 \ILLEGAL.ARG 39 GETSTREAMPROP 23 PUTSTREAMPROP)
|
||
NIL
|
||
()
|
||
GETSTREAMPROP :D8
|
||
(L (1 PROP 0 STREAM)) N Ag ð³Ag ð©Adg ð—¿@ g ð˜@ É*Ag ð—h@
|
||
@ É,A' (64 LINELENGTH 32 \EXTERNALFORMAT)
|
||
(71 STREAM 55 LINELENGTH 46 STREAM 38 ENDOFSTREAMOP 23 :EXTERNAL-FORMAT 14 EXTERNALFORMAT 5 FORMAT)
|
||
()
|
||
PUTSTREAMPROP :D8
|
||
(L (2 VALUE 1 PROP 0 STREAM) P 1 OLDVALUE) Ò Ag ð³Ag ðªAdg ð².¿@d Ê 0jð¬¿o @
|
||
h
|
||
B—@B
|
||
¿g ð²@ É*@ B*¿Ag ð—B@
|
||
@ É,!HµB´@ ABh,hA'YBšHAB ¿°/I´-HdAð² ¿@ H,¿°Að—Jd¿†JZµîI (158 LISTPUT 112 LINELENGTH 68 \EXTERNALFORMAT 59 \EXTERNALFORMAT 52 ERROR)
|
||
(178 STREAM 136 STREAM 119 STREAM 103 LINELENGTH 92 STREAM 84 STREAM 75 ENDOFSTREAMOP 34 STREAM 23 :EXTERNAL-FORMAT 14 EXTERNALFORMAT 5 FORMAT)
|
||
( 46 "EXTERNALFORMAT CANNOT BE CHANGED")
|
||
STREAMP :D8
|
||
(L (0 X)) @Ã ´@ NIL
|
||
(5 STREAM)
|
||
()
|
||
\DEFPRINT.BY.NAME :D8
|
||
(L (3 TYPENAME 2 NAME 1 STREAM 0 OBJECT) F 0 \THISFILELINELENGTH F 1 *READTABLE*) <00> P²#C lÔBµljÔA ÈØPñ–A ¿AQ Ê
|
||
Al<
|
||
C A
|
||
B²Al
|
||
¿B A
|
||
¿Al/
|
||
@A
|
||
Al>
|
||
i °’ (125 NCHARS 118 \OUTCHAR 110 \PRINTADDR 103 \OUTCHAR 94 \SOUT 88 MKSTRING 81 \OUTCHAR 70 \SOUT 64 MKSTRING 58 \OUTCHAR 50 \OUTCHAR 34 FRESHLINE 8 NCHARS)
|
||
(42 READTABLEP 22 STREAM)
|
||
()
|
||
\STREAM.DEFPRINT :D8
|
||
(L (1 OUTSTREAM 0 STRM)) <00> @Êdkð—¿o °*dlð—¿o ° dlð–¿o Žlð•o „o @Ah@dɲ¿Ho @É °6É
|
||
à ²"Ho @É
|
||
É o ŠHo
|
||
(141 \DEFPRINT.BY.NAME 136 CONCAT 124 CONCAT 114 CL:STRING-CAPITALIZE 109 STRING 82 CONCAT)
|
||
(91 FDEV)
|
||
( 131 " Stream" 119 " Stream" 99 " " 74 " Stream on " 55 "Closed" 49 "Append" 39 "IO" 26 "Output" 13 "Input")
|
||
\FDEV.DEFPRINT :D8
|
||
(L (1 STREAM 0 DEV)) @A@ Éo (19 \DEFPRINT.BY.NAME)
|
||
(7 FDEV)
|
||
( 14 "FDev")
|
||
\GETACCESS :D8
|
||
(L (0 STREAM)) @ @ Êdjð‘hdkð•g dlð•g dlð•g lð•g (61 SHOULDNT)
|
||
(55 BOTH 45 OUTPUT 34 APPEND 23 INPUT 5 STREAM)
|
||
()
|
||
\SETACCESS :D8
|
||
(L (1 ACCESS 0 STREAM) P 0 \INTERRUPTABLE) L @@ É
|
||
»AµY@ jÏ¿@ @ @ jÏ
|
||
¿jdð¡k€jYÏ
|
||
¿Ijð¡k€jÏ
|
||
¿@ @ g &¿g $±æg ð²f@ kÏ¿@ K Ê @jð¡k€jÏ
|
||
¿@ K É,$¿@ g &¿@ @ jÏ
|
||
¿jdð¡k€jZÏ
|
||
¿J±zAdg ð²o¿@ lÏ¿@ K Ê Pjð¡k€jÏ
|
||
¿@ K Ê `jð¡k€jÏ
|
||
¿@ K É.&¿@ g $¿@ jÏ
|
||
¿j±g ð²n@ lÏ¿@ K Ê Pjð¡k€jÏ
|
||
¿@ K Ê `jð¡k€jÏ
|
||
¿@ K É.&¿@ g $¿@ jÏ
|
||
¿j± <00>Ag ð²{@ lÏ¿@ K Ê @jð¡k€jÏ
|
||
¿@ K Ê Pjð¡k€jÏ
|
||
¿@ K Ê `jð¡k€jÏ
|
||
¿@ K É,$¿@ K É.&‰o A (584 RAID)
|
||
(569 FDEV 563 STREAM 552 FDEV 546 STREAM 527 FDEV 521 STREAM 502 FDEV 496 STREAM 477 FDEV 471 STREAM 459 STREAM 450 BOTH 435 STREAM 426 \STREAM.NOT.OPEN 421 STREAM 410 FDEV 404 STREAM 385 FDEV 379 STREAM 360 FDEV 354 STREAM 342 STREAM 333 OUTPUT 319 STREAM 310 \STREAM.NOT.OPEN 305 STREAM 294 FDEV 288 STREAM 269 FDEV 263 STREAM 244 FDEV 238 STREAM 226 STREAM 216 APPEND 188 STREAM 182 STREAM 173 \STREAM.NOT.OPEN 168 STREAM 157 FDEV 151 STREAM 132 FDEV 126 STREAM 115 STREAM 106 INPUT 96 \STREAM.NOT.OPEN 88 \STREAM.NOT.OPEN 83 STREAM 77 STREAM 43 STREAM 37 STREAM 31 STREAM 20 STREAM 8 STREAM)
|
||
( 579 "Illegal stream access mode")
|
||
\DEFINEDEVICE :D8
|
||
(L (1 DEV 0 NAME) P 1 \INTERRUPTABLE) Û @ b ¿Aµ3@` X²VH`
|
||
¿@`
|
||
°/Ã ²k@` ¸A` ¯Hµ A` ¿@µ@d` ²° `
|
||
¿°Ò` ¿Hµ@h` A¿°¿Ad3@ðžA ` µo A
|
||
b±ÿ;b±ÿ6 (207 ERROR 187 U-CASE 132 DREMOVE 55 DREMOVE 38 DREMOVE 8 U-CASE)
|
||
(192 \DEVICENAMETODEVICE 169 \DEVICENAMETODEVICE 163 \DEVICENAMETODEVICE 151 \FILEDEVICENAMES 145 \FILEDEVICENAMES 137 \FILEDEVICES 127 \FILEDEVICES 116 \FILEDEVICENAMES 104 \FILEDEVICES 98 \FILEDEVICES 87 \FILEDEVICES 76 \DEVICENAMETODEVICE 68 FDEV 60 \FILEDEVICENAMES 50 \FILEDEVICENAMES 43 \DEVICENAMETODEVICE 33 \DEVICENAMETODEVICE 20 \DEVICENAMETODEVICE)
|
||
( 201 "INVALID FILE DEVICE")
|
||
\GETDEVICEFROMNAME :D8
|
||
(L (2 DONTCREATE 1 NOERROR 0 NAME)) 5 @dd3@ð©¿@ ²@g
|
||
µ@B
|
||
µAhð´
|
||
@l
|
||
(50 \LISPERROR 35 \GETDEVICEFROMHOSTNAME 26 FILENAMEFIELD 13 STRINGP)
|
||
(21 HOST)
|
||
()
|
||
\GETDEVICEFROMHOSTNAME :D8
|
||
(L (1 DONTCREATE 0 HOSTN)) X @` µN@ b ` µ=Ahð´8` 1HµhY É»@IlKZµHX°åà ‘J¹@I
|
||
I (84 \DEFINEDEVICE 15 U-CASE)
|
||
(74 FDEV 52 FDEV 36 \FILEDEVICES 22 \DEVICENAMETODEVICE 5 \DEVICENAMETODEVICE)
|
||
()
|
||
\REMOVEDEVICE :D8
|
||
(L (0 DEV) P 3 \INTERRUPTABLE) Y 0` YµhXµ$@`
|
||
@Z@ð•Jµäi°áI°Ø`
|
||
¿H`
|
||
°µ (80 DREMOVE 63 DREMOVE 29 DREMOVE)
|
||
(85 \DEVICENAMETODEVICE 75 \DEVICENAMETODEVICE 68 \FILEDEVICENAMES 58 \FILEDEVICENAMES 34 \FILEDEVICES 24 \FILEDEVICES 10 \DEVICENAMETODEVICE)
|
||
()
|
||
\REMOVEDEVICE.NAMES :D8
|
||
(L (1 NAMES 0 DEV)) X ` 1HYµJ´h`
|
||
h@ð²-AŸI[Að¨A² KA ²I`
|
||
¿Ih¿iºI°´ (70 DREMOVE 26 DREMOVE)
|
||
(75 \FILEDEVICENAMES 65 \FILEDEVICENAMES 31 \DEVICENAMETODEVICE 21 \DEVICENAMETODEVICE 4 \DEVICENAMETODEVICE)
|
||
()
|
||
\CLOSEFILE :D8
|
||
(L (1 ABORTFLG 0 STREAM)) Z @d Êkð³¿@ É. É @kH@ É
|
||
!H ɹ@AlIH É ºH@lJ¿@h
|
||
¿ (86 \SETACCESS)
|
||
(69 FDEV 54 FDEV 43 STREAM 27 IMAGEOPS 20 STREAM 6 STREAM)
|
||
()
|
||
\DELETEFILE :D8
|
||
(L (1 DEV 0 FILENAME)) 6 @dà –¿@ b Aµ
|
||
di
|
||
bdŸ É @AlH (31 \GETDEVICEFROMNAME 19 \ADD.CONNECTED.DIR 14 INTERLISP-NAMESTRING)
|
||
(40 FDEV 6 PATHNAME)
|
||
()
|
||
\DEVICEEVENT :D8
|
||
(L (0 EVENT)) <00> @g ð³ @g ð³@g ð¨@g ð´iAH–` °<` °0d\ É
|
||
¹L@lI¿H²L É ºhg LlJ[µµÑhd Ê jðš kÏ¿k¿K°Û (57 REVERSE)
|
||
(128 STREAM 117 STREAM 95 OUTPUT 86 FDEV 67 FDEV 52 \FILEDEVICES 45 \FILEDEVICES 31 BEFORESAVEVM 23 BEFORESYSOUT 14 BEFOREMAKESYS 5 BEFORELOGOUT)
|
||
()
|
||
\GENERATEFILES :D8
|
||
(L (3 DEPTH 2 OPTIONS 1 DESIREDPROPS 0 PATTERN) P 1 FILING.ENUMERATION.DEPTH F 3 FILING.ENUMERATION.DEPTH) / @ b d Cd3 ¥“nÿÿ€SH ɺH@ABlJ (13 \GETDEVICEFROMNAME 5 \ADD.CONNECTED.DIR)
|
||
(33 FDEV)
|
||
()
|
||
\GENERATENEXTFILE :D8
|
||
(L (1 NAMEONLY 0 GENOBJ)) @ @AlH NIL
|
||
NIL
|
||
()
|
||
\GENERATEFILEINFO :D8
|
||
(L (1 ATTRIBUTE 0 GENOBJ)) @ @AlH NIL
|
||
NIL
|
||
()
|
||
\GETFILENAME :D8
|
||
(L (2 FDEV 1 RECOG 0 NAME)) 8 @dà –¿@ b Bµdi
|
||
bd² É @ABlH (31 \GETDEVICEFROMNAME 19 \ADD.CONNECTED.DIR 14 INTERLISP-NAMESTRING)
|
||
(41 FDEV 6 PATHNAME)
|
||
()
|
||
\GENERIC.OUTFILEP :D8
|
||
(L (1 DEV 0 NAME)) Q A É @g AlH H²#g Hg
|
||
µkkØg H g kg @ (78 PACKFILENAME 60 PACKFILENAME 44 FILENAMEFIELD)
|
||
(72 BODY 66 VERSION 54 BODY 39 VERSION 33 VERSION 16 OLD 5 FDEV)
|
||
()
|
||
\OPENFILE :D8
|
||
(L (3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) · `@dà ²!¿@dAi š¿@AC @Y É
|
||
Š Y X É»IABCHlKZµ@l
|
||
b °¯A
|
||
¿J Ag ð˜J É€j¿J Ag ð˜J È€jÍ ¿JAC ¿J É
|
||
] É ¼MJlLJ (155 \DO.PARAMS.AT.OPEN 92 \SETACCESS 82 \LISPERROR 53 \GETDEVICEFROMNAME 47 \ADD.CONNECTED.DIR 31 \DO.PARAMS.AT.OPEN 21 \IOMODEP)
|
||
(170 FDEV 162 STREAM 140 STREAM 132 APPEND 126 STREAM 113 STREAM 105 APPEND 99 STREAM 59 FDEV 39 STREAM 9 STREAM)
|
||
()
|
||
\DO.PARAMS.AT.OPEN :D8
|
||
(L (2 PARAMETERS 1 ACCESS 0 STREAM) F 6 STREAM-AFTER-OPEN-FNS) @g
|
||
BQHµ@g Lµg V± ÛYd–ºI<01>ºi»Jdg ðŸ¿@g K ± <00>g ðž@g K ± ‡Jdg ð™¿@K
|
||
°sg ð³Jg ðªJdg ð²/¿I²UKd³ d² h°d]di
|
||
˜¿@M
|
||
€\¿µè°-g ð˜@K
|
||
° Jg ð¯Jg ð§Jg ð’K\¿HX±ÿ d @ABlHµðh (208 CONVHANKAKU 185 \EXTERNALFORMAT 176 FIND-FORMAT 121 CHARSET 101 SETFILEINFO 79 SETFILEINFO 37 SETFILEINFO 10 \EXTERNALFORMAT)
|
||
(232 EOLC 224 EOLCONVENTION 216 EOL 199 CONVHANKAKU 146 :EXTERNAL-FORMAT 137 EXTERNALFORMAT 128 FORMAT 111 CHARSET 95 ENDOFSTREAMOP 87 ENDOFSTREAMOP 73 BUFFERS 64 BUFFERS 32 ANY 24 EOL 5 :DEFAULT)
|
||
()
|
||
\RENAMEFILE :D8
|
||
(L (1 NEWFILE 0 OLDFILE)) N @ b A b@ A "H É»H@ IA lKZ´A –J J (73 PSEUDOFILENAME 66 PSEUDOHOSTP 53 TRUEFILENAME 46 TRUEFILENAME 27 TRUEDEVICE 21 TRUEDEVICE 13 \ADD.CONNECTED.DIR 5 \ADD.CONNECTED.DIR)
|
||
(36 FDEV)
|
||
()
|
||
\REVALIDATEFILE :D8
|
||
(L (0 STREAM)) @ É
|
||
É @ É@ g h@ É
|
||
@lH Hµg @ð‘h@ H É@ H É@ H É@ H É@ H É @ H È Í @ H È Í H É @ É ô’±ÿ|@ H É @ H É@ H ÈÍg (31 \GETACCESS)
|
||
(254 CHANGED 245 STREAM 239 STREAM 229 STREAM 223 STREAM 213 STREAM 207 STREAM 194 STREAM 186 STREAM 176 STREAM 170 STREAM 160 STREAM 154 STREAM 144 STREAM 138 STREAM 128 STREAM 122 STREAM 112 STREAM 106 STREAM 96 STREAM 90 STREAM 80 STREAM 74 STREAM 62 DELETED 43 STREAM 36 OLD 23 STREAM 12 FDEV 5 STREAM)
|
||
()
|
||
\PAGED.REVALIDATEFILELST :D8
|
||
(L (0 DEVICE)) Ÿ @ É hd@lHAHµ@ É hd@lHY ZµHX°Üdg ð˜¿I °Gg ð²:I ¿Ig
|
||
‰d»IkK¿µõIh
|
||
¿@ É ¼@IlL„ ¿JI
|
||
¿°œ (154 \PRINT-REVALIDATION-RESULT 146 SHOULDNT 124 \SETACCESS 103 STREAMPROP 91 FORGETPAGES 75 RESTOREMAP 52 \PAGED.REVALIDATEFILE)
|
||
(131 FDEV 98 AFTERCLOSE 82 DELETED 66 CHANGED 32 FDEV 5 FDEV)
|
||
()
|
||
\PAGED.REVALIDATEFILES :D8
|
||
(L (0 LIST)) • @ 1@!LµH] ^µL\°îdg ð˜¿M °Xg ð²KM ¿Mg
|
||
‰d¹MkI¿µõMh
|
||
¿M É
|
||
[ É ºKMlJ¿MH
|
||
X„ ¿NM
|
||
¿°‹ (144 \PRINT-REVALIDATION-RESULT 136 SHOULDNT 129 DREMOVE 97 \SETACCESS 76 STREAMPROP 64 FORGETPAGES 48 RESTOREMAP 25 \PAGED.REVALIDATEFILE 5 COPY)
|
||
(112 FDEV 104 STREAM 71 AFTERCLOSE 55 DELETED 39 CHANGED)
|
||
()
|
||
\PAGED.REVALIDATEFILE :D8
|
||
(L (0 STREAM)) @ É
|
||
É @ É@ g h@ É
|
||
@lH Hµg @ð‘h@ H É@ H É@ H É@ H É@ H É @ H È Í @ H È Í H É @ É ô’±ÿ|@ H É @ H É@ H ÈÍg (31 \GETACCESS)
|
||
(254 CHANGED 245 STREAM 239 STREAM 229 STREAM 223 STREAM 213 STREAM 207 STREAM 194 STREAM 186 STREAM 176 STREAM 170 STREAM 160 STREAM 154 STREAM 144 STREAM 138 STREAM 128 STREAM 122 STREAM 112 STREAM 106 STREAM 96 STREAM 90 STREAM 80 STREAM 74 STREAM 62 DELETED 43 STREAM 36 OLD 23 STREAM 12 FDEV 5 STREAM)
|
||
()
|
||
\BUFFERED.REVALIDATEFILE :D8
|
||
(L (0 STREAM)) @ É
|
||
É @ É@ g h@ É
|
||
@lH Hµg @ð‘h@ H É@ H É@ H É@ H É@ H É @ H È Í @ H È Í H É @ É ô’±ÿ|@ H É @ H É@ H ÈÍg (31 \GETACCESS)
|
||
(254 CHANGED 245 STREAM 239 STREAM 229 STREAM 223 STREAM 213 STREAM 207 STREAM 194 STREAM 186 STREAM 176 STREAM 170 STREAM 160 STREAM 154 STREAM 144 STREAM 138 STREAM 128 STREAM 122 STREAM 112 STREAM 106 STREAM 96 STREAM 90 STREAM 80 STREAM 74 STREAM 62 DELETED 43 STREAM 36 OLD 23 STREAM 12 FDEV 5 STREAM)
|
||
()
|
||
\BUFFERED.REVALIDATEFILELST :D8
|
||
(L (0 DEVICE)) ‘ @ É hd@lHAHµ@ É hd@lHY ZµHX°Üg ð¨Jg ð²=Ig
|
||
‰d»IkK¿µõIh
|
||
¿@ É ¼@IlL¿JI
|
||
¿°² ¿°ª (140 SHOULDNT 132 \PRINT-REVALIDATION-RESULT 108 \SETACCESS 87 STREAMPROP 52 \BUFFERED.REVALIDATEFILE)
|
||
(115 FDEV 82 AFTERCLOSE 73 CHANGED 65 DELETED 32 FDEV 5 FDEV)
|
||
()
|
||
\PRINT-REVALIDATION-RESULT :D8
|
||
(L (1 STREAM 0 RESULT)) µ ` ²N g
|
||
³=o `
|
||
¿ `
|
||
¿o `
|
||
¿` ¿o `
|
||
AɵA`
|
||
@dg ð—¿o °g ð•o „ `
|
||
` (178 TERPRI 168 PRIN1 158 SHOULDNT 123 PRIN1 107 PRIN1 91 TERPRI 80 PRIN1 64 PRIN1 54 DRIBBLE 48 PRIN1 31 OPENP 21 DRIBBLEFILE 14 DRIBBLEFILE 9 FRESHLINE)
|
||
(173 PROMPTWINDOW 163 PROMPTWINDOW 145 DELETED 130 CHANGED 118 PROMPTWINDOW 102 PROMPTWINDOW 86 PROMPTWINDOW 75 PROMPTWINDOW 59 PROMPTWINDOW 43 PROMPTWINDOW 26 APPEND 4 PROMPTWINDOW)
|
||
( 152 " was previously opened but has disappeared!" 138 " has been modified since you last accessed it!"
|
||
97 "**** WARNING: The file " 70 " ended" 38 "Dribble file ")
|
||
\TRUNCATEFILE :D8
|
||
(L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @ É
|
||
Éb @ABlH NIL
|
||
(12 FDEV 5 STREAM)
|
||
()
|
||
\FILE-CONFLICT :D8
|
||
(L (2 DEVICE 1 ACCESS 0 NAME)) G @dà ˜¿@ É1B É ¹HhBlIZd² »AdKð¡ig ð‘h@Jðhð (45 \GETACCESS)
|
||
(58 INPUT 25 FDEV 14 STREAM 6 STREAM)
|
||
()
|
||
\GENERATENOFILES :D8
|
||
(L (3 OPTIONS 2 DESIREDPROPS 1 PATTERN 0 FDEV)) — g A
|
||
o A
|
||
H² AHkÙ
|
||
l;ð²hg AHkØ ³XI² AIkÙ
|
||
l;ð²Gg AIkØ ³7g g H¨I¦g °g hg A b¿g Ah (148 \NULLFILEGENERATOR 128 PACKFILENAME 88 STRPOS 69 NTHCHARCODE 55 STRPOS 36 NTHCHARCODE 21 STRPOS 10 STRPOS)
|
||
(136 STAR 122 BODY 116 VERSION 109 NOSTAR 100 \NOFILESINFOFN 95 \NOFILESNEXTFILEFN 79 46 * 4 *)
|
||
( 15 (CONSTANT (CHARACTER (CHARCODE ESC))))
|
||
\NULLFILEGENERATOR :D8
|
||
NIL g hd NIL
|
||
(4 NILL)
|
||
()
|
||
\NOFILESNEXTFILEFN :D8
|
||
(L (1 NAMEONLY 0 GENFILESTATE)) ¦ 0@Ydg ð²¿@g ¿@ X°wdg ð‘hg ð²1@g
|
||
¸@Hg
|
||
@ g
|
||
°3IkØZIñ³+g Jg @ X²IHg
|
||
¿H´@HHJkÔ°Å (148 FILENAMEFIELD 133 INFILEP 128 PACKFILENAME.STRING 96 FILENAMEFIELD 86 INFILEP 78 FILENAMEFIELD 65 FULLNAME 31 INFILEP)
|
||
(143 VERSION 120 BODY 114 VERSION 91 VERSION 73 VERSION 60 OLDEST 49 STAR 40 DONE 21 DONE 11 NOSTAR)
|
||
()
|
||
\NOFILESINFOFN :D8
|
||
(L (1 ATTRIBUTE 0 GENSTATE)) @A
|
||
(8 GETFILEINFO)
|
||
NIL
|
||
()
|
||
\FILE.NOT.OPEN :D8
|
||
(L (1 NOERROR 0 X)) " Ahð´ @dà ›¿@ ɵ@l
|
||
(31 \LISPERROR)
|
||
(19 STREAM 11 STREAM)
|
||
()
|
||
\FILE.WONT.OPEN :D8
|
||
(L (0 X)) @dà ›¿@ ɵ@l
|
||
(26 \LISPERROR)
|
||
(14 STREAM 6 STREAM)
|
||
()
|
||
\ILLEGAL.DEVICEOP :D8
|
||
(L (0 N)) 1 e o Hk2JIó—K
|
||
Ja½Lµ
|
||
Mh\»JkÔZ°æM&¼°÷ (24 ERROR)
|
||
NIL
|
||
( 8 "Attempt to use undefined device operation")
|
||
\IS.NOT.RANDACCESSP :D8
|
||
(L (0 N)) ) e kao Idà ›¿I ɵI
|
||
(38 ERROR)
|
||
(28 STREAM 20 STREAM)
|
||
( 13 "File is not RANDACCESSP")
|
||
\STREAM.NOT.OPEN :D8
|
||
(L (0 STREAM)) @ ɵ@l
|
||
(17 \LISPERROR)
|
||
(5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0002 :D8
|
||
(L (0 STREAM)) @ É
|
||
É É @kH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0004 :D8
|
||
(L (2 FDEV 1 ATTRIB 0 STREAM)) " B É ÉD @AB ÉlH NIL
|
||
(25 FDEV 12 FDEV 5 FDEV)
|
||
()
|
||
\FDEVINSTANCEA0006 :D8
|
||
(L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 CDNAME)) $ D É É @ABCD ÉlH NIL
|
||
(27 FDEV 12 FDEV 5 FDEV)
|
||
()
|
||
\FDEVINSTANCEA0008 :D8
|
||
(L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) " @ É
|
||
É É^ @ABlH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0010 :D8
|
||
(L (3 FDEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) # C É ÉF @ABC ÉlH NIL
|
||
(26 FDEV 12 FDEV 5 FDEV)
|
||
()
|
||
\FDEVINSTANCEA0012 :D8
|
||
(L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) " @ É
|
||
É Éb @ABlH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0014 :D8
|
||
(L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) " @ É
|
||
É É` @ABlH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0016 :D8
|
||
(L (5 OLDSTREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) % D É É @ABCD ÉElH NIL
|
||
(27 FDEV 12 FDEV 5 FDEV)
|
||
()
|
||
\FDEVINSTANCEA0018 :D8
|
||
(L (0 STREAM)) @ É
|
||
É É, @kH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0020 :D8
|
||
(L (1 BYTE 0 STREAM)) ! @ É
|
||
É É. @AlH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0022 :D8
|
||
(L (1 NOERRORFLG 0 STREAM)) ! @ É
|
||
É É0 @AlH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0024 :D8
|
||
(L (0 STREAM)) @ É
|
||
É ÉT @kH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0026 :D8
|
||
(L (1 INDX 0 STREAM)) ! @ É
|
||
É ÉR @AlH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0028 :D8
|
||
(L (0 STREAM)) @ É
|
||
É ÉN @kH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0030 :D8
|
||
(L (0 STREAM)) @ É
|
||
É ÉP @kH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0032 :D8
|
||
(L (0 STREAM)) @ É
|
||
É É< @kH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0034 :D8
|
||
(L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) # @ É
|
||
É É> @ABClH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0036 :D8
|
||
(L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) # @ É
|
||
É É@ @ABClH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCEA0038 :D8
|
||
(L (0 STREAM)) @ É
|
||
É ÉB @kH NIL
|
||
(19 FDEV 12 FDEV 5 STREAM)
|
||
()
|
||
\FDEVINSTANCE :D8
|
||
(L (0 FDEV)) ½ ` @
|
||
d@¿dg ¿dg D¿dg ¿dg ^¿dg F¿dg b¿dg `¿dg ¿dg ,¿dg .¿dg 0¿dg T¿dg R¿dg N¿dg P¿dg <¿dg >¿dg @¿dg B¿ (10 NCREATE2)
|
||
(183 \FDEVINSTANCEA0038 174 \FDEVINSTANCEA0036 165 \FDEVINSTANCEA0034 156 \FDEVINSTANCEA0032 147 \FDEVINSTANCEA0030 138 \FDEVINSTANCEA0028 129 \FDEVINSTANCEA0026 120 \FDEVINSTANCEA0024 111 \FDEVINSTANCEA0022 102 \FDEVINSTANCEA0020 93 \FDEVINSTANCEA0018 84 \FDEVINSTANCEA0016 75 \FDEVINSTANCEA0014 66 \FDEVINSTANCEA0012 57 \FDEVINSTANCEA0010 48 \FDEVINSTANCEA0008 39 \FDEVINSTANCEA0006 30 \FDEVINSTANCEA0004 21 \FDEVINSTANCEA0002 4 |FDEVTYPE#|)
|
||
()
|
||
CNDIR :D8
|
||
(L (0 HOST/DIR) F 2 *DEFAULT-PATHNAME-DEFAULTS*) s @d<>dà –¿@ ig µ
|
||
o @
|
||
R I H ¿I H ¿I H ¿Ic` (101 CL:PATHNAME-DIRECTORY 86 CL:PATHNAME-DEVICE 71 CL:PATHNAME-HOST 56 COPY-PATHNAME 50 PATHNAME 40 ERROR 27 DIRECTORYNAME 16 INTERLISP-NAMESTRING)
|
||
(112 \CONNECTED.DIRECTORY 95 PATHNAME 80 PATHNAME 65 PATHNAME 45 \CONNECTED.DIRECTORY 22 ASK 8 PATHNAME)
|
||
( 34 "Non-existent directory")
|
||
DIRECTORYNAME :D8
|
||
(L (2 CREATE? 1 STRPTR 0 DIRNAME)) @à ˜@ b ¿@@dið˜¿` ± ݳ` µ‚± Ðg ± È@g
|
||
º@k
|
||
l>ðš@l
|
||
b ¿Jµj@k
|
||
dl<ð¤dl/ð<>¿g @g °5¿@d
|
||
dl>ð¤dl/ðŸ¿g @kmþ †¿g @g ` b g
|
||
Yd²; É »@IBlKXd²(ið²g I Ég @ ¸Aµ H ið²÷H (271 MKATOM 260 MKSTRING 250 PACKFILENAME.STRING 199 \GETDEVICEFROMHOSTNAME 194 FILENAMEFIELD 182 PACKFILENAME.STRING 159 SUBSTRING 134 NTHCHARCODE 129 NCHARS 97 NTHCHARCODE 84 SUBSTRING 72 NTHCHARCODE 64 FILENAMEFIELD 12 CL:NAMESTRING)
|
||
(244 DIRECTORY 237 FDEV 231 HOST 208 FDEV 189 HOST 177 \CONNECTED.DIRECTORY 172 DIRECTORY 166 SUBDIRECTORY 150 SUBDIRECTORY 119 BODY 113 DIRECTORY 59 HOST 50 {DSK} 39 LOGINHOST/DIR 29 \CONNECTED.DIRECTORY 5 PATHNAME)
|
||
()
|
||
DIRECTORYNAMEP :D8
|
||
(L (1 HOSTNAME 0 DIRNAME)) E Aœg @g A<>g @g ` !Hi
|
||
Yd² É ºHIlJ´i (45 \GETDEVICEFROMNAME 35 PACKFILENAME.STRING)
|
||
(54 FDEV 30 \CONNECTED.DIRECTORY 25 DIRECTORY 19 DIRECTORY 12 HOST 6 DIRECTORY)
|
||
()
|
||
HOSTNAMEP :D8
|
||
(L (0 NAME)) € @@dd3@ð˜¿@ ° ´M@ Xd l{ð² ¿Hlg Hl d²"kÙ X`
|
||
«` Zµh´i[ ɹHkI•K³îi°éJ°à (86 MEMB 75 SUBATOM 65 STRPOS 43 CHCON1 36 MKATOM 31 U-CASE 23 STRINGP 16 U-CASE)
|
||
(108 FDEV 92 \FILEDEVICES 81 \FILEDEVICENAMES 57 })
|
||
()
|
||
\ADD.CONNECTED.DIR :D8
|
||
(L (0 FILENAME)) 8 @dd3@ð«¿@d ²'¿@dg
|
||
³¿g @g ` (53 PACKFILENAME.STRING 29 UNPACKFILENAME.STRING 14 STRINGP)
|
||
(48 \CONNECTED.DIRECTORY 43 DIRECTORY 37 BODY 24 HOST)
|
||
()
|
||
\BACKFILEPTR :D8
|
||
(L (0 STREAM)) @ É
|
||
ÉT @kH NIL
|
||
(12 FDEV 5 STREAM)
|
||
()
|
||
\BACKPEEKBIN :D8
|
||
(L (0 STREAM) P 0 \INTERRUPTABLE) @ ´@ (8 \BACKFILEPTR)
|
||
NIL
|
||
()
|
||
\BACKBIN :D8
|
||
(L (0 STREAM)) @ ´@ (13 \PEEKBIN 5 \BACKFILEPTR)
|
||
NIL
|
||
()
|
||
BIN :D8
|
||
(L (0 STREAM)) @ NIL
|
||
NIL
|
||
()
|
||
\BIN :D8
|
||
(L (0 STREAM)) @ b É$ @kH NIL
|
||
(12 STREAM 5 STREAM)
|
||
()
|
||
\BINS :D8
|
||
(L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @ b É
|
||
É> @ABClH NIL
|
||
(14 FDEV 5 STREAM)
|
||
()
|
||
BOUT :D8
|
||
(L (1 BYTE 0 STREAM)) A3µ
|
||
@A
|
||
nÿÿó²ôA ¿°ë (24 \ILLEGAL.ARG 11 \BOUT)
|
||
NIL
|
||
()
|
||
\BOUT :D8
|
||
(L (1 BYTE 0 STREAM)) / A3µ @ b d É& @AlHnÿÿó²âA ¿°Ù (42 \ILLEGAL.ARG)
|
||
(18 STREAM 10 STREAM)
|
||
()
|
||
\BOUTS :D8
|
||
(L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @ b É
|
||
É@ @ABClH NIL
|
||
(14 FDEV 5 STREAM)
|
||
()
|
||
COPYBYTES :D8
|
||
(L (3 END 2 START 1 DSTFIL 0 SRCFIL)) " @g
|
||
Ag
|
||
2C²hBCô‘hHBd3 Ÿ¿jBñ©Bdo ñ¡…B
|
||
¿Cdmÿð² ¿Hd ˜¿H °%g
|
||
°3 <20>jCñ©Cdo ñ¡…C BÙ€BZdŸjJñ›o J
|
||
¿H É
|
||
Ê pjðªHIJ ¿°NJµMH É
|
||
Ê jð³ H H É
|
||
ÉN»HkKÙ€hµH É
|
||
É<¼HkL²idjñœIH
|
||
¿kÙ°ñ¿°ìIH
|
||
¿°Ë (285 \BOUT 269 \BOUT 208 \GETEOFPTR 176 \BUFFERED.COPYBYTES 148 ERROR 126 \ILLEGAL.ARG 101 GETFILEINFO 89 \GETEOFPTR 81 RANDACCESSP 65 \SETFILEPTR 60 \ILLEGAL.ARG 21 \GETSTREAM 10 \GETSTREAM)
|
||
(246 FDEV 239 STREAM 221 FDEV 214 STREAM 195 FDEV 188 STREAM 162 FDEV 155 STREAM 96 LENGTH 16 OUTPUT 5 INPUT)
|
||
( 142 "Negative number of bytes to copy" 117 1073741823 51 1073741823)
|
||
COPYCHARS :D8
|
||
(L (3 END 2 START 1 DSTFIL 0 SRCFIL) P 12 CNT) ˆ
|
||
@ A j“ H Ê ^I Ê ð¯Hd Ê lð²#¿H É>I É>ðœHIBC ¿± ôH É
|
||
Ê jðhð[–H ½C²dK³o H É
|
||
¿BjØZ_3 <20>jOñ¨Oo ñ˜Bl
|
||
¿HJ
|
||
¿Cdmÿð³md3 ²¿jCñªCdo ñ¢°ZC °RB²2K²,H É
|
||
ÉN_¿HkOºMBJØ_¿dOñ²'¿O°"B° K²KH É
|
||
ÉN_¿HkOZ¿M¼JLñ<4C>o LJÙ
|
||
¿LJÙ Ojñ³-iIHN
|
||
|
||
¿H É
|
||
É<_¿HkO²Û°×IHhg O
|
||
¿°º (387 \OUTCHAR 382 \INCCODE.EOLC 339 \OUTCHAR 334 \INCCODE.EOLC 311 ERROR 211 \ILLEGAL.ARG 176 \SETFILEPTR 168 \LISPERROR 136 ERROR 111 \GETEOFPTR 79 COPYBYTES 11 \GETSTREAM 5 \GETSTREAM)
|
||
(375 CNT 353 FDEV 346 STREAM 280 FDEV 273 STREAM 232 FDEV 225 STREAM 129 STREAM 96 FDEV 89 STREAM 66 STREAM 58 STREAM 43 STREAM 31 STREAM 21 STREAM)
|
||
( 303 "Negative number of bytes to copy" 201 1073741823 158 1073741823 123 "COPYCHARS: Source file is not random access")
|
||
COPYFILEA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 2 SI::*RESETFORMS* F 3 FROMFILE F 4 TOFILE) x o Sg g o XhRco Tg g o o g Hg
|
||
hh YhRcHI
|
||
H I (117 CLOSEF 111 CLOSEF 105 COPYBYTES 90 OPENSTREAM 78 GETFILEINFO 28 OPENSTREAM)
|
||
(73 CREATIONDATE 67 CREATIONDATE 52 NEW 47 OUTPUT 18 OLD 13 INPUT)
|
||
( 62 (DON'TCACHE T) 57 (SEQUENTIAL T) 41 (AND RESETSTATE (SETQ OLDVALUE (CLOSEF? OLDVALUE)) (DELFILE OLDVALUE))
|
||
23 ((SEQUENTIAL T) (DON'TCACHE T)) 7 (PROGN (CLOSEF? OLDVALUE)))
|
||
COPYFILE :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST) l g hg A Ag
|
||
|
||
²-g Ag g hg hg @
|
||
b¿S!g ¿$ (101 SI::RESETUNWIND 96 \MVLIST 91 COPYFILEA0001 74 PACKFILENAME 69 PACKFILENAME 32 DIRECTORYNAMEP 27 UNPACKFILENAME 16 PACKFILENAME)
|
||
(86 SI::RESETUNWIND 62 BODY 56 DIRECTORY 50 HOST 45 BODY 39 DIRECTORY 22 HOST 10 BODY 4 HOST)
|
||
()
|
||
\COPYOPENFILE :D8
|
||
(L (2 DESTPARAMETERS 1 NEWNAME 0 INSTREAM) F 4 SI::*RESETFORMS* F 5 FileTypeConfirmFlg) ù B1g B³@g
|
||
Z›g JhH¸g BYµ-@g
|
||
Y—Ig ð˜@ Y´g IhH¸Ig ð³@g
|
||
Z›g JhH¸o Ag g o o H [hTcIg ð©@dÉ>KÉ>ð¨¿@K
|
||
…K
|
||
¿` lð² U² g Ÿg B§@K
|
||
¿K (246 CLOSEF 239 \UFStoOtherCopyMess 223 STKPOS 199 COPYBYTES 192 COPYCHARS 159 OPENSTREAM 111 GETFILEINFO 76 \INFER.FILE.TYPE 60 GETFILEINFO 23 GETFILEINFO)
|
||
(229 TYPE 218 COPYFILE 205 \MACHINETYPE 173 TEXT 141 NEW 136 OUTPUT 118 LENGTH 106 LENGTH 97 TEXT 84 TYPE 68 ? 55 TYPE 42 TYPE 30 CREATIONDATE 18 CREATIONDATE 8 CREATIONDATE)
|
||
( 151 (DON'TCACHE T) 146 (SEQUENTIAL T) 130 (AND RESETSTATE (SETQ OLDVALUE (CLOSEF OLDVALUE)) (DELFILE OLDVALUE)))
|
||
\INFER.FILE.TYPE :D8
|
||
(L (0 STREAM)) O @ ´G@j
|
||
@ É*@ g *@ µg ‰lñ²óg Y@ H*@j
|
||
I (75 SETFILEPTR 14 SETFILEPTR 5 RANDACCESSP)
|
||
(65 STREAM 58 BINARY 47 TEXT 36 NILL 31 STREAM 20 STREAM)
|
||
()
|
||
EOFP :D8
|
||
(L (0 FILE)) - @g i µ@ H É
|
||
É<¹HkI (19 \GETSTREAM 11 \GETSTREAM)
|
||
(35 FDEV 28 STREAM 5 INPUT)
|
||
()
|
||
FORCEOUTPUT :D8
|
||
(L (1 WAITFORFINISH 0 STREAM)) ' @g
|
||
b d É
|
||
ÉB @AlH (10 \GETSTREAM)
|
||
(25 FDEV 18 STREAM 5 OUTPUT)
|
||
()
|
||
\FLUSH.OPEN.STREAMS :D8
|
||
(L (0 FDEV)) H @ É hd@lH!HµhYd Êlåjð³ É
|
||
ÉBºIkJ¿HX°Ò NIL
|
||
(57 FDEV 50 STREAM 35 STREAM 5 FDEV)
|
||
()
|
||
CHARSET :D8
|
||
(L (2 DONTMARKFILE 1 NEWVALUE 0 STREAM)) V @ b Adlÿð•¿ib¿<>µ*@ É
|
||
ÉH @Adið’¿lÿBlHdlÿð<C3BF>iið³ÖjAó¥lÿAó³ÌA ¿°Ã (81 \ILLEGAL.ARG 5 \GETSTREAM)
|
||
(34 FDEV 27 STREAM)
|
||
()
|
||
ACCESS-CHARSET :D8
|
||
(L (2 DONTMARKFILE 1 NEWVALUE 0 STREAM)) @ É
|
||
ÉH @ABlH NIL
|
||
(12 FDEV 5 STREAM)
|
||
()
|
||
GETEOFPTR :D8
|
||
(L (0 FILE)) @ H É
|
||
ÉP¹HkI (5 \GETSTREAM)
|
||
(21 FDEV 14 STREAM)
|
||
()
|
||
GETFILEINFO :D8
|
||
(L (1 ATTRIB 0 FILE)) €@dà ¢±n¿Ag ð–@ @ É
|
||
Y ÉDº@AIlJµ‚±Ç@ Êjð’±Ag ð©Adg ðš¿@ Êg ð²:@ Ê djð•g dkð•g dlð•g lð•g Adg ð™¿@ È4g ð–@ Adg ð™¿@ É*g ð²@ ´‚±@ Adg ð²3¿I ÉD»@g IlKµ@ ´@ d¢± ÙnÿØãâg ð¬Ag ð´‚± ¾@ Ag ð´‚± ªI ÉD¼@g IlLd¢± ‘nÿØãâà –@ €@ X Yµ @l
|
||
ɽHg IlMX²ãAg ð§Ag ð‘hI ÉD¾HAIlNµ*Ag ð´!I ÉD_¿Hg IlOd•nÿØãâ (412 \LISPERROR 401 \GETDEVICEFROMNAME 395 \ADD.CONNECTED.DIR 388 INTERLISP-NAMESTRING 330 \EXTERNALFORMAT 292 \GETEOFPTR 284 RANDACCESSP 244 \GETEOFPTR 232 RANDACCESSP 198 CHARSET 165 SHOULDNT 28 \GETACCESS)
|
||
(497 LENGTH 486 FDEV 477 SIZE 459 FDEV 449 OPENBYTESIZE 441 ACCESS 427 OLD 418 FDEV 381 PATHNAME 359 LENGTH 350 FDEV 337 SIZE 317 EXTERNALFORMAT 309 FORMAT 271 LENGTH 262 FDEV 252 SIZE 223 LENGTH 215 STREAM 206 ENDOFSTREAMOP 190 CHARSET 182 STREAM 173 BUFFERS 159 ANY 149 CRLF 138 LF 128 CR 116 STREAM 107 EOL 98 STREAM 89 OPENBYTESIZE 80 BYTESIZE 65 STREAM 43 FDEV 35 STREAM 20 ACCESS 9 STREAM)
|
||
()
|
||
\TYPE.FROM.FILETYPE :D8
|
||
(L (0 FILETYPE)) ) @´` Hµ hµ@Y@ð•Iµòi°ïHX°æ NIL
|
||
(7 FILING.TYPES)
|
||
()
|
||
\FILETYPE.FROM.TYPE :D8
|
||
(L (0 TYPE)) @` µ@3 NIL
|
||
(5 FILING.TYPES)
|
||
()
|
||
GETFILEPTR :D8
|
||
(L (0 FILE)) @ H É
|
||
ÉN¹HkI (5 \GETSTREAM)
|
||
(21 FDEV 14 STREAM)
|
||
()
|
||
SETFILEINFO :D8
|
||
(L (2 VALUE 1 ATTRIB 0 FILE)) Ý p@dà ¢±8¿Ag ð³Ag ð¨Adg ð‘hg ð²\@ Bdg ð“¿j°Dg ð“l°9Bdg ð“¿k°,g ð² @ g ð«o @
|
||
¿l…B Ï BAg ð©Adg ð™¿@B
|
||
Bg ðš@ B*BAdg ð²¿@ BjغkJñ¡J€k[Í4Kg ð—@B
|
||
@ É
|
||
Y ÉF¼@ABIlLµdAdg ð²$¿@Bd3 Ÿ¿jBñ©Bdo ñ¡…B
|
||
g ð´ @Báà
|
||
à –@ €@ X Yµ @l
|
||
ɽHg IlMX²ãAg ð’±þ£Ag ð’±þ˜Ag ð’±þ<C2B1>I ÉF¾HABIlNµ·Ag ð´®HBd3 Ÿ¿jBñ©Bdo ñ¡…B
|
||
(474 \SETCLOSEDFILELENGTH 469 \ILLEGAL.ARG 358 \LISPERROR 347 \GETDEVICEFROMNAME 341 \ADD.CONNECTED.DIR 334 INTERLISP-NAMESTRING 321 \SETEOFPTR 303 \SETEOFPTR 298 \ILLEGAL.ARG 232 CHARSET 165 \EXTERNALFORMAT 135 \ILLEGAL.ARG 125 ERROR 107 \GETACCESS)
|
||
(439 LENGTH 420 FDEV 409 EOLCONVENTION 398 OPENBYTESIZE 387 ACCESS 373 OLD 364 FDEV 327 PATHNAME 309 SIZE 267 LENGTH 247 FDEV 239 STREAM 223 CHARSET 202 STREAM 192 BUFFERS 180 STREAM 172 ENDOFSTREAMOP 155 EXTERNALFORMAT 146 FORMAT 112 INPUT 98 ANY 87 LF 74 CRLF 63 CR 56 STREAM 47 EOL 38 OPENBYTESIZE 29 BYTESIZE 20 ACCESS 9 STREAM)
|
||
( 460 1073741823 289 1073741823 119 "EOL convention ANY is not allowed for output streams")
|
||
SETFILEPTR :D8
|
||
(L (1 ADR 0 FILE)) K @ HÉ
|
||
ÉR¹HAdmÿð˜¿d ° d3 Ÿ¿jAñ©Ado ñ¡‡Al
|
||
lI¿HjÍA (62 \LISPERROR 33 \GETEOFPTR 5 \GETSTREAM)
|
||
(16 FDEV)
|
||
( 51 1073741823)
|
||
BOUT16 :D8
|
||
(L (1 N 0 STREAM)) @Aã
|
||
@Alÿå
|
||
A (17 BOUT 7 BOUT)
|
||
NIL
|
||
()
|
||
BIN16 :D8
|
||
(L (0 STREAM)) @ á@ ä NIL
|
||
NIL
|
||
()
|
||
\GENERIC.BINS :D8
|
||
(L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjñ²AB@ Ç¿BkÔb¹HkÙX°ìI NIL
|
||
NIL
|
||
()
|
||
\GENERIC.BOUTS :D8
|
||
(L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) " CHjñ²@ABÂ
|
||
¿BkÔb¹HkÙX°èI (17 \BOUT)
|
||
NIL
|
||
()
|
||
\GENERIC.RENAMEFILEA0001A0002 :D8
|
||
(F 0 XCL:*CURRENT-CONDITION*) PÃ NIL
|
||
(5 XCL::FS-RENAMEFILE-SOURCE-COULDNT-DELETE)
|
||
()
|
||
\GENERIC.RENAMEFILEA0001A0003 :D8
|
||
(F 0 XCL:*CURRENT-CONDITION*) PÃ NIL
|
||
(5 XCL::FS-RENAMEFILE-SOURCE-COULDNT-DELETE)
|
||
()
|
||
\GENERIC.RENAMEFILEA0001A0004 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 OLDFILE F 3 A0183) # i@g g R cg (25 \MVLIST 20 CL:ERROR)
|
||
(32 :NORMAL 14 :PATHNAME 9 XCL::FS-RENAMEFILE-SOURCE-COULDNT-DELETE)
|
||
()
|
||
\GENERIC.RENAMEFILEA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 3 *PROCEED-CASES* P 2 A0183 I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 NEWFILE F 6 OLDFILE F 7 *PROCEED-CASES*) o Vg g o XhTco Ug g o o g Vg
|
||
hh YhTcHI
|
||
I H –I g g g jg g g o g h
|
||
g g g kg g g o g h
|
||
hWK dg ð•¿J$djð˜¿U hkð´U (271 DELFILE 244 \GENERIC.RENAMEFILEA0001A0004 229 CONDITIONS::MAKE-RESTART 181 CONDITIONS::MAKE-RESTART 129 FULLNAME 122 \DELETEFILE 117 CLOSEF 111 CLOSEF 105 COPYBYTES 90 OPENSTREAM 78 GETFILEINFO 28 OPENSTREAM)
|
||
(251 :NORMAL 222 :INTERACTIVE-FN 212 :REPORT 207 \GENERIC.RENAMEFILEA0001A0003 202 :TEST 196 :SELECTOR 191 DONT-DELETE-DESTINATION 186 :NAME 174 :INTERACTIVE-FN 164 :REPORT 159 \GENERIC.RENAMEFILEA0001A0002 154 :TEST 148 :SELECTOR 143 DELETE-DESTINATION 138 :NAME 73 CREATIONDATE 67 CREATIONDATE 52 NEW 47 OUTPUT 18 OLD 13 INPUT)
|
||
( 217 "Don't delete the destination file. Just returns the destination filename." 169 "Delete the destination file too."
|
||
62 (DON'TCACHE T) 57 (SEQUENTIAL T) 41 (AND RESETSTATE (SETQ OLDVALUE (CLOSEF OLDVALUE)) (DELFILE OLDVALUE))
|
||
23 ((SEQUENTIAL T) (DON'TCACHE T)) 7 (PROGN (CLOSEF? OLDVALUE)))
|
||
\GENERIC.RENAMEFILE :D8
|
||
(L (2 NEWDEVICE 0 OLDDEVICE) P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST I 3 NEWFILE I 1 OLDFILE F 4 LISPXHIST) : @ É A h@lH³ T!g ¿$h (49 SI::RESETUNWIND 44 \MVLIST 39 \GENERIC.RENAMEFILEA0001 16 FULLNAME)
|
||
(34 SI::RESETUNWIND 5 FDEV)
|
||
()
|
||
\GENERIC.OPENP :D8
|
||
(L (2 DEVICE 1 ACCESS 0 FILENAME)) <00> @²MB Éd²RAHµI¼@L ɵL
|
||
²AšLdAi ¡‰L»Jµ
|
||
KhZY¿HX°ËK&Z°÷B ÉAHµI¼A™LAi ²Ld Ê jð¨»Jµ
|
||
KhZY¿HX°ÓK&Z°÷ (106 \IOMODEP 54 \IOMODEP 41 CL::SIMPLE-STRING-EQUAL)
|
||
(115 STREAM 83 FDEV 31 STREAM 8 FDEV)
|
||
()
|
||
\GENERIC.READP :D8
|
||
(L (1 FLG 0 STRM) P 2 \INTERRUPTABLE F 4 \PRIMTERMSA) } @ É
|
||
É< @kH¬AµbT@i
|
||
µhIlÿñ² H É€ŸIH É€
|
||
µj‚HIÂkðhðµ( @ @ É
|
||
É<»@kKhð@ ¿ (121 \BACKCCODE.EOLC 93 \INCCODE.EOLC 70 GETHASH 34 \PEEKCCODE.EOLC)
|
||
(106 FDEV 99 STREAM 63 CHARTABLE 53 CHARTABLE 12 FDEV 5 STREAM)
|
||
()
|
||
\GENERIC.CHARSET :D8
|
||
(L (2 DONTMARKSTREAM 1 NEWVALUE 0 STREAM) P 1 OLDVALUE F 3 CHARSET) x @ @É>!HµF@ʇYA²`@Aχ¿B³WAIð³R@g i ²D@lÿ
|
||
¿Sið¥Slÿð²*@lÿ
|
||
¿@j° ɲµH ɺ@ABlJ@S
|
||
I (116 \BOUT 77 \BOUT 58 \BOUT 48 \IOMODEP)
|
||
(97 EXTERNALFORMAT 87 EXTERNALFORMAT 42 OUTPUT 5 STREAM)
|
||
()
|
||
\MAP-OPEN-STREAMS :D8
|
||
(L (2 ACCESS 1 DEVICES 0 FN)) O A1HµIZ É ²6I0J É »hBJlK°dk@¼MµLh^<5E>L&½µìN
|
||
¹HX°¹ (71 \NCONC2)
|
||
(30 FDEV 16 FDEV)
|
||
()
|
||
\EOF.ACTION :D8
|
||
(L (0 STREAM)) @ É* @kH NIL
|
||
(5 STREAM)
|
||
()
|
||
\EOSERROR :D8
|
||
(L (0 STREAM)) @ ɵ@l
|
||
(17 \LISPERROR)
|
||
(5 STREAM)
|
||
()
|
||
\GETEOFPTR :D8
|
||
(L (0 STREAM)) @ É
|
||
ÉP @kH NIL
|
||
(12 FDEV 5 STREAM)
|
||
()
|
||
\INCFILEPTR :D8
|
||
(L (1 AMOUNT 0 STREAM)) > @d É
|
||
Ê 0jð²#¿@d É
|
||
ÉN @kHAØ
|
||
A
|
||
(59 \PAGED.INCFILEPTR 52 \SETFILEPTR)
|
||
(35 FDEV 28 STREAM 13 FDEV 6 STREAM)
|
||
()
|
||
\PEEKBIN :D8
|
||
(L (1 NOERRORFLG 0 STREAM)) @ É
|
||
É0 @AlH NIL
|
||
(12 FDEV 5 STREAM)
|
||
()
|
||
\SETCLOSEDFILELENGTH :D8
|
||
(L (1 NBYTES 0 FILENAME)) # @g g HA
|
||
H i (31 \CLOSEFILE 25 \SETEOFPTR 15 \OPENFILE)
|
||
(10 OLD 5 BOTH)
|
||
()
|
||
\SETEOFPTR :D8
|
||
(L (1 LEN 0 STREAM)) @ É
|
||
ÉV @AlH NIL
|
||
(12 FDEV 5 STREAM)
|
||
()
|
||
\SETFILEPTR :D8
|
||
(L (1 INDX 0 STREAM)) @ É
|
||
ÉR @AlH NIL
|
||
(12 FDEV 5 STREAM)
|
||
()
|
||
\FIXPOUT :D8
|
||
(L (1 N 0 STRM)) 3 @Amèçlÿå
|
||
@Amðçlÿå
|
||
@Amøçlÿå
|
||
@Alÿå
|
||
(48 \BOUT 38 \BOUT 25 \BOUT 12 \BOUT)
|
||
NIL
|
||
()
|
||
\FIXPIN :D8
|
||
(L (0 STRM)) @ á@ Øáá@ á@ Øä NIL
|
||
NIL
|
||
()
|
||
\BOUTEOL :D8
|
||
(L (0 STREAM)) I @ Ê dkð™¿@l
|
||
|
||
djð™¿@l
|
||
dlð²¿@l
|
||
@l
|
||
|
||
lð´ (70 SHOULDNT 59 \BOUT 51 \BOUT 35 \BOUT 21 \BOUT)
|
||
(5 STREAM)
|
||
()
|
||
\BUFFERED.BIN :D8
|
||
(L (0 STREAM)) W @ ɵ°@ È Xd@ Èýñ³%¿¿@ É
|
||
ÉZ¹@g lIdi🿰½@ HkØÍ ¿Â NIL
|
||
(77 STREAM 60 READ 51 FDEV 44 STREAM 30 STREAM 20 STREAM 8 STREAM)
|
||
()
|
||
\BUFFERED.PEEKBIN :D8
|
||
(L (1 NOERRORFLG 0 STREAM)) K @ ɵ°@ È d@ Èýñ³)¿¿@ É
|
||
ÉZ @g AlHdið“¿°ºÂ NIL
|
||
(58 READ 47 FDEV 40 STREAM 26 STREAM 17 STREAM 5 STREAM)
|
||
()
|
||
\BUFFERED.BOUT :D8
|
||
(L (1 BYTE 0 STREAM)) ` @ ɵ°5@ È Xd@ Èýñ² @ HkØÍ ¿AÇ¿@ kÏ
|
||
0k¿¿@ É
|
||
ÉZ¹@g lI¿°¦ NIL
|
||
(87 WRITE 78 FDEV 71 STREAM 57 STREAM 42 STREAM 30 STREAM 20 STREAM 8 STREAM)
|
||
()
|
||
\BUFFERED.BINS :D8
|
||
(L (4 NOERRORFLG 3 NBYTES 2 OFFSET 1 DBASE 0 STREAM)) ’ Ca@ É[²E@ È ¼@ ÈZLÙYHñ”LHYغKLABI
|
||
¿@ JÍ ¿IHð‘CBIÔb¿HIÙ¸@ É
|
||
ÉZ¾@g DlN]µCHÙið³ŽABMÇ¿BkÔb¿HmÿÔXjð³¼@ ½°é (54 \MOVEBYTES)
|
||
(103 READ 94 FDEV 87 STREAM 61 STREAM 29 STREAM 20 STREAM 9 STREAM)
|
||
()
|
||
\BUFFERED.BOUTS :D8
|
||
(L (3 NBYTES 2 OFFSET 1 SBASE 0 STREAM)) { @ É
|
||
Q@ É[²P@ È ¼@ ÈZLÙYCñ”LCYغABKLI
|
||
¿@ JÍ ¿@ kÏ
|
||
0¿CIÙbjñ¡hBIÔb¿H ÉZ½@g lM¿°“ (61 \MOVEBYTES)
|
||
(114 WRITE 105 FDEV 78 STREAM 68 STREAM 36 STREAM 27 STREAM 16 STREAM 5 STREAM)
|
||
()
|
||
\BUFFERED.COPYBYTES :D8
|
||
(L (2 NBYTES 1 DST 0 SRC)) … Bhð@ É
|
||
b@ ÉZ²Q@ È]@ È \Ù»B˜KBñ”LB[ؽA É
|
||
É@¾AJLKlN¿@ MÍ ¿BšKBð³"BKÙb¿I ÉZ_¿@dg HlO³<>h NIL
|
||
(121 READ 109 FDEV 86 STREAM 68 FDEV 61 STREAM 39 STREAM 30 STREAM 19 STREAM 8 STREAM)
|
||
()
|
||
(PRETTYCOMPRINT FILEIOCOMS)
|
||
(RPAQQ FILEIOCOMS ((PROP (FILETYPE MAKEFILE-ENVIRONMENT) FILEIO) (* ;;
|
||
"Device independent IO. This file is used by VAX") (COMS (* ;; "STREAM, FDEV declarations") (
|
||
DECLARE%: FIRST DOCOPY (* ;;
|
||
"The microcode relies on STREAM being of a particular type, viz. the first type declared in the initial loadup (after VMEMPAGEP)"
|
||
) (INITRECORDS STREAM)) (SYSRECORDS STREAM) (DECLARE%: DONTCOPY (EXPORT (RECORDS STREAM) (MACROS
|
||
STREAMOP) (CONSTANTS AppendBit NoBits ReadBit WriteBit (OutputBits (LOGOR AppendBit WriteBit)) (
|
||
BothBits (LOGOR ReadBit OutputBits))) (MACROS TestMasked APPENDABLE APPENDONLY DIRTYABLE OPENED
|
||
OVERWRITEABLE READABLE READONLY WRITEABLE) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMPROP
|
||
GETSTREAMPROP PUTSTREAMPROP STREAMP) (COMS (* ; "make streams print pretty") (FNS \DEFPRINT.BY.NAME
|
||
\STREAM.DEFPRINT \FDEV.DEFPRINT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE STREAM) (FUNCTION
|
||
\STREAM.DEFPRINT)) (DEFPRINT (QUOTE FDEV) (FUNCTION \FDEV.DEFPRINT))))) (COMS (* ;
|
||
"Needed because of STREAM initialization") (INITVARS (FILELINELENGTH 102) (\STREAM.DEFAULT.MAXBUFFERS
|
||
3))) (FNS \GETACCESS \SETACCESS) (DECLARE%: DONTCOPY (EXPORT (MACROS FDEVOP \RECOGNIZE-HACK) (RECORDS
|
||
FDEV FILEGENOBJ))) (INITRECORDS FDEV) (SYSRECORDS FDEV)) (COMS (* ; "Device operations") (FNS
|
||
\DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE \REMOVEDEVICE.NAMES) (INITVARS (
|
||
STREAM-AFTER-OPEN-FNS NIL)) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE
|
||
\GENERATEFILEINFO \GETFILENAME \GENERIC.OUTFILEP \OPENFILE \DO.PARAMS.AT.OPEN \RENAMEFILE
|
||
\REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES \PAGED.REVALIDATEFILE
|
||
\BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST \PRINT-REVALIDATION-RESULT \TRUNCATEFILE
|
||
\FILE-CONFLICT) (COMS (* ; "Generic enumerator") (FNS \GENERATENOFILES \NULLFILEGENERATOR
|
||
\NOFILESNEXTFILEFN \NOFILESINFOFN) (DECLARE%: DONTCOPY (RECORDS NOFILEGENSTATE))) (FNS \FILE.NOT.OPEN
|
||
\FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP \STREAM.NOT.OPEN) (ADDVARS (\FILEDEVICES) (
|
||
\FILEDEVICENAMES) (\DEVICENAMETODEVICE)) (COMS (* ; "Device instances") (FNS \FDEVINSTANCE) (MACROS
|
||
\INHERITFDEVOP.D \INHERITFDEVOP.S)) (INITVARS (LOGINHOST/DIR (QUOTE {DSK})) (\CONNECTED.DIRECTORY (
|
||
QUOTE {DSK}))) (GLOBALVARS LOGINHOST/DIR \CONNECTED.DIRECTORY \FILEDEVICES \FILEDEVICENAMES
|
||
\DEVICENAMETODEVICE)) (COMS (* ; "Directory defaulting") (FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP
|
||
HOSTNAMEP \ADD.CONNECTED.DIR)) (COMS (* ; "Binary I/O Public functions") (FNS \BACKFILEPTR
|
||
\BACKPEEKBIN \BACKBIN BIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES COPYCHARS COPYFILE \COPYOPENFILE
|
||
\INFER.FILE.TYPE EOFP FORCEOUTPUT \FLUSH.OPEN.STREAMS CHARSET ACCESS-CHARSET GETEOFPTR GETFILEINFO
|
||
\TYPE.FROM.FILETYPE \FILETYPE.FROM.TYPE GETFILEPTR SETFILEINFO SETFILEPTR BOUT16 BIN16) (PROP (DOPCODE
|
||
) BOUT) (* ; "Generic functions") (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP
|
||
\GENERIC.READP \GENERIC.CHARSET) (FNS \MAP-OPEN-STREAMS) (INITVARS (FILING.TYPES (QUOTE ((BINARY 0) (
|
||
DIRECTORY 1) (TEXT 2) (SERIALIZED 3) (INTERPRESS 4361) (TEDIT 6056) (FASL 6057) (LAFITE 6058))))) (
|
||
GLOBALVARS FILING.TYPES) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \DEVICE-OPEN-STREAMS
|
||
\CONVERT-PATHNAME) (OPTIMIZERS ACCESS-CHARSET))) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MAPC (QUOTE ((
|
||
FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS \NONPAGEDBINS) (\GENERIC.BOUTS
|
||
\NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (PUTD (CADR PAIR) (GETD (CAR PAIR)) T))))))) (COMS (* ;
|
||
"Internal functions") (FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH
|
||
\SETEOFPTR \SETFILEPTR) (FNS \FIXPOUT \FIXPIN) (FNS \BOUTEOL) (DECLARE%: DONTCOPY (EXPORT (MACROS
|
||
\DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS \BOUTS \EOFP SIZE.FROM.LENGTH) (
|
||
CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) WordsPerPage) (CONSTANTS (
|
||
\MAXFILEPTR (SUB1 (LLSH 1 30)))) (RECORDS BYTEPTR)) (CONSTANTS MaxChar))) (COMS (* ; "Buffered IO") (
|
||
FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS \BUFFERED.COPYBYTES)
|
||
) (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (
|
||
NLAML) (LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP)))))
|
||
(PUTPROPS FILEIO FILETYPE :BCOMPL)
|
||
(PUTPROPS FILEIO MAKEFILE-ENVIRONMENT (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10))
|
||
(ADDTOVAR SYSTEMRECLST (DATATYPE STREAM ((COFFSET WORD) (CBUFSIZE WORD) (PEEKEDCHARP FLAG) (ACCESSBITS
|
||
BITS 3) (CBUFPTR POINTER) (BYTESIZE BYTE) (CHARSET BYTE) (PEEKEDCHAR WORD) (CHARPOSITION WORD) (
|
||
CBUFMAXSIZE WORD) (NONDEFAULTDATEFLG FLAG) (REVALIDATEFLG FLAG) (MULTIBUFFERHINT FLAG) (USERCLOSEABLE
|
||
FLAG) (FULLFILENAME POINTER) (BINABLE FLAG) (BOUTABLE FLAG) (EXTENDABLE FLAG) (CBUFDIRTY FLAG) (DEVICE
|
||
POINTER) (USERVISIBLE FLAG) (EOLCONVENTION BITS 2) (READONLY-EXTERNALFORMAT FLAG) (VALIDATION POINTER
|
||
) (CPAGE POINTER) (EPAGE POINTER) (EOFFSET WORD) (LINELENGTH WORD) (F1 POINTER) (F2 POINTER) (F3
|
||
POINTER) (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (FW8 WORD) (FW9 WORD) (F10 POINTER) (
|
||
STRMBINFN POINTER) (STRMBOUTFN POINTER) (OUTCHARFN POINTER) (ENDOFSTREAMOP POINTER) (OTHERPROPS
|
||
POINTER) (IMAGEOPS POINTER) (IMAGEDATA POINTER) (BUFFS POINTER) (MAXBUFFERS WORD) (LASTCCODE WORD) (
|
||
EXTRASTREAMOP POINTER) (INCCODEFN POINTER) (PEEKCCODEFN POINTER) (BACKCCODEFN POINTER) (EXTERNALFORMAT
|
||
POINTER))))
|
||
(DEFPRINT (QUOTE STREAM) (FUNCTION \STREAM.DEFPRINT))
|
||
(DEFPRINT (QUOTE FDEV) (FUNCTION \FDEV.DEFPRINT))
|
||
(RPAQ? FILELINELENGTH 102)
|
||
(RPAQ? \STREAM.DEFAULT.MAXBUFFERS 3)
|
||
(/DECLAREDATATYPE (QUOTE FDEV) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER FLAG FLAG FLAG
|
||
FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER
|
||
POINTER POINTER POINTER)) (QUOTE ((FDEV 0 (FLAGBITS . 0)) (FDEV 0 (FLAGBITS . 16)) (FDEV 0 (FLAGBITS
|
||
. 32)) (FDEV 0 (FLAGBITS . 48)) (FDEV 0 (FLAGBITS . 64)) (FDEV 0 (FLAGBITS . 80)) (FDEV 0 (FLAGBITS
|
||
. 96)) (FDEV 0 (FLAGBITS . 112)) (FDEV 2 POINTER) (FDEV 2 (FLAGBITS . 0)) (FDEV 2 (FLAGBITS . 16)) (
|
||
FDEV 2 (FLAGBITS . 32)) (FDEV 2 (FLAGBITS . 48)) (FDEV 4 POINTER) (FDEV 6 POINTER) (FDEV 8 POINTER) (
|
||
FDEV 10 POINTER) (FDEV 12 POINTER) (FDEV 14 POINTER) (FDEV 16 POINTER) (FDEV 18 POINTER) (FDEV 20
|
||
POINTER) (FDEV 22 POINTER) (FDEV 24 POINTER) (FDEV 26 POINTER) (FDEV 28 POINTER) (FDEV 30 POINTER) (
|
||
FDEV 32 POINTER) (FDEV 34 POINTER) (FDEV 36 POINTER) (FDEV 38 POINTER) (FDEV 40 POINTER) (FDEV 42
|
||
POINTER) (FDEV 44 POINTER) (FDEV 46 POINTER) (FDEV 48 POINTER) (FDEV 50 POINTER) (FDEV 52 POINTER) (
|
||
FDEV 54 POINTER) (FDEV 56 POINTER) (FDEV 58 POINTER) (FDEV 60 POINTER) (FDEV 62 POINTER) (FDEV 64
|
||
POINTER) (FDEV 66 POINTER) (FDEV 68 POINTER) (FDEV 70 POINTER) (FDEV 72 POINTER) (FDEV 74 POINTER) (
|
||
FDEV 76 POINTER) (FDEV 78 POINTER) (FDEV 80 POINTER) (FDEV 82 POINTER) (FDEV 84 POINTER) (FDEV 86
|
||
POINTER) (FDEV 88 POINTER) (FDEV 90 POINTER) (FDEV 92 POINTER) (FDEV 94 POINTER) (FDEV 96 POINTER) (
|
||
FDEV 98 POINTER) (FDEV 100 POINTER) (FDEV 102 POINTER) (FDEV 104 POINTER))) (QUOTE 106))
|
||
(ADDTOVAR SYSTEMRECLST (DATATYPE FDEV ((RESETABLE FLAG) (RANDOMACCESSP FLAG) (NODIRECTORIES FLAG) (
|
||
PAGEMAPPED FLAG) (FDBINABLE FLAG) (FDBOUTABLE FLAG) (FDEXTENDABLE FLAG) (BUFFERED FLAG) (DEVICENAME
|
||
POINTER) (REMOTEP FLAG) (SUBDIRECTORIES FLAG) (INPUT-INDIRECTED FLAG) (OUTPUT-INDIRECTED FLAG) (
|
||
DEVICEINFO POINTER) (OPENFILELST POINTER) (HOSTNAMEP POINTER) (EVENTFN POINTER) (DIRECTORYNAMEP
|
||
POINTER) (OPENFILE POINTER) (CLOSEFILE POINTER) (REOPENFILE POINTER) (GETFILENAME POINTER) (DELETEFILE
|
||
POINTER) (GENERATEFILES POINTER) (RENAMEFILE POINTER) (OPENP POINTER) (REGISTERFILE POINTER) (
|
||
UNREGISTERFILE POINTER) (FREEPAGECOUNT POINTER) (MAKEDIRECTORY POINTER) (CHECKFILENAME POINTER) (
|
||
HOSTALIVEP POINTER) (BREAKCONNECTION POINTER) (BIN POINTER) (BOUT POINTER) (PEEKBIN POINTER) (FDEV1
|
||
POINTER) (FDEV2 POINTER) (FDEV3 POINTER) (FDEV4 POINTER) (READP POINTER) (EOFP POINTER) (BLOCKIN
|
||
POINTER) (BLOCKOUT POINTER) (FORCEOUTPUT POINTER) (GETFILEINFO POINTER) (SETFILEINFO POINTER) (
|
||
CHARSETFN POINTER) (INPUTSTREAM POINTER) (OUTPUTSTREAM POINTER) (GETFILEPTR POINTER) (GETEOFPTR
|
||
POINTER) (SETFILEPTR POINTER) (BACKFILEPTR POINTER) (SETEOFPTR POINTER) (LASTC POINTER) (GETNEXTBUFFER
|
||
POINTER) (RELEASEBUFFER POINTER) (READPAGES POINTER) (WRITEPAGES POINTER) (TRUNCATEFILE POINTER) (
|
||
WINDOWOPS POINTER) (WINDOWDATA POINTER) (DEFAULTEXTERNALFORMAT POINTER))))
|
||
(RPAQ? STREAM-AFTER-OPEN-FNS NIL)
|
||
(ADDTOVAR \FILEDEVICES)
|
||
(ADDTOVAR \FILEDEVICENAMES)
|
||
(ADDTOVAR \DEVICENAMETODEVICE)
|
||
(PUTPROPS \INHERITFDEVOP.D MACRO (X (SUBPAIR (QUOTE (NEWARGS OPNAME . ARGS)) (CONS (SUBST (QUOTE (
|
||
fetch DEVICEINFO of FDEV)) (QUOTE FDEV) (CDR X)) X) (QUOTE (FUNCTION (LAMBDA ARGS (FDEVOP (QUOTE
|
||
OPNAME) (fetch DEVICEINFO of FDEV) . NEWARGS)))))))
|
||
(PUTPROPS \INHERITFDEVOP.S MACRO ((OPNAME . ARGS) (FUNCTION (LAMBDA ARGS (FDEVOP (QUOTE OPNAME) (fetch
|
||
DEVICEINFO of (fetch DEVICE of STREAM)) . ARGS)))))
|
||
(RPAQ? LOGINHOST/DIR (QUOTE {DSK}))
|
||
(RPAQ? \CONNECTED.DIRECTORY (QUOTE {DSK}))
|
||
(PUTPROPS BOUT DOPCODE (33 BOUT 0 T -1 \BOUT (4K DORADO)))
|
||
(RPAQ? FILING.TYPES (QUOTE ((BINARY 0) (DIRECTORY 1) (TEXT 2) (SERIALIZED 3) (INTERPRESS 4361) (TEDIT
|
||
6056) (FASL 6057) (LAFITE 6058))))
|
||
(MAPC (QUOTE ((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS \NONPAGEDBINS) (
|
||
\GENERIC.BOUTS \NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (PUTD (CADR PAIR) (GETD (CAR PAIR)) T))))
|
||
NIL
|