initial

1 files changed, 66 insertions, 0 deletions

diff --git a/other/burneye/src/conf/tmp/functions.c b/other/burneye/src/conf/tmp/functions.c
new file mode 100644
index 0000000..96af53c
--- /dev/null
+++ b/other/burneye/src/conf/tmp/functions.c
@@ -0,0 +1,66 @@
+/* fornax - distributed network
+ *
+ * by team teso
+ *
+ * function routines
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include "functions.h"
+#include "functionlist.h"
+#include "symbol.h"
+
+
+int     fnc_debug (sym_elem **stab);
+
+function        gl_fnc[] = {
+        /* primitives */
+        { "nop",                NULL },
+        { "debug",              fnc_debug },
+
+        /* network */
+        { "net.listen",         f_listen },
+
+        /* fornax system */
+        { "sys.self",           node_self },
+
+        /* time management */
+        { "time.schedule",      tt_schedule },
+        { "time.erase",         tt_erase },
+
+        /* end of list */
+        { NULL,         NULL },
+};
+
+
+fnc_handler
+fnc_find (function ftab[], char *name)
+{
+        int     stp_p;  /* step pointer */
+
+        for (stp_p = 0 ; ftab[stp_p].name != NULL ; ++stp_p) {
+                if (strcasecmp (ftab[stp_p].name, name) == 0)
+                        return (ftab[stp_p].f_handler);
+        }
+
+        return (NULL);
+}
+
+
+int
+fnc_debug (sym_elem **stab)
+{
+        int     n;
+
+        if (stab == NULL)
+                return (0);
+
+        for (n = 0 ; stab[n] != NULL ; ++n) {
+                printf ("%s . %s\n", (stab[n]->key == NULL) ? "NULL" : stab[n]->key,
+                        (stab[n]->value == NULL) ? "NULL" : stab[n]->value);
+        }
+
+        return (0);
+}
+