OpenEuphoria

Re: simple question (using euphoria 1.4)

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

>joe you wrote:
>i have been working on a program for some time now and have gotten to a
point where it needs a basic
>redesign in order to be more easily maintained.
>------------------------------------------------------------------
>what i am doing now (with 8 functions instead of just two) :

Joe: maybe this will help

global constant
  forever = -1,
  TRUE    = -1,
  FALSE   =  0

global atom endofprogram
  endofprogram = FALSE

function FirstFunction(parameter list)
  do stuff
  -- to exit set endofprogram = TRUE
  return value
end function

function SecondFunction(parameter list)
  do stuff
  -- to exit set endofprogram = TRUE
  return value
end function

while forever do
  FirstFunction(parameter list)
  if endofprogram then exit end if
  SecondFunction(parameter list)
  if endofprogram then exit end if
end while

finish up here


Bernie