OpenEuphoria

Edita on 4.0b3 (r3124)

• Posted by petelomax Mar 27, 2010
• 1635 views

Still runs like a dog... Hacked it down to another ref count foulup very similar to the last:

function ConvertTabs(sequence intxt) 
    return intxt 
end function 
 
constant MAX=100000 
sequence filetext 
    filetext = {repeat("1234567890\n",MAX)} 
 
atom t 
    t = time() 
 
for i=1 to MAX do 
--    if i<=length(filetext[1]) then 
        filetext[1][i] = ConvertTabs(filetext[1][i]) 
--    else 
--        ?9/0 
--    end if 
    if remainder(i,4000)=0 then 
        printf(1,"unpacking %d\n",i) 
    end if 
end for 
 
printf(1,"%3.2fs\n",time()-t) 

Above works fine. Uncomment the (pointless) length test and it is three thousand, eight hundred and seventeen times slower.

Pete

PS: Jesse reported problems with the old version of Edita/Arwen (reserved word 'label' on line 210 etc). These were fixed in 0.3.2 all along, the entry in the archive now points at http://www.edita.isgreat.org.