copy file example

6 files changed, 27 insertions, 19 deletions

diff --git a/tnslc/compile/generator.tnsl b/tnslc/compile/generator.tnsl
index 5d71a05..28a834d 100644
--- a/tnslc/compile/generator.tnsl
+++ b/tnslc/compile/generator.tnsl
@@ -1,13 +1,16 @@
 /; generate (utils.File fin, fout)
-	~uint8 fa = fin.path.to_cstr('/')
-	~uint8 fb = fout.path.to_cstr('/')
 
-	_printf(fa)
-	_printf(newline)
-	_printf(fb)
-	_printf(newline)
+	fin.open()
+	fout.create()
+
+	uint8 buf = fin.read()
+	/; loop (fin.at_end == false && fout.at_end == false)
+		fout.write(buf)
+		buf = fin.read()
+	;/
+
+	fin.close()
+	fout.close()
 
-	_delete(fa)
-	_delete(fb)
 ;/
 
diff --git a/tnslc/tnslc.tnsl b/tnslc/tnslc.tnsl
index 0123430..84fbdb5 100644
--- a/tnslc/tnslc.tnsl
+++ b/tnslc/tnslc.tnsl
@@ -1,5 +1,3 @@
-:import "c_wrap_linux.tnsl"
-
 :import "utils/utils.tnsl"
 :import "compile/compile.tnsl"
 
@@ -17,8 +15,6 @@ usage:
 
 ~uint8 char_str = "%c\0"
 ~uint8 newline = "\n\0"
-~uint8 scratch = "asd,efg\0"
-~uint8 test = "asd\0"
 
 /; main (int argc, ~~uint8 argv) [int]
 	asm "mov r10, rdi"
@@ -29,10 +25,6 @@ usage:
 		return 1
 	;/
 	
-	/; if (compile._in_csv(scratch, test))
-		_printf(test)
-		_printf(newline)
-	;/
 
 	utils.File fin, fout
 	fin.init(argv{1})
diff --git a/tnslc/c_wrap_linux.tnsl b/tnslc/utils/c_wrap_linux.tnsl
index 814ec1c..814ec1c 100644
--- a/tnslc/c_wrap_linux.tnsl
+++ b/tnslc/utils/c_wrap_linux.tnsl
diff --git a/tnslc/c_wrap_windows.tnsl b/tnslc/utils/c_wrap_windows.tnsl
index 577ca25..577ca25 100644
--- a/tnslc/c_wrap_windows.tnsl
+++ b/tnslc/utils/c_wrap_windows.tnsl
diff --git a/tnslc/utils/file.tnsl b/tnslc/utils/file.tnsl
index a33e30c..978f31b 100644
--- a/tnslc/utils/file.tnsl
+++ b/tnslc/utils/file.tnsl
@@ -5,7 +5,6 @@ struct File {
 }
 
 ~uint8 PT_HANDLE = "Handle: %p\n\0"
-uint INVALID_HANDLE = 0xffffffff
 ~uint8 PARENT_DIR = ".."
 ~uint8 CURRENT_DIR = "."
 
@@ -43,7 +42,7 @@ uint INVALID_HANDLE = 0xffffffff
 
 	/; end
 		self.path.end()
-		/; if (self.handle < INVALID_HANDLE && self.handle != NULL)
+		/; if (self.handle + 1 !== 0)
 			_close_file(self.handle)
 			self.handle = NULL
 		;/
@@ -52,17 +51,23 @@ uint INVALID_HANDLE = 0xffffffff
 	/; open
 		~uint8 p = self.path.to_cstr('/')
 		self.handle = _open_file(p)
+		/; if (self.handle + 1 == 0)
+			self.at_end = true
+		;/
 		_delete(p)
 	;/
 
 	/; create
 		~uint8 p = self.path.to_cstr('/')
 		self.handle = _create_file(p)
+		/; if (self.handle + 1 == 0)
+			self.at_end = true
+		;/
 		_delete(p)
 	;/
 
 	/; close
-		/; if (self.handle !== INVALID_HANDLE && self.handle !== NULL)
+		/; if (self.handle + 1 !== 0)
 			_close_file(self.handle)
 			self.handle = NULL
 			self.at_end = false
@@ -86,4 +91,10 @@ uint INVALID_HANDLE = 0xffffffff
 		;/
 	;/
 
+	/; write_cstr (~uint8 str)
+		/; loop (self.at_end == false && str` !== 0) [str++]
+			self.write(str`)
+		;/
+	;/
+
 ;/
diff --git a/tnslc/utils/utils.tnsl b/tnslc/utils/utils.tnsl
index fece1da..eab2f8c 100644
--- a/tnslc/utils/utils.tnsl
+++ b/tnslc/utils/utils.tnsl
@@ -1,3 +1,5 @@
+:import "c_wrap_linux.tnsl"
+
 /; module utils
 
 	:import "vector.tnsl"