OpenEuphoria

Re: get.e

• Posted by don cole <doncole at pacbell?net> Jul 07, 2007
• 685 views

Derek Parnell wrote:
> 
> For what its worth, here is the routine I use to red an entire file into a
> sequence...
> }}}
<eucode>
> global function ReadFile(sequence pFileName)
>     integer lFH
>     sequence lData
> 
>     lFH = open(pFileName,"rb")
>     if lFH = -1 then
>         return -1
>     end if
> 
>     machine_proc(19, {lFH,-1})
>     lData = repeat(0, machine_func(20, lFH))
>     machine_proc(19, {lFH,0})
> 
>     for i = 1 to length(lData) do
>         lData[i] = getc(lFH)
>     end for
>     close(lFH)
> 
>     return lData
> end function
> </eucode>
{{{

> 
> 
> Note that machine routine 19 is 'seek' and 20 is 'where'. I did it this way
> to avoid the tiny overhead of including file.e and using it's routine.
> 
> On my machine this reads a 64 Meg file in around 1.4 seconds.
> 
> -- 
> Derek Parnell
> Melbourne, Australia
> Skype name: derek.j.parnell

Thanks Derek,

Don Cole