diff --git a/mxml/mxml.spec b/mxml/mxml.spec
deleted file mode 100644
index 9050952ba7dc95e4a8b0bd6f5c3d1f8eace6c066..0000000000000000000000000000000000000000
--- a/mxml/mxml.spec
+++ /dev/null
@@ -1,99 +0,0 @@
-#
-# "$Id$"
-#
-# RPM "spec" file for Mini-XML, a small XML library.
-#
-# Copyright 2003-2005 by Michael Sweet.
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU Library General Public
-# License as published by the Free Software Foundation; either
-# version 2, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-
-Summary: Miniature XML development library
-Name: mxml
-Version: 2.2.2
-Release: 1
-Copyright: GPL
-Group: Development/Libraries
-Source: http://www.easysw.com/~mike/mxml/mxml-%{version}.tar.gz
-Url: http://www.easysw.com/~mike/mxml/
-Packager: Michael Sweet <mxml@easysw.com>
-Vendor: Michael Sweet
-
-# Use buildroot so as not to disturb the version already installed
-BuildRoot: /var/tmp/%{name}-root
-
-%description
-Mini-XML is a small XML parsing library that you can use to read
-XML and XML-like data files in your application without
-requiring large non-standard libraries. Mini-XML provides the
-following functionality:
-
- - Reading of UTF-8 and UTF-16 and writing of UTF-8 encoded
- XML files and strings.
- - Data is stored in a linked-list tree structure, preserving
- the XML data hierarchy.
- - Supports arbitrary element names, attributes, and
- attribute values with no preset limits, just available
- memory.
- - Supports integer, real, opaque ("cdata"), and text data
- types in "leaf" nodes.
- - Functions for creating and managing trees of data.
- - "Find" and "walk" functions for easily locating and
- navigating trees of data.
-
-Mini-XML doesn't do validation or other types of processing on
-the data based upon schema files or other sources of definition
-information, nor does it support character entities other than
-those required by the XML specification.
-
-%prep
-%setup
-
-%build
-CFLAGS="$RPM_OPT_FLAGS" CXXFLAGS="$RPM_OPT_FLAGS" LDFLAGS="$RPM_OPT_FLAGS" ./configure --enable-shared --prefix=/usr
-
-# If we got this far, all prerequisite libraries must be here.
-make
-
-%install
-# Make sure the RPM_BUILD_ROOT directory exists.
-rm -rf $RPM_BUILD_ROOT
-
-make BUILDROOT=$RPM_BUILD_ROOT install
-
-%clean
-rm -rf $RPM_BUILD_ROOT
-
-%files
-%defattr(-,root,root)
-
-%dir /usr/bin
-/usr/bin/*
-%dir /usr/include
-/usr/include/mxml.h
-%dir /usr/lib
-/usr/lib/*
-%dir /usr/lib/pkgconfig
-/usr/lib/pkgconfig/mxml.pc
-%dir /usr/share/doc/mxml
-/usr/share/doc/mxml/*
-%dir /usr/share/man/cat1
-/usr/share/man/cat1/*
-%dir /usr/share/man/cat3
-/usr/share/man/cat3/*
-%dir /usr/share/man/man1
-/usr/share/man/man1/*
-%dir /usr/share/man/man3
-/usr/share/man/man3/*
-
-#
-# End of "$Id$".
-#
diff --git a/mxml/mxmldoc.c b/mxml/mxmldoc.c
deleted file mode 100644
index 3fbd896fbc11cd2e96abbafe322963881f2c68fd..0000000000000000000000000000000000000000
--- a/mxml/mxmldoc.c
+++ /dev/null
@@ -1,2782 +0,0 @@
-/*
- * "$Id$"
- *
- * Documentation generator using Mini-XML, a small XML-like file parsing
- * library.
- *
- * Copyright 2003-2005 by Michael Sweet.
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * Contents:
- *
- * main() - Main entry for test program.
- * add_variable() - Add a variable or argument.
- * safe_strcpy() - Copy a string allowing for overlapping strings.
- * scan_file() - Scan a source file.
- * sort_node() - Insert a node sorted into a tree.
- * update_comment() - Update a comment node.
- * write_documentation() - Write HTML documentation.
- * write_element() - Write an elements text nodes.
- * write_string() - Write a string, quoting XHTML special chars
- * as needed...
- * ws_cb() - Whitespace callback for saving.
- */
-
-/*
- * Include necessary headers...
- */
-
-#include "config.h"
-#include "mxml.h"
-
-
-/*
- * This program scans source and header files and produces public API
- * documentation for code that conforms to the CUPS Configuration
- * Management Plan (CMP) coding standards. Please see the following web
- * page for details:
- *
- * http://www.cups.org/cmp.html
- *
- * Using Mini-XML, this program creates and maintains an XML representation
- * of the public API code documentation which can then be converted to HTML
- * as desired. The following is a poor-man's schema:
- *
- * <?xml version="1.0"?>
- * <mxmldoc xmlns="http://www.easysw.com"
- * xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
- * xsi:schemaLocation="http://www.easysw.com/~mike/mxml/mxmldoc.xsd">
- *
- * <namespace name=""> [optional...]
- * <constant name="">
- * <description>descriptive text</description>
- * </constant>
- *
- * <enumeration name="">
- * <description>descriptive text</description>
- * <constant name="">...</constant>
- * </enumeration>
- *
- * <typedef name="">
- * <description>descriptive text</description>
- * <type>type string</type>
- * </typedef>
- *
- * <function name="" scope="">
- * <description>descriptive text</description>
- * <argument name="" direction="I|O|IO" default="">
- * <description>descriptive text</description>
- * <type>type string</type>
- * </argument>
- * <returnvalue>
- * <description>descriptive text</description>
- * <type>type string</type>
- * </returnvalue>
- * <seealso>function names separated by spaces</seealso>
- * </function>
- *
- * <variable name="" scope="">
- * <description>descriptive text</description>
- * <type>type string</type>
- * </variable>
- *
- * <struct name="">
- * <description>descriptive text</description>
- * <variable name="">...</variable>
- * <function name="">...</function>
- * </struct>
- *
- * <union name="">
- * <description>descriptive text</description>
- * <variable name="">...</variable>
- * </union>
- *
- * <class name="" parent="">
- * <description>descriptive text</description>
- * <class name="">...</class>
- * <enumeration name="">...</enumeration>
- * <function name="">...</function>
- * <struct name="">...</struct>
- * <variable name="">...</variable>
- * </class>
- * </namespace>
- * </mxmldoc>
- */
-
-
-/*
- * Basic states for file parser...
- */
-
-#define STATE_NONE 0 /* No state - whitespace, etc. */
-#define STATE_PREPROCESSOR 1 /* Preprocessor directive */
-#define STATE_C_COMMENT 2 /* Inside a C comment */
-#define STATE_CXX_COMMENT 3 /* Inside a C++ comment */
-#define STATE_STRING 4 /* Inside a string constant */
-#define STATE_CHARACTER 5 /* Inside a character constant */
-#define STATE_IDENTIFIER 6 /* Inside a keyword/identifier */
-
-
-/*
- * Local functions...
- */
-
-static mxml_node_t *add_variable(mxml_node_t *parent, const char *name,
- mxml_node_t *type);
-static void safe_strcpy(char *dst, const char *src);
-static int scan_file(const char *filename, FILE *fp,
- mxml_node_t *doc);
-static void sort_node(mxml_node_t *tree, mxml_node_t *func);
-static void update_comment(mxml_node_t *parent,
- mxml_node_t *comment);
-static void write_documentation(mxml_node_t *doc);
-static void write_element(mxml_node_t *doc, mxml_node_t *element);
-static void write_string(const char *s);
-static const char *ws_cb(mxml_node_t *node, int where);
-
-
-/*
- * 'main()' - Main entry for test program.
- */
-
-int /* O - Exit status */
-main(int argc, /* I - Number of command-line args */
- char *argv[]) /* I - Command-line args */
-{
- int i; /* Looping var */
- FILE *fp; /* File to read */
- mxml_node_t *doc; /* XML documentation tree */
- mxml_node_t *mxmldoc; /* mxmldoc node */
-
-
- /*
- * Check arguments...
- */
-
- if (argc < 2)
- {
- fputs("Usage: mxmldoc filename.xml [source files] >filename.html\n", stderr);
- return (1);
- }
-
- /*
- * Read the XML documentation file, if it exists...
- */
-
- if ((fp = fopen(argv[1], "r")) != NULL)
- {
- /*
- * Read the existing XML file...
- */
-
- doc = mxmlLoadFile(NULL, fp, MXML_NO_CALLBACK);
-
- fclose(fp);
-
- if (!doc)
- {
- mxmldoc = NULL;
-
- fprintf(stderr, "mxmldoc: Unable to read the XML documentation file \"%s\"!\n",
- argv[1]);
- }
- else if ((mxmldoc = mxmlFindElement(doc, doc, "mxmldoc", NULL,
- NULL, MXML_DESCEND)) == NULL)
- {
- fprintf(stderr, "mxmldoc: XML documentation file \"%s\" is missing <mxmldoc> node!!\n",
- argv[1]);
-
- mxmlDelete(doc);
- doc = NULL;
- }
- }
- else
- {
- doc = NULL;
- mxmldoc = NULL;
- }
-
- if (!doc)
- {
- /*
- * Create an empty XML documentation file...
- */
-
- doc = mxmlNewElement(NULL, "?xml version=\"1.0\"?");
-
- mxmldoc = mxmlNewElement(doc, "mxmldoc");
-
-#ifdef MXML_INCLUDE_SCHEMA
- /*
- * Currently we don't include the schema/namespace stuff with the
- * XML output since some validators don't seem to like it...
- */
-
- mxmlElementSetAttr(mxmldoc, "xmlns", "http://www.easysw.com");
- mxmlElementSetAttr(mxmldoc, "xmlns:xsi",
- "http://www.w3.org/2001/XMLSchema-instance");
- mxmlElementSetAttr(mxmldoc, "xsi:schemaLocation",
- "http://www.easysw.com/~mike/mxml/mxmldoc.xsd");
-#endif /* MXML_INCLUDE_SCHEMA */
- }
-
- /*
- * Loop through all of the source files...
- */
-
- for (i = 2; i < argc; i ++)
- if ((fp = fopen(argv[i], "r")) == NULL)
- {
- fprintf(stderr, "Unable to open source file \"%s\": %s\n", argv[i],
- strerror(errno));
- mxmlDelete(doc);
- return (1);
- }
- else if (scan_file(argv[i], fp, mxmldoc))
- {
- fclose(fp);
- mxmlDelete(doc);
- return (1);
- }
- else
- fclose(fp);
-
- if (argc > 2)
- {
- /*
- * Save the updated XML documentation file...
- */
-
- if ((fp = fopen(argv[1], "w")) != NULL)
- {
- /*
- * Write over the existing XML file...
- */
-
- if (mxmlSaveFile(doc, fp, ws_cb))
- {
- fprintf(stderr, "Unable to write the XML documentation file \"%s\": %s!\n",
- argv[1], strerror(errno));
- fclose(fp);
- mxmlDelete(doc);
- return (1);
- }
-
- fclose(fp);
- }
- else
- {
- fprintf(stderr, "Unable to create the XML documentation file \"%s\": %s!\n",
- argv[1], strerror(errno));
- mxmlDelete(doc);
- return (1);
- }
- }
-
- /*
- * Write HTML documentation...
- */
-
- write_documentation(mxmldoc);
-
- /*
- * Delete the tree and return...
- */
-
- mxmlDelete(doc);
-
- return (0);
-}
-
-
-/*
- * 'add_variable()' - Add a variable or argument.
- */
-
-static mxml_node_t * /* O - New variable/argument */
-add_variable(mxml_node_t *parent, /* I - Parent node */
- const char *name, /* I - "argument" or "variable" */
- mxml_node_t *type) /* I - Type nodes */
-{
- mxml_node_t *variable, /* New variable */
- *node, /* Current node */
- *next; /* Next node */
- char buffer[16384], /* String buffer */
- *bufptr; /* Pointer into buffer */
-
-
- /*
- * Range check input...
- */
-
- if (!type || !type->child)
- return (NULL);
-
- /*
- * Create the variable/argument node...
- */
-
- variable = mxmlNewElement(parent, name);
-
- /*
- * Check for a default value...
- */
-
- for (node = type->child; node; node = node->next)
- if (!strcmp(node->value.text.string, "="))
- break;
-
- if (node)
- {
- /*
- * Default value found, copy it and add as a "default" attribute...
- */
-
- for (bufptr = buffer; node; bufptr += strlen(bufptr))
- {
- if (node->value.text.whitespace && bufptr > buffer)
- *bufptr++ = ' ';
-
- strcpy(bufptr, node->value.text.string);
-
- next = node->next;
- mxmlDelete(node);
- node = next;
- }
-
- mxmlElementSetAttr(variable, "default", buffer);
- }
-
- /*
- * Extract the argument/variable name...
- */
-
- if (type->last_child->value.text.string[0] == ')')
- {
- /*
- * Handle "type (*name)(args)"...
- */
-
- for (node = type->child; node; node = node->next)
- if (node->value.text.string[0] == '(')
- break;
-
- for (bufptr = buffer; node; bufptr += strlen(bufptr))
- {
- if (node->value.text.whitespace && bufptr > buffer)
- *bufptr++ = ' ';
-
- strcpy(bufptr, node->value.text.string);
-
- next = node->next;
- mxmlDelete(node);
- node = next;
- }
- }
- else
- {
- /*
- * Handle "type name"...
- */
-
- strcpy(buffer, type->last_child->value.text.string);
- mxmlDelete(type->last_child);
- }
-
- /*
- * Set the name...
- */
-
- mxmlElementSetAttr(variable, "name", buffer);
-
- /*
- * Add the remaining type information to the variable node...
- */
-
- mxmlAdd(variable, MXML_ADD_AFTER, MXML_ADD_TO_PARENT, type);
-
- /*
- * Add new new variable node...
- */
-
- return (variable);
-}
-
-
-/*
- * 'safe_strcpy()' - Copy a string allowing for overlapping strings.
- */
-
-static void
-safe_strcpy(char *dst, /* I - Destination string */
- const char *src) /* I - Source string */
-{
- while (*src)
- *dst++ = *src++;
-
- *dst = '\0';
-}
-
-
-/*
- * 'scan_file()' - Scan a source file.
- */
-
-static int /* O - 0 on success, -1 on error */
-scan_file(const char *filename, /* I - Filename */
- FILE *fp, /* I - File to scan */
- mxml_node_t *tree) /* I - Function tree */
-{
- int state, /* Current parser state */
- braces, /* Number of braces active */
- parens; /* Number of active parenthesis */
- int ch; /* Current character */
- char buffer[65536], /* String buffer */
- *bufptr; /* Pointer into buffer */
- const char *scope; /* Current variable/function scope */
- mxml_node_t *comment, /* <comment> node */
- *constant, /* <constant> node */
- *enumeration, /* <enumeration> node */
- *function, /* <function> node */
- *fstructclass, /* function struct/class node */
- *structclass, /* <struct> or <class> node */
- *typedefnode, /* <typedef> node */
- *variable, /* <variable> or <argument> node */
- *returnvalue, /* <returnvalue> node */
- *type, /* <type> node */
- *description, /* <description> node */
- *node, /* Current node */
- *next; /* Next node */
-#if DEBUG > 1
- mxml_node_t *temp; /* Temporary node */
- int oldstate, /* Previous state */
- oldch; /* Old character */
- static const char *states[] = /* State strings */
- {
- "STATE_NONE",
- "STATE_PREPROCESSOR",
- "STATE_C_COMMENT",
- "STATE_CXX_COMMENT",
- "STATE_STRING",
- "STATE_CHARACTER",
- "STATE_IDENTIFIER"
- };
-#endif /* DEBUG > 1 */
-
-
-#ifdef DEBUG
- fprintf(stderr, "scan_file(filename=\"%s\", fp=%p, tree=%p)\n", filename,
- fp, tree);
-#endif // DEBUG
-
- /*
- * Initialize the finite state machine...
- */
-
- state = STATE_NONE;
- braces = 0;
- parens = 0;
- bufptr = buffer;
-
- comment = mxmlNewElement(MXML_NO_PARENT, "temp");
- constant = NULL;
- enumeration = NULL;
- function = NULL;
- variable = NULL;
- returnvalue = NULL;
- type = NULL;
- description = NULL;
- typedefnode = NULL;
- structclass = NULL;
- fstructclass = NULL;
-
- if (!strcmp(tree->value.element.name, "class"))
- scope = "private";
- else
- scope = NULL;
-
- /*
- * Read until end-of-file...
- */
-
- while ((ch = getc(fp)) != EOF)
- {
-#if DEBUG > 1
- oldstate = state;
- oldch = ch;
-#endif /* DEBUG > 1 */
-
- switch (state)
- {
- case STATE_NONE : /* No state - whitespace, etc. */
- switch (ch)
- {
- case '/' : /* Possible C/C++ comment */
- ch = getc(fp);
- bufptr = buffer;
-
- if (ch == '*')
- state = STATE_C_COMMENT;
- else if (ch == '/')
- state = STATE_CXX_COMMENT;
- else
- {
- ungetc(ch, fp);
-
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< / >>>\n", stderr);
-#endif /* DEBUG */
- ch = type->last_child->value.text.string[0];
- mxmlNewText(type, isalnum(ch) || ch == '_', "/");
- }
- }
- break;
-
- case '#' : /* Preprocessor */
-#ifdef DEBUG
- fputs(" #preprocessor...\n", stderr);
-#endif /* DEBUG */
- state = STATE_PREPROCESSOR;
- break;
-
- case '\'' : /* Character constant */
- state = STATE_CHARACTER;
- bufptr = buffer;
- *bufptr++ = ch;
- break;
-
- case '\"' : /* String constant */
- state = STATE_STRING;
- bufptr = buffer;
- *bufptr++ = ch;
- break;
-
- case '{' :
-#ifdef DEBUG
- fprintf(stderr, " open brace, function=%p, type=%p...\n",
- function, type);
- if (type)
- fprintf(stderr, " type->child=\"%s\"...\n",
- type->child->value.text.string);
-#endif /* DEBUG */
-
- if (function)
- {
- if (fstructclass)
- {
- sort_node(fstructclass, function);
- fstructclass = NULL;
- }
- else
- sort_node(tree, function);
-
- function = NULL;
- }
- else if (type && type->child &&
- ((!strcmp(type->child->value.text.string, "typedef") &&
- type->child->next &&
- (!strcmp(type->child->next->value.text.string, "struct") ||
- !strcmp(type->child->next->value.text.string, "union") ||
- !strcmp(type->child->next->value.text.string, "class"))) ||
- !strcmp(type->child->value.text.string, "union") ||
- !strcmp(type->child->value.text.string, "struct") ||
- !strcmp(type->child->value.text.string, "class")))
- {
- /*
- * Start of a class or structure...
- */
-
- if (!strcmp(type->child->value.text.string, "typedef"))
- {
-#ifdef DEBUG
- fputs(" starting typedef...\n", stderr);
-#endif /* DEBUG */
-
- typedefnode = mxmlNewElement(MXML_NO_PARENT, "typedef");
- mxmlDelete(type->child);
- }
- else
- typedefnode = NULL;
-
- structclass = mxmlNewElement(MXML_NO_PARENT,
- type->child->value.text.string);
-
-#ifdef DEBUG
- fprintf(stderr, "%c%s: <<<< %s >>>\n",
- toupper(type->child->value.text.string[0]),
- type->child->value.text.string + 1,
- type->child->next ?
- type->child->next->value.text.string : "(noname)");
-
- fputs(" type =", stderr);
- for (node = type->child; node; node = node->next)
- fprintf(stderr, " \"%s\"", node->value.text.string);
- putc('\n', stderr);
-
- fprintf(stderr, " scope = %s\n", scope ? scope : "(null)");
-#endif /* DEBUG */
-
- if (comment->last_child &&
- strstr(comment->last_child->value.text.string, "@private"))
- {
- mxmlDelete(type);
- type = NULL;
-
- if (typedefnode)
- {
- mxmlDelete(typedefnode);
- typedefnode = NULL;
- }
-
- mxmlDelete(structclass);
- structclass = NULL;
-
- braces ++;
- function = NULL;
- variable = NULL;
- break;
- }
-
- if (type->child->next)
- {
- mxmlElementSetAttr(structclass, "name",
- type->child->next->value.text.string);
- sort_node(tree, structclass);
- }
-
- if (typedefnode && type->child)
- type->child->value.text.whitespace = 0;
- else if (structclass && type->child &&
- type->child->next && type->child->next->next)
- {
- for (bufptr = buffer, node = type->child->next->next;
- node;
- bufptr += strlen(bufptr))
- {
- if (node->value.text.whitespace && bufptr > buffer)
- *bufptr++ = ' ';
-
- strcpy(bufptr, node->value.text.string);
-
- next = node->next;
- mxmlDelete(node);
- node = next;
- }
-
- mxmlElementSetAttr(structclass, "parent", buffer);
-
- mxmlDelete(type);
- type = NULL;
- }
- else
- {
- mxmlDelete(type);
- type = NULL;
- }
-
- if (typedefnode && comment->last_child)
- {
- /*
- * Copy comment for typedef as well as class/struct/union...
- */
-
- mxmlNewText(comment, 0,
- comment->last_child->value.text.string);
- description = mxmlNewElement(typedefnode, "description");
-#ifdef DEBUG
- fputs(" duplicating comment for typedef...\n", stderr);
-#endif /* DEBUG */
- update_comment(typedefnode, comment->last_child);
- mxmlAdd(description, MXML_ADD_AFTER, MXML_ADD_TO_PARENT,
- comment->last_child);
- }
-
- description = mxmlNewElement(structclass, "description");
-#ifdef DEBUG
- fprintf(stderr, " adding comment to %s...\n",
- structclass->value.element.name);
-#endif /* DEBUG */
- update_comment(structclass, comment->last_child);
- mxmlAdd(description, MXML_ADD_AFTER, MXML_ADD_TO_PARENT,
- comment->last_child);
-
- if (scan_file(filename, fp, structclass))
- {
- mxmlDelete(comment);
- return (-1);
- }
-
-#ifdef DEBUG
- fputs(" ended typedef...\n", stderr);
-#endif /* DEBUG */
- structclass = NULL;
- break;
- }
- else if (type && type->child && type->child->next &&
- (!strcmp(type->child->value.text.string, "enum") ||
- (!strcmp(type->child->value.text.string, "typedef") &&
- !strcmp(type->child->next->value.text.string, "enum"))))
- {
- /*
- * Enumeration type...
- */
-
- if (!strcmp(type->child->value.text.string, "typedef"))
- {
-#ifdef DEBUG
- fputs(" starting typedef...\n", stderr);
-#endif /* DEBUG */
-
- typedefnode = mxmlNewElement(MXML_NO_PARENT, "typedef");
- mxmlDelete(type->child);
- }
- else
- typedefnode = NULL;
-
- enumeration = mxmlNewElement(MXML_NO_PARENT, "enumeration");
-
-#ifdef DEBUG
- fprintf(stderr, "Enumeration: <<<< %s >>>\n",
- type->child->next ?
- type->child->next->value.text.string : "(noname)");
-#endif /* DEBUG */
-
- if (type->child->next)
- {
- mxmlElementSetAttr(enumeration, "name",
- type->child->next->value.text.string);
- sort_node(tree, enumeration);
- }
-
- if (typedefnode && type->child)
- type->child->value.text.whitespace = 0;
- else
- {
- mxmlDelete(type);
- type = NULL;
- }
-
- if (typedefnode && comment->last_child)
- {
- /*
- * Copy comment for typedef as well as class/struct/union...
- */
-
- mxmlNewText(comment, 0,
- comment->last_child->value.text.string);
- description = mxmlNewElement(typedefnode, "description");
-#ifdef DEBUG
- fputs(" duplicating comment for typedef...\n", stderr);
-#endif /* DEBUG */
- update_comment(typedefnode, comment->last_child);
- mxmlAdd(description, MXML_ADD_AFTER, MXML_ADD_TO_PARENT,
- comment->last_child);
- }
-
- description = mxmlNewElement(enumeration, "description");
-#ifdef DEBUG
- fputs(" adding comment to enumeration...\n", stderr);
-#endif /* DEBUG */
- update_comment(enumeration, comment->last_child);
- mxmlAdd(description, MXML_ADD_AFTER, MXML_ADD_TO_PARENT,
- comment->last_child);
- }
- else if (type && type->child &&
- !strcmp(type->child->value.text.string, "extern"))
- {
- if (scan_file(filename, fp, tree))
- {
- mxmlDelete(comment);
- return (-1);
- }
- }
- else if (type)
- {
- mxmlDelete(type);
- type = NULL;
- }
-
- braces ++;
- function = NULL;
- variable = NULL;
- break;
-
- case '}' :
-#ifdef DEBUG
- fputs(" close brace...\n", stderr);
-#endif /* DEBUG */
-
- if (structclass)
- scope = NULL;
-
- enumeration = NULL;
- constant = NULL;
- structclass = NULL;
-
- if (braces > 0)
- braces --;
- else
- {
- mxmlDelete(comment);
- return (0);
- }
- break;
-
- case '(' :
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< ( >>>\n", stderr);
-#endif /* DEBUG */
- mxmlNewText(type, 0, "(");
- }
-
- parens ++;
- break;
-
- case ')' :
- if (parens > 0)
- parens --;
-
- if (type && parens)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< ) >>>\n", stderr);
-#endif /* DEBUG */
- mxmlNewText(type, 0, ")");
- }
-
- if (function && type && !parens)
- {
- variable = add_variable(function, "argument", type);
- type = NULL;
- }
- break;
-
- case ';' :
-#ifdef DEBUG
- fputs("Identifier: <<<< ; >>>\n", stderr);
- fprintf(stderr, " function=%p, type=%p\n", function, type);
-#endif /* DEBUG */
-
- if (function)
- {
- if (!strcmp(tree->value.element.name, "class"))
- {
-#ifdef DEBUG
- fputs(" ADDING FUNCTION TO CLASS\n", stderr);
-#endif /* DEBUG */
- sort_node(tree, function);
- }
- else
- mxmlDelete(function);
-
- function = NULL;
- variable = NULL;
- }
-
- if (type)
- {
- mxmlDelete(type);
- type = NULL;
- }
- break;
-
- case ':' :
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< : >>>\n", stderr);
-#endif /* DEBUG */
- mxmlNewText(type, 1, ":");
- }
- break;
-
- case '*' :
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< * >>>\n", stderr);
-#endif /* DEBUG */
- ch = type->last_child->value.text.string[0];
- mxmlNewText(type, isalnum(ch) || ch == '_', "*");
- }
- break;
-
- case '&' :
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< & >>>\n", stderr);
-#endif /* DEBUG */
- mxmlNewText(type, 1, "&");
- }
- break;
-
- case '+' :
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< + >>>\n", stderr);
-#endif /* DEBUG */
- ch = type->last_child->value.text.string[0];
- mxmlNewText(type, isalnum(ch) || ch == '_', "+");
- }
- break;
-
- case '-' :
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< - >>>\n", stderr);
-#endif /* DEBUG */
- ch = type->last_child->value.text.string[0];
- mxmlNewText(type, isalnum(ch) || ch == '_', "-");
- }
- break;
-
- case '=' :
- if (type)
- {
-#ifdef DEBUG
- fputs("Identifier: <<<< = >>>\n", stderr);
-#endif /* DEBUG */
- ch = type->last_child->value.text.string[0];
- mxmlNewText(type, isalnum(ch) || ch == '_', "=");
- }
- break;
-
- default : /* Other */
- if (isalnum(ch) || ch == '_' || ch == '.' || ch == ':' || ch == '~')
- {
- state = STATE_IDENTIFIER;
- bufptr = buffer;
- *bufptr++ = ch;
- }
- break;
- }
- break;
-
- case STATE_PREPROCESSOR : /* Preprocessor directive */
- if (ch == '\n')
- state = STATE_NONE;
- else if (ch == '\\')
- getc(fp);
- break;
-
- case STATE_C_COMMENT : /* Inside a C comment */
- switch (ch)
- {
- case '\n' :
- while ((ch = getc(fp)) != EOF)
- if (ch == '*')
- {
- ch = getc(fp);
-
- if (ch == '/')
- {
- *bufptr = '\0';
-
- if (comment->child != comment->last_child)
- {
-#ifdef DEBUG
- fprintf(stderr, " removing comment %p, last comment %p...\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- mxmlDelete(comment->child);
-#ifdef DEBUG
- fprintf(stderr, " new comment %p, last comment %p...\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- }
-
-#ifdef DEBUG
- fprintf(stderr, " processing comment, variable=%p, constant=%p, tree=\"%s\"\n",
- variable, constant, tree->value.element.name);
-#endif /* DEBUG */
-
- if (variable)
- {
- description = mxmlNewElement(variable, "description");
-#ifdef DEBUG
- fputs(" adding comment to variable...\n", stderr);
-#endif /* DEBUG */
- update_comment(variable,
- mxmlNewText(description, 0, buffer));
- variable = NULL;
- }
- else if (constant)
- {
- description = mxmlNewElement(constant, "description");
-#ifdef DEBUG
- fputs(" adding comment to constant...\n", stderr);
-#endif /* DEBUG */
- update_comment(constant,
- mxmlNewText(description, 0, buffer));
- constant = NULL;
- }
- else if (typedefnode)
- {
- description = mxmlNewElement(typedefnode, "description");
-#ifdef DEBUG
- fprintf(stderr, " adding comment to typedef %s...\n",
- mxmlElementGetAttr(typedefnode, "name"));
-#endif /* DEBUG */
- update_comment(typedefnode,
- mxmlNewText(description, 0, buffer));
- }
- else if (strcmp(tree->value.element.name, "mxmldoc") &&
- !mxmlFindElement(tree, tree, "description",
- NULL, NULL, MXML_DESCEND_FIRST))
- {
- description = mxmlNewElement(tree, "description");
-#ifdef DEBUG
- fputs(" adding comment to parent...\n", stderr);
-#endif /* DEBUG */
- update_comment(tree,
- mxmlNewText(description, 0, buffer));
- }
- else
- {
-#ifdef DEBUG
- fprintf(stderr, " before adding comment, child=%p, last_child=%p\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- mxmlNewText(comment, 0, buffer);
-#ifdef DEBUG
- fprintf(stderr, " after adding comment, child=%p, last_child=%p\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- }
-#ifdef DEBUG
- fprintf(stderr, "C comment: <<<< %s >>>\n", buffer);
-#endif /* DEBUG */
-
- state = STATE_NONE;
- break;
- }
- else
- ungetc(ch, fp);
- }
- else if (ch == '\n' && bufptr > buffer &&
- bufptr < (buffer + sizeof(buffer) - 1))
- *bufptr++ = ch;
- else if (!isspace(ch))
- break;
-
- if (ch != EOF)
- ungetc(ch, fp);
-
- if (bufptr > buffer && bufptr < (buffer + sizeof(buffer) - 1))
- *bufptr++ = '\n';
- break;
-
- case '/' :
- if (ch == '/' && bufptr > buffer && bufptr[-1] == '*')
- {
- while (bufptr > buffer &&
- (bufptr[-1] == '*' || isspace(bufptr[-1] & 255)))
- bufptr --;
- *bufptr = '\0';
-
- if (comment->child != comment->last_child)
- {
-#ifdef DEBUG
- fprintf(stderr, " removing comment %p, last comment %p...\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- mxmlDelete(comment->child);
-#ifdef DEBUG
- fprintf(stderr, " new comment %p, last comment %p...\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- }
-
- if (variable)
- {
- description = mxmlNewElement(variable, "description");
-#ifdef DEBUG
- fputs(" adding comment to variable...\n", stderr);
-#endif /* DEBUG */
- update_comment(variable,
- mxmlNewText(description, 0, buffer));
- variable = NULL;
- }
- else if (constant)
- {
- description = mxmlNewElement(constant, "description");
-#ifdef DEBUG
- fputs(" adding comment to constant...\n", stderr);
-#endif /* DEBUG */
- update_comment(constant,
- mxmlNewText(description, 0, buffer));
- constant = NULL;
- }
- else if (typedefnode)
- {
- description = mxmlNewElement(typedefnode, "description");
-#ifdef DEBUG
- fprintf(stderr, " adding comment to typedef %s...\n",
- mxmlElementGetAttr(typedefnode, "name"));
-#endif /* DEBUG */
- update_comment(typedefnode,
- mxmlNewText(description, 0, buffer));
- }
- else if (strcmp(tree->value.element.name, "mxmldoc") &&
- !mxmlFindElement(tree, tree, "description",
- NULL, NULL, MXML_DESCEND_FIRST))
- {
- description = mxmlNewElement(tree, "description");
-#ifdef DEBUG
- fputs(" adding comment to parent...\n", stderr);
-#endif /* DEBUG */
- update_comment(tree,
- mxmlNewText(description, 0, buffer));
- }
- else
- mxmlNewText(comment, 0, buffer);
-
-#ifdef DEBUG
- fprintf(stderr, "C comment: <<<< %s >>>\n", buffer);
-#endif /* DEBUG */
-
- state = STATE_NONE;
- break;
- }
-
- default :
- if (ch == ' ' && bufptr == buffer)
- break;
-
- if (bufptr < (buffer + sizeof(buffer) - 1))
- *bufptr++ = ch;
- break;
- }
- break;
-
- case STATE_CXX_COMMENT : /* Inside a C++ comment */
- if (ch == '\n')
- {
- state = STATE_NONE;
- *bufptr = '\0';
-
- if (comment->child != comment->last_child)
- {
-#ifdef DEBUG
- fprintf(stderr, " removing comment %p, last comment %p...\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- mxmlDelete(comment->child);
-#ifdef DEBUG
- fprintf(stderr, " new comment %p, last comment %p...\n",
- comment->child, comment->last_child);
-#endif /* DEBUG */
- }
-
- if (variable)
- {
- description = mxmlNewElement(variable, "description");
-#ifdef DEBUG
- fputs(" adding comment to variable...\n", stderr);
-#endif /* DEBUG */
- update_comment(variable,
- mxmlNewText(description, 0, buffer));
- variable = NULL;
- }
- else if (constant)
- {
- description = mxmlNewElement(constant, "description");
-#ifdef DEBUG
- fputs(" adding comment to constant...\n", stderr);
-#endif /* DEBUG */
- update_comment(constant,
- mxmlNewText(description, 0, buffer));
- constant = NULL;
- }
- else if (typedefnode)
- {
- description = mxmlNewElement(typedefnode, "description");
-#ifdef DEBUG
- fprintf(stderr, " adding comment to typedef %s...\n",
- mxmlElementGetAttr(typedefnode, "name"));
-#endif /* DEBUG */
- update_comment(typedefnode,
- mxmlNewText(description, 0, buffer));
- }
- else if (strcmp(tree->value.element.name, "mxmldoc") &&
- !mxmlFindElement(tree, tree, "description",
- NULL, NULL, MXML_DESCEND_FIRST))
- {
- description = mxmlNewElement(tree, "description");
-#ifdef DEBUG
- fputs(" adding comment to parent...\n", stderr);
-#endif /* DEBUG */
- update_comment(tree,
- mxmlNewText(description, 0, buffer));
- }
- else
- mxmlNewText(comment, 0, buffer);
-
-#ifdef DEBUG
- fprintf(stderr, "C++ comment: <<<< %s >>>\n", buffer);
-#endif /* DEBUG */
- }
- else if (ch == ' ' && bufptr == buffer)
- break;
- else if (bufptr < (buffer + sizeof(buffer) - 1))
- *bufptr++ = ch;
- break;
-
- case STATE_STRING : /* Inside a string constant */
- *bufptr++ = ch;
-
- if (ch == '\\')
- *bufptr++ = getc(fp);
- else if (ch == '\"')
- {
- *bufptr = '\0';
-
- if (type)
- mxmlNewText(type, type->child != NULL, buffer);
-
- state = STATE_NONE;
- }
- break;
-
- case STATE_CHARACTER : /* Inside a character constant */
- *bufptr++ = ch;
-
- if (ch == '\\')
- *bufptr++ = getc(fp);
- else if (ch == '\'')
- {
- *bufptr = '\0';
-
- if (type)
- mxmlNewText(type, type->child != NULL, buffer);
-
- state = STATE_NONE;
- }
- break;
-
- case STATE_IDENTIFIER : /* Inside a keyword or identifier */
- if (isalnum(ch) || ch == '_' || ch == '[' || ch == ']' ||
- (ch == ',' && parens > 1) || ch == ':' || ch == '.' || ch == '~')
- {
- if (bufptr < (buffer + sizeof(buffer) - 1))
- *bufptr++ = ch;
- }
- else
- {
- ungetc(ch, fp);
- *bufptr = '\0';
- state = STATE_NONE;
-
-#ifdef DEBUG
- fprintf(stderr, " braces=%d, type=%p, type->child=%p, buffer=\"%s\"\n",
- braces, type, type ? type->child : NULL, buffer);
-#endif /* DEBUG */
-
- if (!braces)
- {
- if (!type || !type->child)
- {
- if (!strcmp(tree->value.element.name, "class"))
- {
- if (!strcmp(buffer, "public") ||
- !strcmp(buffer, "public:"))
- {
- scope = "public";
-#ifdef DEBUG
- fputs(" scope = public\n", stderr);
-#endif /* DEBUG */
- break;
- }
- else if (!strcmp(buffer, "private") ||
- !strcmp(buffer, "private:"))
- {
- scope = "private";
-#ifdef DEBUG
- fputs(" scope = private\n", stderr);
-#endif /* DEBUG */
- break;
- }
- else if (!strcmp(buffer, "protected") ||
- !strcmp(buffer, "protected:"))
- {
- scope = "protected";
-#ifdef DEBUG
- fputs(" scope = protected\n", stderr);
-#endif /* DEBUG */
- break;
- }
- }
- }
-
- if (!type)
- type = mxmlNewElement(MXML_NO_PARENT, "type");
-
-#ifdef DEBUG
- fprintf(stderr, " function=%p (%s), type->child=%p, ch='%c', parens=%d\n",
- function,
- function ? mxmlElementGetAttr(function, "name") : "null",
- type->child, ch, parens);
-#endif /* DEBUG */
-
- if (!function && ch == '(')
- {
- if (type->child &&
- !strcmp(type->child->value.text.string, "extern"))
- {
- /*
- * Remove external declarations...
- */
-
- mxmlDelete(type);
- type = NULL;
- break;
- }
-
- if (type->child &&
- !strcmp(type->child->value.text.string, "static") &&
- !strcmp(tree->value.element.name, "mxmldoc"))
- {
- /*
- * Remove static functions...
- */
-
- mxmlDelete(type);
- type = NULL;
- break;
- }
-
- function = mxmlNewElement(MXML_NO_PARENT, "function");
- if ((bufptr = strchr(buffer, ':')) != NULL && bufptr[1] == ':')
- {
- *bufptr = '\0';
- bufptr += 2;
-
- if ((fstructclass =
- mxmlFindElement(tree, tree, "class", "name", buffer,
- MXML_DESCEND_FIRST)) == NULL)
- fstructclass =
- mxmlFindElement(tree, tree, "struct", "name", buffer,
- MXML_DESCEND_FIRST);
- }
- else
- bufptr = buffer;
-
- mxmlElementSetAttr(function, "name", bufptr);
-
- if (scope)
- mxmlElementSetAttr(function, "scope", scope);
-
-#ifdef DEBUG
- fprintf(stderr, "function: %s\n", buffer);
- fprintf(stderr, " scope = %s\n", scope ? scope : "(null)");
- fprintf(stderr, " comment = %p\n", comment);
- fprintf(stderr, " child = (%p) %s\n",
- comment->child,
- comment->child ?
- comment->child->value.text.string : "(null)");
- fprintf(stderr, " last_child = (%p) %s\n",
- comment->last_child,
- comment->last_child ?
- comment->last_child->value.text.string : "(null)");
-#endif /* DEBUG */
-
- if (type->last_child &&
- strcmp(type->last_child->value.text.string, "void"))
- {
- returnvalue = mxmlNewElement(function, "returnvalue");
-
- mxmlAdd(returnvalue, MXML_ADD_AFTER, MXML_ADD_TO_PARENT, type);
-
- description = mxmlNewElement(returnvalue, "description");
-#ifdef DEBUG
- fputs(" adding comment to returnvalue...\n", stderr);
-#endif /* DEBUG */
- update_comment(returnvalue, comment->last_child);
- mxmlAdd(description, MXML_ADD_AFTER, MXML_ADD_TO_PARENT,
- comment->last_child);
- }
- else
- mxmlDelete(type);
-
- description = mxmlNewElement(function, "description");
-#ifdef DEBUG
- fputs(" adding comment to function...\n", stderr);
-#endif /* DEBUG */
- update_comment(function, comment->last_child);
- mxmlAdd(description, MXML_ADD_AFTER, MXML_ADD_TO_PARENT,
- comment->last_child);
-
- type = NULL;
- }
- else if (function && ((ch == ')' && parens == 1) || ch == ','))
- {
- /*
- * Argument definition...
- */
-
- mxmlNewText(type, type->child != NULL &&
- type->last_child->value.text.string[0] != '(' &&
- type->last_child->value.text.string[0] != '*',
- buffer);
-
-#ifdef DEBUG
- fprintf(stderr, "Argument: <<<< %s >>>\n", buffer);
-#endif /* DEBUG */
-
- variable = add_variable(function, "argument", type);
- type = NULL;
- }
- else if (type->child && !function && (ch == ';' || ch == ','))
- {
-#ifdef DEBUG
- fprintf(stderr, " got semicolon, typedefnode=%p, structclass=%p\n",
- typedefnode, structclass);
-#endif /* DEBUG */
-
- if (typedefnode || structclass)
- {
-#ifdef DEBUG
- fprintf(stderr, "Typedef/struct/class: <<<< %s >>>>\n", buffer);
-#endif /* DEBUG */
-
- if (typedefnode)
- {
- mxmlElementSetAttr(typedefnode, "name", buffer);
-
- sort_node(tree, typedefnode);
- }
-
- if (structclass && !mxmlElementGetAttr(structclass, "name"))
- {
-#ifdef DEBUG
- fprintf(stderr, "setting struct/class name to %s!\n",
- type->last_child->value.text.string);
-#endif /* DEBUG */
- mxmlElementSetAttr(structclass, "name", buffer);
-
- sort_node(tree, structclass);
- structclass = NULL;
- }
-
- if (typedefnode)
- mxmlAdd(typedefnode, MXML_ADD_BEFORE, MXML_ADD_TO_PARENT,
- type);
- else
- mxmlDelete(type);
-
- type = NULL;
- typedefnode = NULL;
- }
- else if (type->child &&
- !strcmp(type->child->value.text.string, "typedef"))
- {
- /*
- * Simple typedef...
- */
-
-#ifdef DEBUG
- fprintf(stderr, "Typedef: <<<< %s >>>\n", buffer);
-#endif /* DEBUG */
-
- typedefnode = mxmlNewElement(MXML_NO_PARENT, "typedef");
- mxmlElementSetAttr(typedefnode, "name", buffer);
- mxmlDelete(type->child);
-
- sort_node(tree, typedefnode);
-
- if (type->child)
- type->child->value.text.whitespace = 0;
-
- mxmlAdd(typedefnode, MXML_ADD_AFTER, MXML_ADD_TO_PARENT, type);
- type = NULL;
- }
- else if (!parens)
- {
- /*
- * Variable definition...
- */
-
- if (type->child &&
- !strcmp(type->child->value.text.string, "static") &&
- !strcmp(tree->value.element.name, "mxmldoc"))
- {
- /*
- * Remove static functions...
- */
-
- mxmlDelete(type);
- type = NULL;
- break;
- }
-
- mxmlNewText(type, type->child != NULL &&
- type->last_child->value.text.string[0] != '(' &&
- type->last_child->value.text.string[0] != '*',
- buffer);
-
-#ifdef DEBUG
- fprintf(stderr, "Variable: <<<< %s >>>>\n", buffer);
- fprintf(stderr, " scope = %s\n", scope ? scope : "(null)");
-#endif /* DEBUG */
-
- variable = add_variable(MXML_NO_PARENT, "variable", type);
- type = NULL;
-
- sort_node(tree, variable);
-
- if (scope)
- mxmlElementSetAttr(variable, "scope", scope);
- }
- }
- else
- {
-#ifdef DEBUG
- fprintf(stderr, "Identifier: <<<< %s >>>>\n", buffer);
-#endif /* DEBUG */
-
- mxmlNewText(type, type->child != NULL &&
- type->last_child->value.text.string[0] != '(' &&
- type->last_child->value.text.string[0] != '*',
- buffer);
- }
- }
- else if (enumeration && !isdigit(buffer[0] & 255))
- {
-#ifdef DEBUG
- fprintf(stderr, "Constant: <<<< %s >>>\n", buffer);
-#endif /* DEBUG */
-
- constant = mxmlNewElement(MXML_NO_PARENT, "constant");
- mxmlElementSetAttr(constant, "name", buffer);
- sort_node(enumeration, constant);
- }
- else if (type)
- {
- mxmlDelete(type);
- type = NULL;
- }
- }
- break;
- }
-
-#if DEBUG > 1
- if (state != oldstate)
- {
- fprintf(stderr, " changed states from %s to %s on receipt of character '%c'...\n",
- states[oldstate], states[state], oldch);
- fprintf(stderr, " variable = %p\n", variable);
- if (type)
- {
- fputs(" type =", stderr);
- for (temp = type->child; temp; temp = temp->next)
- fprintf(stderr, " \"%s\"", temp->value.text.string);
- fputs("\n", stderr);
- }
- }
-#endif /* DEBUG > 1 */
- }
-
- mxmlDelete(comment);
-
- /*
- * All done, return with no errors...
- */
-
- return (0);
-}
-
-
-/*
- * 'sort_node()' - Insert a node sorted into a tree.
- */
-
-static void
-sort_node(mxml_node_t *tree, /* I - Tree to sort into */
- mxml_node_t *node) /* I - Node to add */
-{
- mxml_node_t *temp; /* Current node */
- const char *tempname, /* Name of current node */
- *nodename, /* Name of node */
- *scope; /* Scope */
-
-
-#if DEBUG > 1
- fprintf(stderr, " sort_node(tree=%p, node=%p)\n", tree, node);
-#endif /* DEBUG > 1 */
-
- /*
- * Range check input...
- */
-
- if (!tree || !node || node->parent == tree)
- return;
-
- /*
- * Get the node name...
- */
-
- if ((nodename = mxmlElementGetAttr(node, "name")) == NULL)
- return;
-
-#if DEBUG > 1
- fprintf(stderr, " nodename=%p (\"%s\")\n", nodename, nodename);
-#endif /* DEBUG > 1 */
-
- /*
- * Delete any existing definition at this level, if one exists...
- */
-
- if ((temp = mxmlFindElement(tree, tree, node->value.element.name,
- "name", nodename, MXML_DESCEND_FIRST)) != NULL)
- {
- /*
- * Copy the scope if needed...
- */
-
- if ((scope = mxmlElementGetAttr(temp, "scope")) != NULL &&
- mxmlElementGetAttr(node, "scope") == NULL)
- {
-#ifdef DEBUG
- fprintf(stderr, " copying scope %s for %s\n", scope, nodename);
-#endif /* DEBUG */
-
- mxmlElementSetAttr(node, "scope", scope);
- }
-
- mxmlDelete(temp);
- }
-
- /*
- * Add the node into the tree at the proper place...
- */
-
- for (temp = tree->child; temp; temp = temp->next)
- {
-#if DEBUG > 1
- fprintf(stderr, " temp=%p\n", temp);
-#endif /* DEBUG > 1 */
-
- if ((tempname = mxmlElementGetAttr(temp, "name")) == NULL)
- continue;
-
-#if DEBUG > 1
- fprintf(stderr, " tempname=%p (\"%s\")\n", tempname, tempname);
-#endif /* DEBUG > 1 */
-
- if (strcmp(nodename, tempname) < 0)
- break;
- }
-
- if (temp)
- mxmlAdd(tree, MXML_ADD_BEFORE, temp, node);
- else
- mxmlAdd(tree, MXML_ADD_AFTER, MXML_ADD_TO_PARENT, node);
-}
-
-
-/*
- * 'update_comment()' - Update a comment node.
- */
-
-static void
-update_comment(mxml_node_t *parent, /* I - Parent node */
- mxml_node_t *comment) /* I - Comment node */
-{
- char *ptr; /* Pointer into comment */
-
-
-#ifdef DEBUG
- fprintf(stderr, "update_comment(parent=%p, comment=%p)\n",
- parent, comment);
-#endif /* DEBUG */
-
- /*
- * Range check the input...
- */
-
- if (!parent || !comment)
- return;
-
- /*
- * Update the comment...
- */
-
- ptr = comment->value.text.string;
-
- if (*ptr == '\'')
- {
- /*
- * Convert "'name()' - description" to "description".
- */
-
- for (ptr ++; *ptr && *ptr != '\''; ptr ++);
-
- if (*ptr == '\'')
- {
- ptr ++;
- while (isspace(*ptr & 255))
- ptr ++;
-
- if (*ptr == '-')
- ptr ++;
-
- while (isspace(*ptr & 255))
- ptr ++;
-
- safe_strcpy(comment->value.text.string, ptr);
- }
- }
- else if (!strncmp(ptr, "I ", 2) || !strncmp(ptr, "O ", 2) ||
- !strncmp(ptr, "IO ", 3))
- {
- /*
- * 'Convert "I - description", "IO - description", or "O - description"
- * to description + directory attribute.
- */
-
- ptr = strchr(ptr, ' ');
- *ptr++ = '\0';
-
- if (!strcmp(parent->value.element.name, "argument"))
- mxmlElementSetAttr(parent, "direction", comment->value.text.string);
-
- while (isspace(*ptr & 255))
- ptr ++;
-
- if (*ptr == '-')
- ptr ++;
-
- while (isspace(*ptr & 255))
- ptr ++;
-
- safe_strcpy(comment->value.text.string, ptr);
- }
-
- /*
- * Eliminate leading and trailing *'s...
- */
-
- for (ptr = comment->value.text.string; *ptr == '*'; ptr ++);
- for (; isspace(*ptr & 255); ptr ++);
- if (ptr > comment->value.text.string)
- safe_strcpy(comment->value.text.string, ptr);
-
- for (ptr = comment->value.text.string + strlen(comment->value.text.string) - 1;
- ptr > comment->value.text.string && *ptr == '*';
- ptr --)
- *ptr = '\0';
- for (; ptr > comment->value.text.string && isspace(*ptr & 255); ptr --)
- *ptr = '\0';
-
-#ifdef DEBUG
- fprintf(stderr, " updated comment = %s\n", comment->value.text.string);
-#endif /* DEBUG */
-}
-
-
-/*
- * 'write_documentation()' - Write HTML documentation.
- */
-
-static void
-write_documentation(mxml_node_t *doc) /* I - XML documentation */
-{
- int i; /* Looping var */
- mxml_node_t *function, /* Current function */
- *scut, /* Struct/class/union/typedef */
- *arg, /* Current argument */
- *description, /* Description of function/var */
- *type; /* Type for argument */
- const char *name, /* Name of function/type */
- *cname, /* Class name */
- *defval, /* Default value */
- *parent; /* Parent class */
- int inscope; /* Variable/method scope */
- char prefix; /* Prefix character */
- static const char * const scopes[] = /* Scope strings */
- {
- "private",
- "protected",
- "public"
- };
-
-
- /*
- * Standard header...
- */
-
- puts("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" "
- "\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n"
- "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en' lang='en'>\n"
- "<head>\n"
- "\t<title>Documentation</title>\n"
- "\t<meta name='creator' content='" MXML_VERSION "'/>\n"
- "\t<style><!--\n"
- "\th1, h2, h3, p { font-family: sans-serif; text-align: justify; }\n"
- "\ttt, pre a:link, pre a:visited, tt a:link, tt a:visited { font-weight: bold; color: #7f0000; }\n"
- "\tpre { font-weight: bold; color: #7f0000; margin-left: 2em; }\n"
- "\t--></style>\n"
- "</head>\n"
- "<body>");
-
- /*
- * Table of contents...
- */
-
- puts("<h2>Contents</h2>");
- puts("<ul>");
- if (mxmlFindElement(doc, doc, "class", NULL, NULL, MXML_DESCEND_FIRST))
- puts("\t<li><a href='#_classes'>Classes</a></li>");
- if (mxmlFindElement(doc, doc, "enumeration", NULL, NULL, MXML_DESCEND_FIRST))
- puts("\t<li><a href='#_enumerations'>Enumerations</a></li>");
- if (mxmlFindElement(doc, doc, "function", NULL, NULL, MXML_DESCEND_FIRST))
- puts("\t<li><a href='#_functions'>Functions</a></li>");
- if (mxmlFindElement(doc, doc, "struct", NULL, NULL, MXML_DESCEND_FIRST))
- puts("\t<li><a href='#_structures'>Structures</a></li>");
- if (mxmlFindElement(doc, doc, "typedef", NULL, NULL, MXML_DESCEND_FIRST))
- puts("\t<li><a href='#_types'>Types</a></li>");
- if (mxmlFindElement(doc, doc, "union", NULL, NULL, MXML_DESCEND_FIRST))
- puts("\t<li><a href='#_unions'>Unions</a></li>");
- if (mxmlFindElement(doc, doc, "variable", NULL, NULL, MXML_DESCEND_FIRST))
- puts("\t<li><a href='#_variables'>Variables</a></li>");
- puts("</ul>");
-
- /*
- * List of classes...
- */
-
- if (mxmlFindElement(doc, doc, "class", NULL, NULL, MXML_DESCEND_FIRST))
- {
- puts("<!-- NEW PAGE -->\n"
- "<h2><a name='_classes'>Classes</a></h2>\n"
- "<ul>");
-
- for (scut = mxmlFindElement(doc, doc, "class", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "class", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("\t<li><a href='#%s'><tt>%s</tt></a></li>\n", name, name);
- }
-
- puts("</ul>");
-
- for (scut = mxmlFindElement(doc, doc, "class", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "class", NULL, NULL,
- MXML_NO_DESCEND))
- {
- cname = mxmlElementGetAttr(scut, "name");
- printf("<!-- NEW PAGE -->\n"
- "<h3><a name='%s'>%s</a></h3>\n"
- "<hr noshade/>\n", cname, cname);
-
- description = mxmlFindElement(scut, scut, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- {
- fputs("<h4>Description</h4>\n"
- "<p>", stdout);
- write_element(NULL, description);
- puts("</p>");
- }
-
- printf("<h4>Definition</h4>\n"
- "<pre>\n"
- "class %s", cname);
- if ((parent = mxmlElementGetAttr(scut, "parent")) != NULL)
- printf(" %s", parent);
- puts("\n{");
-
- for (i = 0; i < 3; i ++)
- {
- inscope = 0;
-
- for (arg = mxmlFindElement(scut, scut, "variable", "scope", scopes[i],
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, scut, "variable", "scope", scopes[i],
- MXML_NO_DESCEND))
- {
- if (!inscope)
- {
- inscope = 1;
- printf(" %s:\n", scopes[i]);
- }
-
- printf(" ");
- write_element(doc, mxmlFindElement(arg, arg, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- printf(" %s;\n", mxmlElementGetAttr(arg, "name"));
- }
-
- for (function = mxmlFindElement(scut, scut, "function", "scope", scopes[i],
- MXML_DESCEND_FIRST);
- function;
- function = mxmlFindElement(function, scut, "function", "scope", scopes[i],
- MXML_NO_DESCEND))
- {
- if (!inscope)
- {
- inscope = 1;
- printf(" %s:\n", scopes[i]);
- }
-
- name = mxmlElementGetAttr(function, "name");
-
- printf(" ");
-
- arg = mxmlFindElement(function, function, "returnvalue", NULL,
- NULL, MXML_DESCEND_FIRST);
-
- if (arg)
- {
- write_element(doc, mxmlFindElement(arg, arg, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- putchar(' ');
- }
- else if (strcmp(cname, name) && strcmp(cname, name + 1))
- fputs("void ", stdout);
-
- printf("<a href='#%s.%s'>%s</a>", cname, name, name);
-
- for (arg = mxmlFindElement(function, function, "argument", NULL, NULL,
- MXML_DESCEND_FIRST), prefix = '(';
- arg;
- arg = mxmlFindElement(arg, function, "argument", NULL, NULL,
- MXML_NO_DESCEND), prefix = ',')
- {
- type = mxmlFindElement(arg, arg, "type", NULL, NULL,
- MXML_DESCEND_FIRST);
-
- putchar(prefix);
- if (prefix == ',')
- putchar(' ');
-
- if (type->child)
- {
- write_element(doc, type);
- putchar(' ');
- }
- fputs(mxmlElementGetAttr(arg, "name"), stdout);
- if ((defval = mxmlElementGetAttr(arg, "default")) != NULL)
- printf(" %s", defval);
- }
-
- if (prefix == '(')
- puts("(void);");
- else
- puts(");");
- }
- }
-
- puts("};\n</pre>\n"
- "<h4>Members</h4>\n"
- "<p class='table'><table align='center' border='1' "
- "cellpadding='5' cellspacing='0' width='80%'>\n"
- "<thead><tr bgcolor='#cccccc'><th>Name</th><th>Description</th></tr></thead>\n"
- "<tbody>");
-
- for (arg = mxmlFindElement(scut, scut, "variable", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, scut, "variable", NULL, NULL,
- MXML_NO_DESCEND))
- {
- printf("<tr><td><tt>%s</tt></td><td>", mxmlElementGetAttr(arg, "name"));
-
- write_element(NULL, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
-
- puts("</td></tr>");
- }
-
- for (function = mxmlFindElement(scut, scut, "function", NULL, NULL,
- MXML_DESCEND_FIRST);
- function;
- function = mxmlFindElement(function, scut, "function", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(function, "name");
-
- printf("<tr><td><tt><a name='%s.%s'>%s()</a></tt></td><td>",
- cname, name, name);
-
- description = mxmlFindElement(function, function, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- write_element(NULL, description);
-
- arg = mxmlFindElement(function, function, "returnvalue", NULL,
- NULL, MXML_DESCEND_FIRST);
-
- if (arg)
- {
- fputs("\n<i>Returns:</i> ", stdout);
- write_element(NULL, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
- }
-
- puts("</td></tr>");
- }
-
- puts("</tbody></table></p>");
- }
- }
-
- /*
- * List of enumerations...
- */
-
- if (mxmlFindElement(doc, doc, "enumeration", NULL, NULL, MXML_DESCEND_FIRST))
- {
- puts("<!-- NEW PAGE -->\n"
- "<h2><a name='_enumerations'>Enumerations</a></h2>\n"
- "<ul>");
-
- for (scut = mxmlFindElement(doc, doc, "enumeration", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "enumeration", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("\t<li><a href='#%s'><tt>%s</tt></a></li>\n", name, name);
- }
-
- puts("</ul>");
-
- for (scut = mxmlFindElement(doc, doc, "enumeration", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "enumeration", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("<!-- NEW PAGE -->\n"
- "<h3><a name='%s'>%s</a></h3>\n"
- "<hr noshade/>\n", name, name);
-
- description = mxmlFindElement(scut, scut, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- {
- fputs("<h4>Description</h4>\n"
- "<p>", stdout);
- write_element(NULL, description);
- puts("</p>");
- }
-
- puts("<h4>Values</h4>\n"
- "<p class='table'><table align='center' border='1' width='80%' "
- "cellpadding='5' cellspacing='0' width='80%'>\n"
- "<thead><tr bgcolor='#cccccc'><th>Name</th><th>Description</th></tr></thead>\n"
- "<tbody>");
-
- for (arg = mxmlFindElement(scut, scut, "constant", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, scut, "constant", NULL, NULL,
- MXML_NO_DESCEND))
- {
- printf("<tr><td><tt>%s</tt></td><td>", mxmlElementGetAttr(arg, "name"));
-
- write_element(doc, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
-
- puts("</td></tr>");
- }
-
- puts("</tbody></table></p>");
- }
- }
-
- /*
- * List of functions...
- */
-
- if (mxmlFindElement(doc, doc, "function", NULL, NULL, MXML_DESCEND_FIRST))
- {
- puts("<!-- NEW PAGE -->\n"
- "<h2><a name='_functions'>Functions</a></h2>\n"
- "<ul>");
-
- for (function = mxmlFindElement(doc, doc, "function", NULL, NULL,
- MXML_DESCEND_FIRST);
- function;
- function = mxmlFindElement(function, doc, "function", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(function, "name");
- printf("\t<li><a href='#%s'><tt>%s()</tt></a></li>\n", name, name);
- }
-
- puts("</ul>");
-
- for (function = mxmlFindElement(doc, doc, "function", NULL, NULL,
- MXML_DESCEND_FIRST);
- function;
- function = mxmlFindElement(function, doc, "function", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(function, "name");
- printf("<!-- NEW PAGE -->\n"
- "<h3><a name='%s'>%s()</a></h3>\n"
- "<hr noshade/>\n", name, name);
-
- description = mxmlFindElement(function, function, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- {
- fputs("<h4>Description</h4>\n"
- "<p>", stdout);
- write_element(NULL, description);
- puts("</p>");
- }
-
- puts("<h4>Syntax</h4>\n"
- "<pre>");
-
- arg = mxmlFindElement(function, function, "returnvalue", NULL,
- NULL, MXML_DESCEND_FIRST);
-
- if (arg)
- write_element(doc, mxmlFindElement(arg, arg, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- else
- fputs("void", stdout);
-
- printf("\n%s", name);
- for (arg = mxmlFindElement(function, function, "argument", NULL, NULL,
- MXML_DESCEND_FIRST), prefix = '(';
- arg;
- arg = mxmlFindElement(arg, function, "argument", NULL, NULL,
- MXML_NO_DESCEND), prefix = ',')
- {
- type = mxmlFindElement(arg, arg, "type", NULL, NULL,
- MXML_DESCEND_FIRST);
-
- printf("%c\n ", prefix);
- if (type->child)
- {
- write_element(doc, type);
- putchar(' ');
- }
- fputs(mxmlElementGetAttr(arg, "name"), stdout);
- if ((defval = mxmlElementGetAttr(arg, "default")) != NULL)
- printf(" %s", defval);
- }
-
- if (prefix == '(')
- puts("(void);\n</pre>");
- else
- puts(");\n</pre>");
-
- puts("<h4>Arguments</h4>");
-
- if (prefix == '(')
- puts("<p>None.</p>");
- else
- {
- puts("<p class='table'><table align='center' border='1' width='80%' "
- "cellpadding='5' cellspacing='0' width='80%'>\n"
- "<thead><tr bgcolor='#cccccc'><th>Name</th><th>Description</th></tr></thead>\n"
- "<tbody>");
-
- for (arg = mxmlFindElement(function, function, "argument", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, function, "argument", NULL, NULL,
- MXML_NO_DESCEND))
- {
- printf("<tr><td><tt>%s</tt></td><td>", mxmlElementGetAttr(arg, "name"));
-
- write_element(NULL, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
-
- puts("</td></tr>");
- }
-
- puts("</tbody></table></p>");
- }
-
- puts("<h4>Returns</h4>");
-
- arg = mxmlFindElement(function, function, "returnvalue", NULL,
- NULL, MXML_DESCEND_FIRST);
-
- if (!arg)
- puts("<p>Nothing.</p>");
- else
- {
- fputs("<p>", stdout);
- write_element(NULL, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
- puts("</p>");
- }
- }
- }
-
- /*
- * List of structures...
- */
-
- if (mxmlFindElement(doc, doc, "struct", NULL, NULL, MXML_DESCEND_FIRST))
- {
- puts("<!-- NEW PAGE -->\n"
- "<h2><a name='_structures'>Structures</a></h2>\n"
- "<ul>");
-
- for (scut = mxmlFindElement(doc, doc, "struct", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "struct", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("\t<li><a href='#%s'><tt>%s</tt></a></li>\n", name, name);
- }
-
- puts("</ul>");
-
- for (scut = mxmlFindElement(doc, doc, "struct", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "struct", NULL, NULL,
- MXML_NO_DESCEND))
- {
- cname = mxmlElementGetAttr(scut, "name");
- printf("<!-- NEW PAGE -->\n"
- "<h3><a name='%s'>%s</a></h3>\n"
- "<hr noshade/>\n", cname, cname);
-
- description = mxmlFindElement(scut, scut, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- {
- fputs("<h4>Description</h4>\n"
- "<p>", stdout);
- write_element(NULL, description);
- puts("</p>");
- }
-
- printf("<h4>Definition</h4>\n"
- "<pre>\n"
- "struct %s\n{\n", cname);
- for (arg = mxmlFindElement(scut, scut, "variable", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, scut, "variable", NULL, NULL,
- MXML_NO_DESCEND))
- {
- printf(" ");
- write_element(doc, mxmlFindElement(arg, arg, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- printf(" %s;\n", mxmlElementGetAttr(arg, "name"));
- }
-
- for (function = mxmlFindElement(scut, scut, "function", NULL, NULL,
- MXML_DESCEND_FIRST);
- function;
- function = mxmlFindElement(function, scut, "function", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(function, "name");
-
- printf(" ");
-
- arg = mxmlFindElement(function, function, "returnvalue", NULL,
- NULL, MXML_DESCEND_FIRST);
-
- if (arg)
- {
- write_element(doc, mxmlFindElement(arg, arg, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- putchar(' ');
- }
- else if (strcmp(cname, name) && strcmp(cname, name + 1))
- fputs("void ", stdout);
-
- printf("<a href='#%s.%s'>%s</a>", cname, name, name);
-
- for (arg = mxmlFindElement(function, function, "argument", NULL, NULL,
- MXML_DESCEND_FIRST), prefix = '(';
- arg;
- arg = mxmlFindElement(arg, function, "argument", NULL, NULL,
- MXML_NO_DESCEND), prefix = ',')
- {
- type = mxmlFindElement(arg, arg, "type", NULL, NULL,
- MXML_DESCEND_FIRST);
-
- putchar(prefix);
- if (prefix == ',')
- putchar(' ');
-
- if (type->child)
- {
- write_element(doc, type);
- putchar(' ');
- }
- fputs(mxmlElementGetAttr(arg, "name"), stdout);
- if ((defval = mxmlElementGetAttr(arg, "default")) != NULL)
- printf(" %s", defval);
- }
-
- if (prefix == '(')
- puts("(void);");
- else
- puts(");");
- }
-
- puts("};\n</pre>\n"
- "<h4>Members</h4>\n"
- "<p class='table'><table align='center' border='1' width='80%' "
- "cellpadding='5' cellspacing='0' width='80%'>\n"
- "<thead><tr bgcolor='#cccccc'><th>Name</th><th>Description</th></tr></thead>\n"
- "<tbody>");
-
- for (arg = mxmlFindElement(scut, scut, "variable", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, scut, "variable", NULL, NULL,
- MXML_NO_DESCEND))
- {
- printf("<tr><td><tt>%s</tt></td><td>", mxmlElementGetAttr(arg, "name"));
-
- write_element(NULL, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
-
- puts("</td></tr>");
- }
-
- for (function = mxmlFindElement(scut, scut, "function", NULL, NULL,
- MXML_DESCEND_FIRST);
- function;
- function = mxmlFindElement(function, scut, "function", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(function, "name");
-
- printf("<tr><td><tt><a name='%s.%s'>%s()</a></tt></td><td>",
- cname, name, name);
-
- description = mxmlFindElement(function, function, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- write_element(NULL, description);
-
- arg = mxmlFindElement(function, function, "returnvalue", NULL,
- NULL, MXML_DESCEND_FIRST);
-
- if (arg)
- {
- fputs("\n<i>Returns:</i> ", stdout);
- write_element(NULL, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
- }
-
- puts("</td></tr>");
- }
-
- puts("</tbody></table></p>");
- }
- }
-
- /*
- * List of types...
- */
-
- if (mxmlFindElement(doc, doc, "typedef", NULL, NULL, MXML_DESCEND_FIRST))
- {
- puts("<!-- NEW PAGE -->\n"
- "<h2><a name='_types'>Types</a></h2>\n"
- "<ul>");
-
- for (scut = mxmlFindElement(doc, doc, "typedef", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "typedef", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("\t<li><a href='#%s'><tt>%s</tt></a></li>\n", name, name);
- }
-
- puts("</ul>");
-
- for (scut = mxmlFindElement(doc, doc, "typedef", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "typedef", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("<!-- NEW PAGE -->\n"
- "<h3><a name='%s'>%s</a></h3>\n"
- "<hr noshade/>\n", name, name);
-
- description = mxmlFindElement(scut, scut, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- {
- fputs("<h4>Description</h4>\n"
- "<p>", stdout);
- write_element(NULL, description);
- puts("</p>");
- }
-
- fputs("<h4>Definition</h4>\n"
- "<pre>\n"
- "typedef ", stdout);
- write_element(doc, mxmlFindElement(scut, scut, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- printf(" %s;\n</pre>\n", name);
- }
- }
-
- /*
- * List of unions...
- */
-
- if (mxmlFindElement(doc, doc, "union", NULL, NULL, MXML_DESCEND_FIRST))
- {
- puts("<!-- NEW PAGE -->\n"
- "<h2><a name='_unions'>Unions</a></h2>\n"
- "<ul>");
-
- for (scut = mxmlFindElement(doc, doc, "union", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "union", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("\t<li><a href='#%s'><tt>%s</tt></a></li>\n", name, name);
- }
-
- puts("</ul>");
-
- for (scut = mxmlFindElement(doc, doc, "union", NULL, NULL,
- MXML_DESCEND_FIRST);
- scut;
- scut = mxmlFindElement(scut, doc, "union", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(scut, "name");
- printf("<!-- NEW PAGE -->\n"
- "<h3><a name='%s'>%s</a></h3>\n"
- "<hr noshade/>\n", name, name);
-
- description = mxmlFindElement(scut, scut, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- {
- fputs("<h4>Description</h4>\n"
- "<p>", stdout);
- write_element(NULL, description);
- puts("</p>");
- }
-
- printf("<h4>Definition</h4>\n"
- "<pre>\n"
- "union %s\n{\n", name);
- for (arg = mxmlFindElement(scut, scut, "variable", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, scut, "variable", NULL, NULL,
- MXML_NO_DESCEND))
- {
- printf(" ");
- write_element(doc, mxmlFindElement(arg, arg, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- printf(" %s;\n", mxmlElementGetAttr(arg, "name"));
- }
-
- puts("};\n</pre>\n"
- "<h4>Members</h4>\n"
- "<p class='table'><table align='center' border='1' width='80%' "
- "cellpadding='5' cellspacing='0' width='80%'>\n"
- "<thead><tr bgcolor='#cccccc'><th>Name</th><th>Description</th></tr></thead>\n"
- "<tbody>");
-
- for (arg = mxmlFindElement(scut, scut, "variable", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, scut, "variable", NULL, NULL,
- MXML_NO_DESCEND))
- {
- printf("<tr><td><tt>%s</tt></td><td>", mxmlElementGetAttr(arg, "name"));
-
- write_element(NULL, mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST));
-
- puts("</td></tr>");
- }
-
- puts("</tbody></table></p>");
- }
- }
-
- /*
- * Variables...
- */
-
- if (mxmlFindElement(doc, doc, "variable", NULL, NULL, MXML_DESCEND_FIRST))
- {
- puts("<!-- NEW PAGE -->\n"
- "<h2><a name='_variables'>Variables</a></h2>\n"
- "<ul>");
-
- for (arg = mxmlFindElement(doc, doc, "variable", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, doc, "variable", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(arg, "name");
- printf("\t<li><a href='#%s'><tt>%s</tt></a></li>\n", name, name);
- }
-
- puts("</ul>");
-
- for (arg = mxmlFindElement(doc, doc, "variable", NULL, NULL,
- MXML_DESCEND_FIRST);
- arg;
- arg = mxmlFindElement(arg, doc, "variable", NULL, NULL,
- MXML_NO_DESCEND))
- {
- name = mxmlElementGetAttr(arg, "name");
- printf("<!-- NEW PAGE -->\n"
- "<h3><a name='%s'>%s</a></h3>\n"
- "<hr noshade/>", name, name);
-
- description = mxmlFindElement(arg, arg, "description", NULL,
- NULL, MXML_DESCEND_FIRST);
- if (description)
- {
- fputs("<h4>Description</h4>\n"
- "<p>", stdout);
- write_element(NULL, description);
- puts("</p>");
- }
-
- puts("<h4>Definition</h4>\n"
- "<pre>");
-
- write_element(doc, mxmlFindElement(arg, arg, "type", NULL,
- NULL, MXML_DESCEND_FIRST));
- printf(" %s", mxmlElementGetAttr(arg, "name"));
- if ((defval = mxmlElementGetAttr(arg, "default")) != NULL)
- printf(" %s", defval);
- puts(";\n</pre>");
- }
- }
-
- /*
- * Standard footer...
- */
-
- puts("</body>\n"
- "</html>");
-}
-
-
-/*
- * 'write_element()' - Write an element's text nodes.
- */
-
-static void
-write_element(mxml_node_t *doc, /* I - Document tree */
- mxml_node_t *element) /* I - Element to write */
-{
- mxml_node_t *node; /* Current node */
-
-
- if (!element)
- return;
-
- for (node = element->child;
- node;
- node = mxmlWalkNext(node, element, MXML_NO_DESCEND))
- if (node->type == MXML_TEXT)
- {
- if (node->value.text.whitespace)
- putchar(' ');
-
- if (mxmlFindElement(doc, doc, "class", "name", node->value.text.string,
- MXML_DESCEND) ||
- mxmlFindElement(doc, doc, "enumeration", "name",
- node->value.text.string, MXML_DESCEND) ||
- mxmlFindElement(doc, doc, "struct", "name", node->value.text.string,
- MXML_DESCEND) ||
- mxmlFindElement(doc, doc, "typedef", "name", node->value.text.string,
- MXML_DESCEND) ||
- mxmlFindElement(doc, doc, "union", "name", node->value.text.string,
- MXML_DESCEND))
- {
- printf("<a href='#");
- write_string(node->value.text.string);
- printf("'>");
- write_string(node->value.text.string);
- printf("</a>");
- }
- else
- write_string(node->value.text.string);
- }
-}
-
-
-/*
- * 'write_string()' - Write a string, quoting XHTML special chars as needed...
- */
-
-static void
-write_string(const char *s) /* I - String to write */
-{
- while (*s)
- {
- if (*s == '&')
- fputs("&", stdout);
- else if (*s == '<')
- fputs("<", stdout);
- else if (*s == '>')
- fputs(">", stdout);
- else if (*s == '\"')
- fputs(""", stdout);
- else if (*s & 128)
- {
- /*
- * Convert UTF-8 to Unicode constant...
- */
-
- int ch; /* Unicode character */
-
-
- ch = *s & 255;
-
- if ((ch & 0xe0) == 0xc0)
- {
- ch = ((ch & 0x1f) << 6) | (s[1] & 0x3f);
- s ++;
- }
- else if ((ch & 0xf0) == 0xe0)
- {
- ch = ((((ch * 0x0f) << 6) | (s[1] & 0x3f)) << 6) | (s[2] & 0x3f);
- s += 2;
- }
-
- if (ch == 0xa0)
- {
- /*
- * Handle non-breaking space as-is...
- */
-
- fputs(" ", stdout);
- }
- else
- printf("&#x%x;", ch);
- }
- else
- putchar(*s);
-
- s ++;
- }
-}
-
-
-/*
- * 'ws_cb()' - Whitespace callback for saving.
- */
-
-static const char * /* O - Whitespace string or NULL for none */
-ws_cb(mxml_node_t *node, /* I - Element node */
- int where) /* I - Where value */
-{
- const char *name; /* Name of element */
- int depth; /* Depth of node */
- static const char *spaces = " ";
- /* Whitespace (40 spaces) for indent */
-
-
- name = node->value.element.name;
-
- switch (where)
- {
- case MXML_WS_BEFORE_CLOSE :
- if (strcmp(name, "argument") &&
- strcmp(name, "class") &&
- strcmp(name, "constant") &&
- strcmp(name, "enumeration") &&
- strcmp(name, "function") &&
- strcmp(name, "mxmldoc") &&
- strcmp(name, "namespace") &&
- strcmp(name, "returnvalue") &&
- strcmp(name, "struct") &&
- strcmp(name, "typedef") &&
- strcmp(name, "union") &&
- strcmp(name, "variable"))
- return (NULL);
-
- for (depth = -4; node; node = node->parent, depth += 2);
- if (depth > 40)
- return (spaces);
- else if (depth < 2)
- return (NULL);
- else
- return (spaces + 40 - depth);
-
- case MXML_WS_AFTER_CLOSE :
- return ("\n");
-
- case MXML_WS_BEFORE_OPEN :
- for (depth = -4; node; node = node->parent, depth += 2);
- if (depth > 40)
- return (spaces);
- else if (depth < 2)
- return (NULL);
- else
- return (spaces + 40 - depth);
-
- default :
- case MXML_WS_AFTER_OPEN :
- if (strcmp(name, "argument") &&
- strcmp(name, "class") &&
- strcmp(name, "constant") &&
- strcmp(name, "enumeration") &&
- strcmp(name, "function") &&
- strcmp(name, "mxmldoc") &&
- strcmp(name, "namespace") &&
- strcmp(name, "returnvalue") &&
- strcmp(name, "struct") &&
- strcmp(name, "typedef") &&
- strcmp(name, "union") &&
- strcmp(name, "variable"))
- return (NULL);
- else
- return ("\n");
- }
-}
-
-
-/*
- * End of "$Id$".
- */
diff --git a/mxml/temp1.xmlfd b/mxml/temp1.xmlfd
deleted file mode 100644
index 044304ed7b0e54d301b36d26865541c412936f35..0000000000000000000000000000000000000000
--- a/mxml/temp1.xmlfd
+++ /dev/null
@@ -1,29 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<group>
- <option>
- <keyword type="opaque">InputSlot</keyword>
- <default type="opaque">Auto</default>
- <text>Media Source</text>
- <order type="real">10.000000</order>
- <choice>
- <keyword type="opaque">Auto</keyword>
- <text>Auto Tray Selection</text>
- <code type="opaque" />
- </choice>
- <choice>
- <keyword type="opaque">Upper</keyword>
- <text>Tray 1</text>
- <code type="opaque"><</MediaPosition 0>>setpagedevice</code>
- </choice>
- <choice>
- <keyword type="opaque">Lower</keyword>
- <text>Tray 2</text>
- <code type="opaque"><</MediaPosition 1>>setpagedevice</code>
- </choice>
- </option>
- <integer>123</integer>
- <string>Now is the time for all good men to come to the aid of their
-country.</string>
- <!-- this is a comment -->
- <![CDATA[this is CDATA 0123456789ABCDEF]]>
-</group>
diff --git a/mxml/test.xml b/mxml/test.xml
deleted file mode 100644
index 044304ed7b0e54d301b36d26865541c412936f35..0000000000000000000000000000000000000000
--- a/mxml/test.xml
+++ /dev/null
@@ -1,29 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<group>
- <option>
- <keyword type="opaque">InputSlot</keyword>
- <default type="opaque">Auto</default>
- <text>Media Source</text>
- <order type="real">10.000000</order>
- <choice>
- <keyword type="opaque">Auto</keyword>
- <text>Auto Tray Selection</text>
- <code type="opaque" />
- </choice>
- <choice>
- <keyword type="opaque">Upper</keyword>
- <text>Tray 1</text>
- <code type="opaque"><</MediaPosition 0>>setpagedevice</code>
- </choice>
- <choice>
- <keyword type="opaque">Lower</keyword>
- <text>Tray 2</text>
- <code type="opaque"><</MediaPosition 1>>setpagedevice</code>
- </choice>
- </option>
- <integer>123</integer>
- <string>Now is the time for all good men to come to the aid of their
-country.</string>
- <!-- this is a comment -->
- <![CDATA[this is CDATA 0123456789ABCDEF]]>
-</group>
diff --git a/mxml/testmxml.c b/mxml/testmxml.c
deleted file mode 100644
index 9e3f6f5e82cf8ceb997af363ed82be150478fc62..0000000000000000000000000000000000000000
--- a/mxml/testmxml.c
+++ /dev/null
@@ -1,653 +0,0 @@
-/*
- * "$Id$"
- *
- * Test program for Mini-XML, a small XML-like file parsing library.
- *
- * Copyright 2003-2005 by Michael Sweet.
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * Contents:
- *
- * main() - Main entry for test program.
- * type_cb() - XML data type callback for mxmlLoadFile()...
- * whitespace_cb() - Let the mxmlSaveFile() function know when to insert
- * newlines and tabs...
- */
-
-/*
- * Include necessary headers...
- */
-
-#include "config.h"
-#include "mxml.h"
-#ifdef WIN32
-# include <io.h>
-#else
-# include <unistd.h>
-#endif /* WIN32 */
-#include <fcntl.h>
-#ifndef O_BINARY
-# define O_BINARY 0
-#endif /* !O_BINARY */
-
-
-/*
- * Local functions...
- */
-
-mxml_type_t type_cb(mxml_node_t *node);
-const char *whitespace_cb(mxml_node_t *node, int where);
-
-
-/*
- * 'main()' - Main entry for test program.
- */
-
-int /* O - Exit status */
-main(int argc, /* I - Number of command-line args */
- char *argv[]) /* I - Command-line args */
-{
- int i; /* Looping var */
- FILE *fp; /* File to read */
- int fd; /* File descriptor */
- mxml_node_t *tree, /* XML tree */
- *node; /* Node which should be in test.xml */
- mxml_index_t *ind; /* XML index */
- char buffer[16384]; /* Save string */
- static const char *types[] = /* Strings for node types */
- {
- "MXML_ELEMENT",
- "MXML_INTEGER",
- "MXML_OPAQUE",
- "MXML_REAL",
- "MXML_TEXT"
- };
-
-
- /*
- * Check arguments...
- */
-
- if (argc != 2)
- {
- fputs("Usage: testmxml filename.xml\n", stderr);
- return (1);
- }
-
- /*
- * Test the basic functionality...
- */
-
- tree = mxmlNewElement(MXML_NO_PARENT, "element");
-
- if (!tree)
- {
- fputs("ERROR: No parent node in basic test!\n", stderr);
- return (1);
- }
-
- if (tree->type != MXML_ELEMENT)
- {
- fprintf(stderr, "ERROR: Parent has type %s (%d), expected MXML_ELEMENT!\n",
- tree->type < MXML_ELEMENT || tree->type > MXML_TEXT ?
- "UNKNOWN" : types[tree->type], tree->type);
- mxmlDelete(tree);
- return (1);
- }
-
- if (strcmp(tree->value.element.name, "element"))
- {
- fprintf(stderr, "ERROR: Parent value is \"%s\", expected \"element\"!\n",
- tree->value.element.name);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlNewInteger(tree, 123);
- mxmlNewOpaque(tree, "opaque");
- mxmlNewReal(tree, 123.4f);
- mxmlNewText(tree, 1, "text");
-
- mxmlLoadString(tree, "<group type='string'>string string string</group>",
- MXML_NO_CALLBACK);
- mxmlLoadString(tree, "<group type='integer'>1 2 3</group>",
- MXML_INTEGER_CALLBACK);
- mxmlLoadString(tree, "<group type='real'>1.0 2.0 3.0</group>",
- MXML_REAL_CALLBACK);
- mxmlLoadString(tree, "<group>opaque opaque opaque</group>",
- MXML_OPAQUE_CALLBACK);
-
- node = tree->child;
-
- if (!node)
- {
- fputs("ERROR: No first child node in basic test!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (node->type != MXML_INTEGER)
- {
- fprintf(stderr, "ERROR: First child has type %s (%d), expected MXML_INTEGER!\n",
- node->type < MXML_ELEMENT || node->type > MXML_TEXT ?
- "UNKNOWN" : types[node->type], node->type);
- mxmlDelete(tree);
- return (1);
- }
-
- if (node->value.integer != 123)
- {
- fprintf(stderr, "ERROR: First child value is %d, expected 123!\n",
- node->value.integer);
- mxmlDelete(tree);
- return (1);
- }
-
- node = node->next;
-
- if (!node)
- {
- fputs("ERROR: No second child node in basic test!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (node->type != MXML_OPAQUE)
- {
- fprintf(stderr, "ERROR: Second child has type %s (%d), expected MXML_OPAQUE!\n",
- node->type < MXML_ELEMENT || node->type > MXML_TEXT ?
- "UNKNOWN" : types[node->type], node->type);
- mxmlDelete(tree);
- return (1);
- }
-
- if (!node->value.opaque || strcmp(node->value.opaque, "opaque"))
- {
- fprintf(stderr, "ERROR: Second child value is \"%s\", expected \"opaque\"!\n",
- node->value.opaque ? node->value.opaque : "(null)");
- mxmlDelete(tree);
- return (1);
- }
-
- node = node->next;
-
- if (!node)
- {
- fputs("ERROR: No third child node in basic test!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (node->type != MXML_REAL)
- {
- fprintf(stderr, "ERROR: Third child has type %s (%d), expected MXML_REAL!\n",
- node->type < MXML_ELEMENT || node->type > MXML_TEXT ?
- "UNKNOWN" : types[node->type], node->type);
- mxmlDelete(tree);
- return (1);
- }
-
- if (node->value.real != 123.4f)
- {
- fprintf(stderr, "ERROR: Third child value is %f, expected 123.4!\n",
- node->value.real);
- mxmlDelete(tree);
- return (1);
- }
-
- node = node->next;
-
- if (!node)
- {
- fputs("ERROR: No fourth child node in basic test!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (node->type != MXML_TEXT)
- {
- fprintf(stderr, "ERROR: Fourth child has type %s (%d), expected MXML_TEXT!\n",
- node->type < MXML_ELEMENT || node->type > MXML_TEXT ?
- "UNKNOWN" : types[node->type], node->type);
- mxmlDelete(tree);
- return (1);
- }
-
- if (!node->value.text.whitespace ||
- !node->value.text.string || strcmp(node->value.text.string, "text"))
- {
- fprintf(stderr, "ERROR: Fourth child value is %d,\"%s\", expected 1,\"text\"!\n",
- node->value.text.whitespace,
- node->value.text.string ? node->value.text.string : "(null)");
- mxmlDelete(tree);
- return (1);
- }
-
- for (i = 0; i < 4; i ++)
- {
- node = node->next;
-
- if (!node)
- {
- fprintf(stderr, "ERROR: No group #%d child node in basic test!\n", i + 1);
- mxmlDelete(tree);
- return (1);
- }
-
- if (node->type != MXML_ELEMENT)
- {
- fprintf(stderr, "ERROR: Group child #%d has type %s (%d), expected MXML_ELEMENT!\n",
- i + 1, node->type < MXML_ELEMENT || node->type > MXML_TEXT ?
- "UNKNOWN" : types[node->type], node->type);
- mxmlDelete(tree);
- return (1);
- }
- }
-
- /*
- * Test indices...
- */
-
- ind = mxmlIndexNew(tree, NULL, NULL);
- if (!ind)
- {
- fputs("ERROR: Unable to create index of all nodes!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (ind->num_nodes != 5)
- {
- fprintf(stderr, "ERROR: Index of all nodes contains %d "
- "nodes; expected 5!\n", ind->num_nodes);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexReset(ind);
- if (!mxmlIndexFind(ind, "group", NULL))
- {
- fputs("ERROR: mxmlIndexFind for \"group\" failed!\n", stderr);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexDelete(ind);
-
- ind = mxmlIndexNew(tree, "group", NULL);
- if (!ind)
- {
- fputs("ERROR: Unable to create index of groups!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (ind->num_nodes != 4)
- {
- fprintf(stderr, "ERROR: Index of groups contains %d "
- "nodes; expected 4!\n", ind->num_nodes);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexReset(ind);
- if (!mxmlIndexEnum(ind))
- {
- fputs("ERROR: mxmlIndexEnum failed!\n", stderr);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexDelete(ind);
-
- ind = mxmlIndexNew(tree, NULL, "type");
- if (!ind)
- {
- fputs("ERROR: Unable to create index of type attributes!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (ind->num_nodes != 3)
- {
- fprintf(stderr, "ERROR: Index of type attributes contains %d "
- "nodes; expected 3!\n", ind->num_nodes);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexReset(ind);
- if (!mxmlIndexFind(ind, NULL, "string"))
- {
- fputs("ERROR: mxmlIndexFind for \"string\" failed!\n", stderr);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexDelete(ind);
-
- ind = mxmlIndexNew(tree, "group", "type");
- if (!ind)
- {
- fputs("ERROR: Unable to create index of elements and attributes!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if (ind->num_nodes != 3)
- {
- fprintf(stderr, "ERROR: Index of elements and attributes contains %d "
- "nodes; expected 3!\n", ind->num_nodes);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexReset(ind);
- if (!mxmlIndexFind(ind, "group", "string"))
- {
- fputs("ERROR: mxmlIndexFind for \"string\" failed!\n", stderr);
- mxmlIndexDelete(ind);
- mxmlDelete(tree);
- return (1);
- }
-
- mxmlIndexDelete(ind);
-
- /*
- * Check the mxmlDelete() works properly...
- */
-
- for (i = 0; i < 8; i ++)
- {
- if (tree->child)
- mxmlDelete(tree->child);
- else
- {
- fprintf(stderr, "ERROR: Child pointer prematurely NULL on child #%d\n",
- i + 1);
- mxmlDelete(tree);
- return (1);
- }
- }
-
- if (tree->child)
- {
- fputs("ERROR: Child pointer not NULL after deleting all children!\n", stderr);
- return (1);
- }
-
- if (tree->last_child)
- {
- fputs("ERROR: Last child pointer not NULL after deleting all children!\n", stderr);
- return (1);
- }
-
- mxmlDelete(tree);
-
- /*
- * Open the file...
- */
-
- if (argv[1][0] == '<')
- tree = mxmlLoadString(NULL, argv[1], type_cb);
- else if ((fp = fopen(argv[1], "rb")) == NULL)
- {
- perror(argv[1]);
- return (1);
- }
- else
- {
- /*
- * Read the file...
- */
-
- tree = mxmlLoadFile(NULL, fp, type_cb);
-
- fclose(fp);
- }
-
- if (!tree)
- {
- fputs("Unable to read XML file!\n", stderr);
- return (1);
- }
-
- if (!strcmp(argv[1], "test.xml"))
- {
- /*
- * Verify that mxmlFindElement() and indirectly mxmlWalkNext() work
- * properly...
- */
-
- if ((node = mxmlFindElement(tree, tree, "choice", NULL, NULL,
- MXML_DESCEND)) == NULL)
- {
- fputs("Unable to find first <choice> element in XML tree!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
-
- if ((node = mxmlFindElement(node, tree, "choice", NULL, NULL,
- MXML_NO_DESCEND)) == NULL)
- {
- fputs("Unable to find second <choice> element in XML tree!\n", stderr);
- mxmlDelete(tree);
- return (1);
- }
- }
-
- /*
- * Print the XML tree...
- */
-
- mxmlSaveFile(tree, stdout, whitespace_cb);
-
- /*
- * Save the XML tree to a string and print it...
- */
-
- if (mxmlSaveString(tree, buffer, sizeof(buffer), whitespace_cb) > 0)
- fputs(buffer, stderr);
-
- /*
- * Delete the tree...
- */
-
- mxmlDelete(tree);
-
- /*
- * Read from/write to file descriptors...
- */
-
- if (argv[1][0] != '<')
- {
- /*
- * Open the file again...
- */
-
- if ((fd = open(argv[1], O_RDONLY | O_BINARY)) < 0)
- {
- perror(argv[1]);
- return (1);
- }
-
- /*
- * Read the file...
- */
-
- tree = mxmlLoadFd(NULL, fd, type_cb);
-
- close(fd);
-
- /*
- * Create filename.xmlfd...
- */
-
- snprintf(buffer, sizeof(buffer), "%sfd", argv[1]);
-
- if ((fd = open(buffer, O_WRONLY | O_CREAT | O_TRUNC | O_BINARY, 0666)) < 0)
- {
- perror(buffer);
- mxmlDelete(tree);
- return (1);
- }
-
- /*
- * Write the file...
- */
-
- mxmlSaveFd(tree, fd, whitespace_cb);
-
- close(fd);
-
- /*
- * Delete the tree...
- */
-
- mxmlDelete(tree);
- }
-
- /*
- * Return...
- */
-
- return (0);
-}
-
-
-/*
- * 'type_cb()' - XML data type callback for mxmlLoadFile()...
- */
-
-mxml_type_t /* O - Data type */
-type_cb(mxml_node_t *node) /* I - Element node */
-{
- const char *type; /* Type string */
-
-
- /*
- * You can lookup attributes and/or use the element name, hierarchy, etc...
- */
-
- if ((type = mxmlElementGetAttr(node, "type")) == NULL)
- type = node->value.element.name;
-
- if (!strcmp(type, "integer"))
- return (MXML_INTEGER);
- else if (!strcmp(type, "opaque") || !strcmp(type, "pre"))
- return (MXML_OPAQUE);
- else if (!strcmp(type, "real"))
- return (MXML_REAL);
- else
- return (MXML_TEXT);
-}
-
-
-/*
- * 'whitespace_cb()' - Let the mxmlSaveFile() function know when to insert
- * newlines and tabs...
- */
-
-const char * /* O - Whitespace string or NULL */
-whitespace_cb(mxml_node_t *node, /* I - Element node */
- int where) /* I - Open or close tag? */
-{
- mxml_node_t *parent; /* Parent node */
- int level; /* Indentation level */
- const char *name; /* Name of element */
- static const char *tabs = "\t\t\t\t\t\t\t\t";
- /* Tabs for indentation */
-
-
- /*
- * We can conditionally break to a new line before or after any element.
- * These are just common HTML elements...
- */
-
- name = node->value.element.name;
-
- if (!strcmp(name, "html") || !strcmp(name, "head") || !strcmp(name, "body") ||
- !strcmp(name, "pre") || !strcmp(name, "p") ||
- !strcmp(name, "h1") || !strcmp(name, "h2") || !strcmp(name, "h3") ||
- !strcmp(name, "h4") || !strcmp(name, "h5") || !strcmp(name, "h6"))
- {
- /*
- * Newlines before open and after close...
- */
-
- if (where == MXML_WS_BEFORE_OPEN || where == MXML_WS_AFTER_CLOSE)
- return ("\n");
- }
- else if (!strcmp(name, "dl") || !strcmp(name, "ol") || !strcmp(name, "ul"))
- {
- /*
- * Put a newline before and after list elements...
- */
-
- return ("\n");
- }
- else if (!strcmp(name, "dd") || !strcmp(name, "dt") || !strcmp(name, "li"))
- {
- /*
- * Put a tab before <li>'s, <dd>'s, and <dt>'s, and a newline after them...
- */
-
- if (where == MXML_WS_BEFORE_OPEN)
- return ("\t");
- else if (where == MXML_WS_AFTER_CLOSE)
- return ("\n");
- }
- else if (!strcmp(name, "?xml"))
- {
- return (NULL);
- }
- else if (where == MXML_WS_BEFORE_OPEN ||
- ((!strcmp(name, "choice") || !strcmp(name, "option")) &&
- where == MXML_WS_BEFORE_CLOSE))
- {
- for (level = -1, parent = node->parent;
- parent;
- level ++, parent = parent->parent);
-
- if (level > 8)
- level = 8;
- else if (level < 0)
- level = 0;
-
- return (tabs + 8 - level);
- }
- else if (where == MXML_WS_AFTER_CLOSE ||
- ((!strcmp(name, "group") || !strcmp(name, "option") ||
- !strcmp(name, "choice")) &&
- where == MXML_WS_AFTER_OPEN))
- return ("\n");
- else if (where == MXML_WS_AFTER_OPEN && !node->child)
- return ("\n");
-
- /*
- * Return NULL for no added whitespace...
- */
-
- return (NULL);
-}
-
-
-/*
- * End of "$Id$".
- */