home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Programming / sofa / archive / exml.lha / exml / examples / ebook / ebook.e < prev    next >
Text File  |  1999-04-13  |  2KB  |  71 lines
  1. indexing
  2.     description:"Key generator for eBOOK page keys"
  3.     note:            "this example compiles with ISE Eiffel and SmallEiffel.%
  4.                     %Therefore GOBO library must be correctly installed.";
  5.     status:        "See notice at end of class."
  6.     author:        "Andreas Leitner"
  7.  
  8. class
  9.     EBOOK
  10. inherit
  11.     EXPAT_ERROR_CODES
  12.     KL_INPUT_STREAM_ROUTINES
  13.     KL_OUTPUT_STREAM_ROUTINES
  14.         rename
  15.             close as close_output,
  16.             is_closed as is_closed_output
  17.         end
  18.  
  19. creation
  20.  
  21.     make
  22.  
  23. feature -- Initialization
  24.  
  25.     make is
  26.         local
  27.             xml_parser: EBOOK_XML_PARSER
  28.         do
  29.             print ("starting...%N")
  30.             !! xml_parser.make
  31.             print ("parsing and analyzing input...%N")
  32.             xml_parser.parse_file
  33.  
  34.             if
  35.                 not xml_parser.is_correct
  36.             then
  37.                 print (xml_parser.last_error_extended_description)
  38.                 print ("%N")
  39.             else
  40.                 if 
  41.                     not xml_parser.is_valid
  42.                 then
  43.                     print ("The XML-document is not valid%N")
  44.                 else
  45.                     print ("parsing and analyzing was successfull%N")
  46.                     print ("generating html files...%N")
  47.                     xml_parser.generate_html_pages
  48.                 end
  49.             end
  50.  
  51.             print ("exiting...%N")
  52.         end
  53.  
  54.  
  55. feature
  56.  
  57. end -- class EBOOK
  58. --|-------------------------------------------------------------------------
  59. --| eXML, Eiffel XML Parser Toolkit
  60. --| Copyright (C) 1999  Andreas Leitner
  61. --| See the file forum.txt included in this package for licensing info.
  62. --|
  63. --| Comments, Questions, Additions to this library? please contact:
  64. --|
  65. --| Andreas Leitner
  66. --| Arndtgasse 1/3/5
  67. --| 8010 Graz
  68. --| Austria
  69. --| email: andreas.leitner@teleweb.at
  70. --| web: http://exml.dhs.org
  71. --|-------------------------------------------------------------------------