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/branches/SMLNJ/src/runtime/mach-dep/win32-signal.c
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/runtime/mach-dep/win32-signal.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 249 - (view) (download) (as text)

1 : monnier 249 /* win32-signal.c
2 :     *
3 :     * COPYRIGHT (c) 1996 Bell Laboratories, Lucent Technologies
4 :     *
5 :     * when "signals" are supported in win32, they'll go here.
6 :     */
7 :    
8 :     #include "signal-sysdep.h"
9 :     #include "ml-base.h"
10 :     #include "ml-limits.h"
11 :     #include "ml-state.h"
12 :     #include "vproc-state.h"
13 :     #include "ml-objects.h"
14 :     #include "ml-signals.h"
15 :     #include "system-signals.h"
16 :     #include "ml-globals.h"
17 :    
18 :     #include "win32-sigtbl.c"
19 :    
20 :     #ifndef MP_SUPPORT
21 :     #define SELF_VPROC (VProc[0])
22 :     #else
23 :     /** for MP_SUPPORT, we'll use SELF_VPROC for now **/
24 :     #define SELF_VPROC (VProc[0])
25 :     #endif
26 :    
27 :     /* ListSignals:
28 :     */
29 :     ml_val_t ListSignals (ml_state_t *msp)
30 :     {
31 :     #ifdef WIN32_DEBUG
32 :     SayDebug("win32:ListSignals: returning dummy signal list\n");
33 :     #endif
34 :     return ML_SysConstList (msp, &SigTbl);
35 :     }
36 :    
37 :     /* PauseUntilSignal:
38 :     *
39 :     * Suspend the given VProc until a signal is received.
40 :     */
41 :     void PauseUntilSignal (vproc_state_t *vsp)
42 :     {
43 :     #ifdef WIN32_DEBUG
44 :     SayDebug("win32:PauseUntilSignal: returning without pause\n");
45 :     #endif
46 :     }
47 :    
48 :     /* SetSignalState:
49 :     */
50 :     void SetSignalState (vproc_state_t *vsp, int sigNum, int sigState)
51 :     {
52 :     #ifdef WIN32_DEBUG
53 :     SayDebug("win32:SetSignalState: not setting state for signal %d\n",sigNum);
54 :     #endif
55 :     }
56 :    
57 :    
58 :     /* GetSignalState:
59 :     */
60 :     int GetSignalState (vproc_state_t *vsp, int sigNum)
61 :     {
62 :     #ifdef WIN32_DEBUG
63 :     SayDebug("win32:GetSignalState: returning state for signal %d as ML_SIG_DEFAULT\n",sigNum);
64 :     #endif
65 :     return ML_SIG_DEFAULT;
66 :     }
67 :    
68 :    
69 :     /* SetSignalMask:
70 :     *
71 :     * Set the signal mask to the given list of signals. The sigList has the
72 :     * type: "sysconst list option", with the following semantics (see
73 :     * sml-nj/boot/smlnj/signals.sml):
74 :     * NONE -- the empty mask
75 :     * SOME[] -- mask all signals
76 :     * SOME l -- the signals in l are the mask
77 :     */
78 :     void SetSignalMask (ml_val_t sigList)
79 :     {
80 :     #ifdef WIN32_DEBUG
81 :     SayDebug("win32:SetSigMask: not setting mask\n");
82 :     #endif
83 :     }
84 :    
85 :    
86 :     /* GetSignalMask:
87 :     *
88 :     * Return the current signal mask (only those signals supported my ML); like
89 :     * SetSignalMask, the result has the following semantics:
90 :     * NONE -- the empty mask
91 :     * SOME[] -- mask all signals
92 :     * SOME l -- the signals in l are the mask
93 :     */
94 :     ml_val_t GetSignalMask (ml_state_t *msp)
95 :     {
96 :     #ifdef WIN32_DEBUG
97 :     SayDebug("win32:GetSignalMask: returning mask as NONE\n");
98 :     #endif
99 :     return OPTION_NONE;
100 :     }
101 :    
102 :     /* end of win32-signal.c */

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