Paths of #include files

src/arith/integer.c

@@ -18,12 +18,12 @@
 #include <wchar.h>
 #include <wctype.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "equal.h"
+#include "ops/equal.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "peano.h"
+#include "arith/peano.h"
 
 /**
  * hexadecimal digits for printing numbers.

src/arith/peano.c

@@ -14,19 +14,19 @@
 #include <stdlib.h>
 #include <string.h>
 
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
-#include "conspage.h"
+#include "memory/conspage.h"
 #include "debug.h"
-#include "equal.h"
+#include "ops/equal.h"
-#include "integer.h"
+#include "arith/integer.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "peano.h"
+#include "arith/peano.h"
-#include "print.h"
+#include "io/print.h"
-#include "ratio.h"
+#include "arith/ratio.h"
-#include "read.h"
+#include "io/read.h"
-#include "real.h"
+#include "arith/real.h"
-#include "stack.h"
+#include "memory/stack.h"
 
 long double to_long_double( struct cons_pointer arg );
 int64_t to_long_int( struct cons_pointer arg );

src/arith/ratio.c

@@ -11,15 +11,15 @@
 #include <math.h>
 #include <stdio.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "equal.h"
+#include "ops/equal.h"
-#include "integer.h"
+#include "arith/integer.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "peano.h"
+#include "arith/peano.h"
-#include "print.h"
+#include "io/print.h"
-#include "ratio.h"
+#include "arith/ratio.h"
 
 
 /**

src/arith/real.c

@@ -7,10 +7,10 @@
  * Licensed under GPL version 2.0, or, at your option, any later version.
  */
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "read.h"
+#include "io/read.h"
 
 /**
  * Allocate a real number cell representing this value and return a cons

src/debug.c

@@ -18,11 +18,11 @@
 #include <wchar.h>
 #include <wctype.h>
 
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "dump.h"
+#include "memory/dump.h"
-#include "io.h"
+#include "io/io.h"
-#include "print.h"
+#include "io/print.h"
 
 /**
  * the controlling flags for `debug_print`; set in `init.c`, q.v.

src/init.c

@@ -20,18 +20,20 @@
 #include <curl/curl.h>
 
 #include "version.h"
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
+#include "memory/stack.h"
 #include "debug.h"
-#include "hashmap.h"
+#include "memory/hashmap.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "io.h"
+#include "io/io.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "meta.h"
+#include "ops/meta.h"
-#include "peano.h"
+#include "arith/peano.h"
-#include "print.h"
+#include "io/print.h"
 #include "repl.h"
-#include "psse_time.h"
+#include "io/fopen.h"
+#include "time/psse_time.h"
 
 // extern char *optarg; /* defined in unistd.h */
 

src/io/fopen.c

@@ -47,12 +47,12 @@
 
 #include <curl/curl.h>
 
-#include "fopen.h"
+#include "io/fopen.h"
 #ifdef FOPEN_STANDALONE
 CURLSH *io_share;
 #else
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
-#include "io.h"
+#include "io/io.h"
 #include "utils.h"
 #endif
 

src/io/io.c

@@ -28,13 +28,13 @@
 
 #include <curl/curl.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "fopen.h"
+#include "io/fopen.h"
-#include "integer.h"
+#include "arith/integer.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "lispops.h"
+#include "ops/lispops.h"
 #include "utils.h"
 
 /**
@@ -56,8 +56,6 @@ wint_t ungotten = 0;
  * @return 0 on success; any other value means failure.
  */
 int io_init(  ) {
-    CURL *curl;
-    CURLcode res;
     int result = curl_global_init( CURL_GLOBAL_SSL );
 
     io_share = curl_share_init(  );

src/io/print.c

@@ -17,15 +17,15 @@
 #include <wchar.h>
 #include <wctype.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
-#include "hashmap.h"
+#include "memory/hashmap.h"
-#include "integer.h"
+#include "arith/integer.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "stack.h"
+#include "memory/stack.h"
-#include "print.h"
+#include "io/print.h"
-#include "psse_time.h"
+#include "time/psse_time.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 /**
  * print all the characters in the symbol or string indicated by `pointer`

src/io/read.c

@@ -17,25 +17,29 @@
 #include <wchar.h>
 #include <wctype.h>
 
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "dump.h"
+#include "memory/dump.h"
-#include "hashmap.h"
+#include "memory/hashmap.h"
-#include "integer.h"
+#include "arith/integer.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "io.h"
+#include "io/io.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "peano.h"
+#include "arith/peano.h"
-#include "print.h"
+#include "io/print.h"
-#include "ratio.h"
+#include "arith/ratio.h"
-#include "read.h"
+#include "io/read.h"
-#include "real.h"
+#include "arith/real.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 /*
- * for the time being things which may be read are: strings numbers - either
+ * for the time being things which may be read are: 
- * integer or real, but not yet including ratios or bignums lists Can't read
+ * * strings
- * atoms because I don't yet know what an atom is or how it's stored.
+ * * numbers - either integer, ratio or real
+ * * lists 
+ * * maps
+ * * keywords
+ * * atoms
  */
 
 struct cons_pointer read_number( struct stack_frame *frame,

src/memory/conspage.c

@@ -16,12 +16,12 @@
 #include <stdlib.h>
 #include <string.h>
 
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
-#include "conspage.h"
+#include "memory/conspage.h"
 #include "debug.h"
-#include "dump.h"
+#include "memory/dump.h"
-#include "stack.h"
+#include "memory/stack.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 /**
  * Flag indicating whether conspage initialisation has been done.
@@ -267,4 +267,4 @@ void initialise_cons_pages(  ) {
 
 void summarise_allocation() {
     fwprintf(stderr, L"Allocation summary: allocated %lld; deallocated %lld.\n", total_cells_allocated, total_cells_freed );
-}
+}

src/memory/consspaceobject.c

@@ -19,13 +19,13 @@
 #include <wctype.h>
 
 #include "authorise.h"
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "print.h"
+#include "io/print.h"
-#include "stack.h"
+#include "memory/stack.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 /**
  * True if the value of the tag on the cell at this `pointer` is this `value`,

src/memory/dump.c

@@ -18,15 +18,15 @@
 #include <wchar.h>
 #include <wctype.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "hashmap.h"
+#include "memory/hashmap.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "io.h"
+#include "io/io.h"
-#include "print.h"
+#include "io/print.h"
-#include "stack.h"
+#include "memory/stack.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 
 void dump_string_cell( URL_FILE * output, wchar_t *prefix,

src/memory/hashmap.c

@@ -11,7 +11,7 @@
 #include "arith/peano.h"
 #include "authorise.h"
 #include "debug.h"
-#include "intern.h"
+#include "ops/intern.h"
 #include "io/print.h"
 #include "memory/conspage.h"
 #include "memory/consspaceobject.h"

src/memory/stack.c

@@ -17,14 +17,14 @@
 
 #include <stdlib.h>
 
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
-#include "conspage.h"
+#include "memory/conspage.h"
 #include "debug.h"
-#include "dump.h"
+#include "memory/dump.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "print.h"
+#include "io/print.h"
-#include "stack.h"
+#include "memory/stack.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 /**
  * set a register in a stack frame. Alwaye use this to do so,

src/memory/vectorspace.c

@@ -19,12 +19,12 @@
 #include <wchar.h>
 #include <wctype.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "hashmap.h"
+#include "memory/hashmap.h"
-#include "stack.h"
+#include "memory/stack.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 
 /**

src/ops/intern.c

@@ -19,12 +19,12 @@
 
 #include <stdbool.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "equal.h"
+#include "ops/equal.h"
-#include "hashmap.h"
+#include "memory/hashmap.h"
-#include "lispops.h"
+#include "ops/lispops.h"
 // #include "print.h"
 
 /**

src/ops/lispops.c

@@ -24,19 +24,19 @@
 #include <stdlib.h>
 #include <string.h>
 
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
-#include "conspage.h"
+#include "memory/conspage.h"
 #include "debug.h"
-#include "dump.h"
+#include "memory/dump.h"
-#include "equal.h"
+#include "ops/equal.h"
-#include "integer.h"
+#include "arith/integer.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "io.h"
+#include "io/io.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "print.h"
+#include "io/print.h"
-#include "read.h"
+#include "io/read.h"
-#include "stack.h"
+#include "memory/stack.h"
-#include "vectorspace.h"
+#include "memory/vectorspace.h"
 
 /*
  * also to create in this section:

src/ops/meta.c

@@ -7,7 +7,7 @@
  * Licensed under GPL version 2.0, or, at your option, any later version.
  */
 
-#include "conspage.h"
+#include "memory/conspage.h"
 #include "debug.h"
 
 /**

src/repl.c

@@ -11,11 +11,11 @@
 #include <stdio.h>
 #include <wchar.h>
 
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
 #include "debug.h"
-#include "intern.h"
+#include "ops/intern.h"
-#include "lispops.h"
+#include "ops/lispops.h"
-#include "stack.h"
+#include "memory/stack.h"
 
 
 /**

src/time/psse_time.c

@@ -16,10 +16,10 @@
 #include <wchar.h>
 #include <wctype.h>
 
-#include "conspage.h"
+#include "memory/conspage.h"
-#include "consspaceobject.h"
+#include "memory/consspaceobject.h"
-#include "integer.h"
+#include "arith/integer.h"
-#include "psse_time.h"
+#include "time/psse_time.h"
 #define _GNU_SOURCE
 
 #define seconds_per_year 31557600L
@@ -63,7 +63,6 @@ struct cons_pointer make_time( struct cons_pointer integer_or_nil ) {
     if ( integerp( integer_or_nil ) ) {
         cell->payload.time.value =
             pointer2cell( integer_or_nil ).payload.integer.value;
-        // \todo: if integer is a bignum, deal with it.
     } else {
         cell->payload.time.value = unix_time_to_lisp_time( time( NULL ) );
     }