Some basic modules (sans actual utility)HEADmain

3 files changed, 171 insertions, 0 deletions

diff --git a/io/file.tnsl b/io/file.tnsl
new file mode 100644
index 0000000..2786179
--- /dev/null
+++ b/io/file.tnsl
@@ -0,0 +1,116 @@
+
+# File type
+struct File {
+	# List containing the path
+	Path path,
+	int32 handle,
+	uint pos,
+	bool at_end
+}
+
+/; method File
+	/; init (~uint8 str)
+		self.path.init()
+		self.path.from_cstr(str)
+		self.handle = 0
+		self.handle--
+		self.at_end = false
+		self.pos = 0
+	;/
+
+	/; relative (~uint8 path) [File]
+		Path rel = self.path.relative(path)
+		~uint8 new_path = rel.to_cstr()
+		File out
+		out.init(new_path)
+		_delete(new_path)
+		rel.end()
+		return out
+	;/
+
+	/; end
+		/; if (self.handle + 1 !== 0)
+			_close_file(self.handle)
+			self.handle = 0
+			self.handle--
+		;/
+		self.path.end()
+	;/
+
+	/; 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 + 1 !== 0)
+			_close_file(self.handle)
+			self.handle = 0
+			self.handle--
+			self.at_end = false
+		;/
+	;/
+
+	/; read [uint8]
+		/; if (self.at_end == true)
+			return 0
+		;/
+
+		uint8 out
+		int bytes = _read_byte(self.handle, ~out)
+		self.pos = self.pos + 1
+
+		/; if (bytes == 0)
+			self.at_end = true
+			return 0
+		;; else if (bytes !== 1)
+			_perror("Error reading from file\0")
+			_print_num("FD: %ld\n\0", self.handle)
+			self.at_end = true
+			return 0
+		;/
+		
+		return out
+	;/
+
+	/; unread
+		/; if (self.pos < 1)
+			return
+		;/
+
+		self.pos = self.pos - 1
+		_fseek(self.handle, self.pos)
+
+		/; if (self.at_end == true)
+			self.at_end = false
+		;/
+	;/
+
+	/; write (uint8 byte)
+		int written = _write_byte(self.handle, ~byte)
+		/; if (written == 0)
+			self.at_end = true
+		;/
+	;/
+
+	/; write_cstr (~uint8 str)
+		/; loop (self.at_end == false && str` !== 0) [str++]
+			self.write(str`)
+		;/
+	;/
+
+;/
diff --git a/io/io.tnsl b/io/io.tnsl
new file mode 100644
index 0000000..5baead5
--- /dev/null
+++ b/io/io.tnsl
@@ -0,0 +1,5 @@
+
+/; module io
+	import "file.tnsl"
+;/
+
diff --git a/io/path.tnsl b/io/path.tnsl
new file mode 100644
index 0000000..f72397d
--- /dev/null
+++ b/io/path.tnsl
@@ -0,0 +1,50 @@
+
+# Path type
+struct Path {
+	box.List strings
+}
+
+uint8 PATH_SEP = '/'
+~uint8 PARENT_DIR = "..\0"
+~uint8 CURRENT_DIR = ".\0"
+
+/; method Path
+	/; init
+		self.strings.init(8)
+	;/
+
+	/; from_cstr (~uint8 path)
+	;/
+
+	/; to_cstr [~uint8]
+		box.List out
+		out.from_cstr("\0")
+
+		/; if (self.strings.count < 1)
+			return out.as_cstr()
+		;/
+
+		~uint8 str = self.strings.get(0)
+		out.push_cstr(str)
+
+		/; loop (int i = 1; i < self.strings.count) [i++]
+			out.push(~PATH_SEP)
+			out.push_cstr(str)
+		;/
+
+		return out.as_cstr()
+	;/
+
+	/; relative (~uint8 path) [Path]
+		
+	;/
+
+	/; end
+		~~uint8 str
+		/; loop (int i = 0; i < self.strings.count) [i++]
+			str = self.strings.get(i)
+			_delete(str`)
+		;/
+		self.strings.end()
+	;/
+;/