1 ------------------------------------------------------------------------------
3 -- GNU ADA RUN-TIME LIBRARY (GNARL) COMPONENTS --
5 -- S Y S T E M . O S _ I N T E R F A C E --
11 -- Copyright (C) 1991-2001 Florida State University --
13 -- GNARL is free software; you can redistribute it and/or modify it under --
14 -- terms of the GNU General Public License as published by the Free Soft- --
15 -- ware Foundation; either version 2, or (at your option) any later ver- --
16 -- sion. GNARL is distributed in the hope that it will be useful, but WITH- --
17 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
18 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
19 -- for more details. You should have received a copy of the GNU General --
20 -- Public License distributed with GNARL; see file COPYING. If not, write --
21 -- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
22 -- MA 02111-1307, USA. --
24 -- As a special exception, if other files instantiate generics from this --
25 -- unit, or you link this unit with other files to produce an executable, --
26 -- this unit does not by itself cause the resulting executable to be --
27 -- covered by the GNU General Public License. This exception does not --
28 -- however invalidate any other reasons why the executable file might be --
29 -- covered by the GNU Public License. --
31 -- GNARL was developed by the GNARL team at Florida State University. It is --
32 -- now maintained by Ada Core Technologies Inc. in cooperation with Florida --
33 -- State University (http://www.gnat.com). --
35 ------------------------------------------------------------------------------
37 -- This is the OS/2 version of this package
39 -- This package encapsulates all direct interfaces to OS services
40 -- that are needed by children of System.
42 -- PLEASE DO NOT add any with-clauses to this package
43 -- or remove the pragma Preelaborate.
45 -- It is designed to be a bottom-level (leaf) package.
48 package System
.OS_Interface
is
51 package C
renames Interfaces
.C
;
54 subtype unsigned_long
is C
.unsigned_long
;
56 type Duration_In_Millisec
is new C
.long
;
57 -- New type to prevent confusing time functions in this package
58 -- with time functions returning seconds or other units.
60 type Thread_Id
is new unsigned_long
;
66 function errno
return int
;
67 pragma Import
(C
, errno
, "__get_errno");
69 EAGAIN
: constant := 5;
70 EINTR
: constant := 13;
71 EINVAL
: constant := 14;
72 ENOMEM
: constant := 25;
78 Max_Interrupt
: constant := 15;
79 type Signal
is new int
range 0 .. Max_Interrupt
;
81 -- Signals for OS/2, only SIGTERM used currently. The values are
82 -- fake, since OS/2 uses 32 bit exception numbers that cannot be
83 -- used to index arrays etc. The GNULLI maps these Unix-like signals
84 -- to OS/2 exception numbers.
86 -- SIGTERM is used for the abort interrupt.
88 SIGHUP
: constant := 1; -- hangup
89 SIGINT
: constant := 2; -- interrupt (rubout)
90 SIGQUIT
: constant := 3; -- quit (ASCD FS)
91 SIGILL
: constant := 4; -- illegal instruction (not reset)
92 SIGTRAP
: constant := 5; -- trace trap (not reset)
93 SIGIOT
: constant := 6; -- IOT instruction
94 SIGEMT
: constant := 0; -- EMT instruction
95 SIGFPE
: constant := 8; -- floating point exception
96 SIGKILL
: constant := 9; -- kill (cannot be caught or ignored)
97 SIGBUS
: constant := 10; -- bus error
98 SIGSEGV
: constant := 11; -- segmentation violation
99 SIGSYS
: constant := 12; -- bad argument to system call
100 SIGPIPE
: constant := 13; -- write on a pipe with no one to read it
101 SIGALRM
: constant := 14; -- alarm clock
102 SIGTERM
: constant := 15; -- software termination signal from kill
104 subtype sigset_t
is unsigned_long
;
110 function Clock
return Duration;
111 pragma Inline
(Clock
);
112 -- Clock measuring time since the epoch, which is the boot-time.
113 -- The clock resolution is approximately 838 ns.
115 procedure Delay_For
(Period
: in Duration_In_Millisec
);
116 pragma Inline
(Delay_For
);
117 -- Changed Sleep to Delay_For, for consistency with System.Time_Operations
123 -- Put the calling task at the end of the ready queue for its priority
126 pragma Inline
(Yield
);
128 end System
.OS_Interface
;