OpenEuphoria

Re: New pre-processor interface added to Euphoria

• Posted by jeremy (admin) Aug 05, 2009
• 1417 views

--_def.eo4              test dot notation 
-- 
include o4runtm.e 
 
--O4:Class  A extends NONE 
--O4:Public sequence s 
--:Endclass     A 
 
--O4:Class B extends A                  -- An effective class 
--O4:Public sequence s 
procedure O42set(sequence this) 
        this[3] = "Hi "                 -- local member 
        this[2] = "Bye"                         -- parent's member 
        puts (2, this[3])               -- alternate local reference 
        puts (2, this[2]) 
o4r=this end procedure o4m=append(o4m,routine_id("O42set"))--1 
--:Endclass 
 
sequence x x=o4i(2,0,{})--:Instance x of B 
call_proc(o4m[1],{x})  x=o4r 
 
        include get.e 
        puts (2, "\n--Press Any Key to Exit--") 
        abort (wait_key ()) 

Jeremy