OpenEuphoria

Re: type checking ?

• Posted by Pete Lomax <petelomax at bl?eyo?der.co.uk> Nov 22, 2007
• 648 views

Matt Lewis wrote:
> 
> Bernie Ryan wrote:
> > HOPE that they read it. 
> 
> Ok, I give up.  I still have no clue what you're asking.
LOL. As I read I too had some HOPE that someone could make some sense of it.

I'm going to go out on a limb though and guess what Bernie is after:

sequence valids
         valids={}

procedure init()
  while 1 do
    line = gets(fn)
    if atom(line) then exit end if
    valids = append(valids,line)
  end while
end procedure

type valid(object x)
  return find(x,valids)!=0
end type

procedure useit(valid s)
  -- do stuff.
end procedure

Best I can do, given the vague-ish clues...

HTH,
Pete