(FILECREATED "13-Aug-85 19:26:33" ("compiled on " {ERIS}LIBRARY>DSKTEST.;17) " 5-Aug-85 20:35:10" tcompl'd in "INTERLISP-D 5-Aug-85 ..." dated " 5-Aug-85 20:48:34") (FILECREATED "13-Aug-85 19:26:06" {ERIS}LIBRARY>DSKTEST.;17 35576 changes to: (FNS CHECKLENGTHANDCONTENTS CHOOSERANDOMFILEOPERATION DEFAULT.DSKPAGESOVERHEADFN) (VARS DSKTESTCOMS) previous date: "13-Aug-85 11:29:56" {ERIS}LIBRARY>DSKTEST.;11) 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ظW3HWHkghc iLjIW ZWWg JW W oW JW JIW oW HW oW IW oo L L L hido (765Q BREAK1 751Q CLOSEF 743Q EOFP 736Q SKIPSEPRS 731Q READ 716Q CHECKCONSISTENCY 707Q BLOCK 703Q PRIN1 671Q PRIN1 662Q PRIN1 650Q DOTESTFILEOP 640Q PRINT 631Q PRIN1 617Q CLOSEF 611Q PRINT 602Q OPENFILE 564Q 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) (577Q APPEND 543Q 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) ( 762Q "Before last event on replay file" 723Q " done." 676Q " ....." 655Q "Consistency check after operation " 624Q ".......... " 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) SA @H"JIhK L K L@ oLoK L JI(110Q CHECKLENGTHANDCONTENTS 103Q ERROR 62Q MEMB 55Q U-CASE 46Q U-CASE 41Q U-CASE 6 SORT 3 DIRECTORY) NIL ( 77Q "NEW FILE HAS APPEARED .. " 70Q "FILE MISSING .. ") CHECKLENGTHANDCONTENTS D1 (P 12Q READBYTE P 11Q COMPUTEDBYTE P 10Q SPOT P 6 READBYTE P 5 COMPUTEDBYTE P 3 PERIOD P 2 STARTBYTE P 1 FILELENGTH P 0 STRM I 0 FILEINFO F 13Q LOGFILE F 14Q DONTCLOSEFILESFLG)  @g g @@@IHg o@ JK`IH `H `IH H JH Ko@ kl kJIj`kJML~H ^MK moW W oW MK W oW NW oW W oW H kW W o@ Mk]@ k_l`Ik _` OJ_HO H _OK ooW W oW OK W oW OW oW W oW H kW W o@ OkԱXHI H o@ WH h(737Q CLOSEF 727Q ERROR 716Q EOFP 711Q SETFILEPTR 673Q ERROR 662Q TERPRI 654Q PRIN1 645Q GETFILEPTR 640Q PRIN1 626Q TERPRI 620Q PRIN1 606Q PRIN1 576Q PRIN1 564Q PRIN1 557Q IMOD 550Q PRIN1 536Q TERPRI 530Q PRIN1 514Q IMOD 501Q SETFILEPTR 463Q MINUS 452Q RAND 411Q ERROR 400Q TERPRI 372Q PRIN1 363Q GETFILEPTR 356Q PRIN1 344Q TERPRI 336Q PRIN1 324Q PRIN1 315Q PRIN1 303Q PRIN1 276Q IMOD 270Q PRIN1 256Q TERPRI 250Q PRIN1 234Q IMOD 172Q RAND 163Q ERROR 140Q EQP 135Q DOUBLEWORDIN 122Q WORDIN 110Q WORDIN 60Q ERROR 47Q EQP 44Q GETFILEINFO 15Q GETSTREAM 7 OPENFILE) (460Q MINTESTFILELENGTH 444Q MINTESTFILELENGTH 206Q MINTESTFILELENGTH 125Q SECONDTESTWORD 113Q FIRSTTESTWORD 76Q MINTESTFILELENGTH 41Q LENGTH 12Q INPUT 4 INPUT) ( 723Q "FILE doesn't get EOFP ... " 667Q "FILE HAS WRONG BYTE .. " 633Q "at location " 613Q " from file" 571Q " but read " 543Q "should have " 523Q "FILE HAS WRONG BYTE .. " 405Q "FILE HAS WRONG BYTE .. " 351Q "at location " 331Q " from file" 310Q " but read " 263Q "should have " 243Q "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 HdlK@hA l}@A Hl@hA hA (70Q GENERATEADDFILEOP 62Q GENERATEDELETEALLFILEOP 56Q GENERATEDELETEFILEOP 42Q GENERATECHANGEFILEOP 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) 2dgdg@`dl dgdg@l(57Q SHOULDNT 2 MACHINETYPE) (43Q DORADO 35Q DOLPHIN 22Q \LFrunSize 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(132Q CLOSEF 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 kl 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) [` n@ @ JKd hHd \JJLXHIjl djjdkklmon (127Q RAND 66Q RAND 43Q DSKPAGESOVERHEAD 31Q DSKPAGESOVERHEAD 20Q DSKMINALLOC 14Q DSKFREEPAGES 5 RANDOMELT) (2 TESTFILEPAGELENGTHS) ( 121Q -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 5 FILE P 3 NFILE P 2 NTESTFILES I 0 FILEINFOLST) S@jHIJjkJ [@LhIkԹHX]Kk[jKL\ M(115Q \FZEROP 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!NIL NIL () DOUBLEWORDIN D1 (I 0 FILE) @ @ @ @ NIL NIL () DOUBLEWORDOUT D1 (I 1 NUMBER I 0 FILE) @Al!@Al!@Al!@Al!NIL NIL () WRITETESTFILE D1 (P 2 COMPUTEDBYTE P 0 STRM I 3 PERIOD I 2 STARTBYTE I 1 LENGTH I 0 NAME) d@g Hh`Ao` H` H` HA HB!HC!BAj`kBJIHJC !JkZH H (141Q FULLNAME 135Q CLOSEF 120Q IMOD 61Q DOUBLEWORDOUT 54Q WORDOUT 45Q WORDOUT 35Q ERROR 6 OPENSTREAM) (75Q 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 program is a file system tester. It is suitable for testing any random-access filing device. It is NOT intended for customer release. DSKTEST is the entry function.) (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 TESTFILEPAGELENGTHS) (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