rpl/src/formateur_fichiers.c - diff

Return to formateur_fichiers.c CVS log

Up to [local] / rpl / src

version 1.38, 2012/01/17 14:44:05	version 1.43, 2012/06/22 10:12:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.6	RPL/2 (R) version 4.1.9
Copyright (C) 1989-2012 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 1497 formateur_fichier(struct_processus *s_et	Line 1497 formateur_fichier(struct_processus *s_et
}	}

position_3 = strlen(format_chaine);	position_3 = strlen(format_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;	format_chaine[--position_3] = d_code_fin_chaine;

position_2 = position_1;	position_2 = position_1;
Line 6193 formateur_fichier_binaire_nombre(struct_	Line 6204 formateur_fichier_binaire_nombre(struct_

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

	// vim: ts=4