home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _f02590370548d68449fdce12fb0ecd1d < prev    next >
Text File  |  2000-03-15  |  1KB  |  47 lines
  1. /* This is simple demonstration of how to use expat. This program
  2. reads an XML document from standard input and writes a line with the
  3. name of each element to standard output indenting child elements by
  4. one tab stop more than their parent element. */
  5.  
  6. #include <stdio.h>
  7. #include "xmlparse.h"
  8.  
  9. void startElement(void *userData, const char *name, const char **atts)
  10. {
  11.   int i;
  12.   int *depthPtr = userData;
  13.   for (i = 0; i < *depthPtr; i++)
  14.     putchar('\t');
  15.   puts(name);
  16.   *depthPtr += 1;
  17. }
  18.  
  19. void endElement(void *userData, const char *name)
  20. {
  21.   int *depthPtr = userData;
  22.   *depthPtr -= 1;
  23. }
  24.  
  25. int main()
  26. {
  27.   char buf[BUFSIZ];
  28.   XML_Parser parser = XML_ParserCreate(NULL);
  29.   int done;
  30.   int depth = 0;
  31.   XML_SetUserData(parser, &depth);
  32.   XML_SetElementHandler(parser, startElement, endElement);
  33.   do {
  34.     size_t len = fread(buf, 1, sizeof(buf), stdin);
  35.     done = len < sizeof(buf);
  36.     if (!XML_Parse(parser, buf, len, done)) {
  37.       fprintf(stderr,
  38.           "%s at line %d\n",
  39.           XML_ErrorString(XML_GetErrorCode(parser)),
  40.           XML_GetCurrentLineNumber(parser));
  41.       return 1;
  42.     }
  43.   } while (!done);
  44.   XML_ParserFree(parser);
  45.   return 0;
  46. }
  47.