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
|
#include "lib9.h"
#include "isa.h"
#include "interp.h"
#include "raise.h"
#include "pool.h"
#include "kernel.h"
#include "dynld.h"
#define DBG if(1) print
extern Dynobj* dynld(int);
extern char* enverror(void);
typedef struct{char *name; long sig; void (*fn)(void*); int size; int np; uchar map[16];} Runtab;
static void*
addr(char *pre, char *suf, Dynobj *o, ulong sig)
{
char buf[64];
if(o == nil || strlen(pre)+strlen(suf) > 64-1)
return nil;
snprint(buf, sizeof(buf), "%s%s", pre, suf);
return dynimport(o, buf, sig);
}
Module*
newdyncode(int fd, char *path, Dir *dir)
{
Module *m;
void *v;
Runtab *r;
Dynobj *o;
char *name;
DBG("module path is %s\n", path);
m = nil;
o = dynld(fd);
if(o == nil){
DBG("%s\n", enverror());
goto Error;
}
v = addr("XXX", "module", o, signof(char*));
if(v == nil)
goto Error;
name = *(char**)v;
DBG("module name is %s\n", name);
r = addr(name, "modtab", o, signof(Runtab[]));
if(r == nil)
goto Error;
m = builtinmod(name, r, 0);
m->rt = DYNMOD;
m->dev = dir->dev;
m->dtype = dir->type;
m->qid = dir->qid;
m->mtime = dir->mtime;
m->path = strdup(path);
if(m->path == nil)
goto Error;
m->dlm = o;
DBG("module base is 0x%p\n", o->base);
return m;
Error:
if(o != nil)
dynobjfree(o);
if(m != nil)
freemod(m);
return nil;
}
void
freedyncode(Module *m)
{
dynobjfree(m->dlm);
}
static void
callfn(Module *m, char *fn)
{
void *v, (*f)(void);
if(m->ref != 1)
return;
v = addr(m->name, fn, m->dlm, signof(*f));
if(v != nil){
f = v;
(*f)();
}
}
void
newdyndata(Modlink *ml)
{
callfn(ml->m, "init");
}
void
freedyndata(Modlink *ml)
{
callfn(ml->m, "end");
}
|
