(FILECREATED "16-Feb-85 20:36:02" ("compiled on " {PHYLUM}FASTLABEL>DSKTEST.;2) "20-Dec-84 12:07:22" tcompl'd in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "16-Feb-85 20:35:08" {PHYLUM}FASTLABEL>DSKTEST.;2 34681 changes to: (FNS RANDOMFILENAME) previous date: "15-Jan-85 20:35:24" {PHYLUM}FASTLABEL>DSKTEST.;1) DSKTESTA0001 D1 (NAME ERRORSET 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) (@ bS!Tog hgZ JI(43Q ERROR! 36Q RESETRESTORE 24Q DSKTESTA0001 3 DIRECTORYNAME) (32Q ERROR 21Q INTERNAL) ( 16Q (DSKTESTA0001)) DELETETESTFILES D1 (P 1 FILE I 1 CHECKENTIRECONTENTSFLG I 0 HOST/DIR) 0@ HhYAh I I I i HX(50Q PRINT 44Q DELFILE 37Q CLOSEF 32Q OPENP 24Q TESTFILEP 3 DIRECTORY) NIL () 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 6 READBYTE P 5 COMPUTEDBYTE P 3 PERIOD P 2 STARTBYTE P 1 FILELENGTH P 0 STRM I 0 FILEINFO F 7 LOGFILE F 10Q DONTCLOSEFILESFLG) @g g @@@IHg o@ JK`IH `H `IH H JH Ko@ JIj`kJML~H ^MK moW W oW MK W oW NW oW W oW H kW W o@ Mk]H o@ WH h(432Q CLOSEF 422Q ERROR 411Q EOFP 375Q ERROR 364Q TERPRI 356Q PRIN1 347Q GETFILEPTR 342Q PRIN1 330Q TERPRI 322Q PRIN1 310Q PRIN1 301Q PRIN1 267Q PRIN1 262Q IMOD 254Q PRIN1 242Q TERPRI 234Q PRIN1 220Q IMOD 163Q ERROR 140Q EQP 135Q DOUBLEWORDIN 122Q WORDIN 110Q WORDIN 60Q ERROR 47Q EQP 44Q GETFILEINFO 15Q GETSTREAM 7 OPENFILE) (172Q MINTESTFILELENGTH 125Q SECONDTESTWORD 113Q FIRSTTESTWORD 76Q MINTESTFILELENGTH 41Q LENGTH 12Q INPUT 4 INPUT) ( 416Q "FILE doesn't get EOFP ... " 371Q "FILE HAS WRONG BYTE .. " 335Q "at location" 315Q "from file" 274Q " but read " 247Q "should have " 227Q "FILE HAS WRONG BYTE .. " 157Q "FIRST 10 bytes of file is wrong .. " 54Q "FILE has wrong length ... ") CHOOSERANDOMFILEOPERATION D1 (P 0 RANDNUM I 1 HOST/DIR I 0 FILESINFO) ;@3kl HdlB@hA l@hA Hl@A hA (70Q GENERATEADDFILEOP 62Q GENERATEDELETEALLFILEOP 56Q GENERATECHANGEFILEOP 43Q GENERATEDELETEFILEOP 30Q GENERATEADDFILEOP 10Q RAND) NIL () DEFAULT.DSKFREEPAGESFN D1 (P 0 HOST I 0 HOST/DIR) B@g Hg.dgdgH dgdg@ n(73Q SHOULDNT 66Q DISKFREEPAGES 44Q DISKFREEPAGES 23Q MACHINETYPE 6 FILENAMEFIELD) (57Q DOVE 51Q DANDELION 35Q DORADO 27Q DOLPHIN 15Q DSK 3 HOST) () DEFAULT.DSKMINALLOCFN D1 (I 0 NEWFILELENGTH) &dgdgldgdgk(43Q SHOULDNT 2 MACHINETYPE) (33Q DORADO 25Q DOLPHIN 14Q DOVE 6 DANDELION) () DEFAULT.DSKPAGESOVERHEADFN D1 (I 0 NEWFILELENGTH) >dgdg@l?l@l@ll@@l@dgdg@l(73Q SHOULDNT 2 MACHINETYPE) (57Q DORADO 51Q DOLPHIN 14Q DOVE 6 DANDELION) () DOTESTFILEOP D1 (P 15Q XFILEINFO P 14Q CHANGEFILEINFO P 13Q NOWLENGTH P 12Q OLDDISKFREEPAGES P 11Q NEWLENGTH P 10Q TESTFILE P 7 F P 5 DELFILEINFO P 4 OLDDISKFREEPAGES P 3 PERIOD P 2 STARTBYTE P 1 BYTELEN P 0 FULLFILE I 2 HOST/DIR I 1 FILEINFOLST I 0 FILEOP) $@dgO@@@@B HIJK Xo@ HdiHIJK@hA dg"@M oM MA dg$ANh_ oO N^gp@@B SA_h_!oO h_OOiOOO_OOOOO OO OOAo@ (441Q ERROR 420Q TRUNCATETESTFILE 410Q BLOCK 404Q EXTENDTESTFILE 316Q ERROR 267Q DSKFREEPAGES 237Q ERROR 225Q DELFILE 173Q REMOVE 165Q ERROR 154Q BLOCK 150Q DELFILE 124Q SORTBYCAR 101Q HELP 67Q ERROR 56Q BLOCK 51Q WRITETESTFILE 37Q DSKFREEPAGES) (250Q CHANGELENGTH 200Q DELETEALL 131Q DELETE 5 ADD) ( 435Q "unknown file operation" 311Q "changing a file that is not on file information list." 232Q "file won't delete" 161Q "file won't delete" 63Q "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) () EXTENDTESTFILE D1 (P 2 BYTE P 0 STRM I 4 NEWLENGTH I 3 OLDLENGTH I 2 PERIOD I 1 STARTBYTE I 0 FILENAME F 3 DONTCLOSEFILESFLG) `@ @ @g H o@ HD Hm ADj`kACj`JIHJB JkZSH h(134Q CLOSEF 116Q BOUT 113Q IMOD 52Q SETFILEPTR 44Q WRITETESTFILELENGTH 36Q ERROR 20Q OPENSTREAM 10Q CLOSEF 3 OPENP) (73Q MINTESTFILELENGTH 60Q MINTESTFILELENGTH 15Q BOTH) ( 32Q "file that it supposed to exist won't open for extending.") FILEINFOFROMFILE D1 (P 0 CONTENTS I 0 FILE) -@di o @hi @dg HHhh(37Q GETFILEINFO 24Q TESTFILEP 15Q HELP) (34Q LENGTH) ( 12Q "FILE IS T!!?") GENERATEADDFILEOP D1 (P 1 PERIOD P 0 LENGTH I 2 HOST/DIR I 1 STOPIFCANTFLG I 0 FILEINFOLST) 7B jl HgB HjI IhAo @iB (64Q GENERATEDELETEFILEOP 55Q ERROR 34Q RAND 26Q RANDOMFILENAME 11Q RAND 3 RANDOMFILELENGTH) (22Q ADD) ( 52Q "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 gHIhdh(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) )@ HgHhddhAo @iB (46Q GENERATEADDFILEOP 37Q ERROR 3 RANDOMTESTFILE) (13Q DELETE) ( 34Q "No file to delete") GENERATEDELETEALLFILEOP D1 NIL ghdddhNIL (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) 4@gPQ gST gjk jkR  (61Q U-CASE 56Q PACK* 53Q PACKFILENAME 47Q RAND 36Q RAND 26Q RANDOMSTR 23Q RAND 13Q RANDOMSTR 10Q RAND) (31Q VERSION 16Q EXTENSION 3 NAME) () 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 5 COMPUTEDBYTE P 3 PERIOD P 2 STARTBYTE P 1 FILELENGTH P 0 STRM I 2 RETURNCONTENTSFLG I 1 HINTONLYFLG I 0 FILE) }@g 1Hg Y`Ih]H `SH `IIH ?ABH H 4@1H H JIj`JMLH MK Mk]BJK@H (171Q CLOSEF 144Q IMOD 66Q EQP 63Q DOUBLEWORDIN 50Q WORDIN 36Q WORDIN 20Q GETFILEINFO 6 OPENSTREAM) (122Q MINTESTFILELENGTH 53Q SECONDTESTWORD 41Q FIRSTTESTWORD 24Q MINTESTFILELENGTH 15Q LENGTH 3 INPUT) () TRUNCATETESTFILE D1 (P 0 STRM I 1 NEWLENGTH I 0 FILENAME) Q@ @ @g H o@ HA HA @gA H @g A o@Ah h(115Q ERROR 100Q EQP 74Q GETFILEINFO 65Q CLOSEF 61Q SETFILEINFO 51Q SETFILEPTR 44Q WRITETESTFILELENGTH 36Q ERROR 20Q OPENSTREAM 10Q CLOSEF 3 OPENP) (71Q LENGTH 55Q LENGTH 15Q BOTH) ( 105Q "truncating file to NEWLENGTH didn't take" 32Q "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 () DOUBLEWORDIN D1 (I 0 FILE) @ @ @ @ NIL NIL () DOUBLEWORDOUT D1 (I 1 NUMBER I 0 FILE) (@Al @Al @Al @Al (45Q \BOUT 35Q \BOUT 24Q \BOUT 12Q \BOUT) NIL () WRITETESTFILE D1 (P 2 COMPUTEDBYTE P 0 STRM I 3 PERIOD I 2 STARTBYTE I 1 LENGTH I 0 NAME) j@g Hh`Ao` H` H` HA HB HC BAj`kBJIHJC JkZH H (147Q FULLNAME 143Q CLOSEF 127Q BOUT 124Q IMOD 73Q BOUT 66Q BOUT 61Q DOUBLEWORDOUT 54Q WORDOUT 45Q WORDOUT 35Q ERROR 6 OPENSTREAM) (101Q MINTESTFILELENGTH 51Q SECONDTESTWORD 42Q FIRSTTESTWORD 32Q MINTESTFILELENGTH 20Q MINTESTFILELENGTH 3 OUTPUT) ( 27Q "test files must have a minimum length ") WRITETESTFILELENGTH D1 (I 1 NEWLENGTH I 0 STRM) @l @A (12Q DOUBLEWORDOUT 5 SETFILEPTR) 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 DSKTEST DELETETESTFILES) (FNS CHECKCONSISTENCY CHECKLENGTHANDCONTENTS CHOOSERANDOMFILEOPERATION DEFAULT.DSKFREEPAGESFN DEFAULT.DSKMINALLOCFN DEFAULT.DSKPAGESOVERHEADFN DOTESTFILEOP DSKFREEPAGES DSKMINALLOC DSKPAGESOVERHEAD EXTENDTESTFILE FILEINFOFROMFILE GENERATEADDFILEOP GENERATECHANGEFILEOP GENERATEDELETEFILEOP GENERATEDELETEALLFILEOP RANDOMELT RANDOMFILELENGTH RANDOMFILENAME RANDOMSTR RANDOMTESTFILE SORTBYCAR TESTFILEP TRUNCATETESTFILE WORDIN WORDOUT DOUBLEWORDIN DOUBLEWORDOUT WRITETESTFILE WRITETESTFILELENGTH) (VARS (DSKFREEPAGESFN (FUNCTION DEFAULT.DSKFREEPAGESFN)) (DSKPAGESOVERHEADFN (FUNCTION DEFAULT.DSKPAGESOVERHEADFN)) (DSKMINALLOCFN ( FUNCTION DEFAULT.DSKMINALLOCFN))) (VARS (MINTESTFILELENGTH 10) (FIRSTTESTWORD 48094) (SECONDTESTWORD 56187) (NUMBEROFTESTBYTES 5) (EXHAUSTIVETESTFLG) (DEFAULTREPLAYFILE (QUOTE {PHYLUM}DLIONFS>REPLAY.LOG)) (DONTCLOSEFILESFLG) (LEGALFILENAMECHARS (QUOTE (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))) (LEGALFIRSTFILENAMECHARS (QUOTE (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)))) (VARS (MINFILENAMELENGTH 1) (MAXFILENAMELENGTH 15) ( MINFILEEXTENSIONLENGTH 0) (MAXFILEEXTENSIONLENGTH 6) (MAXVERSION 64000) TESTFILEPAGELENGTHS) ( GLOBALVARS FIRSTTESTWORD SECONDTESTWORD MINTESTFILELENGTH NUMBEROFTESTBYTES EXHAUSTIVETESTFLG DSKFREEPAGESFN DSKPAGESOVERHEADFN) (RECORDS TESTFILEINFO TESTFILEOP))) (RPAQ DSKFREEPAGESFN (FUNCTION DEFAULT.DSKFREEPAGESFN)) (RPAQ DSKPAGESOVERHEADFN (FUNCTION DEFAULT.DSKPAGESOVERHEADFN)) (RPAQ DSKMINALLOCFN (FUNCTION DEFAULT.DSKMINALLOCFN)) (RPAQQ MINTESTFILELENGTH 10) (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 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 STARTBYTE PERIOD TESTFILEORIGNAME)) (RECORD TESTFILEOP (TESTOPERATION (* TESTOPERATION can be ADD DELETE CHANGELENGTH DELETEALL) TESTOPFILENAME TESTOPFILELENGTH STARTBYTE PERIOD)) (PUTPROPS DSKTEST COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL