home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-ki.lha / modules.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-20  |  1.9 KB  |  62 lines
  1. #line 1 "modules.d"
  2. /* Module für CLISP */
  3. /* Bruno Haible 1.4.1995 */
  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. #line 11
  14.  
  15. #ifndef DYNAMIC_MODULES
  16.  
  17. /* Anzahl dazugelinkter Module */
  18.  
  19. global var uintC module_count =
  20.   #define MODULE(module_name)  1+
  21.   #include "modules.h"
  22.   #undef MODULE
  23.   0;
  24.  
  25. /* Tabelle der Module: */
  26.   extern uintC subr_tab_data_size;
  27.   extern uintC object_tab_size;
  28.   #define MODULE(module_name)  \
  29.     extern subr_ module__##module_name##__subr_tab[]; \
  30.     extern uintC module__##module_name##__subr_tab_size; \
  31.     extern object module__##module_name##__object_tab[]; \
  32.     extern uintC module__##module_name##__object_tab_size; \
  33.     extern subr_initdata module__##module_name##__subr_tab_initdata[]; \
  34.     extern object_initdata module__##module_name##__object_tab_initdata[]; \
  35.     extern void module__##module_name##__init_function_1(); \
  36.     extern void module__##module_name##__init_function_2();
  37.   #include "modules.h"
  38.   #undef MODULE
  39.   global module_ modules[] =
  40.     { { "clisp",
  41.         (subr_*)&subr_tab_data, &subr_tab_data_size,
  42.         (object*)&object_tab, &object_tab_size,
  43.         TRUE, NULL, NULL, NULL, NULL
  44.       },
  45.       #define MODULE(module_name)  \
  46.         { STRING(module_name), \
  47.           &module__##module_name##__subr_tab[0], &module__##module_name##__subr_tab_size, \
  48.           &module__##module_name##__object_tab[0], &module__##module_name##__object_tab_size, \
  49.           FALSE, \
  50.           &module__##module_name##__subr_tab_initdata[0], \
  51.           &module__##module_name##__object_tab_initdata[0], \
  52.           &module__##module_name##__init_function_1, \
  53.           &module__##module_name##__init_function_2 \
  54.         },
  55.       #include "modules.h"
  56.       #undef MODULE
  57.       { NULL, NULL, NULL, NULL, NULL, FALSE, NULL, NULL, NULL, NULL }
  58.     };
  59.  
  60. #endif
  61. #line 58
  62.