⟦caf71074d⟧

E3 Source Code



--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988, 1989, 1990 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988, 1989, 1990.  ALL RIGHTS RESERVED.
--
--

WITH System;
WITH Unchecked_Conversion;

PACKAGE Unix_Base_Types IS

   --
   -- This package defines fundamental C and Unix data types.
   --
   -- Note:  This package is subject to change.
   --

   TYPE Tiny_Integer IS RANGE -128 .. 127;
   FOR Tiny_Integer'Size USE 1 * System.Storage_Unit;

   -- characters
   SUBTYPE Char          IS Tiny_Integer;
   SUBTYPE Unsigned_Char IS Character;
   SUBTYPE U_Char        IS Unsigned_Char;
   SUBTYPE Uchar         IS Unsigned_Char;

   -- short integers
   SUBTYPE Short          IS Short_Integer;
   TYPE    Unsigned_Short IS RANGE 0 .. 2 ** 16 - 1;
   FOR Unsigned_Short'Size USE 16;
   SUBTYPE U_Short IS Unsigned_Short;
   SUBTYPE Ushort  IS Unsigned_Short;

   -- integers
   SUBTYPE Int          IS Integer;
   SUBTYPE Unsigned_Int IS Integer;   -- Long_Integer range 0 .. 2 ** 32 - 1;
   SUBTYPE U_Int        IS Unsigned_Int;  
   SUBTYPE Uint         IS Unsigned_Int;
   SUBTYPE Unsigned     IS Unsigned_Int;

   -- long integers
   SUBTYPE Long          IS Integer;  
   SUBTYPE Unsigned_Long IS Integer;  -- Long_Integer range 0 .. 2 ** 32 - 1;
   SUBTYPE U_Long        IS Unsigned_Long;

   -- pointers
   TYPE Char_Ptr IS ACCESS Character;
   TYPE Int_Ptr  IS ACCESS Int;
   TYPE Long_Ptr IS ACCESS Long;

   -- arrays of pointers
   TYPE Char_Ptrs IS ARRAY (Natural RANGE <>) OF Char_Ptr;

   -- null pointers
   Null_Long_Ptr : CONSTANT Unix_Base_Types.Long_Ptr := NULL;
   Null_Char_Ptr : CONSTANT Unix_Base_Types.Char_Ptr := NULL;

   -- pointer conversion functions
   FUNCTION To_Char_Ptr IS NEW Unchecked_Conversion (System.Address, Char_Ptr);
   FUNCTION To_Char_Ptr (Object : String)   RETURN Char_Ptr;
   FUNCTION To_String   (Object : Char_Ptr) RETURN String;
   FUNCTION To_Int_Ptr  IS NEW Unchecked_Conversion (System.Address, Int_Ptr);
   FUNCTION To_Long_Ptr IS NEW Unchecked_Conversion (System.Address, Long_Ptr);

   -- signals
   --
   -- The following signal definitions can be used in an interrupt handler
   -- pragma like this:
   --
   -- pragma Interrupt_Handler(
   --   Handler => Some_Handler,
   --   Vector  => System.To_Address( Unix_Base_Types.Sigint ) );
   --
   Sighup : CONSTANT := 1;    -- Hangup (Terminate)
   Sigint : CONSTANT := 2;    -- Interrupt (Terminate)
   Sigquit : CONSTANT := 3;   -- Quit (Terminate, Core)
   Sigill : CONSTANT := 4;    -- Illegal instruction (Terminate, Core, Noreset)
   Sigtrap : CONSTANT := 5;   -- Trace trap (Terminate, Core, Noreset)
   Sigabrt : CONSTANT := 6;   -- Software gen'd abort (Terminate, Core)
   Sigiot : CONSTANT := 6;    -- Software gen'd (Terminate, Core)
   Sigemt : CONSTANT := 7;    -- Software gen'd (Terminate, Core)
   Sigfpe : CONSTANT := 8;    -- Floating Point (Terminate, Core)
   Sigkill : CONSTANT := 9;   -- Kill (Terminate, Noignore, Nocatch, Nohold)
   Sigbus : CONSTANT := 10;   -- Buss error (Terminate, Core)
   Sigsegv : CONSTANT := 11;  -- Segmentation violation (Terminate, Core)
   Sigsys : CONSTANT := 12;   -- Bad arg to sys call (Terminate, Core)
   Sigpipe : CONSTANT := 13;  -- Pipe write w/o reader (Terminate)
   Sigalrm : CONSTANT := 14;  -- Alarm clock (Terminate)  Sigterm : CONSTANT := 15;  -- Software termination (Terminate)
   Sigusr1 : CONSTANT := 16;  -- User sig (Terminate)
   Sigusr2 : CONSTANT := 17;  -- User sig (Terminate)
   Sigchld : CONSTANT := 18;  -- Death of child (Ignore)
   Sigcld : CONSTANT := 18;   -- Death of child (Ignore)
   Sigpwr : CONSTANT := 19;   -- Power fail (Noreset, Ignore)
   Sigvtalrm : CONSTANT := 20;-- Virtual timer (Terminate)
   Sigprof : CONSTANT := 21;  -- Profiling timer (Terminate)
   Sigio : CONSTANT := 22;    -- Async I/O (Ignore)
   Sigwindow : CONSTANT := 23;-- Window change or mouse (Itnore)
   Sigstop : CONSTANT := 24;  -- Stop (Noignore, Nocatch, Stop)
   Sigtstp : CONSTANT := 25;  -- Stop from keyboard (Stop)
   Sigcont : CONSTANT := 26;  -- Continue after stop (Nohold, Ignore)
   Sigttin : CONSTANT := 27;  -- Background read from cntl term (Stop)
   Sigttou : CONSTANT := 28;  -- Background write to cntl term (Stop)
   Sigurg : CONSTANT := 29;   -- Urgent data on I/O (Ignore)
   Siglost : CONSTANT := 30;  -- File lock lost in NFS (Terminate)

   -- The following data structures are built for access via the
   -- Signal_Info_Pointer parameter passed to an Ada signal handler.

   TYPE Signal_Context IS
      RECORD
         Sc_Syscall : Unix_Base_Types.Int;           -- interrupted system
                                                     --   call if any
         Sc_Syscall_Action : Unix_Base_Types.Char;   -- what to do after
                                                     --   system call
         Sc_Pad1 : Unix_Base_Types.Char;
         Sc_Pad2 : Unix_Base_Types.Char;
         Sc_Onstack : Unix_Base_Types.Char;          -- sigstack state to
                                                     --   restore
         Sc_Mask : Unix_Base_Types.Int;              -- signal mask to
                                                     --   restore
         Sc_Sp : Unix_Base_Types.Int;                -- sp to restore
         Sc_Ps : Unix_Base_Types.Short;              -- ps to restore
         Sc_Pc : Unix_Base_Types.Int;                -- pc to restore
      END RECORD;

   FOR Signal_Context USE
      RECORD
         Sc_Syscall        AT 0  RANGE 0 .. 31;
         Sc_Syscall_Action AT 4  RANGE 0 .. 7;
         Sc_Pad1           AT 5  RANGE 0 .. 7;
         Sc_Pad2           AT 6  RANGE 0 .. 7;
         Sc_Onstack        AT 7  RANGE 0 .. 7;
         Sc_Mask           AT 8  RANGE 0 .. 31;
         Sc_Sp             AT 12 RANGE 0 .. 31;
         Sc_Ps             AT 16 RANGE 0 .. 15;
         Sc_Pc             AT 20 RANGE 0 .. 31;
      END RECORD;

   TYPE Signal_Context_Pointer IS ACCESS Signal_Context;
   TYPE Signal_Info IS
      RECORD
         Number  : Unix_Base_Types.Int;       -- signal number
         Code    : Unix_Base_Types.Int;       -- code subselect
         Context : Signal_Context_Pointer;    -- pointer to signal context
      END RECORD;

   FOR Signal_Info USE
      RECORD
         Number  AT 0 RANGE 0 .. 31;
         Code    AT 4 RANGE 0 .. 31;
         Context AT 8 RANGE 0 .. 31;
      END RECORD;

   TYPE Signal_Info_Pointer IS ACCESS Signal_Info; -- passed to handler
END Unix_Base_Types;
DataMuseum.dk

Rational R1000/400

⟦caf71074d⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
