--- rpl/src/instructions_n1.c 2012/10/01 11:05:05 1.39 +++ rpl/src/instructions_n1.c 2013/03/24 23:11:30 1.46 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.11 - Copyright (C) 1989-2012 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.13 + Copyright (C) 1989-2013 Dr. BERTRAND Joël This file is part of RPL/2. @@ -27,11 +27,11 @@ ================================================================================ Fonction 'neg' ================================================================================ - Entrées : + Entrées : -------------------------------------------------------------------------------- Sorties : -------------------------------------------------------------------------------- - Effets de bord : néant + Effets de bord : néant ================================================================================ */ @@ -48,8 +48,8 @@ instruction_neg(struct_processus *s_etat struct_objet *s_objet_argument; struct_objet *s_objet_resultat; - unsigned long i; - unsigned long j; + integer8 i; + integer8 j; (*s_etat_processus).erreur_execution = d_ex; @@ -120,7 +120,7 @@ instruction_neg(struct_processus *s_etat } /* - * Permet d'éviter les résultats du type -0. Valable pour tous + * Permet d'éviter les résultats du type -0. Valable pour tous * les types... */ @@ -133,7 +133,7 @@ instruction_neg(struct_processus *s_etat /* -------------------------------------------------------------------------------- - Opposition d'un réel + Opposition d'un réel -------------------------------------------------------------------------------- */ @@ -217,7 +217,7 @@ instruction_neg(struct_processus *s_etat /* -------------------------------------------------------------------------------- - Opposition d'un vecteur de réels + Opposition d'un vecteur de réels -------------------------------------------------------------------------------- */ @@ -320,7 +320,7 @@ instruction_neg(struct_processus *s_etat /* -------------------------------------------------------------------------------- - Opposition d'une matrice de réels + Opposition d'une matrice de réels -------------------------------------------------------------------------------- */ @@ -641,11 +641,11 @@ instruction_neg(struct_processus *s_etat ================================================================================ Fonction 'not' ================================================================================ - Entrées : pointeur sur une struct_processus + Entrées : pointeur sur une struct_processus -------------------------------------------------------------------------------- Sorties : -------------------------------------------------------------------------------- - Effets de bord : néant + Effets de bord : néant ================================================================================ */ @@ -978,11 +978,11 @@ instruction_not(struct_processus *s_etat ================================================================================ Fonction '<>' ================================================================================ - Entrées : + Entrées : -------------------------------------------------------------------------------- Sorties : -------------------------------------------------------------------------------- - Effets de bord : néant + Effets de bord : néant ================================================================================ */ @@ -1003,9 +1003,9 @@ instruction_ne(struct_processus *s_etat_ logical1 difference; - unsigned long i; - unsigned long j; - unsigned long nombre_elements; + integer8 i; + integer8 j; + integer8 nombre_elements; (*s_etat_processus).erreur_execution = d_ex; @@ -1084,7 +1084,7 @@ instruction_ne(struct_processus *s_etat_ /* -------------------------------------------------------------------------------- - SAME NOT sur des valeurs numériques + SAME NOT sur des valeurs numériques -------------------------------------------------------------------------------- */ @@ -1182,7 +1182,7 @@ instruction_ne(struct_processus *s_etat_ /* -------------------------------------------------------------------------------- - SAME NOT portant sur des chaînes de caractères + SAME NOT portant sur des chaînes de caractères -------------------------------------------------------------------------------- */ @@ -1206,7 +1206,7 @@ instruction_ne(struct_processus *s_etat_ -------------------------------------------------------------------------------- */ /* - * Il y a de la récursivité dans l'air... + * Il y a de la récursivité dans l'air... */ else if ((((*s_objet_argument_1).type == LST) && @@ -1334,7 +1334,7 @@ instruction_ne(struct_processus *s_etat_ } /* - * Vecteurs de réels + * Vecteurs de réels */ else if (((*s_objet_argument_1).type == VRL) && @@ -1462,7 +1462,7 @@ instruction_ne(struct_processus *s_etat_ } /* - * Matrice de réels + * Matrice de réels */ else if (((*s_objet_argument_1).type == MRL) && @@ -1564,7 +1564,7 @@ instruction_ne(struct_processus *s_etat_ */ /* - * Nom ou valeur numérique / Nom ou valeur numérique + * Nom ou valeur numérique / Nom ou valeur numérique */ else if ((((*s_objet_argument_1).type == NOM) && @@ -1701,7 +1701,7 @@ instruction_ne(struct_processus *s_etat_ } /* - * Nom ou valeur numérique / Expression + * Nom ou valeur numérique / Expression */ else if (((((*s_objet_argument_1).type == ALG) || @@ -1793,7 +1793,7 @@ instruction_ne(struct_processus *s_etat_ } /* - * Expression / Nom ou valeur numérique + * Expression / Nom ou valeur numérique */ else if ((((*s_objet_argument_1).type == NOM) || @@ -2044,11 +2044,11 @@ instruction_ne(struct_processus *s_etat_ ================================================================================ Fonction 'next' ================================================================================ - Entrées : + Entrées : -------------------------------------------------------------------------------- Sorties : -------------------------------------------------------------------------------- - Effets de bord : néant + Effets de bord : néant ================================================================================ */ @@ -2124,7 +2124,7 @@ instruction_next(struct_processus *s_eta * Pour une boucle avec indice, on fait pointer * (*(*s_etat_processus).l_base_pile_systeme).indice_boucle sur * la variable correspondante. Remarque, le contenu de la variable - * est détruit au courant de l'opération. + * est détruit au courant de l'opération. */ if (presence_compteur == d_vrai) @@ -2158,7 +2158,7 @@ instruction_next(struct_processus *s_eta /* * Empilement pour calculer le nouvel indice. Au passage, la * variable (*(*s_etat_processus).l_base_pile_systeme).indice_boucle - * est libérée. + * est libérée. */ if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile), @@ -2205,7 +2205,7 @@ instruction_next(struct_processus *s_eta if (presence_compteur == d_vrai) { /* - * L'addition crée si besoin une copie de l'objet + * L'addition crée si besoin une copie de l'objet */ (*(*s_etat_processus).l_base_pile_systeme).indice_boucle = NULL; @@ -2288,7 +2288,7 @@ instruction_next(struct_processus *s_eta { (*s_etat_processus).niveau_courant--; - if (retrait_variable_par_niveau(s_etat_processus) == d_erreur) + if (retrait_variables_par_niveau(s_etat_processus) == d_erreur) { return; } @@ -2301,7 +2301,7 @@ instruction_next(struct_processus *s_eta { // FORALL if ((*(*(*s_etat_processus).l_base_pile_systeme).limite_indice_boucle) .type == NON) - { // L'objet initial était vide. + { // L'objet initial était vide. (*s_etat_processus).niveau_courant--; depilement_pile_systeme(s_etat_processus); @@ -2433,7 +2433,7 @@ instruction_next(struct_processus *s_eta (*s_etat_processus).niveau_courant--; - if (retrait_variable_par_niveau(s_etat_processus) == d_erreur) + if (retrait_variables_par_niveau(s_etat_processus) == d_erreur) { return; } @@ -2462,11 +2462,11 @@ instruction_next(struct_processus *s_eta ================================================================================ Fonction 'nrand' ================================================================================ - Entrées : structure processus + Entrées : structure processus ------------------------------------------------------------------------------- Sorties : -------------------------------------------------------------------------------- - Effets de bord : néant + Effets de bord : néant ================================================================================ */