/*
** StringNode Example-2
**
** add(), del(), first(), succ() AND last() methods.
**
** (C)Copyright 1996/97 Amiga Foundation Classes
**
** See: http://www.intercom.it/~fsoft/afc.html
**
**      FOR more info about AFC AND more modules
*/

MODULE 'afc/StringNode_oo'   -> Our MAGIC MODULE


PROC main()  HANDLE
  DEF n:PTR TO stringnode      -> This is our OBJECT instance

  NEW n.stringnode()           -> OBJECT initialization

  n.add('Zorro')              -> Here we add some items...
  n.add('Batman')
  n.add('Superman')
  n.add('Gold Drake')
  n.add('Mandrake')
  n.add('MOMMY')

  shwall(n)                   -> Here we see them

  n.first()                   -> This method should be checked agains FALSE...
  n.del()                     -> It is DEAD!
  shwall(n)                   -> Show Results

  n.succ()                    -> Two items later... (The first killed...)
  n.del()                     -> Another Kill!
  shwall(n)                   -> Show Results

  n.last()                    -> The last item
  n.del()                     -> Is DEAD too!
  WriteF('Last:\s\n', n.obj()) -> Now this is the last
  shwall(n)

EXCEPT DO
  IF exception THEN WriteF('Exception:\z\h[8]\n', exception)
  END n                       -> Remember ALWAYS TO end an OBJECT
  CleanUp(0)
ENDPROC

PROC shwall(n:PTR TO stringnode)
  WriteF('------- \d ----------\n', n.numitems())

  IF n.first()                      -> Here we go TO the first node item
    REPEAT
      WriteF('Node:\s\n', n.obj()) -> Node STRING...
    UNTIL n.succ() = FALSE          -> LOOP UNTIL the end
  ELSE
    WriteF('No Nodes in LIST...\n')
  ENDIF
ENDPROC