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
|
// string cvs_version = "$Id: module_support.pike,v 1.15 1998/02/10 18:36:06 per Exp $";
#include <roxen.h>
#include <module.h>
/* Set later on to something better in roxen.pike::main() */
//array (object) configurations;
mapping (string:mixed *) variables=([]);
/* Variable support for the main Roxen "module". Normally this is
* inherited from module.pike, but this is not possible, or wanted, in
* this case. Instead we define a few support functions.
*/
int setvars( mapping (string:mixed) vars )
{
string v;
// perror("Setvars: %O\n", vars);
foreach( indices( vars ), v )
if(variables[v])
variables[v][ VAR_VALUE ] = vars[ v ];
return 1;
}
int globvar(string var, mixed value, string name, int type,
string|void doc_str, mixed|void misc,
int|function|void not_in_config)
{
variables[var] = allocate( VAR_SIZE );
variables[var][ VAR_VALUE ] = value;
variables[var][ VAR_TYPE ] = type & VAR_TYPE_MASK;
variables[var][ VAR_DOC_STR ] = doc_str;
variables[var][ VAR_NAME ] = name;
variables[var][ VAR_MISC ] = misc;
if((type&~VAR_TYPE_MASK) & VAR_EXPERT)
variables[var][ VAR_CONFIGURABLE ] = VAR_EXPERT;
else if((type&~VAR_TYPE_MASK) & VAR_MORE)
variables[var][ VAR_CONFIGURABLE ] = VAR_MORE;
else if(intp(not_in_config))
variables[var][ VAR_CONFIGURABLE ]= !not_in_config;
else if(functionp(not_in_config))
variables[var][ VAR_CONFIGURABLE ]= not_in_config;
variables[var][ VAR_SHORTNAME ] = var;
}
public mixed query(void|string var)
{
if(var && variables[var])
return variables[var][ VAR_VALUE ];
if(this_object()->current_configuration)
return this_object()->current_configuration->query(var);
error("query("+var+"). Unknown variable.\n");
}
mixed set(string var, mixed val)
{
#if DEBUG_LEVEL > 30
perror(sprintf("MAIN: set(\"%s\", %O)\n", var, val));
#endif
if(variables[var])
{
#if DEBUG_LEVEL > 28
perror("MAIN: Setting global variable.\n");
#endif
return variables[var][VAR_VALUE] = val;
}
error("set("+var+"). Unknown variable.\n");
}
/* ================================================= */
/* ================================================= */
#define SIMULATE(X) mixed X( mixed ...a ) \
{ \
if(roxenp()->current_configuration) \
return roxenp()->current_configuration->X(@a); \
error("No current configuration\n"); \
}
SIMULATE(unload_module);
SIMULATE(disable_module);
SIMULATE(enable_module);
SIMULATE(load_module);
SIMULATE(find_module);
SIMULATE(register_module_load_hook);
|
