OpenEuphoria

EUPHORIA BUG!!!! & Test

• Posted by jordah ferguson <jorfergie03 at yahoo.com> Jun 24, 2002
• 350 views

Hi Robert Craig & all Interested,
    
    I still have no clue as to the cause of this bug and if it is being
dealt with. As far as i know this is a very very Nusty Bug. That is 
causing
delays in many people's code.

x = x&x1&x2 -- is not at all optimized(very very slow)  compared to 

x&= x1 & x2 -- or   

x = x & x1
x = x & x2  -- or

x&=x1
x&=x2

--  START
-- Start Test Code! 
include get.e 
object data
data = repeat("Euphoria",100000)-- 
{"Euphoria","Euphoria",......"Euphoria"}

-- Deparse retokenizes a sequence based on the delimeter c.
-- if c was 32(space) data would become  
-- {"Euphoria Euphoria Euphoria Euphoria.."}

global function deparse1(sequence list, integer c)
sequence s        
object t t = time()
   if length(list) then
      s = list[1]
      for i = 2 to length(list) by 1 do
      s &=c&list[i]
      end for  
      puts(1,sprintf("Time using s&=c&list[i]: Deparse1: 
%.4f\n",time()-t))
      return s 
   end if
   return ""
end function 
                
global function deparse2(sequence list, integer c)
sequence s        
object t t = time()
   if length(list) then
      s = list[1]
      for i = 2 to length(list) by 1 do
      s =s&c&list[i]
      end for  
      puts(1,sprintf("Time using s= s&c&list[i]: Deparse2: 
%.4f\n",time()-t))
      return s 
   end if
   return ""
end function 

-- Start Test
object result1,result2

result1 = deparse1(data,32)
result2 = deparse2(data,32)  


puts(1,"\n**************** Test Finished *****************\nPress any 
key to quit\n")
result1 = wait_key() 

-- END   

The above is not the best test to give but atleast it exposes the bug 
and its 
extent of damage. 

Jordah Ferguson
aka Sir LoJik