OpenEuphoria

readfile.e

• Posted by Alan Tu <ATU5713 at COMPUSERVE.COM> Sep 18, 1998
• 735 views

This file includes two global functions.  filesize(integer file_num)
returns the length of an open file.  readfile(filename) opens a file
specified by a path, reads the file into a returned sequence, and closes
the file.

--readfile.e
include file.e

global function filesize(integer file_num)
    integer seek_success, file_length, orig_position
    orig_position =3D where(file_num)
    seek_success =3D seek(file_num,-1)
    file_length =3D where(file_num)
    seek_success =3D seek(file_num,orig_position)
    return file_length
end function

global function readfile(sequence filename)
    sequence file
    integer file_length, seek_success, file_num
    file_num =3D open(filename, "rb")
    file_length =3D filesize(file_num)
    file =3D repeat(0,file_length)
    seek_success =3D seek(file_num,0)
    for i =3D 1 to file_length do
        file[i] =3D getc(file_num)
    end for
    close(file_num)
    return file
end function
--end readfile.e

--Alan
 =