version 1.34, 2011/11/15 07:01:37
|
version 1.46, 2012/10/01 11:05:01
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.4 |
RPL/2 (R) version 4.1.11 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 75 formateur_fichier(struct_processus *s_et
|
Line 75 formateur_fichier(struct_processus *s_et
|
|
|
logical1 autorisation_parenthese; |
logical1 autorisation_parenthese; |
logical1 format_degenere; |
logical1 format_degenere; |
logical1 longueur_3bits; |
|
logical1 longueur_6bits; |
|
logical1 presence_signe; |
logical1 presence_signe; |
|
|
struct_liste_chainee *l_atome; |
struct_liste_chainee *l_atome; |
Line 97 formateur_fichier(struct_processus *s_et
|
Line 95 formateur_fichier(struct_processus *s_et
|
unsigned char *chaine_tampon; |
unsigned char *chaine_tampon; |
unsigned char *chaine_sauvegarde; |
unsigned char *chaine_sauvegarde; |
unsigned char *format_chaine; |
unsigned char *format_chaine; |
unsigned char longueur_optimale; |
|
unsigned char parametre_longueur; |
|
unsigned char *ptre; |
unsigned char *ptre; |
unsigned char *ptrl; |
unsigned char *ptrl; |
unsigned char tampon[64 + 1]; |
unsigned char tampon[64 + 1]; |
|
|
unsigned long i; |
unsigned long i; |
unsigned long j; |
unsigned long j; |
unsigned long longueur_binaire; |
|
unsigned long longueur_champ_final; |
|
unsigned long nombre_arguments; |
unsigned long nombre_arguments; |
unsigned long nombre_arguments_fonction; |
unsigned long nombre_arguments_fonction; |
unsigned long nombre_colonnes; |
unsigned long nombre_colonnes; |
Line 114 formateur_fichier(struct_processus *s_et
|
Line 108 formateur_fichier(struct_processus *s_et
|
unsigned long nombre_lignes; |
unsigned long nombre_lignes; |
|
|
integer8 longueur_liste; |
integer8 longueur_liste; |
integer8 longueur_entete; |
|
integer8 longueur_objet; |
|
integer8 longueur_totale; |
integer8 longueur_totale; |
integer8 masque_binaire; |
integer8 masque_binaire; |
integer8 position_1; |
integer8 position_1; |
integer8 position_2; |
integer8 position_2; |
integer8 position_3; |
integer8 position_3; |
|
|
long offset; |
|
|
|
(*recursivite)++; |
(*recursivite)++; |
|
|
if (type == 'F') |
if (type == 'F') |
Line 138 formateur_fichier(struct_processus *s_et
|
Line 128 formateur_fichier(struct_processus *s_et
|
|
|
strcpy(base, " "); |
strcpy(base, " "); |
|
|
longueur_binaire = 0; |
|
masque_binaire = 0; |
masque_binaire = 0; |
|
|
if ((*s_objet).type == ALG) |
if ((*s_objet).type == ALG) |
Line 998 formateur_fichier(struct_processus *s_et
|
Line 987 formateur_fichier(struct_processus *s_et
|
return(NULL); |
return(NULL); |
} |
} |
|
|
longueur_binaire = longueur_entiers_binaires(s_etat_processus); |
|
masque_binaire = masque_entiers_binaires(s_etat_processus); |
masque_binaire = masque_entiers_binaires(s_etat_processus); |
|
|
if ((test_cfsf(s_etat_processus, 43) == d_faux) && |
if ((test_cfsf(s_etat_processus, 43) == d_faux) && |
Line 1508 formateur_fichier(struct_processus *s_et
|
Line 1496 formateur_fichier(struct_processus *s_et
|
return(NULL); |
return(NULL); |
} |
} |
|
|
position_3 = strlen(format_chaine); |
position_3 = strlen(format_chaine) - 1; |
format_chaine[--position_3] = d_code_fin_chaine; |
|
|
if (format_chaine[position_3] != ')') |
|
{ |
|
free(chaine); |
|
free(format_chaine); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_erreur_format_fichier; |
|
return(NULL); |
|
} |
|
|
|
format_chaine[position_3] = d_code_fin_chaine; |
|
|
position_2 = position_1; |
position_2 = position_1; |
|
|
Line 2873 formateur_fichier(struct_processus *s_et
|
Line 2872 formateur_fichier(struct_processus *s_et
|
|
|
strcpy(base, " "); |
strcpy(base, " "); |
|
|
longueur_binaire = 0; |
|
masque_binaire = 0; |
masque_binaire = 0; |
|
|
if ((*s_objet).type == ALG) |
if ((*s_objet).type == ALG) |
Line 3733 formateur_fichier(struct_processus *s_et
|
Line 3731 formateur_fichier(struct_processus *s_et
|
return(NULL); |
return(NULL); |
} |
} |
|
|
longueur_binaire = longueur_entiers_binaires(s_etat_processus); |
|
masque_binaire = masque_entiers_binaires(s_etat_processus); |
masque_binaire = masque_entiers_binaires(s_etat_processus); |
|
|
if ((test_cfsf(s_etat_processus, 43) == d_faux) && |
if ((test_cfsf(s_etat_processus, 43) == d_faux) && |
Line 6207 formateur_fichier_binaire_nombre(struct_
|
Line 6204 formateur_fichier_binaire_nombre(struct_
|
|
|
return(chaine); |
return(chaine); |
} |
} |
|
|
|
// vim: ts=4 |