| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * DIR.DEF - Modula-2 interface to DIR.H *
- 5 * *
- 6 * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 DEFINITION MODULE dir;
- 12
- 13 (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
- 14 (*# module(implementation=>off, init_code=>off) *)
- 15 (*# name(prefix=>c) *)
- 16
- 17 CONST
- 18 WILDCARDS = 01H;
- 19 EXTENSION = 02H;
- 20 FILENAME = 04H;
- 21 DIRECTORY = 08H;
- 22 DRIVE = 10H;
- 23
- 24 TYPE
- 25 ffblk = RECORD
- 26 ff_reserved: ARRAY[0..20] OF BYTE;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 27 ff_attrib : BYTE;
- ***** ^ undeclared identifier
- 28 ff_ftime : CARDINAL;
- 29 ff_fdate : CARDINAL;
- 30 ff_fsize : LONGCARD;
- ***** ^ undeclared identifier
- 31 ff_name : ARRAY[0..12] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 32 END;
- ***** ^ not supported yet
- 33
- 34 PROCEDURE chdir(path:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 35 PROCEDURE getcurdir(drive:CARDINAL;buf:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 36
- 37 (* **** getcwd returns a pointer to the path string *)
- 38 PROCEDURE getcwd(path:ARRAY OF CHAR;n:CARDINAL):ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 39 PROCEDURE _getdrive():CARDINAL;
- 40 PROCEDURE mkdir(path:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 41 PROCEDURE rmdir(path:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 42
- 43 PROCEDURE findfirst(path:ARRAY OF CHAR;VAR FFblk:ffblk;attrib:CARDINAL):CARDINAL;
- ***** ^ not supported yet
- 44 PROCEDURE findnext(VAR FFblk:ffblk):CARDINAL;
- 45 PROCEDURE fnmerge(VAR path:ARRAY OF CHAR;drive,dir,name,ext:ARRAY OF CHAR);
- ***** ^ not supported yet
- ***** ^ not supported yet
- 46 PROCEDURE fnsplit(VAR path,drive,dir,name,ext:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 47 PROCEDURE _makepath(VAR path,drive,dir,name,ext:ARRAY OF CHAR);
- ***** ^ not supported yet
- 48 PROCEDURE _splitpath(VAR path,drive,dir,name,ext:ARRAY OF CHAR);
- ***** ^ not supported yet
- 49 PROCEDURE getdisk():CARDINAL;
- 50
- 51 (* **** searchpath returns a pointer to the path string *)
- 52 PROCEDURE searchpath(path:ARRAY OF CHAR):ADDRESS;
- ***** ^ not supported yet
- ***** ^ undeclared identifier
- 53 PROCEDURE setdisk(drive:ARRAY OF CHAR):CARDINAL;
- ***** ^ not supported yet
- 54
- 55 END dir.
- ***** ^ not supported yet
- 23 errors
|
