rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur.c between versions 1.58 and 1.67

CVSweb interface <joel.bertrand@systella.fr>

version 1.58, 2013/03/20 17:11:43	version 1.67, 2014/01/26 18:21:29
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.17
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2014 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 103 formateur(struct_processus *s_etat_proce	Line 103 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

if (alsprintf(&chaine, "@ %016lX", (((integer8 )	if (alsprintf(&chaine, "@ %016llX", (((unsigned long long )
((*s_objet).objet)))) < 0)	((*s_objet).objet)))) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 119 formateur(struct_processus *s_etat_proce	Line 119 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

if (alsprintf(&chaine, "Library $ %016lX [%s]",	if (alsprintf(&chaine, "Library $ %016llX [%s]",
(integer8) (((struct_bibliotheque )	(unsigned long long) (((struct_bibliotheque )
(s_objet).objet)).descripteur, (((struct_bibliotheque *)	(s_objet).objet)).descripteur, (((struct_bibliotheque *)
(*s_objet).objet)).nom) < 0)	(*s_objet).objet)).nom) < 0)
{	{
Line 137 formateur(struct_processus *s_etat_proce	Line 137 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

if (alsprintf(&chaine, "Semaphore $ %016lX '%s'",	if (alsprintf(&chaine, "Semaphore $ %016llX '%s'", (unsigned long long)
&((((struct_semaphore ) (*s_objet).objet)).semaphore),	&((((struct_semaphore ) (*s_objet).objet)).semaphore),
(((struct_semaphore ) (*s_objet).objet)).nom) < 0)	(((struct_semaphore ) (*s_objet).objet)).nom) < 0)
{	{
Line 158 formateur(struct_processus *s_etat_proce	Line 158 formateur(struct_processus *s_etat_proce
"MYSQL") == 0)	"MYSQL") == 0)
{	{
# ifdef MYSQL_SUPPORT	# ifdef MYSQL_SUPPORT
if (alsprintf(&chaine, "Sql $ %016lX (%s)",	if (alsprintf(&chaine, "Sql $ %016llX (%s)",
(long unsigned int) (((struct_connecteur_sql )	(unsigned long long) (((struct_connecteur_sql )
(*s_objet).objet)).descripteur.mysql,	(*s_objet).objet)).descripteur.mysql,
(((struct_connecteur_sql ) (*s_objet).objet)).type) < 0)	(((struct_connecteur_sql ) (*s_objet).objet)).type) < 0)
{	{
Line 185 formateur(struct_processus *s_etat_proce	Line 185 formateur(struct_processus *s_etat_proce
"POSTGRESQL") == 0)	"POSTGRESQL") == 0)
{	{
# ifdef POSTGRESQL_SUPPORT	# ifdef POSTGRESQL_SUPPORT
if (alsprintf(&chaine, "Sql $ %016lX (%s)",	if (alsprintf(&chaine, "Sql $ %016llX (%s)",
(long unsigned int) (((struct_connecteur_sql )	(unsigned long long) (((struct_connecteur_sql )
(*s_objet).objet)).descripteur.postgresql,	(*s_objet).objet)).descripteur.postgresql,
(((struct_connecteur_sql ) (*s_objet).objet)).type) < 0)	(((struct_connecteur_sql ) (*s_objet).objet)).type) < 0)
{	{
Line 227 formateur(struct_processus *s_etat_proce	Line 227 formateur(struct_processus *s_etat_proce
if (((((struct_processus_fils ) (s_objet).objet)).thread)	if (((((struct_processus_fils ) (s_objet).objet)).thread)
.processus_detache == d_vrai)	.processus_detache == d_vrai)
{	{
if (alsprintf(&chaine, "Process $ %016lX", (integer8)	if (alsprintf(&chaine, "Process $ %016llX", (unsigned long long)
((((struct_processus_fils ) (s_objet).objet)).thread)	((((struct_processus_fils ) (s_objet).objet)).thread)
.pid) < 0)	.pid) < 0)
{	{
Line 237 formateur(struct_processus *s_etat_proce	Line 237 formateur(struct_processus *s_etat_proce
}	}
else	else
{	{
if (alsprintf(&chaine, "Light weight process $ %016lX/%016lX",	if (alsprintf(&chaine, "Light weight process $ %016llX/%016llX",
(integer8) ((((struct_processus_fils *)	(unsigned long long) ((((struct_processus_fils *)
(*s_objet).objet)).thread).pid,	(*s_objet).objet)).thread).pid,
(integer8) ((((struct_processus_fils *)	(unsigned long long) ((((struct_processus_fils *)
(*s_objet).objet)).thread).tid) < 0)	(*s_objet).objet)).thread).tid) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 257 formateur(struct_processus *s_etat_proce	Line 257 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

if (alsprintf(&chaine, "File $ %016lX", (unsigned long)	if (alsprintf(&chaine, "File $ %016llX", (unsigned long long)
(((struct_fichier ) ((*s_objet).objet))).descripteur) < 0)	(((struct_fichier ) ((*s_objet).objet))).descripteur) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 389 formateur(struct_processus *s_etat_proce	Line 389 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

if (alsprintf(&chaine, "Socket $ %016lX",	if (alsprintf(&chaine, "Socket $ %016llX", (unsigned long long)
(unsigned long) (((struct_socket )	(((struct_socket ) ((*s_objet).objet))).socket) < 0)
((*s_objet).objet))).socket) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
Line 1587 formateur(struct_processus *s_etat_proce	Line 1586 formateur(struct_processus *s_etat_proce
-- Base décimale ---------------------------------------------------------------	-- Base décimale ---------------------------------------------------------------
*/	*/

sprintf(tampon, "%llu", (((logical8 )	sprintf(tampon, "%llu", (((unsigned long long )
((*s_objet).objet))) & masque_binaire);	((*s_objet).objet))) & masque_binaire);
strcpy(base, "d");	strcpy(base, "d");
}	}
Line 1599 formateur(struct_processus *s_etat_proce	Line 1598 formateur(struct_processus *s_etat_proce
-- Base octale -----------------------------------------------------------------	-- Base octale -----------------------------------------------------------------
*/	*/

sprintf(tampon, "%llo", (((logical8 )	sprintf(tampon, "%llo", (((unsigned long long )
((*s_objet).objet))) & masque_binaire);	((*s_objet).objet))) & masque_binaire);
strcpy(base, "o");	strcpy(base, "o");
}	}
Line 1610 formateur(struct_processus *s_etat_proce	Line 1609 formateur(struct_processus *s_etat_proce
-- Bases hexadécimale et binaire -----------------------------------------------	-- Bases hexadécimale et binaire -----------------------------------------------
*/	*/

sprintf(tampon, "%llX", (((logical8 )	sprintf(tampon, "%llX", (((unsigned long long )
((*s_objet).objet))) & masque_binaire);	((*s_objet).objet))) & masque_binaire);

if (test_cfsf(s_etat_processus, 43) == d_vrai)	if (test_cfsf(s_etat_processus, 43) == d_vrai)
Line 1954 formateur(struct_processus *s_etat_proce	Line 1953 formateur(struct_processus *s_etat_proce
.nombre_elements; i++)	.nombre_elements; i++)
{	{
chaine_sauvegarde = chaine;	chaine_sauvegarde = chaine;
chaine_formatee = formateur(s_etat_processus, offset,	chaine_formatee = formateur(s_etat_processus, (long) offset,
(((struct_tableau ) (*s_objet).objet)).elements[i]);	(((struct_tableau ) (*s_objet).objet)).elements[i]);

if (chaine_formatee == NULL)	if (chaine_formatee == NULL)
Line 2158 formateur(struct_processus *s_etat_proce	Line 2157 formateur(struct_processus *s_etat_proce
while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
chaine_sauvegarde = chaine;	chaine_sauvegarde = chaine;
chaine_formatee = formateur(s_etat_processus, offset,	chaine_formatee = formateur(s_etat_processus, (long) offset,
(*l_element_courant).donnee);	(*l_element_courant).donnee);

if (chaine_formatee == NULL)	if (chaine_formatee == NULL)
Line 2357 formateur(struct_processus *s_etat_proce	Line 2356 formateur(struct_processus *s_etat_proce
strcpy(chaine, "[[");	strcpy(chaine, "[[");
offset = ((integer8) strlen(chaine)) + offset_initial - 1;	offset = ((integer8) strlen(chaine)) + offset_initial - 1;

if ((longueurs_maximales = malloc(sizeof(unsigned long) * 2 *	if ((longueurs_maximales = malloc(sizeof(integer8) * 2 *
((size_t) nombre_colonnes))) == NULL)	((size_t) nombre_colonnes))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2593 formateur(struct_processus *s_etat_proce	Line 2592 formateur(struct_processus *s_etat_proce
strcpy(chaine, "[[");	strcpy(chaine, "[[");
offset = ((integer8) strlen(chaine)) + offset_initial - 1;	offset = ((integer8) strlen(chaine)) + offset_initial - 1;

if ((longueurs_maximales = malloc(sizeof(unsigned long) *	if ((longueurs_maximales = malloc(sizeof(integer8) *
((size_t) nombre_colonnes))) == NULL)	((size_t) nombre_colonnes))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 2785 formateur(struct_processus *s_etat_proce	Line 2784 formateur(struct_processus *s_etat_proce
strcpy(chaine, "[[");	strcpy(chaine, "[[");
offset = ((integer8) strlen(chaine)) + offset_initial - 1;	offset = ((integer8) strlen(chaine)) + offset_initial - 1;

if ((longueurs_maximales = malloc(sizeof(unsigned long) * 2 *	if ((longueurs_maximales = malloc(sizeof(integer8) * 2 *
((size_t) nombre_colonnes))) == NULL)	((size_t) nombre_colonnes))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 2998 formateur(struct_processus *s_etat_proce	Line 2997 formateur(struct_processus *s_etat_proce
}	}
else if ((*s_objet).type == MTX)	else if ((*s_objet).type == MTX)
{	{
if (alsprintf(&chaine, "Mutex $ %016lX owned by $ %016lX",	if (alsprintf(&chaine, "Mutex $ %016llX owned by $ %016llX",
(unsigned long) &((((struct_mutex ) (*s_objet).objet)).mutex),	&((((struct_mutex ) (*s_objet).objet)).mutex),
(unsigned long) (((struct_mutex ) (*s_objet).objet)).tid) < 0)	(logical8) (((struct_mutex ) (*s_objet).objet)).tid) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);

Removed from v.1.58
changed lines
	Added in v.1.67