--- rpl/src/chainage.c 2010/03/05 11:20:08 1.6 +++ rpl/src/chainage.c 2013/06/21 14:15:51 1.54 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.12 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.15 + Copyright (C) 1989-2013 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,13 +20,13 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* ================================================================================ - Routine de chainage du programme (lecture du fichier puis constitution - de la chaine executable) + Routine de chaînage du programme (lecture du fichier puis constitution + de la chaîne exécutable) ================================================================================ Entrées: structure processus -------------------------------------------------------------------------------- @@ -45,25 +45,39 @@ chainage(struct_processus *s_etat_proces int caractere; int erreur; - int erreur_os; logical1 drapeau_fin; + logical1 erreur_os; logical1 existence; + logical1 initialisation; logical1 ouverture; logical1 presence_chaine; - long i; - long nombre_caracteres_source; + integer8 i; + integer8 nombre_caracteres_source; unsigned char *commande; unsigned char *executable_candidat; - unsigned char *instructions = "sed -e '1,1s/^#!/\\/\\//g' %s | " - "%s/bin/%s | " + +# ifndef OS2 + unsigned char *instructions = "%s/bin/%s %s | " "%s/bin/rpliconv `%s/bin/rplfile " - "-m %s/share/rplfiles -i %s | awk " - "'{ print $3; }' | awk -F= " + "-m %s/share/rplfiles -i %s | " + "%s/bin/rplawk " + "'{ print $3; }' | %s/bin/rplawk -F= " "'{ if ($2 != \"\") printf(\"-f %%s\", " - "$2); }'` -t `locale charmap`//IGNORE > %s"; + "$2); }'` -t %s//IGNORE > %s"; +# else + unsigned char *instructions = BOURNE_SHELL " -c \"" + "%s/bin/%s %s | " + "%s/bin/rpliconv `%s/bin/rplfile " + "-m %s/share/rplfiles -i %s | " + "%s/bin/rplawk " + "'{ print $3; }' | %s/bin/rplawk -F= " + "'{ if ($2 != \\\"\\\") " + "printf(\\\"-f %%s\\\", " + "$2); }'` -t %s//IGNORE > %s\""; +# endif unsigned long unite_fichier; @@ -107,8 +121,8 @@ chainage(struct_processus *s_etat_proces { if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) + (2 * strlen((*s_etat_processus).nom_fichier_source)) + - (4 * strlen(d_exec_path)) + - strlen(nom_fichier_temporaire) + strlen(instructions) - 11) + (6 * strlen(d_exec_path)) + strlen(d_locale) + + strlen(nom_fichier_temporaire) + strlen(instructions) - 21) * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -118,10 +132,11 @@ chainage(struct_processus *s_etat_proces } sprintf(commande, instructions, + d_exec_path, ds_preprocesseur, (*s_etat_processus).nom_fichier_source, - d_exec_path, ds_preprocesseur, d_exec_path, d_exec_path, + d_exec_path, d_exec_path, d_exec_path, (*s_etat_processus).nom_fichier_source, - nom_fichier_temporaire); + d_exec_path, d_exec_path, d_locale, nom_fichier_temporaire); if (alsprintf(&executable_candidat, "%s/bin/rpliconv", d_exec_path) < 0) @@ -130,15 +145,8 @@ chainage(struct_processus *s_etat_proces return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "md5", - rpliconv_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return(d_erreur); - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rpliconv_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rpliconv") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); @@ -153,15 +161,8 @@ chainage(struct_processus *s_etat_proces return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "md5", - rplfile_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return(d_erreur); - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rplfile_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplfile") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); @@ -176,15 +177,24 @@ chainage(struct_processus *s_etat_proces return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "md5", - rplpp_md5) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplpp") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "sha1", - rplpp_sha1) != d_vrai) + free(executable_candidat); + + if (alsprintf(&executable_candidat, "%s/bin/rplawk", + d_exec_path) < 0) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return(d_erreur); + } + + if (controle_integrite(s_etat_processus, executable_candidat, + "rplawk") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); @@ -196,8 +206,9 @@ chainage(struct_processus *s_etat_proces { if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) + (2 * strlen((*s_etat_processus).nom_fichier_source)) + - (4 * strlen((*s_etat_processus).rpl_home)) + - strlen(nom_fichier_temporaire) + strlen(instructions) - 11) + (6 * strlen((*s_etat_processus).rpl_home)) + + strlen(d_locale) + + strlen(nom_fichier_temporaire) + strlen(instructions) - 21) * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -207,12 +218,15 @@ chainage(struct_processus *s_etat_proces } sprintf(commande, instructions, - (*s_etat_processus).nom_fichier_source, (*s_etat_processus).rpl_home, ds_preprocesseur, - (*s_etat_processus).rpl_home, (*s_etat_processus).rpl_home, + (*s_etat_processus).nom_fichier_source, + (*s_etat_processus).rpl_home, + (*s_etat_processus).rpl_home, (*s_etat_processus).rpl_home, (*s_etat_processus).nom_fichier_source, - nom_fichier_temporaire); + (*s_etat_processus).rpl_home, + (*s_etat_processus).rpl_home, + d_locale, nom_fichier_temporaire); if (alsprintf(&executable_candidat, "%s/bin/rpliconv", (*s_etat_processus).rpl_home) < 0) @@ -221,15 +235,8 @@ chainage(struct_processus *s_etat_proces return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "md5", - rpliconv_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return(d_erreur); - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rpliconv_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rpliconv") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); @@ -244,15 +251,8 @@ chainage(struct_processus *s_etat_proces return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "md5", - rplfile_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return(d_erreur); - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rplfile_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplfile") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); @@ -267,15 +267,24 @@ chainage(struct_processus *s_etat_proces return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "md5", - rplpp_md5) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplpp") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); } - if (controle(s_etat_processus, executable_candidat, "sha1", - rplpp_sha1) != d_vrai) + free(executable_candidat); + + if (alsprintf(&executable_candidat, "%s/bin/rplawk", + (*s_etat_processus).rpl_home) < 0) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return(d_erreur); + } + + if (controle_integrite(s_etat_processus, executable_candidat, + "rplawk") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return(d_erreur); @@ -324,7 +333,8 @@ chainage(struct_processus *s_etat_proces } (*s_etat_processus).definitions_chainees = (unsigned char *) - malloc((nombre_caracteres_source + 1) * sizeof(unsigned char)); + malloc((((size_t) nombre_caracteres_source) + 1) + * sizeof(unsigned char)); if ((*s_etat_processus).definitions_chainees == NULL) { @@ -345,11 +355,43 @@ chainage(struct_processus *s_etat_proces i = 0; drapeau_fin = d_faux; + initialisation = d_vrai; + + /* + * Élimination du sharp-bang si nécessaire et des caractères + * inutiles. Conversion de caractères. + */ while(drapeau_fin == d_faux) { if ((caractere = getc(f_source)) != EOF) { + if (initialisation == d_vrai) + { + if (caractere == '#') + { + if ((caractere = getc(f_source)) != EOF) + { + if (caractere == '!') + { + do + { + caractere = getc(f_source); + } while((caractere != EOF) && + (caractere != + d_code_retour_chariot)); + } + else + { + rewind(f_source); + caractere = getc(f_source); + } + } + } + + initialisation = d_faux; + } + if ((caractere == d_code_retour_chariot) || (caractere == d_code_tabulation) || ((caractere == d_code_espace) && @@ -375,8 +417,8 @@ chainage(struct_processus *s_etat_proces } } - if ((((*s_etat_processus).definitions_chainees)[i] = - caractere) == '\"') + if (((int) (((*s_etat_processus).definitions_chainees)[i] = + ((unsigned char) caractere))) == '\"') { if (i > 0) { @@ -412,7 +454,7 @@ chainage(struct_processus *s_etat_proces } (*s_etat_processus).longueur_definitions_chainees = - strlen((*s_etat_processus).definitions_chainees); + (integer8) strlen((*s_etat_processus).definitions_chainees); if (fclose(f_source) != 0) { @@ -446,8 +488,8 @@ chainage(struct_processus *s_etat_proces if (((*s_etat_processus).definitions_chainees = realloc((*s_etat_processus).definitions_chainees, - ((*s_etat_processus).longueur_definitions_chainees + 1) * - sizeof(unsigned char))) == NULL) + (((size_t) (*s_etat_processus).longueur_definitions_chainees) + 1) + * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur);