--- rpl/src/instructions_r3.c 2011/01/03 12:08:07 1.22 +++ rpl/src/instructions_r3.c 2020/01/10 11:15:47 1.78 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.20 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.32 + Copyright (C) 1989-2020 Dr. BERTRAND Joël This file is part of RPL/2. @@ -353,8 +353,8 @@ instruction_rnrm(struct_processus *s_eta struct_objet *s_objet_argument; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; + integer8 i; + integer8 j; void *accumulateur; @@ -410,25 +410,67 @@ instruction_rnrm(struct_processus *s_eta if ((*s_objet_argument).type == VIN) { - if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) + depassement = d_faux; + + for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; + i++) { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; + if (((integer8 *) (*((struct_vecteur *) (*s_objet_argument) + .objet)).tableau)[i] == INT64_MIN) + { + depassement = d_vrai; + break; + } } - (*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *) - (*((struct_vecteur *) (*s_objet_argument).objet)).tableau)[0]); + if (depassement == d_faux) + { + if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; - i++) + (*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *) + (*((struct_vecteur *) (*s_objet_argument).objet)) + .tableau)[0]); + + for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)) + .taille; i++) + { + if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument) + .objet)).tableau)[i]) > (*((integer8 *) + (*s_objet_resultat).objet))) + { + (*((integer8 *) (*s_objet_resultat).objet)) = + abs(((integer8 *) (*((struct_vecteur *) + (*s_objet_argument).objet)).tableau)[i]); + } + } + } + else { - if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument) - .objet)).tableau)[i]) > (*((integer8 *) - (*s_objet_resultat).objet))) + if ((s_objet_resultat = allocation(s_etat_processus, REL)) == NULL) { - (*((integer8 *) (*s_objet_resultat).objet)) = - abs(((integer8 *) (*((struct_vecteur *) - (*s_objet_argument).objet)).tableau)[i]); + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } + + (*((real8 *) (*s_objet_resultat).objet)) = abs((real8) ((integer8 *) + (*((struct_vecteur *) (*s_objet_argument).objet)) + .tableau)[0]); + + for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)) + .taille; i++) + { + if (abs((real8) ((integer8 *) (*((struct_vecteur *) + (*s_objet_argument).objet)).tableau)[i]) > (*((real8 *) + (*s_objet_resultat).objet))) + { + (*((real8 *) (*s_objet_resultat).objet)) = + abs((real8) ((integer8 *) (*((struct_vecteur *) + (*s_objet_argument).objet)).tableau)[i]); + } } } } @@ -501,6 +543,13 @@ instruction_rnrm(struct_processus *s_eta for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) .nombre_colonnes; j++) { + if (((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet)) + .tableau)[0][j] == INT64_MIN) + { + depassement = d_vrai; + break; + } + entier_courant = abs(((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet)) .tableau)[0][j]); @@ -525,6 +574,14 @@ instruction_rnrm(struct_processus *s_eta for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) .nombre_colonnes; j++) { + if (((integer8 **) (*((struct_matrice *) + (*s_objet_argument).objet)).tableau)[i][j] + == INT64_MIN) + { + depassement = d_vrai; + break; + } + entier_courant = abs(((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet)).tableau)[i][j]); @@ -565,8 +622,8 @@ instruction_rnrm(struct_processus *s_eta return; } - if ((accumulateur = malloc((*((struct_matrice *) - (*s_objet_argument).objet)).nombre_colonnes * + if ((accumulateur = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -614,8 +671,8 @@ instruction_rnrm(struct_processus *s_eta return; } - if ((accumulateur = malloc((*((struct_matrice *) - (*s_objet_argument).objet)).nombre_colonnes * sizeof(real8))) + if ((accumulateur = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -661,8 +718,8 @@ instruction_rnrm(struct_processus *s_eta return; } - if ((accumulateur = malloc((*((struct_matrice *) - (*s_objet_argument).objet)).nombre_colonnes * sizeof(real8))) + if ((accumulateur = malloc(((size_t) (*((struct_matrice *) + (*s_objet_argument).objet)).nombre_colonnes) * sizeof(real8))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -741,10 +798,6 @@ instruction_rnrm(struct_processus *s_eta void instruction_rceq(struct_processus *s_etat_processus) { - logical1 presence_variable; - - long i; - struct_objet *s_objet_variable; (*s_etat_processus).erreur_execution = d_ex; @@ -766,10 +819,10 @@ instruction_rceq(struct_processus *s_eta " %s, %s, %s, %s, %s,\n" " %s, %s, %s, %s, %s,\n" " %s, %s, %s, %s,\n" - " %s, %s\n", + " %s, %s, %s\n", d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX, d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK, - d_SQL, d_SLB, d_PRC, d_MTX); + d_SQL, d_SLB, d_PRC, d_MTX, d_REC); return; } @@ -787,48 +840,20 @@ instruction_rceq(struct_processus *s_eta } } - if (recherche_variable(s_etat_processus, "EQ") == d_vrai) + if (recherche_variable_globale(s_etat_processus, "EQ") == d_faux) { - i = (*s_etat_processus).position_variable_courante; - presence_variable = d_faux; - - while(i >= 0) - { - if ((strcmp((*s_etat_processus).s_liste_variables[i].nom, "EQ") - == 0) && ((*s_etat_processus).s_liste_variables[i] - .niveau == 1)) - { - presence_variable = d_vrai; - break; - } - - i--; - } - - (*s_etat_processus).position_variable_courante = i; + (*s_etat_processus).erreur_systeme = d_es; - if (presence_variable == d_faux) + if ((*s_etat_processus).erreur_execution == d_ex) { (*s_etat_processus).erreur_execution = d_ex_variable_non_definie; - return; } - if ((*s_etat_processus).s_liste_variables[i].objet == NULL) - { - (*s_etat_processus).erreur_execution = d_ex_variable_partagee; - return; - } - } - else - { - (*s_etat_processus).erreur_systeme = d_es; - (*s_etat_processus).erreur_execution = d_ex_variable_non_definie; return; } if ((s_objet_variable = copie_objet(s_etat_processus, - ((*s_etat_processus).s_liste_variables) - [(*s_etat_processus).position_variable_courante].objet, 'P')) + (*(*s_etat_processus).pointeur_variable_courante).objet, 'P')) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -999,7 +1024,7 @@ instruction_recall(struct_processus *s_e unsigned char *tampon_definitions_chainees; unsigned char *tampon_instruction_courante; - unsigned long position_courante; + integer8 position_courante; (*s_etat_processus).erreur_execution = d_ex; @@ -1088,22 +1113,15 @@ instruction_recall(struct_processus *s_e d_exec_path, d_exec_path, d_exec_path, ds_preprocesseur, nom_fichier_temporaire); - if (alsprintf(&executable_candidat, "%s/bin/rpliconv", - d_exec_path) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rpliconv", d_exec_path) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rpliconv_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - 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; @@ -1111,22 +1129,15 @@ instruction_recall(struct_processus *s_e free(executable_candidat); - if (alsprintf(&executable_candidat, "%s/bin/rplfile", - d_exec_path) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rplfile", d_exec_path) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rplfile_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - 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; @@ -1134,22 +1145,15 @@ instruction_recall(struct_processus *s_e free(executable_candidat); - if (alsprintf(&executable_candidat, "%s/bin/rplpp", - d_exec_path) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rplpp", d_exec_path) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rplpp_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rplpp_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplpp") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return; @@ -1157,22 +1161,15 @@ instruction_recall(struct_processus *s_e free(executable_candidat); - if (alsprintf(&executable_candidat, "%s/bin/rplawk", - d_exec_path) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rplawk", d_exec_path) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rplawk_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rplawk_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplawk") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return; @@ -1200,22 +1197,15 @@ instruction_recall(struct_processus *s_e (*s_etat_processus).rpl_home, ds_preprocesseur, nom_fichier_temporaire); - if (alsprintf(&executable_candidat, "%s/bin/rpliconv", - (*s_etat_processus).rpl_home) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rpliconv", (*s_etat_processus).rpl_home) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rpliconv_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - 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; @@ -1223,22 +1213,15 @@ instruction_recall(struct_processus *s_e free(executable_candidat); - if (alsprintf(&executable_candidat, "%s/bin/rplfile", - (*s_etat_processus).rpl_home) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rplfile", (*s_etat_processus).rpl_home) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rplfile_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - 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; @@ -1246,22 +1229,15 @@ instruction_recall(struct_processus *s_e free(executable_candidat); - if (alsprintf(&executable_candidat, "%s/bin/rplpp", - (*s_etat_processus).rpl_home) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rplpp", (*s_etat_processus).rpl_home) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rplpp_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rplpp_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplpp") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return; @@ -1269,22 +1245,15 @@ instruction_recall(struct_processus *s_e free(executable_candidat); - if (alsprintf(&executable_candidat, "%s/bin/rplawk", - d_exec_path) < 0) + if (alsprintf(s_etat_processus, &executable_candidat, + "%s/bin/rplawk", d_exec_path) < 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - if (controle(s_etat_processus, executable_candidat, "md5", - rplawk_md5) != d_vrai) - { - (*s_etat_processus).erreur_systeme = d_es_somme_controle; - return; - } - - if (controle(s_etat_processus, executable_candidat, "sha1", - rplawk_sha1) != d_vrai) + if (controle_integrite(s_etat_processus, executable_candidat, + "rplawk") != d_vrai) { (*s_etat_processus).erreur_systeme = d_es_somme_controle; return; @@ -1350,7 +1319,7 @@ instruction_recall(struct_processus *s_e return; } - if ((chaine = malloc((nombre_caracteres_source + 1) + if ((chaine = malloc((((size_t) nombre_caracteres_source) + 1) * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -1391,7 +1360,7 @@ instruction_recall(struct_processus *s_e } } - if ((chaine[i] = caractere) == '\"') + if ((chaine[i] = (unsigned char) caractere) == '\"') { if (i > 0) { @@ -1547,6 +1516,7 @@ instruction_recall(struct_processus *s_e return; } + (*s_etat_processus).type_en_cours = NON; recherche_type(s_etat_processus); while((*s_etat_processus).definitions_chainees @@ -1618,9 +1588,9 @@ instruction_rcws(struct_processus *s_eta { struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; - unsigned long longueur; + integer8 i; + integer8 j; + integer8 longueur; (*s_etat_processus).erreur_execution = d_ex; @@ -1698,10 +1668,6 @@ instruction_rcws(struct_processus *s_eta void instruction_rcls(struct_processus *s_etat_processus) { - logical1 presence_variable; - - long i; - struct_objet *s_objet_variable; (*s_etat_processus).erreur_execution = d_ex; @@ -1742,48 +1708,20 @@ instruction_rcls(struct_processus *s_eta } } - if (recherche_variable(s_etat_processus, ds_sdat) == d_vrai) + if (recherche_variable_globale(s_etat_processus, ds_sdat) == d_faux) { - i = (*s_etat_processus).position_variable_courante; - presence_variable = d_faux; - - while(i >= 0) - { - if ((strcmp((*s_etat_processus).s_liste_variables[i].nom, ds_sdat) - == 0) && ((*s_etat_processus).s_liste_variables[i] - .niveau == 1)) - { - presence_variable = d_vrai; - break; - } - - i--; - } - - (*s_etat_processus).position_variable_courante = i; + (*s_etat_processus).erreur_systeme = d_es; - if (presence_variable == d_faux) + if ((*s_etat_processus).erreur_execution == d_ex) { (*s_etat_processus).erreur_execution = d_ex_variable_non_definie; - return; } - if ((*s_etat_processus).s_liste_variables[i].objet == NULL) - { - (*s_etat_processus).erreur_execution = d_ex_variable_partagee; - return; - } - } - else - { - (*s_etat_processus).erreur_systeme = d_es; - (*s_etat_processus).erreur_execution = d_ex_variable_non_definie; return; } if ((s_objet_variable = copie_objet(s_etat_processus, - ((*s_etat_processus).s_liste_variables) - [(*s_etat_processus).position_variable_courante].objet, 'O')) + (*(*s_etat_processus).pointeur_variable_courante).objet, 'O')) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;