From cecf5156eef1c6e2b30c367d609d8722666cedc9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 6 Feb 1997 16:57:22 -0800
Subject: [PATCH] some more user-friendlyness added
Rev: src/constants.c:1.8
Rev: src/constants.h:1.4
---
src/constants.c | 17 +++++++++++++++++
src/constants.h | 2 ++
2 files changed, 19 insertions(+)
diff --git a/src/constants.c b/src/constants.c
index fd0a855950..a19c5171e4 100644
--- a/src/constants.c
+++ b/src/constants.c
@@ -43,6 +43,23 @@ void low_add_efun(struct pike_string *name, struct svalue *fun)
}
}
+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,
diff --git a/src/constants.h b/src/constants.h
index 1c10731dfa..f18977e32e 100644
--- a/src/constants.h
+++ b/src/constants.h
@@ -28,6 +28,8 @@ struct callable
/* Prototypes begin here */
struct mapping *get_builtin_constants();
void low_add_efun(struct pike_string *name, struct svalue *fun);
+void low_add_constant(char *name, struct svalue *fun);
+void add_global_program(char *name, struct program *p);
struct callable *make_callable(c_fun fun,
char *name,
char *type,
--
GitLab