| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677 |
- Listing:
- 1 MODULE MakeTestDBF;
- 2 (* this program will create the file for Test *)
- 3 FROM LowLevel IMPORT Fill;
- 4 FROM ModBase3 IMPORT InitDBF,OpenDBF,CloseDBF,ReadDBRec,
- 5 GetField,DBFieldDescriptor,DBFile;
- 6
- 7 FROM DBCreate IMPORT BuildDBF;
- 8 FROM SYSTEM IMPORT SIZE,ADR;
- 9 FROM Storage IMPORT ALLOCATE,DEALLOCATE;
- 10
- 11 VAR
- 12 TestDBF : DBFile;
- 13
- 14
- 15 PROCEDURE MakeDatabase();
- 16 VAR
- 17 Error : CARDINAL;
- 18 Desc : POINTER TO ARRAY [1..200] OF DBFieldDescriptor;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 19 BEGIN
- 20 ALLOCATE(Desc, 2 * SIZE(DBFieldDescriptor));
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 21 Fill(Desc, 2 * SIZE(DBFieldDescriptor),0);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 22 MakeDescriptor( Desc^[ 1], 'TEST', 30, 0, 'C');
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 23 MakeDescriptor( Desc^[ 2], 'TEMP', 20, 0, 'C');
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 24 InitDBF('Test.DBF',TestDBF,0,FALSE,TRUE,FALSE,DefaultFixUp);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 25 (* It would be a good to test error.*)
- 26 Error:=BuildDBF(Desc^, 2,TestDBF);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 27 CloseDBF(TestDBF);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 28 DEALLOCATE(Desc, 2 * SIZE(DBFieldDescriptor));
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 29 END MakeDatabase;
- ***** ^ not supported yet
- 30
- 31 BEGIN
- 32 MakeDatabase();
- ***** ^ not supported yet
- ***** ^ not supported yet
- 33
- 34 END MakeTestDBF.
- 37 errors
|
