/usr/lib/clisp-2.49/linkkit/modules.c is in clisp 1:2.49-9ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | /*
* modules for CLISP
* Bruno Haible 1994-2004
* Sam Steingold 2002-2009
*/
/* All dependencies on modules.h are collected here! */
#ifdef NO_CLISP_H
#include "lispbibl.c"
#else
#include "clisp.h"
#endif
/* the number of modules linked in */
modexp uintC module_count =
#define MODULE(module_name) 1+
#include "modules.h"
#undef MODULE
0;
/* module table: */
extern uintC subr_tab_data_size;
extern uintC object_tab_size;
#define MODULE(module_name) \
extern struct module__##module_name##__subr_tab_t \
{ VAROBJECTS_ALIGNMENT_DUMMY_DECL subr_t subrs[1]; } \
module__##module_name##__subr_tab; \
extern uintC module__##module_name##__subr_tab_size; \
extern gcv_object_t module__##module_name##__object_tab[]; \
extern uintC module__##module_name##__object_tab_size; \
extern subr_initdata_t module__##module_name##__subr_tab_initdata[]; \
extern object_initdata_t module__##module_name##__object_tab_initdata[]; \
extern void module__##module_name##__init_function_1(struct module_t *); \
extern void module__##module_name##__init_function_2(struct module_t *); \
extern void module__##module_name##__fini_function(struct module_t *);
#include "modules.h"
#undef MODULE
#ifdef DYNAMIC_MODULES
#define _NEXT_NULL , NULL
#else
#define _NEXT_NULL
#endif
modexp module_t modules[] = {
{ "clisp",
#if DYNAMIC_TABLES
NULL,
#else
(subr_t*)((char*)&subr_tab_data+varobjects_misaligned),
#endif
&subr_tab_data_size,
#if DYNAMIC_TABLES
NULL,
#else
(gcv_object_t*)&object_tab,
#endif
&object_tab_size,
true, NULL, NULL, NULL, NULL, NULL
_NEXT_NULL },
#define MODULE(module_name) \
{ #module_name, /* cannot use STRING(): module_name may be a CPP macro */ \
&module__##module_name##__subr_tab.subrs[0], \
&module__##module_name##__subr_tab_size, \
&module__##module_name##__object_tab[0], \
&module__##module_name##__object_tab_size, \
false, \
&module__##module_name##__subr_tab_initdata[0], \
&module__##module_name##__object_tab_initdata[0], \
&module__##module_name##__init_function_1, \
&module__##module_name##__init_function_2, \
&module__##module_name##__fini_function \
_NEXT_NULL \
},
#include "modules.h"
#undef MODULE
{ NULL, NULL, NULL, NULL, NULL, false, NULL, NULL, NULL, NULL, NULL _NEXT_NULL }
};
|