forked from cotillion/cd-gamedriver
-
Notifications
You must be signed in to change notification settings - Fork 0
/
simul_efun.c
101 lines (89 loc) · 2.3 KB
/
simul_efun.c
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 <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "config.h"
#include "lint.h"
#include "mstring.h"
#include "interpret.h"
#include "object.h"
#include "exec.h"
#include "lex.h"
#include "simulate.h"
void dump_smart_log (void);
struct object *simul_efun_ob = 0;
/*
* If there is a simul_efun file, then take care of it and extract all
* information we need.
*/
void
get_simul_efun()
{
struct object *ob;
#define SIMULFILE "secure/simul_efun.c"
FILE *f;
extern struct program *prog;
extern char *current_file;
extern int total_lines;
extern int num_parse_error;
extern char *inherit_file;
extern char *current_loaded_file;
extern void init_smart_log(void);
f = fopen(SIMULFILE, "r");
if (f == 0)
{
(void)fprintf(stderr, SIMULFILE " not found.\n");
exit(1);
}
#if 1
init_smart_log();
start_new_file(f);
current_file = string_copy(SIMULFILE); /* This one is freed below */
current_loaded_file = SIMULFILE;
compile_file();
end_new_file();
current_loaded_file = 0;
total_lines = 0;
(void)fclose(f);
free(current_file);
current_file = 0;
dump_smart_log();
if (inherit_file || num_parse_error > 0 || prog == 0)
{
(void)fprintf(stderr, "Error in " SIMULFILE ".\n");
return;
}
(void)fprintf(stderr,"%s loaded: %d functions\n", SIMULFILE,
prog->num_functions);
if (prog->num_functions == 0)
return;
/*
We make an object so that it can be updated.
*/
ob = get_empty_object();
ob->name = string_copy("secure/simul_efun");
ob->prog = prog;
ob->prog->flags |= PRAGMA_RESIDENT;
simul_efun_ob = ob;
add_ref(ob, "simul_efun");
enter_object_hash(ob); /* add name to fast object lookup table */
{
int num_var, i;
extern int tot_alloc_variable_size;
num_var = ob->prog->num_variables +
ob->prog->inherit[ob->prog->num_inherited - 1]
.variable_index_offset + 1;
if (ob->variables)
fatal("Object allready initialized!\n");
ob->variables = (struct svalue *)
xalloc(num_var * sizeof(struct svalue));
tot_alloc_variable_size += num_var * sizeof(struct svalue);
for (i= 0; i<num_var; i++)
ob->variables[i] = const0;
ob->variables++;
}
current_object = 0;
#else
simul_efun_ob = load_object(SIMULFILE, 1, 0);
#endif
return;
}