OpenEuphoria

Re: missing 13; upload script

• Posted by don cole <doncole at pacbell.net> Sep 10, 2006
• 531 views

From get_bytes  notes:


   include get.e


              
              integer fn
              fn = open("temp", "rb")  -- an existing file
              
              sequence whole_file
              whole_file = {}
              
              sequence chunk
              
              while 1 do
                  chunk = get_bytes(fn, 100) -- read 100 bytes at a time

                  whole_file &= chunk        -- chunk might be empty, that's ok
                  if length(chunk) < 100 then
                      exit
                  end if
              end while
              
              close(fn)
              ? length(whole_file)  -- should match DIR size of "temp"


Does this happen ? size match I mean.
Don Cole