#include <stdlib.h>
#include <assert.h>
#include <string.h>
#include <misc.h>
#include "../../etc/etc.h"
#include "ostool.h"
#include "commun.h"
#include "common.m"


#define MAX_MACRO	20
static int nbmacro;
static char *tbmacro[MAX_MACRO];
static char *tbval[MAX_MACRO];


#ifdef UNIX
#define KITOMBRE	"/kit/ombre"
#define KITBUILD	"/kit/build"
#define KITGROUPE	"/kit/groupe"
#define KITLIVRE	"/kit/livre"
#define KITSYNC		"/kit/sync"
#else
#define KITOMBRE	"e:\\kit\\ombre"
#define KITBUILD	"e:\\kit\\build"
#define KITGROUPE	"e:\\kit\\groupe"
#endif

/*
	Enregistre d‚finitions par d‚faut pour r‚solution r‚pertoires virtuels.
*/
static void near macrodir_init (void)
{
	if (nbmacro == 0){
		macrodir_setdef("KITOMBRE" ,KITOMBRE);
		macrodir_setdef("KITBUILD" ,KITBUILD);
		macrodir_setdef("KITGROUPE",KITGROUPE);
		macrodir_setdef("KITLIVRE",KITLIVRE);
		macrodir_setdef("KITSYNC",KITSYNC);
		/* #Spécification: makefile.dat / macros / fichier archive.cfg
			Le fichier archive.cfg (optionnel) contient des valeurs
			alternatives pour les variables (macros) utilisés dans les
			makefile.dat. Ce fichier, si présent, a la plus haute priorité.

			Ce fichier est localisé en cherchant dans le répertoire courant
			et son parent, et le parent de son parent.

			Le but de ce fichier est, entre autre, de permettre la coexistance
			de deux système d'archivage en parallèle.
		*/
		char path[MAXSIZ_PATH];
		if (file_findanc(".","archive.cfg",path)==0){
			FILE *fin = fopen_err (path,"r",0);
			if (fin != NULL){
				char buf[300];
				int noline = 0;
				while (fgets_strip (buf,sizeof(buf)-1,fin,'#','\\'
					,&noline)!=NULL){
					if (buf[0] != '\0'){
						char *pt = strchr(buf,'=');
						if (pt != NULL){
							*pt++ = '\0';
							strip_end (buf);
							strip_end (pt);
							macrodir_set (buf,pt);
						}else{
							fprintf (stderr,MSG_U(E_IVLDLINE
								,"fichier %s: ligne %d invalide\n")
								,path,noline);
						}
					}
				}
				fclose (fin);
			}
		}
	}
}

/*
	Retourne la valeur d'une macro.
	La valeur est trouvé dans le fichier archive.cfg.
	Si ne trouve pas, retourne la valeur par défaut.
*/
export const char *macrodir_getval (const char *macro, const char *def)
{
	macrodir_init();
	const char *ret = def;
	for (int i=0; i<nbmacro; i++){
		if (strcmp(tbmacro[i],macro)==0){
			ret = tbval[i];
			break;
		}
	}
	return ret;
}

/*
	Fait l'expansion d'un path d‚butant par une macro.
	Ne v‚rifie pas la pr‚sence de macro ailleurs qu'au d‚but du path.


	Une table locale est consult‚e pour traduction. Si on ne trouve pas
	l'environnement est consult‚.

	repl peut ˆtre ‚gal … path.
	Retourne -1 si pas de traduction
*/
export int macrodir_repl(
	const char *path,
	char *repl)
{
	int ret = -1;
	char tmp[MAXSIZ_PATH];
	char *macro = tmp + 2;
	strcpy (tmp,path);
	if (tmp[0] == '$' && tmp[1] == '('){
		char *pt = strchr(macro,')');
		macrodir_init();
		if (pt != NULL){
			*pt++ = '\0';
			for (int i=0; i<nbmacro; i++){
				if (strcmp(tbmacro[i],macro)==0){
					path_make (tbval[i],pt,repl);
					ret = 0;
					break;
				}
			}
			if (ret == -1){
				/* V‚rifie dans l'environnement et ajoute … la table. */
				const char *val = getenv(macro);
				if (val != NULL){
					macrodir_set (macro,val);
					path_make (val,pt,repl);
					ret = 0;
				}
			}
		}
	}
	if (ret == -1 && path != repl) strcpy (repl,path);
	return ret;
}


/*
	Enregistre la d‚finition d'une macro.
	La macro et la valeur sont duplicat‚ via strdup_err().

	La macro remplace la définition précédante de la macro si déjà présente.
*/
export void macrodir_set (const char *macro, const char *val)
{
	int i;
	for (i=0; i<nbmacro; i++){
		if (strcmp(macro,tbmacro[i])==0){
			free (tbval[i]);
			tbval[i] = strdup_err (val);
			break;
		}
	}
	if (i == nbmacro){
		assert(nbmacro<MAX_MACRO);
		tbmacro[nbmacro] = strdup_err (macro);
		tbval[nbmacro++] = strdup_err (val);
	}
}


/*
	Oublie toutes les macros accumul‚s.
*/
export void macrodir_free (void)
{
	int i;
	for (i=0; i<nbmacro; i++){
		free (tbmacro[i]);
		free (tbval[i]);
	}
	nbmacro = 0;
}

/*
	Enregistre une macro pour r‚solution de r‚pertoires virtuels.
	Si la macro est d‚finie dans l'environnement, l'environnement
	aura priorit‚.
*/
export void macrodir_setdef (
	const char *varname,	/* Nom de la macro */
	const char *val)		/* Valeur par d‚faut */
{
	const char *valenv = getenv(varname);
	if (valenv != NULL) val = valenv;
	macrodir_set (varname,val);
}