home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / afc / afc-dir / parser_examples.lha / Examples / Parser_Example1.e < prev   
Text File  |  1997-09-09  |  641b  |  30 lines
  1. /*
  2.  
  3.   $VER: Parser Example 1 - (C)Copyright Amiga Foundation Classes
  4.  
  5.   Written By: Fabio Rotondo
  6.  
  7.   This code is Public Domain
  8.  
  9. */
  10.  
  11. MODULE 'afc/parser', 'afc/explain_exception'
  12.  
  13. PROC main() HANDLE
  14.   DEF par=NIL:PTR TO parser
  15.  
  16.   NEW par.parser()
  17.  
  18.   WriteF('Template: FILE/A,COLOR/K,NAME/K\n')
  19.   WriteF('STRING:   NAME="Amiga Foundation Classes" COLOR="Blue" Parser.e\n')
  20.  
  21.   par.parse('FILE/A,COLOR/K,NAME/K', 'NAME="Amiga Foundation Classes" COLOR="Blue" Parser.e')
  22.  
  23.   WriteF('Results:\nArg 0 (File)   - \s\nArg 1 (Color)  - \s\nArg 2 (Name)   - \s\n', par.arg(0), par.arg(1), par.arg(2))
  24.  
  25. EXCEPT DO
  26.   explain_exception()
  27.   END par
  28. ENDPROC
  29.  
  30.