version 1.103, 2017/06/28 09:20:35
|
version 1.114, 2021/03/13 12:50:46
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.27 |
RPL/2 (R) version 4.1.33 |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
Copyright (C) 1989-2021 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 869 instruction_read(struct_processus *s_eta
|
Line 869 instruction_read(struct_processus *s_eta
|
|
|
logical1 device; |
logical1 device; |
logical1 format_degenere; |
logical1 format_degenere; |
|
logical1 format_oriente_ligne; |
logical1 indicateur_48; |
logical1 indicateur_48; |
logical1 presence_chaine; |
logical1 presence_chaine; |
logical1 presence_indicateur; |
logical1 presence_indicateur; |
Line 2072 instruction_read(struct_processus *s_eta
|
Line 2073 instruction_read(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if (strncmp("LENGTH*(", format_chaine, 8) != 0) |
if (strcmp("LINE*(*)", format_chaine) == 0) |
{ |
{ |
liberation(s_etat_processus, s_objet_argument_1); |
format_degenere = d_vrai; |
liberation(s_etat_processus, s_objet_resultat); |
format_oriente_ligne = d_vrai; |
free(format_chaine); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_erreur_format_fichier; |
|
return; |
|
} |
} |
|
else |
longueur = (integer8) strlen(format_chaine); |
|
|
|
if (format_chaine[longueur - 1] != ')') |
|
{ |
{ |
liberation(s_etat_processus, s_objet_argument_1); |
format_oriente_ligne = d_faux; |
liberation(s_etat_processus, s_objet_resultat); |
|
free(format_chaine); |
|
|
|
(*s_etat_processus).erreur_execution = |
if (strncmp("LENGTH*(", format_chaine, 8) != 0) |
d_ex_erreur_format_fichier; |
{ |
return; |
liberation(s_etat_processus, s_objet_argument_1); |
} |
liberation(s_etat_processus, s_objet_resultat); |
|
free(format_chaine); |
|
|
format_chaine[longueur] = d_code_fin_chaine; |
(*s_etat_processus).erreur_execution = |
|
d_ex_erreur_format_fichier; |
|
return; |
|
} |
|
|
if (format_chaine[8] == '*') |
longueur = (integer8) strlen(format_chaine); |
{ |
|
format_degenere = d_vrai; |
|
} |
|
else |
|
{ |
|
// Détermination de la longueur |
|
format_degenere = d_faux; |
|
|
|
if (sscanf(&(format_chaine[8]), "%lld", &longueur) != 1) |
if (format_chaine[longueur - 1] != ')') |
{ |
{ |
liberation(s_etat_processus, s_objet_argument_1); |
liberation(s_etat_processus, s_objet_argument_1); |
liberation(s_etat_processus, s_objet_resultat); |
liberation(s_etat_processus, s_objet_resultat); |
Line 2117 instruction_read(struct_processus *s_eta
|
Line 2105 instruction_read(struct_processus *s_eta
|
d_ex_erreur_format_fichier; |
d_ex_erreur_format_fichier; |
return; |
return; |
} |
} |
|
|
|
format_chaine[longueur] = d_code_fin_chaine; |
|
|
|
if (format_chaine[8] == '*') |
|
{ |
|
format_degenere = d_vrai; |
|
} |
|
else |
|
{ |
|
// Détermination de la longueur |
|
format_degenere = d_faux; |
|
|
|
if (sscanf(&(format_chaine[8]), "%lld", &longueur) |
|
!= 1) |
|
{ |
|
liberation(s_etat_processus, |
|
s_objet_argument_1); |
|
liberation(s_etat_processus, s_objet_resultat); |
|
free(format_chaine); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_erreur_format_fichier; |
|
return; |
|
} |
|
} |
} |
} |
|
|
free(format_chaine); |
free(format_chaine); |
Line 2201 instruction_read(struct_processus *s_eta
|
Line 2214 instruction_read(struct_processus *s_eta
|
|
|
tampon3[index++] = (unsigned char) c; |
tampon3[index++] = (unsigned char) c; |
} |
} |
|
|
|
if (format_oriente_ligne == d_vrai) |
|
{ |
|
if (c == '\n') |
|
{ |
|
break; |
|
} |
|
} |
} while(c != EOF); |
} while(c != EOF); |
|
|
if (device == d_faux) |
if (device == d_faux) |
Line 3526 instruction_read(struct_processus *s_eta
|
Line 3547 instruction_read(struct_processus *s_eta
|
|
|
do |
do |
{ |
{ |
if ((tampon_lecture = malloc((((long long unsigned int) |
if ((tampon_lecture = malloc((((size_t) longueur_questure) + 1) |
longueur_questure) + 1) * |
* sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = |
(*s_etat_processus).erreur_systeme = |
d_es_allocation_memoire; |
d_es_allocation_memoire; |
Line 3708 instruction_read(struct_processus *s_eta
|
Line 3728 instruction_read(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if (((*s_objet_type).objet = malloc((long long unsigned int) |
if (((*s_objet_type).objet = malloc((size_t) longueur_enregistrement |
longueur_enregistrement * |
* sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |