(FILECREATED "23-Jun-86 14:40:37" ("compiled on " {ERIS}SOURCES>FILEIO.;71) "11-Jun-86 13:27:02" recompiled changes: \GETFILENAME \GETFILENAME.OR.STREAM \OPENFILE in "" dated "11-Jun-86 13:41:17") (FILECREATED "23-Jun-86 14:35:55" {ERIS}SOURCES>FILEIO.;71 151819 changes to: (FNS \GETFILENAME \GETFILENAME.OR.STREAM \OPENFILE) (MACROS \CONVERT-PATHNAME) previous date: "18-Jun-86 17:54:49" {ERIS}SOURCES>FILEIO.;68) (/DECLAREDATATYPE (QUOTE STREAM) (QUOTE (WORD WORD FLAG FLAG FLAG (BITS 5) POINTER FLAG FLAG FLAG FLAG FLAG (BITS 3) POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER WORD WORD BYTE POINTER WORD WORD WORD WORD WORD WORD (BITS 2) FLAG (BITS 5) POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER BYTE)) (QUOTE ((STREAM 0 (BITS . 15)) (STREAM 1 ( BITS . 15)) (STREAM 2 (FLAGBITS . 0)) (STREAM 2 (FLAGBITS . 16)) (STREAM 2 (FLAGBITS . 32)) (STREAM 2 (BITS . 52)) (STREAM 2 POINTER) (STREAM 4 (FLAGBITS . 0)) (STREAM 4 (FLAGBITS . 16)) (STREAM 4 ( FLAGBITS . 32)) (STREAM 4 (FLAGBITS . 48)) (STREAM 4 (FLAGBITS . 64)) (STREAM 4 (BITS . 82)) (STREAM 4 POINTER) (STREAM 6 POINTER) (STREAM 8 POINTER) (STREAM 10 (BITS . 15)) (STREAM 11 (BITS . 15)) ( STREAM 12 POINTER) (STREAM 14 POINTER) (STREAM 16 POINTER) (STREAM 18 POINTER) (STREAM 20 POINTER) ( STREAM 22 (BITS . 15)) (STREAM 23 (BITS . 15)) (STREAM 20 (BITS . 7)) (STREAM 24 POINTER) (STREAM 26 ( BITS . 15)) (STREAM 27 (BITS . 15)) (STREAM 28 (BITS . 15)) (STREAM 29 (BITS . 15)) (STREAM 30 (BITS . 15)) (STREAM 31 (BITS . 15)) (STREAM 24 (BITS . 1)) (STREAM 24 (FLAGBITS . 32)) (STREAM 24 (BITS . 52)) (STREAM 32 POINTER) (STREAM 34 POINTER) (STREAM 36 POINTER) (STREAM 38 POINTER) (STREAM 40 POINTER) (STREAM 42 POINTER) (STREAM 44 POINTER) (STREAM 46 POINTER) (STREAM 48 (BITS . 15)) (STREAM 49 (BITS . 15)) (STREAM 50 POINTER) (STREAM 50 (BITS . 7)))) (QUOTE 52)) STREAMPROP D1 (L (0 X)) *eHdlkalala l kala  (47Q \ILLEGAL.ARG 43Q GETSTREAMPROP 25Q PUTSTREAMPROP) NIL () GETSTREAMPROP D1 (L (1 PROP 0 STREAM)) @d`@$A'(13Q \ILLEGAL.ARG) (20Q STREAM 5 STREAMTYPE#) () PUTSTREAMPROP D1 (L (2 VALUE 1 PROP 0 STREAM) P 1 OLDVALUE) d@d` @$!HB@ABh$hA'YBHAB -I+HdA@H$AJdJZI(62Q LISTPUT 12Q \ILLEGAL.ARG) (104Q STREAM 36Q STREAM 17Q STREAM 5 STREAMTYPE#) () STREAMP D1 (L (0 X)) @`@NIL (4 STREAMTYPE#) () \GETACCESS D1 (L (0 STREAM)) 4@Rdjhdkgdlgdlglg(61Q SHOULDNT) (55Q BOTH 45Q OUTPUT 34Q APPEND 23Q INPUT 3 STREAM) () \SETACCESS D1 (L (1 ACCESS 0 STREAM) P 0 \INTERRUPTABLE) @@AI@jR@@@j jdkjYIjkj@@g.g,gT@kR@K@jkj@K,@g.@@j jdkjZJ2Adg[@lR@KPjkj@K`jkj @K .@g,@jjgY@lR@KPjkj@K`jkj @K .@g,@jjsAge@lR@K@jkj@KPjkj@K`jkj @K,@K .o A(732Q RAID) (716Q FDEV 712Q STREAM 701Q FDEV 675Q STREAM 654Q FDEV 650Q STREAM 627Q FDEV 623Q STREAM 602Q FDEV 576Q STREAM 564Q STREAM 555Q BOTH 541Q STREAM 532Q \STREAM.NOT.OPEN 527Q STREAM 516Q FDEV 512Q STREAM 471Q FDEV 465Q STREAM 444Q FDEV 440Q STREAM 426Q STREAM 417Q OUTPUT 403Q STREAM 374Q \STREAM.NOT.OPEN 371Q STREAM 360Q FDEV 354Q STREAM 333Q FDEV 327Q STREAM 306Q FDEV 302Q STREAM 270Q STREAM 260Q APPEND 226Q STREAM 222Q STREAM 213Q \STREAM.NOT.OPEN 210Q STREAM 177Q FDEV 173Q STREAM 152Q FDEV 146Q STREAM 135Q STREAM 126Q INPUT 116Q \STREAM.NOT.OPEN 110Q \STREAM.NOT.OPEN 105Q STREAM 101Q STREAM 41Q STREAM 35Q STREAM 31Q STREAM 20Q STREAM 6 STREAM) ( 727Q "Illegal stream access mode") \DEFINEDEVICE D1 (L (1 DEV 0 NAME) P 1 \INTERRUPTABLE) @ bA%@`XBH` @` '`R@`A`HA`@@d`` `H @h`AAlA `oA bibd(237Q ERROR 220Q U-CASE 145Q DREMOVE 51Q DREMOVE 36Q DREMOVE 6 U-CASE) (223Q \DEVICENAMETODEVICE 200Q \DEVICENAMETODEVICE 174Q \DEVICENAMETODEVICE 162Q \FILEDEVICENAMES 156Q \FILEDEVICENAMES 150Q \FILEDEVICES 142Q \FILEDEVICES 132Q \FILEDEVICENAMES 120Q \FILEDEVICES 114Q \FILEDEVICES 103Q \FILEDEVICES 72Q \DEVICENAMETODEVICE 63Q FDEVTYPE# 54Q \FILEDEVICENAMES 46Q \FILEDEVICENAMES 41Q \DEVICENAMETODEVICE 33Q \DEVICENAMETODEVICE 20Q \DEVICENAMETODEVICE) ( 233Q "INVALID FILE DEVICE") \GETDEVICEFROMNAME D1 (L (2 DONTCREATE 1 NOERROR 0 NAME)) '@dl@g @B Ah@l (44Q \LISPERROR 27Q \GETDEVICEFROMHOSTNAME 20Q FILENAMEFIELD) (15Q HOST) () \GETDEVICEFROMHOSTNAME D1 (L (1 DONTCREATE 0 HOSTN)) L@`D@ b`7Ah2`1HhY@IlKZHX`J@I I(110Q \DEFINEDEVICE 13Q U-CASE) (77Q FDEVTYPE# 52Q FDEV 34Q \FILEDEVICES 20Q \DEVICENAMETODEVICE 3 \DEVICENAMETODEVICE) () \REMOVEDEVICE D1 (L (0 DEV) P 3 \INTERRUPTABLE) E0`YhX@` @Z@JiI` H` (76Q DREMOVE 63Q DREMOVE 27Q DREMOVE) (101Q \DEVICENAMETODEVICE 73Q \DEVICENAMETODEVICE 66Q \FILEDEVICENAMES 60Q \FILEDEVICENAMES 32Q \FILEDEVICES 24Q \FILEDEVICES 10Q \DEVICENAMETODEVICE) () \REMOVEDEVICE.NAMES D1 (L (1 NAMES 0 DEV)) J`1HYJ h` h@'AI[AAKAI` IhiI(72Q DREMOVE 24Q DREMOVE) (75Q \FILEDEVICENAMES 67Q \FILEDEVICENAMES 27Q \DEVICENAMETODEVICE 21Q \DEVICENAMETODEVICE 2 \DEVICENAMETODEVICE) () \CLOSEFILE D1 (L (0 STREAM)) :@dRk@&@kH@@kH@ @(66Q \SETACCESS) (50Q FDEV 43Q STREAM 25Q IMAGEOPS 20Q STREAM 4 STREAM) () \DELETEFILE D1 (L (1 DEV 0 FILENAME)) ,@d @ bA di bd@AlH(27Q \GETDEVICEFROMNAME 15Q \ADD.CONNECTED.DIR 12Q NAMESTRING 4 PATHNAMEP) (36Q FDEV) () \DEVICEEVENTA0001 D1 (L (0 STREAM)) +@Rlj@j@kkjhhNIL (34Q STREAM 21Q STREAM 3 STREAM) () \DEVICEEVENT D1 (L (0 EVENT)) J@g@g@g@gg` `` dHH@lIh(55Q REVERSE 41Q \MAP-OPEN-STREAMS) (70Q FDEV 52Q \FILEDEVICES 45Q \FILEDEVICES 36Q \FILEDEVICES 33Q \DEVICEEVENTA0001 26Q BEFORESAVEVM 20Q BEFORESYSOUT 12Q BEFOREMAKESYS 3 BEFORELOGOUT) () \GENERATEFILES D1 (L (2 OPTIONS 1 DESIREDPROPS 0 PATTERN)) @ bd H H@ABlI(11Q \GETDEVICEFROMNAME 3 \ADD.CONNECTED.DIR) (20Q FDEV) () \GENERATENEXTFILE D1 (L (1 NAMEONLY 0 GENOBJ)) @@AlHNIL NIL () \GENERATEFILEINFO D1 (L (1 ATTRIBUTE 0 GENOBJ)) @@AlHNIL NIL () \GETFILENAME D1 (L (2 FDEV 1 RECOG 0 NAME)) ?@d` bd HB @i bd@ABlIH(41Q \GETDEVICEFROMNAME 23Q \SEARCHOPENFILES 15Q \ADD.CONNECTED.DIR 12Q NAMESTRING) (67Q STREAM 51Q FDEV 5 PATHNAMETYPE#) () \GETFILENAME.OR.STREAM D1 (L (2 FDEV 1 RECOG 0 NAME)) @d` bdd`$ddRj[@b I@l@dAih@5@ bd (B @i bd@ABlHbd @@hi (203Q \GETSTREAM 171Q \SEARCHOPENFILES 136Q \GETDEVICEFROMNAME 124Q \SEARCHOPENFILES 116Q \ADD.CONNECTED.DIR 63Q \SEARCHOPENFILES 12Q NAMESTRING) (145Q FDEV 54Q STREAM 45Q STREAM 33Q STREAM 22Q STREAMTYPE# 5 PATHNAMETYPE#) () \GENERIC.OUTFILEP D1 (L (1 DEV 0 NAME)) =A@gAlHHgHg kkgH gkg@ (72Q PACKFILENAME 56Q PACKFILENAME 42Q FILENAMEFIELD) (66Q BODY 62Q VERSION 52Q BODY 37Q VERSION 33Q VERSION 14Q OLD 3 FDEV) () \OPENFILE D1 (L (3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) `@d`@dAi @AC @Y Y XIABCHlKZ @l bA JAgJ jJAgJ jJAC J]RMJlLJ(175Q \DO.PARAMS.AT.OPEN 114Q \SETACCESS 104Q \LISPERROR 53Q \GETDEVICEFROMNAME 47Q \ADD.CONNECTED.DIR 33Q \DO.PARAMS.AT.OPEN 23Q \IOMODEP) (210Q FDEV 202Q STREAM 160Q STREAM 152Q APPEND 146Q STREAM 133Q STREAM 125Q APPEND 121Q STREAM 57Q FDEV 41Q STREAM 10Q STREAMTYPE#) () \DO.PARAMS.AT.OPEN D1 (L (2 PARAMETERS 1 ACCESS 0 STREAM)) KB1HhYdIiJdg@gK g@gK Jg@K HX(103Q CHARSET 67Q SETFILEINFO 50Q SETFILEINFO) (74Q CHARSET 63Q ENDOFSTREAMOP 55Q ENDOFSTREAMOP 44Q BUFFERS 35Q BUFFERS) () \RENAMEFILE D1 (L (1 NEWFILE 0 OLDFILE)) ,@ bA b@i Ai Hd:H@IAlJ(25Q \GETDEVICEFROMNAME 20Q \GETDEVICEFROMNAME 11Q \ADD.CONNECTED.DIR 3 \ADD.CONNECTED.DIR) (36Q FDEV) () \REVALIDATEFILE D1 (L (0 STREAM)) @@@ gh@@lHHg@h@H  @H@H@H@H@H@HH@@H@H @H g(27Q \GETACCESS) (300Q CHANGED 271Q STREAM 265Q STREAM 255Q STREAM 251Q STREAM 241Q STREAM 235Q STREAM 224Q STREAM 216Q STREAM 206Q STREAM 202Q STREAM 172Q STREAM 166Q STREAM 156Q STREAM 152Q STREAM 142Q STREAM 136Q STREAM 126Q STREAM 122Q STREAM 112Q STREAM 106Q STREAM 76Q STREAM 72Q STREAM 60Q DELETED 37Q STREAM 32Q OLD 21Q STREAM 10Q FDEV 3 STREAM) () \PAGED.REVALIDATEFILELST D1 (L (0 DEVICE)) @Nhd@lH1H@Nhd@lHY ZHXI JdgI 0g'I Ig dIkKI I@ JI (175Q \PRINT-REVALIDATION-RESULT 167Q SHOULDNT 163Q \DELETE-OPEN-STREAM 155Q \SETACCESS 133Q STREAMPROP 123Q FORGETPAGES 107Q RESTOREMAP 72Q \CHECK-DRIBBLE-FILE 56Q \PAGED.REVALIDATEFILE) (130Q AFTERCLOSE 114Q DELETED 100Q CHANGED 34Q FDEV 3 FDEV) () \PAGED.REVALIDATEFILE D1 (L (0 STREAM)) @@@ gh@@lHHg@h@H  @H@H@H@H@H@HH@@H@H @H g(27Q \GETACCESS) (300Q CHANGED 271Q STREAM 265Q STREAM 255Q STREAM 251Q STREAM 241Q STREAM 235Q STREAM 224Q STREAM 216Q STREAM 206Q STREAM 202Q STREAM 172Q STREAM 166Q STREAM 156Q STREAM 152Q STREAM 142Q STREAM 136Q STREAM 126Q STREAM 122Q STREAM 112Q STREAM 106Q STREAM 76Q STREAM 72Q STREAM 60Q DELETED 37Q STREAM 32Q OLD 21Q STREAM 10Q FDEV 3 STREAM) () \BUFFERED.REVALIDATEFILE D1 (L (0 STREAM)) @@@ gh@@lHHg@h@H  @H@H@H@H@H@HH@@H@H @H g(27Q \GETACCESS) (300Q CHANGED 271Q STREAM 265Q STREAM 255Q STREAM 251Q STREAM 241Q STREAM 235Q STREAM 224Q STREAM 216Q STREAM 206Q STREAM 202Q STREAM 172Q STREAM 166Q STREAM 156Q STREAM 152Q STREAM 142Q STREAM 136Q STREAM 126Q STREAM 122Q STREAM 112Q STREAM 106Q STREAM 76Q STREAM 72Q STREAM 60Q DELETED 37Q STREAM 32Q OLD 21Q STREAM 10Q FDEV 3 STREAM) () \BUFFERED.REVALIDATEFILELST D1 (L (0 DEVICE)) x@Nhd@lH1H@Nhd@lHY ZHXI JgJg*Ig dIkKI I@ JI (163Q SHOULDNT 155Q \PRINT-REVALIDATION-RESULT 147Q \DELETE-OPEN-STREAM 141Q \SETACCESS 117Q STREAMPROP 72Q \CHECK-DRIBBLE-FILE 56Q \BUFFERED.REVALIDATEFILE) (114Q AFTERCLOSE 105Q CHANGED 77Q DELETED 34Q FDEV 3 FDEV) () \FIX.DRIBBLE.FILE D1 (L (1 STREAM 0 REASON) P 0 \INTERRUPTABLE F 1 \DRIBBLE.OFD F 2 \TERM.OFD) @gAQ hcR (25Q \REMOVEDRIBBLECHECK) (3 DELETED) () \PRINT-REVALIDATION-RESULT D1 (L (1 STREAM 0 RESULT)) Li i oi AAi @dgoi i goi i (111Q SHOULDNT 105Q TERPRI 101Q PRIN1 63Q TERPRI 57Q PRIN1 37Q PRIN1 21Q PRIN1 10Q TERPRI 3 TERPRI) (67Q DELETED 44Q CHANGED 26Q STREAM) ( 75Q " was previously opened but has disappeared!" 53Q " has been modified since you last accessed it!" 15Q "**** WARNING: The file ") \CHECK-DRIBBLE-FILE D1 (L (1 STREAM 0 REASON) P 0 \INTERRUPTABLE F 1 \DRIBBLE.OFD F 2 \TERM.OFD) @gAQ hcR (25Q \REMOVEDRIBBLECHECK) (3 DELETED) () \TRUNCATEFILE D1 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @@ABlHNIL (10Q FDEV 3 STREAM) () \FILE-CONFLICT D1 (L (2 DEVICE 1 ACCESS 0 NAME)) 7@d`!BNHABlId AgJghi(44Q \GETACCESS) (57Q INPUT 51Q INPUT 23Q FDEV 12Q STREAM 5 STREAMTYPE#) () \GENERATENOFILES D1 (L (3 OPTIONS 2 DESIREDPROPS 1 PATTERN 0 FDEV)) pgA oA HAHk)l;NgAHk BIAIk)l;5gAIk )ggHIgghgA bgAh(155Q \NULLFILEGENERATOR 135Q PACKFILENAME 101Q STRPOS 50Q STRPOS 16Q STRPOS 6 STRPOS) (143Q STAR 131Q BODY 125Q VERSION 120Q NOSTAR 111Q \NOFILESINFOFN 106Q \NOFILESNEXTFILEFN 72Q  41Q * 2 *) ( 12Q (CONSTANT (CHARACTER (CHARCODE ESC)))) \NULLFILEGENERATOR D1 NIL ghhNIL (2 NILL) () \NOFILESNEXTFILEFN D1 (L (1 NAMEONLY 0 GENFILESTATE)) 0@Ydg@g@ XZghIdg$@g @Hg @ g &kZIgJg@ XIHg H@HHJk԰(160Q FILENAMEFIELD 145Q INFILEP 142Q PACKFILENAME.STRING 111Q FILENAMEFIELD 103Q INFILEP 75Q FILENAMEFIELD 64Q FULLNAME 30Q INFILEP) (155Q VERSION 134Q BODY 130Q VERSION 106Q VERSION 72Q VERSION 61Q OLDEST 47Q STAR 36Q DONE 20Q DONE 11Q NOSTAR) () \NOFILESINFOFN D1 (L (1 ATTRIBUTE 0 GENSTATE)) @A (6 GETFILEINFO) NIL () \FILE.NOT.OPEN D1 (L (1 NOERROR 0 X)) Ah@d`@l (31Q \LISPERROR) (17Q STREAM 12Q STREAMTYPE#) () \FILE.WONT.OPEN D1 (L (0 X)) @d`@l (24Q \LISPERROR) (12Q STREAM 5 STREAMTYPE#) () \ILLEGAL.DEVICEOP D1 (L (0 N)) /eoHk2JdIK aL Mh\JkZM&(27Q ERROR) NIL ( 7 "Attempt to use undefined device operation") \IS.NOT.RANDACCESSP D1 (L (0 N)) "ekaoId`I (37Q ERROR) (27Q STREAM 22Q STREAMTYPE#) ( 14Q "File is not RANDACCESSP") \STREAM.NOT.OPEN D1 (L (0 STREAM)) @@l (15Q \LISPERROR) (3 STREAM) () \FDEVINSTANCEA0002 D1 (L (0 STREAM)) @(@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0005 D1 (L (2 FDEV 1 ATTRIB 0 STREAM)) B( @AB(lHNIL (23Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0008 D1 (L (4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 CDNAME)) D(@ABCD(lHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0011 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0014 D1 (L (3 FDEV 2 VALUE 1 ATTRIBUTE 0 STREAM)) C(@ABC(lHNIL (24Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0017 D1 (L (2 LASTOFFSET 1 LASTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0020 D1 (L (2 BUFFERLIST 1 FIRSTPAGE 0 STREAM)) @(@ABlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0023 D1 (L (5 OLDSTREAM 4 FDEV 3 OTHERINFO 2 RECOG 1 ACCESS 0 NAME)) D(@ABCD(ElHNIL (25Q FDEV 10Q FDEV 3 FDEV) () \FDEVINSTANCEA0026 D1 (L (0 STREAM)) @(@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0029 D1 (L (1 BYTE 0 STREAM)) @( @AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0032 D1 (L (1 NOERRORFLG 0 STREAM)) @("@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0035 D1 (L (0 STREAM)) @(&@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0038 D1 (L (1 INDX 0 STREAM)) @(.@AlHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0041 D1 (L (0 STREAM)) @(0@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0044 D1 (L (0 STREAM)) @(2@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0047 D1 (L (0 STREAM)) @(4@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0050 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @(6@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0053 D1 (L (3 NBYTES 2 OFFSET 1 BASE 0 STREAM)) @(8@ABClHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCEA0056 D1 (L (0 STREAM)) @(*@kHNIL (15Q FDEV 10Q FDEV 3 STREAM) () \FDEVINSTANCE D1 (L (0 FDEV)) `@ d@(dgdg dgdgdgdgdgdgdgdg dg"dg&dg.dg0dg2dg4dg6dg8dg*(6 NCREATE2) (215Q \FDEVINSTANCEA0056 206Q \FDEVINSTANCEA0053 177Q \FDEVINSTANCEA0050 170Q \FDEVINSTANCEA0047 161Q \FDEVINSTANCEA0044 152Q \FDEVINSTANCEA0041 143Q \FDEVINSTANCEA0038 134Q \FDEVINSTANCEA0035 125Q \FDEVINSTANCEA0032 116Q \FDEVINSTANCEA0029 107Q \FDEVINSTANCEA0026 100Q \FDEVINSTANCEA0023 71Q \FDEVINSTANCEA0020 62Q \FDEVINSTANCEA0017 53Q \FDEVINSTANCEA0014 44Q \FDEVINSTANCEA0011 35Q \FDEVINSTANCEA0008 26Q \FDEVINSTANCEA0005 17Q \FDEVINSTANCEA0002 2 FDEVTYPE#) () CNDIR D1 (L (0 HOST/DIR)) ,@dd @ ig o@  `(43Q PATHNAME 35Q ERROR 23Q DIRECTORYNAME 14Q NAMESTRING 6 PATHNAMEP) (51Q \CONNECTED.DIRECTORY 46Q *DEFAULT-PATHNAME-DEFAULTS* 40Q \CONNECTED.DIRECTORY 20Q ASK) ( 31Q "Non-existent directory") DIRECTORYNAME D1 (L (2 CREATE? 1 STRPTR 0 DIRNAME)) v0@di`W`QgL@g g@g` bg Yd/@IBlJXdigIg@ AH iH (163Q MKATOM 152Q MKSTRING 142Q PACKFILENAME.STRING 71Q \GETDEVICEFROMHOSTNAME 66Q FILENAMEFIELD 56Q PACKFILENAME.STRING 37Q FILENAMEFIELD) (136Q DIRECTORY 131Q FDEV 125Q HOST 100Q FDEV 63Q HOST 53Q \CONNECTED.DIRECTORY 50Q DIRECTORY 44Q DIRECTORY 34Q HOST 26Q {DSK} 21Q LOGINHOST/DIR 13Q \CONNECTED.DIRECTORY) () DIRECTORYNAMEP D1 (L (1 HOSTNAME 0 DIRNAME)) 4Ag@gAg@g` !Hi YdHIlJi(37Q \GETDEVICEFROMNAME 27Q PACKFILENAME.STRING) (45Q FDEV 24Q \CONNECTED.DIRECTORY 21Q DIRECTORY 15Q DIRECTORY 10Q HOST 4 DIRECTORY) () HOSTNAMEP D1 (L (0 NAME)) d@@dl ;@ Xd l{HlgHl dk X` `Zhi[HkIKiJ(76Q MEMB 67Q SUBATOM 57Q STRPOS 35Q CHCON1 30Q MKATOM 25Q U-CASE 14Q U-CASE) (120Q FDEV 102Q \FILEDEVICES 73Q \FILEDEVICENAMES 51Q }) () \ADD.CONNECTED.DIR D1 (L (0 FILENAME)) &@dld@g g@g` @(41Q PACKFILENAME 23Q FILENAMEFIELD) (36Q \CONNECTED.DIRECTORY 33Q DIRECTORY 27Q BODY 20Q HOST) () \BACKFILEPTR D1 (L (0 STREAM)) @&@kHNIL (10Q FDEV 3 STREAM) () \BACKPEEKBIN D1 (L (0 STREAM) P 0 \INTERRUPTABLE) @ @ (6 \BACKFILEPTR) NIL () \BACKBIN D1 (L (0 STREAM)) @ @ (11Q \PEEKBIN 3 \BACKFILEPTR) NIL () BIN D1 (L (0 STREAM)) @ NIL NIL () \BIN D1 (L (0 STREAM)) @b,@kHNIL (10Q STREAM 3 STREAM) () \BINS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @b6@ABClHNIL (12Q FDEV 3 STREAM) () BOUT D1 (L (1 BYTE 0 STREAM)) @A!NIL NIL () \BOUT D1 (L (1 BYTE 0 STREAM)) @b.@AlHNIL (10Q STREAM 3 STREAM) () \BOUTS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) @b8@ABClHNIL (12Q FDEV 3 STREAM) () COPYBYTES D1 (L (3 END 2 START 1 DSTFIL 0 SRCFIL)) @g Ag 2CHBChHBd3 jBBdoB CdmH 3 jCCdoC BـBZdjJoJ HpjHIJ @J?HdjH H0HkKٵH4HkLidjIH !kٰIH !(233Q \GETEOFPTR 177Q \BUFFERED.COPYBYTES 151Q ERROR 126Q \ILLEGAL.ARG 100Q \GETEOFPTR 64Q \SETFILEPTR 61Q \ILLEGAL.ARG 15Q \GETSTREAM 6 \GETSTREAM) (267Q FDEV 262Q STREAM 244Q FDEV 237Q STREAM 217Q FDEV 212Q STREAM 163Q FDEV 156Q STREAM 12Q OUTPUT 3 INPUT) ( 145Q "Negative number of bytes to copy" 117Q 77777777Q 52Q 77777777Q) COPYCHARS D1 (L (3 END 2 START 1 DSTFIL 0 SRCFIL)) z@ A jPH^I_HIBC NHjh[H CUKoH BjZ_3 jOOoBl HJ Cdmcd3 jCCdoRC LB.K(H0_HkOMBJ_dO%O BKH0_HkOZMJLoLJ NdjLJdjtH _l OlIl !Il IH _l)Hd _lOHd jl _2H _OH2_nOH OdOOH_"_ dl +O"djl 0lHi l H l l l l O"kl l O _(_& _$O&O(lO$H4_HkO>IO!kk)LJdjzH _l Il !OlIl IO!kNlRkLJ_,_*O*O,DIH _dl *O,dkm_,H _l Ojl l Il !O!O,m_,i(1166Q SHOULDNT 624Q \PEEKBIN 504Q \NSIN.24BITENCODING.ERROR 361Q ERROR 226Q \ILLEGAL.ARG 167Q \SETFILEPTR 161Q \LISPERROR 124Q ERROR 101Q \GETEOFPTR 50Q COPYBYTES 7 \GETSTREAM 3 \GETSTREAM) (730Q FDEV 723Q STREAM 700Q STREAM 325Q FDEV 320Q STREAM 247Q FDEV 242Q STREAM 117Q STREAM 64Q FDEV 57Q STREAM 32Q STREAM 22Q STREAM) ( 353Q "Negative number of bytes to copy" 216Q 77777777Q 151Q 77777777Q 113Q "COPYCHARS: Source file is not random access") COPYFILEA0001 D1 (NAME ERRORSET F 0 FROMFILE F 1 RESETVARSLST F 2 RESETY F 3 TOFILE F 4 DESTPARAMETERS) 'oPggo chQcPST ci(41Q \COPYOPENFILE 21Q OPENSTREAM) (12Q OLD 7 INPUT) ( 16Q ((SEQUENTIAL T) (DON'TCACHE T)) 3 (PROGN (CLOSEF OLDVALUE))) COPYFILE D1 (P 1 RESETY P 0 LISPXHIST I 2 DESTPARAMETERS I 1 TOFILE I 0 FROMFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q COPYFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (COPYFILEA0001)) \COPYOPENFILE D1 (L (2 DESTPARAMETERS 1 NEWNAME 0 INSTREAM) F 12Q RESETVARSLST) D B gB@g ZgJhH@g ZgJhHgBY#@g YIg@ Y gIhHIg@g ZgBgJhHoAggooH [hWc@0@kLj@j Ig}Kg Jr@g"@_@ _^KOdl +Odjl 0l@i l @ l l l l Okl l O_^ NOlM@K K (501Q CLOSEF 474Q COPYBYTES 400Q \PEEKBIN 303Q GETFILEINFO 264Q SETFILEPTR 223Q OPENSTREAM 150Q GETFILEINFO 115Q \INFER.FILE.TYPE 101Q GETFILEINFO 44Q GETFILEINFO 21Q GETFILEINFO) (453Q STREAM 325Q STREAM 316Q NILL 313Q STREAM 300Q EOL 271Q TEXT 245Q FDEV 240Q STREAM 205Q NEW 202Q OUTPUT 163Q EOL 155Q EOL 145Q EOL 136Q TEXT 123Q TYPE 107Q ? 76Q TYPE 63Q TYPE 51Q LENGTH 41Q LENGTH 26Q CREATIONDATE 16Q CREATIONDATE 6 CREATIONDATE) ( 215Q (DON'TCACHE T) 211Q (SEQUENTIAL T) 176Q (AND RESETSTATE (SETQ OLDVALUE (CLOSEF OLDVALUE)) (DELFILE OLDVALUE))) \INFER.FILE.TYPE D1 (L (0 STREAM)) =@ 7@j @"@g"@ glgY@H"@j I(71Q SETFILEPTR 12Q SETFILEPTR 3 RANDACCESSP) (61Q STREAM 54Q BINARY 43Q TEXT 32Q NILL 27Q STREAM 16Q STREAM) () EOFP D1 (L (0 FILE)) #@gi @ H4HkI(15Q \GETSTREAM 7 \GETSTREAM) (31Q FDEV 24Q STREAM 3 INPUT) () FORCEOUTPUT D1 (L (1 WAITFORFINISH 0 STREAM)) @g bd*@AlH(6 \GETSTREAM) (21Q FDEV 14Q STREAM 3 OUTPUT) () \FLUSH.OPEN.STREAMS D1 (L (0 FDEV)) ?@Nhd@lH!HhYdRlj*IkJHXNIL (60Q FDEV 53Q STREAM 37Q STREAM 3 FDEV) () CHARSET D1 (L (1 CHARACTERSET 0 STREAM)) @ bAAijAAdllA @2l@2iATAdi,@2lA@&H@AlH@l2@2@&H@AlH@A2(37Q \ILLEGAL.ARG 3 \GETSTREAM) (164Q IMAGEOPS 157Q STREAM 120Q IMAGEOPS 113Q STREAM 77Q STREAM 44Q STREAM) () GETEOFPTR D1 (L (0 FILE)) @ H2HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () GETFILEINFO D1 (L (1 ATTRIB 0 FILE)) \@g aHd`AgH HY HAIlJHRjAgAdgHg%HdjgdkglgAdgHgH AdgH"gH H Ag&I HgIlK H H dnAg_I HgIlLdLnDAgAghH Y HAIlM!AgI HgIlNdn@l (531Q \LISPERROR 443Q \GETDEVICEFROMNAME 345Q \GETEOFPTR 337Q RANDACCESSP 301Q \GETEOFPTR 267Q RANDACCESSP 236Q CHARSET 205Q SHOULDNT 37Q \GETACCESS 6 \GETFILENAME.OR.STREAM) (505Q LENGTH 476Q FDEV 467Q SIZE 447Q FDEV 433Q OPENBYTESIZE 425Q ACCESS 400Q LENGTH 371Q FDEV 362Q SIZE 324Q LENGTH 315Q FDEV 306Q SIZE 261Q LENGTH 253Q STREAM 244Q ENDOFSTREAMOP 230Q CHARSET 222Q STREAM 213Q BUFFERS 201Q CRLF 171Q LF 161Q CR 147Q STREAM 140Q EOL 131Q STREAM 122Q OPENBYTESIZE 113Q BYTESIZE 76Q STREAM 52Q FDEV 44Q STREAM 31Q ACCESS 17Q STREAMTYPE# 3 OLD) () \TYPE.FROM.FILETYPE D1 (L (0 FILETYPE)) '@`H h@Y@IiHXNIL (5 FILING.TYPES) () \FILETYPE.FROM.TYPE D1 (L (0 TYPE)) @`@3 NIL (3 FILING.TYPES) () GETFILEPTR D1 (L (0 FILE)) @ H0HkI(3 \GETSTREAM) (17Q FDEV 12Q STREAM) () SETFILEINFO D1 (L (2 VALUE 1 ATTRIB 0 FILE)) 8@g QHd`ɿAgAgAdghg+HBdgjglBdgk BAdgHB"BgHBjغkJJk[KAgHB HYHABIlL4AdgHBd3 jBBdoB g HB UAgFAg=Ag4H YHABIlMAgHBd3 jBBdoB @l (465Q \LISPERROR 456Q \SETCLOSEDFILELENGTH 453Q \ILLEGAL.ARG 373Q \GETDEVICEFROMNAME 331Q \SETEOFPTR 313Q \SETEOFPTR 310Q \ILLEGAL.ARG 217Q CHARSET 124Q \ILLEGAL.ARG 6 \GETFILENAME.OR.STREAM) (420Q LENGTH 377Q FDEV 362Q EOLCONVENTION 351Q OPENBYTESIZE 340Q ACCESS 317Q SIZE 254Q LENGTH 232Q FDEV 224Q STREAM 210Q CHARSET 164Q STREAM 155Q BUFFERS 145Q STREAM 136Q ENDOFSTREAMOP 114Q LF 102Q CRLF 71Q CR 64Q STREAM 55Q EOL 46Q OPENBYTESIZE 37Q BYTESIZE 31Q ACCESS 17Q STREAMTYPE# 3 OLD) ( 444Q 77777777Q 301Q 77777777Q) SETFILEPTR D1 (L (1 ADR 0 FILE)) S@ H.HAdmd 3 jAAdoAl lIHd2lHj HjA(112Q CHARSET 63Q \LISPERROR 33Q \GETEOFPTR 3 \GETSTREAM) (75Q STREAM 14Q FDEV) ( 52Q 77777777Q) BOUT16 D1 (L (1 N 0 STREAM)) @A!@Al!ANIL NIL () BIN16 D1 (L (0 STREAM)) @ @ NIL NIL () \GENERIC.BINS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHjAB@ ǿBkbHkXINIL NIL () \GENERIC.BOUTS D1 (L (3 NBYTES 2 OFF 1 BASE 0 STREAM)) CHj@AB!BkbHkXINIL NIL () \GENERIC.RENAMEFILEA0002 D1 (NAME ERRORSET F 0 OLDFILE F 1 NEWFILE F 2 RESETVARSLST F 3 RESETY) 3oPggo chRcPQ c P Qci(53Q \DELETEFILE 50Q CLOSEF 40Q \COPYOPENFILE 21Q OPENSTREAM) (12Q OLD 7 INPUT) ( 16Q ((SEQUENTIAL T) DON'TCACHE) 3 (AND RESETSTATE (CLOSEF? OLDVALUE))) \GENERIC.RENAMEFILE D1 (L (2 NEWDEVICE 0 OLDDEVICE) P 2 RESETY P 1 LISPXHIST I 3 NEWFILE I 1 OLDFILE F 4 LISPXHIST F 5 RESETVARSLST) 9@NAg@lH#T!Uog hg[ KJh(62Q ERROR! 55Q RESETRESTORE 43Q \GENERIC.RENAMEFILEA0002) (51Q ERROR 40Q INTERNAL 14Q OLD 3 FDEV) ( 35Q (\GENERIC.RENAMEFILEA0002)) \GENERIC.OPENP D1 (L (2 DEVICE 1 ACCESS 0 FILENAME)) @EBPdJAHI@LL ALdAi LJ KhZYHXK&ZBPAHIALAi Ld@jJ KhZYHXK&Z(136Q \IOMODEP 56Q \IOMODEP 43Q STRING-EQUAL) (145Q STREAM 111Q FDEV 33Q STREAM 6 FDEV) () \GENERIC.READP D1 (L (1 FLG 0 STREAM) P 11Q \INTERRUPTABLE F 12Q \PRIMTERMSA)  @2@4@kIhAhhW@i hZdQl/@ @d ZlJ@d jl [2KX@i ZhHKn@ J@i @ HJdMlLɀMLɀjLMkhh @ h_l'@d ^lN@d jl _2@ OXHn@ @4_@kOh@ H@2l@ n(424Q \BACKFILEPTR 404Q \BACKFILEPTR 324Q \NSIN.24BITENCODING.ERROR 201Q \BACKFILEPTR 174Q \PEEKBIN 144Q \PEEKBIN 126Q \NSIN.24BITENCODING.ERROR 61Q \PEEKBIN) (364Q FDEV 357Q STREAM 237Q CHARTABLE 227Q CHARTABLE 20Q FDEV 13Q STREAM) () \MAP-OPEN-STREAMS D1 (L (2 ACCESS 1 DEVICES 0 FN)) 5A!HhYdNNhBIlJdk@HXNIL (30Q FDEV 17Q FDEV) () \EOF.ACTION D1 (L (0 STREAM)) @"@kHNIL (3 STREAM) () \EOSERROR D1 (L (0 STREAM)) @@li (16Q \LISPERROR) (3 STREAM) () \GETEOFPTR D1 (L (0 STREAM)) @2@kHNIL (10Q FDEV 3 STREAM) () \INCFILEPTR D1 (L (1 AMOUNT 0 STREAM)) 2@d0j@d0@kHA A (57Q \PAGED.INCFILEPTR 52Q \SETFILEPTR) (33Q FDEV 26Q STREAM 11Q FDEV 4 STREAM) () \PEEKBIN D1 (L (1 NOERRORFLG 0 STREAM)) @"@AlHNIL (10Q FDEV 3 STREAM) () \SETCLOSEDFILELENGTH D1 (L (1 NBYTES 0 FILENAME)) @gg HA H i(25Q \CLOSEFILE 21Q \SETEOFPTR 11Q \OPENFILE) (6 OLD 3 BOTH) () \SETEOFPTR D1 (L (1 LEN 0 STREAM)) @@@AlHNIL (10Q FDEV 3 STREAM) () \SETFILEPTR D1 (L (1 INDX 0 STREAM)) @.@AlHNIL (10Q FDEV 3 STREAM) () \FIXPOUT D1 (L (1 N 0 STRM)) )@Al l!@Al l!@Al l!@Al!(34Q RSH 21Q RSH 6 RSH) NIL () \FIXPIN D1 (L (0 STRM)) @ @ @ @ NIL NIL () \BUFFERED.BIN D1 (L (0 STREAM)) I @@Xd@@>@glIdi𝿰@HkNIL (77Q STREAM 60Q READ 51Q FDEV 44Q STREAM 30Q STREAM 20Q STREAM 6 STREAM) () \BUFFERED.PEEKBIN D1 (L (1 NOERRORFLG 0 STREAM)) ?@@d@#@>@gAlHdi𓿰NIL (56Q READ 45Q FDEV 40Q STREAM 24Q STREAM 15Q STREAM 3 STREAM) () \BUFFERED.BOUT D1 (L (1 BYTE 0 STREAM)) P @-@Xd@0@HkAǿ@k k@>@glINIL (107Q WRITE 100Q FDEV 73Q STREAM 57Q STREAM 42Q STREAM 30Q STREAM 20Q STREAM 6 STREAM) () \BUFFERED.BINS D1 (L (4 NOERRORFLG 3 NBYTES 2 OFFSET 1 DBASE 0 STREAM)) Ca@[=@@ZLYHLHYغKLABI @JIHCBIbHIٸ@>@gDlN]CHiABMǿBkbHmXj@ (56Q \MOVEBYTES) (127Q READ 120Q FDEV 113Q STREAM 63Q STREAM 27Q STREAM 20Q STREAM 7 STREAM) () \BUFFERED.BOUTS D1 (L (3 NBYTES 2 OFFSET 1 SBASE 0 STREAM)) i@Q@[F@@0ZLYCLCYغABKLI @J@k CIbjhBIbH>@glM(63Q \MOVEBYTES) (140Q WRITE 131Q FDEV 100Q STREAM 70Q STREAM 34Q STREAM 25Q STREAM 14Q STREAM 3 STREAM) () \BUFFERED.COPYBYTES D1 (L (2 NBYTES 1 DST 0 SRC)) sBh@b@ZG@]@\ٻBKBLB[ؽA8AJLKlN@MBKBBKbI>_@dgHlOhNIL (147Q READ 135Q FDEV 110Q STREAM 70Q FDEV 63Q STREAM 37Q STREAM 30Q STREAM 17Q STREAM 6 STREAM) () \NULLDEVICEA0014 D1 (L (1 NOERRORFLG 0 STREAM)) Ah@ NIL NIL () \NULLDEVICE D1 NIL g`dgdkdk dgdgdgdgdgdg dg"dg$dg&dg4dg:dgdgdg6dg8dg dg0dg2dg.dg dgdg@dgRdgNdg*dgdg (331Q \DEFINEDEVICE) (323Q NILL 314Q NILL 305Q NILL 276Q NILL 267Q NILL 260Q NILL 251Q NILL 242Q NILL 233Q NILL 224Q ZERO 215Q ZERO 206Q \NULLFILEGENERATOR 177Q NILL 170Q \EOF.ACTION 161Q NILL 152Q NILL 143Q NILL 134Q TRUE 125Q NILL 116Q NILL 107Q \NULLDEVICEA0014 100Q NILL 71Q \EOF.ACTION 62Q \NULL.OPENFILE 53Q \NULL.OPENFILE 44Q NILL 35Q NILL 12Q NULL 5 FDEVTYPE# 2 NULL) () \NULL.OPENFILE D1 (L (5 OLDSTREAM 4 DEVICE 3 PARAMETERS 2 RECOG 1 ACCESS 0 NAME)) xEu`dk0dhdDdg.dg,d`&dg"dg djd`djd`dhdldjRdk@dhdA (164Q \SETACCESS) (117Q \STREAM.DEFAULT.MAXBUFFERS 103Q FILELINELENGTH 66Q \FILEOUTCHARFN 57Q \EOSERROR 50Q \NOIMAGEOPS 41Q \STREAM.NOT.OPEN 32Q \STREAM.NOT.OPEN 5 STREAMTYPE#) () (PRETTYCOMPRINT FILEIOCOMS) (RPAQQ FILEIOCOMS ((* 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)) \NORUNCODE) (MACROS APPENDABLE APPENDONLY DIRTYABLE OPENED OVERWRITEABLE READABLE READONLY WRITEABLE) (MACROS TestMasked) (MACROS \RUNCODED) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP) (COMS (* Needed b/c 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) (FNS \CLOSEFILE \DELETEFILE \DEVICEEVENT \GENERATEFILES \GENERATENEXTFILE \GENERATEFILEINFO \GETFILENAME \GETFILENAME.OR.STREAM \GENERIC.OUTFILEP \OPENFILE \DO.PARAMS.AT.OPEN \RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST \FIX.DRIBBLE.FILE \PRINT-REVALIDATION-RESULT \CHECK-DRIBBLE-FILE \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 GETEOFPTR GETFILEINFO \TYPE.FROM.FILETYPE \FILETYPE.FROM.TYPE GETFILEPTR SETFILEINFO SETFILEPTR BOUT16 BIN16) (* Generic functions) (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP) (FNS \MAP-OPEN-STREAMS) (VARS FILING.TYPES) (GLOBALVARS FILING.TYPES) (DECLARE: DONTCOPY (EXPORT (MACROS \OUTCHAR \DEVICE-OPEN-STREAMS \CONVERT-PATHNAME))) (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) (DECLARE: DONTCOPY (EXPORT (MACROS \DECFILEPTR \GETFILEPTR \SIGNEDWIN \SIGNEDWOUT \WIN \WOUT \BINS \BOUTS \EOFP) (CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE ) (VAX 10) 9)) WordsPerPage) (CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 24)))) (RECORDS BYTEPTR)) ( CONSTANTS MaxChar))) (COMS (* Buffered IO) (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS \BUFFERED.COPYBYTES)) (COMS (* NULL device) (FNS \NULLDEVICE \NULL.OPENFILE) (DECLARE: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE)))) (LOCALVARS . T) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA \IS.NOT.RANDACCESSP \ILLEGAL.DEVICEOP STREAMPROP))))) (ADDTOVAR SYSTEMRECLST (DATATYPE STREAM ((COFFSET WORD) (CBUFSIZE WORD) (BINABLE FLAG) (BOUTABLE FLAG) (EXTENDABLE FLAG) (NIL BITS 5) (CBUFPTR POINTER) (NONDEFAULTDATEFLG FLAG) (REVALIDATEFLG FLAG) ( MULTIBUFFERHINT FLAG) (USERCLOSEABLE FLAG) (USERVISIBLE FLAG) (ACCESSBITS BITS 3) (FULLFILENAME POINTER) (DEVICE POINTER) (VALIDATION POINTER) (EPAGE WORD) (EOFFSET WORD) (F1 POINTER) (F2 POINTER) ( F3 POINTER) (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (BYTESIZE BYTE) (BUFFS POINTER) (CPAGE WORD) (FW8 WORD) (MAXBUFFERS WORD) (CHARPOSITION WORD) (DIRTYBITS WORD) (LINELENGTH WORD) ( EOLCONVENTION BITS 2) (CBUFDIRTY FLAG) (NIL BITS 5) (OUTCHARFN POINTER) (ENDOFSTREAMOP POINTER) ( OTHERPROPS POINTER) (IMAGEOPS POINTER) (IMAGEDATA POINTER) (EXTRASTREAMOP POINTER) (STRMBINFN POINTER) (STRMBOUTFN POINTER) (CBUFMAXSIZE WORD) (FW9 WORD) (F10 POINTER) (CHARSET BYTE)))) (RPAQ? FILELINELENGTH 102) (RPAQ? \STREAM.DEFAULT.MAXBUFFERS 3) (/DECLAREDATATYPE (QUOTE FDEV) (QUOTE (POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG 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)) (QUOTE ((FDEV 0 POINTER) (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 ( FLAGBITS . 0)) (FDEV 2 (FLAGBITS . 16)) (FDEV 2 (FLAGBITS . 32)) (FDEV 2 (FLAGBITS . 48)) (FDEV 2 ( FLAGBITS . 64)) (FDEV 2 (FLAGBITS . 80)) (FDEV 2 (FLAGBITS . 96)) (FDEV 2 (FLAGBITS . 112)) (FDEV 2 POINTER) (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))) (QUOTE 84)) (ADDTOVAR SYSTEMRECLST (DATATYPE FDEV ((DEVICENAME POINTER) (RESETABLE FLAG) (RANDOMACCESSP FLAG) ( NODIRECTORIES FLAG) (PAGEMAPPED FLAG) (FDBINABLE FLAG) (FDBOUTABLE FLAG) (FDEXTENDABLE FLAG) (BUFFERED FLAG) (REMOTEP FLAG) (SUBDIRECTORIES FLAG) (NIL 6 FLAG) (CLOSEFILE POINTER) (DELETEFILE POINTER) ( DIRECTORYNAMEP POINTER) (EVENTFN POINTER) (GENERATEFILES POINTER) (GETFILEINFO POINTER) (GETFILENAME POINTER) (HOSTNAMEP POINTER) (OPENFILE POINTER) (READPAGES POINTER) (REOPENFILE POINTER) (SETFILEINFO POINTER) (TRUNCATEFILE POINTER) (WRITEPAGES POINTER) (BIN POINTER) (BOUT POINTER) (PEEKBIN POINTER) ( READP POINTER) (BACKFILEPTR POINTER) (DEVICEINFO POINTER) (FORCEOUTPUT POINTER) (LASTC POINTER) ( SETFILEPTR POINTER) (GETFILEPTR POINTER) (GETEOFPTR POINTER) (EOFP POINTER) (BLOCKIN POINTER) ( BLOCKOUT POINTER) (RENAMEFILE POINTER) (RELEASEBUFFER POINTER) (GETNEXTBUFFER POINTER) (SETEOFPTR POINTER) (FREEPAGECOUNT POINTER) (MAKEDIRECTORY POINTER) (WINDOWOPS POINTER) (WINDOWDATA POINTER) ( CHECKFILENAME POINTER) (HOSTALIVEP POINTER) (OPENP POINTER) (OPENFILELST POINTER) (REGISTERFILE POINTER)))) (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})) (RPAQQ FILING.TYPES ((BINARY 0) (DIRECTORY 1) (TEXT 2) (SERIALIZED 3) (INTERPRESS 4361))) (MAPC (QUOTE ((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS \NONPAGEDBINS) ( \GENERIC.BOUTS \NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (PUTD (CADR PAIR) (GETD (CAR PAIR)) T)))) (\NULLDEVICE) (PUTPROPS FILEIO COPYRIGHT ("Xerox Corporation" 1981 1982 1983 1984 1985 1986)) NIL