#include <unistd.h>
#include "projet.h"
#include "projetx.m"
#include <tlmpdia.h>
#include <tlmplib.h>

<mod>
static void view_show (const char *title, const char *intro, SSTRING &txt)
{
	DIALOG dia;
	dia.newf_textarea (NULL,txt,80,25);
	int nof = 0;
	dia.edit (title,intro,help_nil,nof,MENUBUT_CANCEL);
}
</mod>


<mod>
static void view_edit (const char *title, const char *fname)
{
	<glocal>
		SSTRING txt;
	</glocal>
	<call loadfile>(fname,false);
	<f oneline>
		glocal.txt.append (line);
	</f>
	</call>
	DIALOG dia;
	dia.newf_textarea (NULL,glocal.txt,80,25);
	int nof = 0;
	while (1){
		MENU_STATUS code = dia.edit (title,"",help_nil,nof);
		if (code == MENU_CANCEL || code == MENU_ESCAPE){
			break;
		}else{
			<call savefile>(fname,false);
			<f dowrite>
				fputs (glocal.txt.get(),fout);
			</f>
			</call>
			break;
		}
	}
}
</mod>


<mod>
/*
	Présente les fichiers modifiés et permet de voir les diffs
*/
void view_changes (
	USERINFO *user,
	SSTRINGS &tbold,
	SSTRINGS &tbnew,
	SSTRINGS &tbdel)
{
	<glocal>
		USERINFO *user;
		SSTRINGS *tbdel,*tbnew,*tbold;
		SSTRINGS tb;
	</glocal>
	glocal.user = user;
	glocal.tbdel = &tbdel;
	glocal.tbnew = &tbnew;
	glocal.tbold = &tbold;
	glocal.tb.neverdelete();
	glocal.tb.append (tbold);
	glocal.tb.append (tbnew);
	glocal.tb.append (tbdel);
	glocal.tb.sort();
	<call editrecords>(MSG_U(T_CHANGEMENTS,"Fichiers modifiés"),"",help_nil);
	<f head>
		newf_head (MSG_U(H_CHANGEMENTS,"Fichier\tStatut"));
	</f>
	<f load>
		for (int i=0; i<glocal.tb.getnb(); i++){
			SSTRING *ss = glocal.tb.getitem(i);
			const char *s = ss->get();
			const char *statut = "";
			if (glocal.tbdel->lookup(ss)!=-1){
				statut = MSG_U(I_EFFACE,"Effacé");
			}else if (glocal.tbnew->lookup(ss)!=-1){
				statut = MSG_U(I_NOUVEAU,"Nouveau");
			}
			new_menuitem(s,statut);
		}
	</f>
	<f editone>
		<glocal>
			SSTRING txt;
		</glocal>
		SSTRING *ss = glocal.tb.getitem(no);
		const char *fname = ss->get();
		char projet[MAXSIZ_PATH],name[MAXSIZ_NAME],absfname[MAXSIZ_PATH];
		path_splitlex (fname,projet,name);
		glocal.user->makusrpath(projet,absfname);
		path_make (absfname,name,absfname);
		if (glocal.tbold->lookup(ss)!=-1){
			// C'est un fichier existant qui a 
			MAKEFILE mkf (NULL,1,projet,glocal.user);
			MAKEFILE_FILE *file = mkf.locate(name);
			if (file != NULL){
				char rpath[MAXSIZ_PATH];
				file->getombpath (glocal.user,rpath);
				SSTRING tmp;
				tmp.setfromf ("/usr/bin/diff -c %s %s",rpath,absfname);
				<call walkpopen>(tmp.get(),15);
				<f oneline>
					glocal.txt.appendf ("%s\n",line);
					return 0;
				</f>
				<f oneerr>
					fprintf (stderr,"diff err: %s\n",line);
				</f>
				</call>
				view_show (fname,"",glocal.txt);
			}
		}else if (glocal.tbnew->lookup(ss)!=-1){
			view_edit (fname,absfname);
		}
	</f>
	</call>
}

</mod>