#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
// gcc -mno-cygwin -o rmtags rmtags.c
// gcc -mno-cygwin -mwindows -o rmtags rmtags.c

#define TAG_MAX_SIZE  	2048
#define TOKEN_MAX_SIZE	512
#define FAVOR     1
#define NOFAVOR   (!FAVOR)

int     link_print_flag = FAVOR ;   // Link tag not contain "http"

FILE          *fperr ;
unsigned char *buffer ;
struct stat   fileInfo;

unsigned char getToken(unsigned char *buff, unsigned char *token, int n)
{
register int  i, c ;

	for( i=0, *token='\0'; (c=*(buff+i)) != '\0' && i<=n; i++ ) {
		if( c != ' ' && c != '>' && c != '\r' && c != '\n' ) {
			*(token+i) = tolower(c) ; *(token+i+1) = '\0' ;
		} else return(c) ;
	}
}

int	seekEndToken(unsigned char *buff, unsigned char *token)
{ // <script type="text/javascript" src="my-javascript.js"/> & <script ...>...</script>
unsigned char tkn[TOKEN_MAX_SIZE] ;
register int  i, c, flg=FAVOR ;

	for( i=1; (c=*(buff+i)) != '\0'; i++ ) {
		if( c == '>' ) flg = NOFAVOR;
		if( flg == FAVOR && c == '/' && *(buff+i+1) == '>' ) {
			return( i + 1 ) ;
		} else if ( c == '<' ) {
			getToken((buff+i), tkn, strlen(token)) ;
			strcat( tkn, ">") ;
			if( strcmp( token, tkn ) == 0 ) {
				return( i + strlen(token) -1 ) ;
			}
		}
	}
	return( i ) ;
}

unsigned char *checkStringsInTag(unsigned char *tag, unsigned char *strings)
{
unsigned char lowercase[TAG_MAX_SIZE] ;
register int  i, length = (TAG_MAX_SIZE -1) > strlen(tag) ? strlen(tag) : TAG_MAX_SIZE -1 ;

	for( i=0; i<length; i++ ) {
		lowercase[i] = tolower(*(tag +i)) ; lowercase[i+1] = '\0';
	}
	return( strstr(lowercase, strings) ) ;
}

int	linkTagOperation(unsigned char *buff, int size, int flag, FILE *fpo)
{
unsigned char link[TAG_MAX_SIZE] ;
register int  i, j ;

	link[0] = '\0' ;
	for(i=j=0; *(buff+i) != '>' && *(buff+i) != '\0' && !(j>0 && *(buff+i)=='<'); i++) {
		if( j < TAG_MAX_SIZE -3 ) {
			link[j] = *(buff+i); link[j+1] = '>'; link[j+2] = '\0';
			j++;
		}
	}
	if( *(buff+i) == '<' || *(buff+i) == '\0' ) {
		fprintf( fperr, "Bad file format!\n" );
		if( *(buff+i) == '\0' ) {
			exit(1);
		}
	} else if( checkStringsInTag(link, "http") == NULL && flag == FAVOR) {
		fprintf( fpo, "%s", link ) ;
	}
	return( i ) ;
}

execution(unsigned char *buff, int size, FILE *fpo)
{
unsigned char token[TOKEN_MAX_SIZE], link[TAG_MAX_SIZE] ;
register int  i, j ;

	for( i=0; i<size; i++ ) {
		if( *(buff+i) == '<' &&  *(buff+i+1) != '/' ) {
			getToken((buff+i), token, sizeof(token)-1) ;
			if( strcmp(token, "<script") == 0 ) {
				i += seekEndToken( (buff+i), "</script>") ;
			} else if( strcmp(token, "<noscript") == 0 ) {
				i += seekEndToken( (buff+i), "</noscript>") ;
			} else if( strcmp(token, "<iframe") == 0 ) {
				i += seekEndToken( (buff+i), "</iframe>") ;
//			} else if( strcmp(token, "<object") == 0 ) {
//				i += seekEndToken( (buff+i), "</object>") ;
			} else if( strcmp(token, "<link") == 0 ) {
				i += linkTagOperation(buff+i, size -i+1, link_print_flag, fpo) ;
			} else 	fputc(*(buff+i), fpo) ;
		} else	fputc(*(buff+i), fpo) ;
	}
}

read_data(unsigned char *buff, int size, FILE *fpi)
{
register int  i, c ;

	for( i=0; i<size ; i++ ) {
		if((c=fgetc(fpi)) == EOF ) {
			fprintf( fperr, "Unexpected EOF was found.\n" );
		} else *(buff+i) = c ;
	}
	*(buff+size) = '\0' ;
}

main( int argc, char *argv[])
{
FILE	*fpi = stdin, *fpo = stdout ;
register int  lp, data_size = 0 ;

	for( lp=0, fperr=stderr; lp<argc; lp++ ) {
		if( argc == 1 ) {
			if( (fpi=tmpfile()) == NULL ) {
				fprintf( fperr, "Temp file open error!\n" );
				exit( 1 ) ;
			} else { register int  c ;
				while( (c=fgetc(stdin)) != EOF ) {
					if( fputc(c,fpi) == EOF) {
						fprintf( fperr, "Temp file write error!\n" );
						exit( 1 ) ;
					}
				}	fflush(fpi);  rewind(fpi);
			}
		} else { if ( lp == 0 ) lp++ ;
			if ( (fpi=fopen(argv[lp],"rb")) == NULL ) {
				fprintf( fperr, "File '%s' open error!\n", argv[lp] );
				exit( 1 ) ;
			}
		}

		if ( fstat(fileno(fpi), &fileInfo) != 0 ) {
			fprintf( fperr, "fstat failed!\n" );
			exit( 1 ) ;
		} else data_size = fileInfo.st_size ;

		if( (buffer=(unsigned char *)malloc(data_size +1)) == NULL) {
			fprintf( fperr, "Could not allocate memory!\n" );
			exit( 1 ) ;
		} else read_data(buffer, data_size, fpi) ;
		fclose(fpi) ;

		if( argc > 1 && (fpo=fopen(argv[lp],"wb")) == NULL ) {
			fprintf( fperr, "File '%s' open error!\n", argv[lp] );
			exit( 1 ) ;
		} else execution(buffer, data_size, fpo);
		fclose(fpo) ;

		free(buffer);
	}
	return 0 ;
}