aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPřemysl Janouch <p.janouch@gmail.com>2017-05-17 23:22:43 +0200
committerPřemysl Janouch <p.janouch@gmail.com>2017-05-21 13:19:45 +0200
commitf7bce11c70c0315ef05ad063894bdb5ce949d48c (patch)
treeefdb20e6de55b327a54d2e88e0a802b1ec355d99
parente290683f0c88d88b90aab587bee87d548fdb594f (diff)
downloadell-f7bce11c70c0315ef05ad063894bdb5ce949d48c.tar.gz
ell-f7bce11c70c0315ef05ad063894bdb5ce949d48c.tar.xz
ell-f7bce11c70c0315ef05ad063894bdb5ce949d48c.zip
Make it compile
-rwxr-xr-xell.c58
1 files changed, 16 insertions, 42 deletions
diff --git a/ell.c b/ell.c
index f26a2aa..0d0e3dd 100755
--- a/ell.c
+++ b/ell.c
@@ -435,8 +435,7 @@ parse (const char *s, const char **error) {
// --- Runtime -----------------------------------------------------------------
struct context {
- struct item *stack; ///< The current top of the stack
- size_t stack_size; ///< Number of items on the stack
+ struct item variables; ///< List of variables
char *error; ///< Error information
bool error_is_fatal; ///< Whether the error can be catched
@@ -460,23 +459,13 @@ struct fn *g_functions; ///< Maps words to functions
static void
context_init (struct context *ctx) {
- ctx->stack = NULL;
- ctx->stack_size = 0;
-
- ctx->error = NULL;
- ctx->error_is_fatal = false;
- ctx->memory_failure = false;
-
- ctx->user_data = NULL;
+ memset (ctx, 0, sizeof *ctx);
}
static void
context_free (struct context *ctx) {
- item_free_list (ctx->stack);
- ctx->stack = NULL;
-
+ item_free_list (ctx->variables.head);
free (ctx->error);
- ctx->error = NULL;
}
static bool
@@ -493,22 +482,6 @@ set_error (struct context *ctx, const char *format, ...) {
return false;
}
-static bool
-push (struct context *ctx, struct item *item) {
- // The `item' is typically a result from new_<type>(), thus when it is null,
- // that function must have failed. This is a shortcut for convenience.
- if (!item) {
- ctx->memory_failure = true;
- return false;
- }
-
- assert (item->next == NULL);
- item->next = ctx->stack;
- ctx->stack = item;
- ctx->stack_size++;
- return true;
-}
-
static bool execute (struct context *, struct item *);
static bool
@@ -588,12 +561,11 @@ register_script (const char *name, struct item *script) {
static bool
execute (struct context *ctx, struct item *script) {
for (; script; script = script->next) {
- if (script->type != ITEM_STRING) {
- if (!push (ctx, new_clone (script)))
- return false;
- }
- else if (!call_function (ctx, script->value))
- return false;
+ // TODO: this should be a list
+ // -> if the first item is a STRING, resolve it
+ // -> but handle special forms
+ // -> assign the rest of the items to variables
+ // -> recurse
}
return true;
}
@@ -628,14 +600,16 @@ init_runtime_library_scripts (void) {
return ok;
}
-defn (fn_print) {
- check_stack (1);
- struct item *item = pop (ctx);
- struct user_info *info = ctx->user_data;
+static struct item *
+var (struct context *ctx, const char *name) {
+ // TODO: go through the "ctx->variables" list of lists and look for "name"
+ return NULL;
+}
+defn (fn_print) {
struct buffer buf = BUFFER_INITIALIZER;
- item_to_str (item, &buf);
- item_free (item);
+ struct item *item = var (ctx, "1");
+ buffer_append (&buf, item->value, item->len);
buffer_append_c (&buf, '\0');
if (buf.memory_failure) {
ctx->memory_failure = true;