/*#define DEBUG 1*/ /* * Documentation generator using Mini-XML, a small XML file parsing * library. * * Copyright 2003-2017 by Michael R Sweet. * * These coded instructions, statements, and computer programs are the * property of Michael R Sweet and are protected by Federal copyright * law. Distribution and use rights are outlined in the file "COPYING" * which should have been included with this file. If this file is * missing or damaged, see the license at: * * https://michaelrsweet.github.io/mxml */ /* * Include necessary headers... */ #include "config.h" #include "mxml.h" #include "mmd.h" #include #include #ifndef WIN32 # include # include #endif /* !WIN32 */ #ifdef __APPLE__ # include # include extern char **environ; #endif /* __APPLE__ */ #ifdef HAVE_ZLIB_H # include "zipc.h" #endif /* HAVE_ZLIB_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: * * https://www.cups.org/doc/spec-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, * man pages, or EPUB as desired. The following is a poor-man's schema: * * * * * [optional...] * * descriptive text * * * * descriptive text * ... * * * * descriptive text * type string * * * * descriptive text * * descriptive text * type string * * * descriptive text * type string * * function names separated by spaces * * * * descriptive text * type string * * * * descriptive text * ... * ... * * * * descriptive text * ... * * * * descriptive text * ... * ... * ... * ... * ... * * * */ /* * 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 */ /* * Output modes... */ #define OUTPUT_NONE 0 /* No output */ #define OUTPUT_HTML 1 /* Output HTML */ #define OUTPUT_XML 2 /* Output XML */ #define OUTPUT_MAN 3 /* Output nroff/man */ #define OUTPUT_TOKENS 4 /* Output docset Tokens.xml file */ #define OUTPUT_EPUB 5 /* Output EPUB (XHTML) */ #define OUTPUT_DOCSET 6 /* Output Xcode documentation set (HTML) */ /* * Local types... */ typedef struct { char level, /* Table of contents level (0-N) */ anchor[64], /* Anchor in file */ title[447]; /* Title of section */ } toc_entry_t; typedef struct { size_t alloc_entries, /* Allocated entries */ num_entries; /* Number of entries */ toc_entry_t *entries; /* Entries */ } toc_t; /* * Local functions... */ static void add_toc(toc_t *toc, int level, const char *anchor, const char *title); static mxml_node_t *add_variable(mxml_node_t *parent, const char *name, mxml_node_t *type); static toc_t *build_toc(mxml_node_t *doc, const char *bodyfile, mmd_t *body, int mode); static mxml_node_t *find_public(mxml_node_t *node, mxml_node_t *top, const char *element, const char *name, int mode); static void free_toc(toc_t *toc); static char *get_comment_info(mxml_node_t *description); static char *get_iso_date(time_t t); static char *get_text(mxml_node_t *node, char *buffer, int buflen); static int is_markdown(const char *filename); static mxml_type_t load_cb(mxml_node_t *node); static const char *markdown_anchor(const char *text); static void markdown_write_block(FILE *out, mmd_t *parent, int mode); static void markdown_write_leaf(FILE *out, mmd_t *node, int mode); static mxml_node_t *new_documentation(mxml_node_t **mxmldoc); #ifdef __APPLE__ static int remove_directory(const char *path); #endif /* __APPLE__ */ 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 usage(const char *option); static void write_description(FILE *out, int mode, mxml_node_t *description, const char *element, int summary); #ifdef __APPLE__ static void write_docset(const char *docset, const char *section, const char *title, const char *author, const char *copyright, const char *docversion, const char *feedname, const char *feedurl, const char *cssfile, const char *headerfile, const char *bodyfile, mmd_t *body, mxml_node_t *doc, const char *footerfile); #endif /* __APPLE__ */ static void write_element(FILE *out, mxml_node_t *doc, mxml_node_t *element, int mode); #ifdef HAVE_ZLIB_H static void write_epub(const char *epubfile, const char *section, const char *title, const char *author, const char *copyright, const char *docversion, const char *cssfile, const char *coverimage, const char *headerfile, const char *bodyfile, mmd_t *body, mxml_node_t *doc, const char *footerfile); #endif /* HAVE_ZLIB_H */ static void write_file(FILE *out, const char *file, int mode); static void write_function(FILE *out, int mode, mxml_node_t *doc, mxml_node_t *function, int level); static void write_html(const char *framefile, const char *section, const char *title, const char *author, const char *copyright, const char *docversion, const char *cssfile, const char *coverimage, const char *headerfile, const char *bodyfile, mmd_t *body, mxml_node_t *doc, const char *footerfile); static void write_html_body(FILE *out, int mode, const char *bodyfile, mmd_t *body, mxml_node_t *doc); static void write_html_head(FILE *out, int mode, const char *section, const char *title, const char *author, const char *copyright, const char *docversion, const char *cssfile); static void write_html_toc(FILE *out, const char *title, toc_t *toc, const char *filename, const char *target); static void write_man(const char *man_name, const char *section, const char *title, const char *author, const char *copyright, const char *headerfile, const char *bodyfile, mmd_t *body, mxml_node_t *doc, const char *footerfile); static void write_scu(FILE *out, int mode, mxml_node_t *doc, mxml_node_t *scut); static void write_string(FILE *out, const char *s, int mode); static void write_tokens(FILE *out, mxml_node_t *doc, const char *path); 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 */ int len; /* Length of argument */ FILE *fp; /* File to read */ mxml_node_t *doc = NULL; /* XML documentation tree */ mxml_node_t *mxmldoc = NULL; /* mxmldoc node */ const char *author = NULL, /* Author */ *copyright = NULL, /* Copyright */ *cssfile = NULL, /* CSS stylesheet file */ *docset = NULL, /* Documentation set directory */ *docversion = NULL, /* Documentation set version */ *epubfile = NULL, /* EPUB filename */ *feedname = NULL, /* Feed name for documentation set */ *feedurl = NULL, /* Feed URL for documentation set */ *footerfile = NULL, /* Footer file */ *framefile = NULL, /* Framed HTML basename */ *headerfile = NULL, /* Header file */ *bodyfile = NULL, /* Body file */ *coverimage = NULL, /* Cover image file */ *name = NULL, /* Name of manpage */ *path = NULL, /* Path to help file for tokens */ *section = NULL, /* Section/keywords of documentation */ *title = NULL, /* Title of documentation */ *xmlfile = NULL; /* XML file */ mmd_t *body; /* Body markdown file, if any */ int mode = OUTPUT_HTML, /* Output mode */ update = 0; /* Updated XML file */ /* * Check arguments... */ for (i = 1; i < argc; i ++) if (!strcmp(argv[i], "--help")) { /* * Show help... */ usage(NULL); } else if (!strcmp(argv[i], "--version")) { /* * Show version... */ puts(MXML_VERSION + 10); return (0); } else if (!strcmp(argv[i], "--author") && !author) { /* * Set author... */ i ++; if (i < argc) author = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--copyright") && !copyright) { /* * Set copyright... */ i ++; if (i < argc) copyright = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--coverimage") && !coverimage) { /* * Set cover image file... */ i ++; if (i < argc) coverimage = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--css") && !cssfile) { /* * Set CSS stylesheet file... */ i ++; if (i < argc) cssfile = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--docset") && !docset) { /* * Set documentation set directory... */ mode = OUTPUT_DOCSET; i ++; if (i < argc) docset = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--docversion") && !docversion) { /* * Set documentation set directory... */ i ++; if (i < argc) docversion = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--epub") && !epubfile) { /* * Set EPUB filename... */ mode = OUTPUT_EPUB; i ++; if (i < argc) epubfile = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--footer") && !footerfile) { /* * Set footer file... */ i ++; if (i < argc) footerfile = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--feedname") && !feedname) { /* * Set documentation set feed name... */ i ++; if (i < argc) feedname = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--feedurl") && !feedurl) { /* * Set documentation set feed name... */ i ++; if (i < argc) feedurl = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--framed") && !framefile) { /* * Set base filename for framed HTML output... */ i ++; if (i < argc) framefile = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--header") && !headerfile) { /* * Set header file... */ i ++; if (i < argc) headerfile = argv[i]; else usage(NULL); } else if ((!strcmp(argv[i], "--body") || !strcmp(argv[i], "--intro")) && !bodyfile) { /* * Set body file... */ i ++; if (i < argc) bodyfile = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--man") && !name) { /* * Output manpage... */ i ++; if (i < argc) { mode = OUTPUT_MAN; name = argv[i]; } else usage(NULL); } else if (!strcmp(argv[i], "--no-output")) mode = OUTPUT_NONE; else if (!strcmp(argv[i], "--section") && !section) { /* * Set section/keywords... */ i ++; if (i < argc) section = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--title") && !title) { /* * Set title... */ i ++; if (i < argc) title = argv[i]; else usage(NULL); } else if (!strcmp(argv[i], "--tokens")) { /* * Output Tokens.xml file... */ mode = OUTPUT_TOKENS; i ++; if (i < argc) path = argv[i]; else usage(NULL); } else if (argv[i][0] == '-') { /* * Unknown/bad option... */ usage(argv[i]); } else { /* * Process XML or source file... */ len = (int)strlen(argv[i]); if (len > 4 && !strcmp(argv[i] + len - 4, ".xml")) { /* * Set XML file... */ if (xmlfile) usage(NULL); xmlfile = argv[i]; if (!doc) { if ((fp = fopen(argv[i], "r")) != NULL) { /* * Read the existing XML file... */ doc = mxmlLoadFile(NULL, fp, load_cb); fclose(fp); if (!doc) { mxmldoc = NULL; fprintf(stderr, "mxmldoc: Unable to read the XML documentation file " "\"%s\"!\n", argv[i]); } else if ((mxmldoc = mxmlFindElement(doc, doc, "mxmldoc", NULL, NULL, MXML_DESCEND)) == NULL) { fprintf(stderr, "mxmldoc: XML documentation file \"%s\" is missing " " node!!\n", argv[i]); mxmlDelete(doc); doc = NULL; } } else { doc = NULL; mxmldoc = NULL; } if (!doc) doc = new_documentation(&mxmldoc); } } else { /* * Load source file... */ update = 1; if (!doc) doc = new_documentation(&mxmldoc); if ((fp = fopen(argv[i], "r")) == NULL) { fprintf(stderr, "mxmldoc: 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 (update && xmlfile) { /* * Save the updated XML documentation file... */ if ((fp = fopen(xmlfile, "w")) != NULL) { /* * Write over the existing XML file... */ mxmlSetWrapMargin(0); if (mxmlSaveFile(doc, fp, ws_cb)) { fprintf(stderr, "mxmldoc: Unable to write the XML documentation file \"%s\": " "%s!\n", xmlfile, strerror(errno)); fclose(fp); mxmlDelete(doc); return (1); } fclose(fp); } else { fprintf(stderr, "mxmldoc: Unable to create the XML documentation file \"%s\": " "%s!\n", xmlfile, strerror(errno)); mxmlDelete(doc); return (1); } } /* * Load the body file and collect the default metadata values, if present. */ if (is_markdown(bodyfile)) body = mmdLoad(bodyfile); else body = NULL; if (!title) title = mmdGetMetadata(body, "title"); if (!title) title = "Documentation"; if (!author) author = mmdGetMetadata(body, "author"); if (!author) author = "Unknown"; if (!copyright) copyright = mmdGetMetadata(body, "copyright"); if (!copyright) copyright = "Unknown"; if (!docversion) docversion = mmdGetMetadata(body, "version"); if (!docversion) docversion = "0.0"; /* * Write output... */ switch (mode) { case OUTPUT_DOCSET : /* * Write Xcode documentation set... */ #ifdef __APPLE__ write_docset(docset, section, title, author, copyright, docversion, feedname, feedurl, cssfile, headerfile, bodyfile, body, mxmldoc, footerfile); #else fputs("mxmldoc: Sorry, Xcode documentation sets can only be created on macOS.\n", stderr); #endif /* __APPLE__ */ break; case OUTPUT_EPUB : /* * Write EPUB (XHTML) documentation... */ #ifdef HAVE_ZLIB_H write_epub(epubfile, section, title, author, copyright, docversion, cssfile, coverimage, headerfile, bodyfile, body, mxmldoc, footerfile); #else fputs("mxmldoc: Sorry, not compiled with EPUB support.\n", stderr); #endif /* HAVE_ZLIB_H */ break; case OUTPUT_HTML : /* * Write HTML documentation... */ write_html(framefile, section, title, author, copyright, docversion, cssfile, coverimage, headerfile, bodyfile, body, mxmldoc, footerfile); break; case OUTPUT_MAN : /* * Write manpage documentation... */ write_man(name, section, title, author, copyright, headerfile, bodyfile, body, mxmldoc, footerfile); break; case OUTPUT_TOKENS : fputs("\n" "\n", stdout); write_tokens(stdout, mxmldoc, path); fputs("\n", stdout); break; } if (body) mmdFree(body); /* * Delete the tree and return... */ mxmlDelete(doc); return (0); } /* * 'add_toc()' - Add a TOC entry. */ static void add_toc(toc_t *toc, /* I - Table-of-contents */ int level, /* I - Level (1-N) */ const char *anchor, /* I - Anchor */ const char *title) /* I - Title */ { toc_entry_t *temp; /* New pointer */ if (toc->num_entries >= toc->alloc_entries) { toc->alloc_entries += 100; if (!toc->entries) temp = malloc(sizeof(toc_entry_t) * toc->alloc_entries); else temp = realloc(toc->entries, sizeof(toc_entry_t) * toc->alloc_entries); if (!temp) return; toc->entries = temp; } temp = toc->entries + toc->num_entries; toc->num_entries ++; temp->level = level; strlcpy(temp->anchor, anchor, sizeof(temp->anchor)); strlcpy(temp->title, title, sizeof(temp->title)); } /* * '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 */ #ifdef DEBUG fprintf(stderr, "add_variable(parent=%p, name=\"%s\", type=%p)\n", parent, name, type); #endif /* DEBUG */ /* * 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++ = ' '; strlcpy(bufptr, node->value.text.string, sizeof(buffer) - (size_t)(bufptr - buffer)); 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++ = ' '; strlcpy(bufptr, node->value.text.string, sizeof(buffer) - (size_t)(bufptr - buffer)); next = node->next; mxmlDelete(node); node = next; } } else { /* * Handle "type name"... */ strlcpy(buffer, type->last_child->value.text.string, sizeof(buffer)); 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); } /* * 'build_toc()' - Build a table-of-contents... */ static toc_t * /* O - Table of contents */ build_toc(mxml_node_t *doc, /* I - Documentation */ const char *bodyfile, /* I - Body file */ mmd_t *body, /* I - Markdown body */ int mode) /* I - Output mode */ { toc_t *toc; /* Array of headings */ FILE *fp; /* Body file */ mxml_node_t *function, /* Current function */ *scut, /* Struct/class/union/typedef */ *arg; /* Current argument */ const char *name; /* Name of function/type */ /* * Make a new table-of-contents... */ if ((toc = calloc(1, sizeof(toc_t))) == NULL) return (NULL); /* * Scan the body file for headings... */ if (body) { mmd_t *node, /* Current node */ *tnode, /* Title node */ *next; /* Next node */ mmd_type_t type; /* Node type */ char title[1024], /* Heading title */ *ptr; /* Pointer into title */ for (node = mmdGetFirstChild(body); node; node = next) { type = mmdGetType(node); if (type == MMD_TYPE_HEADING_1 || type == MMD_TYPE_HEADING_2) { title[sizeof(title) - 1] = '\0'; for (tnode = mmdGetFirstChild(node), ptr = title; tnode; tnode = mmdGetNextSibling(tnode)) { if (mmdGetWhitespace(tnode) && ptr < (title + sizeof(title) - 1)) *ptr++ = ' '; strncpy(ptr, mmdGetText(tnode), sizeof(title) - (ptr - title) - 1); ptr += strlen(ptr); } add_toc(toc, type - MMD_TYPE_HEADING_1 + 1, markdown_anchor(title), title); } if ((next = mmdGetNextSibling(node)) == NULL) { next = mmdGetParent(node); while (next && mmdGetNextSibling(next) == NULL) next = mmdGetParent(next); next = mmdGetNextSibling(next); } } } else if (bodyfile && (fp = fopen(bodyfile, "r")) != NULL) { char line[8192], /* Line from file */ *ptr, /* Pointer in line */ *end, /* End of line */ *anchor, /* Anchor name */ *title, /* Title */ quote; /* Quote character for value */ int level; /* New heading level */ while (fgets(line, sizeof(line), fp)) { /* * See if this line has a heading... */ if ((ptr = strstr(line, "")) != NULL) *ptr = '\0'; else if ((ptr = strstr(title, "")) != NULL) *ptr = '\0'; add_toc(toc, level, anchor, title); } fclose(fp); } /* * Next the classes... */ if ((scut = find_public(doc, doc, "class", NULL, mode)) != NULL) { add_toc(toc, 1, "CLASSES", "Classes"); while (scut) { name = mxmlElementGetAttr(scut, "name"); scut = find_public(scut, doc, "class", NULL, mode); add_toc(toc, 2, name, name); } } /* * Functions... */ if ((function = find_public(doc, doc, "function", NULL, mode)) != NULL) { add_toc(toc, 1, "FUNCTIONS", "Functions"); while (function) { name = mxmlElementGetAttr(function, "name"); function = find_public(function, doc, "function", NULL, mode); add_toc(toc, 2, name, name); } } /* * Data types... */ if ((scut = find_public(doc, doc, "typedef", NULL, mode)) != NULL) { add_toc(toc, 1, "TYPES", "Data Types"); while (scut) { name = mxmlElementGetAttr(scut, "name"); scut = find_public(scut, doc, "typedef", NULL, mode); add_toc(toc, 2, name, name); } } /* * Structures... */ if ((scut = find_public(doc, doc, "struct", NULL, mode)) != NULL) { add_toc(toc, 1, "STRUCTURES", "Structures"); while (scut) { name = mxmlElementGetAttr(scut, "name"); scut = find_public(scut, doc, "struct", NULL, mode); add_toc(toc, 2, name, name); } } /* * Unions... */ if ((scut = find_public(doc, doc, "union", NULL, mode)) != NULL) { add_toc(toc, 1, "UNIONS", "Unions"); while (scut) { name = mxmlElementGetAttr(scut, "name"); scut = find_public(scut, doc, "union", NULL, mode); add_toc(toc, 2, name, name); } } /* * Globals variables... */ if ((arg = find_public(doc, doc, "variable", NULL, mode)) != NULL) { add_toc(toc, 1, "VARIABLES", "Variables"); while (arg) { name = mxmlElementGetAttr(arg, "name"); arg = find_public(arg, doc, "variable", NULL, mode); add_toc(toc, 2, name, name); } } /* * Enumerations/constants... */ if ((scut = find_public(doc, doc, "enumeration", NULL, mode)) != NULL) { add_toc(toc, 1, "ENUMERATIONS", "Enumerations"); while (scut) { name = mxmlElementGetAttr(scut, "name"); scut = find_public(scut, doc, "enumeration", NULL, mode); add_toc(toc, 2, name, name); } } return (toc); } /* * 'epub_ws_cb()' - Whitespace callback for EPUB. */ static const char * /* O - Whitespace string or NULL for none */ epub_ws_cb(mxml_node_t *node, /* I - Element node */ int where) /* I - Where value */ { int depth; /* Depth of node */ static const char *spaces = " "; /* Whitespace (40 spaces) for indent */ switch (where) { case MXML_WS_BEFORE_CLOSE : if (node->child && node->child->type != MXML_ELEMENT) 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 (node->child && node->child->type != MXML_ELEMENT) return (NULL); return ("\n"); } } /* * 'find_public()' - Find a public function, type, etc. */ static mxml_node_t * /* I - Found node or NULL */ find_public(mxml_node_t *node, /* I - Current node */ mxml_node_t *top, /* I - Top node */ const char *element, /* I - Element */ const char *name, /* I - Name */ int mode) /* I - Output mode */ { mxml_node_t *description, /* Description node */ *comment; /* Comment node */ for (node = mxmlFindElement(node, top, element, name ? "name" : NULL, name, node == top ? MXML_DESCEND_FIRST : MXML_NO_DESCEND); node; node = mxmlFindElement(node, top, element, name ? "name" : NULL, name, MXML_NO_DESCEND)) { /* * Get the description for this node... */ description = mxmlFindElement(node, node, "description", NULL, NULL, MXML_DESCEND_FIRST); /* * A missing or empty description signals a private node... */ if (!description) continue; /* * Look for @private@ or @exclude format@ in the comment text... */ for (comment = description->child; comment; comment = comment->next) { const char *s = comment->type == MXML_TEXT ? comment->value.text.string : comment->value.opaque; const char *exclude; /* * Skip anything marked private... */ if (strstr(s, "@private@")) break; /* * Skip items excluded for certain formats... */ if ((exclude = strstr(s, "@exclude ")) != NULL) { exclude += 9; if (!strncmp(exclude, "all@", 4)) { break; } else { while (*exclude != '@') { if (!strncmp(exclude, "docset", 6)) { if (mode == OUTPUT_DOCSET) break; exclude += 6; } else if (!strncmp(exclude, "epub", 4)) { if (mode == OUTPUT_EPUB) break; exclude += 4; } else if (!strncmp(exclude, "html", 4)) { if (mode == OUTPUT_HTML) break; exclude += 4; } else if (!strncmp(exclude, "man", 3)) { if (mode == OUTPUT_MAN) break; exclude += 3; } else if (!strncmp(exclude, "tokens", 6)) { if (mode == OUTPUT_TOKENS) break; exclude += 6; } else if (!strncmp(exclude, "xml", 3)) { if (mode == OUTPUT_XML) break; exclude += 3; } else break; if (*exclude == ',') exclude ++; else if (*exclude != '@') break; } if (*exclude != '@') break; } } } if (!comment) { /* * No @private@, so return this node... */ return (node); } } /* * If we get here, there are no (more) public nodes... */ return (NULL); } /* * 'free_toc()' - Free a table-of-contents. */ static void free_toc(toc_t *toc) /* I - Table of contents */ { free(toc->entries); free(toc); } /* * 'get_comment_info()' - Get info from comment. */ static char * /* O - Info from comment */ get_comment_info( mxml_node_t *description) /* I - Description node */ { char text[10240], /* Description text */ since[255], /* @since value */ *ptr; /* Pointer into text */ static char info[1024]; /* Info string */ if (!description) return (""); get_text(description, text, sizeof(text)); for (ptr = strchr(text, '@'); ptr; ptr = strchr(ptr + 1, '@')) { if (!strncmp(ptr, "@deprecated@", 12)) return (" DEPRECATED "); else if (!strncmp(ptr, "@since ", 7)) { strlcpy(since, ptr + 7, sizeof(since)); if ((ptr = strchr(since, '@')) != NULL) *ptr = '\0'; snprintf(info, sizeof(info), " %s ", since); return (info); } } return (""); } /* * 'get_iso_date()' - Get an ISO-formatted date/time string. */ static char * /* O - ISO date/time string */ get_iso_date(time_t t) /* I - Time value */ { struct tm *date; /* UTC date/time */ static char buffer[100]; /* String buffer */ date = gmtime(&t); snprintf(buffer, sizeof(buffer), "%04d-%02d-%02dT%02d:%02d:%02dZ", date->tm_year + 1900, date->tm_mon + 1, date->tm_mday, date->tm_hour, date->tm_min, date->tm_sec); return (buffer); } /* * 'get_text()' - Get the text for a node. */ static char * /* O - Text in node */ get_text(mxml_node_t *node, /* I - Node to get */ char *buffer, /* I - Buffer */ int buflen) /* I - Size of buffer */ { char *ptr, /* Pointer into buffer */ *end; /* End of buffer */ int len; /* Length of node */ mxml_node_t *current; /* Current node */ ptr = buffer; end = buffer + buflen - 1; for (current = node->child; current && ptr < end; current = current->next) { if (current->type == MXML_TEXT) { if (current->value.text.whitespace) *ptr++ = ' '; len = (int)strlen(current->value.text.string); if (len > (int)(end - ptr)) len = (int)(end - ptr); memcpy(ptr, current->value.text.string, len); ptr += len; } else if (current->type == MXML_OPAQUE) { len = (int)strlen(current->value.opaque); if (len > (int)(end - ptr)) len = (int)(end - ptr); memcpy(ptr, current->value.opaque, len); ptr += len; } } *ptr = '\0'; return (buffer); } /* * 'is_markdown()' - Determine whether a file is markdown text. */ static int /* O - 1 if markdown, 0 otherwise */ is_markdown(const char *filename) /* I - File to check */ { const char *ext = filename ? strstr(filename, ".md") : NULL; /* Pointer to extension */ return (ext && !ext[3]); } /* * 'load_cb()' - Set the type of child nodes. */ static mxml_type_t /* O - Node type */ load_cb(mxml_node_t *node) /* I - Node */ { if (!strcmp(node->value.element.name, "description")) return (MXML_OPAQUE); else return (MXML_TEXT); } /* * 'markdown_anchor()' - Return the HTML anchor for a given title. */ static const char * /* O - HTML anchor */ markdown_anchor(const char *text) /* I - Title text */ { char *bufptr; /* Pointer into buffer */ static char buffer[1024]; /* Buffer for anchor string */ for (bufptr = buffer; *text && bufptr < (buffer + sizeof(buffer) - 1); text ++) { if ((*text >= '0' && *text <= '9') || (*text >= 'a' && *text <= 'z') || (*text >= 'A' && *text <= 'Z') || *text == '.' || *text == '-') *bufptr++ = (char)tolower(*text); else if (*text == ' ') *bufptr++ = '-'; } *bufptr = '\0'; return (buffer); } /* * 'markdown_write_block()' - Write a markdown block. */ static void markdown_write_block(FILE *out, /* I - Output file */ mmd_t *parent, /* I - Parent node */ int mode) /* I - Output mode */ { mmd_t *node; /* Current child node */ mmd_type_t type; /* Node type */ type = mmdGetType(parent); if (mode == OUTPUT_MAN) { switch (type) { case MMD_TYPE_BLOCK_QUOTE : break; case MMD_TYPE_ORDERED_LIST : break; case MMD_TYPE_UNORDERED_LIST : break; case MMD_TYPE_LIST_ITEM : fputs(".IP \\(bu 5\n", out); break; case MMD_TYPE_HEADING_1 : fputs(".SH ", out); break; case MMD_TYPE_HEADING_2 : fputs(".SS ", out); break; case MMD_TYPE_HEADING_3 : case MMD_TYPE_HEADING_4 : case MMD_TYPE_HEADING_5 : case MMD_TYPE_HEADING_6 : case MMD_TYPE_PARAGRAPH : fputs(".PP\n", out); break; case MMD_TYPE_CODE_BLOCK : fputs(".nf\n\n", out); for (node = mmdGetFirstChild(parent); node; node = mmdGetNextSibling(node)) { fputs(" ", out); write_string(out, mmdGetText(node), mode); } fputs(".fi\n", out); return; case MMD_TYPE_METADATA : return; default : break; } for (node = mmdGetFirstChild(parent); node; node = mmdGetNextSibling(node)) { if (mmdIsBlock(node)) markdown_write_block(out, node, mode); else markdown_write_leaf(out, node, mode); } fputs("\n", out); } else { const char *element; /* Enclosing element, if any */ switch (type) { case MMD_TYPE_BLOCK_QUOTE : element = "blockquote"; break; case MMD_TYPE_ORDERED_LIST : element = "ol"; break; case MMD_TYPE_UNORDERED_LIST : element = "ul"; break; case MMD_TYPE_LIST_ITEM : element = "li"; break; case MMD_TYPE_HEADING_1 : element = "h2"; /* Offset since title is H1 for mxmldoc output */ break; case MMD_TYPE_HEADING_2 : element = "h3"; /* Offset since title is H1 for mxmldoc output */ break; case MMD_TYPE_HEADING_3 : element = "h4"; /* Offset since title is H1 for mxmldoc output */ break; case MMD_TYPE_HEADING_4 : element = "h5"; /* Offset since title is H1 for mxmldoc output */ break; case MMD_TYPE_HEADING_5 : element = "h6"; /* Offset since title is H1 for mxmldoc output */ break; case MMD_TYPE_HEADING_6 : element = "h6"; break; case MMD_TYPE_PARAGRAPH : element = "p"; break; case MMD_TYPE_CODE_BLOCK : fputs("
", out);
          for (node = mmdGetFirstChild(parent); node; node = mmdGetNextSibling(node))
            write_string(out, mmdGetText(node), mode);
          fputs("
\n", out); return; case MMD_TYPE_THEMATIC_BREAK : if (mode == OUTPUT_EPUB) fputs("
\n", out); else fputs("
\n", out); return; default : element = NULL; break; } if (type >= MMD_TYPE_HEADING_1 && type <= MMD_TYPE_HEADING_6) { /* * Add an anchor... */ fprintf(out, " <%s>", out); } else if (element) fprintf(out, " <%s>%s", element, type <= MMD_TYPE_UNORDERED_LIST ? "\n" : ""); for (node = mmdGetFirstChild(parent); node; node = mmdGetNextSibling(node)) { if (mmdIsBlock(node)) markdown_write_block(out, node, mode); else markdown_write_leaf(out, node, mode); } if (type >= MMD_TYPE_HEADING_1 && type <= MMD_TYPE_HEADING_6) fprintf(out, "\n", element); else if (element) fprintf(out, "\n", element); } } /* * 'markdown_write_leaf()' - Write an leaf markdown node. */ static void markdown_write_leaf(FILE *out, /* I - Output file */ mmd_t *node, /* I - Node to write */ int mode) /* I - Output mode */ { const char *text, /* Text to write */ *url; /* URL to write */ text = mmdGetText(node); url = mmdGetURL(node); if (mode == OUTPUT_MAN) { const char *suffix = NULL; /* Trailing string */ switch (mmdGetType(node)) { case MMD_TYPE_EMPHASIZED_TEXT : if (mmdGetWhitespace(node)) fputc('\n', out); fputs(".I ", out); suffix = "\n"; break; case MMD_TYPE_STRONG_TEXT : if (mmdGetWhitespace(node)) fputc('\n', out); fputs(".B ", out); suffix = "\n"; break; case MMD_TYPE_HARD_BREAK : if (mmdGetWhitespace(node)) fputc('\n', out); fputs(".PP\n", out); return; case MMD_TYPE_SOFT_BREAK : case MMD_TYPE_METADATA_TEXT : return; default : if (mmdGetWhitespace(node)) fputc(' ', out); break; } write_string(out, text, mode); if (suffix) fputs(suffix, out); } else { const char *element; /* Encoding element, if any */ if (mmdGetWhitespace(node)) fputc(' ', out); switch (mmdGetType(node)) { case MMD_TYPE_EMPHASIZED_TEXT : element = "em"; break; case MMD_TYPE_STRONG_TEXT : element = "strong"; break; case MMD_TYPE_STRUCK_TEXT : element = "del"; break; case MMD_TYPE_LINKED_TEXT : element = NULL; break; case MMD_TYPE_CODE_TEXT : element = "code"; break; case MMD_TYPE_IMAGE : fputs("\"",", out); else fputs("\">", out); return; case MMD_TYPE_HARD_BREAK : if (mode == OUTPUT_EPUB) fputs("
\n", out); else fputs("
\n", out); return; case MMD_TYPE_SOFT_BREAK : if (mode == OUTPUT_EPUB) fputs("", out); else fputs("", out); return; case MMD_TYPE_METADATA_TEXT : return; default : element = NULL; break; } if (url) { if (!strcmp(url, "@")) fprintf(out, "", markdown_anchor(text)); else fprintf(out, "", url); } if (element) fprintf(out, "<%s>", element); if (!strcmp(text, "(c)")) fputs(" ", out); else if (!strcmp(text, "(r)")) fputs("®", out); else if (!strcmp(text, "(tm)")) fputs("™", out); else write_string(out, text, mode); if (element) fprintf(out, "", element); if (url) fputs("", out); } } /* * 'new_documentation()' - Create a new documentation tree. */ static mxml_node_t * /* O - New documentation */ new_documentation(mxml_node_t **mxmldoc)/* O - mxmldoc node */ { mxml_node_t *doc; /* New documentation */ /* * Create an empty XML documentation file... */ doc = mxmlNewXML(NULL); *mxmldoc = mxmlNewElement(doc, "mxmldoc"); mxmlElementSetAttr(*mxmldoc, "xmlns", "http://www.easysw.com"); mxmlElementSetAttr(*mxmldoc, "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"); mxmlElementSetAttr(*mxmldoc, "xsi:schemaLocation", "http://www.minixml.org/mxmldoc.xsd"); return (doc); } #ifdef __APPLE__ /* * 'remove_directory()' - Remove a directory. */ static int /* O - 1 on success, 0 on failure */ remove_directory(const char *path) /* I - Directory to remove */ { DIR *dir; /* Directory */ struct dirent *dent; /* Current directory entry */ char filename[1024]; /* Current filename */ struct stat fileinfo; /* File information */ if ((dir = opendir(path)) == NULL) { fprintf(stderr, "mxmldoc: Unable to open directory \"%s\": %s\n", path, strerror(errno)); return (0); } while ((dent = readdir(dir)) != NULL) { /* * Skip "." and ".."... */ if (!strcmp(dent->d_name, ".") || !strcmp(dent->d_name, "..")) continue; /* * See if we have a file or directory... */ snprintf(filename, sizeof(filename), "%s/%s", path, dent->d_name); if (stat(filename, &fileinfo)) { fprintf(stderr, "mxmldoc: Unable to stat \"%s\": %s\n", filename, strerror(errno)); closedir(dir); return (0); } if (S_ISDIR(fileinfo.st_mode)) { if (!remove_directory(filename)) { closedir(dir); return (0); } } else if (unlink(filename)) { fprintf(stderr, "mxmldoc: Unable to remove \"%s\": %s\n", filename, strerror(errno)); closedir(dir); return (0); } } closedir(dir); if (rmdir(path)) { fprintf(stderr, "mxmldoc: Unable to remove directory \"%s\": %s\n", path, strerror(errno)); return (0); } return (1); } #endif /* __APPLE__ */ /* * '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, /* node */ *constant, /* node */ *enumeration, /* node */ *function, /* node */ *fstructclass, /* function struct/class node */ *structclass, /* or node */ *typedefnode, /* node */ *variable, /* or node */ *returnvalue, /* node */ *type, /* node */ *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; while (comment->child) mxmlDelete(comment->child); 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) { mxml_node_t *temptype = mxmlFindElement(returnvalue, returnvalue, "type", NULL, NULL, MXML_DESCEND); #ifdef DEBUG fprintf(stderr, " returnvalue type=%p(%s)\n", temptype, temptype ? temptype->child->value.text.string : "null"); #endif /* DEBUG */ if (temptype && temptype->child && !strcmp(temptype->child->value.text.string, "static") && !strcmp(tree->value.element.name, "mxmldoc")) { /* * Remove static functions... */ #ifdef DEBUG fputs(" DELETING STATIC FUNCTION\n", stderr); #endif /* DEBUG */ mxmlDelete(function); } else if (fstructclass) { sort_node(fstructclass, function); fstructclass = NULL; } else sort_node(tree, function); function = NULL; returnvalue = 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 (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++ = ' '; strlcpy(bufptr, node->value.text.string, sizeof(buffer) - (size_t)(bufptr - buffer)); 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... */ mxmlNewOpaque(comment, comment->last_child->value.opaque); description = mxmlNewElement(typedefnode, "description"); #ifdef DEBUG fprintf(stderr, " duplicating comment %p/%p for typedef...\n", comment->last_child, comment->child); #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 %p/%p to %s...\n", comment->last_child, comment->child, 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... */ mxmlNewOpaque(comment, comment->last_child->value.opaque); description = mxmlNewElement(typedefnode, "description"); #ifdef DEBUG fprintf(stderr, " duplicating comment %p/%p for typedef...\n", comment->last_child, comment->child); #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 fprintf(stderr, " adding comment %p/%p to enumeration...\n", comment->last_child, comment->child); #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; if (!typedefnode) enumeration = NULL; constant = NULL; structclass = NULL; if (braces > 0) { braces --; if (braces == 0) { while (comment->child) mxmlDelete(comment->child); } } else { mxmlDelete(comment); return (0); } break; case '(' : if (type) { #ifdef DEBUG fputs("Identifier: <<<< ( >>>\n", stderr); #endif /* DEBUG */ mxmlNewText(type, 0, "("); } parens ++; break; case ')' : if (type && parens) { #ifdef DEBUG fputs("Identifier: <<<< ) >>>\n", stderr); #endif /* DEBUG */ mxmlNewText(type, 0, ")"); } if (function && type && !parens) { /* * Check for "void" argument... */ if (type->child && type->child->next) variable = add_variable(function, "argument", type); else mxmlDelete(type); type = NULL; } if (parens > 0) parens --; break; case ';' : #ifdef DEBUG fputs("Identifier: <<<< ; >>>\n", stderr); fprintf(stderr, " enumeration=%p, function=%p, type=%p, type->child=%p, typedefnode=%p\n", enumeration, function, type, type ? type->child : NULL, typedefnode); #endif /* DEBUG */ if (function) { mxml_node_t *temptype = mxmlFindElement(returnvalue, returnvalue, "type", NULL, NULL, MXML_DESCEND); #ifdef DEBUG fprintf(stderr, " returnvalue type=%p(%s)\n", temptype, temptype ? temptype->child->value.text.string : "null"); #endif /* DEBUG */ if (temptype && temptype->child && !strcmp(temptype->child->value.text.string, "static") && !strcmp(tree->value.element.name, "mxmldoc")) { /* * Remove static functions... */ #ifdef DEBUG fputs(" DELETING STATIC FUNCTION\n", stderr); #endif /* DEBUG */ mxmlDelete(function); } else 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; returnvalue = NULL; } if (type) { /* * See if we have a typedef... */ if (type->child && !strcmp(type->child->value.text.string, "typedef")) { /* * Yes, add it! */ typedefnode = mxmlNewElement(MXML_NO_PARENT, "typedef"); for (node = type->child->next; node; node = node->next) if (!strcmp(node->value.text.string, "(")) break; if (node) { for (node = node->next; node; node = node->next) if (strcmp(node->value.text.string, "*")) break; } if (!node) node = type->last_child; #ifdef DEBUG fprintf(stderr, " ADDING TYPEDEF FOR %p(%s)...\n", node, node->value.text.string); #endif /* DEBUG */ mxmlElementSetAttr(typedefnode, "name", node->value.text.string); sort_node(tree, typedefnode); if (type->child != node) mxmlDelete(type->child); mxmlDelete(node); if (type->child) type->child->value.text.whitespace = 0; mxmlAdd(typedefnode, MXML_ADD_AFTER, MXML_ADD_TO_PARENT, type); type = NULL; break; } else if (typedefnode && enumeration) { /* * Add enum typedef... */ node = type->child; #ifdef DEBUG fprintf(stderr, " ADDING TYPEDEF FOR %p(%s)...\n", node, node->value.text.string); #endif /* DEBUG */ mxmlElementSetAttr(typedefnode, "name", node->value.text.string); sort_node(tree, typedefnode); mxmlDelete(type); type = mxmlNewElement(typedefnode, "type"); mxmlNewText(type, 0, "enum"); mxmlNewText(type, 1, mxmlElementGetAttr(enumeration, "name")); enumeration = NULL; type = NULL; break; } 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 && !enumeration) { #ifdef DEBUG fputs("Identifier: <<<< , >>>\n", stderr); #endif /* DEBUG */ mxmlNewText(type, 0, ","); } 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(%20.20s), last comment %p(%20.20s)...\n", comment->child, comment->child ? comment->child->value.text.string : "", comment->last_child, comment->last_child ? comment->last_child->value.text.string : ""); #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, typedefnode=%p, tree=\"%s\"\n", variable, constant, typedefnode, tree->value.element.name); #endif /* DEBUG */ if (variable) { if (strstr(buffer, "@private@")) { /* * Delete private variables... */ mxmlDelete(variable); } else { description = mxmlNewElement(variable, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to variable...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(variable, mxmlNewOpaque(description, buffer)); } variable = NULL; } else if (constant) { if (strstr(buffer, "@private@")) { /* * Delete private constants... */ mxmlDelete(constant); } else { description = mxmlNewElement(constant, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to constant...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(constant, mxmlNewOpaque(description, buffer)); } constant = NULL; } else if (typedefnode) { if (strstr(buffer, "@private@")) { /* * Delete private typedefs... */ mxmlDelete(typedefnode); if (structclass) { mxmlDelete(structclass); structclass = NULL; } if (enumeration) { mxmlDelete(enumeration); enumeration = NULL; } } else { description = mxmlNewElement(typedefnode, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to typedef %s...\n", comment->last_child, comment->child, mxmlElementGetAttr(typedefnode, "name")); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(typedefnode, mxmlNewOpaque(description, buffer)); if (structclass) { description = mxmlNewElement(structclass, "description"); update_comment(structclass, mxmlNewOpaque(description, buffer)); } else if (enumeration) { description = mxmlNewElement(enumeration, "description"); update_comment(enumeration, mxmlNewOpaque(description, buffer)); } } typedefnode = NULL; } else if (strcmp(tree->value.element.name, "mxmldoc") && !mxmlFindElement(tree, tree, "description", NULL, NULL, MXML_DESCEND_FIRST)) { description = mxmlNewElement(tree, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to parent...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(tree, mxmlNewOpaque(description, buffer)); } else { #ifdef DEBUG fprintf(stderr, " before adding comment, child=%p, last_child=%p\n", comment->child, comment->last_child); #endif /* DEBUG */ mxmlNewOpaque(comment, 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(%20.20s), last comment %p(%20.20s)...\n", comment->child, comment->child ? comment->child->value.text.string : "", comment->last_child, comment->last_child ? comment->last_child->value.text.string : ""); #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, typedefnode=%p, tree=\"%s\"\n", variable, constant, typedefnode, tree->value.element.name); #endif /* DEBUG */ if (variable) { if (strstr(buffer, "@private@")) { /* * Delete private variables... */ mxmlDelete(variable); } else { description = mxmlNewElement(variable, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to variable...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(variable, mxmlNewOpaque(description, buffer)); } variable = NULL; } else if (constant) { if (strstr(buffer, "@private@")) { /* * Delete private constants... */ mxmlDelete(constant); } else { description = mxmlNewElement(constant, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to constant...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(constant, mxmlNewOpaque(description, buffer)); } constant = NULL; } else if (typedefnode) { if (strstr(buffer, "@private@")) { /* * Delete private typedefs... */ mxmlDelete(typedefnode); if (structclass) { mxmlDelete(structclass); structclass = NULL; } if (enumeration) { mxmlDelete(enumeration); enumeration = NULL; } } else { description = mxmlNewElement(typedefnode, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to typedef %s...\n", comment->last_child, comment->child, mxmlElementGetAttr(typedefnode, "name")); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(typedefnode, mxmlNewOpaque(description, buffer)); if (structclass) { description = mxmlNewElement(structclass, "description"); update_comment(structclass, mxmlNewOpaque(description, buffer)); } else if (enumeration) { description = mxmlNewElement(enumeration, "description"); update_comment(enumeration, mxmlNewOpaque(description, buffer)); } } typedefnode = NULL; } else if (strcmp(tree->value.element.name, "mxmldoc") && !mxmlFindElement(tree, tree, "description", NULL, NULL, MXML_DESCEND_FIRST)) { description = mxmlNewElement(tree, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to parent...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(tree, mxmlNewOpaque(description, buffer)); } else mxmlNewOpaque(comment, 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(%20.20s), last comment %p(%20.20s)...\n", comment->child, comment->child ? comment->child->value.text.string : "", comment->last_child, comment->last_child ? comment->last_child->value.text.string : ""); #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) { if (strstr(buffer, "@private@")) { /* * Delete private variables... */ mxmlDelete(variable); } else { description = mxmlNewElement(variable, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to variable...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(variable, mxmlNewOpaque(description, buffer)); } variable = NULL; } else if (constant) { if (strstr(buffer, "@private@")) { /* * Delete private constants... */ mxmlDelete(constant); } else { description = mxmlNewElement(constant, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to constant...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(constant, mxmlNewOpaque(description, buffer)); } constant = NULL; } else if (typedefnode) { if (strstr(buffer, "@private@")) { /* * Delete private typedefs... */ mxmlDelete(typedefnode); typedefnode = NULL; if (structclass) { mxmlDelete(structclass); structclass = NULL; } if (enumeration) { mxmlDelete(enumeration); enumeration = NULL; } } else { description = mxmlNewElement(typedefnode, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to typedef %s...\n", comment->last_child, comment->child, mxmlElementGetAttr(typedefnode, "name")); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(typedefnode, mxmlNewOpaque(description, buffer)); if (structclass) { description = mxmlNewElement(structclass, "description"); update_comment(structclass, mxmlNewOpaque(description, buffer)); } else if (enumeration) { description = mxmlNewElement(enumeration, "description"); update_comment(enumeration, mxmlNewOpaque(description, buffer)); } } } else if (strcmp(tree->value.element.name, "mxmldoc") && !mxmlFindElement(tree, tree, "description", NULL, NULL, MXML_DESCEND_FIRST)) { description = mxmlNewElement(tree, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to parent...\n", comment->last_child, comment->child); #endif /* DEBUG */ mxmlNewOpaque(comment, buffer); update_comment(tree, mxmlNewOpaque(description, buffer)); } else mxmlNewOpaque(comment, 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 || (type && !enumeration && !function))) || 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; } 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") || !strcmp(type->child->value.text.string, "static"))) { returnvalue = mxmlNewElement(function, "returnvalue"); mxmlAdd(returnvalue, MXML_ADD_AFTER, MXML_ADD_TO_PARENT, type); description = mxmlNewElement(returnvalue, "description"); #ifdef DEBUG fprintf(stderr, " adding comment %p/%p to returnvalue...\n", comment->last_child, comment->child); #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 fprintf(stderr, " adding comment %p/%p to function...\n", comment->last_child, comment->child); #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... */ if (strcmp(buffer, "void")) { 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); } else mxmlDelete(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 (nodename[0] == '_') return; /* Hide private names */ #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; /* * Convert "\/" to "/"... */ for (ptr = strstr(comment->value.opaque, "\\/"); ptr; ptr = strstr(ptr, "\\/")) safe_strcpy(ptr, ptr + 1); /* * Update the comment... */ ptr = comment->value.opaque; 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.opaque, 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 + direction attribute. */ ptr = strchr(ptr, ' '); *ptr++ = '\0'; if (!strcmp(parent->value.element.name, "argument")) mxmlElementSetAttr(parent, "direction", comment->value.opaque); while (isspace(*ptr & 255)) ptr ++; if (*ptr == '-') ptr ++; while (isspace(*ptr & 255)) ptr ++; safe_strcpy(comment->value.opaque, ptr); } /* * Eliminate leading and trailing *'s... */ for (ptr = comment->value.opaque; *ptr == '*'; ptr ++); for (; isspace(*ptr & 255); ptr ++); if (ptr > comment->value.opaque) safe_strcpy(comment->value.opaque, ptr); for (ptr = comment->value.opaque + strlen(comment->value.opaque) - 1; ptr > comment->value.opaque && *ptr == '*'; ptr --) *ptr = '\0'; for (; ptr > comment->value.opaque && isspace(*ptr & 255); ptr --) *ptr = '\0'; #ifdef DEBUG fprintf(stderr, " updated comment = %s\n", comment->value.opaque); #endif /* DEBUG */ } /* * 'usage()' - Show program usage... */ static void usage(const char *option) /* I - Unknown option */ { if (option) printf("mxmldoc: Bad option \"%s\"!\n\n", option); puts("Usage: mxmldoc [options] [filename.xml] [source files] >filename.html"); puts("Options:"); puts(" --author name Set author name"); puts(" --body bodyfile Set body file (markdown supported)"); puts(" --copyright text Set copyright text"); puts(" --coverimage image.png Set cover image (EPUB)"); puts(" --css filename.css Set CSS stylesheet file"); puts(" --docset bundleid.docset Generate documentation set"); puts(" --docversion version Set documentation version"); puts(" --epub filename.epub Generate EPUB file"); puts(" --feedname name Set documentation set feed name"); puts(" --feedurl url Set documentation set feed URL"); puts(" --footer footerfile Set footer file"); puts(" --framed basename Generate framed HTML to basename*.html"); puts(" --header headerfile Set header file"); puts(" --man name Generate man page"); puts(" --no-output Do no generate documentation file"); puts(" --section section Set section name"); puts(" --title title Set documentation title"); puts(" --tokens path Generate Xcode docset Tokens.xml file"); puts(" --version Show mxmldoc/Mini-XML version"); exit(1); } /* * 'write_description()' - Write the description text. */ static void write_description( FILE *out, /* I - Output file */ int mode, /* I - Output mode */ mxml_node_t *description, /* I - Description node */ const char *element, /* I - HTML element, if any */ int summary) /* I - Show summary (-1 for all) */ { char text[10240], /* Text for description */ *start, /* Start of code/link */ *ptr; /* Pointer into text */ int col; /* Current column */ if (!description) return; get_text(description, text, sizeof(text)); ptr = strstr(text, "\n\n"); if (summary) { if (ptr) *ptr = '\0'; ptr = text; } else if (summary >= 0 && (!ptr || !ptr[2])) return; else if (summary >= 0) ptr += 2; if (element && *element) fprintf(out, " <%s class=\"%s\">", element, summary ? "description" : "discussion"); else if (!summary) fputs(".PP\n", out); for (col = 0; *ptr; ptr ++) { if (*ptr == '@' && (!strncmp(ptr + 1, "deprecated@", 11) || !strncmp(ptr + 1, "exclude ", 8) || !strncmp(ptr + 1, "since ", 6))) { ptr ++; while (*ptr && *ptr != '@') ptr ++; if (!*ptr) ptr --; } else if (!strncmp(ptr, "@code ", 6)) { for (ptr += 6; isspace(*ptr & 255); ptr ++); for (start = ptr, ptr ++; *ptr && *ptr != '@'; ptr ++); if (*ptr) *ptr = '\0'; else ptr --; if (element && *element) { fputs("", out); for (; *start; start ++) { if (*start == '<') fputs("<", out); else if (*start == '>') fputs(">", out); else if (*start == '&') fputs("&", out); else putc(*start, out); } fputs("", out); } else if (element) fputs(start, out); else fprintf(out, "\\fB%s\\fR", start); } else if (!strncmp(ptr, "@link ", 6)) { for (ptr += 6; isspace(*ptr & 255); ptr ++); for (start = ptr, ptr ++; *ptr && *ptr != '@'; ptr ++); if (*ptr) *ptr = '\0'; else ptr --; if (element && *element) fprintf(out, "%s", start, start); else if (element) fputs(start, out); else fprintf(out, "\\fI%s\\fR", start); } else if (element) { if (*ptr == '&') fputs("&", out); else if (*ptr == '<') fputs("<", out); else if (*ptr == '>') fputs(">", out); else if (*ptr == '\"') fputs(""", out); else if (*ptr & 128) { /* * Convert utf-8 to Unicode constant... */ int ch; /* Unicode character */ ch = *ptr & 255; if ((ch & 0xe0) == 0xc0) { ch = ((ch & 0x1f) << 6) | (ptr[1] & 0x3f); ptr ++; } else if ((ch & 0xf0) == 0xe0) { ch = ((((ch * 0x0f) << 6) | (ptr[1] & 0x3f)) << 6) | (ptr[2] & 0x3f); ptr += 2; } fprintf(out, "&#%d;", ch); } else if (*ptr == '\n' && ptr[1] == '\n' && ptr[2] && ptr[2] != '@') { if (mode == OUTPUT_EPUB) fputs("
\n
\n", out); else fputs("
\n
\n", out); ptr ++; } else putc(*ptr, out); } else if (*ptr == '\n' && ptr[1] == '\n' && ptr[2] && ptr[2] != '@') { fputs("\n.PP\n", out); ptr ++; } else { if (*ptr == '\\' || (*ptr == '.' && col == 0)) putc('\\', out); putc(*ptr, out); if (*ptr == '\n') col = 0; else col ++; } } if (element && *element) { if (summary < 0) fprintf(out, "", element); else fprintf(out, "\n", element); } else if (!element) putc('\n', out); } #ifdef __APPLE__ /* * 'write_docset()' - Write Xcode documentation. */ static void write_docset(const char *docset, /* I - Documentation set directory */ const char *section, /* I - Section */ const char *title, /* I - Title */ const char *author, /* I - Author's name */ const char *copyright, /* I - Copyright string */ const char *docversion, /* I - Documentation set version */ const char *feedname, /* I - Feed name for doc set */ const char *feedurl, /* I - Feed URL for doc set */ const char *cssfile, /* I - Stylesheet file */ const char *headerfile, /* I - Header file */ const char *bodyfile, /* I - Body file */ mmd_t *body, /* I - Markdown body */ mxml_node_t *doc, /* I - XML documentation */ const char *footerfile) /* I - Footer file */ { FILE *out; /* Output file */ char filename[1024]; /* Current output filename */ toc_t *toc; /* Table of contents */ const char *id; /* Identifier */ size_t i; /* Looping var */ toc_entry_t *tentry; /* Current table of contents */ int toc_level; /* Current table-of-contents level */ int xmlid = 1; /* Current XML node ID */ const char *indent; /* Indentation */ /* * Create the table-of-contents entries... */ toc = build_toc(doc, bodyfile, body, OUTPUT_DOCSET); /* * Create an Xcode documentation set - start by removing any existing * output directory... */ if (!access(docset, 0) && !remove_directory(docset)) return; /* * Then make the Apple standard bundle directory structure... */ if (mkdir(docset, 0755)) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", docset, strerror(errno)); return; } snprintf(filename, sizeof(filename), "%s/Contents", docset); if (mkdir(filename, 0755)) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } snprintf(filename, sizeof(filename), "%s/Contents/Resources", docset); if (mkdir(filename, 0755)) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } snprintf(filename, sizeof(filename), "%s/Contents/Resources/Documentation", docset); if (mkdir(filename, 0755)) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } /* * The Info.plist file, which describes the documentation set... */ if ((id = strrchr(docset, '/')) != NULL) id ++; else id = docset; snprintf(filename, sizeof(filename), "%s/Contents/Info.plist", docset); if ((out = fopen(filename, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } fputs("\n" "\n" "\n" " \n" " CFBundleIdentifier\n" " ", out); write_string(out, id, OUTPUT_HTML); fputs("\n" " CFBundleName\n" " ", out); write_string(out, title, OUTPUT_HTML); fputs("\n" " CFBundleVersion\n" " ", out); write_string(out, docversion ? docversion : "0.0", OUTPUT_HTML); fputs("\n" " CFBundleShortVersionString\n" " ", out); write_string(out, docversion ? docversion : "0.0", OUTPUT_HTML); fputs("\n", out); if (feedname) { fputs(" DocSetFeedName\n" " ", out); write_string(out, feedname ? feedname : title, OUTPUT_HTML); fputs("\n", out); } if (feedurl) { fputs(" DocSetFeedURL\n" " ", out); write_string(out, feedurl, OUTPUT_HTML); fputs("\n", out); } fputs(" \n" "\n", out); fclose(out); /* * Next the Nodes.xml file... */ snprintf(filename, sizeof(filename), "%s/Contents/Resources/Nodes.xml", docset); if ((out = fopen(filename, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } fputs("\n" "\n" " \n" " \n" " ", out); write_string(out, title, OUTPUT_HTML); fputs(" \n" " Documentation/index.html\n" " \n", out); for (i = 0, tentry = toc->entries, toc_level = 1; i < toc->num_entries; i ++, tentry ++) { if (tentry->level > toc_level) { toc_level = tentry->level; } else if (tentry->level < toc_level) { fputs(" \n" " \n", out); toc_level = tentry->level; } indent = toc_level == 2 ? " " : " "; fprintf(out, "%s\n" "%s Documentation/index.html\n" "%s %s\n" "%s ", indent, xmlid ++, indent, indent, tentry->anchor, indent); write_string(out, tentry->title, OUTPUT_HTML); if ((i + 1) < toc->num_entries && tentry[1].level > toc_level) fprintf(out, "\n" "%s \n", indent); else fprintf(out, "\n" "%s\n", indent); } if (toc_level == 2) fputs(" \n" " \n", out); fputs(" \n" " \n" " \n" "\n", out); fclose(out); /* * Then the Tokens.xml file... */ snprintf(filename, sizeof(filename), "%s/Contents/Resources/Tokens.xml", docset); if ((out = fopen(filename, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } fputs("\n" "\n", out); write_tokens(out, doc, "index.html"); fputs("\n", out); fclose(out); /* * Finally the HTML file... */ snprintf(filename, sizeof(filename), "%s/Contents/Resources/Documentation/index.html", docset); if ((out = fopen(filename, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } /* * Standard header... */ write_html_head(out, OUTPUT_HTML, section, title, author, copyright, docversion, cssfile); /* * Header... */ if (headerfile) { /* * Use custom header... */ write_file(out, headerfile, OUTPUT_HTML); } else { /* * Use standard header... */ fputs("

", out); write_string(out, title, OUTPUT_HTML); fputs("

\n", out); if (author) { fputs("

", out); write_string(out, author, OUTPUT_HTML); fputs("

\n", out); } if (copyright) { fputs("

", out); write_string(out, copyright, OUTPUT_HTML); fputs("

\n", out); } } /* * Table of contents... */ write_html_toc(out, title, toc, NULL, NULL); free_toc(toc); /* * Body... */ fputs("
\n", out); write_html_body(out, OUTPUT_HTML, bodyfile, body, doc); /* * Footer... */ if (footerfile) { /* * Use custom footer... */ write_file(out, footerfile, OUTPUT_HTML); } fputs("
\n" " \n" "\n", out); fclose(out); /* * When generating document sets, run the docsetutil program to index it... */ if (docset) { int argc = 0; /* Argument count */ const char *args[5]; /* Argument array */ pid_t pid; /* Process ID */ int status; /* Exit status */ args[argc++] = "/usr/bin/xcrun"; args[argc++] = "docsetutil"; args[argc++] = "index"; args[argc++] = docset; args[argc ] = NULL; if (posix_spawn(&pid, args[0], NULL, NULL, (char **)args, environ)) { fprintf(stderr, "mxmldoc: Unable to index documentation set \"%s\": %s\n", docset, strerror(errno)); } else { while (wait(&status) != pid); if (status) { if (WIFEXITED(status)) fprintf(stderr, "mxmldoc: docsetutil exited with status %d\n", WEXITSTATUS(status)); else fprintf(stderr, "mxmldoc: docsetutil crashed with signal %d\n", WTERMSIG(status)); } else { /* * Remove unneeded temporary XML files... */ snprintf(filename, sizeof(filename), "%s/Contents/Resources/Nodes.xml", docset); unlink(filename); snprintf(filename, sizeof(filename), "%s/Contents/Resources/Tokens.xml", docset); unlink(filename); } } } } #endif /* __APPLE__ */ /* * 'write_element()' - Write an element's text nodes. */ static void write_element(FILE *out, /* I - Output file */ mxml_node_t *doc, /* I - Document tree */ mxml_node_t *element, /* I - Element to write */ int mode) /* I - Output mode */ { 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) putc(' ', out); if ((mode == OUTPUT_HTML || mode == OUTPUT_EPUB || mode == OUTPUT_DOCSET) && (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))) { fputs("value.text.string, mode); fputs("\">", out); write_string(out, node->value.text.string, mode); fputs("", out); } else write_string(out, node->value.text.string, mode); } if (!strcmp(element->value.element.name, "type") && element->last_child->value.text.string[0] != '*') putc(' ', out); } #ifdef HAVE_ZLIB_H /* * 'write_epub()' - Write documentation as an EPUB file. */ static void write_epub(const char *epubfile, /* I - EPUB file (output) */ const char *section, /* I - Section */ const char *title, /* I - Title */ const char *author, /* I - Author */ const char *copyright, /* I - Copyright */ const char *docversion, /* I - Document version */ const char *cssfile, /* I - Stylesheet file */ const char *coverimage, /* I - Cover image file */ const char *headerfile, /* I - Header file */ const char *bodyfile, /* I - Body file */ mmd_t *body, /* I - Markdown body */ mxml_node_t *doc, /* I - XML documentation */ const char *footerfile) /* I - Footer file */ { int status = 0; /* Write status */ size_t i; /* Looping var */ FILE *fp; /* Output file */ char epubbase[256], /* Base name of EPUB file (identifier) */ *epubptr; /* Pointer into base name */ zipc_t *epub; /* EPUB ZIP container */ zipc_file_t *epubf; /* File in EPUB ZIP container */ char xhtmlfile[1024], /* XHTML output filename */ *xhtmlptr; /* Pointer into output filename */ mxml_node_t *package_opf, /* package_opf file */ *package, /* package node */ *metadata, /* metadata node */ *manifest, /* manifest node */ *spine, /* spine node */ *temp; /* Other (leaf) node */ char identifier[256], /* dc:identifier string */ *package_opf_string; /* package_opf file as a string */ toc_t *toc; /* Table of contents */ toc_entry_t *tentry; /* Current table of contents */ int toc_level; /* Current table-of-contents level */ static const char *mimetype = /* mimetype file as a string */ "application/epub+zip"; static const char *container_xml = /* container.xml file as a string */ "\n" "\n" " \n" " \n" " \n" "\n"; /* * Start by writing the XHTML content... */ strlcpy(xhtmlfile, epubfile, sizeof(xhtmlfile)); if ((xhtmlptr = strstr(xhtmlfile, ".epub")) != NULL) strlcpy(xhtmlptr, ".xhtml", sizeof(xhtmlfile) - (size_t)(xhtmlptr - xhtmlfile)); else strlcat(xhtmlfile, ".xhtml", sizeof(xhtmlfile)); fp = fopen(xhtmlfile, "w"); /* * Standard header... */ write_html_head(fp, OUTPUT_EPUB, section, title, author, copyright, docversion, cssfile); if (coverimage) fputs("

", fp); /* * Header... */ if (headerfile) { /* * Use custom header... */ write_file(fp, headerfile, OUTPUT_EPUB); } else { /* * Use standard header... */ fputs("

", fp); write_string(fp, title, OUTPUT_EPUB); fputs("

\n", fp); if (author) { fputs("

", fp); write_string(fp, author, OUTPUT_EPUB); fputs("

\n", fp); } if (copyright) { fputs("

", fp); write_string(fp, copyright, OUTPUT_EPUB); fputs("

\n", fp); } } /* * Body... */ fputs("
\n", fp); write_html_body(fp, OUTPUT_EPUB, bodyfile, body, doc); /* * Footer... */ if (footerfile) { /* * Use custom footer... */ write_file(fp, footerfile, OUTPUT_EPUB); } fputs("
\n" " \n" "\n", fp); /* * Close XHTML file... */ fclose(fp); /* * Make the EPUB archive... */ if ((epub = zipcOpen(epubfile, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", epubfile, strerror(errno)); unlink(xhtmlfile); return; } /* * Add the mimetype file... */ status |= zipcCreateFileWithString(epub, "mimetype", mimetype); /* * The META-INF/ directory... */ status |= zipcCreateDirectory(epub, "META-INF/"); /* * The META-INF/container.xml file... */ if ((epubf = zipcCreateFile(epub, "META-INF/container.xml", 1)) != NULL) { status |= zipcFilePuts(epubf, container_xml); status |= zipcFileFinish(epubf); } else status = -1; /* * The OEBPS/ directory... */ status |= zipcCreateDirectory(epub, "OEBPS/"); /* * Copy the OEBPS/body.xhtml file... */ status |= zipcCopyFile(epub, "OEBPS/body.xhtml", xhtmlfile, 1, 1); unlink(xhtmlfile); /* * Add the cover image, if specified... */ if (coverimage) status |= zipcCopyFile(epub, "OEBPS/cover.png", coverimage, 0, 0); /* * Now the OEBPS/package.opf file... */ if ((epubptr = strrchr(epubfile, '/')) != NULL) strlcpy(epubbase, epubptr + 1, sizeof(epubbase)); else strlcpy(epubbase, epubfile, sizeof(epubbase)); if ((epubptr = strstr(epubbase, ".epub")) != NULL) *epubptr = '\0'; package_opf = mxmlNewXML("1.0"); package = mxmlNewElement(package_opf, "package"); mxmlElementSetAttr(package, "xmlns", "http://www.idpf.org/2007/opf"); mxmlElementSetAttr(package, "unique-identifier", epubbase); mxmlElementSetAttr(package, "version", "3.0"); metadata = mxmlNewElement(package, "metadata"); mxmlElementSetAttr(metadata, "xmlns:dc", "http://purl.org/dc/elements/1.1/"); mxmlElementSetAttr(metadata, "xmlns:opf", "http://www.idpf.org/2007/opf"); temp = mxmlNewElement(metadata, "dc:title"); mxmlNewOpaque(temp, title); temp = mxmlNewElement(metadata, "dc:creator"); mxmlNewOpaque(temp, author); temp = mxmlNewElement(metadata, "meta"); mxmlElementSetAttr(temp, "property", "dcterms:modified"); mxmlNewOpaque(temp, get_iso_date(time(NULL))); temp = mxmlNewElement(metadata, "dc:language"); mxmlNewOpaque(temp, "en-US"); /* TODO: Make this settable */ temp = mxmlNewElement(metadata, "dc:rights"); mxmlNewOpaque(temp, copyright); temp = mxmlNewElement(metadata, "dc:publisher"); mxmlNewOpaque(temp, "mxmldoc"); temp = mxmlNewElement(metadata, "dc:identifier"); mxmlElementSetAttr(temp, "id", epubbase); snprintf(identifier, sizeof(identifier), "%s-%s", epubbase, docversion); mxmlNewOpaque(temp, identifier); if (coverimage) { temp = mxmlNewElement(metadata, "meta"); mxmlElementSetAttr(temp, "name", "cover"); mxmlElementSetAttr(temp, "content", "cover-image"); } manifest = mxmlNewElement(package, "manifest"); temp = mxmlNewElement(manifest, "item"); mxmlElementSetAttr(temp, "id", "nav"); mxmlElementSetAttr(temp, "href", "nav.xhtml"); mxmlElementSetAttr(temp, "media-type", "application/xhtml+xml"); mxmlElementSetAttr(temp, "properties", "nav"); temp = mxmlNewElement(manifest, "item"); mxmlElementSetAttr(temp, "id", "body"); mxmlElementSetAttr(temp, "href", "body.xhtml"); mxmlElementSetAttr(temp, "media-type", "application/xhtml+xml"); if (coverimage) { temp = mxmlNewElement(manifest, "item"); mxmlElementSetAttr(temp, "id", "cover-image"); mxmlElementSetAttr(temp, "href", "cover.png"); mxmlElementSetAttr(temp, "media-type", "image/png"); } spine = mxmlNewElement(package, "spine"); temp = mxmlNewElement(spine, "itemref"); mxmlElementSetAttr(temp, "idref", "body"); package_opf_string = mxmlSaveAllocString(package_opf, epub_ws_cb); if ((epubf = zipcCreateFile(epub, "OEBPS/package.opf", 1)) != NULL) { status |= zipcFilePuts(epubf, package_opf_string); status |= zipcFileFinish(epubf); } else status = -1; free(package_opf_string); /* * Then the OEBPS/nav.xhtml file... */ if ((epubf = zipcCreateFile(epub, "OEBPS/nav.xhtml", 1)) != NULL) { toc = build_toc(doc, bodyfile, body, OUTPUT_EPUB); zipcFilePrintf(epubf, "\n" "\n" "\n" " \n" " %s\n" " \n" " \n" " \n" " \n" " \n" "\n"); zipcFileFinish(epubf); free_toc(toc); } else status = -1; if (status) fprintf(stderr, "mxmldoc: Unable to write \"%s\": %s\n", epubfile, zipcError(epub)); else if (zipcClose(epub)) fprintf(stderr, "mxmldoc: Unable to write \"%s\": %s\n", epubfile, strerror(errno)); } #endif /* HAVE_ZLIB_H */ /* * 'write_file()' - Copy a file to the output. */ static void write_file(FILE *out, /* I - Output file */ const char *file, /* I - File to copy */ int mode) /* I - Output mode */ { FILE *fp; /* Copy file */ char line[8192]; /* Line from file */ if ((fp = fopen(file, "r")) == NULL) { fprintf(stderr, "mxmldoc: Unable to open \"%s\": %s\n", file, strerror(errno)); return; } if (mode == OUTPUT_EPUB) { char *ptr; /* Pointer into line */ while (fgets(line, sizeof(line), fp)) { for (ptr = line; *ptr; ptr ++) { if (!strncmp(ptr, " ", 6)) { ptr += 5; fputs(" ", out); } else if (!strncmp(ptr, "©", 6)) { ptr += 5; fputs("©", out); } else if (!strncmp(ptr, "®", 5)) { ptr += 4; fputs("®", out); } else if (!strncmp(ptr, "™", 7)) { ptr += 6; fputs("™", out); } else fputc(*ptr, out); } } } else { while (fgets(line, sizeof(line), fp)) fputs(line, out); } fclose(fp); } /* * 'write_function()' - Write documentation for a function. */ static void write_function(FILE *out, /* I - Output file */ int mode, /* I - Output mode */ mxml_node_t *doc, /* I - Document */ mxml_node_t *function, /* I - Function */ int level) /* I - Base heading level */ { mxml_node_t *arg, /* Current argument */ *adesc, /* Description of argument */ *description, /* Description of function */ *type, /* Type for argument */ *node; /* Node in description */ const char *name, /* Name of function/type */ *defval; /* Default value */ const char *prefix; /* Prefix string */ char *sep; /* Newline separator */ name = mxmlElementGetAttr(function, "name"); description = mxmlFindElement(function, function, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, "%s%s\n", level, level == 3 ? "function" : "method", get_comment_info(description), name, name, level); if (description) write_description(out, mode, description, "p", 1); fputs("

\n", out); arg = mxmlFindElement(function, function, "returnvalue", NULL, NULL, MXML_DESCEND_FIRST); if (arg) write_element(out, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_HTML); else fputs("void ", out); fputs(name, out); 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); fputs(prefix, out); if (type->child) write_element(out, doc, type, mode); fputs(mxmlElementGetAttr(arg, "name"), out); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) fprintf(out, " %s", defval); } if (!strcmp(prefix, "(")) fputs("(void);

\n", out); else { fprintf(out, ");

\n" "Parameters\n" "\n", level + 1, level + 1); for (arg = mxmlFindElement(function, function, "argument", NULL, NULL, MXML_DESCEND_FIRST); arg; arg = mxmlFindElement(arg, function, "argument", NULL, NULL, MXML_NO_DESCEND)) { fprintf(out, "\n", mxmlElementGetAttr(arg, "name")); adesc = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); write_description(out, mode, adesc, "td", -1); fputs("\n", out); } fputs("
%s
\n", out); } arg = mxmlFindElement(function, function, "returnvalue", NULL, NULL, MXML_DESCEND_FIRST); if (arg) { fprintf(out, "Return Value\n", level + 1, level + 1); adesc = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); write_description(out, mode, adesc, "p", 1); write_description(out, mode, adesc, "p", 0); } if (description) { for (node = description->child; node; node = node->next) if (node->value.opaque && (sep = strstr(node->value.opaque, "\n\n")) != NULL) { sep += 2; if (*sep && strncmp(sep, "@since ", 7) && strncmp(sep, "@deprecated@", 12)) break; } if (node) { fprintf(out, "Discussion\n", level + 1, level + 1); write_description(out, mode, description, "p", 0); } } } /* * 'write_html()' - Write HTML documentation. */ static void write_html(const char *framefile, /* I - Framed HTML basename */ const char *section, /* I - Section */ const char *title, /* I - Title */ const char *author, /* I - Author's name */ const char *copyright, /* I - Copyright string */ const char *docversion, /* I - Documentation set version */ const char *cssfile, /* I - Stylesheet file */ const char *coverimage, /* I - Cover image file */ const char *headerfile, /* I - Header file */ const char *bodyfile, /* I - Body file */ mmd_t *body, /* I - Markdown body */ mxml_node_t *doc, /* I - XML documentation */ const char *footerfile) /* I - Footer file */ { FILE *out; /* Output file */ const char *basename; /* Base filename for framed output */ char filename[1024]; /* Current output filename */ toc_t *toc; /* Table of contents */ /* * Create the table-of-contents entries... */ toc = build_toc(doc, bodyfile, body, OUTPUT_HTML); if (framefile) { /* * Get the basename of the frame file... */ if ((basename = strrchr(framefile, '/')) != NULL) basename ++; else basename = framefile; if (strstr(basename, ".html")) fputs("mxmldoc: Frame base name should not contain .html extension.\n", stderr); /* * Create the container HTML file for the frames... */ snprintf(filename, sizeof(filename), "%s.html", framefile); if ((out = fopen(filename, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } fputs("\n" "\n" " \n" " ", out); write_string(out, title, OUTPUT_HTML); fputs("\n", out); if (section) fprintf(out, " \n", section); fputs(" \n" "\t\n" "\t\n" " \n" " \n" " \n", out); fputs(" \n", out); fprintf(out, " \n", basename); fprintf(out, " \n", basename); fputs(" \n" " \n" " <h1>", out); write_string(out, title, OUTPUT_HTML); fprintf(out, "</h1>\n" " <ul>\n" " <li><a href=\"%s-toc.html\">Table of Contents</a></li>\n" " <li><a href=\"%s-body.html\">Body</a></li>\n" " </ul>\n", basename, basename); fputs(" \n" "\n", out); fclose(out); /* * Write the table-of-contents file... */ snprintf(filename, sizeof(filename), "%s-toc.html", framefile); if ((out = fopen(filename, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } write_html_head(out, OUTPUT_HTML, section, title, author, copyright, docversion, cssfile); if (coverimage) { fputs("

\n", out); } snprintf(filename, sizeof(filename), "%s-body.html", basename); write_html_toc(out, title, toc, filename, "body"); fputs(" \n" "\n", out); fclose(out); /* * Finally, open the body file... */ snprintf(filename, sizeof(filename), "%s-body.html", framefile); if ((out = fopen(filename, "w")) == NULL) { fprintf(stderr, "mxmldoc: Unable to create \"%s\": %s\n", filename, strerror(errno)); return; } } else out = stdout; /* * Standard header... */ write_html_head(out, OUTPUT_HTML, section, title, author, copyright, docversion, cssfile); if (!framefile && coverimage) { fputs("

\n", out); } /* * Header... */ if (headerfile) { /* * Use custom header... */ write_file(out, headerfile, OUTPUT_HTML); } else { /* * Use standard header... */ fputs("

", out); write_string(out, title, OUTPUT_HTML); fputs("

\n", out); if (author) { fputs("

", out); write_string(out, author, OUTPUT_HTML); fputs("

\n", out); } if (copyright) { fputs("

", out); write_string(out, copyright, OUTPUT_HTML); fputs("

\n", out); } } /* * Table of contents... */ if (!framefile) write_html_toc(out, title, toc, NULL, NULL); free_toc(toc); /* * Body... */ fputs("
\n", out); write_html_body(out, OUTPUT_HTML, bodyfile, body, doc); /* * Footer... */ if (footerfile) { /* * Use custom footer... */ write_file(out, footerfile, OUTPUT_HTML); } fputs("
\n" " \n" "\n", out); /* * Close output file as needed... */ if (out != stdout) fclose(out); } /* * 'write_html_body()' - Write a HTML/XHTML body. */ static void write_html_body( FILE *out, /* I - Output file */ int mode, /* I - HTML or EPUB/XHTML output */ const char *bodyfile, /* I - Body file */ mmd_t *body, /* I - Markdown body */ mxml_node_t *doc) /* I - XML documentation */ { 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 */ *defval; /* Default value */ /* * Body... */ if (body) markdown_write_block(out, body, mode); else if (bodyfile) write_file(out, bodyfile, mode); /* * List of classes... */ if ((scut = find_public(doc, doc, "class", NULL, mode)) != NULL) { fputs("

Classes

\n", out); while (scut) { write_scu(out, mode, doc, scut); scut = find_public(scut, doc, "class", NULL, mode); } } /* * List of functions... */ if ((function = find_public(doc, doc, "function", NULL, mode)) != NULL) { fputs("

Functions

\n", out); while (function) { write_function(out, mode, doc, function, 3); function = find_public(function, doc, "function", NULL, mode); } } /* * List of types... */ if ((scut = find_public(doc, doc, "typedef", NULL, mode)) != NULL) { fputs("

Data Types

\n", out); while (scut) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, "

%s%s

\n", name, get_comment_info(description), name); if (description) write_description(out, mode, description, "p", 1); fputs("

\n" "typedef ", out); type = mxmlFindElement(scut, scut, "type", NULL, NULL, MXML_DESCEND_FIRST); for (type = type->child; type; type = type->next) if (!strcmp(type->value.text.string, "(")) break; else { if (type->value.text.whitespace) putc(' ', out); if (find_public(doc, doc, "class", type->value.text.string, mode) || find_public(doc, doc, "enumeration", type->value.text.string, mode) || find_public(doc, doc, "struct", type->value.text.string, mode) || find_public(doc, doc, "typedef", type->value.text.string, mode) || find_public(doc, doc, "union", type->value.text.string, mode)) { fputs("value.text.string, OUTPUT_HTML); fputs("\">", out); write_string(out, type->value.text.string, OUTPUT_HTML); fputs("", out); } else write_string(out, type->value.text.string, OUTPUT_HTML); } if (type) { /* * Output function type... */ if (type->prev && type->prev->value.text.string[0] != '*') putc(' ', out); fprintf(out, "(*%s", name); for (type = type->next->next; type; type = type->next) { if (type->value.text.whitespace) putc(' ', out); if (find_public(doc, doc, "class", type->value.text.string, mode) || find_public(doc, doc, "enumeration", type->value.text.string, mode) || find_public(doc, doc, "struct", type->value.text.string, mode) || find_public(doc, doc, "typedef", type->value.text.string, mode) || find_public(doc, doc, "union", type->value.text.string, mode)) { fputs("value.text.string, OUTPUT_HTML); fputs("\">", out); write_string(out, type->value.text.string, OUTPUT_HTML); fputs("", out); } else write_string(out, type->value.text.string, OUTPUT_HTML); } fputs(";\n", out); } else { type = mxmlFindElement(scut, scut, "type", NULL, NULL, MXML_DESCEND_FIRST); if (type->last_child->value.text.string[0] != '*') putc(' ', out); fprintf(out, "%s;\n", name); } fputs("

\n", out); scut = find_public(scut, doc, "typedef", NULL, mode); } } /* * List of structures... */ if ((scut = find_public(doc, doc, "struct", NULL, mode)) != NULL) { fputs("

Structures

\n", out); while (scut) { write_scu(out, mode, doc, scut); scut = find_public(scut, doc, "struct", NULL, mode); } } /* * List of unions... */ if ((scut = find_public(doc, doc, "union", NULL, mode)) != NULL) { fputs("

Unions

\n", out); while (scut) { write_scu(out, mode, doc, scut); scut = find_public(scut, doc, "union", NULL, mode); } } /* * Variables... */ if ((arg = find_public(doc, doc, "variable", NULL, mode)) != NULL) { fputs("

Variables

\n", out); while (arg) { name = mxmlElementGetAttr(arg, "name"); description = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, "

%s%s

\n", name, get_comment_info(description), name); if (description) write_description(out, mode, description, "p", 1); fputs("

", out); write_element(out, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_HTML); fputs(mxmlElementGetAttr(arg, "name"), out); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) fprintf(out, " %s", defval); fputs(";

\n", out); arg = find_public(arg, doc, "variable", NULL, mode); } } /* * List of enumerations... */ if ((scut = find_public(doc, doc, "enumeration", NULL, mode)) != NULL) { fputs("

Constants

\n", out); while (scut) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, "

%s%s

\n", name, get_comment_info(description), name); if (description) write_description(out, mode, description, "p", 1); fputs("

Constants

\n" " \n", out); for (arg = find_public(scut, scut, "constant", NULL, mode); arg; arg = find_public(arg, scut, "constant", NULL, mode)) { description = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " ", mxmlElementGetAttr(arg, "name"), get_comment_info(description)); write_description(out, mode, description, "td", -1); fputs("\n", out); } fputs("
%s %s
\n", out); scut = find_public(scut, doc, "enumeration", NULL, mode); } } } /* * 'write_html_head()' - Write the standard HTML header. */ static void write_html_head(FILE *out, /* I - Output file */ int mode, /* I - HTML or EPUB/XHTML */ const char *section, /* I - Section */ const char *title, /* I - Title */ const char *author, /* I - Author's name */ const char *copyright, /* I - Copyright string */ const char *docversion, /* I - Document version string */ const char *cssfile) /* I - Stylesheet */ { if (mode == OUTPUT_EPUB) fputs("\n" "\n" "\n", out); else fputs("\n" "\n", out); if (section) fprintf(out, "\n", section); fputs(" \n" " ", out); write_string(out, title, mode); fputs("\n", out); if (mode == OUTPUT_EPUB) { if (section) fprintf(out, " \n", section); fputs(" \n" " \n" " \n" " \n" " \n" " \n" " \n", out); else fputs("-->\n" " \n" " \n", out); } /* * 'write_html_toc()' - Write a HTML table-of-contents. */ static void write_html_toc(FILE *out, /* I - Output file */ const char *title, /* I - Title */ toc_t *toc, /* I - Table of contents */ const char *filename, /* I - Target filename, if any */ const char *target) /* I - Target frame name, if any */ { size_t i; /* Looping var */ toc_entry_t *tentry; /* Current table of contents */ int toc_level; /* Current table-of-contents level */ char targetattr[1024]; /* Target attribute, if any */ /* * If target is set, it is the frame file that contains the body. * Otherwise, we are creating a single-file... */ if (target) snprintf(targetattr, sizeof(targetattr), " target=\"%s\"", target); else targetattr[0] = '\0'; fputs("
\n", out); if (filename) { fprintf(out, "

", filename, targetattr); write_string(out, title, OUTPUT_HTML); fputs("

\n", out); } fputs("

Contents

\n" "
    \n", out); for (i = 0, tentry = toc->entries, toc_level = 1; i < toc->num_entries; i ++, tentry ++) { if (tentry->level > toc_level) { toc_level = tentry->level; } else if (tentry->level < toc_level) { fputs("
\n", out); toc_level = tentry->level; } fprintf(out, " %s
  • ", toc_level == 1 ? "" : " ", filename ? filename : "", tentry->anchor, targetattr); write_string(out, tentry->title, OUTPUT_HTML); if ((i + 1) < toc->num_entries && tentry[1].level > toc_level) fputs("
      \n", out); else fputs("\n", out); } if (toc_level == 2) fputs("
  • \n", out); fputs(" \n" "
    \n", out); } /* * 'write_man()' - Write manpage documentation. */ static void write_man(const char *man_name, /* I - Name of manpage */ const char *section, /* I - Section */ const char *title, /* I - Title */ const char *author, /* I - Author's name */ const char *copyright, /* I - Copyright string */ const char *headerfile, /* I - Header file */ const char *bodyfile, /* I - Body file */ mmd_t *body, /* I - Markdown body */ mxml_node_t *doc, /* I - XML documentation */ const char *footerfile) /* I - Footer file */ { 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 */ const char *source_date_epoch; /* SOURCE_DATE_EPOCH environment variable */ time_t curtime; /* Current time */ struct tm *curdate; /* Current date */ char buffer[1024]; /* String buffer */ static const char * const scopes[] = /* Scope strings */ { "private", "protected", "public" }; /* * Standard man page... * * Get the current date, using the SOURCE_DATE_EPOCH environment variable, if * present, for the number of seconds since the epoch - this enables * reproducible builds (Issue #193). */ if ((source_date_epoch = getenv("SOURCE_DATE_EPOCH")) == NULL || (curtime = (time_t)strtol(source_date_epoch, NULL, 10)) <= 0) curtime = time(NULL); curdate = localtime(&curtime); strftime(buffer, sizeof(buffer), "%x", curdate); printf(".TH %s %s \"%s\" \"%s\" \"%s\"\n", man_name, section ? section : "3", title ? title : "", buffer, title ? title : ""); /* * Header... */ if (headerfile) { /* * Use custom header... */ write_file(stdout, headerfile, OUTPUT_MAN); } else { /* * Use standard header... */ puts(".SH NAME"); printf("%s \\- %s\n", man_name, title ? title : man_name); } /* * Body... */ if (body) markdown_write_block(stdout, body, OUTPUT_MAN); else if (bodyfile) write_file(stdout, bodyfile, OUTPUT_MAN); /* * List of classes... */ if (find_public(doc, doc, "class", NULL, OUTPUT_MAN)) { puts(".SH CLASSES"); for (scut = find_public(doc, doc, "class", NULL, OUTPUT_MAN); scut; scut = find_public(scut, doc, "class", NULL, OUTPUT_MAN)) { cname = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".SS %s\n", cname); write_description(stdout, OUTPUT_MAN, description, NULL, 1); printf(".PP\n" ".nf\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(stdout, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_MAN); 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(stdout, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_MAN); else if (strcmp(cname, name) && strcmp(cname, name + 1)) fputs("void ", stdout); printf("%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); putchar(prefix); if (prefix == ',') putchar(' '); if (type->child) write_element(stdout, doc, type, OUTPUT_MAN); fputs(mxmlElementGetAttr(arg, "name"), stdout); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) printf(" %s", defval); } if (prefix == '(') puts("(void);"); else puts(");"); } } puts("};\n" ".fi"); write_description(stdout, OUTPUT_MAN, description, NULL, 0); } } /* * List of enumerations... */ if (find_public(doc, doc, "enumeration", NULL, OUTPUT_MAN)) { puts(".SH ENUMERATIONS"); for (scut = find_public(doc, doc, "enumeration", NULL, OUTPUT_MAN); scut; scut = find_public(scut, doc, "enumeration", NULL, OUTPUT_MAN)) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".SS %s\n", name); write_description(stdout, OUTPUT_MAN, description, NULL, 1); write_description(stdout, OUTPUT_MAN, description, NULL, 0); for (arg = mxmlFindElement(scut, scut, "constant", NULL, NULL, MXML_DESCEND_FIRST); arg; arg = mxmlFindElement(arg, scut, "constant", NULL, NULL, MXML_NO_DESCEND)) { description = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".TP 5\n%s\n.br\n", mxmlElementGetAttr(arg, "name")); write_description(stdout, OUTPUT_MAN, description, NULL, 1); } } } /* * List of functions... */ if (find_public(doc, doc, "function", NULL, OUTPUT_MAN)) { puts(".SH FUNCTIONS"); for (function = find_public(doc, doc, "function", NULL, OUTPUT_MAN); function; function = find_public(function, doc, "function", NULL, OUTPUT_MAN)) { name = mxmlElementGetAttr(function, "name"); description = mxmlFindElement(function, function, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".SS %s\n", name); write_description(stdout, OUTPUT_MAN, description, NULL, 1); puts(".PP\n" ".nf"); arg = mxmlFindElement(function, function, "returnvalue", NULL, NULL, MXML_DESCEND_FIRST); if (arg) write_element(stdout, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_MAN); else fputs("void", stdout); printf(" %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(stdout, doc, type, OUTPUT_MAN); fputs(mxmlElementGetAttr(arg, "name"), stdout); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) printf(" %s", defval); } if (prefix == '(') puts("(void);"); else puts("\n);"); puts(".fi"); write_description(stdout, OUTPUT_MAN, description, NULL, 0); } } /* * List of structures... */ if (find_public(doc, doc, "struct", NULL, OUTPUT_MAN)) { puts(".SH STRUCTURES"); for (scut = find_public(doc, doc, "struct", NULL, OUTPUT_MAN); scut; scut = find_public(scut, doc, "struct", NULL, OUTPUT_MAN)) { cname = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".SS %s\n", cname); write_description(stdout, OUTPUT_MAN, description, NULL, 1); printf(".PP\n" ".nf\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(stdout, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_MAN); 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(stdout, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_MAN); else if (strcmp(cname, name) && strcmp(cname, name + 1)) fputs("void ", stdout); fputs(name, stdout); 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(stdout, doc, type, OUTPUT_MAN); fputs(mxmlElementGetAttr(arg, "name"), stdout); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) printf(" %s", defval); } if (prefix == '(') puts("(void);"); else puts(");"); } puts("};\n" ".fi"); write_description(stdout, OUTPUT_MAN, description, NULL, 0); } } /* * List of types... */ if (find_public(doc, doc, "typedef", NULL, OUTPUT_MAN)) { puts(".SH TYPES"); for (scut = find_public(doc, doc, "typedef", NULL, OUTPUT_MAN); scut; scut = find_public(scut, doc, "typedef", NULL, OUTPUT_MAN)) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".SS %s\n", name); write_description(stdout, OUTPUT_MAN, description, NULL, 1); fputs(".PP\n" ".nf\n" "typedef ", stdout); type = mxmlFindElement(scut, scut, "type", NULL, NULL, MXML_DESCEND_FIRST); for (type = type->child; type; type = type->next) if (!strcmp(type->value.text.string, "(")) break; else { if (type->value.text.whitespace) putchar(' '); write_string(stdout, type->value.text.string, OUTPUT_MAN); } if (type) { /* * Output function type... */ printf(" (*%s", name); for (type = type->next->next; type; type = type->next) { if (type->value.text.whitespace) putchar(' '); write_string(stdout, type->value.text.string, OUTPUT_MAN); } puts(";"); } else printf(" %s;\n", name); puts(".fi"); write_description(stdout, OUTPUT_MAN, description, NULL, 0); } } /* * List of unions... */ if (find_public(doc, doc, "union", NULL, OUTPUT_MAN)) { puts(".SH UNIONS"); for (scut = find_public(doc, doc, "union", NULL, OUTPUT_MAN); scut; scut = find_public(scut, doc, "union", NULL, OUTPUT_MAN)) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".SS %s\n", name); write_description(stdout, OUTPUT_MAN, description, NULL, 1); printf(".PP\n" ".nf\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(stdout, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_MAN); printf("%s;\n", mxmlElementGetAttr(arg, "name")); } puts("};\n" ".fi"); write_description(stdout, OUTPUT_MAN, description, NULL, 0); } } /* * Variables... */ if (find_public(doc, doc, "variable", NULL, OUTPUT_MAN)) { puts(".SH VARIABLES"); for (arg = find_public(doc, doc, "variable", NULL, OUTPUT_MAN); arg; arg = find_public(arg, doc, "variable", NULL, OUTPUT_MAN)) { name = mxmlElementGetAttr(arg, "name"); description = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); printf(".SS %s\n", name); write_description(stdout, OUTPUT_MAN, description, NULL, 1); puts(".PP\n" ".nf"); write_element(stdout, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_MAN); fputs(mxmlElementGetAttr(arg, "name"), stdout); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) printf(" %s", defval); puts(";\n" ".fi"); write_description(stdout, OUTPUT_MAN, description, NULL, 0); } } if (footerfile) { /* * Use custom footer... */ write_file(stdout, footerfile, OUTPUT_MAN); } else { /* * Use standard footer... */ puts(".SH AUTHOR"); puts(".PP"); puts(author); puts(".SH COPYRIGHT"); puts(".PP"); puts(copyright); } } /* * 'write_scu()' - Write a structure, class, or union. */ static void write_scu(FILE *out, /* I - Output file */ int mode, /* I - Output mode */ mxml_node_t *doc, /* I - Document */ mxml_node_t *scut) /* I - Structure, class, or union */ { int i; /* Looping var */ mxml_node_t *function, /* Current function */ *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 */ *scope; /* Scope for variable/function */ int inscope, /* Variable/method scope */ maxscope; /* Maximum scope */ char prefix; /* Prefix character */ const char *br = mode == OUTPUT_EPUB ? "
    " : "
    "; /* Break sequence */ static const char * const scopes[] = /* Scope strings */ { "private", "protected", "public" }; cname = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, "

    %s%s

    \n", scut->value.element.name, get_comment_info(description), cname, cname); if (description) write_description(out, mode, description, "p", 1); fprintf(out, "

    %s %s", scut->value.element.name, cname); if ((parent = mxmlElementGetAttr(scut, "parent")) != NULL) fprintf(out, " %s", parent); fprintf(out, " {%s\n", br); maxscope = !strcmp(scut->value.element.name, "class") ? 3 : 1; for (i = 0; i < maxscope; i ++) { inscope = maxscope == 1; for (arg = mxmlFindElement(scut, scut, "variable", NULL, NULL, MXML_DESCEND_FIRST); arg; arg = mxmlFindElement(arg, scut, "variable", NULL, NULL, MXML_NO_DESCEND)) { if (maxscope > 1 && ((scope = mxmlElementGetAttr(arg, "scope")) == NULL || strcmp(scope, scopes[i]))) continue; if (!inscope) { inscope = 1; fprintf(out, "  %s:
    \n", scopes[i]); } fputs("    ", out); write_element(out, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_HTML); fprintf(out, "%s;%s\n", mxmlElementGetAttr(arg, "name"), br); } for (function = mxmlFindElement(scut, scut, "function", NULL, NULL, MXML_DESCEND_FIRST); function; function = mxmlFindElement(function, scut, "function", NULL, NULL, MXML_NO_DESCEND)) { if (maxscope > 1 && ((scope = mxmlElementGetAttr(arg, "scope")) == NULL || strcmp(scope, scopes[i]))) continue; if (!inscope) { inscope = 1; fprintf(out, "  %s:%s\n", scopes[i], br); } name = mxmlElementGetAttr(function, "name"); fputs("    ", out); arg = mxmlFindElement(function, function, "returnvalue", NULL, NULL, MXML_DESCEND_FIRST); if (arg) write_element(out, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_HTML); else if (strcmp(cname, name) && strcmp(cname, name + 1)) fputs("void ", out); fprintf(out, "%s", 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); putc(prefix, out); if (prefix == ',') putc(' ', out); if (type->child) write_element(out, doc, type, OUTPUT_HTML); fputs(mxmlElementGetAttr(arg, "name"), out); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) fprintf(out, " %s", defval); } if (prefix == '(') fprintf(out, "(void);%s\n", br); else fprintf(out, ");%s\n", br); } } fputs("};

    \n" "

    Members

    \n" "\n", out); for (arg = mxmlFindElement(scut, scut, "variable", NULL, NULL, MXML_DESCEND_FIRST); arg; arg = mxmlFindElement(arg, scut, "variable", NULL, NULL, MXML_NO_DESCEND)) { description = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, "\n", mxmlElementGetAttr(arg, "name"), get_comment_info(description)); write_description(out, mode, description, "td", -1); fputs("\n", out); } fputs("
    %s %s
    \n", out); for (function = mxmlFindElement(scut, scut, "function", NULL, NULL, MXML_DESCEND_FIRST); function; function = mxmlFindElement(function, scut, "function", NULL, NULL, MXML_NO_DESCEND)) { write_function(out, mode, doc, function, 4); } } /* * 'write_string()' - Write a string, quoting HTML special chars as needed. */ static void write_string(FILE *out, /* I - Output file */ const char *s, /* I - String to write */ int mode) /* I - Output mode */ { if (!s) return; switch (mode) { case OUTPUT_DOCSET : case OUTPUT_EPUB : case OUTPUT_HTML : case OUTPUT_XML : while (*s) { if (*s == '&') fputs("&", out); else if (*s == '<') fputs("<", out); else if (*s == '>') fputs(">", out); else if (*s == '\"') fputs(""", out); 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 && mode != OUTPUT_EPUB) { /* * Handle non-breaking space as-is... */ fputs(" ", out); } else fprintf(out, "&#x%x;", ch); } else putc(*s, out); s ++; } break; case OUTPUT_MAN : while (*s) { if (*s == '\\' || *s == '-') putc('\\', out); putc(*s++, out); } break; } } /* * 'write_tokens()' - Write nodes for all APIs. */ static void write_tokens(FILE *out, /* I - Output file */ mxml_node_t *doc, /* I - Document */ const char *path) /* I - Path to help file */ { mxml_node_t *function, /* Current function */ *scut, /* Struct/class/union/typedef */ *arg, /* Current argument */ *description, /* Description of function/var */ *type, /* Type node */ *node; /* Current child node */ const char *name, /* Name of function/type */ *cename, /* Current class/enum name */ *defval; /* Default value for argument */ char prefix; /* Prefix for declarations */ /* * Classes... */ if ((scut = find_public(doc, doc, "class", NULL, OUTPUT_TOKENS)) != NULL) { while (scut) { cename = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/cpp/cl/%s\n" " ", path, cename, cename); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " \n", out); if ((function = find_public(scut, scut, "function", NULL, OUTPUT_TOKENS)) != NULL) { while (function) { name = mxmlElementGetAttr(function, "name"); description = mxmlFindElement(function, function, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s.%s\n" " //apple_ref/cpp/clm/%s/%s", path, cename, name, cename, name); arg = mxmlFindElement(function, function, "returnvalue", NULL, NULL, MXML_DESCEND_FIRST); if (arg && (type = mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST)) != NULL) { for (node = type->child; node; node = node->next) fputs(node->value.text.string, out); } else if (strcmp(cename, name) && strcmp(cename, name + 1)) fputs("void", out); fputs("/", out); 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); putc(prefix, out); for (node = type->child; node; node = node->next) fputs(node->value.text.string, out); fputs(mxmlElementGetAttr(arg, "name"), out); } if (prefix == '(') fputs("(void", out); fputs(")\n" " ", out); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " ", out); arg = mxmlFindElement(function, function, "returnvalue", NULL, NULL, MXML_DESCEND_FIRST); if (arg) write_element(out, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_XML); else if (strcmp(cename, name) && strcmp(cename, name + 1)) fputs("void ", out); fputs(name, out); 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); putc(prefix, out); if (prefix == ',') putc(' ', out); if (type->child) write_element(out, doc, type, OUTPUT_XML); fputs(mxmlElementGetAttr(arg, "name"), out); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) fprintf(out, " %s", defval); } if (prefix == '(') fputs("(void);", out); else fputs(");", out); fputs(" \n" " \n", out); function = find_public(function, doc, "function", NULL, OUTPUT_TOKENS); } } scut = find_public(scut, doc, "class", NULL, OUTPUT_TOKENS); } } /* * Functions... */ if ((function = find_public(doc, doc, "function", NULL, OUTPUT_TOKENS)) != NULL) { while (function) { name = mxmlElementGetAttr(function, "name"); description = mxmlFindElement(function, function, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/c/func/%s\n" " ", path, name, name); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " ", out); arg = mxmlFindElement(function, function, "returnvalue", NULL, NULL, MXML_DESCEND_FIRST); if (arg) write_element(out, doc, mxmlFindElement(arg, arg, "type", NULL, NULL, MXML_DESCEND_FIRST), OUTPUT_XML); else // if (strcmp(cname, name) && strcmp(cname, name + 1)) fputs("void ", out); fputs(name, out); 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); putc(prefix, out); if (prefix == ',') putc(' ', out); if (type->child) write_element(out, doc, type, OUTPUT_XML); fputs(mxmlElementGetAttr(arg, "name"), out); if ((defval = mxmlElementGetAttr(arg, "default")) != NULL) fprintf(out, " %s", defval); } if (prefix == '(') fputs("(void);", out); else fputs(");", out); fputs(" \n" " \n", out); function = find_public(function, doc, "function", NULL, OUTPUT_TOKENS); } } /* * Data types... */ if ((scut = find_public(doc, doc, "typedef", NULL, OUTPUT_TOKENS)) != NULL) { while (scut) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/c/tdef/%s\n" " ", path, name, name); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " \n", out); scut = find_public(scut, doc, "typedef", NULL, OUTPUT_TOKENS); } } /* * Structures... */ if ((scut = find_public(doc, doc, "struct", NULL, OUTPUT_TOKENS)) != NULL) { while (scut) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/c/tag/%s\n" " ", path, name, name); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " \n", out); scut = find_public(scut, doc, "struct", NULL, OUTPUT_TOKENS); } } /* * Unions... */ if ((scut = find_public(doc, doc, "union", NULL, OUTPUT_TOKENS)) != NULL) { while (scut) { name = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/c/tag/%s\n" " ", path, name, name); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " \n", out); scut = find_public(scut, doc, "union", NULL, OUTPUT_TOKENS); } } /* * Globals variables... */ if ((arg = find_public(doc, doc, "variable", NULL, OUTPUT_TOKENS)) != NULL) { while (arg) { name = mxmlElementGetAttr(arg, "name"); description = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/c/data/%s\n" " ", path, name, name); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " \n", out); arg = find_public(arg, doc, "variable", NULL, OUTPUT_TOKENS); } } /* * Enumerations/constants... */ if ((scut = find_public(doc, doc, "enumeration", NULL, OUTPUT_TOKENS)) != NULL) { while (scut) { cename = mxmlElementGetAttr(scut, "name"); description = mxmlFindElement(scut, scut, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/c/tag/%s\n" " ", path, cename, cename); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " \n", out); for (arg = mxmlFindElement(scut, scut, "constant", NULL, NULL, MXML_DESCEND_FIRST); arg; arg = mxmlFindElement(arg, scut, "constant", NULL, NULL, MXML_NO_DESCEND)) { name = mxmlElementGetAttr(arg, "name"); description = mxmlFindElement(arg, arg, "description", NULL, NULL, MXML_DESCEND_FIRST); fprintf(out, " \n" " Documentation/%s\n" " %s\n" " //apple_ref/c/econst/%s\n" " ", path, cename, name); write_description(out, OUTPUT_TOKENS, description, "", 1); fputs(" \n" " \n", out); } scut = find_public(scut, doc, "enumeration", NULL, OUTPUT_TOKENS); } } } /* * '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") && strncmp(name, "?xml", 4)) return (NULL); else return ("\n"); } }