[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / runtime / io / posix.c
1 # line 7 "io/posix.lc"
2
3 #define NULL_REG_MAP
4 #include "stgdefs.h"
5 #include "stgio.h"
6 #include "libposix.h"
7 #include "signals.h"
8
9 int 
10 cvtSignal(signum)
11 int signum;
12 {
13     switch(signum) {
14     default:
15         return signum;
16     case SIGABRT:
17         return GHC_SIGABRT;
18     case SIGALRM:
19         return GHC_SIGALRM;
20     case SIGFPE:
21         return GHC_SIGFPE;
22     case SIGHUP:
23         return GHC_SIGHUP;
24     case SIGILL:
25         return GHC_SIGILL;
26     case SIGINT:
27         return GHC_SIGINT;
28     case SIGKILL:
29         return GHC_SIGKILL;
30     case SIGPIPE:
31         return GHC_SIGPIPE;
32     case SIGQUIT:
33         return GHC_SIGQUIT;
34     case SIGSEGV:
35         return GHC_SIGSEGV;
36     case SIGTERM:
37         return GHC_SIGTERM;
38     case SIGUSR1:
39         return GHC_SIGUSR1;
40     case SIGUSR2:
41         return GHC_SIGUSR2;
42     case SIGCHLD:
43         return GHC_SIGCHLD;
44     case SIGCONT:
45         return GHC_SIGCONT;
46     case SIGSTOP:
47         return GHC_SIGSTOP;
48     case SIGTSTP:
49         return GHC_SIGTSTP;
50     case SIGTTIN:
51         return GHC_SIGTTIN;
52     case SIGTTOU:
53         return GHC_SIGTTOU;
54     }
55 }