home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / win32-stat.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  3.3 KB  |  68 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/win32-stat.ads,v $ 
  2. -- $Revision: 1.7 $ $Date: 96/03/15 12:56:00 $ $Author: stm $ 
  3. -- See end of file for Copyright (c) information.
  4.  
  5. with Win32.Types;
  6.  
  7. package Win32.Stat is
  8.  
  9.     S_IFMT                         : constant := 8#170000#; -- stat.h:81
  10.     S_IFDIR                        : constant := 8#40000#;  -- stat.h:82
  11.     S_IFCHR                        : constant := 8#20000#;  -- stat.h:83
  12.     S_IFIFO                        : constant := 8#10000#;  -- stat.h:84
  13.     S_IFREG                        : constant := 8#100000#; -- stat.h:85
  14.     S_IREAD                        : constant := 8#400#;    -- stat.h:86
  15.     S_IWRITE                       : constant := 8#200#;    -- stat.h:87
  16.     S_IEXEC                        : constant := 8#100#;    -- stat.h:88
  17.  
  18.     type struct_stat is                                     -- stat.h:60
  19.         record
  20.             st_dev  : Win32.Types.dev_t;                    -- stat.h:61
  21.             st_ino  : Win32.Types.ino_t;                    -- stat.h:62
  22.             st_mode : Win32.USHORT;                         -- stat.h:63
  23.             st_nlink: Win32.SHORT;                          -- stat.h:64
  24.             st_uid  : Win32.SHORT;                          -- stat.h:65
  25.             st_gid  : Win32.SHORT;                          -- stat.h:66
  26.             st_rdev : Win32.Types.dev_t;                    -- stat.h:67
  27.             st_size : Win32.Types.off_t;                    -- stat.h:68
  28.             st_atime: Win32.Types.time_t;                   -- stat.h:69
  29.             st_mtime: Win32.Types.time_t;                   -- stat.h:70
  30.             st_ctime: Win32.Types.time_t;                   -- stat.h:71
  31.         end record;
  32.  
  33.     function fstat(handle: Win32.INT;
  34.                    buffer: access struct_stat)
  35.                        return Win32.INT;                    -- stat.h:93
  36.  
  37.     function stat(path  : Win32.PCSTR;
  38.                   buffer: access struct_stat)
  39.                       return Win32.INT;                     -- stat.h:94
  40.  
  41. private
  42.  
  43.     pragma Convention(C, struct_stat);                      -- stat.h:60
  44.  
  45.     pragma Import(C, fstat, "_fstat");                      -- stat.h:93
  46.     pragma Import(C, stat, "_stat");                        -- stat.h:94
  47.  
  48. -------------------------------------------------------------------------------
  49. --
  50. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  51. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  52. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  53. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  54. -- the accuracy and the use of this file.  This file may be used, copied,
  55. -- modified and distributed only by licensees of Microsoft Corporation's
  56. -- WIN32 Software Development Kit in accordance with the terms of the 
  57. -- licensee's End-User License Agreement for Microsoft Software for the
  58. -- WIN32 Development Kit.
  59. --
  60. -- Copyright (c) Intermetrics, Inc. 1995
  61. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  62. -- Microsoft is a registered trademark and Windows and Windows NT are
  63. -- trademarks of Microsoft Corporation.
  64. --
  65. -------------------------------------------------------------------------------
  66.  
  67. end Win32.Stat;
  68.