| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- (* 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.
|
