(FILECREATED "19-Dec-84 15:39:30" ("compiled on " {ERIS}HARMONY>SOURCES>NSFILING.;6) "10-Dec-84 17:38:51" bcompl'd in "INTERLISP-D 10-Dec-84 ..." dated "10-Dec-84 18:25:04") (FILECREATED "18-Dec-84 23:25:45" {ERIS}SOURCES>NSFILING.;18 74160 changes to: (FNS \NSFILING.GENERATEFILES \NSFILING.CONNECT \NSFILING.CLOSEFILE \NSFILING.MAYBE.CREATE) (VARS NSFILINGCOMS) previous date: "28-Nov-84 18:01:05" {ERIS}SOURCES>NSFILING.;17) \GET.FILING.ATTRIBUTE D1 (P 3 VALUE P 2 X P 1 TYPE I 2 TYPE I 1 PROGRAM I 0 STREAM) B`@hg "HI@hg hZdIHX@ @ @AJ h(74Q COURIER.READ 32Q COURIER.READ.SEQUENCE 12Q COURIER.READ) (27Q UNSPECIFIED 7 LONGCARDINAL 2 \NSFILING.ATTRIBUTES) () \PUT.FILING.ATTRIBUTE D1 (P 4 X P 2 VALUETYPE P 1 VALUE P 0 TYPE I 3 TYPE I 2 PROGRAM I 1 ITEM I 0 STREAM) \AAHd`K oH @Hhg J"@IBJ "\dHK[LZ@IBg h(130Q COURIER.WRITE.SEQUENCE 66Q COURIER.WRITE.SEQUENCE.UNSPECIFIED 54Q COURIER.WRITE 42Q ERROR) (125Q UNSPECIFIED 51Q LONGCARDINAL 23Q \NSFILING.ATTRIBUTES) ( 36Q "Unknown Filing attribute") \GETFILINGCONNECTIONA0001 D1 (NAME ERRORSET P 1 CONNECTION P 0 TAIL F 2 DEVINFO F 3 RESETY) VRhi RHR YRIRIciHYjI RIR (120Q DREMOVE 101Q \VALID.FILING.CONNECTIONP 30Q \NSFILING.LOGIN 10Q OBTAIN.MONITORLOCK) (66Q FILINGSESSION) () \GETFILINGCONNECTION D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 CONNECTION P 0 DEVINFO I 1 DORESETSAVE I 0 DEVICE F 5 RESETVARSLST F 6 LISPXHIST) K@(V!Uog hg\ LKYAIdigIhhhUc (47Q ERROR! 41Q RESETRESTORE 27Q \GETFILINGCONNECTIONA0001) (72Q \NSFILING.RESETCLOSE 35Q ERROR 24Q INTERNAL 3 FDEV) ( 21Q (\GETFILINGCONNECTIONA0001)) \NSFILING.FINDSERVER D1 (I 0 SERVERNAME) @gi (7 LOOKUP.NS.SERVER) (3 FILESERVER) () \OPENFILINGCONNECTION D1 (P 0 STREAM I 0 CONNECTION) L@i @@gi@o XH@ @kkjh(71Q \NSFILING.SET.CONTINUANCE 57Q COURIER.OPEN 54Q PACK* 14Q SPP.CLOSE) (77Q FILINGSESSION 43Q NSNAME 36Q FILINGSESSION 31Q FILESERVER 24Q FILINGSESSION 20Q FILINGSESSION 6 FILINGSESSION) ( 51Q " Filing") \NSFILING.LOGIN D1 (P 11Q NEEDLOGIN P 10Q CREDENTIALS P 7 CONNECTION P 6 SESSION P 5 STREAM P 4 SERVERNSNAME P 3 SERVERNAME P 2 ADDRESS P 1 PROGRAM P 0 FILESERVER I 0 DEVINFO) , @` H\i [HZKOhOohg _Jhi@ ]O _IgMIgLOOg MggOOg ^"M NNdgIg/gY%gN.dg𑿍gNgi_UoK N h9`dJdLdKdMdNd` dkdI_d O` L` o` (446Q PRIN1 433Q PRIN1 423Q TERPRI 412Q \NSFILING.SET.CONTINUANCE 321Q ERROR 314Q CONCAT 201Q SPP.CLOSE 172Q COURIER.CALL 144Q COURIER.CALL 107Q NS.MAKE.SIMPLE.CREDENTIALS 75Q COURIER.OPEN 52Q \INTERNAL/GETPASSWORD 21Q MKATOM 16Q NSNAME.TO.STRING) (443Q PROMPTWINDOW 430Q PROMPTWINDOW 420Q PROMPTWINDOW 366Q \NSFILING.NULL.HANDLE 330Q FILINGSESSIONTYPE# 273Q CannotAuthenticate 262Q SERVICE.ERROR 253Q AUTHENTICATION.ERROR 241Q ERROR 232Q OLDFILING 224Q FILING 214Q REJECT 166Q RETURNERRORS 155Q LOGON 152Q OLDFILING 140Q RETURNERRORS 126Q LOGON 116Q FILING 46Q NS 4 \NSFILING.PROGRAM.NAME) ( 440Q " not responding to connection attempt" 310Q "Error while logging on to " 42Q "Login incorrect.") \NSFILING.SET.CONTINUANCE D1 (I 0 CONNECTION) 0@l @@g@g di(45Q COURIER.CALL 11Q \DAYTIME0) (41Q NOERROR 34Q FILINGSESSION 30Q CONTINUE 23Q FILINGSESSION 15Q FILINGSESSION 3 FILINGSESSION) () \CLOSEFILINGCONNECTION D1 (P 0 STREAM I 1 ABORT? I 0 CONNECTION) &@@hHA @jjdhh(24Q SPP.CLOSE) (30Q FILINGSESSION 14Q FILINGSESSION 3 FILINGSESSION) () \NSFILING.LOGOUTA0001 D1 (NAME ERRORSET F 0 CONNECTION F 1 RESETVARSLST F 2 ABORT?) IRCPg 5P 0gPhhhQcPPgPg hh(102Q COURIER.CALL 24Q \OPENFILINGCONNECTION 16Q TIMEREXPIRED?) (76Q NOERROR 71Q FILINGSESSION 65Q LOGOFF 60Q FILINGSESSION 52Q FILINGSESSION 31Q \NSFILING.RESETCLOSE 13Q SECONDS 6 FILINGSESSION) () \NSFILING.LOGOUT D1 (I 1 ABORT? I 0 CONNECTION) o (6 \NSFILING.LOGOUTA0001) NIL ( 3 (\NSFILING.LOGOUTA0001)) \NSFILING.RESETCLOSE D1 (I 0 X F 0 RESETSTATE) @P (4 \CLOSEFILINGCONNECTION) NIL () \NSFILING.CLOSE.IF.ERROR D1 (I 0 CONNECTION F 0 RESETSTATE) P@ (6 \CLOSEFILINGCONNECTION) NIL () \VALID.FILING.CONNECTIONP D1 (I 0 CONNECTION) 8@g h@@  j@ h@ i(62Q \OPENFILINGCONNECTION 54Q \NSFILING.LOGOUT 44Q HASH.PASSWORD 40Q \INTERNAL/GETPASSWORD 13Q TIMEREXPIRED?) (33Q FILINGSESSION 22Q FILINGSESSION 10Q SECONDS 3 FILINGSESSION) () \NSFILING.CLOSE.CONNECTIONSA0001 D1 (NAME ERRORSET L (0 NIL) F 1 DEVINFO F 2 RESETY F 3 ABORT?) 0Qhi QdhciHQHS (54Q \NSFILING.LOGOUT 10Q OBTAIN.MONITORLOCK) NIL () \NSFILING.CLOSE.CONNECTIONS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 ABORT? I 0 DEVINFO F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.CLOSE.CONNECTIONSA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.CLOSE.CONNECTIONSA0001)) BREAK.NSFILING.CONNECTION D1 (P 0 DEV I 0 HOST) @ id Hd( i(26Q \NSFILING.CLOSE.CONNECTIONS 10Q \GETDEVICEFROMNAME 3 \CANONICAL.NSHOSTNAME) (21Q FDEV) () \NSFILING.CONNECT D1 (P 16Q \INTERRUPTABLE P 15Q TAIL P 13Q OLD.DIR P 6 NSPATHNAME P 5 ADDITIONAL.DIRLIST P 4 NEW.HANDLE P 3 OLD.HANDLE P 2 SESSIONHANDLE P 1 OLD.DIRLIST P 0 NEW.DIRLIST I 3 CREATE? I 2 REALREQUIRED I 1 PATHNAME I 0 CONNECTION F 17Q NEW.DIR) ,Ad @ @@ DHI HBK`Hdǿ@g0 Hd_gOh_O>O__O @@ggNhh`hJg \d _OgLgDCHd @ \6@ @L @H K`@@gKJ iH-H])I O iMXs_MM hO_K`+@@gK@`[ @h J B)H'@@@gh`hJg [ H O_k@@ggOchhKhJg \d@gOLgCHW@i \h@L @@ Wh  K`@@gKJ LOg(1041Q COURIER.CALL 1002Q \APPEND2 742Q \NSFILING.MAYBE.CREATE 673Q COURIER.CALL 604Q COURIER.CALL 535Q COURIER.CALL 443Q STREQUAL 375Q COURIER.CALL 307Q \NSFILING.MAYBE.CREATE 302Q LAST 245Q LAST 235Q COURIER.CALL 170Q CONCATLIST 40Q EQUAL 6 \PATHNAME.TO.DIRECTORY.LIST) (1033Q CLOSE 1026Q FILINGSESSION 1020Q FILINGSESSION 1011Q \NSFILING.NULL.HANDLE 771Q FILINGSESSION 765Q FILINGSESSION 755Q FILINGSESSION 725Q FileNotFound 706Q ERROR 667Q RETURNERRORS 647Q NAME 644Q OPEN 637Q FILINGSESSION 631Q FILINGSESSION 600Q NOERROR 573Q \NSFILING.NULL.HANDLE 567Q OPEN 562Q FILINGSESSION 554Q FILINGSESSION 550Q FILINGSESSION 524Q FILINGSESSION 514Q \NSFILING.NULL.HANDLE 511Q FILINGSESSION 504Q CLOSE 477Q FILINGSESSION 471Q FILINGSESSION 462Q \NSFILING.NULL.HANDLE 367Q CLOSE 362Q FILINGSESSION 354Q FILINGSESSION 345Q \NSFILING.NULL.HANDLE 335Q FILINGSESSION 325Q FILINGSESSION 316Q FILINGSESSION 271Q FileNotFound 257Q ERROR 231Q RETURNERRORS 224Q \NSFILING.NULL.HANDLE 213Q PATHNAME 210Q OPEN 203Q FILINGSESSION 175Q FILINGSESSION 131Q / 106Q FILING 101Q FILINGSESSION 60Q \NSFILING.NULL.HANDLE 26Q FILINGSESSION 20Q FILINGSESSION 12Q FILINGSESSION) () \NSFILING.MAYBE.CREATE D1 (I 4 CONNECTED I 3 CONNECTION I 2 NEW.DIR I 1 DIRLST I 0 CREATE? F 5 DWIMWAIT) @dgNUgoCo0AdghXIHZYJ o  g YHhiLDCAAH\Ld 24Q FILINGSESSION 14Q Y 4 ASK) ( 224Q ((IS.DIRECTORY T) (FILE.TYPE 1)) 77Q "? " 32Q "}<" 20Q "Create subdirectory {") \PATHNAME.TO.DIRECTORY.LIST D1 (P 4 END P 0 START I 0 PATHNAME) E@d< l{@g b*kA@Ho@H \dkLkظ J KhZLIK&(60Q SUBSTRING 44Q STRPOS 21Q FILENAMEFIELD 6 CHCON1) (16Q DIRECTORY) ( 37Q ">") \NSFILING.LISTVERSIONS D1 (P 0 SCOPE I 3 DESIREDVERSION I 2 DESIREDPROPS I 1 FILENAME I 0 CONNECTION) lggAhghhCd gHggChghhhh@@g@ BgHhho@ (151Q COURIER.CALL) (143Q FILINGSESSION 125Q FILTER 117Q FILINGSESSION 113Q LIST 106Q FILINGSESSION 100Q FILINGSESSION 57Q CARDINAL 50Q VERSION 45Q = 41Q AND 14Q STRING 5 NAME 2 =) ( 137Q (FILING . ATTRIBUTE.SEQUENCE)) \FILING.ATTRIBUTE.TYPE.SEQUENCE D1 (I 0 ATTRIBUTETYPES) 0@d IHhZH&J(12Q \FILING.ATTRIBUTE.TYPE) NIL () \FILING.ATTRIBUTE.TYPE D1 (P 1 X I 1 NOERRORFLG I 0 ATTR) &`HAo@ hY@IHX(23Q ERROR) (2 \NSFILING.ATTRIBUTES) ( 17Q "Unknown Filing attribute") \LISP.TO.NSFILING.ATTRIBUTE D1 (P 0 X I 1 VALUE I 0 ATTRIBUTE) @dggbA _WggbA LD@dggbA 6.g7gbAdgjgkAdgl%Al b@Ah@` X @` h(215Q ASSOC 203Q ASSOC 163Q \LISPERROR 75Q IDATE 47Q IDATE 24Q IDATE) (212Q \NSFILING.ATTRIBUTES 200Q \LISP.TO.NSFILING.ATTRIBUTES 145Q TEXT 133Q DIRECTORY 122Q BINARY 112Q FILE.TYPE 104Q TYPE 66Q CREATED.ON 60Q CREATIONDATE 40Q READ.ON 33Q READDATE 15Q MODIFIED.ON 7 WRITEDATE) () \NSFILING.OPENFILE D1 (I 4 DEVICE I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 FILENAME) D@ABihC (12Q \NSFILING.GETFILE) NIL () \NSFILING.GETFILEA0001 D1 (NAME ERRORSET P 20Q PAIR P 16Q TAIL P 15Q FULLNAME P 14Q FILESTREAM P 13Q HANDLE P 12Q SESSIONHANDLE P 11Q FILE.ID P 10Q DESIRED.INFO P 7 CACHE P 6 CONNECTION P 5 VERSION P 4 NAME P 3 DIRECTORY P 2 HOST P 1 RESETSAVER P 0 DEVINFO F 21Q OPTION F 22Q FILENAME F 23Q RECOG F 24Q DEVICE F 25Q ACCESS F 26Q NOERROR F 27Q PARAMETERS F 30Q RESETY) W((W"gg H_ W$ W$W"dgW$dgOxghoO_W(I ^h[dOdgONdgO@dgO2LoO #gO ]dLoM hLW"gW,hW$l*W(I d;W"gNKhg NKhW&gW*ggh O+MONLMhi OONLW&`M _O)Mkh_W"dgtW&giNLMhi @_ dgO _Ag;W&dgdgdgO gMh__O kؽW& O_~W"ddgiOhN_OTNNggOhh`hOg _ONNgO`O _iXW*gRW&ddgdgih;NNgN gLhgMhW. hdOg _W"N W,h W$l c0iOgO_gNLMhi _hO_OHOW")W*dgcNNgOhOg sdgO*dgOgNONOW(lW.OfNO \g#O&NNgOhdOg W*l _d5` O` o` O` W$l OOONOOOOOW(O(1704Q \LISPERROR 1674Q PRIN1 1661Q PRIN1 1646Q PRIN1 1633Q TERPRI 1616Q \LISPERROR 1606Q COURIER.CALL 1534Q \NSFILING.CLOSE.HANDLE 1520Q SHOULDNT 1433Q COURIER.CALL 1335Q \NSFILING.FULLNAME 1271Q \LISPERROR 1253Q \CLOSEFILINGCONNECTION 1240Q COURIER.CALL 1223Q \NSFILING.OPENFILE.OPTIONS 1106Q COURIER.CALL 1040Q COURIER.CALL 716Q \ILLEGAL.ARG 571Q \NSFILING.FULLNAME 513Q \NSFILING.FIND.VERSION 464Q \NSFILING.FULLNAME 434Q \NSFILING.CONNECT 400Q \NSFILING.CONNECT 352Q \GETFILINGCONNECTION 277Q CONCAT 256Q MKATOM 236Q CONCAT 130Q \GETFILINGCONNECTION 37Q UNPACKFILENAME.STRING) (1761Q STREAM 1747Q STREAM 1735Q STREAM 1724Q STREAM 1712Q STREAM 1671Q PROMPTWINDOW 1656Q PROMPTWINDOW 1643Q PROMPTWINDOW 1630Q PROMPTWINDOW 1602Q RETURNERRORS 1571Q REPLACE 1564Q FILINGSESSION 1556Q FILINGSESSION 1543Q OUTPUT 1500Q FILINGSESSION 1466Q HANDLE 1454Q ATTRIBUTES 1441Q NAME 1427Q RETURNERRORS 1417Q RETRIEVE 1412Q FILINGSESSION 1404Q FILINGSESSION 1374Q INPUT 1324Q FULLNAME 1305Q FULLNAME 1234Q RETURNERRORS 1212Q VERSION 1203Q NAME 1176Q FILINGSESSION 1172Q STORE 1165Q FILINGSESSION 1157Q FILINGSESSION 1142Q OLD/NEW 1134Q NEW 1121Q OUTPUT 1100Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 1073Q GET.ATTRIBUTES 1066Q FILINGSESSION 1060Q FILINGSESSION 1034Q NOERROR 1026Q \NSFILING.NULL.HANDLE 1014Q FILE.ID 1011Q OPEN 1004Q FILINGSESSION 776Q FILINGSESSION 761Q FILINGSESSION 737Q HANDLE 664Q NEW 650Q OLD/NEW 642Q OLDEST 634Q OLD 623Q VERSION 604Q FILE.ID 555Q NEW 544Q NAME 506Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 427Q CREATE 422Q INPUT 413Q OLD 375Q ASK 365Q DIRECTORY 320Q DIRECTORY 244Q VERSION 210Q EXTENSION 172Q NAME 154Q DIRECTORY 107Q DIRECTORY 74Q ATTRIBUTES 60Q NAME 20Q \NSFILING.CLOSE.IF.ERROR 14Q \NSFILING.RESETCLOSE 4 FDEV) ( 1653Q ": " 273Q "." 227Q ".") \NSFILING.GETFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 PARAMETERS I 5 OPTION I 4 NOERROR I 3 RECOG I 2 ACCESS I 1 FILENAME I 0 DEVICE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.GETFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.GETFILEA0001)) \NSFILING.MANIPULATE.HANDLEA0001 D1 (NAME ERRORSET P 0 STREAM F 1 CONNECTION F 2 RESETVARSLST F 3 RESETY F 4 HANDLE F 5 USERFN) 5QhiQ HgHhhhRcQTHlUci(20Q COURIER.OPEN) (31Q SPP.CLOSE 13Q FILINGSESSION 3 FILINGSESSION) () \NSFILING.MANIPULATE.HANDLE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 USERFN I 1 HANDLE I 0 CONNECTION F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.MANIPULATE.HANDLEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.MANIPULATE.HANDLEA0001)) \NSFILING.FIND.VERSION D1 (P 7 DUPLICATE P 6 INFO P 5 DATE P 4 V P 3 ALST P 2 NEWESTDATE P 1 EXTREMAL.VERSION I 4 DESIREDVERSION I 3 DESIREDPROPS I 2 RECOG I 1 NAME I 0 CONNECTION) @ACD D BgnjjSH;O` o` @AI ` o` BgmhgK \WDLDhBgLIILAN:LdI5DBdghgi_hii_gK ]MJMLKHX^o` N(310Q PRIN1 251Q ASSOC 136Q ASSOC 113Q PRIN1 100Q PRIN1 72Q \NSFILING.FULLNAME 63Q PRIN1 50Q TERPRI 6 \NSFILING.LISTVERSIONS) (305Q PROMPTWINDOW 245Q CREATED.ON 223Q OLDEST 213Q NEW 157Q OLDEST 132Q VERSION 120Q OLDEST 110Q PROMPTWINDOW 75Q PROMPTWINDOW 60Q PROMPTWINDOW 45Q PROMPTWINDOW 15Q OLDEST) ( 302Q "; using most recent" 105Q " exist" 55Q "Multiple instances of file ") \NSFILING.OPENFILE.OPTIONS D1 (P 5 ATTR/VAL P 4 PAIR I 0 ALIST) /@QHI\LL ]J KhZHXK&(26Q \LISP.TO.NSFILING.ATTRIBUTE) NIL () \NSFILING.CLOSEFILEA0001A0003 D1 (NAME ERRORSET F 0 CONNECTION F 1 FILESTREAM F 2 NEWHANDLE F 3 INFO F 4 HANDLE) SRBPPgR`Pg cQ(gQhSPT Qhi(107Q \NSFILING.CLOSE.HANDLE 42Q COURIER.CALL) (114Q STREAM 71Q STREAM 65Q FULLNAME 57Q FDEV 52Q STREAM 36Q NOERROR 31Q FILINGSESSION 25Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 21Q GET.ATTRIBUTES 14Q FILINGSESSION 6 FILINGSESSION) () \NSFILING.CLOSEFILEA0001 D1 (NAME ERRORSET P 4 INFO P 3 CONNECTION P 2 HANDLE P 1 NEWHANDLE P 0 ABORTFLG F 6 FILESTREAM F 7 OPTIONS F 10Q RESETVARSLST F 11Q RESETY) WgW gWiQVH YVV[gIgKhhhWcIgPVRlj"VRljJV4VkM9H5oIoI V JK o hci(270Q \NSFILING.CLOSEFILEA0001A0003 257Q SPP.OPENP 241Q ERROR 230Q CONCAT 35Q \BULK.DATA.CLOSE) (252Q FILINGSESSION 234Q STREAM 172Q FDEV 165Q STREAM 147Q STREAM 131Q STREAM 122Q ERROR 77Q \NSFILING.RESETCLOSE 66Q ERROR 53Q STREAM 44Q STREAM 17Q ABORT 4 ABORT) ( 265Q (\NSFILING.CLOSEFILEA0001A0003) 221Q " -- " 212Q "CLOSEF: File not written ") \NSFILING.CLOSEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 OPTIONS I 0 FILESTREAM F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \NSFILING.CLOSEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\NSFILING.CLOSEFILEA0001)) \NSFILING.CLOSE.HANDLE D1 (I 1 HANDLE I 0 CONNECTION) @@gA@g (34Q COURIER.CALL) (30Q NOERROR 23Q FILINGSESSION 16Q CLOSE 11Q FILINGSESSION 3 FILINGSESSION) () \NSFILING.FULLNAME D1 (P 14Q VERS P 10Q CH P 7 START P 6 I P 3 PATHNAME P 2 FULLNAME P 1 DIRLST P 0 FILENAME I 4 ATOMFLG I 3 DIRECTORYFLG I 2 VERSION I 1 NAMEORINFO I 0 CONNECTION)  oAAdB 443Q FILINGSESSION 437Q { 210Q STRINGP 175Q STRINGP 164Q STRINGP 123Q FILINGSESSION 100Q PATHNAME 63Q NAME 44Q VERSION 25Q IS.DIRECTORY) ( 565Q "" 556Q ".;" 537Q ";" 526Q "." 451Q "}<" 147Q "" 3 "") \NSFILING.EVENTFN D1 (I 1 EVENT I 0 DEVICE) 2Adg@(i gAgAgAg@ (57Q \REMOVEDEVICE 21Q \NSFILING.CLOSE.CONNECTIONS) (50Q AFTERSYSOUT 42Q AFTERMAKESYS 34Q AFTERSAVEVM 25Q AFTERLOGOUT 13Q FDEV 4 BEFORELOGOUT) () \NSFILING.DELETEFILEA0001 D1 (I 4 DEVICE I 3 ATTRS I 2 STREAM I 1 HANDLE I 0 CONNECTION) @@@gA@g hCD(D(h@Chdi (75Q \NSFILING.FULLNAME 34Q COURIER.CALL) (56Q FDEV 44Q FDEV 30Q RETURNERRORS 23Q FILINGSESSION 16Q DELETE 11Q FILINGSESSION 3 FILINGSESSION) () \NSFILING.DELETEFILE D1 (I 1 DEVICE I 0 FILENAME) A@ggigg (22Q \NSFILING.GETFILE) (16Q \NSFILING.DELETEFILEA0001 13Q HANDLE 7 OLDEST 4 NONE) () \NSFILING.HOSTNAMEP D1 (P 2 FULLHOSTNAME P 1 FILINGNAME P 0 SERVER I 1 DEVICE I 0 HOST F 5 \SPP.BULKDATA.DEVICE) o@ @ AHdi Zid Ho YJ`U dJdgdgdgdg dgdg2dgdgdgdgdg dgHhI IhdK(U*dL*b A(300Q \DEFINEDEVICE 243Q CREATE.MONITORLOCK 104Q NCREATE2 73Q PACK* 47Q \GETDEVICEFROMNAME 41Q MKATOM 36Q U-CASE 33Q NSNAME.TO.STRING 15Q \NSFILING.FINDSERVER 7 STRPOS) (263Q FDEV 232Q \NSFILING.EVENTFN 223Q \NSFILING.GENERATEFILES 214Q \NSFILING.DIRECTORYNAMEP 205Q \NSFILING.GETFILENAME 176Q NILL 167Q \NSFILING.DELETEFILE 160Q \NSFILING.GETEOFPTR 151Q \NSFILING.SETFILEINFO 142Q \NSFILING.GETFILEINFO 133Q \NSFILING.CLOSEFILE 124Q NILL 115Q \NSFILING.OPENFILE 100Q FDEVTYPE# 62Q NSNAME) ( 70Q " Filing" 3 ":") \NSFILING.DIRECTORYNAMEP D1 (I 1 DEVICE I 0 HOST/DIR) A@ghig (15Q \NSFILING.GETFILE) (11Q DIRECTORY 4 NONE) () \NSFILING.GETFILENAME D1 (I 2 DEVICE I 1 RECOG I 0 NAME) B@gAig (15Q \NSFILING.GETFILE) (11Q NAME 4 NONE) () \NSFILING.GETFILEINFO D1 (P 1 INFO P 0 DESIREDPROPS I 2 DEVICE I 1 ATTRIBUTE I 0 STREAM) 0AdgoXB@g ` Ai Xd^` HhB@g C@d`B@ggig ' @B@ggig ZJYdA (207Q \NSFILING.GETFILEINFO.FROM.PLIST 174Q \NSFILING.GETFILE 132Q \NSFILING.GETFILE 76Q \NSFILING.GET/SETINFO 61Q MEMB 47Q \FILING.ATTRIBUTE.TYPE 36Q ASSOC 27Q \NSFILING.GET/SETINFO) (170Q ATTRIBUTES 164Q OLD 161Q NONE 154Q STREAM 147Q STREAM 137Q STREAM 126Q ATTRIBUTES 122Q OLD 117Q NONE 106Q STREAMTYPE# 73Q \NSFILING.GET.ATTRIBUTES 56Q \NSFILING.USEFUL.ATTRIBUTE.TYPES 33Q \LISP.TO.NSFILING.ATTRIBUTES 24Q \NSFILING.GET.ATTRIBUTES 7 ALL) ( 16Q (-1)) \NSFILING.GET.ATTRIBUTES D1 (I 2 STREAM I 1 HANDLE I 0 CONNECTION F 0 DESIREDPROPS) B@@gAP@ (35Q COURIER.CALL) (27Q FILINGSESSION 21Q GET.ATTRIBUTES 14Q FILINGSESSION 6 FILINGSESSION) () \NSFILING.GETFILEINFO.FROM.PLIST D1 (P 0 CHNAME I 1 ATTRIBUTE I 0 PLIST) @Adgg@  gg@  Adgg@  gg@ dtnAdgg@ HdT gg@ d?Adg$g@ dkgdlghg` A@ (304Q ASSOC 273Q ASSOC 233Q ASSOC 204Q ASSOC 167Q NSNAME.TO.STRING 153Q ASSOC 117Q ASSOC 101Q \NSFILING.GDATE 74Q ASSOC 54Q \NSFILING.GDATE 47Q ASSOC 32Q \NSFILING.GDATE 25Q ASSOC) (270Q \LISP.TO.NSFILING.ATTRIBUTES 264Q BINARY 255Q TEXT 244Q DIRECTORY 227Q FILE.TYPE 220Q TYPE 200Q ACCESS.LIST 173Q PROTECTION 147Q CREATED.BY 140Q AUTHOR 113Q SIZE.IN.BYTES 105Q SIZE 70Q CREATED.ON 62Q CREATIONDATE 43Q READ.ON 36Q READDATE 21Q MODIFIED.ON 13Q WRITEDATE) () \NSFILING.GDATE D1 (I 0 DATE) @doj@ h(16Q GDATE) NIL ( 6 -20000000000Q) \NSFILING.SETFILEINFOA0001 D1 (I 4 DEVICE I 3 INFO I 2 COURIERSTREAM I 1 HANDLE I 0 CONNECTION F 0 NAME.OR.STREAM F 1 ATTR/VAL) OB@@gAQh@g *P`PhDCD(D(hi(42Q COURIER.CALL) (106Q FDEV 74Q FDEV 57Q STREAM 51Q STREAMTYPE# 36Q RETURNERRORS 31Q FILINGSESSION 21Q CHANGE.ATTRIBUTES 14Q FILINGSESSION 6 FILINGSESSION) () \NSFILING.SETFILEINFO D1 (P 1 RESULT P 0 ATTR/VAL I 3 DEVICE I 2 VALUE I 1 ATTRIBUTE I 0 NAME.OR.STREAM) MAB HBC@g Ydd4` @d`` o` I` h(111Q PRIN1 76Q PRIN1 63Q PRIN1 37Q TERPRI 22Q \NSFILING.GET/SETINFO 4 \LISP.TO.NSFILING.ATTRIBUTE) (106Q PROMPTWINDOW 73Q PROMPTWINDOW 60Q PROMPTWINDOW 53Q STREAM 46Q STREAMTYPE# 34Q PROMPTWINDOW 17Q \NSFILING.SETFILEINFOA0001) ( 70Q " -- ") \NSFILING.GET/SETINFO D1 (P 1 HANDLE P 0 FILENAME I 2 INFOFN I 1 STREAM I 0 DEVICE) :AA`AAYAIB @HggigB (67Q \NSFILING.GETFILE 45Q \NSFILING.MANIPULATE.HANDLE) (62Q HANDLE 56Q OLD 53Q NONE 36Q STREAM 26Q STREAM 17Q STREAM 10Q STREAMTYPE#) () \NSFILING.GENERATEFILESA0001 D1 (NAME ERRORSET P 22Q PROP P 15Q X P 14Q BROKET P 13Q TAIL P 10Q N P 7 INFINITE.DEPTH P 6 SCOPELIST P 5 FILTERLIST P 4 DIRECTORY P 3 VERSION P 2 NAME P 1 HOST P 0 STAR F 23Q CONNECTION F 24Q DESIREDPROPS F 25Q PATTERN F 26Q RESETVARSLST F 27Q BULKSTREAM F 30Q DEVICE F 31Q RESETY) ]o W* yd OdgOY`dgO\RdgOZDdg0Od5H JoO ZJm)l*JH ZgO [gL _?j gLOk _OOO_LOkO Ojh LkOk \W0 dc&gW&hhhW,c,W&Li ^W(AO#Oc(W&gFlDd c(_$` O$i _$_"O O"h_ _O_O"&_ l oW( c(gJ JH ggJggJhghhMKdggKhghhM]MgMdgMhhN`)L&W&gg` i_nhNW&W&gW& W(NhW& c.gghW.gg _W* _W&OOOhc2i(1103Q DIRECTORY.MATCH.SETUP 1073Q BULKDATA.GENERATOR 1046Q COURIER.CALL 571Q STREQUAL 563Q STRPOS 550Q \APPEND2 471Q \FILING.ATTRIBUTE.TYPE 457Q ASSOC 441Q INTERSECTION 365Q \NSFILING.CONNECT 324Q \GETFILINGCONNECTION 315Q SUBSTRING 273Q SUBSTRING 241Q STRPOS 216Q STRPOS 177Q MKATOM 161Q CONCAT 140Q CONCAT 123Q STREQUAL 13Q UNPACKFILENAME.STRING) (1070Q ATTRIBUTE.SEQUENCE 1065Q FILING 1057Q \NSFILING.FILEINFOFN 1054Q \NSFILING.NEXTFILE 1040Q FILINGSESSION 1025Q FILINGSESSION 1020Q LIST 1013Q FILINGSESSION 1004Q FILINGSESSION 756Q FILING.ENUMERATION.DEPTH 753Q DEPTH 745Q FILING 740Q FILINGSESSION 726Q FILING.ENUMERATION.DEPTH 707Q AND 677Q FILTER 657Q CARDINAL 650Q VERSION 645Q = 620Q STRING 611Q NAME 606Q = 601Q NAME 576Q MATCHES 557Q * 454Q \LISP.TO.NSFILING.ATTRIBUTES 426Q FILING 421Q FILINGSESSION 337Q \NSFILING.CLOSE.IF.ERROR 231Q > 212Q * 166Q VERSION 102Q EXTENSION 64Q NAME 46Q DIRECTORY 30Q HOST) ( 543Q (22Q 5) 131Q "." 3 "*") \NSFILING.GENERATEFILESA0002 D1 (I 1 STREAM I 0 CONNECTION F 0 RESETSTATE) A @P (10Q \CLOSEFILINGCONNECTION 3 CLOSEF) NIL () \NSFILING.GENERATEFILES D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 RESULT P 1 BULKSTREAM P 0 CONNECTION I 3 OPTIONS I 2 DESIREDPROPS I 1 PATTERN I 0 DEVICE F 6 RESETVARSLST F 7 LISPXHIST) \0W!Vog hg] MLZH,CgCgCgHIhhhVc IH J(131Q \NULLFILEGENERATOR 122Q \CLOSEFILINGCONNECTION 42Q ERROR! 34Q RESETRESTORE 22Q \NSFILING.GENERATEFILESA0001) (75Q \NSFILING.GENERATEFILESA0002 66Q RESETLST 55Q RESETLST 30Q ERROR 17Q INTERNAL) ( 14Q (\NSFILING.GENERATEFILESA0001)) \NSFILING.NEXTFILE D1 (P 5 NAME P 4 INFO P 3 IGNOREDIRS P 2 FILTER P 1 CONNECTION P 0 GENERATOR I 2 SCRATCHLIST I 1 NAMEONLY I 0 GENFILESTATE) H@@@@$H \hKgL IL JJM @LAMi M(103Q NAMEFIELD 66Q DIRECTORY.MATCH 56Q \NSFILING.FULLNAME 45Q ASSOC 30Q BULKDATA.GENERATE.NEXT) (41Q IS.DIRECTORY) () \NSFILING.FILEINFOFN D1 (I 1 ATTRIBUTE I 0 GENFILESTATE) @A (5 \NSFILING.GETFILEINFO.FROM.PLIST) NIL () \NSFILING.GETEOFPTR D1 (I 0 STREAM) @Rlj@ @g (30Q \NSFILING.GETFILEINFO 20Q GETFILEPTR) (25Q LENGTH 3 STREAM) () \NSFILING.INIT D1 NIL eh`dgdgdgdg:dg8dg6dg4dg2dg0dg.dg*dg$dg (142Q \DEFINEDEVICE) (134Q NILL 125Q \GENERIC.READP 116Q NILL 107Q \IS.NOT.RANDACCESSP 100Q \ILLEGAL.DEVICEOP 71Q \IS.NOT.RANDACCESSP 62Q \ILLEGAL.DEVICEOP 53Q \GENERIC.BINS 44Q \GENERIC.BOUTS 35Q \GENERIC.RENAMEFILE 26Q NILL 17Q \NSFILING.HOSTNAMEP 10Q NSFILING 3 FDEVTYPE#) () (PRETTYCOMPRINT NSFILINGCOMS) (RPAQQ NSFILINGCOMS ((* Filing Protocol) (COURIERPROGRAMS FILING OLDFILING) (DECLARE: DONTCOPY ( CONSTANTS * NSFILINGCONSTANTS) (RECORDS NSFILINGSTREAM FILINGSESSION NSFILESERVER NSFILINGDEVICEINFO \NSFILING.GENFILESTATE) (MACROS FILING.CALL) (GLOBALVARS \NSFILING.CONNECTIONS \NSFILING.DEVICE \NSFILING.NULL.HANDLE \NSFILING.ATTRIBUTES \LISP.TO.NSFILING.ATTRIBUTES \NSFILING.USEFUL.ATTRIBUTE.TYPES \NSFILING.PROGRAM.NAME FILING.ENUMERATION.DEPTH)) (INITRECORDS FILINGSESSION) (COMS (FNS \GET.FILING.ATTRIBUTE \PUT.FILING.ATTRIBUTE) (PROP COURIERDEF FILING.ATTRIBUTE) (DECLARE: EVAL@COMPILE DOCOPY (VARS \NSFILING.NULL.HANDLE \NSFILING.ATTRIBUTES \LISP.TO.NSFILING.ATTRIBUTES (\NSFILING.USEFUL.ATTRIBUTE.TYPES (\FILING.ATTRIBUTE.TYPE.SEQUENCE (QUOTE (CREATED.ON FILE.ID IS.DIRECTORY MODIFIED.ON NAME READ.ON SIZE.IN.BYTES FILE.TYPE VERSION))))))) ( INITVARS (FILING.ENUMERATION.DEPTH T) (\NSFILING.LOCK (CREATE.MONITORLOCK (QUOTE NSFILING))) ( \NSFILING.CONNECTIONS NIL) (\NSFILING.PROGRAM.NAME (QUOTE FILING))) (FNS \GETFILINGCONNECTION \NSFILING.FINDSERVER \OPENFILINGCONNECTION \NSFILING.LOGIN \NSFILING.SET.CONTINUANCE \CLOSEFILINGCONNECTION \NSFILING.LOGOUT \NSFILING.RESETCLOSE \NSFILING.CLOSE.IF.ERROR \VALID.FILING.CONNECTIONP \NSFILING.CLOSE.CONNECTIONS BREAK.NSFILING.CONNECTION) (FNS \NSFILING.CONNECT \NSFILING.MAYBE.CREATE \PATHNAME.TO.DIRECTORY.LIST \NSFILING.LISTVERSIONS \FILING.ATTRIBUTE.TYPE.SEQUENCE \FILING.ATTRIBUTE.TYPE \LISP.TO.NSFILING.ATTRIBUTE) (FNS \NSFILING.OPENFILE \NSFILING.GETFILE \NSFILING.MANIPULATE.HANDLE \NSFILING.FIND.VERSION \NSFILING.OPENFILE.OPTIONS \NSFILING.CLOSEFILE \NSFILING.CLOSE.HANDLE \NSFILING.FULLNAME \NSFILING.EVENTFN \NSFILING.DELETEFILE \NSFILING.HOSTNAMEP \NSFILING.DIRECTORYNAMEP \NSFILING.GETFILENAME \NSFILING.GETFILEINFO \NSFILING.GET.ATTRIBUTES \NSFILING.GETFILEINFO.FROM.PLIST \NSFILING.GDATE \NSFILING.SETFILEINFO \NSFILING.GET/SETINFO \NSFILING.GENERATEFILES \NSFILING.NEXTFILE \NSFILING.FILEINFOFN \NSFILING.GETEOFPTR) (COMS (FNS \NSFILING.INIT) (DECLARE: DONTEVAL@LOAD DOCOPY ( P (\NSFILING.INIT)))))) (COURIERPROGRAM FILING (10 4) TYPES ((ATTRIBUTE.TYPE LONGCARDINAL) (ATTRIBUTE.TYPE.SEQUENCE (SEQUENCE ATTRIBUTE.TYPE)) (ATTRIBUTE FILING.ATTRIBUTE) (ATTRIBUTE.SEQUENCE (SEQUENCE FILING.ATTRIBUTE)) ( CONTROL.TYPE (ENUMERATION (LOCK 0) (TIMEOUT 1))) (CONTROL.TYPE.SEQUENCE (SEQUENCE CONTROL.TYPE)) ( CONTROL (CHOICE (LOCK 0 LOCK) (TIMEOUT 1 TIMEOUT))) (CONTROL.SEQUENCE (SEQUENCE CONTROL)) (LOCK ( ENUMERATION (NONE 0) (SHARE 1) (EXCLUSIVE 2))) (TIMEOUT CARDINAL) (SCOPE.TYPE (ENUMERATION (COUNT 0) ( DIRECTION 1) (FILTER 2) (DEPTH 3))) (SCOPE (CHOICE (COUNT 0 CARDINAL) (DIRECTION 1 DIRECTION) (FILTER 2 FILTER) (DEPTH 4 CARDINAL))) (SCOPE.SEQUENCE (SEQUENCE SCOPE)) (DIRECTION (ENUMERATION (FORWARD 0) ( BACKWARD 1))) (FILTER (CHOICE (LT 0 FILTER.ATTRIBUTE) (LE 1 FILTER.ATTRIBUTE) (= 2 FILTER.ATTRIBUTE) ( ~= 3 FILTER.ATTRIBUTE) (GE 4 FILTER.ATTRIBUTE) (GT 5 FILTER.ATTRIBUTE) (AND 6 (SEQUENCE FILTER)) (OR 7 (SEQUENCE FILTER)) (NOT 8 FILTER) (NONE 9 NIL) (ALL 10 NIL) (MATCHES 11 ATTRIBUTE))) ( FILTER.ATTRIBUTE (RECORD (ATTRIBUTE FILING.ATTRIBUTE) (INTERPRETATION INTERPRETATION))) ( INTERPRETATION (ENUMERATION (NONE 0) (BOOLEAN 1) (CARDINAL 2) (LONGCARDINAL 3) (TIME 4) (INTEGER 5) ( LONGINTEGER 6) (STRING 7))) (CREDENTIALS (AUTHENTICATION . CREDENTIALS)) (HANDLE (ARRAY 2 UNSPECIFIED) ) (SESSION (RECORD (TOKEN (ARRAY 2 UNSPECIFIED)) (VERIFIER VERIFIER))) (VERIFIER (AUTHENTICATION . VERIFIER)) (SIMPLE.VERIFIER (AUTHENTICATION . SIMPLE.VERIFIER)) (FILE.ID (ARRAY 5 UNSPECIFIED)) (USER (CLEARINGHOUSE . NAME)) (ORDERING (RECORD (KEY ATTRIBUTE.TYPE) (ASCENDING BOOLEAN) (INTERPRETATION INTERPRETATION))) (ACCESS.LIST (RECORD (ENTRIES (SEQUENCE ACCESS.ENTRY)) (DEFAULTED BOOLEAN))) ( ACCESS.ENTRY (RECORD (KEY (CLEARINGHOUSE . NAME)) (TYPE (ENUMERATION (INDIVIDUAL 0) (ALIAS 1) (GROUP 2 ) (OTHER 3))) (ACCESS UNSPECIFIED))) (ARGUMENT.PROBLEM (ENUMERATION (Illegal 0) (Disallowed 1) ( Unreasonable 2) (Unimplemented 3) (Duplicated 4) (Missing 5))) (ACCESS.PROBLEM (ENUMERATION ( AccessRightsInsufficient 0) (AccessRightsIndeterminate 1) (FileChanged 2) (FileDamaged 3) (FileInUse 4 ) (FileNotFound 5) (FileOpen 6))) (CONNECTION.PROBLEM (ENUMERATION (NoRoute 0) (NoResponse 1) ( TransmissionHardware 2) (TransportTimeout 3) (TooManyLocalConnections 4) (TooManyRemoteConnections 5) (MissingCourier 6) (MissingProgram 7) (MissingProcedure 8) (ProtocolMismatch 9) ( ParameterInconsistency 10) (InvalidMessage 11) (ReturnTimedOut 12) (Other 65535))) (HANDLE.PROBLEM ( ENUMERATION (Invalid 0) (NullDisallowed 1) (DirectoryRequired 2))) (INSERTION.PROBLEM (ENUMERATION ( PositionUnavailable 0) (FileNotUnique 1) (LoopInHierarchy 2))) (SERVICE.PROBLEM (ENUMERATION ( CannotAuthenticate 0) (ServiceFull 1) (ServiceUnavailable 2) (SessionInUse 3) (UnknownService 4))) ( SESSION.PROBLEM (ENUMERATION (TokenInvalid 0))) (SPACE.PROBLEM (ENUMERATION (AllocationExceeded 0) ( AttributeAreaFull 1) (MediumFull 2))) (TRANSFER.PROBLEM (ENUMERATION (Aborted 0) (ChecksumIncorrect 1) (FormatIncorrect 2) (NoRendezvous 3) (WrongDirection 4)))) PROCEDURES ((LOGON 0 ((CLEARINGHOUSE . NAME) CREDENTIALS VERIFIER) RETURNS (SESSION) REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (LOGOFF 1 (SESSION) RETURNS NIL REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CONTINUE 19 (SESSION) RETURNS (CARDINAL) REPORTS ( AUTHENTICATION.ERROR SESSION.ERROR UNDEFINED.ERROR)) (OPEN 2 (ATTRIBUTE.SEQUENCE HANDLE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CLOSE 3 (HANDLE SESSION) RETURNS NIL REPORTS (AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (CREATE 4 (HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (DELETE 5 (HANDLE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (GET.ATTRIBUTES 8 (HANDLE ATTRIBUTE.TYPE.SEQUENCE SESSION) RETURNS (ATTRIBUTE.SEQUENCE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR SESSION.ERROR UNDEFINED.ERROR)) ( CHANGE.ATTRIBUTES 9 (HANDLE ATTRIBUTE.SEQUENCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (COPY 10 (HANDLE HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (MOVE 11 (HANDLE HANDLE ATTRIBUTE.SEQUENCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR UNDEFINED.ERROR)) (STORE 12 (HANDLE ATTRIBUTE.SEQUENCE CONTROL.SEQUENCE BULK.DATA.SOURCE SESSION) RETURNS (HANDLE) REPORTS ( ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR INSERTION.ERROR SESSION.ERROR SPACE.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (RETRIEVE 13 (HANDLE BULK.DATA.SINK SESSION) RETURNS NIL REPORTS ( ACCESS.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (REPLACE 14 (HANDLE ATTRIBUTE.SEQUENCE BULK.DATA.SOURCE SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SESSION.ERROR SPACE.ERROR TRANSFER.ERROR UNDEFINED.ERROR)) (FIND 17 (HANDLE SCOPE.SEQUENCE CONTROL.SEQUENCE SESSION) RETURNS (HANDLE) REPORTS (ACCESS.ERROR AUTHENTICATION.ERROR CONTROL.TYPE.ERROR CONTROL.VALUE.ERROR HANDLE.ERROR SCOPE.TYPE.ERROR SCOPE.VALUE.ERROR SESSION.ERROR UNDEFINED.ERROR)) (LIST 18 (HANDLE ATTRIBUTE.TYPE.SEQUENCE SCOPE.SEQUENCE BULK.DATA.SINK SESSION) RETURNS NIL REPORTS (ACCESS.ERROR ATTRIBUTE.TYPE.ERROR ATTRIBUTE.VALUE.ERROR AUTHENTICATION.ERROR CONNECTION.ERROR HANDLE.ERROR SCOPE.TYPE.ERROR SCOPE.VALUE.ERROR SESSION.ERROR TRANSFER.ERROR UNDEFINED.ERROR))) ERRORS ((ATTRIBUTE.TYPE.ERROR 0 (ARGUMENT.PROBLEM ATTRIBUTE.TYPE)) ( ATTRIBUTE.VALUE.ERROR 1 (ARGUMENT.PROBLEM ATTRIBUTE.TYPE)) (CONTROL.TYPE.ERROR 2 (ARGUMENT.PROBLEM CONTROL.TYPE)) (CONTROL.VALUE.ERROR 3 (ARGUMENT.PROBLEM CONTROL.TYPE)) (SCOPE.TYPE.ERROR 4 ( ARGUMENT.PROBLEM SCOPE.TYPE)) (SCOPE.VALUE.ERROR 5 (ARGUMENT.PROBLEM SCOPE.TYPE)) (ACCESS.ERROR 6 ( ACCESS.PROBLEM)) (AUTHENTICATION.ERROR 7 ((AUTHENTICATION . PROBLEM))) (CONNECTION.ERROR 8 ( CONNECTION.PROBLEM)) (HANDLE.ERROR 9 (HANDLE.PROBLEM)) (INSERTION.ERROR 10 (INSERTION.PROBLEM)) ( SERVICE.ERROR 11 (SERVICE.PROBLEM)) (SESSION.ERROR 12 (SESSION.PROBLEM)) (SPACE.ERROR 13 ( SPACE.PROBLEM)) (TRANSFER.ERROR 14 (TRANSFER.PROBLEM)) (UNDEFINED.ERROR 15 (CARDINAL)))) (COURIERPROGRAM OLDFILING (10 2) INHERITS (FILING) PROCEDURES ((LOGON 0 (CREDENTIALS VERIFIER) RETURNS (SESSION) REPORTS (AUTHENTICATION.ERROR SERVICE.ERROR SESSION.ERROR UNDEFINED.ERROR)))) (/DECLAREDATATYPE (QUOTE FILINGSESSION) (QUOTE (FLAG (BITS 7) POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER))) (PUTPROPS FILING.ATTRIBUTE COURIERDEF (\GET.FILING.ATTRIBUTE \PUT.FILING.ATTRIBUTE)) (RPAQQ \NSFILING.NULL.HANDLE (0 0)) (RPAQQ \NSFILING.ATTRIBUTES ((CHECKSUM 0 CARDINAL) (CHILDREN.UNIQUELY.NAMED 1 BOOLEAN) (CREATED.BY 2 USER) (CREATED.ON 3 TIME) (FILE.ID 4 FILE.ID) (IS.DIRECTORY 5 BOOLEAN) (IS.TEMPORARY 6 BOOLEAN) ( MODIFIED.BY 7 USER) (MODIFIED.ON 8 TIME) (NAME 9 STRING) (NUMBER.OF.CHILDREN 10 CARDINAL) (ORDERING 11 ORDERING) (PARENT.ID 12 FILE.ID) (POSITION 13 (SEQUENCE UNSPECIFIED)) (READ.BY 14 USER) (READ.ON 15 TIME) (SIZE.IN.BYTES 16 LONGCARDINAL) (FILE.TYPE 17 LONGCARDINAL) (VERSION 18 CARDINAL) (ACCESS.LIST 19 ACCESS.LIST) (DEFAULT.ACCESS.LIST 20 ACCESS.LIST) (PATHNAME 21 STRING))) (RPAQQ \LISP.TO.NSFILING.ATTRIBUTES ((IWRITEDATE MODIFIED.ON) (IREADDATE READ.ON) (ICREATIONDATE CREATED.ON) (CREATIONDATE CREATED.ON) (READDATE READ.ON) (WRITEDATE MODIFIED.ON) (LENGTH SIZE.IN.BYTES ) (AUTHOR CREATED.BY) (PROTECTION ACCESS.LIST) (SIZE SIZE.IN.BYTES) (TYPE FILE.TYPE) (FILETYPE FILE.TYPE))) (RPAQ \NSFILING.USEFUL.ATTRIBUTE.TYPES (\FILING.ATTRIBUTE.TYPE.SEQUENCE (QUOTE (CREATED.ON FILE.ID IS.DIRECTORY MODIFIED.ON NAME READ.ON SIZE.IN.BYTES FILE.TYPE VERSION)))) (RPAQ? FILING.ENUMERATION.DEPTH T) (RPAQ? \NSFILING.LOCK (CREATE.MONITORLOCK (QUOTE NSFILING))) (RPAQ? \NSFILING.CONNECTIONS NIL) (RPAQ? \NSFILING.PROGRAM.NAME (QUOTE FILING)) (\NSFILING.INIT) (PUTPROPS NSFILING COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL