/[meta-cvs]/meta-cvs/F-4CFD700A1F5CA7B906F58892AEF1EF3B.d
ViewVC logotype

Contents of /meta-cvs/F-4CFD700A1F5CA7B906F58892AEF1EF3B.d

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
Retargetting CVS with new system call bindings that are not GNU/Linux
specific.
1 # Module für CLISP
2 # Bruno Haible 1994-1999
3
4 # Alle Abhängigkeiten von modules.h werden hier gesammelt!
5
6
7 #ifdef NO_CLISP_H
8 #include "lispbibl.c"
9 #else
10 #include "clisp.h"
11 #endif
12
13 # Anzahl dazugelinkter Module
14
15 global var uintC module_count =
16 #define MODULE(module_name) 1+
17 #include "modules.h"
18 #undef MODULE
19 0;
20
21 # Tabelle der Module:
22 extern uintC subr_tab_data_size;
23 extern uintC object_tab_size;
24 #define MODULE(module_name) \
25 extern subr_ module__##module_name##__subr_tab[]; \
26 extern uintC module__##module_name##__subr_tab_size; \
27 extern object module__##module_name##__object_tab[]; \
28 extern uintC module__##module_name##__object_tab_size; \
29 extern subr_initdata module__##module_name##__subr_tab_initdata[]; \
30 extern object_initdata module__##module_name##__object_tab_initdata[]; \
31 extern void module__##module_name##__init_function_1(); \
32 extern void module__##module_name##__init_function_2();
33 #include "modules.h"
34 #undef MODULE
35 #ifdef DYNAMIC_MODULES
36 #define _NEXT_NULL , NULL
37 #else
38 #define _NEXT_NULL
39 #endif
40 global module_ modules[] = {
41 { "clisp",
42 (subr_*)&subr_tab_data, &subr_tab_data_size,
43 (object*)&object_tab, &object_tab_size,
44 true, NULL, NULL, NULL, NULL
45 _NEXT_NULL
46 },
47 #define MODULE(module_name) \
48 { STRING(module_name), \
49 &module__##module_name##__subr_tab[0], &module__##module_name##__subr_tab_size, \
50 &module__##module_name##__object_tab[0], &module__##module_name##__object_tab_size, \
51 false, \
52 &module__##module_name##__subr_tab_initdata[0], \
53 &module__##module_name##__object_tab_initdata[0], \
54 &module__##module_name##__init_function_1, \
55 &module__##module_name##__init_function_2 \
56 _NEXT_NULL \
57 },
58 #include "modules.h"
59 #undef MODULE
60 { NULL, NULL, NULL, NULL, NULL, false, NULL, NULL, NULL, NULL _NEXT_NULL }
61 };
62

  ViewVC Help
Powered by ViewVC 1.1.5