Add (possibly buggy) putc_file.lb

Makefile

@@ -9,7 +9,7 @@ endif
 %.$(LIBSUFFIX): %.c
 	$(CC) -shared -fPIC $(CFLAGS) $< -o $@
 
-all: native/fopen.$(LIBSUFFIX) native/fgetc.$(LIBSUFFIX) native/feof.$(LIBSUFFIX)
+all: native/fopen.$(LIBSUFFIX) native/fgetc.$(LIBSUFFIX) native/feof.$(LIBSUFFIX) native/fputc.$(LIBSUFFIX) native/fclose.$(LIBSUFFIX)
 
 clean:
 	rm native/*.$(LIBSUFFIX)

native/fputc.c

@@ -0,0 +1,14 @@
+#include <stdlib.h>
+#include <stdio.h>
+
+void labashka(unsigned short (*pop)(void), void (*push)(unsigned short), size_t (*len)(void), size_t max_size ) {
+	unsigned short symbol = pop();
+
+	FILE *file = NULL;
+	file = (void*)((size_t)(pop()) << (16*0) | (size_t)file);
+	file = (void*)((size_t)(pop()) << (16*1) | (size_t)file);
+	file = (void*)((size_t)(pop()) << (16*2) | (size_t)file);
+	file = (void*)((size_t)(pop()) << (16*3) | (size_t)file);
+	
+	push(fputc(symbol, file));
+}

putc_file.lb

@@ -0,0 +1,5 @@
+@ 0
+ args 5
+ size
+ #exec std/rev.lb
+ #native liblabafile/native/fputc

puttest.lb

@@ -0,0 +1,9 @@
+@ 0
+ $string somefile.txt
+ #string w
+ #exec liblabafile/open_file.lb
+ #exec std/dup4.lb
+ push 70
+ #exec liblabafile/putc_file.lb
+ pop
+ #exec liblabafile/close_file.lb