(FILECREATED " 4-Aug-86 09:43:23" ("compiled on " {DSK}DSKTEST.;1) "29-Jul-86 01:13:34" tcompl'd in "Xerox Lisp 29-Jul-86 ..." dated "29-Jul-86 01:25:07") (FILECREATED " 1-Aug-86 11:43:39" {DSK}DSKTEST.;7 45527 changes to: (FNS DSKTEST CHOOSERANDOMFILEOPERATION DOTESTFILEOP RANDOMFILELENGTH TESTFILEPTR TESTEOFOP GENERATEPEEKBINFILEOP TESTPEEKBIN TESTEOFP CHECKCONSISTENCY CHECKLENGTHANDCONTENTS DEFAULT.DSKFREEPAGESFN DEFAULT.DSKMINALLOCFN DEFAULT.DSKPAGESOVERHEADFN DSKMINALLOC DSKPAGESOVERHEAD EXTENDTESTFILE RANDOMFILENAME WRITETESTFILE GENERATEEOFPFILEOP) (VARS DSKTESTCOMS) previous date: "13-Jun-86 08:38:38" {DSK}DSKTEST.;2) DSKTESTA0001 D1 (NAME ERRORSET P 12Q STRM P 11Q FILE P 5 STARTINGTIME P 4 FROMREPLAYFILE P 3 X P 2 FILEOP P 1 FILESINFO P 0 NUMBEROFOPERATIONSDONE F 13Q LOGFILE F 14Q HOST/DIR F 15Q KEEPREPLAYFILEFLG F 16Q REPLAYFILE F 17Q CURRENTFILES? F 20Q RESETVARSLST F 21Q NUMOPERATIONS F 22Q DEFAULTREPLAYFILE F 23Q RESETY) 0 jQW2icg [,gKghhKgg hW c g cWdi WW$cg c $g Wg \XWo hcWdg!oW W W W WJWgBoi 0W $j d O ONh_N&_O10W d O ONh_N&_OoW MW oW IW oW W HkظW"3HW"Hkghc&iLIW ZWWg  JO O oW MW oW W W JW JIW oW HW oW IW oI L L pL hido \(1053Q BREAK1 1037Q CLOSEF 1027Q EOFP 1022Q SKIPSEPRS 1015Q READ 1002Q CHECKCONSISTENCY 773Q BLOCK 767Q PRIN1 755Q PRIN1 746Q PRIN1 734Q DOTESTFILEOP 724Q PRINT 715Q TERPRI 707Q PRIN1 702Q DATE 676Q PRIN1 664Q PRIN1 655Q PRIN1 643Q CLOSEF 635Q PRINT 624Q OPENSTREAM 606Q CHOOSERANDOMFILEOPERATION 533Q TERPRI 525Q PRIN1 513Q BLOCK 507Q CHECKCONSISTENCY 500Q PRIN1 466Q PRIN1 457Q PRIN1 445Q DATE 411Q FILEINFOFROMFILE 375Q SORT 372Q DIRECTORY 330Q FILEINFOFROMFILE 314Q SETFILEPTR 306Q SORT 303Q DIRECTORY 272Q PRIN1 245Q TERPRI 237Q DELETETESTFILES 231Q TERPRI 223Q PRIN1 173Q ERROR 157Q OPENSTREAM 143Q OPENSTREAM 133Q CLOSEF 126Q OPENSTREAM 75Q OPENSTREAM 55Q PUTWINDOWPROP 23Q WFROMDS 20Q GETSTREAM) (621Q APPEND 561Q operations% done. 257Q DELETE 206Q DELETE 154Q INPUT 140Q OUTPUT 123Q OUTPUT 72Q OUTPUT 52Q NILL 47Q PAGEFULLFN 35Q PAGEFULLFN 31Q WINDOWPROP 15Q OUTPUT) ( 1050Q "Before last event on replay file" 1007Q " done." 762Q " ....." 741Q "Consistency check after operation " 671Q " time=" 650Q ".......... start=" 520Q " done." 473Q " ......" 452Q "Beginning initial check at " 266Q "Not implemented to check old file contents yet." 216Q "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) WA @H"JIhK L K L@ oLoK L JI(114Q CHECKLENGTHANDCONTENTS 107Q ERROR 66Q MEMB 61Q U-CASE 52Q U-CASE 45Q U-CASE 40Q BLOCK 6 SORT 3 DIRECTORY) NIL ( 103Q "NEW FILE HAS APPEARED .. " 74Q "FILE MISSING .. ") CHECKLENGTHANDCONTENTS D1 (P 13Q READBYTE P 12Q COMPUTEDBYTE P 11Q SPOT P 7 READBYTE P 6 COMPUTEDBYTE P 3 PERIOD P 2 STARTBYTE P 1 FILELENGTH P 0 STRM I 0 FILEINFO F 14Q LOGFILE F 15Q DONTCLOSEFILESFLG)  @g @@@IHg o@ JK`IH `H `IH H JH Ko@ I`vkl kJIj`kJNdMRld \jLL H _NK noW W oW NK W oW OW oW W oW H kW W o@ Nk^f@ k_l`Ik _` OJ_HO H _OK ooW W oW OK W oW OW oW W oW H kW W o@ OkԱTHI H o@ WH h(777Q CLOSEF 767Q ERROR 756Q EOFP 751Q SETFILEPTR 733Q ERROR 722Q TERPRI 714Q PRIN1 705Q GETFILEPTR 700Q PRIN1 666Q TERPRI 660Q PRIN1 646Q PRIN1 636Q PRIN1 624Q PRIN1 617Q IMOD 610Q PRIN1 576Q TERPRI 570Q PRIN1 554Q IMOD 541Q SETFILEPTR 523Q MINUS 512Q RAND 500Q BLOCK 450Q ERROR 437Q TERPRI 431Q PRIN1 422Q GETFILEPTR 415Q PRIN1 403Q TERPRI 375Q PRIN1 363Q PRIN1 353Q PRIN1 341Q PRIN1 334Q IMOD 326Q PRIN1 314Q TERPRI 306Q PRIN1 272Q IMOD 260Q BLOCK 254Q \FZEROP 240Q IMOD 175Q RAND 155Q ERROR 132Q EQP 127Q DOUBLEWORDIN 114Q WORDIN 102Q WORDIN 52Q ERROR 41Q EQP 36Q GETFILEINFO 7 OPENSTREAM) (520Q MINTESTFILELENGTH 504Q MINTESTFILELENGTH 211Q MINTESTFILELENGTH 162Q MINTESTFILELENGTH 117Q SECONDTESTWORD 105Q FIRSTTESTWORD 70Q MINTESTFILELENGTH 33Q LENGTH 4 INPUT) ( 763Q "FILE doesn't get EOFP ... " 727Q "FILE HAS WRONG BYTE .. " 673Q "at location " 653Q " from file" 631Q " but read " 603Q "should have " 563Q "FILE HAS WRONG BYTE .. " 444Q "FILE HAS WRONG BYTE .. " 410Q "at location " 370Q " from file" 346Q " but read " 321Q "should have " 301Q "FILE HAS WRONG BYTE .. " 151Q "FIRST 10 bytes of file is wrong .. " 46Q "FILE has wrong length ... ") CHOOSERANDOMFILEOPERATION D1 (P 0 RANDNUM I 1 HOST/DIR I 0 FILESINFO) T@Lkn, HdlK@hA l}@A Hdl@hA l@A Hn'@A hA (121Q GENERATEADDFILEOP 113Q GENERATEDELETEALLFILEOP 107Q GENERATEPEEKBINFILEOP 73Q GENERATEEOFPFILEOP 61Q GENERATEDELETEFILEOP 43Q GENERATECHANGEFILEOP 31Q GENERATEADDFILEOP 11Q RAND) NIL () DEFAULT.DSKFREEPAGESFN D1 (I 0 HOST/DIR F 0 HOST) b@g dg/dgdgP dgdg@ dgg@g km n(133Q VPCDISK.FREEPAGES 130Q SUBATOM 122Q FILENAMEFIELD 104Q FLOPPY.FREE.PAGES 71Q SHOULDNT 64Q DISKFREEPAGES 42Q DISKFREEPAGES 21Q MACHINETYPE 6 FILENAMEFIELD) (117Q DEVICE 110Q PCDISK 76Q FLOPPY 55Q DOVE 47Q DANDELION 33Q DORADO 25Q DOLPHIN 12Q DSK 3 HOST) () DEFAULT.DSKMINALLOCFN D1 (I 0 HOST/DIR) ;@g dg(dgdgldgdgkgk(62Q SHOULDNT 21Q MACHINETYPE 6 FILENAMEFIELD) (66Q FLOPPY 52Q DORADO 44Q DOLPHIN 33Q DOVE 25Q DANDELION 12Q DSK 3 HOST) () DEFAULT.DSKPAGESOVERHEADFN D1 (I 1 NEWFILELENGTH I 0 HOST/DIR F 0 \LFrunSize) ?@g dg'dgdgAPdl dgdgAl(74Q SHOULDNT 21Q MACHINETYPE 6 FILENAMEFIELD) (60Q DORADO 52Q DOLPHIN 33Q DOVE 25Q DANDELION 12Q DSK 3 HOST) () DOTESTFILEOP D1 (P 21Q CHANGEFILEINFO P 20Q TESTFILE 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_O oO N^dgq@@B SA_h_!oO h_OOiOOO_OOOOO OO OOAdgK@@B SA_h_!oO h_OOiOOO OOAg:@1A_$h_"!oO" h_&O O&iO$O Ao@ (670Q ERROR 656Q TESTPEEKBIN 623Q ERROR 552Q TESTEOFP 515Q ERROR 466Q DSKFREEPAGES 431Q TRUNCATETESTFILE 421Q BLOCK 415Q EXTENDTESTFILE 327Q ERROR 300Q DSKFREEPAGES 246Q ERROR 234Q DELFILE 225Q BLOCK 173Q REMOVE 165Q ERROR 154Q BLOCK 150Q DELFILE 124Q SORTBYCAR 101Q HELP 67Q ERROR 56Q BLOCK 51Q WRITETESTFILE 37Q DSKFREEPAGES) (565Q PEEKBIN 446Q EOFP 260Q CHANGELENGTH 200Q DELETEALL 131Q DELETE 5 ADD) ( 664Q "unknown file operation" 616Q "changing a file that is not on file information list." 510Q "changing a file that is not on file information list." 322Q "changing a file that is not on file information list." 241Q "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 HOST/DIR F 0 DSKMINALLOCFN) @kPNIL NIL () DSKPAGESOVERHEAD D1 (I 1 NEWFILELENGTH I 0 HOST/DIR) @Al`NIL (6 DSKPAGESOVERHEADFN) () EXTENDTESTFILE D1 (P 3 BYTE P 0 STRM I 4 NEWLENGTH I 3 OLDLENGTH I 2 PERIOD I 1 STARTBYTE I 0 FILENAME F 4 DONTCLOSEFILESFLG) v@ @ @g H o@ HD Hm ADj`kACj`KJ'HKB !Kld YjII Kk[TH h(162Q CLOSEF 144Q BLOCK 140Q \FZEROP 124Q IMOD 114Q 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") GENERATEEOFPFILEOP 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 EOFP) () GENERATEPEEKBINFILEOP D1 (P 0 FILETOCHANGE I 1 HOST/DIR I 0 FILEINFOLST F 1 LENGTH) (@ H@iA Q@iA gHhddh(27Q GENERATEDELETEFILEOP 16Q GENERATEADDFILEOP 3 RANDOMTESTFILE) (33Q PEEKBIN) () GENERATEDELETEALLFILEOP D1 NIL ghdddhNIL (2 DELETEALL) () RANDOMELT D1 (I 0 LST) @k@ (13Q NTH 10Q RAND 5 LENGTH) NIL () RANDOMFILELENGTH D1 (P 3 FILEOVERHEAD P 2 MINALLOC P 1 DSKPAGES P 0 NPAGES I 0 HOST/DIR) d` @ @ #IJ@J hH@H [IIKٸ`Hnjl djjdkklmon ؼdLL(132Q RAND 71Q RAND 42Q DSKPAGESOVERHEAD 27Q DSKPAGESOVERHEAD 15Q DSKMINALLOC 11Q DSKFREEPAGES 5 RANDOMELT) (56Q MINTESTFILELENGTH 2 TESTFILEPAGELENGTHS) ( 124Q -777Q) RANDOMFILENAME D1 (I 0 HOST/DIR F 0 MINFILENAMELENGTH F 1 MAXFILENAMELENGTH F 2 MAXVERSION F 3 MINFILEEXTENSIONLENGTH F 4 MAXFILEEXTENSIONLENGTH) ^@dg ggkl gjl -gPQ gST gjk jkR  (133Q U-CASE 130Q PACK* 125Q PACKFILENAME 121Q RAND 110Q RAND 100Q RANDOMSTR 75Q RAND 65Q RANDOMSTR 62Q RAND 50Q PACKFILENAME 45Q RANDOMSTR 42Q RAND 31Q RANDOMSTR 26Q RAND 7 FILENAMEFIELD) (103Q VERSION 70Q EXTENSION 55Q NAME 34Q EXTENSION 20Q NAME 12Q PCDISK 4 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 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) () TESTEOFP D1 (P 2 I P 0 STRM I 1 NEWLENGTH I 0 FILENAME) @ @ @g H o@ HA HA @gA H @g A o@Ah @g XAkjJIXH o HAgj HAg H @g XdA @gA H @g A o@Ah hH oJ H JkZ(305Q ERROR 274Q EOFP 266Q ERROR 251Q EQP 245Q GETFILEINFO 236Q CLOSEF 232Q SETFILEINFO 222Q TESTFILEPTR 214Q OPENSTREAM 205Q CLOSEF 201Q TESTEOFOP 171Q TESTEOFOP 156Q ERROR 146Q EOFP 125Q OPENSTREAM 115Q ERROR 100Q EQP 74Q GETFILEINFO 65Q CLOSEF 61Q SETFILEINFO 51Q SETFILEPTR 44Q WRITETESTFILELENGTH 36Q ERROR 20Q OPENSTREAM 10Q CLOSEF 3 OPENP) (242Q LENGTH 226Q LENGTH 211Q BOTH 176Q NILL 165Q ZERO 122Q INPUT 71Q LENGTH 55Q LENGTH 15Q BOTH) ( 301Q "EARLY EOF" 256Q "changing file to NEWLENGTH didn't take" 153Q "EOFP not true at end of file" 105Q "changing file to NEWLENGTH didn't take" 32Q "file that it supposed to exist won't open for end of file tests.") TESTEOFOP D1 (P 1 I I 3 EOFVALUE I 2 FN I 1 FILESIZE I 0 STREAM) zli li oi Bi i @j @B"AkjIH+@ o C@ oB @ o h@ oI @ IkY(156Q ERROR 145Q EOFP 137Q ERROR 127Q EOFP 122Q ERROR 104Q ERROR 74Q EOFP 45Q SETFILEPTR 40Q TERPRI 33Q PRIN1 25Q PRIN1 14Q SPACES 5 SPACES) (51Q STREAM) ( 152Q "Early EOF at" 134Q "EOFP is NIL after a BIN at EOF" 116Q "End-of-stream value not returned right from function " 101Q "EOFP NIL at EOF." 21Q "Testing with ENDOFSTREAMOP set to ") TESTFILEPTR D1 (P 2 I P 0 FILEPTR I 1 FILESIZE I 0 STRM) Klhi oi i l hi oi Ai i o dl hi oi Ai i @gA @A @ oAi l hi oi Hi i @AH AH@ o @l!AHk@ o @A l hi oi i AHkAJI@ jo JkZl hi oi i @ o @ lo @ o h(475Q HELP 465Q EOFP 460Q HELP 442Q HELP 432Q EOFP 425Q TERPRI 420Q PRIN1 407Q TAB 370Q HELP 335Q TERPRI 330Q PRIN1 317Q TAB 307Q SETFILEPTR 301Q HELP 270Q GETFILEPTR 251Q HELP 240Q GETFILEPTR 230Q SETFILEPTR 220Q TERPRI 213Q PRIN1 205Q PRIN1 174Q TAB 164Q HELP 152Q EOFP 145Q SETFILEPTR 137Q SETFILEINFO 126Q TERPRI 121Q PRIN1 113Q PRIN1 102Q TAB 57Q TERPRI 52Q PRIN1 44Q PRIN1 33Q TAB 24Q TERPRI 17Q PRIN1 6 TAB) (133Q LENGTH) ( 472Q "EOF NOT SET AFTER LAST BIN" 455Q "WRONG VALUE AT LAST BOUT POSITION" 437Q "EARLY EOF BEFORE LAST BIN" 414Q "Testing new EOF and last byte written" 365Q "NEW ALLOCATED AREA NOT ZEROED" 324Q "Testing new allocated area = zero" 276Q "FILEPOS NOT CORRECT AFTER BOUT" 246Q "FILEPOS NOT CORRECT AFTER SETTING FILEPOS" 201Q "FILESIZE extended by " 157Q "EOFP not set at " 107Q "Setting EOF and FILEPTR to " 63Q (20000Q 1000Q 10000Q 17777Q 1001Q 10001Q 20001Q 777Q 7777Q) 40Q "FILESIZE = " 13Q "Testing FILEPTR") TESTPEEKBINA0001A0003 D1 (NAME ERRORSET F 0 STRM) P h(3 \PEEKBIN) NIL () TESTPEEKBINA0001A0004 D1 (NAME ERRORSET F 0 STRM) Pi h(4 \PEEKBIN) NIL () TESTPEEKBINA0001A0005 D1 (NAME ERRORSET F 0 STRM) P hNIL NIL () TESTPEEKBINA0001 D1 (NAME ERRORSET L (0 NIL) P 16Q PTR3 P 15Q PTR2 P 14Q C.BIN P 13Q C.PEEK.T P 12Q C.PEEK.NIL P 11Q PTR P 5 X F 17Q STRMLEN F 20Q STRM F 21Q DONT.TRY.HARD.FLG F 22Q RESETVARSLST F 23Q RESETY) gW hhhW$c$W cjWdkdjjWkkl ll WhWm2IdHJJWj2IdHUJWk2IdH\Jlk2MLdN aOphc&ijIKLh[InYL&KLh[InYL&KLh[InYL&jW _OOh_Mk]O&__W O o _W _W"OOo o _W _W"OOo o _WO0W"SOOoOo W"9W O/o%OOOOo W Oko O_(664Q ERROR 647Q GETFILEPTR 641Q ERROR 603Q GETFILEPTR 571Q ERROR 526Q TESTPEEKBINA0001A0005 516Q ERROR 473Q GETFILEPTR 463Q TESTPEEKBINA0001A0004 453Q ERROR 430Q GETFILEPTR 420Q TESTPEEKBINA0001A0003 410Q SETFILEPTR 341Q RAND 207Q \APPEND2 204Q \APPEND2 201Q \APPEND2 176Q \APPEND2 66Q RAND 57Q RAND 26Q GETEOFPTR) (2 CLOSEF) ( 661Q "BIN not moving ptr correctly!" 636Q "\PEEKBIN and BIN not returning same value!" 614Q "BIN moving fileptr at eos" 566Q "\PEEKBIN or BIN not working correctly at EOS" 555Q (NIL) 523Q (TESTPEEKBINA0001A0005) 513Q "\PEEKBIN moving file ptr!" 460Q (TESTPEEKBINA0001A0004) 450Q "\PEEKBIN moving file ptr!" 415Q (TESTPEEKBINA0001A0003)) TESTPEEKBIN D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 STRMLEN P 0 STRM I 1 DONT.TRY.HARD.FLG I 0 FILE F 5 LISPXHIST F 6 RESETVARSLST) 0@gg U!Vog hg\ Lh(54Q ERROR! 45Q RESETRESTORE 33Q TESTPEEKBINA0001 11Q OPENSTREAM) (41Q ERROR 30Q INTERNAL 6 OLD 3 INPUT) ( 25Q (TESTPEEKBINA0001)) 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 3 COMPUTEDBYTE P 0 STRM I 3 PERIOD I 2 STARTBYTE I 1 LENGTH I 0 NAME) |@g Hh`Ao` H` H` HA HB!HC!BAj`kBKJ'HKC !Kld YjII Kk[H H (171Q FULLNAME 165Q CLOSEF 151Q BLOCK 145Q \FZEROP 131Q IMOD 121Q 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 GENERATEEOFPFILEOP GENERATEPEEKBINFILEOP GENERATEDELETEALLFILEOP RANDOMELT RANDOMFILELENGTH RANDOMFILENAME RANDOMSTR RANDOMTESTFILE SORTBYCAR TESTFILEP TESTEOFP TESTEOFOP TESTFILEPTR TESTPEEKBIN 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 1986)) NIL