Re: Trying to import a C function

[Lutz Donnerhacke <lutz@iks-jena.de>]

* Preben Randhol wrote:
> Now what is the equivalent of unsigned long long int in Ada?

type ulonglong is mod 2**64;

> System: Debian GNU/Linux on i686

   type dev_t is new ushort;
   type nlink_t is new ushort;
   type stat_t is record
      st_dev     : dev_t;
      st_ino     : inode_t;
      st_mode    : mode_t;
      st_nlink   : nlink_t;
      st_uid     : uid_t;
      st_gid     : gid_t;
      st_rdev    : dev_t;
      st_size    : off_t;
      st_blksize : ulong;
      st_blocks  : ulong;
      st_atime   : time_t;
      st_mtime   : time_t;
      st_ctime   : time_t;
   end record;
   for stat_t use record
      st_dev     at 0 range 0 .. ushort'Size - 1;
      st_ino     at 2 * short'Size / 8 range 0 .. ulong'Size  - 1;
      st_mode    at (2*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_nlink   at (3*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_uid     at (4*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_gid     at (5*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_rdev    at (6*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_size    at (8*short'Size +  1*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_blksize at (8*short'Size +  2*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_blocks  at (8*short'Size +  3*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_atime   at (8*short'Size +  4*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_mtime   at (8*short'Size +  6*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_ctime   at (8*short'Size +  8*long'Size)/8 range 0 .. ulong'Size  - 1;
   end record;
   for stat_t'Size use 8 * short'Size + 12 * long'Size;
   type stat_p is access all stat_t; for stat_p'Size use long'Size;