Initial import.

[pforth] / fth / utils / load_file.fth

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