Fix white spaces.

[pforth] / fth / utils / load_file.fth

diff --git a/fth/utils/load_file.fth b/fth/utils/load_file.fth
index 669ffc3..d015c6a 100644 (file)
--- a/fth/utils/load_file.fth
+++ b/fth/utils/load_file.fth
@@ -1,39 +1,39 @@
-\ Load a file into an allocated memory image.\r
-\\r
-\ Author: Phil Burk\r
-\ Copyright 3DO 1995\r
-\r
-anew task-load_file.fth\r
-\r
-: $LOAD.FILE { $filename | fid numbytes numread err data -- data-addr 0 | 0 err }\r
-       0 -> data\r
-\ open file\r
-       $filename count r/o open-file -> err -> fid\r
-       err\r
-       IF\r
-               ." $LOAD.FILE - Could not open input file!" cr\r
-       ELSE\r
-\ determine size of file\r
-               fid file-size -> err -> numbytes\r
-               err\r
-               IF\r
-                        ." $LOAD.FILE - File size failed!" cr\r
-               ELSE\r
-                       ." File size = " numbytes . cr\r
-\ allocate memory for sample, when done free memory using FREE\r
-                       numbytes allocate -> err -> data\r
-                       err\r
-                       IF\r
-                               ." $LOAD.FILE - Memory allocation failed!" cr\r
-                       ELSE\r
-\ read data\r
-                               data numbytes fid read-file -> err\r
-                               ." Read " . ." bytes from file " $filename count type cr\r
-                       THEN\r
-               THEN\r
-               fid close-file drop\r
-       THEN\r
-       data err\r
-;\r
-\r
-\ Example:   c" myfile" $load.file   abort" Oops!"   free .\r
+\ Load a file into an allocated memory image.
+\
+\ Author: Phil Burk
+\ Copyright 3DO 1995
+
+anew task-load_file.fth
+
+: $LOAD.FILE { $filename | fid numbytes numread err data -- data-addr 0 | 0 err }
+    0 -> data
+\ open file
+    $filename count r/o open-file -> err -> fid
+    err
+    IF
+        ." $LOAD.FILE - Could not open input file!" cr
+    ELSE
+\ determine size of file
+        fid file-size -> err -> numbytes
+        err
+        IF
+             ." $LOAD.FILE - File size failed!" cr
+        ELSE
+            ." File size = " numbytes . cr
+\ allocate memory for sample, when done free memory using FREE
+            numbytes allocate -> err -> data
+            err
+            IF
+                ." $LOAD.FILE - Memory allocation failed!" cr
+            ELSE
+\ read data
+                data numbytes fid read-file -> err
+                ." Read " . ." bytes from file " $filename count type cr
+            THEN
+        THEN
+        fid close-file drop
+    THEN
+    data err
+;
+
+\ Example:   c" myfile" $load.file   abort" Oops!"   free .