/[meta-cvs]/meta-cvs/F-B588523D762048E9DCB2BECDE0F55922.c
ViewVC logotype

Contents of /meta-cvs/F-B588523D762048E9DCB2BECDE0F55922.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Sun Aug 4 15:49:30 2002 UTC (11 years, 8 months ago) by kaz
Branch: MAIN
CVS Tags: mcvs-0-24, mcvs-1-0-branch~merged-to-HEAD-1, mcvs-1-0-branch~merged-to-HEAD-0, symlink-branch~branch-point, mcvs-0-22, mcvs-0-23, asdf-import-branch~merged-to-HEAD-0, mcvs-1-1-98, mcvs-0-21, mcvs-1-0-branch~branch-point, mcvs-1-0-11, mcvs-1-0-10, mcvs-1-0-13, mcvs-1-0-12, asdf-import-branch~branch-point, mcvs-1-1-0, symlink-branch~merged-to-HEAD-0, mcvs-1-0-9, mcvs-1-0-8, mcvs-1-0-5, mcvs-1-0-4, mcvs-1-0-7, mcvs-1-0-6, mcvs-1-0-3, mcvs-1-0-2, HEAD
Branch point for: symlink-branch, mcvs-1-0-branch, asdf-import-branch
File MIME type: text/plain
Retargetting CVS with new system call bindings that are not GNU/Linux
specific.
1 #line 1 "modules.d"
2 /* Module für CLISP */
3 /* Bruno Haible 1994-1999 */
4
5 /* Alle Abhängigkeiten von modules.h werden hier gesammelt! */
6
7
8 #ifdef NO_CLISP_H
9 #include "lispbibl.c"
10 #else
11 #include "clisp.h"
12 #endif
13
14 /* Anzahl dazugelinkter Module */
15
16 global var uintC module_count =
17 #define MODULE(module_name) 1+
18 #include "modules.h"
19 #undef MODULE
20 0;
21
22 /* Tabelle der Module: */
23 extern uintC subr_tab_data_size;
24 extern uintC object_tab_size;
25 #define MODULE(module_name) \
26 extern subr_ module__##module_name##__subr_tab[]; \
27 extern uintC module__##module_name##__subr_tab_size; \
28 extern object module__##module_name##__object_tab[]; \
29 extern uintC module__##module_name##__object_tab_size; \
30 extern subr_initdata module__##module_name##__subr_tab_initdata[]; \
31 extern object_initdata module__##module_name##__object_tab_initdata[]; \
32 extern void module__##module_name##__init_function_1(); \
33 extern void module__##module_name##__init_function_2();
34 #include "modules.h"
35 #undef MODULE
36 #ifdef DYNAMIC_MODULES
37 #define _NEXT_NULL , NULL
38 #else
39 #define _NEXT_NULL
40 #endif
41 global module_ modules[] = {
42 { "clisp",
43 (subr_*)&subr_tab_data, &subr_tab_data_size,
44 (object*)&object_tab, &object_tab_size,
45 true, NULL, NULL, NULL, NULL
46 _NEXT_NULL
47 },
48 #define MODULE(module_name) \
49 { STRING(module_name), \
50 &module__##module_name##__subr_tab[0], &module__##module_name##__subr_tab_size, \
51 &module__##module_name##__object_tab[0], &module__##module_name##__object_tab_size, \
52 false, \
53 &module__##module_name##__subr_tab_initdata[0], \
54 &module__##module_name##__object_tab_initdata[0], \
55 &module__##module_name##__init_function_1, \
56 &module__##module_name##__init_function_2 \
57 _NEXT_NULL \
58 },
59 #include "modules.h"
60 #undef MODULE
61 { NULL, NULL, NULL, NULL, NULL, false, NULL, NULL, NULL, NULL _NEXT_NULL }
62 };
63

  ViewVC Help
Powered by ViewVC 1.1.5