#include <stdio.h>
#include <string.h>
#include "global.h"

static char include[] = "#include";
static char nameline[1024];
static int Recurse = FALSE;
static int Tree = FALSE;

void
scanfile( char *filename, int indent )
{
	FILE *fp;
	char buf[512], *name_p, *end_p, *str_p;

	fp = fopen(filename,"r");
	if(fp == NULL){
		fprintf(stderr,"Cannot open %s\n",filename);
		return;
	}

	while(fgets(buf,512,fp) != NULL){
		if(strncmp(buf,include,sizeof(include)-1) != 0)
			continue;
		if((name_p = strchr(buf,'\"')) == NULL)
			continue;
		name_p++;	/* skip quote */
		if((end_p = strchr(name_p,'\"')) == NULL)
			continue;
		*end_p = '\0';
		if( Tree ){
			int i = 0;

			while( i++ < indent )
				printf("\t");
		}

		if( ( str_p = strstr( nameline, name_p ) ) != NULL
		 && str_p[-1] == ' ' ){
			if( Tree ){
				printf( "***\t%s\n", name_p );
			}
		} else {
			if( Tree ){
				printf( "\t%s\n", name_p );
			}
			strcat( nameline, " " );
			strcat( nameline, name_p );

			if( Recurse )
				scanfile( name_p, indent + 1 );
        }
	}
	fclose(fp);
}

main(argc,argv)
int argc;
char *argv[];
{
	char buf[10],*cp;
	int c;

	while((c = getopt(argc,argv,"rt")) != EOF){
		switch(c){
		case 't':
			Tree = TRUE;
		case 'r':
			Recurse = TRUE;
			break;
		}
	}

	for(;optind<argc;optind++){
		nameline[0] = '\0';
		if( Tree ) {
			printf("%s\n",argv[optind]);
		} else {
			strcpy(buf,argv[optind]);
			if((cp = strchr(buf,'.')) == NULL)
				continue;
			*cp = '\0';
			printf("%s.obj: %s",buf,argv[optind]);
		}
		scanfile( argv[optind], 0 );
		if( !Tree )
			printf( "%s\n", nameline );
	}
	return 0;
}