rpl/src/instructions_w1.c - diff

Return to instructions_w1.c CVS log

Up to [local] / rpl / src

version 1.33, 2011/03/12 15:32:03	version 1.43, 2011/06/27 09:05:00
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.21	RPL/2 (R) version 4.1.0
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 1413 instruction_write(struct_processus *s_et	Line 1413 instruction_write(struct_processus *s_et
/*	/*
* Sockets non formatées	* Sockets non formatées
*/	*/

	chaine = NULL;
}	}
else	else
{	{
Line 1584 instruction_write(struct_processus *s_et	Line 1586 instruction_write(struct_processus *s_et
longueur_effective, 0, (struct sockaddr *)	longueur_effective, 0, (struct sockaddr *)
&adresse_unix, sizeof(adresse_unix)) < 0)	&adresse_unix, sizeof(adresse_unix)) < 0)
{	{
	ios = errno;

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
while(sem_wait(&((*s_etat_processus)	while(sem_wait(&((*s_etat_processus)
.semaphore_fork)) == -1)	.semaphore_fork)) == -1)
Line 1600 instruction_write(struct_processus *s_et	Line 1604 instruction_write(struct_processus *s_et
}	}
}	}

(*s_etat_processus).erreur_systeme =	if ((ios == EPIPE) \|\| (ios == ECONNRESET))
d_es_erreur_fichier;	{
	(*s_etat_processus).erreur_execution =
	d_ex_erreur_acces_fichier;
	return;
	}


	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
return;	return;
}	}