#include <assert.h>
#include <string.h>
#include <misc.h>
#include <dialog.h>
#include "projet.h"
#include "projetx.m"

/*
	Copie les fichiers d'une projet et met … jour version.dat de ce projet
*/
static int near import_copy(
	const char *projet,
	const char *revstr,
	const REVISION *rev,
	USERINFO *user)
{
	int ret = 0;
	if (!file_exist("version.dat")){
		xconf_error (MSG_U(E_NOVERSIONDAT
			,"version.dat manquant pour importation\n"
			 "du sous-projet %s %s")
			,revstr,projet);
		ret = -1;
	}else{
		char *tb[400];
		int nb = dir_getlistp (WILD_ALLFILE,0,tb,400);
		for (int i=0; i<nb && ret != -1; i++){
			char *fname = tb[i];
			if (strcmp(fname,"version.dat")!=0){
				ret = foper_archive (tb[i],projet,rev,user);
			}
		}
		if (ret != -1){
			// Met … jour le version.dat
			VERSION_DAT version(user,projet);
			version.merge ("version.dat");
			version.save(user);
		}
		tbstr_free (tb,nb);
	}
	return ret;
}

/*
	Importe une livraison de /kit/livre dans /kit/ombre
*/
static int near import_one (
	const char *dirpath,	// Path du r‚pertoire livraison
							// /kit/livre ou /kit/sync/site
	const char *dirname,
	USERINFO *user)
{
	/* #Sp‚cification: /kit/livre / importation / op‚rations
		Tous les fichiers d'une livraison sont simplement copi‚
		dans l'archive /kit/ombre … l'exception des fichiers
		version.dat. Ceux-ci sont fusionn‚ avec les fichiers
		version.dat de /kit/ombre.

		Pour des raisons pratiques, l'organisation des r‚pertoires
		de /kit/livre et /kit/sync sont diff‚rents des r‚pertoires
		de /kit/ombre. Durant le copiage, il y aura la
		transformation de path suivante.

			/kit/livre/REV/path_projet/fichier
		ou	/kit/sync/site/REV/path_projet/fichier

		donnera

			/kit/ombre/path_projet/REV.s/fichier
	*/
	char livrepath[MAXSIZ_PATH];
	path_make (dirpath,dirname,livrepath);
	char *tbdir[400];
	int nb = dir_getlistd (livrepath,WILD_ALLFILE,100,tbdir,400);
	int len = strlen(livrepath) + 1;	// Saute le path et s‚parateur
	char revstr[MAXSIZ_REVISION];
	revision_path2rev (dirname,revstr);
	REVISION rev (revstr);
	int ret = 0;
	for (int i=0; i<nb && ret != -1; i++){
		char *prjpath = tbdir[i];
		assert ((int)strlen(prjpath)>len);
		char *projet = prjpath + len;
		SAVEPATH save;
		path_pushdir (user,prjpath,&save);
		ret = import_copy (projet,dirname,&rev,user);
		path_popdir (&save);
	}
	{
		SAVEPATH save;
		path_pushdir (user,livrepath,&save);
		ret = import_copy ("",dirname,&rev,user);
		path_popdir (&save);
	}
	tbstr_free (tbdir,nb);
	char vpath[MAXSIZ_PATH];
	path_make (dirpath,"version.dat",vpath);
	if (file_exist (vpath)){
		/* #Sp‚cification: admin / import / site version.dat
			Si un r‚pertoire /kit/livre ou /kit/sync/site contient
			un version.dat, il sera mis a jour avec le version.dat principal
			de la r‚vision import‚. C'est comme ca qu'on sait qu'on doit
			pas r‚export‚ une r‚vision … un site qui nous l'a envoye.

			Le fichier version.dat est optionnel.
		*/
		VERSION_DAT ver(vpath);
		char rpath[MAXSIZ_PATH];
		path_make (livrepath,"version.dat",rpath);
		ver.merge (rpath);
		ver.save(user);
	}		
	return ret;
}

/*
	Localise toutes les r‚visions dans /kit/livre et /kit/sync
	Retourne le nombre de r‚visions plac‚ dans tbdir (via strdup).
*/
static int near import_getrevdir (
	USERINFO *user,
	char *tbdir[],		// Contiendra les noms de sous-r‚pertoires
	char *tbpath[],		// Contiendra les paths (sans le nom) correspondant
	int maxdir)
{
	// On cherche d'abord dans /kit/livre
	const char *kitlivre = user->getlivre();
	int ret = projet_getrevdir(kitlivre,tbdir,maxdir);
	for (int i=0; i<ret; i++) tbpath[i] = strdup_err (kitlivre);
	char *tbs[100];
	int nbs = dir_getlistd (user->getsyncpath(),WILD_ALLFILE,0,tbs,100);
	for (int i=0; i<nbs; i++){
		int debut = ret;
		const char *sitedir = tbs[i];
		ret += projet_getrevdir (sitedir,tbdir+ret,maxdir-ret);
		for (int j=debut; j<ret; j++) tbpath[j] = strdup_err (sitedir);
	}
	return ret;
}

/* #Sp‚cification: /kit/livre / importation
	Une copie de chaque livraison est plac‚ dans le r‚pertoire
	/kit/livre. Cela permet de maintenir une copie de l'archive
	… diff‚rent endroit, sans avoir … tous copier.

	De plus, les r‚visions que l'on recoit des sites satellites
	(qui ont aussi des developpeurs et un archive) sont plac‚
	dans les r‚pertoires correspondant /kit/sync/XXX ou XXX est
	le nom d'un site.

	A partir des sous-r‚pertoires de /kit/livre et de /kit/sync,
	on peut mettre … jour l'archive (r‚pertoire /kit/ombre).
	La sous-option "import" de l'option principale "admin" permet de
	s‚lectivement mettre … jour l'archive.

	Les r‚pertoires /kit/livre et /kit/sync/XXX sont balay‚s
	pour recueillir la liste des r‚visions livr‚s qui ne sont pas
	d‚j… dans l'archive. L'usager choisit les r‚visions qu'il veut
	incorporer … l'archive et la fusion se r‚alise.
*/
/*
	Mise … jour de l'archive avec le contenu de /kit/livre et /kit/sync
*/
void import (
	USERINFO *user)
{
	/* #Sp‚cification: /kit/livre / importation / partielle
		Par d‚faut, toutes les r‚visions sont import‚s. La possibilit‚
		de laisser de cot‚ une r‚vision est ... une possibilit‚
		dangeureuse. Elle est disponible pour des raisons de flexibilit‚
		mais ne devrait ˆtre utilis‚ que par un utilisateurs
		avertis. Les raisons exactes motivant un tel comportement
		ne sont pas connues. :-)

		Les diff‚rentes r‚visions sont souvent interd‚pendante.
		Si on importe par exemple, la r‚vision 0.9.4.2 et qu'on
		laisse de cot‚ la r‚vision 0.9.4.1, on risque d'obtenir
		un archive incomplŠte. La version 0.9.4.2 fait probablement
		r‚f‚rence … des composantes de la r‚vision 0.9.4.1 qui
		seront absent de l'archive.

		Tous ceci n'est pas dangeureux (car les ordinateurs sont
		nos amis). L'ordre d'importation n'est pas importante.
	*/
	char *tbdir[400];
	char *tbpath[400];
	int nb = import_getrevdir(user,tbdir,tbpath,400);
	DIALOG dia;
	char tb_is_sel[400];	// Est-ce que cette r‚vision est s‚lectionn‚e
	int tb_f2sel[400];		// Traduit un numero de champs -> tb_is_sel
	bool au_moins_un = false;
	{
		VERSION_DAT version (user);
		for (int i=0; i<nb; i++){
			char revision[MAXSIZ_REVISION];
			char *dir = tbdir[i];
			int ok = revision_path2rev(dir,revision);
			assert (ok!=-1);
			/* #Sp‚cification: /kit/livre / entretien
				L'option importation n'efface pas le contenu
				de /kit/livre ni /kit/sync/XXX. Par contre, il n'est pas
				possible d'importer deux fois la mˆme
				r‚vision. Une r‚vision d‚j… pr‚sente
				est exclue de la s‚lection offerte
				… l'usager.
			*/
			REVISION rev (revision);
			if (version.get(&rev)==NULL){
				// La r‚vision n'est pas dans l'archive.
				tb_is_sel[i] = 1;
				int nof = dia.getnb();
				dia.newf_chk ("",tb_is_sel[i],revision);
				tb_f2sel[nof] = i;
				au_moins_un = true;
			}else{
				// Comme d‚j… l… (dans l'archive, ne sera pas
				// pr‚sent‚ et donc pas s‚lectionnable et donc pas
				// s‚lectionn‚.
				tb_is_sel[i] = 0;	
			}
		}
	}
	if (!au_moins_un){
		xconf_error (MSG_U(E_NOIMPORT,"Aucune révision à importer"));
	}else{
		dia.setbutinfo (MENU_USR1,MSG_R(B_ALL),MSG_R(B_ALL));
		dia.setbutinfo (MENU_USR2,MSG_R(B_NONE),MSG_R(B_NONE));
		int nof = 0;
		while (1){
			MENU_STATUS code = dia.edit(MSG_U(T_IMPORT,"Importation")
				,"",help_nil,nof);
			if (code == MENU_ESCAPE || code == MENU_CANCEL){
				break;
			}else if (code == MENU_ACCEPT){
				WINDOW_LOG log("import.log",1);
				log.show();
				foper_setlog (&log);
				for (int i=0; i<nb; i++){
					if (tb_is_sel[i]){
						log.printf ("Importation r‚vision %s\n",tbdir[i]);
						if (import_one (tbpath[i],tbdir[i],user) == -1){
							break;
						}
					}
				}
				foper_setlog (NULL);
				break;
			}else{
				// Force toutes les s‚lections … ON ou OFF
				char newval = code == MENU_USR1;
				for (int i=0; i<dia.getnb(); i++){
					tb_is_sel[tb_f2sel[i]] = newval;
				}
				dia.reload();
			}	
		}
	}
	tbstr_free (tbdir,nb);
	tbstr_free (tbpath,nb);
}