Stuff

libs/fileio/fileio.c

@@ -0,0 +1,57 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include "groundext.h"
+
+GroundValue native_file_read(GroundScope* scope, List args) {
+    if (args.size < 1 || args.values[0].type != STRING) {
+        return groundCreateValue(NONE);
+    }
+    
+    char* path = args.values[0].data.stringVal;
+    FILE* f = fopen(path, "r");
+    if (!f) {
+        return groundCreateValue(NONE);
+    }
+    
+    fseek(f, 0, SEEK_END);
+    long fsize = ftell(f);
+    fseek(f, 0, SEEK_SET);
+    
+    char* content = malloc(fsize + 1);
+    if (!content) {
+        fclose(f);
+        return groundCreateValue(NONE);
+    }
+    
+    fread(content, 1, fsize, f);
+    fclose(f);
+    content[fsize] = 0;
+    
+    GroundValue val = groundCreateValue(STRING, content);
+    free(content); 
+    return val;
+}
+
+GroundValue native_file_write(GroundScope* scope, List args) {
+    if (args.size < 2 || args.values[0].type != STRING || args.values[1].type != STRING) {
+        return groundCreateValue(BOOL, 0);
+    }
+    
+    char* path = args.values[0].data.stringVal;
+    char* content = args.values[1].data.stringVal;
+    
+    FILE* f = fopen(path, "w");
+    if (!f) {
+        return groundCreateValue(BOOL, 0);
+    }
+    
+    fprintf(f, "%s", content);
+    fclose(f);
+    
+    return groundCreateValue(BOOL, 1);
+}
+
+void ground_init(GroundScope* scope) {
+    groundAddNativeFunction(scope, "file_Read", native_file_read, STRING, 1, STRING, "path");
+    groundAddNativeFunction(scope, "file_Write", native_file_write, BOOL, 2, STRING, "path", STRING, "content");
+}