pike.git/
src/
constants.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-02-07
1997-02-07 00:57:22 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
cecf5156eef1c6e2b30c367d609d8722666cedc9 (
18
lines) (+
18
/-
0
)
[
Show
|
Annotate
]
Branch:
7.9
some more user-friendlyness added
Rev: src/constants.c:1.8
Rev: src/constants.h:1.4
43:
} }
+
void low_add_constant(char *name, struct svalue *fun)
+
{
+
struct pike_string *p;
+
p=make_shared_string(name);
+
low_add_efun(p, fun);
+
free_string(p);
+
}
+
+
void add_global_program(char *name, struct program *p)
+
{
+
struct svalue s;
+
s.type=T_PROGRAM;
+
s.subtype=0;
+
s.u.program=p;
+
low_add_constant(name, &s);
+
}
+
struct callable *make_callable(c_fun fun, char *name, char *type,