#include "xml/from-txt.h"
#include "xml/dumptree.h"
#include "xml/pdoc-src.h"
#include "xml/pdoc-cpp.h"
#include "xml/pdoc-pfe.h"
#include "xml/copynode.h"
#include "xml/gerror.h"
#include <string.h>

#define ___ {
#define ____ }

int
main (int argc, char** argv)
{
    xml_g_set_prgname(argv[0]); 

    if (argc < 2)
    
{
	g_printerr ("> %s filename... [options]\n"
		    "\t the program reads an C source text and pritns the\n"
		    "\t internal xml format to stdout, each file enclosed \n"
                    "\t in item_file markups.\n"
		    "\t options: -hidden -empty\n",
		    g_get_prgname());
	return 1;
    }


    ___ gchar *filename = 0;
    const gchar *styleflag = ""; 

    ___    xml_GNode* node = 0; GError* error = 0;
    int i; xml_GNode* tree = xml_g_node_new_data (":");

    for (i=1; i < argc ; i++) 
    
{
        if (argv[i][0] == '-') 
{ styleflag = argv[i]; continue; }

        filename = argv[i]; 

        node = xml_tree_node_from_file (node, filename, &error);
        if (error) 
            xml_g_show_error (&error, "after parsing file:\n\t'%s'", filename);

        if (! node) continue;
        
        node = xml_pdoc_c_read (node);
        if (!strstr (styleflag, "-nodocs"))
            node = xml_pdoc_c_docs (node);
        if (!strstr (styleflag, "-noblocks"))
            node = xml_pdoc_c_blocks (node);
        if (!strstr (styleflag, "-noblocc"))
            node = xml_pdoc_c_blocc (node);
        if (strstr (styleflag, "-usecdef"))
            node = xml_pdoc_item_cdef (node);
        if (!strstr (styleflag, "-noitem"))
            node = xml_pdoc_item_bloc (node);
        if (!strstr (styleflag, "-nowordset"))
            node = xml_pdoc_pfe_wordset (node);
        if (!strstr (styleflag, "-nofcode"))
            node = xml_pdoc_pfe_grabfcode (node);
        if (!strstr (styleflag, "-noforth"))
            node = xml_pdoc_pfe_forthdocs (node);
        if (!strstr (styleflag, "-noexports"))
            node = xml_pdoc_pfe_wordsets_exports (node);
        if (!strstr (styleflag, "-nonames"))
            node = xml_pdoc_pfe_export_attributes (node);
        if (!strstr (styleflag, "-nonumbers"))
            node = xml_pdoc_pfe_export_enumerate (node);
        if (!strstr (styleflag, "-nonumbers"))
            node = xml_pdoc_pfe_export_enumerate (node);
        
        xml_node_rename (node, "item_file");
        xml_g_node_append (tree, node);
    }


    xml_tree_dump_to_xml_file (tree, 0, 
                               1|xml_tree_dump_to_xml_flags (styleflag));
    return 0;
    ____;____;
}


/* 
   Local variables:
   c-file-style: "stroustrup"
   End:
 */