version 1.46, 2012/06/22 10:12:19
|
version 1.47, 2012/07/05 08:05:50
|
Line 72 instruction_format(struct_processus *s_e
|
Line 72 instruction_format(struct_processus *s_e
|
} |
} |
|
|
printf(" { \"STANDARD*(*)\" }\n"); |
printf(" { \"STANDARD*(*)\" }\n"); |
printf(" { \"lambda\" 'SEQUENTIAL' 'NEW' 'WRITEONLY' 'FORMATTED' }" |
printf(" { { \"NAME\" \"lambda\" } \"SEQUENTIAL\" \"NEW\"" |
" OPEN FORMAT\n\n"); |
"\"WRITEONLY\" \"FORMATTED\" } OPEN\n FORMAT\n\n"); |
|
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
Line 146 instruction_format(struct_processus *s_e
|
Line 146 instruction_format(struct_processus *s_e
|
if (((*s_objet_argument_1).type == FCH) && |
if (((*s_objet_argument_1).type == FCH) && |
((*s_objet_argument_2).type == LST)) |
((*s_objet_argument_2).type == LST)) |
{ |
{ |
if ((*((struct_fichier *) (*s_objet_argument_1).objet)).binaire |
|
== 'F') |
|
{ |
|
liberation(s_etat_processus, s_objet_argument_1); |
|
liberation(s_etat_processus, s_objet_argument_2); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_erreur_format_fichier; |
|
return; |
|
} |
|
|
|
if ((s_copie_argument_1 = copie_objet(s_etat_processus, |
if ((s_copie_argument_1 = copie_objet(s_etat_processus, |
s_objet_argument_1, 'N')) == NULL) |
s_objet_argument_1, 'N')) == NULL) |
{ |
{ |