/*-----------------------------------------------------------------------------
|                                                                             |
|                                  tex8to7                                    |
|                                                                             |
-------------------------------------------------------------------------------
|                                                                             |
| Auteur:           Mael Hilléreau                                            |
| Mél :             mael.hillereau@free.fr                                    |
| Web :             http://mael.hillereau.free.fr                             |
| Création :        01/11/2001                                                |
| Dernière modif.:  21/08/2003                                                |
| Version:          1.1c                                                      |
| Description:      Conversion de fichiers sources LaTeX : remplacement des   |
|                   caractères accentués français par leurs équivalents LaTeX |
|                   dans l'encodage 7bits américain.                          |
|                   Création d'un nouveau fichier ayant le même nom que le    |
|                   fichier de départ augmenté d'un "7".                      |
|                                                                             |
-------------------------------------------------------------------------------
|                                                                             |
| tex8to7 -- Conversion de fichiers sources LaTeX.                            |
| Copyright (C) 2001  Mael Hilléreau                                          |
|                                                                             |
| This program is free software; you can redistribute it and/or               |
| modify it under the terms of the GNU General Public License                 |
| as published by the Free Software Foundation; either version 2              |
| of the License, or (at your option) any later version.                      |
|                                                                             |
| This program is distributed in the hope that it will be useful,             |
| but WITHOUT ANY WARRANTY; without even the implied warranty of              |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               |
| GNU General Public License for more details.                                |
|                                                                             |
| You should have received a copy of the GNU General Public License           |
| along with this program; if not, write to the Free Software                 |
| Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. |
|                                                                             |
-----------------------------------------------------------------------------*/
#define _VERSION_ "1.1c"
#define _DATE_ "21/08/2003"


/*----------
| inclusions
--*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>


/*----------
| définitions
--*/
#define SEP(buf) ((buf == ' ') || (buf == '\t') || (buf == '\n') || (buf == '\r'))
#define TAILLE_MAX_PILE 100


/*----------
| variables globales
--*/
char *pile;
int nbChar;


/*----------
| affichage des messages d'aide
--*/
void aideRapide()
{
	fprintf(stdout,"\nUTILISATION\n\n");
	fprintf(stdout,"    tex8to7 [option] <fichier.tex>\n\n");
	fprintf(stdout,"    tapez \"tex8to7 -?\" pour une aide complète.\n\n");
}
void aideComplete()
{
	fprintf(stdout,"\nNOM\n\n");
	fprintf(stdout,"    tex8to7 -- Conversion de fichiers sources LaTeX.\n\n");
	fprintf(stdout,"\nSYNOPSIS\n\n");
	fprintf(stdout,"    tex8to7 [option] <fichier.tex>\n\n");
	fprintf(stdout,"\nDESCRIPTION\n\n");
	fprintf(stdout,"    Remplace les caractères accentués par leurs équivalents LaTeX dans\n");
	fprintf(stdout,"    l'encodage 7bits américain. Le résultat est placé dans un fichier ayant\n");
	fprintf(stdout,"    pour nom <fichier.tex7>.\n\n");
	fprintf(stdout,"\nOPTIONS\n\n");
	fprintf(stdout,"    -?, -h ou --help\n");
	fprintf(stdout,"        Affiche cette aide.\n\n");
	fprintf(stdout,"    -v ou --version\n");
	fprintf(stdout,"        Affiche la version.\n\n");
}
void version()
{
	fprintf(stdout,"tex8to7 version %s, %s - Conversion de fichiers sources LaTeX.\nCopyright (C) 2003 Mael Hilléreau\n",_VERSION_,_DATE_);
}


/*----------
| écriture d'une chaine de caractères dans le fichier "fich"
--*/
void ecrire(char *buf, FILE *fich, int len)
{
	if( !fwrite(buf, sizeof(char), len, fich) )
	{
		printf("Erreur d'écriture !");
		exit(2);
	}
}

/*----------
| fermeture du fichier "fich"
--*/
void fermer(FILE *fich, char *nom)
{
	if( fclose(fich) )
	{
		printf("Erreur lors de la fermeture du fichier %s.\n", nom);
		exit(3);
	}
}

/*----------
| élimination d'une fin de ligne
--*/
void avalerligne(FILE *fich_e, FILE *fich_s, char *pbuf)
{
	while(fread(pbuf, sizeof(char), 1, fich_e) && *pbuf != '\n')
		ecrire(pbuf, fich_s, 1);
	ecrire(pbuf, fich_s, 1);
}

/*----------
| empiler un caractère
--*/
void empiler(char c)
{
	if( nbChar < TAILLE_MAX_PILE )
	{
		pile[nbChar]=c;
		nbChar++;
	}
}

/*----------
| dépiler un caractère
--*/
char depiler()
{
	if( nbChar > 0 )
	{
		nbChar--;
		return pile[nbChar];
	}
	else
		return '\0';
}

/*----------
| renvoie le caractère en haut de la pile
--*/
char tete()
{
	if( nbChar > 0 )
		return pile[nbChar-1];
	else
		return '\0';
}

/*----------
| fonction principale
--*/
main(int argc, char **argv)
{
	FILE *fich_e, *fich_s;
	char *nom_fich_s, *ext;
	char buf, antebuf;

	ext = (char*) malloc(sizeof(char)*5);
	strcpy(ext, "7");
    
	/* vérification de la syntaxe. */
	if( argc < 2 || argc > 3 )
	{
		aideRapide();
		exit(1);
	}
	if( !strcmp(argv[1],"-v") || !strcmp(argv[1],"--version") )
	{
		version();
		exit(0);
	}
	if( !strcmp(argv[1],"-?") || !strcmp(argv[1],"-h") || !strcmp(argv[1],"--help") )
	{
		aideComplete();
		exit(0);
	}
	if( argc != 2 )
	{
		aideRapide();
		exit(1);
	}
	
	/* ouverture du fichier source. */
	if( !(fich_e = fopen(argv[1], "r")) )
	{
		printf("Impossible d'ouvrir le fichier source %s.\n", argv[1]);
		exit(1);
	}
	
	/* création du nouveau fichier source. */
	nom_fich_s = (char*) malloc((strlen(argv[1])+strlen(ext)+1)*sizeof(char));
	strcpy(nom_fich_s, argv[1]);
	strcat(nom_fich_s, ext);
	if( !(fich_s = fopen(nom_fich_s, "w+")) )
	{
		printf("Impossible d'ouvrir le fichier %s en écriture.\n", nom_fich_s);
		exit(1);
	}
	
	/* initialisation de la pile */
	pile = (char*) malloc(sizeof(char)*TAILLE_MAX_PILE);
	nbChar = 0;

	/* traduction caractère par caractère. */
	antebuf = '\0';
	while(fread(&buf, sizeof(char), 1, fich_e))
	{
		if(buf == 'à')						/* a */
			ecrire("\\`{a}", fich_s, 5);
		else if(buf == 'á')
			ecrire("\\'{a}", fich_s, 5);
		else if(buf == 'â')
			ecrire("\\^{a}", fich_s, 5);
		else if(buf == 'ã')
			ecrire("\\~{a}", fich_s, 5);
		else if(buf == 'ä')
			ecrire("\\\"{a}", fich_s, 5);
		else if(buf == 'æ')
			ecrire("\ae ", fich_s, 4);
		else if(buf == 'À')					/* A */
			ecrire("\\`{A}", fich_s, 5);
		else if(buf == 'Á')
			ecrire("\\'{A}", fich_s, 5);
		else if(buf == 'Â')
			ecrire("\\^{A}", fich_s, 5);
		else if(buf == 'Ã')
			ecrire("\\~{A}", fich_s, 5);
		else if(buf == 'Ä')
			ecrire("\\\"{A}", fich_s, 5);
		else if(buf == 'Æ')
			ecrire("\\AE ", fich_s, 4);
		else if(buf == 'ç')					/* c */
			ecrire("\\c{c}", fich_s, 5);
		else if(buf == 'Ç')					/* C */
			ecrire("\\c{C}", fich_s, 5);
		else if(buf == 'è')					/* e */
			ecrire("\\`{e}", fich_s, 5);
		else if(buf == 'é')
			ecrire("\\'{e}", fich_s, 5);
		else if(buf == 'ê')
			ecrire("\\^{e}", fich_s, 5);
		else if(buf == 'ë')
			ecrire("\\\"{e}", fich_s, 5);
		else if(buf == 'È')					/* E */
			ecrire("\\`{E}", fich_s, 5);
		else if(buf == 'É')
			ecrire("\\'{E}", fich_s, 5);
		else if(buf == 'Ê')
			ecrire("\\^{E}", fich_s, 5);
		else if(buf == 'Ë')
			ecrire("\\\"{E}", fich_s, 5);
		else if(buf == 'ì')					/* i */
			ecrire("\\`{\\i}", fich_s, 6);
		else if(buf == 'í')
			ecrire("\\'{\\i}", fich_s, 6);
		else if(buf == 'î')
			ecrire("\\^{\\i}", fich_s, 6);
		else if(buf == 'ï')
			ecrire("\\\"{\\i}", fich_s, 6);
		else if(buf == 'Ì')					/* I */
			ecrire("\\`{I}", fich_s, 5);
		else if(buf == 'Í')
			ecrire("\\'{I}", fich_s, 5);
		else if(buf == 'Î')
			ecrire("\\^{I}", fich_s, 5);
		else if(buf == 'Ï')
			ecrire("\\\"{I}", fich_s, 5);
		else if(buf == 'ñ')					/* n */
			ecrire("\\~{n}", fich_s, 5);
		else if(buf == 'Ñ')					/* N */
			ecrire("\\~{N}", fich_s, 5);
		else if(buf == 'ò')					/* o */
			ecrire("\\`{o}", fich_s, 5);
		else if(buf == 'ó')
			ecrire("\\'{o}", fich_s, 5);
		else if(buf == 'ô')
			ecrire("\\^{o}", fich_s, 5);
		else if(buf == 'õ')
			ecrire("\\~{o}", fich_s, 5);
		else if(buf == 'ö')
			ecrire("\\\"{o}", fich_s, 5);
		else if(buf == 'œ')
			ecrire("\\oe ", fich_s, 4);
		else if(buf == 'Ò')					/* O */
			ecrire("\\`{O}", fich_s, 5);
		else if(buf == 'Ó')
			ecrire("\\'{O}", fich_s, 5);
		else if(buf == 'Ô')
			ecrire("\\^{O}", fich_s, 5);
		else if(buf == 'Õ')
			ecrire("\\~{O}", fich_s, 5);
		else if(buf == 'Ö')
			ecrire("\\\"{O}", fich_s, 5);
		else if(buf == 'Œ')
			ecrire("\\OE ", fich_s, 4);
		else if(buf == 'ù')					/* u */
			ecrire("\\`{u}", fich_s, 5);
		else if(buf == 'ú')
			ecrire("\\'{u}", fich_s, 5);
		else if(buf == 'û')
			ecrire("\\^{u}", fich_s, 5);
		else if(buf == 'ü')
			ecrire("\\\"{u}", fich_s, 5);
		else if(buf == 'Ù')					/* U */
			ecrire("\\`{U}", fich_s, 5);
		else if(buf == 'Ú')
			ecrire("\\'{U}", fich_s, 5);
		else if(buf == 'Û')
			ecrire("\\^{U}", fich_s, 5);
		else if(buf == 'Ü')
			ecrire("\\\"{U}", fich_s, 5);
		else if(buf == 'ý')					/* y */
			ecrire("\\'{y}", fich_s, 5);
		else if(buf == 'ÿ')
			ecrire("\\\"{y}", fich_s, 5);
		else if(buf == 'Ý')					/* Y */
			ecrire("\\'{Y}", fich_s, 5);
		else if(buf == '"')					/* guilemets */
		{
			if( antebuf != '\\' )
			{
				switch(tete())
				{
				case '{' :
				case '\0' :
					ecrire("\\og ", fich_s, 4);
					empiler('<');
					break;
				case '<' :
					ecrire("\\fg ", fich_s, 4);
					depiler();
					break;
				}
			}
			else /* doubles-côtes */
			{
				ecrire("\"", fich_s, 1);
			}
		}
		else if(antebuf != '\\' && buf == '{')		/* accolades */
		{
			empiler('{');
			ecrire(&buf, fich_s, 1);
		}
		else if(antebuf != '\\' && buf == '}')
		{
			while( (depiler() != '{') && (depiler() != '\0') );
			ecrire(&buf, fich_s, 1);
		}
		else if( antebuf != '\\' && buf == '%' )	/* commentaires */
		{
			ecrire(&buf, fich_s, 1);
			avalerligne(fich_e, fich_s, &buf);
		}
		else										/* caractères classiques */
			ecrire(&buf, fich_s, 1);
		if( antebuf == '\\' && buf =='\\' )
			antebuf = '\0';
		else
			antebuf = buf;
	}
	
	/* libération des ressources. */
	fermer(fich_e, argv[1]);
	fermer(fich_s, nom_fich_s);
	printf("le ficher %s a été créé avec succès.\n", nom_fich_s);
	free(nom_fich_s);
	free(ext);
	free(pile);
	
	exit(0);
}