rpl/src/instructions_b1.c - diff

Return to instructions_b1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_b1.c between versions 1.4 and 1.5

version 1.4, 2010/03/04 10:17:49	version 1.5, 2010/03/06 18:29:07
Line 241 instruction_b_vers_r(struct_processus *s	Line 241 instruction_b_vers_r(struct_processus *s
void	void
instruction_backspace(struct_processus *s_etat_processus)	instruction_backspace(struct_processus *s_etat_processus)
{	{
file *descripteur;	struct_descripteur_fichier *descripteur;

integer8 position_finale;	integer8 position_finale;
integer8 position_initiale;	integer8 position_initiale;
Line 304 instruction_backspace(struct_processus *	Line 304 instruction_backspace(struct_processus *
if ((*s_objet_argument).type == FCH)	if ((*s_objet_argument).type == FCH)
{	{
/*	/*
* Vérification des verrous	* Fichiers à accès séquentiel
*/	*/

lock.l_type = F_RDLCK;	if ((((struct_fichier ) (*s_objet_argument).objet)).acces == 'S')
lock.l_whence = SEEK_SET;
lock.l_start = 0;
lock.l_len = 0;
lock.l_pid = getpid();

if ((descripteur = descripteur_fichier(s_etat_processus,
(struct_fichier ) (s_objet_argument).objet)) == NULL)
{	{
liberation(s_etat_processus, s_objet_argument);	/*
return;	* Vérification des verrous
}	*/

if (fcntl(fileno(descripteur), F_GETLK, &lock) == -1)	lock.l_type = F_RDLCK;
{	lock.l_whence = SEEK_SET;
liberation(s_etat_processus, s_objet_argument);	lock.l_start = 0;
	lock.l_len = 0;
	lock.l_pid = getpid();

(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	if ((descripteur = descripteur_fichier(s_etat_processus,
return;	(struct_fichier ) (s_objet_argument).objet)) == NULL)
}	{
	liberation(s_etat_processus, s_objet_argument);
	return;
	}

if (lock.l_type != F_UNLCK)	if (fcntl(fileno((*descripteur).descripteur_c), F_GETLK, &lock)
{	== -1)
liberation(s_etat_processus, s_objet_argument);	{
	liberation(s_etat_processus, s_objet_argument);

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

if ((((struct_fichier ) (*s_objet_argument).objet)).acces == 'S')	if (lock.l_type != F_UNLCK)
{	{
/*	liberation(s_etat_processus, s_objet_argument);
* Fichiers à accès séquentiel
*/	(*s_etat_processus).erreur_execution =
	d_ex_fichier_verrouille;
	return;
	}

if ((((struct_fichier ) (*s_objet_argument).objet)).binaire	if ((((struct_fichier ) (*s_objet_argument).objet)).binaire
== 'N')	== 'N')
Line 350 instruction_backspace(struct_processus *	Line 351 instruction_backspace(struct_processus *
* Fichiers formatés	* Fichiers formatés
*/	*/

if ((position_finale = ftell(descripteur)) == -1)	if ((position_finale = ftell((*descripteur).descripteur_c))
	== -1)
{	{
liberation(s_etat_processus, s_objet_argument);	liberation(s_etat_processus, s_objet_argument);

Line 381 instruction_backspace(struct_processus *	Line 383 instruction_backspace(struct_processus *
longueur_effective = longueur_questure;	longueur_effective = longueur_questure;
}	}

if (fseek(descripteur, position_initiale, SEEK_SET) != 0)	if (fseek((*descripteur).descripteur_c, position_initiale,
	SEEK_SET) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_erreur_fichier;	d_es_erreur_fichier;
Line 390 instruction_backspace(struct_processus *	Line 393 instruction_backspace(struct_processus *

longueur_effective = fread(tampon_lecture,	longueur_effective = fread(tampon_lecture,
(size_t) sizeof(unsigned char), longueur_effective,	(size_t) sizeof(unsigned char), longueur_effective,
descripteur);	(*descripteur).descripteur_c);

pointeur = longueur_effective - 1;	pointeur = longueur_effective - 1;
presence_indicateur = d_faux;	presence_indicateur = d_faux;
Line 416 instruction_backspace(struct_processus *	Line 419 instruction_backspace(struct_processus *
* Le début du fichier est atteint.	* Le début du fichier est atteint.
*/	*/

if (fseek(descripteur, 0, SEEK_SET) != 0)	if (fseek((*descripteur).descripteur_c, 0, SEEK_SET) != 0)
{	{
liberation(s_etat_processus, s_objet_argument);	liberation(s_etat_processus, s_objet_argument);
free(tampon_lecture);	free(tampon_lecture);
Line 463 instruction_backspace(struct_processus *	Line 466 instruction_backspace(struct_processus *
position_finale--;	position_finale--;
}	}

if (fseek(descripteur, position_initiale, SEEK_SET) != 0)	if (fseek((*descripteur).descripteur_c, position_initiale,
	SEEK_SET) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_erreur_fichier;	d_es_erreur_fichier;
Line 472 instruction_backspace(struct_processus *	Line 476 instruction_backspace(struct_processus *

longueur_effective = fread(tampon_lecture,	longueur_effective = fread(tampon_lecture,
(size_t) sizeof(unsigned char), longueur_effective,	(size_t) sizeof(unsigned char), longueur_effective,
descripteur);	(*descripteur).descripteur_c);

pointeur = longueur_effective - 1;	pointeur = longueur_effective - 1;
presence_indicateur = d_faux;	presence_indicateur = d_faux;
Line 519 instruction_backspace(struct_processus *	Line 523 instruction_backspace(struct_processus *
return;	return;
}	}

if (fseek(descripteur, position_finale, SEEK_SET) != 0)	if (fseek((*descripteur).descripteur_c, position_finale,
	SEEK_SET) != 0)
{	{
liberation(s_etat_processus, s_objet_argument);	liberation(s_etat_processus, s_objet_argument);
free(tampon_lecture);	free(tampon_lecture);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.4
changed lines
	Added in v.1.5