begin work on strings

.gitignore

@@ -3,3 +3,4 @@ wscm
 compile_commands.json
 .cache
 .envrc
+test.lisp

include/wolflisp.h

@@ -38,6 +38,11 @@ typedef struct Sy {
   U8 *data;
 } Sy;
 
+typedef struct Ss {
+  Z len;
+  char data[];
+} Ss;
+
 // Closure
 typedef struct Cl {
   O args, body, env;
@@ -73,6 +78,7 @@ enum {
   TYPE_SYM = 2,
   TYPE_PRIM = 4,
   TYPE_PAIR,
+  TYPE_STR,
   TYPE_CLOS,
   TYPE_MAC,
   TYPE_FWD,
@@ -197,6 +203,8 @@ O pair_make(In *in, O head, O tail);
 // Unwrap a pair
 Pa *pair_unwrap(O obj);
 
+O string_make(In *in, const char *cstr, I len);
+
 V print(O obj);
 V println(O obj);
 

meson.build

@@ -18,6 +18,7 @@ src = [
   'src/prim.c',
   'src/print.c',
   'src/read.c',
+  'src/string.c',
   'src/symbol.c',
   'src/type.c',
 ]

src/print.c

@@ -55,6 +55,11 @@ void print(O obj) {
       case TYPE_PAIR:
         print_pair(obj);
         break;
+      case TYPE_STR: {
+        Ss *s = (Ss *)(h + 1);
+        printf("%.*s", (int)s->len, s->data);
+        break;
+      }
       case TYPE_CLOS: {
         Cl *cl = (Cl *)(h + 1);
         printf("<#fn ");

src/read.c

@@ -76,7 +76,7 @@ int read_expr(In *in, Lx *lex, O *result) {
   }
 
   case TOK_STRING:
-    *result = symbol_make(in, lex->buffer);
+    *result = string_make(in, lex->buffer, -1);
     break;
 
   case TOK_WORD:

src/string.c

@@ -0,0 +1,15 @@
+#include <string.h>
+#include <wolflisp.h>
+
+O string_make(In *in, const char *cstr, I len) {
+  if (len < 0)
+    len = strlen(cstr);
+  Z size = sizeof(Gh) + sizeof(Ss) + len + 1;
+  Gh *hdr = gc_alloc(&in->gc, size);
+  hdr->type = TYPE_STR;
+  Ss *s = (Ss *)(hdr + 1);
+  s->len = len;
+  memcpy(s->data, cstr, len);
+  s->data[len] = 0;
+  return BOX(hdr);
+}

src/type.c

@@ -10,6 +10,7 @@ static const char *typenames[] = {
   [TYPE_SYM] = "symbol",
   [TYPE_PRIM] = "primitive",
   [TYPE_PAIR] = "pair",
+  [TYPE_STR] = "string",
   [TYPE_CLOS] = "closure",
   [TYPE_MAC] = "macro",
 };