#include <stdio.h>
#include <string.h>
#include <tlmplib.h>

<mod>
int main (int argc, char *argv[])
{
	glocal int ret = -1;
	glocal const char *insert = NULL;
	glocal.ret = <call tlmpprogram>(argc,argv);
	<f init>
		setarg ('i',"insert","File to insert",glocal.insert,true);
	</f>
	<f main>
		int ret = -1;
		if (argc != 1){
			usage();
		}else{
			glocal bool ok = false;
			<call loadfile>(argv[0],true);
			<f oneline>
				if (strstr(line,"<../cadlib.h>")!=NULL){
					printf ("use <cadlib.h>\n");
				}else if (strstr (line,"</tmp/viewsel/")!=NULL){
					<call loadfile>(glocal.insert,true);
					<f oneline>
						printf ("%s\n",line);
						glocal.ok = true;
						return 0;
					</f>
					</call>
				}else{
					printf ("%s\n",line);
				}
				return 0;
			</f>
			</call>
			if (glocal.ok) ret = 0;
		}
		return ret;
	</f>
	</call>
	return glocal.ret;
}
</mod>