/*
	Traitement sur fichiers ex‚cutables
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <misc.h>
#include "../../etc/etc.h"
#include "tool.h"
#include "../common/commun.h"

/*
	Recherche un fichier d'une liste dans le PATH de recherche executable
	Retourne -1 si trouve pas, 0 si premier nom trouv‚, 1 si second
	path contiendra le path trouv‚
*/
export int file_findpath0 (
	const char *tbnom[],		/* noms possibles du fichier */
								/* avec ou sans extension */
	int nbnom,
	char *path)					/* path trouve */
{
	int find = -1;
	char *tb[50];
	int   nb = path_varenvsplit ("PATH",tb);
	tbstr_skipstrip (tb,nb);
	for (int no=0; find == -1 && no<nb; no++){
		char *dpath = tb[no];
		if (dpath[0] != '\0'){
			for (int i=0; i<nbnom; i++){
				const char *nom = tbnom[i];
				if (strchr(nom,TOOL_OS_SEP)!=NULL){
					if (file_type(nom)==0){
						find = i < 2 ? 0 : 1;
						strcpy (path,nom);
						break;
					}
				}else{
					path_make (dpath,nom,path);
					if (file_type(path)==0){
						find = i < 2 ? 0 : 1;
						break;
					}
				}
			}
		}
	}
	tbstr_free (tb,nb);
	return (find);
}
/*
	Recherche le path d'un fichier … partir de la variable PATH

	Retourne -1 si ne trouve pas.
	path contiendra la r‚ponse. Path peut etre la mˆme variable que fichier.
	Le path retourne est absolue.
*/

export int file_findpath (
	const char *fichier,		/* nom du fichier cherch‚ */
	char *path)					/* path trouve */
{
	const char *tb[1];
	char  tmp[MAXSIZ_PATH];
	int   ret;
	tb[0] = fichier;
	ret =  file_findpath0 (tb,1,tmp);
	strcpy (path,tmp);
	return ret;
}

/*
	Recherche le path d'un fichier executable a partir de la variable PATH

	Retourne
		-1 si ne trouve pas
		0 si c'est un executable binaire
		1 si c'est un batch file (script)
	Si nomutil a une extension, retourne 0 ou -1
*/

export int file_findexe	(
	const char *nomutil,		/* nom du programme cherche */
								/* avec	ou sans	extension */
	char *path)					/* path trouve */
{
	return file_findpath (nomutil,path);
}

#ifdef TEST

static void test (char *nom)
{
	char path[MAXSIZ_PATH];
	int ret = file_findexe (nom,path);
	printf ("Cherche prg %15s -> %2d %s\n",nom,ret,ret!=-1 ? path : "?");
}

int main (int argc, char *argv[])
{
	if (argc > 1){
		for (int i=1; i<argc; i++){
			test (argv[i]);
		}
	}else{ 
		static char *tb[]={
			"cp",
			"toto",
			"inittab",
			NULL
		};
		for (int i=0; tb[i] != NULL; i++){
			test (tb[i]);
		}
	}
	return 0;
}

#endif