Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/PervEnv/Unix/unix-signals.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/PervEnv/Unix/unix-signals.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 114 - (view) (download)

1 : monnier 16 (* unix-signals.sml
2 :     *
3 :     * COPYRIGHT (c) 1995 AT&T Bell Laboratories.
4 :     *
5 :     * This extends the generic SIGNALS interface to POSIX signals.
6 :     *
7 :     *)
8 :    
9 :     structure UnixSignals : UNIX_SIGNALS =
10 :     struct
11 :     open Signals
12 :    
13 :     (** The following signals are already defined in SIGNALS:
14 :     **
15 :     ** val sigHUP : signal (* hangup *)
16 :     ** val sigINT : signal (* interactive interrupt *)
17 :     ** val sigALRM : signal (* interval timer signal *)
18 :     ** val sigTERM : signal (* termination *)
19 :     ** val sigGC : signal (* garbage collection *)
20 :     **)
21 :    
22 :     (* required Posix signals *)
23 :     val sigPIPE : signal = Option.valOf(fromString "PIPE")
24 :     val sigQUIT : signal = Option.valOf(fromString "QUIT")
25 :     val sigUSR1 : signal = Option.valOf(fromString "USR1")
26 :     val sigUSR2 : signal = Option.valOf(fromString "USR2")
27 :    
28 :     (* job-control signals *)
29 :     val sigCHLD : signal = Option.valOf(fromString "CHLD")
30 :     val sigCONT : signal = Option.valOf(fromString "CONT")
31 :     val sigTSTP : signal = Option.valOf(fromString "TSTP")
32 :     val sigTTIN : signal = Option.valOf(fromString "TTIN")
33 :     val sigTTOU : signal = Option.valOf(fromString "TTOU")
34 :    
35 :     (** other UNIX signals that may be available (depending on the OS):
36 :     **
37 :     ** val sigWINCH : signal
38 :     ** val sigURG : signal
39 :     ** val sigIO : signal
40 :     ** val sigPOLL : signal
41 :     ** val sigVTALRM : signal
42 :     **)
43 :    
44 :     end (* UnixSignals *)
45 :    
46 :    
47 :     (*
48 : monnier 113 * $Log$
49 : monnier 16 *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0