artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mini-mes: Support vectors.

Browse source 
* scaffold/mini-mes.c (REF, MAKE_REF): New macro.
  Include vector.h, vector.c.
  (mes_builtins): Include vector.i, vector.environment.i.
This commit is contained in:
Jan Nieuwenhuizen 2017-03-25 14:05:17 +01:00
parent 6c6df16ca3
commit ddf96c3958
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scaffold/mini-mes.c
View file

@ -163,12 +163,14 @@ int g_function = 0;
#include "mini-mes.h" #include "mini-mes.h"
// #include "posix.h" // #include "posix.h"
// #include "reader.h" // #include "reader.h"
#include "vector.h"
#define TYPE(x) (g_cells[x].type) #define TYPE(x) (g_cells[x].type)
#define CAR(x) g_cells[x].car #define CAR(x) g_cells[x].car
#define LENGTH(x) g_cells[x].car #define LENGTH(x) g_cells[x].car
#define REF(x) g_cells[x].car
#define STRING(x) g_cells[x].car #define STRING(x) g_cells[x].car
#define CDR(x) g_cells[x].cdr #define CDR(x) g_cells[x].cdr
@ -183,6 +185,7 @@ int g_function = 0;
#define MAKE_CHAR(n) make_cell_ (tmp_num_ (TCHAR), 0, tmp_num2_ (n)) #define MAKE_CHAR(n) make_cell_ (tmp_num_ (TCHAR), 0, tmp_num2_ (n))
#define MAKE_CONTINUATION(n) make_cell_ (tmp_num_ (TCONTINUATION), n, g_stack) #define MAKE_CONTINUATION(n) make_cell_ (tmp_num_ (TCONTINUATION), n, g_stack)
#define MAKE_NUMBER(n) make_cell_ (tmp_num_ (TNUMBER), 0, tmp_num2_ (n)) #define MAKE_NUMBER(n) make_cell_ (tmp_num_ (TNUMBER), 0, tmp_num2_ (n))
#define MAKE_REF(n) make_cell_ (tmp_num_ (TREF), n, 0)
#define CAAR(x) CAR (CAR (x)) #define CAAR(x) CAR (CAR (x))
#define CADR(x) CAR (CDR (x)) #define CADR(x) CAR (CDR (x))
@ -1525,12 +1528,14 @@ mes_builtins (SCM a) ///((internal))
// #include "math.i" // #include "math.i"
// #include "posix.i" // #include "posix.i"
// #include "reader.i" // #include "reader.i"
#include "vector.i"
// #include "lib.environment.i" // #include "lib.environment.i"
// #include "math.environment.i" // #include "math.environment.i"
#include "mini-mes.environment.i" #include "mini-mes.environment.i"
// #include "posix.environment.i" // #include "posix.environment.i"
// #include "reader.environment.i" // #include "reader.environment.i"
#include "vector.environment.i"
return a; return a;
} }
@ -1596,6 +1601,13 @@ bload_env (SCM a) ///((internal))
return r2; return r2;
} }
// #include "math.c"
// #include "posix.c"
// #include "lib.c"
// #include "reader.c"
#include "vector.c"
// #include "gc.c"
int int
main (int argc, char *argv[]) main (int argc, char *argv[])
{ {