OpenEuphoria

Re: seq errors

• Posted by Bernie Ryan <bwryan at PCOM.NET> Dec 31, 1999
• 507 views

On Fri, 31 Dec 1999 10:30:39 -0600, Kat <KSMiTH at PELL.NET> wrote:

>I have another suggestion.... in a 141 line program, i have this:
>In this way,
>
>sequence line
>if equal("?",line[0]) then
>  DoSomething
>end if
>


-- define a empty string
type empty( sequence string )
  if length(string) then return 0 else return 1 end if
end type

--
sequence line

--
line = "this is the string"


if empty(line) then
  -- do something
  ? 123
  ? length(line)
end if


if not empty(line) then
  -- do something
  ? 456
  ? length(line)
end if


-- Kat: You can do this, which is less confusing and you will be able to
--      keep track of things easier so you don't crash.

-- Bernie