OpenEuphoria

Re: feature req: passing sequences

• Posted by cargoan Feb 16, 2015
• 1338 views

object junk = get_position() 
position(junk[1],junk[2]) -- this works 
position(junk)            -- this crashes 

with warning save 
without warning &= { override } 
override procedure position(object row, integer column = 1) 
   if sequence(row) then 
      if length(row) > 1 then 
            column = row[2] 
      end if 
      row = row[1] 
   end if 
   eu:position(row, column) 
end procedure 
with warning restore