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