/* _InitEasyWin Example */

#include <stdio.h>
#include <windows.h>
#include <dir.h>
#include <stdio.h>
#include <string.h>



char *current_directory(char *path)
{
  strcpy(path, "X:\\");
  path[0] = 'A' + getdisk();
  getcurdir(0, path+3);
  return(path);
}


int main(void)
{
 char FileName[100];
 char FileIn[100];
 char FileOut[100];
 char curdir[MAXPATH];

 FILE *in=NULL;
 FILE *out=NULL;

 char c=0, c_old=0;
 char text[1000];
 char *ptr;

 int status=0;       // en cours de detection si >0
 int php=0;          // dans une zone PHP.
 int good=0;			// detection d'' une balise en cours.
 int cpt=0;				// nombre de caractere memorise
 int saut=0;         // memorisation des sauts de lignes.
 int saut2=0;        // memorisation des double sauts de lignes.
 int longueur=0;		// longueur d' une ligne de code, max 120.
 int slash=0; 			// memorisatioon du '/'
 int line=0;			// saut de ligne supplementaire.

 // Fichier ?

 current_directory(curdir);
 printf("L'extension doit etre PHP.\n", curdir);
 printf("Le répertoire actuelle est : %s\n", curdir);
 printf("\n");

 printf("Nom du fichier sans l'extension ? ");
 scanf("%s",&FileName);

 sprintf(FileIn,"%s\\%s.php",curdir,FileName);
 sprintf(FileOut,"%s\\%s.txt",curdir,FileName);
 printf("FileIn  = >%s<\n",FileIn);
 printf("FileOut = >%s<\n",FileOut);

 in=fopen(FileIn,"rt");
 out=fopen(FileOut,"wt");

 if(in==NULL)
	{
	printf("Cannot open input file.\n");
	printf("The End.\n");
	return 1;
	}

 if(out==NULL)
	{
	printf("Cannot open output file.\n");
	printf("The End.\n");
	return 1;
	}

 for(int i=0;i<1000;i++) text[i]=0;
 ptr=&text[0];

 printf("\nRun...\n");

 /*---- LOOP ---*/

 fscanf(in,"%c",&c);
 do
	{
	// detection debut d'un code HTML.
	if(status<1000)
		{
		good=0;
		// recherche de code HTML.
		if(c>32)
			{
			// detection code HTML uniquement en dehors des zones PHP.
			if(php==0)
				{
				// remarque: le code maxi est 164.
				// attention aux meme debut de texte !!!

				// <ul>
				if(status==141) { if(c=='l' || c=='L') {status=1002; good=1;}}
				if(status==  1) { if(c=='u' || c=='U') {status= 141; good=1;}}

				// <title> ou </title>
				if(status==133) { if(c=='E' || c=='e') {status=1005; good=1;}}
				if(status==132) { if(c=='L' || c=='l') {status= 133; good=1;}}
				if(status==131) { if(c=='T' || c=='t') {status= 132; good=1;}}
				if(status==111) { if(c=='I' || c=='i') {status= 131; good=1;}}

				// <tr> ou </tr>
				if(status==111) { if(c=='r' || c=='R') {status=1003; good=1; line=0; }}

				// <td> ou </td>
				if(status==111) { if(c=='d' || c=='D') {status=1002; good=1; line=1; }}

				// <tbody> ou </tbody>
				if(status==123) { if(c=='y' || c=='Y') {status=1002; good=1;}}
				if(status==122) { if(c=='d' || c=='D') {status= 123; good=1;}}
				if(status==121) { if(c=='o' || c=='O') {status= 122; good=1;}}
				if(status==111) { if(c=='b' || c=='B') {status= 121; good=1;}}

				// <table> ou </table>
				if(status==114) { if(c=='e' || c=='E') {status=1002; good=1; line=1; }}
				if(status==113) { if(c=='l' || c=='L') {status= 114; good=1;}}
				if(status==112) { if(c=='b' || c=='B') {status= 113; good=1;}}
				if(status==111) { if(c=='a' || c=='A') {status= 112; good=1;}}
				if(status==  4) { if(c=='t' || c=='T') {status= 111; good=1;}}
				if(status==  1) { if(c=='t' || c=='T') {status= 111; good=1;}}

				// <span> ou </span>
				if(status==102) { if(c=='N' || c=='n') {status=1002; good=1;}}
				if(status==101) { if(c=='A' || c=='a') {status= 102; good=1;}}
				if(status==101) { if(c=='P' || c=='p') {status= 101; good=1;}}
				if(status== 91) { if(c=='P' || c=='p') {status= 101; good=1;}}

				// <small> ou </small>
				if(status== 164) { if(c=='L' || c=='l') {status=1006; good=1;}}
				if(status== 163) { if(c=='L' || c=='l') {status= 164; good=1;}}
				if(status== 162) { if(c=='A' || c=='a') {status= 163; good=1;}}
				if(status==  91) { if(c=='M' || c=='m') {status= 162; good=1;}}

				// <script> ou </script>
				if(status== 95) { if(c=='T' || c=='t') {status=1005; good=1;}}
				if(status== 94) { if(c=='P' || c=='p') {status=  95; good=1;}}
				if(status== 93) { if(c=='I' || c=='i') {status=  94; good=1;}}
				if(status== 92) { if(c=='R' || c=='r') {status=  93; good=1;}}
				if(status== 91) { if(c=='C' || c=='c') {status=  92; good=1;}}
				if(status==  4) { if(c=='S' || c=='s') {status=  91; good=1;}}
				if(status==  1) { if(c=='S' || c=='s') {status=  91; good=1;}}

				// <p> ou </p>
				if(status==  1) { if(c=='P' || c=='p') {status=1005; good=1;}}
				if(status==  4) { if(c=='P' || c=='p') {status=1005; good=1;}}

				// <meta>
				if(status== 83) { if(c=='A' || c=='a') {status=1003; good=1;}}
				if(status== 82) { if(c=='T' || c=='t') {status=  83; good=1;}}
				if(status== 81) { if(c=='E' || c=='e') {status=  82; good=1;}}
				if(status==  1) { if(c=='M' || c=='m') {status=  81; good=1;}}

				// <link>
				if(status== 173) { if(c=='K' || c=='k') {status=1002; good=1;}}
				if(status== 172) { if(c=='N' || c=='n') {status= 173; good=1;}}
				if(status== 171) { if(c=='I' || c=='i') {status= 172; good=1;}}
				if(status==   1) { if(c=='L' || c=='l') {status= 171; good=1;}}

				// <li> ou </li>
				if(status== 72) { if(c=='>'          ) {status=1005; good=1;}}
				if(status== 71) { if(c=='i' || c=='I') {status=  72; good=1;}}
				if(status==  4) { if(c=='l' || c=='L') {status=  71; good=1;}}
				if(status==  1) { if(c=='l' || c=='L') {status=  71; good=1;}}

				// <input...>
				if(status== 174) { if(c=='T' || c=='t') {status=1002; good=1;}}
				if(status== 173) { if(c=='U' || c=='u') {status= 174; good=1;}}
				if(status== 172) { if(c=='P' || c=='p') {status= 173; good=1;}}
				if(status== 171) { if(c=='N' || c=='n') {status= 172; good=1;}}
				if(status==   1) { if(c=='I' || c=='i') {status= 171; good=1;}}

				// <img...>
				if(status== 62) { if(c=='G' || c=='g') {status=1002; good=1;}}
				if(status== 61) { if(c=='M' || c=='m') {status=  62; good=1;}}
				if(status==  1) { if(c=='I' || c=='i') {status=  61; good=1;}}

				// <h*> ou </h*>
				if(status== 51) { if(c=='9') {status=1005; good=1;}}
				if(status== 51) { if(c=='8') {status=1005; good=1;}}
				if(status== 51) { if(c=='7') {status=1005; good=1;}}
				if(status== 51) { if(c=='6') {status=1005; good=1;}}
				if(status== 51) { if(c=='5') {status=1005; good=1;}}
				if(status== 51) { if(c=='4') {status=1005; good=1;}}
				if(status== 51) { if(c=='3') {status=1005; good=1;}}
				if(status== 51) { if(c=='2') {status=1005; good=1;}}
				if(status== 51) { if(c=='1') {status=1005; good=1;}}

				// <HTML> ou </HTML>
				if(status== 53) { if(c=='L' || c=='l') {status=1002; good=1;}}
				if(status== 52) { if(c=='M' || c=='m') {status=  53; good=1;}}
				if(status== 51) { if(c=='T' || c=='t') {status=  52; good=1;}}

				// <head> ou </head>
				if(status== 53) { if(c=='D' || c=='d') {status=1002; good=1;}}
				if(status== 52) { if(c=='A' || c=='a') {status=  53; good=1;}}
				if(status== 51) { if(c=='E' || c=='e') {status=  52; good=1;}}
				if(status==  4) { if(c=='H' || c=='h') {status=  51; good=1;}}
				if(status==  1) { if(c=='H' || c=='h') {status=  51; good=1;}}

				// <font> ou </font>
				if(status== 43) { if(c=='t' || c=='T') {status=1002; good=1;}}
				if(status== 42) { if(c=='n' || c=='N') {status=  43; good=1;}}
				if(status== 41) { if(c=='o' || c=='O') {status=  42; good=1;}}
				if(status==  4) { if(c=='f' || c=='F') {status=  41; good=1;}}
				if(status==  1) { if(c=='f' || c=='F') {status=  41; good=1;}}

				// <div> ou </div>
				if(status== 32) { if(c=='V' || c=='v') {status=1002; good=1;}}
				if(status== 31) { if(c=='I' || c=='i') {status=  32; good=1;}}
				if(status==  4) { if(c=='D' || c=='d') {status=  31; good=1;}}
				if(status==  1) { if(c=='D' || c=='d') {status=  31; good=1;}}

				// <center> ou </center>
				if(status==155) { if(c=='R' || c=='r') {status=1002; good=1;}}
				if(status==154) { if(c=='E' || c=='e') {status= 155; good=1;}}
				if(status==153) { if(c=='T' || c=='t') {status= 154; good=1;}}
				if(status==152) { if(c=='N' || c=='n') {status= 153; good=1;}}
				if(status==151) { if(c=='E' || c=='e') {status= 152; good=1;}}
				if(status==  4) { if(c=='C' || c=='c') {status= 151; good=1;}}
				if(status==  1) { if(c=='C' || c=='c') {status= 151; good=1;}}

				// <br>
				if(status==21) { if(c=='R' || c=='r') {status=1001; good=1;}}

				// <body>
				if(status==23) { if(c=='Y' || c=='y') {status=1002; good=1; line=1;}}
				if(status==22) { if(c=='D' || c=='d') {status=  23; good=1;}}
				if(status==21) { if(c=='O' || c=='o') {status=  22; good=1;}}
				if(status== 1) { if(c=='B' || c=='b') {status=  21; good=1;}}

				// </a>
				if(status==  4) { if(c=='a' || c=='A') {status=1005; good=1;}}

				// <a>
				if(status==  1) { if(c=='a' || c=='A') {status=1003; good=1;}}
				}
			// fin : detection code HTML uniquement en dehors des zones PHP.

			// <?php
			if(status==12) { if(c=='P' || c=='p') {status=1004; good=1; php=1;}}
			if(status==11) { if(c=='H' || c=='h') {status=  12; good=1;}}
			if(status== 3) { if(c=='P' || c=='p') {status=  11; good=1;}}

			// ?>
			if(status== 2) { if(c=='>' ) {status=1004; good=1; php=0;}}

			// <!
			if(status== 1) { if(c=='!' ) {status=1003; good=1;}}

			// la base.
			if(status== 1) { if(c=='/') {status= 4; good=1; slash=1; }}
			if(status== 1) { if(c=='?') {status= 3; good=1;}}
			if(status== 0) { if(c=='?') {status= 2; good=1;}}
			if(status== 0) { if(c=='<') {status= 1; good=1;}}
			//if(status==0) { if(c==';') {status=1001; good=1;}}
			}
		// fin : recherche de code HTML.

		// Un code HTML detecte...
		if(good==1 && status>1000 )
			{
			// ajout de saut de ligne supplementaire.
			if(line==1 && slash==0)
				{
				if (saut2==0) fprintf(out,"\n");
				line=0;
				saut2=0;
				}

			// 1001: saut de ligne derriere apres code.
			if(status==1001)
				{
				fprintf(out,"%s",text);
				longueur+=cpt;
				saut=0;
				}

			// 1002: saut de ligne devant et derriere apres code.
			// 1003: saut de ligne devant.
			// 1004: saut de ligne devant et derriere immediat.
			if(status==1002 || status==1003 || status==1004)
				{
				if(saut==0 && longueur>1)
					{
					fprintf(out,"\n%s",text);
					longueur=cpt;
					}
				else fprintf(out,"%s",text);
				saut=0;
				}

			// 1005: saut de ligne selon '/'.
			if(status==1005)
				{
				if(saut==0 && slash==0)
					{
					fprintf(out,"\n%s",text);
					longueur=cpt;
					}
				else
					{
					fprintf(out,"%s",text);
					longueur+=cpt;
					}
				saut=0;
				}
			}
		// fin : Un code HTML detecte...

		// 1006: saut de ligne devant si + de 10 caractere.
		if(good==1 && status==1006 )
			{
			if(saut==0 && longueur>10)
				{
				fprintf(out,"\n%s",text);
				longueur=cpt;
				}
			else fprintf(out,"%s",text);
			saut=0;
			}

		// si mauvaise detection.
		if(good==0)
			{
			fprintf(out,"%s",text);
			for(int i=0;i<1000;i++) text[i]=0;
			ptr=&text[0];
			cpt=0;
			status=0;
			}

		// si fin de detection.
		if( good==1 && status>1000 )
			{
			for(int i=0;i<1000;i++) text[i]=0;
			ptr=&text[0];
			cpt=0;
			}

		if(status==1003 || status==1006) status=0;
		}
	// fin : detection debut d'un code HTML.

	// le saut a ete fait si un nouveau caractere arrive.
	if(c>32 && status==0)
		{
		saut=0;
		saut2=0;
		}

	// Dans une zone code HTML : Test d'une balise trop longue!
	if(status>0 && status<1000)
		{
		*ptr++=c;
		cpt++;
		if(cpt>990)
			{
			fprintf(out,"\n<br>*** BUG : balise HTML trop longue ***\n");
			return(0);
			}
		}

	// Si hors zone code HTML ou apres code HTML : on imprime le code.
	else
		{
		// en cas de saut de ligne, on remplace par un espace, sauf si on vient de faire un saut.
		if(c==10 && saut==0)  fprintf(out," ");

		// Suppression des sauts de ligne d'' origine...
		if(c!=10 && c!=14)
			{
			// Pas d'espace en debut de ligne...
			if(c!=32 || saut==0)
				{
				// Si trop de caractere imprimer, on insere un saut de ligne des que possible...
				if(longueur>120 && c==32)
					{
					fprintf(out,"\n");
					longueur=0;
					}
				// Si ligne pas trop longue on imprime a la suite...
				else
					{
					// on supprime les doubles espaces!
					if(c!=32 || c_old!=32)
						{
						fprintf(out,"%c",c);
						longueur++;
						}
					}
				}
			}

		// Fin d'une zone code HTML : Gestion des sauts de lignes en zone normal.
		if(php==0)
			{
			// 1001: saut de ligne derriere apres code.
			// 1002: saut de ligne devant et derriere apres code.
			if(c=='>' && ( status==1001 || status==1002 ) )
				{
				fprintf(out,"\n");
				longueur=0;
				saut=1;
				status=0;
				}
			// 1003: saut de ligne devant.
			// 1006: saut de ligne devant si + de 10 caractere.
			if(c=='>' && ( status==1003 || status==1006 ) )
				{
				status=0;
				}
			// 1004: saut de ligne devant et derriere immediat.
			if(status==1004)
				{
				fprintf(out,"\n");
				longueur=0;
				saut=1;
				status=0;
				}
			// 1005: saut de ligne selon '/'.
			if(c=='>' && status==1005 )
				{
				if(slash==1)
					{
					fprintf(out,"\n");
					longueur=0;
					saut=1;
					}
				status=0;
				}
			}
		// fin : Fin d'une zone code HTML : Gestion des sauts de lignes en zone normal.

		// Gestion des sauts de lignes en zone PHP.
		else
			{
			// 1001: saut de ligne derriere apres ';' (PHP).
			// 1002: saut de ligne devant et derriere apres code.
			if(c==';' && (status==1001 || status==1002) )
				{
				fprintf(out,"\n");
				longueur=0;
				saut=1;
				status=0;
				}
			// 1004: saut de ligne devant et derriere immediat.
			if(status==1004)
				{
				fprintf(out,"\n");
				longueur=0;
				saut=1;
				status=0;
				}
			if(status==1003 || status==1006) status=0;
			}
		// fin : Gestion des sauts de lignes en zone PHP.

		// ajout d'un double saut...
		if(line==1 && slash==1 && c=='>')
			{
			if(saut2==0) fprintf(out,"\n");
			longueur=0;
			saut2=1;
			line=0;
			}

		// annule la memorisation du slash.
		if(c=='>') slash=0;
		}
	// fin : Si hors zone code HTML ou apres code HTML : on imprime le code.

	c_old=c;
	fscanf(in,"%c",&c);
	}
 while(!feof(in));

 fclose(in);
 fclose(out);
 printf("The End.\n");
 return 0;
}