Topspeed_JPI/TS/INCLUDE/DIR.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  DIR.DEF - Modula-2 interface to DIR.H                                   *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

DEFINITION MODULE dir;

(*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
(*# module(implementation=>off, init_code=>off) *)
(*# name(prefix=>c) *)

CONST
  WILDCARDS             = 01H;
  EXTENSION             = 02H;
  FILENAME              = 04H;
  DIRECTORY             = 08H;
  DRIVE                 = 10H;

TYPE
  ffblk                 = RECORD
                            ff_reserved: ARRAY[0..20] OF BYTE;
                            ff_attrib  : BYTE;
                            ff_ftime   : CARDINAL;
                            ff_fdate   : CARDINAL;
                            ff_fsize   : LONGCARD;
                            ff_name    : ARRAY[0..12] OF CHAR;
                          END;

PROCEDURE chdir(path:ARRAY OF CHAR):CARDINAL;
PROCEDURE getcurdir(drive:CARDINAL;buf:ARRAY OF CHAR):CARDINAL;

(* **** getcwd returns a pointer to the path string                      *)
PROCEDURE getcwd(path:ARRAY OF CHAR;n:CARDINAL):ADDRESS;
PROCEDURE _getdrive():CARDINAL;
PROCEDURE mkdir(path:ARRAY OF CHAR):CARDINAL;
PROCEDURE rmdir(path:ARRAY OF CHAR):CARDINAL;

PROCEDURE findfirst(path:ARRAY OF CHAR;VAR FFblk:ffblk;attrib:CARDINAL):CARDINAL;
PROCEDURE findnext(VAR FFblk:ffblk):CARDINAL;
PROCEDURE fnmerge(VAR path:ARRAY OF CHAR;drive,dir,name,ext:ARRAY OF CHAR);
PROCEDURE fnsplit(VAR path,drive,dir,name,ext:ARRAY OF CHAR):CARDINAL;
PROCEDURE _makepath(VAR path,drive,dir,name,ext:ARRAY OF CHAR);
PROCEDURE _splitpath(VAR path,drive,dir,name,ext:ARRAY OF CHAR);
PROCEDURE getdisk():CARDINAL;

(* **** searchpath returns a pointer to the path string                      *)
PROCEDURE searchpath(path:ARRAY OF CHAR):ADDRESS;
PROCEDURE setdisk(drive:ARRAY OF CHAR):CARDINAL;

END dir.