/* Chrysalide - Outil d'analyse de fichiers binaires
* pathname.c - manipulation de chemins de fichiers
*
* Copyright (C) 2015-2018 Cyrille Bagard
*
* This file is part of Chrysalide.
*
* Chrysalide 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 3 of the License, or
* (at your option) any later version.
*
* Chrysalide 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 Chrysalide. If not, see .
*/
#include "pathname.h"
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include "extstr.h"
#include "io.h"
#include "../core/logs.h"
//#include "../core/params.h" // TODO : config
/******************************************************************************
* *
* Paramètres : ref = fichier servant de référence aux calculs. *
* target = fichier absolu ciblé par la procédure. *
* *
* Description : Calcule le chemin relatif entre deux fichiers donnés. *
* *
* Retour : Chemin d'accès déterminé. *
* *
* Remarques : Les chemins de type 'a//b' ne sont pas supportés. *
* *
******************************************************************************/
char *build_relative_filename(const char *ref, const char *target)
{
char *result; /* Chemin à retourner */
size_t common; /* Taille de la partie commune */
const char *found; /* Séparateur suivant rencontré*/
size_t ref_next; /* Prochain séparateur #1 */
size_t target_next; /* Prochain séparateur #2 */
int ret; /* Bilan d'un appel */
unsigned int levels; /* Niveaux de décalage */
unsigned int i; /* Boucle de parcours #1 */
common = 0;
/* Recherche d'une base commune */
while (1)
{
found = strchr(ref + common, G_DIR_SEPARATOR);
if (found == NULL) break;
ref_next = found - ref;
found = strchr(target + common, G_DIR_SEPARATOR);
if (found == NULL) break;
target_next = found - target;
/* Comparaison rapide sur la longeur du nom */
if (ref_next != target_next) break;
/* Comparaison sur une portion de chemin */
ret = strncmp(ref + common, target + common, ref_next - common);
if (ret != 0) break;
common = ref_next + 1;
}
/* Décompte du décalage entre la référence et la cible */
found = ref + common;
for (levels = 0; ; levels++)
{
found = strchr(found, G_DIR_SEPARATOR);
if (found == NULL) break;
found++;
}
/* Construction du résultat final */
result = strdup(target + common);
for (i = 0; i < levels; i++)
{
result = strprep(result, G_DIR_SEPARATOR_S);
result = strprep(result, "..");
}
return result;
}
/******************************************************************************
* *
* Paramètres : ref = fichier servant de référence aux calculs. *
* target = fichier relatif ciblé par la procédure. *
* *
* Description : Calcule le chemin absolu d'un fichier par rapport à un autre.*
* *
* Retour : Chemin d'accès déterminé ou NULL en cas d'erreur. *
* *
* Remarques : Les chemins de type 'a//b' ne sont pas supportés. *
* *
******************************************************************************/
char *build_absolute_filename(const char *ref, const char *target)
{
char *result; /* Chemin à retourner */
char *last_sep; /* Dernier séparateur trouvé */
const char *target_base; /* Base de la relativité */
static const char upper[4] = { '.', '.', G_DIR_SEPARATOR, '\0' };
result = strdup(ref);
last_sep = strrchr(result, G_DIR_SEPARATOR);
assert(last_sep != NULL);
target_base = target;
/* Remontée des répertoires */
while (1)
{
if (strncmp(target_base, upper, 3) != 0)
break;
target_base += 3;
*last_sep = '\0';
last_sep = strrchr(result, G_DIR_SEPARATOR);
/* S'il devient impossible de remonter autant... */
if (last_sep == NULL) break;
}
if (last_sep == NULL)
{
free(result);
result = NULL;
}
else
{
*(last_sep + 1) = '\0';
result = stradd(result, target_base);
}
return result;
}
/******************************************************************************
* *
* Paramètres : path = chemin d'accès avec répertoires. *
* *
* Description : S'assure que le chemin fourni est bien en place. *
* *
* Retour : Bilan de l'opération. *
* *
* Remarques : - *
* *
******************************************************************************/
bool mkpath(const char *path)
{
char tmp[PATH_MAX]; /* Recopie de travail */
size_t len; /* Taille du chemin fourni */
char *iter; /* Boucle de parcours */
struct stat info; /* Information sur l'existant */
int ret; /* Bilan d'un appel système */
snprintf(tmp, PATH_MAX, "%s", path);
len = strlen(tmp);
/* Le chemin fournit ne contient que des répertoires ? */
if (tmp[len - 1] == G_DIR_SEPARATOR)
tmp[len - 1] = '\0';
/* Sinon, on supprime le dernier élément, qui est un fichier */
else
{
iter = strrchr(tmp, G_DIR_SEPARATOR);
if (iter == NULL) return true;
*iter = '\0';
}
for(iter = tmp + 1; *iter; iter++)
if(*iter == G_DIR_SEPARATOR)
{
*iter = '\0';
/* Analyse de l'existant */
if (stat(tmp, &info) == 0)
{
if (S_ISDIR(info.st_mode) == 0)
return false;
else
{
*iter = G_DIR_SEPARATOR;
continue;
}
}
ret = mkdir(tmp, S_IRWXU);
if (ret != 0)
{
perror("mkdir");
return false;
}
*iter = G_DIR_SEPARATOR;
}
/* Analyse de l'existant */
if (stat(tmp, &info) == 0)
{
if (S_ISDIR(info.st_mode) == 0)
return false;
else
return true;
}
ret = mkdir(tmp, S_IRWXU);
if (ret != 0) perror("mkdir");
return (ret == 0);
}
/******************************************************************************
* *
* Paramètres : path = chemin d'accès à valider. *
* *
* Description : S'assure qu'un chemin donné existe dans le système. *
* *
* Retour : 0 si le chemin est actuellement présent, -1 sinon. *
* *
* Remarques : - *
* *
******************************************************************************/
int ensure_path_exists(const char *path)
{
int result; /* Bilan de l'assurance */
char *copy; /* Chemin libérable */
char *tmp; /* Chemin altérable */
copy = strdup(path);
tmp = dirname(copy);
result = access(tmp, W_OK | X_OK);
if (result != 0)
{
result = ensure_path_exists(tmp);
if (result == 0)
result = mkdir(tmp, 0700);
}
free(copy);
return result;
}
/******************************************************************************
* *
* Paramètres : prefix = préfixe du nom du fichier temporaire à créer. *
* suffix = éventuel suffixe à coller au nom de fichier. *
* filename = chemin d'accès complet au nouveau fichier. [OUT] *
* *
* Description : Met en place un fichier temporaire. *
* *
* Retour : Flux ouvert en lecture et écriture, ou -1 en cas d'erreur. *
* *
* Remarques : - *
* *
******************************************************************************/
#if 0 // TODO
int make_tmp_file(const char *prefix, const char *suffix, char **filename)
{
int result; /* Flux ou code à retourner */
const char *tmpdir; /* Répertoire d'accueil */
bool status; /* Bilan d'un consultation */
size_t slen; /* Taille du suffixe */
status = g_generic_config_get_value(get_main_configuration(), MPK_TMPDIR, &tmpdir);
if (!status) return -1;
slen = strlen(suffix);
if (slen > 0)
asprintf(filename, "%s" G_DIR_SEPARATOR_S "%s-%d.XXXXXX.%s", tmpdir, prefix, getpid(), suffix);
else
asprintf(filename, "%s" G_DIR_SEPARATOR_S "%s-%d.XXXXXX", tmpdir, prefix, getpid());
result = ensure_path_exists(*filename);
if (result == 0)
{
if (slen > 0)
result = mkstemps(*filename, slen + 1);
else
result = mkstemp(*filename);
if (result == -1) perror("mkstemp");
}
if (result == -1)
{
free(*filename);
*filename = NULL;
}
return result;
}
#endif
/******************************************************************************
* *
* Paramètres : dest = fichier de destination de la copie. *
* src = fichier source à copier. *
* *
* Description : Copie un fichier. *
* *
* Retour : Bilan de l'opération. *
* *
* Remarques : - *
* *
******************************************************************************/
bool copy_file(const char *dest, const char *src)
{
bool result; /* Bilan à retourner */
int fd; /* Descripteur du fichier */
struct stat info; /* Informations sur le fichier */
int ret; /* Bilan d'un appel */
void *data; /* Quantité de données traitées*/
bool status; /* Bilan de la lecture */
result = false;
/* Côté source */
fd = open(src, O_RDONLY);
if (fd == -1)
{
LOG_ERROR_N("open");
goto exit;
}
ret = fstat(fd, &info);
if (ret == -1)
{
LOG_ERROR_N("fstat");
goto done;
}
data = malloc(info.st_size);
status = safe_read(fd, data, info.st_size);
if (!status) goto clean;
close(fd);
/* Côté destination */
fd = open(dest, O_WRONLY | O_CREAT, S_IRUSR | S_IWUSR);
if (fd == -1)
{
LOG_ERROR_N("open");
free(data);
goto exit;
}
status = safe_write(fd, data, info.st_size);
if (!status) goto clean;
result = true;
clean:
free(data);
done:
close(fd);
exit:
return result;
}