rpl/src/formateur_fichiers.c - diff

Return to formateur_fichiers.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur_fichiers.c between versions 1.34 and 1.51

version 1.34, 2011/11/15 07:01:37	version 1.51, 2013/03/08 14:55:38
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.4	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2013 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 2731 formateur_fichier(struct_processus *s_et	Line 2730 formateur_fichier(struct_processus *s_et
* Longueur : (pour l'instruction backspace)	* Longueur : (pour l'instruction backspace)
*	*
* 00 XXXXXX longueur sur 6 bits	* 00 XXXXXX longueur sur 6 bits
* 01 XXXXXX longueur sur 16 bits	* 01 000000 longueur sur 16 bits
* 10 XXXXXX longueur sur 32 bits	* 10 000000 longueur sur 32 bits
* 11 XXXXXX longueur sur 64 bits	* 11 000000 longueur sur 64 bits
*	*
* Exemples :	* Exemples :
* [00 XXXXXX]	* [00 XXXXXX]
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 3928 formateur_fichier(struct_processus *s_et	Line 3925 formateur_fichier(struct_processus *s_et
/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Complexe	Complexe
	Poids fort 0001 10
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 4032 formateur_fichier(struct_processus *s_et	Line 4030 formateur_fichier(struct_processus *s_et
/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Entier	Entier
	Poids fort 0001 00
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 5225 formateur_fichier(struct_processus *s_et	Line 5224 formateur_fichier(struct_processus *s_et
/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Réel	Réel
	Poids fort 0001 01
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 5845 formateur_fichier_reel(struct_processus	Line 5845 formateur_fichier_reel(struct_processus
}	}
}	}
}	}

strcpy(chaine, tampon);	strcpy(chaine, tampon);
}	}

Line 6207 formateur_fichier_binaire_nombre(struct_	Line 6208 formateur_fichier_binaire_nombre(struct_

return(chaine);	return(chaine);
}	}

	// vim: ts=4

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.34
changed lines
	Added in v.1.51