home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / D / CLISP / CLISPSRC.TAR / clisp-1995-01-01 / src / modules.d < prev    next >
Encoding:
Text File  |  1994-12-18  |  1.6 KB  |  55 lines
  1. # Module fⁿr CLISP
  2. # Bruno Haible 12.7.1994
  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. #ifndef DYNAMIC_MODULES
  14.  
  15. # Anzahl dazugelinkter Module
  16.  
  17. global var uintC module_count =
  18.   #define MODULE(module_name)  1+
  19.   #include "modules.h"
  20.   #undef MODULE
  21.   0;
  22.  
  23. # Tabelle der Module:
  24.   extern uintC subr_tab_data_size;
  25.   extern uintC object_tab_size;
  26.   #define MODULE(module_name)  \
  27.     extern subr_ CONCAT3(module__,module_name,__subr_tab)[]; \
  28.     extern uintC CONCAT3(module__,module_name,__subr_tab_size); \
  29.     extern object CONCAT3(module__,module_name,__object_tab)[]; \
  30.     extern uintC CONCAT3(module__,module_name,__object_tab_size); \
  31.     extern subr_initdata CONCAT3(module__,module_name,__subr_tab_initdata)[]; \
  32.     extern void CONCAT3(module__,module_name,__init_function)();
  33.   #include "modules.h"
  34.   #undef MODULE
  35.   global module_ modules[] =
  36.     { { "clisp",
  37.         (subr_*)&subr_tab_data, &subr_tab_data_size,
  38.         (object*)&object_tab, &object_tab_size,
  39.         TRUE, NULL, NULL
  40.       },
  41.       #define MODULE(module_name)  \
  42.         { STRING(module_name), \
  43.           &CONCAT3(module__,module_name,__subr_tab)[0], &CONCAT3(module__,module_name,__subr_tab_size), \
  44.           &CONCAT3(module__,module_name,__object_tab)[0], &CONCAT3(module__,module_name,__object_tab_size), \
  45.           FALSE, \
  46.           &CONCAT3(module__,module_name,__subr_tab_initdata)[0], \
  47.           &CONCAT3(module__,module_name,__init_function) \
  48.         },
  49.       #include "modules.h"
  50.       #undef MODULE
  51.       { NULL, NULL, NULL, NULL, NULL, FALSE, NULL, NULL }
  52.     };
  53.  
  54. #endif
  55.