/[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 - (hide 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 kaz 1.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