OpenEuphoria

Translate and bind problems encountered

• Posted by FredRansom Sep 09, 2009
• 1124 views

The follow code worked fine with eui.exe, but neither euc.exe nor bind.bat were able to handle it. Interestingly it was the fastest execution at 16 seconds on my laptop.

--  code generated by Win32Lib IDE v1.0.4 Build July-06-2008 
 
constant TheProgramType="exw"  
  
include Win32Lib.ew 
without warning 
without type_check 
-------------------------------------------------------------------------------- 
--  Window Window1 
constant Window1 = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 ) 
constant PushButton2 = createEx( PushButton, "PushButton2", Window1, 44, 24, 88, 28, 0, 0 ) 
constant EditText3 = createEx( EditText, "EditText3", Window1, 52, 88, 276, 20, 0, 0 ) 
--------------------------------------------------------- 
-------------------------------------------------------------------------------- 
procedure PushButton2_onClick (integer self, integer event, sequence params)--params is () 
	atom sum 
        atom beginning, ending 
 
        sum = 0.0 
	beginning = time() 
	for x = 0.0 to 10000.0 do 
            sum = sum + cos(x) 
            for y = 0.0 to 10000.0 do 
                  sum += sin(y) 
            end for 
        end for 
        ending = time() 
        setText (EditText3, sprintf("%d  %g", {ending - beginning, sum})) 
 
end procedure 
setHandler( PushButton2, w32HClick, routine_id("PushButton2_onClick")) 
--------------------------------------------------------- 
 
 
WinMain( Window1,Normal )