mirror of
https://github.com/samsonjs/lake.git
synced 2026-03-25 08:55:49 +00:00
54831a34fa
- add booleans, dotted lists, functions - proper lexical scope - special forms: define, set!, and, or, quote, lambda - added some basic list manipulations - print functions and dotted lists - removed nil - more robust in general
66 lines
1.4 KiB
C
66 lines
1.4 KiB
C
/**
|
|
* fn.c
|
|
* Lake Scheme
|
|
*
|
|
* Copyright 2011 Sami Samhuri
|
|
* MIT License
|
|
*
|
|
*/
|
|
|
|
#include <glib.h>
|
|
#include <stdlib.h>
|
|
#include "env.h"
|
|
#include "fn.h"
|
|
#include "lake.h"
|
|
|
|
static LakeFn *fn_alloc(void)
|
|
{
|
|
LakeFn *fn = g_malloc(sizeof(LakeFn));
|
|
VAL(fn)->type = TYPE_FN;
|
|
VAL(fn)->size = sizeof(LakeFn);
|
|
return fn;
|
|
}
|
|
|
|
LakeFn *fn_make(LakeList *params, LakeSym *varargs, LakeList *body, Env *closure)
|
|
{
|
|
LakeFn *fn = fn_alloc();
|
|
fn->params = params;
|
|
fn->varargs = varargs;
|
|
fn->body = body;
|
|
fn->closure = closure;
|
|
return fn;
|
|
}
|
|
|
|
char *fn_repr(LakeFn *fn)
|
|
{
|
|
GString *s = g_string_new("(lambda ");
|
|
char *s2;
|
|
if (LIST_N(fn->params) && fn->varargs) {
|
|
LakeDottedList *params = dlist_make(fn->params, VAL(fn->varargs));
|
|
s2 = dlist_repr(params);
|
|
g_string_append(s, s2);
|
|
free(s2);
|
|
}
|
|
else if (fn->varargs) {
|
|
s2 = repr(VAL(fn->varargs));
|
|
g_string_append(s, s2);
|
|
free(s2);
|
|
}
|
|
else {
|
|
s2 = repr(VAL(fn->params));
|
|
g_string_append(s, s2);
|
|
free(s2);
|
|
}
|
|
g_string_append(s, " ");
|
|
int i;
|
|
for (i = 0; i < LIST_N(fn->body); ++i) {
|
|
s2 = repr(LIST_VAL(fn->body, i));
|
|
g_string_append(s, s2);
|
|
g_free(s2);
|
|
if (i != LIST_N(fn->body) - 1) g_string_append(s, " ");
|
|
}
|
|
g_string_append(s, ")");
|
|
gchar *repr = s->str;
|
|
g_string_free(s, FALSE); /* don't free char data */
|
|
return repr;
|
|
}
|