Topspeed_JPI/TS-V3/INCLUDE/STAT.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  STAT.DEF - Modula-2 interface to STAT.H                                 *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE stat;
   18  
   19  CONST
   20      S_IFMT   = 0170000;  (* file type mask *)
   21      S_IFDIR  = 4000H;    (* directory *)
   22      S_IFCHR  = 2000H;    (* character device *)
   23      S_IFREG  = 8000H;    (* regular file *)
   24      S_IREAD  = 100H;     (* owner may read *)
   25      S_IWRITE = 80H;      (* owner may write *)
   26      S_IEXEC  = 40H;      (* owner may execute <directory search> *)
   27  
   28  TYPE
   29      stat_t = RECORD
   30               st_dev,
   31               st_ino,
   32               st_mode,
   33               st_nlink: SHORTCARD;
   34               st_uid,
   35               st_gid: CARDINAL;
   36               st_rdev: SHORTCARD;
   37               st_size,
   38               st_atime,
   39               st_mtime,
   40               st_ctime: LONGCARD;
*****                         ^ undeclared identifier
   41             END;
*****             ^ not supported yet
   42  
   43  PROCEDURE fstat(_handle: CARDINAL; VAR _statbuf: stat_t): INTEGER;
   44  PROCEDURE stat(_path: ARRAY OF CHAR; VAR _statbuf: stat_t): INTEGER;
*****            ^ duplicate identifier
*****                                 ^ not supported yet
   45  
   46  END stat.
*****      ^ not supported yet

    5 errors