Listing: 1 MODULE SeqTest; 2 (* Sequential Benchmark *) 3 IMPORT InitCompilerMods; 4 5 FROM ModBase3 IMPORT DBFile,InitDBF,OpenDBF,DefaultFixUp; 6 FROM DBIndxes IMPORT DBIndex, InitIndex, CloseIndex, FindPositionCh, 7 NextRecord, PrevRecord,GoTop,GoBottom; 8 9 FROM Timing IMPORT BeginTimer, ShowUsage; 10 11 IMPORT StringIO; 12 IMPORT StrConv; 13 14 CONST 15 KeyLen = 30; 16 17 TYPE 18 KeyStr = ARRAY [0..KeyLen-1] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 19 20 VAR 21 DBF : DBFile; 22 NDX : DBIndex; 23 DataRef : LONGINT; 24 Found : BOOLEAN; 25 counter :CARDINAL; 26 string :ARRAY[0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 27 28 BEGIN 29 BeginTimer(); ***** ^ not supported yet ***** ^ not supported yet 30 counter:=1; 31 (* start timer counting *) 32 InitDBF('Modbase.DBF',DBF,0,FALSE,TRUE,FALSE,DefaultFixUp); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 33 IF OpenDBF(DBF) THEN END; ***** ^ not supported yet ***** ^ not supported yet 34 InitIndex("ModBase.NDX", NDX,DBF, 30,FALSE,TRUE,TRUE); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 GoTop(NDX); ***** ^ not supported yet ***** ^ not supported yet 36 (* FindPositionCh(NDX, "", Found); *) (* prepare for sequential access *) 37 WHILE NextRecord(NDX, DataRef) DO (* step forward through index *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 INC(counter); ***** ^ undeclared identifier ***** ^ not supported yet 39 END (* while *); 40 StrConv.CardinalToStr(counter,0,string); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 41 StringIO.WriteStr(StringIO.outp,string); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 42 StringIO.WriteEol(StringIO.outp,' Keys found'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 43 counter:=1; 44 (* should change to gotop, gobottom *) 45 (* FindPositionCh(NDX, 377C, Found);*) 46 GoBottom(NDX); (* prepare for sequential access *) ***** ^ not supported yet ***** ^ not supported yet 47 WHILE PrevRecord(NDX, DataRef) DO (* step backward through index *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 48 INC(counter) ; ***** ^ undeclared identifier ***** ^ not supported yet 49 END (* while *); 50 StrConv.CardinalToStr(counter,0,string); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 51 StringIO.WriteStr(StringIO.outp,string); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 52 StringIO.WriteEol(StringIO.outp,' Keys found'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 53 CloseIndex(NDX); ***** ^ not supported yet ***** ^ not supported yet 54 ShowUsage('Seqential test'); (* display elasped time *) ***** ^ not supported yet ***** ^ not supported yet 55 END SeqTest. 61 errors