1 \ Load a file into an allocated memory image.
6 anew task-load_file.fth
8 : $LOAD.FILE { $filename | fid numbytes numread err data -- data-addr 0 | 0 err }
11 $filename count r/o open-file -> err -> fid
14 ." $LOAD.FILE - Could not open input file!" cr
16 \ determine size of file
17 fid file-size -> err -> numbytes
20 ." $LOAD.FILE - File size failed!" cr
22 ." File size = " numbytes . cr
23 \ allocate memory for sample, when done free memory using FREE
24 numbytes allocate -> err -> data
27 ." $LOAD.FILE - Memory allocation failed!" cr
30 data numbytes fid read-file -> err
31 ." Read " . ." bytes from file " $filename count type cr
39 \ Example: c" myfile" $load.file abort" Oops!" free .