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

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


DEFINITION MODULE stat;

CONST
    S_IFMT   = 0170000;  (* file type mask *)
    S_IFDIR  = 4000H;    (* directory *)
    S_IFCHR  = 2000H;    (* character device *)
    S_IFREG  = 8000H;    (* regular file *)
    S_IREAD  = 100H;     (* owner may read *)
    S_IWRITE = 80H;      (* owner may write *)
    S_IEXEC  = 40H;      (* owner may execute <directory search> *)

TYPE
    stat_t = RECORD
             st_dev,
             st_ino,
             st_mode,
             st_nlink: SHORTCARD;
             st_uid,
             st_gid: CARDINAL;
             st_rdev: SHORTCARD;
             st_size,
             st_atime,
             st_mtime,
             st_ctime: LONGCARD;
           END;

PROCEDURE fstat(_handle: CARDINAL; VAR _statbuf: stat_t): INTEGER;
PROCEDURE stat(_path: ARRAY OF CHAR; VAR _statbuf: stat_t): INTEGER;

END stat.