Move cord helper functions into their own file

Makefile

@@ -36,7 +36,7 @@ TESTS=$(patsubst %.tm,%.tm.testresult,$(wildcard test/*.tm))
 
 all: libtomo.so tomo
 
-tomo: tomo.o $(BUILTIN_OBJS) ast.o parse.o environment.o types.o typecheck.o structs.o enums.o compile.o repl.o
+tomo: tomo.o $(BUILTIN_OBJS) ast.o parse.o environment.o types.o typecheck.o structs.o enums.o compile.o repl.o cordhelpers.o
 	@echo $(CC) $(CFLAGS_PLACEHOLDER) $(LDFLAGS) $^ $(LDLIBS) -o $@
 	@$(CC) $(CFLAGS) $(CWARN) $(LDFLAGS) $^ $(LDLIBS) -o $@
 

ast.c

@@ -7,6 +7,7 @@
 #include "ast.h"
 #include "builtins/integers.h"
 #include "builtins/text.h"
+#include "cordhelpers.h"
 
 static const char *OP_NAMES[] = {
     [BINOP_UNKNOWN]="unknown",

ast.h

@@ -2,6 +2,7 @@
 
 // Logic defining ASTs (abstract syntax trees) to represent code
 
+#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 #include <stdlib.h>

builtins/array.h

@@ -3,7 +3,6 @@
 // Functions that operate on arrays
 
 #include <stdbool.h>
-#include <gc/cord.h>
 
 #include "datatypes.h"
 #include "functions.h"

builtins/bool.c

@@ -2,7 +2,6 @@
 #include <ctype.h>
 #include <err.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 #include <stdlib.h>

builtins/bool.h

@@ -2,7 +2,6 @@
 
 // Boolean functions/type info
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/c_string.c

@@ -2,7 +2,6 @@
 #include <ctype.h>
 #include <err.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 #include <stdlib.h>

builtins/c_string.h

@@ -2,7 +2,6 @@
 
 // Type info and methods for CString datatype, which represents C's `char*`
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/channel.c

@@ -3,7 +3,6 @@
 #include <ctype.h>
 #include <err.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <math.h>
 #include <stdbool.h>
 #include <stdint.h>

builtins/channel.h

@@ -3,7 +3,6 @@
 // Functions that operate on channels (thread-safe arrays)
 
 #include <stdbool.h>
-#include <gc/cord.h>
 
 #include "datatypes.h"
 #include "types.h"

builtins/files.c

@@ -9,6 +9,7 @@
 #include <libgen.h>
 #include <limits.h>
 #include <stdarg.h>
+#include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <sys/param.h>

builtins/functions.h

@@ -2,7 +2,6 @@
 
 // Built-in functions
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/integers.c

@@ -1,7 +1,6 @@
 // Integer type infos and methods
 #include <ctype.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <gmp.h>
 #include <stdbool.h>
 #include <stdint.h>

builtins/integers.h

@@ -2,7 +2,6 @@
 
 // Integer type infos and methods
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 #include <stdlib.h>

builtins/memory.h

@@ -2,7 +2,6 @@
 
 // Type info and methods for "Memory" opaque type
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/nums.c

@@ -2,7 +2,6 @@
 
 #include <float.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <math.h>
 #include <stdbool.h>
 #include <stdint.h>

builtins/nums.h

@@ -2,7 +2,6 @@
 
 // Type infos and methods for Nums (floating point)
 
-#include <gc/cord.h>
 #include <math.h>
 #include <stdbool.h>
 #include <stdint.h>

builtins/optionals.h

@@ -2,7 +2,6 @@
 
 // Optional types
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/path.h

@@ -2,7 +2,6 @@
 
 // A lang for filesystem paths
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/pointer.c

@@ -2,7 +2,6 @@
 #include <ctype.h>
 #include <err.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 #include <stdlib.h>

builtins/pointer.h

@@ -2,7 +2,6 @@
 
 // Type infos and methods for Pointer types
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/shell.h

@@ -2,7 +2,6 @@
 
 // A lang for Shell Command Language
 
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <stdint.h>
 

builtins/thread.h

@@ -4,7 +4,6 @@
 
 #include <pthread.h>
 #include <stdbool.h>
-#include <gc/cord.h>
 
 #include "datatypes.h"
 #include "types.h"

builtins/tomo.h

@@ -4,7 +4,6 @@
 // import
 
 #include <gc.h>
-#include <gc/cord.h>
 #include <gmp.h>
 #include <stdbool.h>
 #include <stdint.h>

builtins/util.c

@@ -1,7 +1,6 @@
 // Built-in utility functions
 #include <ctype.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <stdarg.h>
 #include <stdio.h>
 #include <stdlib.h>
@@ -59,66 +58,4 @@ public char *mangle(const char *name)
     return mangled;
 }
 
-__attribute__((format(printf, 1, 2)))
-public CORD CORD_asprintf(CORD fmt, ...)
-{
-    va_list args;
-    va_start(args, fmt);
-    CORD c = NULL;
-    CORD_vsprintf(&c, fmt, args);
-    va_end(args);
-    return c;
-}
-
-public CORD CORD_quoted(CORD str)
-{
-    CORD quoted = "\"";
-    CORD_pos i;
-#pragma GCC diagnostic ignored "-Wsign-conversion"
-    CORD_FOR(i, str) {
-        char c = CORD_pos_fetch(i);
-        switch (c) {
-        case '\a': quoted = CORD_cat(quoted, "\\a"); break;
-        case '\b': quoted = CORD_cat(quoted, "\\b"); break;
-        case '\x1b': quoted = CORD_cat(quoted, "\\e"); break;
-        case '\f': quoted = CORD_cat(quoted, "\\f"); break;
-        case '\n': quoted = CORD_cat(quoted, "\\n"); break;
-        case '\r': quoted = CORD_cat(quoted, "\\r"); break;
-        case '\t': quoted = CORD_cat(quoted, "\\t"); break;
-        case '\v': quoted = CORD_cat(quoted, "\\v"); break;
-        case '"': quoted = CORD_cat(quoted, "\\\""); break;
-        case '\\': quoted = CORD_cat(quoted, "\\\\"); break;
-        case '\x00' ... '\x06': case '\x0E' ... '\x1A':
-        case '\x1C' ... '\x1F': case '\x7F' ... '\x7F':
-            CORD_sprintf(&quoted, "%r\\x%02X", quoted, c);
-            break;
-        default: quoted = CORD_cat_char(quoted, c); break;
-        }
-    }
-    quoted = CORD_cat_char(quoted, '"');
-    return quoted;
-}
-
-public CORD CORD_replace(CORD c, CORD to_replace, CORD replacement)
-{
-    size_t len = CORD_len(c);
-    size_t replaced_len = CORD_len(to_replace);
-    size_t pos = 0;
-    CORD ret = CORD_EMPTY;
-    while (pos < len) {
-        size_t found = CORD_str(c, pos, to_replace);
-        if (found == CORD_NOT_FOUND) {
-            if (pos < len)
-                ret = CORD_cat(ret, CORD_substr(c, pos, len));
-            return ret;
-        }
-        if (found > pos)
-            ret = CORD_cat(ret, CORD_substr(c, pos, found-pos));
-        ret = CORD_cat(ret, replacement);
-        pos = found + replaced_len;
-    }
-    return ret;
-}
-
-
 // vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0

builtins/util.h

@@ -4,7 +4,6 @@
 
 #include <assert.h>
 #include <gc.h>
-#include <gc/cord.h>
 #include <stdbool.h>
 #include <string.h>
 #include <err.h>
@@ -37,9 +36,6 @@
 
 extern bool USE_COLOR;
 
-#define CORD_appendf(cord, fmt, ...) CORD_sprintf(cord, "%r" fmt, *(cord) __VA_OPT__(,) __VA_ARGS__)
-#define CORD_all(...) CORD_catn(sizeof((CORD[]){__VA_ARGS__})/sizeof(CORD), __VA_ARGS__)
-
 #define REVERSE_LIST(list) do { \
     __typeof(list) _prev = NULL; \
     __typeof(list) _next = NULL; \
@@ -66,9 +62,5 @@ extern bool USE_COLOR;
 
 __attribute__((format(printf, 1, 2)))
 char *heap_strf(const char *fmt, ...);
-__attribute__((format(printf, 1, 2)))
-CORD CORD_asprintf(CORD fmt, ...);
-CORD CORD_quoted(CORD str);
-CORD CORD_replace(CORD c, CORD to_replace, CORD replacement);
 
 // vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0

compile.c

@@ -10,6 +10,7 @@
 #include "builtins/integers.h"
 #include "builtins/text.h"
 #include "compile.h"
+#include "cordhelpers.h"
 #include "enums.h"
 #include "structs.h"
 #include "environment.h"

cordhelpers.c

@@ -0,0 +1,70 @@
+// Some helper functions for the GC Cord library
+
+#include <gc/cord.h>
+#include <stdarg.h>
+
+#include "builtins/util.h"
+
+__attribute__((format(printf, 1, 2)))
+public CORD CORD_asprintf(CORD fmt, ...)
+{
+    va_list args;
+    va_start(args, fmt);
+    CORD c = NULL;
+    CORD_vsprintf(&c, fmt, args);
+    va_end(args);
+    return c;
+}
+
+public CORD CORD_quoted(CORD str)
+{
+    CORD quoted = "\"";
+    CORD_pos i;
+#pragma GCC diagnostic ignored "-Wsign-conversion"
+    CORD_FOR(i, str) {
+        char c = CORD_pos_fetch(i);
+        switch (c) {
+        case '\a': quoted = CORD_cat(quoted, "\\a"); break;
+        case '\b': quoted = CORD_cat(quoted, "\\b"); break;
+        case '\x1b': quoted = CORD_cat(quoted, "\\e"); break;
+        case '\f': quoted = CORD_cat(quoted, "\\f"); break;
+        case '\n': quoted = CORD_cat(quoted, "\\n"); break;
+        case '\r': quoted = CORD_cat(quoted, "\\r"); break;
+        case '\t': quoted = CORD_cat(quoted, "\\t"); break;
+        case '\v': quoted = CORD_cat(quoted, "\\v"); break;
+        case '"': quoted = CORD_cat(quoted, "\\\""); break;
+        case '\\': quoted = CORD_cat(quoted, "\\\\"); break;
+#pragma GCC diagnostic ignored "-Wpedantic"
+        case '\x00' ... '\x06': case '\x0E' ... '\x1A':
+        case '\x1C' ... '\x1F': case '\x7F' ... '\x7F':
+            CORD_sprintf(&quoted, "%r\\x%02X", quoted, c);
+            break;
+        default: quoted = CORD_cat_char(quoted, c); break;
+        }
+    }
+    quoted = CORD_cat_char(quoted, '"');
+    return quoted;
+}
+
+public CORD CORD_replace(CORD c, CORD to_replace, CORD replacement)
+{
+    size_t len = CORD_len(c);
+    size_t replaced_len = CORD_len(to_replace);
+    size_t pos = 0;
+    CORD ret = CORD_EMPTY;
+    while (pos < len) {
+        size_t found = CORD_str(c, pos, to_replace);
+        if (found == CORD_NOT_FOUND) {
+            if (pos < len)
+                ret = CORD_cat(ret, CORD_substr(c, pos, len));
+            return ret;
+        }
+        if (found > pos)
+            ret = CORD_cat(ret, CORD_substr(c, pos, found-pos));
+        ret = CORD_cat(ret, replacement);
+        pos = found + replaced_len;
+    }
+    return ret;
+}
+
+// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0

cordhelpers.h

@@ -0,0 +1,14 @@
+#pragma once
+// Some helper functions for the GC Cord library
+
+#include <gc/cord.h>
+
+#define CORD_appendf(cord, fmt, ...) CORD_sprintf(cord, "%r" fmt, *(cord) __VA_OPT__(,) __VA_ARGS__)
+#define CORD_all(...) CORD_catn(sizeof((CORD[]){__VA_ARGS__})/sizeof(CORD), __VA_ARGS__)
+
+__attribute__((format(printf, 1, 2)))
+CORD CORD_asprintf(CORD fmt, ...);
+CORD CORD_quoted(CORD str);
+CORD CORD_replace(CORD c, CORD to_replace, CORD replacement);
+
+// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1,\:0

enums.c

@@ -7,6 +7,7 @@
 #include "ast.h"
 #include "builtins/text.h"
 #include "compile.h"
+#include "cordhelpers.h"
 #include "structs.h"
 #include "environment.h"
 #include "typecheck.h"

environment.c

@@ -7,6 +7,7 @@
 #include "builtins/table.h"
 #include "builtins/text.h"
 #include "builtins/util.h"
+#include "cordhelpers.h"
 #include "environment.h"
 #include "typecheck.h"
 

parse.c

@@ -17,6 +17,7 @@
 #include "builtins/text.h"
 #include "builtins/table.h"
 #include "builtins/util.h"
+#include "cordhelpers.h"
 
 // The cache of {filename -> parsed AST} will hold at most this many entries:
 #ifndef PARSE_CACHE_SIZE

structs.c

@@ -7,6 +7,7 @@
 #include "ast.h"
 #include "builtins/text.h"
 #include "compile.h"
+#include "cordhelpers.h"
 #include "environment.h"
 #include "typecheck.h"
 #include "builtins/util.h"

tomo.c

@@ -14,6 +14,7 @@
 #include "builtins/datatypes.h"
 #include "builtins/text.h"
 #include "compile.h"
+#include "cordhelpers.h"
 #include "parse.h"
 #include "repl.h"
 #include "typecheck.h"

typecheck.c

@@ -10,6 +10,7 @@
 #include "ast.h"
 #include "builtins/text.h"
 #include "builtins/util.h"
+#include "cordhelpers.h"
 #include "environment.h"
 #include "parse.h"
 #include "typecheck.h"

types.c

@@ -9,6 +9,7 @@
 #include "builtins/integers.h"
 #include "builtins/table.h"
 #include "builtins/util.h"
+#include "cordhelpers.h"
 #include "types.h"
 
 CORD type_to_cord(type_t *t) {