implementing pull

include/WindBuf.h

@@ -33,6 +33,13 @@
                 wb = realloc(wb, WindBuf_SIZE(wb)); \
 }
 
+// Macro that checks if a size can fit in the buffer, and if it doesn't
+// expands buffer by add
+#define WindBuf_CHECK(wb, size, add) if((wb->cap - wb->len) < size) { \
+                wb->cap += add; \
+                wb = realloc(wb, WindBuf_SIZE(wb)); \
+}
+
 // Gets a typed pointer to some area of the buffer.
 #define WindBuf_TPTR(wb, index, type) ((type*)(wb->data + index))
 

include/WindLoad.h

@@ -9,4 +9,6 @@
 static unsigned char WIND_BOOL_T[] = {WindType_Bool, 1};
 static unsigned char WIND_BOOL_F[] = {WindType_Bool, 0};
 
+void WindLoad_bool(WindStream* ws, BufKey bkey, int b);
+
 #endif

include/WindRun.h

@@ -4,6 +4,7 @@
 #include <stdio.h>
 #include "WindStream.h"
 #include "WindExec.h"
+#include "WindLoad.h"
 
 // central header that handles running of code
 

src/code/WindRun.c

@@ -53,9 +53,27 @@ int WindRun_load(WindStream* ws, const char** code)
                         if((*code)[1] == 'r' && (*code)[2] == 'u' && (*code)[3] == 'e')
                         {
                                 *code += 4;
-                                // write bool
+                                WindLoad_bool(ws, BufKey_load, 1);
                                 continue;
                         }
+                        else
+                        {
+                                WindStream_write_err(ws, "Expected argument or value, found 'T%c'", *code[1]);
+                                return 0;
+                        }
+                        break;
+                case 'F':
+                        if((*code)[1] == 'a' && (*code)[2] == 'l' && (*code)[3] == 's' && (*code)[4] == 'e')
+                        {
+                                *code += 5;
+                                WindLoad_bool(ws, BufKey_load, 0);
+                                continue;
+                        }
+                        else
+                        {
+                                WindStream_write_err(ws, "Expected argument or value, found 'F%c'", *code[1]);
+                                return 0;
+                        }
                         break;
                 case 'N':
                         switch((*code)[1])

src/stream/WindLoad.c

@@ -1 +1,11 @@
 #include "WindLoad.h"
+
+void WindLoad_bool(WindStream* ws, BufKey bkey, int b)
+{
+        WindBuf* buf = WindStream_get_buf(ws, bkey);
+        unsigned char* boolp = b ? WIND_BOOL_T : WIND_BOOL_F;
+        // size of bool buf is same for true and false.
+        WindBuf_CHECK(buf, sizeof(WIND_BOOL_T), 10);
+        buf->data[buf->len++] = boolp[0];
+        buf->data[buf->len++] = boolp[1];
+}