home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gnat-2.06-src.tgz / tar.out / fsf / gnat / ada / s-os2lib.ads < prev    next >
Text File  |  1996-09-28  |  5KB  |  113 lines
  1. ------------------------------------------------------------------------------
  2. --                                                                          --
  3. --                 GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS               --
  4. --                                                                          --
  5. --                         S Y S T E M . O S 2 L I B                        --
  6. --                                                                          --
  7. --                                  S p e c                                 --
  8. --                                                                          --
  9. --                             $Revision: 1.6 $                             --
  10. --                                                                          --
  11. --          Copyright (c) 1993,1994,1995 NYU, All Rights Reserved           --
  12. --                                                                          --
  13. --  GNARL is free software; you can redistribute it and/or modify it  under --
  14. --  terms  of  the  GNU  Library General Public License as published by the --
  15. --  Free Software Foundation; either version 2,  or (at  your  option)  any --
  16. --  later  version.   GNARL is distributed in the hope that it will be use- --
  17. --  ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of --
  18. --  MERCHANTABILITY  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Gen- --
  19. --  eral Library Public License for more details.  You should have received --
  20. --  a  copy of the GNU Library General Public License along with GNARL; see --
  21. --  file COPYING. If not, write to the Free Software Foundation,  675  Mass --
  22. --  Ave, Cambridge, MA 02139, USA.                                          --
  23. --                                                                          --
  24. ------------------------------------------------------------------------------
  25.  
  26. --  This package (and children) provide interface definitions to the standard
  27. --  OS/2 Library. They are merely a translation of the various <bse*.h> files.
  28.  
  29. --  It is intended that higher level interfaces (with better names, and
  30. --  stronger typing!) be built on top of this one for Ada (i.e. clean)
  31. --  programming.
  32.  
  33. --  We have chosen to keep names, types, etc.  as close as possible to the
  34. --  C definition to provide easier reference to the documentation. The main
  35. --  exception is when a formal and its type (in C) differed only by the case
  36. --  of letters (like in HMUX hmux). In this case, we have prepended "F_" to
  37. --  the formal (i.e. F_hmux : HMUX).
  38.  
  39. with Interfaces.C;
  40. with Interfaces.C.Strings;
  41.  
  42. package System.OS2Lib is
  43. pragma Preelaborate (OS2Lib);
  44.  
  45.    use Interfaces.C;
  46.    use Interfaces.C.Strings;
  47.  
  48.    -------------------
  49.    -- General Types --
  50.    -------------------
  51.  
  52.    type    APIRET   is new unsigned_long;
  53.    type    APIRET16 is new unsigned_short;
  54.    subtype APIRET32 is     APIRET;
  55.  
  56.    subtype PSZ   is chars_ptr;
  57.    subtype PCHAR is chars_ptr;
  58.    subtype PVOID is System.Address;
  59.  
  60.    type BOOL32 is new unsigned_long;
  61.    False32 : constant BOOL32 := 0;
  62.    True32  : constant BOOL32 := 1;
  63.  
  64.    type UCHAR  is new unsigned_char;
  65.    type USHORT is new unsigned_short;
  66.    type ULONG  is new unsigned_long;
  67.    type PULONG is access all ULONG;
  68.  
  69.    ---------------------
  70.    -- Time Manegement --
  71.    ---------------------
  72.  
  73.    procedure DosSleep (How_long : int);
  74.    pragma Import (C, DosSleep, External_Name => "DosSleep");
  75.  
  76.    type DATETIME is
  77.       record
  78.            hours      : UCHAR;
  79.            minutes    : UCHAR;
  80.            seconds    : UCHAR;
  81.            hundredths : UCHAR;
  82.            day        : UCHAR;
  83.            month      : UCHAR;
  84.            year       : USHORT;
  85.            timezone   : short;
  86.            weekday    : UCHAR;
  87.       end record;
  88.  
  89.    type PDATETIME is access all DATETIME;
  90.  
  91.    function DosGetDateTime (pdt : PDATETIME) return APIRET;
  92.    pragma Import (C, DosGetDateTime, External_Name => "DosGetDateTime");
  93.  
  94.    function DosSetDateTime (pdt : PDATETIME) return APIRET;
  95.    pragma Import (C, DosSetDateTime, External_Name => "DosSetDateTime");
  96.  
  97.    ----------------------------
  98.    -- Miscelleneous Features --
  99.    ----------------------------
  100.  
  101.    --  Features which do not fit any child
  102.  
  103.    function DosBeep (Freq : ULONG; Dur : ULONG) return APIRET;
  104.    pragma Import (C, DosBeep, External_Name => "DosBeep");
  105.  
  106.    procedure Must_Not_Fail (Return_Code : OS2Lib.APIRET);
  107.    --  Many OS/2 functions return APIRET and are not supposed to fail. In C
  108.    --  style, these would be called as procedures, disregarding the returned
  109.    --  value. This procedure can be used to achieve the same effect with a
  110.    --  call of the form: Must_Not_Fail (Some_OS2_Function (...));
  111.  
  112. end System.OS2Lib;
  113.