OpenEuphoria

Re: Reading a binary file

• Posted by Jiri Babor <J.Babor at GNS.CRI.NZ> Aug 17, 2000
• 459 views

Brian,

Every time I trip over the get_bytes() function, I get a feeling
Robert wrote it in a darker moment of his life, included it in get.e
when he was not quite himself, and he has not looked at it since...

When I want maximum speed, I determine the size of the file first,
create a buffer and read the bytes using a simple for loop:

----------------------------------------------------------------------
    include file.e

    sequence buffer
    integer fi,len,o

    fi = open(inFile, "rb")
    if fi = -1 then
        puts(1, "Input file " & inFile & " not found!")
        abort(1)
    end if

    o = seek(fi,-1)         -- go to end of input file
    len = where(fi)         -- get length of input file in bytes
    o = seek(fi,0)          -- go back to beginning of input file
    buffer = repeat(0, len) -- initialize your buffer
    for i=1 to len do
        buffer[i] = getc(fi)
    end for
    close(fi)
----------------------------------------------------------------------

jiri