(FILECREATED " 9-Jul-84 14:45:19" ("compiled on " {ERIS}NSFILING>DSKTEST.;4) "19-Jun-84 14:30:14" recompiled changes: CHECKLENGTHANDCONTENTS CHOOSERANDOMFILEOPERATION DEFAULT.DSKFREEPAGESFN TESTFILEP in WORK dated "19-Jun-84 14:48:49") (FILECREATED " 9-Jul-84 14:44:32" {ERIS}NSFILING>DSKTEST.;4 32251 changes to: (FNS CHECKLENGTHANDCONTENTS TESTFILEP CHOOSERANDOMFILEOPERATION DEFAULT.DSKFREEPAGESFN) (VARS DSKTESTCOMS) (ADVICE \NSFILING.LISTVERSIONS-IN-\NSFILING.GETFILE) previous date: " 8-Jun-84 01:16:18" {ERIS}DLIONFS>DSKTEST.;5) CHECKCONSISTENCY D1 (P 4 FILEINFO P 3 DIRFILE P 0 DIRFILES I 1 HOST/DIR I 0 FILESINFO) UA @H"JIhK L K L@ oLoK L JI(112Q CHECKLENGTHANDCONTENTS 105Q ERROR 65Q FASSOC 62Q MEMB 55Q U-CASE 46Q U-CASE 41Q U-CASE 6 SORT 3 DIRECTORY) NIL ( 101Q "NEW FILE HAS APPEARED .. " 72Q "FILE MISSING .. ") CHECKLENGTHANDCONTENTS D1 (P 5 I P 3 READBYTE P 2 CONTENTS P 1 FILELENGTH P 0 STRM I 0 FILEINFO F 6 LOGFILE F 7 DONTCLOSEFILESFLG) @g g @@IHg o@ J`IH `H `IH o@ I`MLkH [J^oV V oV JV oV KV oV V oV H kV V o@ Mk]H o@ WH h(352Q CLOSEF 342Q ERROR 331Q EOFP 315Q ERROR 304Q TERPRI 277Q PRIN1 271Q GETFILEPTR 264Q PRIN1 253Q TERPRI 246Q PRIN1 235Q PRIN1 227Q PRIN1 216Q PRIN1 210Q PRIN1 177Q TERPRI 172Q PRIN1 136Q ERROR 125Q EQP 122Q \DWIN 110Q WORDIN 76Q WORDIN 53Q ERROR 42Q EQP 37Q GETFILEINFO 15Q GETSTREAM 7 OPENFILE) (143Q MINTESTFILELENGTH 113Q SECONDTESTWORD 101Q FIRSTTESTWORD 64Q MINTESTFILELENGTH 34Q LENGTH 12Q INPUT 4 INPUT) ( 336Q "FILE doesn't get EOFP ... " 311Q "FILE HAS WRONG BYTE .. " 260Q "at location" 242Q "from file" 223Q " but read " 204Q "should have " 166Q "FILE HAS WRONG BYTE .. " 132Q "FIRST 8 bytes of file is wrong .. " 47Q "FILE has wrong length ... ") CHOOSERANDOMFILEOPERATION D1 (P 0 RANDNUM I 1 HOST/DIR I 0 FILESINFO) 0@(kl Hdld@hA l@hA hA (55Q GENERATEADDFILEOP 47Q GENERATEDELETEALLFILEOP 43Q GENERATEDELETEFILEOP 30Q GENERATEADDFILEOP 10Q RAND) NIL () DEFAULT.DSKFREEPAGESFN D1 (P 0 HOST I 0 HOST/DIR) .@g gH Hg@g i n(47Q DISKFREEPAGES 43Q FILENAMEFIELD 25Q DFSLISPVOLUMEP 14Q MACHINETYPE 6 FILENAMEFIELD) (40Q HOST 32Q DSK 17Q DANDELION 3 HOST) () DEFAULT.DSKMINALLOCFN D1 (I 0 NEWFILELENGTH) dgl@dgdgk(35Q SHOULDNT 2 MACHINETYPE) (25Q DORADO 17Q DOLPHIN 6 DANDELION) () DEFAULT.DSKPAGESOVERHEADFN D1 (I 0 NEWFILELENGTH) 8dg@l?l@l@ll@@l@dgdg@l(65Q SHOULDNT 2 MACHINETYPE) (51Q DORADO 43Q DOLPHIN 6 DANDELION) () DELETETESTFILES D1 (P 1 FILE I 1 CHECKENTIRECONTENTSFLG I 0 HOST/DIR) %@ HhYAh I i HX(35Q PRINT 31Q DELFILE 24Q TESTFILEP 3 DIRECTORY) NIL () DOTESTFILEOP D1 (P 13Q XFILEINFO P 12Q CHANGEFILEINFO P 11Q NOWLENGTH P 10Q OLDDISKFREEPAGES P 7 NEWLENGTH P 6 TESTFILE P 5 F P 4 DELFILEINFO P 3 OLDDISKFREEPAGES P 2 CONTENTS P 1 BYTELEN P 0 FULLFILE I 2 HOST/DIR I 1 FILEINFOLST I 0 FILEOP)  @dgF@@@B HIJ Xo@ HdiHIJ@hA dg"@L oL LA dgAdM hdgj@@B S A_h_ oO h_NOiOOO_NOOOO NO OOAo@ (407Q ERROR 364Q TRUNCATETESTFILE 355Q BLOCK 351Q EXTENDTESTFILE 271Q ERROR 242Q DSKFREEPAGES 207Q DELFILE 162Q REMOVE 154Q ERROR 143Q BLOCK 137Q DELFILE 113Q SORTBYCAR 72Q HELP 60Q ERROR 47Q BLOCK 42Q WRITETESTFILE 31Q DSKFREEPAGES) (222Q CHANGELENGTH 167Q DELETEALL 120Q DELETE 5 ADD) ( 403Q "unknown file operation" 264Q "changing a file that is not on file information list." 150Q "file won't delete" 54Q "file wasn't written. ") DSKFREEPAGES D1 (I 0 HOST/DIR) @k`NIL (4 DSKFREEPAGESFN) () DSKMINALLOC D1 (I 0 NEWFILELENGTH F 0 DSKMINALLOCFN) @kPNIL NIL () DSKPAGESOVERHEAD D1 (I 0 NEWFILELENGTH) @k`NIL (4 DSKPAGESOVERHEADFN) () DSKTESTA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 4 FROMREPLAYFILE P 3 X P 2 FILEOP P 1 FILESINFO P 0 NUMBEROFOPERATIONSDONE F 10Q LOGFILE F 11Q HOST/DIR F 12Q REPLAYFILE F 13Q KEEPREPLAYFILEFLG F 14Q RESETVARSLST F 15Q CURRENTFILES? F 16Q NUMOPERATIONS F 17Q DEFAULTREPLAYFILE F 20Q RESETY)  jAW2icg [,gKghhKgg hWcg cWdi WWcg c $g Wg \qWo hcgid hW hWcWdg!oW W W W WAWg9oi 0W j d NMh_M&O(0W d NMh_M&OoW IW oW W HkظWddHWHkghc iLjIW ZWWg JW W oW JW JIW oW HW oW IW og L L L hido (775Q BREAK1 761Q CLOSEF 753Q EOFP 746Q SKIPSEPRS 741Q READ 726Q CHECKCONSISTENCY 717Q BLOCK 713Q PRIN1 701Q PRIN1 672Q PRIN1 660Q DOTESTFILEOP 650Q PRINT 641Q PRIN1 627Q CLOSEF 621Q PRINT 612Q OPENFILE 574Q CHOOSERANDOMFILEOPERATION 515Q TERPRI 507Q PRIN1 475Q BLOCK 471Q CHECKCONSISTENCY 462Q PRIN1 424Q FILEINFOFROMFILE 415Q SORT 412Q DIRECTORY 354Q FILEINFOFROMFILE 345Q SETFILEPTR 337Q SORT 334Q DIRECTORY 323Q PRIN1 276Q TERPRI 270Q DELETETESTFILES 262Q TERPRI 254Q PRIN1 220Q CNDIR 210Q DIRECTORYNAME 173Q ERROR 157Q OPENFILE 143Q OPENFILE 133Q CLOSEF 126Q OPENFILE 75Q OPENFILE 55Q PUTWINDOWPROP 23Q WFROMDS 20Q GETSTREAM) (607Q APPEND 553Q operations% done. 310Q DELETE 237Q DELETE 203Q CNDIR 154Q INPUT 140Q OUTPUT 123Q OUTPUT 72Q OUTPUT 52Q NILL 47Q PAGEFULLFN 35Q PAGEFULLFN 31Q WINDOWPROP 15Q OUTPUT) ( 772Q "Before last event on replay file" 733Q " done." 706Q " ....." 665Q "Consistency check after operation " 634Q ".......... " 502Q " done." 455Q "Beginning initial check ......" 317Q "Not implemented to check old file contents yet." 247Q "Deleting any test files ...." 170Q "replay file not found") DSKTEST D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 REPLAYFILE I 5 LOGFILE I 4 DSKTESTBACKUP I 3 CURRENTFILES? I 2 NUMOPERATIONS I 1 KEEPREPLAYFILEFLG I 0 HOST/DIR F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DSKTESTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DUMMY.FOR.ERRORSET)) EXTENDTESTFILE D1 (P 2 I P 0 STRM I 3 NEWLENGTH I 2 CONTENTBYTE I 1 NBYTESLONGER I 0 FILENAME F 3 DONTCLOSEFILESFLG) P@ @ @g g H o@ HC Hm AkJIHB JkZSH h(114Q CLOSEF 76Q \BOUT 60Q SETFILEPTR 52Q WRITETESTFILELENGTH 44Q ERROR 26Q GETSTREAM 20Q OPENFILE 10Q CLOSEF 3 OPENP) (23Q BOTH 15Q BOTH) ( 40Q "file that it supposed to exist won't open for extending.") FILEINFOFROMFILE D1 (I 0 FILE) $@dio @dg @hi hh(33Q TESTFILEP 25Q GETFILEINFO 14Q HELP) (22Q LENGTH) ( 11Q "FILE IS T!!?") GENERATEADDFILEOP D1 (P 0 LENGTH I 2 HOST/DIR I 1 STOPIFCANTFLG I 0 FILEINFOLST) 0B HgB Hjl hAo @iB (55Q GENERATEDELETEFILEOP 46Q ERROR 27Q RAND 20Q RANDOMFILENAME 3 RANDOMFILELENGTH) (14Q ADD) ( 43Q "probably out of disk space.") GENERATECHANGEFILEOP D1 (P 1 LENGTH P 0 FILETOCHANGE I 1 HOST/DIR I 0 FILEINFOLST) *@ A H@iA I@iA gHIhh(33Q GENERATEDELETEFILEOP 22Q GENERATEADDFILEOP 7 RANDOMFILELENGTH 3 RANDOMTESTFILE) (37Q CHANGELENGTH) () GENERATEDELETEFILEOP D1 (P 0 FILETODEL I 2 HOST/DIR I 1 STOPIFNONEFLG I 0 FILEINFOLST) '@ HgHhdhAo @iB (44Q GENERATEADDFILEOP 35Q ERROR 3 RANDOMTESTFILE) (13Q DELETE) ( 32Q "probably out of disk space") GENERATEDELETEALLFILEOP D1 NIL ghddhNIL (2 DELETEALL) () RANDOMELT D1 (I 0 LST) @k@ (13Q NTH 10Q RAND 5 LENGTH) NIL () RANDOMFILELENGTH D1 (P 4 FILEOVERHEAD P 3 MINALLOC P 2 DSKPAGES P 1 BYTESPERPAGE P 0 NPAGES I 0 HOST/DIR F 5 TESTFILEPAGELENGTHS) YU n@ @ JKd hHd \JJLXHIjl djjdkklmon (125Q RAND 64Q RAND 41Q DSKPAGESOVERHEAD 27Q DSKPAGESOVERHEAD 16Q DSKMINALLOC 12Q DSKFREEPAGES 3 RANDOMELT) NIL ( 117Q -777Q) RANDOMFILENAME D1 (I 0 HOST/DIR F 0 MINFILENAMELENGTH F 1 MAXFILENAMELENGTH F 2 MAXVERSION F 3 MINFILEEXTENSIONLENGTH F 4 MAXFILEEXTENSIONLENGTH) <g@gPQ gST gjk jkR h (71Q U-CASE 66Q PACKFILENAME 52Q RAND 41Q RAND 31Q RANDOMSTR 26Q RAND 16Q RANDOMSTR 13Q RAND) (34Q VERSION 21Q EXTENSION 6 NAME 2 HOST) () RANDOMSTR D1 (P 2 #LEGALFILENAMECHARS P 1 I I 0 NCHARS F 6 LEGALFIRSTFILENAMECHARS F 7 LEGALFILENAMECHARS) EVkV @kkW 3IH!WkJ L Mh\IkYM&K (102Q PACK 47Q NTH 44Q RAND 25Q LENGTH 13Q NTH 10Q RAND 5 LENGTH) NIL () RANDOMTESTFILE D1 (P 3 NFILE P 2 NTESTFILES I 0 FILEINFOLST) E@jHI1JjkJ [@\hIkعHX]Kk[jML(26Q RAND) NIL () SORTBYCARA0001 D1 (I 1 B I 0 A) @A (6 ALPHORDER) NIL () SORTBYCAR D1 (I 0 LST) @g (6 SORT) (3 SORTBYCARA0001) () TESTFILEP D1 (P 4 I P 2 CONTENTS P 1 FILELENGTH P 0 STRM I 2 RETURNCONTENTSFLG I 1 HINTONLYFLG I 0 FILE) s@g g !Hg Y`IhMH `CH `9IH /ABH '@$H Ik`LKH J Lk\BJ@H (157Q CLOSEF 74Q EQP 71Q \DWIN 56Q WORDIN 44Q WORDIN 26Q GETFILEINFO 14Q GETSTREAM 6 OPENFILE) (122Q MINTESTFILELENGTH 61Q SECONDTESTWORD 47Q FIRSTTESTWORD 32Q MINTESTFILELENGTH 23Q LENGTH 11Q INPUT 3 INPUT) () TRUNCATETESTFILE D1 (P 0 STRM I 1 NEWLENGTH I 0 FILENAME) W@ @ @g g H o@ HA HA @gA H @g A o@Ah h(123Q ERROR 106Q EQP 102Q GETFILEINFO 73Q CLOSEF 67Q SETFILEINFO 57Q SETFILEPTR 52Q WRITETESTFILELENGTH 44Q ERROR 26Q GETSTREAM 20Q OPENFILE 10Q CLOSEF 3 OPENP) (77Q LENGTH 63Q LENGTH 23Q BOTH 15Q BOTH) ( 113Q "truncating file to NEWLENGTH didn't take" 40Q "file that it supposed to exist won't open for truncation.") WORDIN D1 (I 0 STRM) @ @ NIL NIL () WORDOUT D1 (I 1 WORD I 0 STRM) @A @Al (15Q \BOUT 5 \BOUT) NIL () WRITETESTFILE D1 (P 3 I P 1 STRM P 0 FULLNAME I 2 CONTENTBYTE I 1 LENGTH I 0 NAME) Y@g Hdg Y`Ao` I` I` IA AlkKJIB Kk[I H(125Q CLOSEF 111Q BOUT 70Q \DWOUT 63Q WORDOUT 54Q WORDOUT 44Q ERROR 23Q GETSTREAM 6 OPENFILE) (60Q SECONDTESTWORD 51Q FIRSTTESTWORD 41Q MINTESTFILELENGTH 27Q MINTESTFILELENGTH 20Q OUTPUT 3 OUTPUT) ( 36Q "test files must have a minimum length ") WRITETESTFILELENGTH D1 (I 1 NEWLENGTH I 0 STRM) @l @A (12Q \DWOUT 5 SETFILEPTR) NIL () \DWOUT D1 (I 1 NUMBER I 0 FILE) (@Al @Al @Al @Al (45Q \BOUT 35Q \BOUT 24Q \BOUT 12Q \BOUT) NIL () \DWIN D1 (I 0 FILE) @ @ @ @ NIL NIL () (PRETTYCOMPRINT DSKTESTCOMS) (RPAQQ DSKTESTCOMS ((* * This version is for non-randaccessp hosts. Changes to CHOOSERANDOMFILEOPERATION so it doesn't generate a changefile op, and to CHECKLENGTHANDCONTENTS so it doesn't use setfileptr) (FNS CHECKCONSISTENCY CHECKLENGTHANDCONTENTS CHOOSERANDOMFILEOPERATION DEFAULT.DSKFREEPAGESFN DEFAULT.DSKMINALLOCFN DEFAULT.DSKPAGESOVERHEADFN DELETETESTFILES DOTESTFILEOP DSKFREEPAGES DSKMINALLOC DSKPAGESOVERHEAD DSKTEST EXTENDTESTFILE FILEINFOFROMFILE GENERATEADDFILEOP GENERATECHANGEFILEOP GENERATEDELETEFILEOP GENERATEDELETEALLFILEOP RANDOMELT RANDOMFILELENGTH RANDOMFILENAME RANDOMSTR RANDOMTESTFILE SORTBYCAR TESTFILEP TRUNCATETESTFILE WORDIN WORDOUT WRITETESTFILE WRITETESTFILELENGTH) (FNS \DWOUT \DWIN) (VARS (DSKFREEPAGESFN (FUNCTION DEFAULT.DSKFREEPAGESFN)) (DSKPAGESOVERHEADFN (FUNCTION DEFAULT.DSKPAGESOVERHEADFN)) (DSKMINALLOCFN ( FUNCTION DEFAULT.DSKMINALLOCFN))) (VARS MINTESTFILELENGTH FIRSTTESTWORD SECONDTESTWORD ( NUMBEROFTESTBYTES 5) (EXHAUSTIVETESTFLG) (DEFAULTREPLAYFILE (QUOTE {PHYLUM}DLIONFS>REPLAY.LOG)) (DONTCLOSEFILESFLG) LEGALFILENAMECHARS LEGALFIRSTFILENAMECHARS (PAGESPERFILEOVERHEAD 2)) (VARS (MINFILENAMELENGTH 1) (MAXFILENAMELENGTH 15) (MINFILEEXTENSIONLENGTH 0 ) (MAXFILEEXTENSIONLENGTH 6) (MAXVERSION 64000) TESTFILEPAGELENGTHS) (GLOBALVARS FIRSTTESTWORD MINTESTFILELENGTH SECONDTESTWORD NUMBEROFTESTBYTES EXHAUSTIVETESTFLG DSKFREEPAGESFN DSKPAGESOVERHEADFN ) (RECORDS TESTFILEINFO TESTFILEOP) (ADVISE \NSFILING.LISTVERSIONS-IN-\NSFILING.GETFILE))) (RPAQ DSKFREEPAGESFN (FUNCTION DEFAULT.DSKFREEPAGESFN)) (RPAQ DSKPAGESOVERHEADFN (FUNCTION DEFAULT.DSKPAGESOVERHEADFN)) (RPAQ DSKMINALLOCFN (FUNCTION DEFAULT.DSKMINALLOCFN)) (RPAQQ MINTESTFILELENGTH 9) (RPAQQ FIRSTTESTWORD 48094) (RPAQQ SECONDTESTWORD 56187) (RPAQQ NUMBEROFTESTBYTES 5) (RPAQQ EXHAUSTIVETESTFLG NIL) (RPAQQ DEFAULTREPLAYFILE {PHYLUM}DLIONFS>REPLAY.LOG) (RPAQQ DONTCLOSEFILESFLG NIL) (RPAQQ LEGALFILENAMECHARS (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9)) (RPAQQ LEGALFIRSTFILENAMECHARS (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z)) (RPAQQ PAGESPERFILEOVERHEAD 2) (RPAQQ MINFILENAMELENGTH 1) (RPAQQ MAXFILENAMELENGTH 15) (RPAQQ MINFILEEXTENSIONLENGTH 0) (RPAQQ MAXFILEEXTENSIONLENGTH 6) (RPAQQ MAXVERSION 64000) (RPAQQ TESTFILEPAGELENGTHS (1 2 5 8 13 16 24 64 78 128)) (RECORD TESTFILEINFO (TESTFILEFULLNAME FILELENGTH CONTENTS TESTFILEORIGNAME)) (RECORD TESTFILEOP (TESTOPERATION (* TESTOPERATION can be ADD DELETE CHANGELENGTH) TESTOPFILENAME TESTOPFILELENGTH TESTOPCONTENTS)) (PUTPROPS \NSFILING.LISTVERSIONS-IN-\NSFILING.GETFILE READVICE ((\NSFILING.GETFILE . \NSFILING.LISTVERSIONS) (BEFORE NIL (SETQ DESIREDPROPS \NSFILING.USEFUL.ATTRIBUTE.TYPES)))) (READVISE \NSFILING.LISTVERSIONS-IN-\NSFILING.GETFILE) (PUTPROPS DSKTEST COPYRIGHT ("Xerox Corporation" 1984)) NIL