/*
** StringNode Example-4
**
** add(), search() AND insert() 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',    -> Our MAGIC MODULE
       'afc/explain_exception'

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.search('bat#?')           -> The search is CASE insensitive AND match the first one ;)
                              -> Note we use STANDARD AmigaDOS match pattern strings!

  WriteF('Current:\s\n', n.obj()) -> Here we are!

  n.insert('Spiderman')       -> Wow! Another super-hero after Batman!
  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