Fwd: CPAN Upload: Y/YV/YVES/ExtUtils-Install-1.45.tar.gz
[perl.git] / NetWare / Main.c
1
2 /*
3  * Copyright � 2001 Novell, Inc. All Rights Reserved.
4  *
5  * You may distribute under the terms of either the GNU General Public
6  * License or the Artistic License, as specified in the README file.
7  *
8  */
9
10 /*
11  * FILENAME             :       Main.c
12  * DESCRIPTION  :       The purpose of clibstuf is to make sure that Perl, cgi2perl and
13  *                  all the perl extension nlm's (*.NLP) use the Novell Netware CLIB versions
14  *                  of standard functions. This code loads up a whole bunch of function pointers
15  *                  to point at the standard CLIB functions.
16  * Author               :       HYAK
17  * Date                 :       January 2001.
18  *
19  */
20
21
22
23 #define DEFINE_GPF
24
25 #include <nwthread.h>
26 #include <nwadv.h>
27 #include <nwconio.h>
28
29 #include "string.h"             // Our version of string.h will include clibstr.h
30 #include "stdio.h"              // Our version of stdio.h will include clibsdio.h
31 #include "clibstuf.h"
32 #include "clibstuf.h"
33
34 #ifdef MPK_ON
35         #include <mpktypes.h>
36         #include <mpkapis.h>
37 #endif  //MPK_ON
38
39
40
41 /*============================================================================================
42
43  Function               :       main
44
45  Description    :       This is called as the first step in an extension.
46
47  Parameters             :       None
48
49  Returns                :       Nothing.
50
51 ==============================================================================================*/
52
53 void main(void)
54 {
55         fnInitGpfGlobals();             // For importing the CLIB calls in place of the Watcom calls
56         SynchronizeStart();             // Don't allow anything else to happen until all the symbols are imported
57         #ifdef MPK_ON
58                 ExitThread(TSR_THREAD, 0);
59         #else
60                 ExitThread(TSR_THREAD, 0);
61         #endif
62 }
63
64
65 void ImportFromCLIB (unsigned int nlmHandle, void** psymbol, char* symbolName)
66 {
67         *psymbol = ImportSymbol(nlmHandle, symbolName);
68         if (*psymbol == NULL)
69         {
70                 ConsolePrintf("Symbol %s not found, unable to continue\n", symbolName);
71                 exit(1);
72         }
73 }
74
75
76 void fnInitGpfGlobals(void)
77 {
78         unsigned int nlmHandle = GetNLMHandle();
79
80         ImportFromCLIB(nlmHandle, &gpf___get_stdin, "__get_stdin");
81         ImportFromCLIB(nlmHandle, &gpf___get_stdout, "__get_stdout");
82         ImportFromCLIB(nlmHandle, &gpf___get_stderr, "__get_stderr");
83         ImportFromCLIB(nlmHandle, &gpf_clearerr, "clearerr");
84         ImportFromCLIB(nlmHandle, &gpf_fclose, "fclose");
85         ImportFromCLIB(nlmHandle, &gpf_feof, "feof");
86         ImportFromCLIB(nlmHandle, &gpf_ferror, "ferror");
87         ImportFromCLIB(nlmHandle, &gpf_fflush, "fflush");
88         ImportFromCLIB(nlmHandle, &gpf_fgetc, "fgetc");
89         ImportFromCLIB(nlmHandle, &gpf_fgetpos, "fgetpos");
90         ImportFromCLIB(nlmHandle, &gpf_fgets, "fgets");
91         ImportFromCLIB(nlmHandle, &gpf_fopen, "fopen");
92         ImportFromCLIB(nlmHandle, &gpf_fputc, "fputc");
93         ImportFromCLIB(nlmHandle, &gpf_fputs, "fputs");
94         ImportFromCLIB(nlmHandle, &gpf_fread, "fread");
95         ImportFromCLIB(nlmHandle, &gpf_freopen, "freopen");
96         ImportFromCLIB(nlmHandle, &gpf_fscanf, "fscanf");
97         ImportFromCLIB(nlmHandle, &gpf_fseek, "fseek");
98         ImportFromCLIB(nlmHandle, &gpf_fsetpos, "fsetpos");
99         ImportFromCLIB(nlmHandle, &gpf_ftell, "ftell");
100         ImportFromCLIB(nlmHandle, &gpf_fwrite, "fwrite");
101         ImportFromCLIB(nlmHandle, &gpf_getc, "getc");
102         ImportFromCLIB(nlmHandle, &gpf_getchar, "getchar");
103         ImportFromCLIB(nlmHandle, &gpf_gets, "gets");
104         ImportFromCLIB(nlmHandle, &gpf_perror, "perror");
105         ImportFromCLIB(nlmHandle, &gpf_putc, "putc");
106         ImportFromCLIB(nlmHandle, &gpf_putchar, "putchar");
107         ImportFromCLIB(nlmHandle, &gpf_puts, "puts");
108         ImportFromCLIB(nlmHandle, &gpf_rename, "rename");
109         ImportFromCLIB(nlmHandle, &gpf_rewind, "rewind");
110         ImportFromCLIB(nlmHandle, &gpf_scanf, "scanf");
111         ImportFromCLIB(nlmHandle, &gpf_setbuf, "setbuf");
112         ImportFromCLIB(nlmHandle, &gpf_setvbuf, "setvbuf");
113         ImportFromCLIB(nlmHandle, &gpf_sscanf, "sscanf");
114         ImportFromCLIB(nlmHandle, &gpf_tmpfile, "tmpfile");
115         ImportFromCLIB(nlmHandle, &gpf_tmpnam, "tmpnam");
116         ImportFromCLIB(nlmHandle, &gpf_ungetc, "ungetc");
117         ImportFromCLIB(nlmHandle, &gpf_vfscanf, "vfscanf");
118         ImportFromCLIB(nlmHandle, &gpf_vscanf, "vscanf");
119         ImportFromCLIB(nlmHandle, &gpf_vsscanf, "vsscanf");
120         ImportFromCLIB(nlmHandle, &gpf_fdopen, "fdopen");
121         ImportFromCLIB(nlmHandle, &gpf_fileno, "fileno");
122         ImportFromCLIB(nlmHandle, &gpf_cgets, "cgets");
123         ImportFromCLIB(nlmHandle, &gpf_cprintf, "cprintf");
124         ImportFromCLIB(nlmHandle, &gpf_cputs, "cputs");
125         ImportFromCLIB(nlmHandle, &gpf_cscanf, "cscanf");
126         ImportFromCLIB(nlmHandle, &gpf_fcloseall, "fcloseall");
127         ImportFromCLIB(nlmHandle, &gpf_fgetchar, "fgetchar");
128         ImportFromCLIB(nlmHandle, &gpf_flushall, "flushall");
129         ImportFromCLIB(nlmHandle, &gpf_fputchar, "fputchar");
130         ImportFromCLIB(nlmHandle, &gpf_getch, "getch");
131         ImportFromCLIB(nlmHandle, &gpf_getche, "getche");
132         ImportFromCLIB(nlmHandle, &gpf_putch, "putch");
133         ImportFromCLIB(nlmHandle, &gpf_ungetch, "ungetch");
134         ImportFromCLIB(nlmHandle, &gpf_vcprintf, "vcprintf");
135         ImportFromCLIB(nlmHandle, &gpf_vcscanf, "vcscanf");
136
137         ImportFromCLIB(nlmHandle, &gpf_memchr, "memchr");
138         ImportFromCLIB(nlmHandle, &gpf_memcmp, "memcmp");
139         ImportFromCLIB(nlmHandle, &gpf_memcpy, "memcpy");
140         ImportFromCLIB(nlmHandle, &gpf_memmove, "memmove");
141         ImportFromCLIB(nlmHandle, &gpf_memset, "memset");
142         ImportFromCLIB(nlmHandle, &gpf_memicmp, "memicmp");
143
144         ImportFromCLIB(nlmHandle, &gpf_strerror, "strerror");
145         ImportFromCLIB(nlmHandle, &gpf_strtok_r, "strtok_r");
146         
147         ImportFromCLIB(nlmHandle, &gpf_strcpy, "strcpy");
148         ImportFromCLIB(nlmHandle, &gpf_strcat, "strcat");
149         ImportFromCLIB(nlmHandle, &gpf_strchr, "strchr");
150         ImportFromCLIB(nlmHandle, &gpf_strstr, "strstr");
151         ImportFromCLIB(nlmHandle, &gpf_strcoll, "strcoll");
152         ImportFromCLIB(nlmHandle, &gpf_strcspn, "strcspn");
153         ImportFromCLIB(nlmHandle, &gpf_strpbrk, "strpbrk");
154         ImportFromCLIB(nlmHandle, &gpf_strrchr, "strrchr");
155         ImportFromCLIB(nlmHandle, &gpf_strrev, "strrev");
156         ImportFromCLIB(nlmHandle, &gpf_strspn, "strspn");
157         ImportFromCLIB(nlmHandle, &gpf_strupr, "strupr");
158         ImportFromCLIB(nlmHandle, &gpf_strxfrm, "strxfrm");
159         ImportFromCLIB(nlmHandle, &gpf_strcmp, "strcmp");
160         ImportFromCLIB(nlmHandle, &gpf_stricmp, "stricmp");
161         ImportFromCLIB(nlmHandle, &gpf_strtok, "strtok");
162         ImportFromCLIB(nlmHandle, &gpf_strlen, "strlen");
163         ImportFromCLIB(nlmHandle, &gpf_strncpy, "strncpy");
164         ImportFromCLIB(nlmHandle, &gpf_strncat, "strncat");
165         ImportFromCLIB(nlmHandle, &gpf_strncmp, "strncmp");
166         ImportFromCLIB(nlmHandle, &gpf_strcmpi, "strcmpi");
167         ImportFromCLIB(nlmHandle, &gpf_strnicmp, "strnicmp");
168         ImportFromCLIB(nlmHandle, &gpf_strdup, "strdup");
169         ImportFromCLIB(nlmHandle, &gpf_strlist, "strlist");
170         ImportFromCLIB(nlmHandle, &gpf_strlwr, "strlwr");
171         ImportFromCLIB(nlmHandle, &gpf_strnset, "strnset");
172         ImportFromCLIB(nlmHandle, &gpf_strset, "strset");
173         ImportFromCLIB(nlmHandle, &gpf_strtok_r, "strtok_r");
174         ImportFromCLIB(nlmHandle, &gpf_printf, "printf");
175         ImportFromCLIB(nlmHandle, &gpf_fprintf, "fprintf");
176         ImportFromCLIB(nlmHandle, &gpf_sprintf, "sprintf");
177         ImportFromCLIB(nlmHandle, &gpf_vprintf, "vprintf");
178         ImportFromCLIB(nlmHandle, &gpf_vfprintf, "vfprintf");
179         ImportFromCLIB(nlmHandle, &gpf_vsprintf, "vsprintf");
180
181 }
182