------------------------------------------------------------------------------ -- -- -- GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS -- -- -- -- I N T E R F A C E S . C . P T H R E A D S -- -- -- -- S p e c -- -- -- -- $Revision: 1.3 $ -- -- -- -- Copyright (c) 1991,1992,1993, FSU, All Rights Reserved -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU Library General Public License as published by the -- -- Free Software Foundation; either version 2, or (at your option) any -- -- later version. GNARL is distributed in the hope that it will be use- -- -- ful, but but WITHOUT ANY WARRANTY; without even the implied warranty of -- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Gen- -- -- eral Library Public License for more details. You should have received -- -- a copy of the GNU Library General Public License along with GNARL; see -- -- file COPYING. If not, write to the Free Software Foundation, 675 Mass -- -- Ave, Cambridge, MA 02139, USA. -- -- -- ------------------------------------------------------------------------------ -- This package interfaces with Pthrads. It is not a complete interface; -- it only includes what is needed to implement the Ada runtime. with System; with Interfaces.C.POSIX_Constants; -- Used for, Add_Prio -- pthread_attr_t_size -- pthread_mutexattr_t_size -- pthread_mutex_t_size -- pthread_condattr_t_size -- pthread_cond_t_size -- NO_PRIO_INHERIT -- PRIO_INHERIT -- PRIO_PROTECT with Interfaces.C.POSIX_RTE; -- Used for, Signal, -- Signal_Set with Interfaces.C.POSIX_Error; use Interfaces.C.POSIX_Error; -- Used for, Return_Code with Interfaces.C.POSIX_Timers; -- Used for, timespec package Interfaces.C.Pthreads is Pthreads_Error : exception; type Priority_Type is new int; type pthread_t is private; type pthread_mutex_t is private; type pthread_cond_t is private; type pthread_attr_t is private; type pthread_mutexattr_t is private; type pthread_condattr_t is private; type pthread_key_t is private; type pthread_protocol_t is private; NO_PRIO_INHERIT : constant pthread_protocol_t; PRIO_INHERIT : constant pthread_protocol_t; PRIO_PROTECT : constant pthread_protocol_t; procedure pthread_attr_init (attributes : out pthread_attr_t; result : out Return_Code); pragma Inline (pthread_attr_init); procedure pthread_attr_destroy (attributes : in out pthread_attr_t; result : out Return_Code); pragma Inline (pthread_attr_init); procedure pthread_attr_setstacksize (attr : in out pthread_attr_t; stacksize : size_t; result : out Return_Code); pragma Inline (pthread_attr_setstacksize); procedure pthread_attr_setdetachstate (attr : in out pthread_attr_t; detachstate : int; Result : out Return_Code); pragma Inline (pthread_attr_setdetachstate); procedure pthread_create (thread : out pthread_t; attributes : pthread_attr_t; start_routine : System.Address; arg : System.Address; result : out Return_Code); pragma Inline (pthread_create); procedure pthread_init; function pthread_self return pthread_t; pragma Inline (pthread_self); procedure pthread_detach (thread : in out pthread_t; result : out Return_Code); pragma Inline (pthread_detach); procedure pthread_mutexattr_init (attributes : out pthread_mutexattr_t; result : out Return_Code); pragma Inline (pthread_mutexattr_init); procedure pthread_mutexattr_setprotocol (attributes : in out pthread_mutexattr_t; protocol : pthread_protocol_t; result : out Return_Code); pragma Inline (pthread_mutexattr_setprotocol); procedure pthread_mutexattr_setprio_ceiling (attributes : in out pthread_mutexattr_t; prio_ceiling : int; result : out Return_Code); pragma Inline (pthread_mutexattr_setprio_ceiling); procedure pthread_mutex_init (mutex : out pthread_mutex_t; attributes : pthread_mutexattr_t; result : out Return_Code); pragma Inline (pthread_mutex_init); procedure pthread_mutex_destroy (mutex : in out pthread_mutex_t; result : out Return_Code); pragma Inline (pthread_mutex_destroy); procedure pthread_mutex_trylock (mutex : in out pthread_mutex_t; result : out Return_Code); pragma Inline (pthread_mutex_trylock); procedure pthread_mutex_lock (mutex : in out pthread_mutex_t; result : out Return_Code); pragma Inline (pthread_mutex_lock); procedure pthread_mutex_unlock (mutex : in out pthread_mutex_t; result : out Return_Code); pragma Inline (pthread_mutex_unlock); procedure pthread_cond_init (condition : out pthread_cond_t; attributes : pthread_condattr_t; result : out Return_Code); pragma Inline (pthread_cond_init); procedure pthread_cond_wait (condition : in out pthread_cond_t; mutex : in out pthread_mutex_t; result : out Return_Code); pragma Inline (pthread_cond_wait); procedure pthread_cond_timedwait (condition : in out pthread_cond_t; mutex : in out pthread_mutex_t; absolute_time : POSIX_Timers.timespec; result : out Return_Code); pragma Inline (pthread_cond_timedwait); procedure pthread_cond_signal (condition : in out pthread_cond_t; result : out Return_Code); pragma Inline (pthread_cond_signal); procedure pthread_cond_broadcast (condition : in out pthread_cond_t; result : out Return_Code); pragma Inline (pthread_cond_broadcast); procedure pthread_cond_destroy (condition : in out pthread_cond_t; result : out Return_Code); pragma Inline (pthread_cond_destroy); procedure pthread_condattr_init (attributes : out pthread_condattr_t; result : out Return_Code); pragma Inline (pthread_condattr_init); procedure pthread_condattr_destroy (attributes : in out pthread_condattr_t; result : out Return_Code); pragma Inline (pthread_condattr_destroy); procedure pthread_setspecific (key : pthread_key_t; value : System.Address; result : out Return_Code); pragma Inline (pthread_setspecific); procedure pthread_getspecific (key : pthread_key_t; value : out System.Address; result : out Return_Code); pragma Inline (pthread_getspecific); procedure pthread_key_create (key : out pthread_key_t; destructor : System.Address; result : out Return_Code); pragma Inline (pthread_key_create); procedure pthread_attr_setprio (attr : in out pthread_attr_t; priority : Priority_Type; result : out Return_Code); pragma Inline (pthread_attr_setprio); procedure pthread_attr_getprio (attr : pthread_attr_t; priority : out Priority_Type; result : out Return_Code); pragma Inline (pthread_attr_getprio); procedure pthread_setschedattr (thread : pthread_t; attributes : pthread_attr_t; result : out Return_Code); pragma Inline (pthread_setschedattr); procedure pthread_getschedattr (thread : pthread_t; attributes : out pthread_attr_t; result : out Return_Code); pragma Inline (pthread_getschedattr); procedure pthread_exit (status : System.Address); pragma Interface (C, pthread_exit); pragma Interface_Name (pthread_exit, "pthread_exit"); procedure sigwait (set : POSIX_RTE.Signal_Set; sig : out POSIX_RTE.Signal; result : out Return_Code); pragma Inline (sigwait); procedure pthread_kill (thread : pthread_t; sig : POSIX_RTE.Signal; result : out Return_Code); pragma Inline (pthread_kill); procedure pthread_cleanup_push (routine : System.Address; arg : System.Address); pragma Inline (pthread_cleanup_push); procedure pthread_cleanup_pop (execute : int); pragma Inline (pthread_cleanup_pop); procedure pthread_yield; pragma Inline (pthread_yield); private type Byte is new Unsigned_8; type Halfword is new Unsigned_16; type Word is new Unsigned_32; type pthread_attr_t is array (1 .. POSIX_Constants.pthread_attr_t_size) of Byte; type pthread_mutexattr_t is array (1 .. POSIX_Constants.pthread_mutexattr_t_size) of Byte; type pthread_mutex_t is array (1 .. POSIX_Constants.pthread_mutex_t_size) of Byte; type pthread_condattr_t is array (1 .. POSIX_Constants.pthread_condattr_t_size) of Byte; type pthread_cond_t is array (1 .. POSIX_Constants.pthread_cond_t_size) of Byte; type pthread_t is new Word; -- type pthread_t is -- -- array (1 .. POSIX_Constants.pthread_t_size) of Byte; -- -- This is the only type returned by an Ada function. -- -- If this were declared as an array of Byte, the compiler would -- manipulate it a byte at a time. For the sake of efficiency, this -- is declared as a word. type pthread_key_t is new Word; -- type pthread_key_t is -- -- array (1 .. POSIX_Constants.pthread_key_t_size) of Byte; -- -- This type is passed as a scaler into a C function. It must -- be declared as a scaler, not an array. type pthread_protocol_t is new int; NO_PRIO_INHERIT : constant pthread_protocol_t := POSIX_Constants.NO_PRIO_INHERIT; PRIO_INHERIT : constant pthread_protocol_t := POSIX_Constants.PRIO_INHERIT; PRIO_PROTECT : constant pthread_protocol_t := POSIX_Constants.PRIO_PROTECT; end Interfaces.C.Pthreads; ---------------------- -- REVISION HISTORY -- ---------------------- -- ---------------------------- -- revision 1.1 -- date: Thu Aug 18 17:41:52 1994; author: giering -- Initial revision -- ---------------------------- -- revision 1.2 -- date: Thu Aug 18 20:10:19 1994; author: dewar -- Minor reformatting -- ---------------------------- -- revision 1.3 -- date: Wed Aug 31 12:12:54 1994; author: giering -- (pthread_attr_destroy): New procedure. -- Checked in from FSU by giering. -- ---------------------------- -- New changes after this line. Each line starts with: "-- "