#include <string.h>
#include <tlmplib.h>
#include "tledit.h"
#include "tledit.m"
#include "component.h"

<mod>
int main (int argc, char *argv[])
{
	glocal bool helper = false;
	glocal bool tags = false;
	glocal bool intro = false;
	int ret = <call tlmpprogram>(argc, argv, "tlmpwork");
	<f usage>
		fprintf (stderr,MSG_U(I_COMPSHOWUSAGE
			,"component_show [ options ] component ...\n"
			 "\n"
			 "--helper\n"
			 "--intro\n"
			 "--tags\n"
			));
	</f>
	<f onearg>
		int ret = 0;
		if (strcmp(opt,"--helper")==0){
			glocal.helper=true;
		}else if (strcmp(opt,"--tags")==0){
			glocal.tags=true;
		}else if (strcmp(opt,"--intro")==0){
			glocal.intro=true;
		}else{
			ret = -1;
		}
		return ret;
	</f>
	<f main>
		glocal bool found;
		glocal const char *name;
		glocal SSTRINGS paths;
		int ret = 0;
		<call component_find>();
		<f onecomp>
			glocal.paths.add (new SSTRING(path));
		</f>
		</call>
		for (int i=0; i<argc; i++){
			glocal.found = false;
			glocal.name = argv[i];
			for (int j=0; j<glocal.paths.getnb(); j++){
				const char *path = glocal.paths.getitem(j)->get();
				if (glocal.intro){
					<call component_walk>(path);
					<f component>
						if (strcmp(name,glocal.name)==0){
							glocal.found = true;
							printf ("Component %s: %s\n",name,summary);
							printf ("/*\n%s\n*/\n",descrip);
						}else{
							skip = true;
						}
					</f>
					</call>
				}else if (glocal.tags){
					<call component_walk>(path);
					<f component>
						if (strcmp(name,glocal.name)!=0){
							skip = true;
						}
					</f>
					<f functag>
						printf ("\t%s\t%s\n",name,summary);
					</f>
					</call>
				}else if (glocal.helper){
					<call component_walk>(path);
					<f component>
						if (strcmp(name,glocal.name)!=0){
							skip = true;
						}
					</f>
					<f fhelper>
						printf ("\t%s\t%s\t%s\t%s\n",name,rettype,summary,descrip);
					</f>
					</call>
				}else{
					<call component_walk>(path);
					<f section>
						printf ("Section %s\n",name);
					</f>
					<f component>
						if (strcmp(name,glocal.name)==0){
							glocal.found = true;
							printf ("Component %s: %s\n",name,summary);
							printf ("/*\n%s\n*/\n",descrip);
						}else{
							skip = true;
						}
					</f>
					<f functag>
						printf ("%*.*sFunctag %s return %s %s\n"
							,info.level*4,info.level*4,""
							,name,rettype
							,optional ? "optional" : "");
					</f>
					<f fhelper>
						printf ("%*.*sFhelper %s return %s\n"
							,info.level*4,info.level*4,""
							,name,rettype);
					</f>
					<f param>
						printf ("%*.*sParam %s type %s\n"
							,info.level*4,info.level*4,""
							,name,type);
					</f>
					<f prototype>
						printf ("%*.*sPrototype %s\n"
							,info.level*4,info.level*4,""
							,name);
					</f>
					</call>
				}
			}
		}
		return ret;
	</f>
	</call>
	return ret;
}
</mod>