1 dawes 1.1 (* Copyright 1996 John D. Polstra.
 2            * All rights reserved.
 3            *
 4            * Redistribution and use in source and binary forms, with or without
 5            * modification, are permitted provided that the following conditions
 6            * are met:
 7            * 1. Redistributions of source code must retain the above copyright
 8            *    notice, this list of conditions and the following disclaimer.
 9            * 2. Redistributions in binary form must reproduce the above copyright
10            *    notice, this list of conditions and the following disclaimer in the
11            *    documentation and/or other materials provided with the distribution.
12            * 3. All advertising materials mentioning features or use of this software
13            *    must display the following acknowledgment:
14            *      This product includes software developed by John D. Polstra.
15            * 4. The name of the author may not be used to endorse or promote products
16            *    derived from this software without specific prior written permission.
17            *
18            * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19            * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20            * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21            * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 dawes 1.1  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23            * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24            * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25            * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26            * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27            * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28            *
29            * $Id: Umisc.i3,v 1.6 1996/09/12 21:45:49 jdp Exp $

30 dawes 1.1.1.3  * $Name: REL_14_1_1 $ *)

31 dawes 1.1     
32               (* The "Umisc" interface provides access to various and sundry POSIX
33                  library functions that aren't declared in the standard Modula-3
34                  interfaces. *)
35               
36               INTERFACE Umisc;
37               
38               FROM Ctypes IMPORT int;
39               FROM Utypes IMPORT pid_t;
40               
41               <* EXTERNAL *>
42               PROCEDURE setsid(): pid_t;
43               (* Set session-ID. *)
44               
45               (* Believe it or not, the C standard function "signal" is not declared in
46                  any of the standard Modula-3 interfaces! *)
47               
48               TYPE SignalHandler = PROCEDURE (sig: int);
49               
50               <* EXTERNAL *>
51               PROCEDURE signal(sig: int;
52 dawes 1.1                      func: SignalHandler): SignalHandler;
53               
54               END Umisc.