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/runtime/config/gen-win32-sigtbl.c
ViewVC logotype

Annotation of /sml/trunk/src/runtime/config/gen-win32-sigtbl.c

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : monnier 2 /* gen-win32-sigtbl.c
2 :     *
3 :     * COPYRIGHT (c) 1996 Bell Laboratories, Lucent Technologies
4 :     *
5 :     * generate the "win32-sigtbl.c" file.
6 :     */
7 :    
8 :     #include <signal.h>
9 :     #include <stdio.h>
10 :     #include "gen.h"
11 :     #include "win32-sigtab.h"
12 :    
13 :     #ifndef DST_FILE
14 :     #define DST_FILE "win32-sigtbl.c"
15 :     #endif
16 :    
17 :     main ()
18 :     {
19 :     FILE *f;
20 :     int i;
21 :    
22 :     f = OpenFile (DST_FILE, NIL(char *));
23 :    
24 :     fprintf (f, "\n");
25 :    
26 :     fprintf (f, "PVT sys_const_t SigInfo[NUM_SIGS] = {\n");
27 :     for (i = 0; i < NUM_SIGS; i++) {
28 :     fprintf(f, "\t{ %d, \"%s\" },\n", win32SigTab[i].n, win32SigTab[i].sname);
29 :     }
30 :     fprintf (f, "};\n");
31 :    
32 :     fprintf (f, "PVT sysconst_tbl_t SigTbl = {\n");
33 :     fprintf (f, " /* numConsts */ NUM_SIGS,\n");
34 :     fprintf (f, " /* consts */ SigInfo\n");
35 :     fprintf (f, "};\n");
36 :    
37 :     CloseFile (f, NIL(char *));
38 :    
39 :     exit (0);
40 :    
41 :     }
42 :    
43 :     /* end of gen-win32-sigtbl.c */
44 :    

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