--- rpl/src/instructions_i2.c 2011/08/03 09:26:46 1.30 +++ rpl/src/instructions_i2.c 2020/01/10 11:15:46 1.74 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.2 - 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. @@ -44,8 +44,8 @@ instruction_idn(struct_processus *s_etat logical1 argument_nom; logical1 variable_partagee; - unsigned long i; - unsigned long j; + integer8 i; + integer8 j; (*s_etat_processus).erreur_execution = d_ex; @@ -119,26 +119,12 @@ instruction_idn(struct_processus *s_etat if (s_objet_argument == NULL) { - if (pthread_mutex_lock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - if (recherche_variable_partagee(s_etat_processus, (*(*s_etat_processus).pointeur_variable_courante).nom, (*(*s_etat_processus).pointeur_variable_courante) .variable_partagee, (*(*s_etat_processus) - .pointeur_variable_courante).origine) == d_faux) + .pointeur_variable_courante).origine) == NULL) { - if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - (*s_etat_processus).erreur_systeme = d_es; (*s_etat_processus).erreur_execution = d_ex_variable_non_definie; @@ -147,8 +133,7 @@ instruction_idn(struct_processus *s_etat } s_objet_argument = (*(*s_etat_processus) - .s_liste_variables_partagees).table[(*(*s_etat_processus) - .s_liste_variables_partagees).position_variable].objet; + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } else @@ -181,7 +166,7 @@ instruction_idn(struct_processus *s_etat if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -215,7 +200,7 @@ instruction_idn(struct_processus *s_etat if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -238,13 +223,13 @@ instruction_idn(struct_processus *s_etat } if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_matrice *) (*s_objet_resultat).objet)) - .nombre_lignes * sizeof(integer8 *))) == NULL) + malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat) + .objet)).nombre_lignes) * sizeof(integer8 *))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -259,14 +244,14 @@ instruction_idn(struct_processus *s_etat .nombre_lignes; i++) { if ((((integer8 **) (*((struct_matrice *) (*s_objet_resultat) - .objet)).tableau)[i] = malloc((*((struct_matrice *) - (*s_objet_resultat).objet)).nombre_colonnes * - sizeof(integer8))) == NULL) + .objet)).tableau)[i] = malloc(((size_t) + (*((struct_matrice *) (*s_objet_resultat).objet)) + .nombre_colonnes) * sizeof(integer8))) == NULL) { if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -297,7 +282,7 @@ instruction_idn(struct_processus *s_etat if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -325,12 +310,11 @@ instruction_idn(struct_processus *s_etat if (variable_partagee == d_vrai) { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus).s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_objet_resultat; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = + s_objet_resultat; if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -375,10 +359,10 @@ instruction_ifft(struct_processus *s_eta logical1 presence_longueur_fft; - unsigned long i; - unsigned long j; - unsigned long k; - unsigned long longueur_fft; + integer8 i; + integer8 j; + integer8 k; + integer8 longueur_fft; (*s_etat_processus).erreur_execution = d_ex; @@ -484,18 +468,18 @@ instruction_ifft(struct_processus *s_eta { if (presence_longueur_fft == d_faux) { - longueur_fft = pow(2, (integer4) ceil(log((real8) + longueur_fft = (integer8) pow(2, ceil(log((real8) (*((struct_vecteur *) (*s_objet_argument).objet)).taille) / log((real8) 2))); - if ((longueur_fft / ((real8) (*((struct_vecteur *) + if ((((real8) longueur_fft) / ((real8) (*((struct_vecteur *) (*s_objet_argument).objet)).taille)) == 2) { longueur_fft /= 2; } } - if ((matrice_f77 = malloc(longueur_fft * + if ((matrice_f77 = malloc(((size_t) longueur_fft) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -545,7 +529,7 @@ instruction_ifft(struct_processus *s_eta } nombre_lignes = 1; - nombre_colonnes = longueur_fft; + nombre_colonnes = (integer4) longueur_fft; inverse = -1; dft(matrice_f77, &nombre_lignes, &nombre_colonnes, &inverse, &erreur); @@ -581,21 +565,20 @@ instruction_ifft(struct_processus *s_eta { if (presence_longueur_fft == d_faux) { - longueur_fft = pow(2, (integer4) ceil(log((real8) - (*((struct_matrice *) - (*s_objet_argument).objet)).nombre_colonnes) / - log((real8) 2))); + longueur_fft = (integer8) pow(2, ceil(log((real8) + (*((struct_matrice *) (*s_objet_argument).objet)) + .nombre_colonnes) / log((real8) 2))); - if ((longueur_fft / ((real8) (*((struct_matrice *) + if ((((real8) longueur_fft) / ((real8) (*((struct_matrice *) (*s_objet_argument).objet)).nombre_colonnes)) == 2) { longueur_fft /= 2; } } - if ((matrice_f77 = malloc(longueur_fft * - (*((struct_matrice *) (*s_objet_argument).objet)) - .nombre_lignes * sizeof(struct_complexe16))) == NULL) + if ((matrice_f77 = malloc(((size_t) longueur_fft) * + ((size_t) (*((struct_matrice *) (*s_objet_argument).objet)) + .nombre_lignes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -671,9 +654,9 @@ instruction_ifft(struct_processus *s_eta } } - nombre_lignes = (*((struct_matrice *) (*s_objet_argument).objet)) - .nombre_lignes; - nombre_colonnes = longueur_fft; + nombre_lignes = (integer4) (*((struct_matrice *) + (*s_objet_argument).objet)).nombre_lignes; + nombre_colonnes = (integer4) longueur_fft; inverse = -1; dft(matrice_f77, &nombre_lignes, &nombre_colonnes, &inverse, &erreur); @@ -700,8 +683,8 @@ instruction_ifft(struct_processus *s_eta longueur_fft; if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = - malloc((*((struct_matrice *) (*s_objet_resultat).objet)) - .nombre_lignes * sizeof(struct_complexe16 *))) == NULL) + malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat) + .objet)).nombre_lignes) * sizeof(struct_complexe16 *))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; @@ -712,8 +695,8 @@ instruction_ifft(struct_processus *s_eta { if ((((struct_complexe16 **) (*((struct_matrice *) (*s_objet_resultat).objet)).tableau)[i] = - malloc((*((struct_matrice *) - (*s_objet_resultat).objet)).nombre_colonnes * + malloc(((size_t) (*((struct_matrice *) + (*s_objet_resultat).objet)).nombre_colonnes) * sizeof(struct_complexe16))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -782,7 +765,12 @@ instruction_input(struct_processus *s_et { struct_objet *s_objet_resultat; + unsigned char *ptr_e; + unsigned char *ptr_l; unsigned char *tampon; + unsigned char *tampon2; + + integer8 i; (*s_etat_processus).erreur_execution = d_ex; @@ -824,6 +812,7 @@ instruction_input(struct_processus *s_et } flockfile(stdin); + (*s_objet_resultat).objet = (void *) readline(""); funlockfile(stdin); @@ -848,7 +837,45 @@ instruction_input(struct_processus *s_et } free((unsigned char *) (*s_objet_resultat).objet); - (*s_objet_resultat).objet = tampon; + + ptr_l = tampon; + i = 0; + + while((*ptr_l) != d_code_fin_chaine) + { + if ((*ptr_l) == '\"') + { + i++; + } + + ptr_l++; + } + + if ((tampon2 = malloc((strlen(tampon) + 1 + ((size_t) i)) * + sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } + + ptr_l = tampon; + ptr_e = tampon2; + + while((*ptr_l) != d_code_fin_chaine) + { + if ((*ptr_l) == '\"') + { + (*ptr_e) = '\\'; + ptr_e++; + } + + (*ptr_e) = (*ptr_l); + ptr_e++; + ptr_l++; + } + + free(tampon); + (*s_objet_resultat).objet = tampon2; add_history((unsigned char *) (*s_objet_resultat).objet); stifle_history(ds_longueur_historique); @@ -1160,11 +1187,11 @@ instruction_int(struct_processus *s_etat return; } - if (((*s_objet_argument_3).type == NOM) || - ((*s_objet_argument_3).type == ALG) || - ((*s_objet_argument_3).type == RPN) || - ((*s_objet_argument_3).type == REL) || - ((*s_objet_argument_3).type == INT)) + if (((*s_objet_argument_3).type != NOM) && + ((*s_objet_argument_3).type != ALG) && + ((*s_objet_argument_3).type != RPN) && + ((*s_objet_argument_3).type != REL) && + ((*s_objet_argument_3).type != INT)) { liberation(s_etat_processus, s_objet_argument_1); liberation(s_etat_processus, s_objet_argument_2); @@ -1176,7 +1203,7 @@ instruction_int(struct_processus *s_etat if ((*s_objet_argument_1).type == INT) { - precision = (*((integer8 *) (*s_objet_argument_1).objet)); + precision = (real8) (*((integer8 *) (*s_objet_argument_1).objet)); } else if ((*s_objet_argument_1).type == REL) { @@ -1490,18 +1517,11 @@ instruction_incr(struct_processus *s_eta if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL) { - if (pthread_mutex_lock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - if (recherche_variable_partagee(s_etat_processus, (*(*s_etat_processus).pointeur_variable_courante).nom, (*(*s_etat_processus).pointeur_variable_courante) .variable_partagee, (*(*s_etat_processus) - .pointeur_variable_courante).origine) == d_faux) + .pointeur_variable_courante).origine) == NULL) { (*s_etat_processus).erreur_systeme = d_es; (*s_etat_processus).erreur_execution = @@ -1511,9 +1531,7 @@ instruction_incr(struct_processus *s_eta } s_objet_argument = (*(*s_etat_processus) - .s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet; + .pointeur_variable_partagee_courante).objet; variable_partagee = d_vrai; } else @@ -1529,7 +1547,7 @@ instruction_incr(struct_processus *s_eta if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1545,10 +1563,8 @@ instruction_incr(struct_processus *s_eta if (variable_partagee == d_vrai) { (*(*s_etat_processus).pointeur_variable_courante).objet = NULL; - (*(*s_etat_processus) - .s_liste_variables_partagees).table - [(*(*s_etat_processus).s_liste_variables_partagees) - .position_variable].objet = s_copie_argument; + (*(*s_etat_processus).pointeur_variable_partagee_courante).objet = + s_copie_argument; } else { @@ -1563,7 +1579,7 @@ instruction_incr(struct_processus *s_eta if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return; @@ -1575,7 +1591,7 @@ instruction_incr(struct_processus *s_eta if (variable_partagee == d_vrai) { if (pthread_mutex_unlock(&((*(*s_etat_processus) - .s_liste_variables_partagees).mutex)) != 0) + .pointeur_variable_partagee_courante).mutex)) != 0) { (*s_etat_processus).erreur_systeme = d_es_processus; return;