-\ 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 .