1 files changed, 75 insertions, 0 deletions
diff --git a/ficlplatform/unix.c b/ficlplatform/unix.c
new file mode 100644
index 000000000000..4da3731f87b7
--- /dev/null
+++ b/ficlplatform/unix.c
@@ -0,0 +1,75 @@
+#include <errno.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+
+#include "ficl.h"
+
+
+
+int ficlFileTruncate(ficlFile *ff, ficlUnsigned size)
+{
+	return ftruncate(fileno(ff->f), size);
+}
+
+
+
+void *ficlMalloc(size_t size)
+{
+    return malloc(size);
+}
+
+void *ficlRealloc(void *p, size_t size)
+{
+    return realloc(p, size);
+}
+
+void ficlFree(void *p)
+{
+    free(p);
+}
+
+void  ficlCallbackDefaultTextOut(ficlCallback *callback, char *message)
+{
+    FICL_IGNORE(callback);
+    if (message != NULL)
+        fputs(message, stdout);
+    else
+        fflush(stdout);
+    return;
+}
+
+int ficlFileStatus(char *filename, int *status)
+{
+    struct stat statbuf;
+    if (stat(filename, &statbuf) == 0)
+    {
+        *status = statbuf.st_mode;
+        return 0;
+    }
+    *status = ENOENT;
+    return -1;
+}
+
+
+long ficlFileSize(ficlFile *ff)
+{
+    struct stat statbuf;
+    if (ff == NULL)
+        return -1;
+	
+    statbuf.st_size = -1;
+    if (fstat(fileno(ff->f), &statbuf) != 0)
+        return -1;
+	
+    return statbuf.st_size;
+}
+
+
+
+
+void ficlSystemCompilePlatform(ficlSystem *system)
+{
+    return;
+}
+
+