version 1.45, 2012/05/21 17:25:43
|
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 108 instruction_format(struct_processus *s_e
|
Line 108 instruction_format(struct_processus *s_e
|
printf(" { \"CHARACTER\" }\n\n"); |
printf(" { \"CHARACTER\" }\n\n"); |
|
|
printf(" FLOW\n"); |
printf(" FLOW\n"); |
printf(" { \"CHARACTER*(*)\" }\n"); |
|
printf(" { \"CHARACTER*(%s)\" }\n", d_INT); |
|
printf(" { \"LENGTH*(*)\" }\n"); |
printf(" { \"LENGTH*(*)\" }\n"); |
printf(" { \"LENGTH*(%s)\" }\n", d_INT); |
printf(" { \"LENGTH*(%s)\" }\n", d_INT); |
|
|
Line 148 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) |
{ |
{ |