write_file

test_read_file.sl

@@ -0,0 +1,33 @@
+import stdlib/stdlib.sl
+import stdlib/io.sl
+
+: main
+    "/etc/hostname" # (len addr)
+    swap                      # (addr len)
+    read_file                 # (file_len file_addr)
+    dup 0 > if                # if file_len > 0, success
+        write_buf             # print file contents (file_len file_addr)
+        0
+        exit
+    then
+    dup -2 == if              # open() failed
+        drop
+        "open() failed: errno=" puts
+        swap puts
+        exit
+    then
+    dup -1 == if              # fstat() failed
+        drop
+        "fstat() failed: errno=" puts
+        swap puts
+        exit
+    then
+    dup -3 == if              # mmap() failed
+        drop
+        "mmap() failed" puts
+        exit
+    then
+    "unknown read_file failure" puts
+    dup                       # file_len file_len file_addr
+    exit                       # Exit with returned file_len as the program exit code (debug)
+;