OpenEuphoria

Re: out of memory, even tho remembered nothing!

• Posted by mattlewis (admin) Oct 18, 2012
• 1549 views

junk = gets(readfile) 
while sequence(junk) do 
  size += length(junk) 
  puts(1,sprintf("%d",size)&"\r") 
  junk = gets(readfile) 
end while 

This can be shortened slightly using a feature introduced in 4.0:

while sequence(junk) with entry do 
  size += length(junk) 
  puts(1,sprintf("%d",size)&"\r") 
entry 
  junk = gets(readfile) 
end while 

Execution of the loop always starts at entry, skipping the condition the first time through.

junk = gets(readfile) 
while not equal(-1,junk) do 
  size += length(junk) 
  puts(1,sprintf("%d",size)&"\r") 
  junk = gets(readfile) 
end while 

Yes, I typically check for a sequence, since you only get an atom returned from gets() after you've read all of the file.

Yeah, this is related to the long debated equals() vs = reform. But I don't see changing the truth value of atoms changing (the sequence as a boolean / truth value is more likely).

Matt