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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
/*-----------------------------------------------------------------*-C-*---
* File: handc/runtime/linktype.h
*
* Copyright (C)1997 Donovan Kolbly <d.kolbly@rscheme.org>
* as part of the RScheme project, licensed for free use.
* See <http://www.rscheme.org/> for the latest information.
*
* File version: 1.9
* File mod date: 1997.11.29 23:10:49
* System build: v0.7.2, 97.12.21
*
* Purpose: C-unit linkage
*------------------------------------------------------------------------*
* Notes:
* Data structures used to pickle and unpickle code pointers,
* and to store C-level information about code modules
*------------------------------------------------------------------------*/
#ifndef _H_RSCHEME_LINKTYPE
#define _H_RSCHEME_LINKTYPE
#include <rscheme/obj.h>
#include <rscheme/bcextend.h>
struct module_descr;
struct part_descr;
struct function_descr;
/*
* note: the FASL recognizes stubbed out procedures
* by having a function_descr which points to a
* part_descr with tag >= STUB_PART_TAG (== 2^29)
*/
#define STUB_PART_TAG (1<<29)
struct part_descr {
UINT_32 tag; /* must be 1st, to work w/FASL */
struct module_descr *in_module;
struct function_descr **functions;
const char *name;
UINT_32 unswizzled_as; /* for use during saving */
};
struct function_descr {
struct part_descr *in_part; /* must be first, to work with FASL */
jump_addr *monotones;
const char *name;
};
struct root_info {
int slot;
const char *name;
};
struct bcx_descr {
UINT_8 extn_code;
RS_bc_extension_fn *handler;
char *name;
struct module_descr *owner;
};
struct module_descr {
const char *name;
struct part_descr **parts;
unsigned num_roots;
obj *root_vector;
struct root_info *roots;
struct bcx_descr *bc_extensions;
unsigned num_bc_extensions;
char *loaded_from; /* NULL for statically loaded */
};
extern struct module_descr **master_table;
void init_linkage( struct module_descr **initial_table );
void install_module( struct module_descr *m );
struct module_descr *find_module( const char *module );
struct part_descr *find_part( struct module_descr *m, int tag );
#ifdef PLATFORM_AIX
struct export_table {
char *name;
void *value;
};
#endif
/* install_bc_extension() is implemented in bci/bcinterp.c,
but is private (only called from install_module & init_linkage)
*/
void install_bc_extension( struct bcx_descr *extn );
/* used to un-stub-out a template, which is recognized
* by being in a part with tag >= STUB_PART_TAG
*
* library provides a default, error-signalling version which
* is useful for the base system which never encounters such
* a part tag
*/
jump_addr template_unstub( obj the_template );
/*
* internal low-level interface for dynamic linking of code
*/
void *resolve_link_symbol( void *info, const char *sym );
void *dynamic_link_file( const char *path );
void done_resolving( void *info );
void init_dynamic_link( const char *argv0 );
struct module_descr *dynamic_link_c_unit( const char *path,
const char *unit_name );
#endif /* _H_RSCHEME_LINKTYPE */
|
