rpl/src/instructions_w1.c - diff

Return to instructions_w1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_w1.c between versions 1.99 and 1.110

version 1.99, 2015/09/18 13:41:19	version 1.110, 2018/06/01 09:57:28
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.23	RPL/2 (R) version 4.1.29
Copyright (C) 1989-2015 Dr. BERTRAND Joël	Copyright (C) 1989-2018 Dr. BERTRAND Joël

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

Line 410 instruction_write(struct_processus *s_et	Line 410 instruction_write(struct_processus *s_et
integer8 recursivite;	integer8 recursivite;

logical1 format_degenere;	logical1 format_degenere;
	logical1 format_oriente_ligne;
logical1 mise_a_jour;	logical1 mise_a_jour;


sqlite3_stmt *ppStmt;	sqlite3_stmt *ppStmt;

ssize_t ios;	ssize_t ios;
Line 1507 instruction_write(struct_processus *s_et	Line 1507 instruction_write(struct_processus *s_et
return;	return;
}	}

if (strncmp("LENGTH*(", format_chaine, 8) != 0)	if (strcmp("LINE()", format_chaine) == 0)
{	{
free(format_chaine);	format_oriente_ligne = d_vrai;
	format_degenere = d_vrai;
liberation(s_etat_processus, s_objet_argument_2);
liberation(s_etat_processus, s_objet_argument_1);

(*s_etat_processus).erreur_execution =
d_ex_erreur_format_fichier;
return;
}	}
	else
longueur = (integer8) strlen(format_chaine);

if (format_chaine[longueur - 1] != ')')
{	{
free(format_chaine);	format_oriente_ligne = d_faux;

liberation(s_etat_processus, s_objet_argument_2);	if (strncmp("LENGTH*(", format_chaine, 8) != 0)
liberation(s_etat_processus, s_objet_argument_1);	{
	free(format_chaine);

(*s_etat_processus).erreur_execution =	liberation(s_etat_processus, s_objet_argument_2);
d_ex_erreur_format_fichier;	liberation(s_etat_processus, s_objet_argument_1);
return;
}

format_chaine[longueur] = d_code_fin_chaine;	(*s_etat_processus).erreur_execution =
	d_ex_erreur_format_fichier;
	return;
	}

if (format_chaine[8] == '*')	longueur = (integer8) strlen(format_chaine);
{
format_degenere = d_vrai;
}
else
{
// Détermination de la longueur
format_degenere = d_faux;

if (sscanf(&(format_chaine[8]), "%lld", &longueur) != 1)	if (format_chaine[longueur - 1] != ')')
{	{
free(format_chaine);	free(format_chaine);

Line 1555 instruction_write(struct_processus *s_et	Line 1541 instruction_write(struct_processus *s_et
d_ex_erreur_format_fichier;	d_ex_erreur_format_fichier;
return;	return;
}	}

	format_chaine[longueur] = d_code_fin_chaine;

	if (format_chaine[8] == '*')
	{
	format_degenere = d_vrai;
	}
	else
	{
	// Détermination de la longueur
	format_degenere = d_faux;

	if (sscanf(&(format_chaine[8]), "%lld", &longueur)
	!= 1)
	{
	free(format_chaine);

	liberation(s_etat_processus,
	s_objet_argument_2);
	liberation(s_etat_processus,
	s_objet_argument_1);

	(*s_etat_processus).erreur_execution =
	d_ex_erreur_format_fichier;
	return;
	}
	}
}	}

free(format_chaine);	free(format_chaine);
Line 1596 instruction_write(struct_processus *s_et	Line 1609 instruction_write(struct_processus *s_et

free(chaine);	free(chaine);

	if (format_oriente_ligne == d_vrai)
	{
	if (fwrite("\n", 1, 1, (*descripteur).descripteur_c)
	!= 1)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_erreur_fichier;
	return;
	}
	}

l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
l_element_courant_format = (*l_element_courant_format)	l_element_courant_format = (*l_element_courant_format)
.suivant;	.suivant;
Line 2522 instruction_wfproc(struct_processus *s_e	Line 2546 instruction_wfproc(struct_processus *s_e
{	{
if (envoi_signal_processus(((((struct_processus_fils *)	if (envoi_signal_processus(((((struct_processus_fils *)
((l_element_courant).donnee).objet)).thread).pid,	((l_element_courant).donnee).objet)).thread).pid,
rpl_signull) != 0)	rpl_signull, d_faux) != 0)
{	{
drapeau_fin = d_vrai;	drapeau_fin = d_vrai;
}	}
Line 3073 options_sockets(struct_processus *s_etat	Line 3097 options_sockets(struct_processus *s_etat
}	}
}	}

	# ifdef SO_PRIORITY
if (((*s_socket).options & (1 << d_PRIORITY)) != 0)	if (((*s_socket).options & (1 << d_PRIORITY)) != 0)
{	{
if (setsockopt((*s_socket).socket, SOL_SOCKET, SO_PRIORITY,	if (setsockopt((*s_socket).socket, SOL_SOCKET, SO_PRIORITY,
Line 3081 options_sockets(struct_processus *s_etat	Line 3106 options_sockets(struct_processus *s_etat
return(d_erreur);	return(d_erreur);
}	}
}	}
	# endif

// Les deux options suivantes ne peuvent être positionnées simultanément.	// Les deux options suivantes ne peuvent être positionnées simultanément.

Line 3094 options_sockets(struct_processus *s_etat	Line 3120 options_sockets(struct_processus *s_etat
}	}
}	}

	# ifdef SO_RCVBUFFORCE
if (((*s_socket).options & (1 << d_FORCE_RECEIVE_BUFFER)) != 0)	if (((*s_socket).options & (1 << d_FORCE_RECEIVE_BUFFER)) != 0)
{	{
if (setsockopt((*s_socket).socket, SOL_SOCKET, SO_RCVBUFFORCE,	if (setsockopt((*s_socket).socket, SOL_SOCKET, SO_RCVBUFFORCE,
Line 3103 options_sockets(struct_processus *s_etat	Line 3130 options_sockets(struct_processus *s_etat
return(d_erreur);	return(d_erreur);
}	}
}	}
	# endif

// Même remarque	// Même remarque

Line 3116 options_sockets(struct_processus *s_etat	Line 3144 options_sockets(struct_processus *s_etat
}	}
}	}

	# ifdef SO_SNDBUFFORCE
if (((*s_socket).options & (1 << d_FORCE_SEND_BUFFER)) != 0)	if (((*s_socket).options & (1 << d_FORCE_SEND_BUFFER)) != 0)
{	{
if (setsockopt((*s_socket).socket, SOL_SOCKET, SO_SNDBUFFORCE,	if (setsockopt((*s_socket).socket, SOL_SOCKET, SO_SNDBUFFORCE,
Line 3125 options_sockets(struct_processus *s_etat	Line 3154 options_sockets(struct_processus *s_etat
return(d_erreur);	return(d_erreur);
}	}
}	}
	# endif

if (((*s_socket).options & (1 << d_RECEIVING_TIMEOUT)) != 0)	if (((*s_socket).options & (1 << d_RECEIVING_TIMEOUT)) != 0)
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.99
changed lines
	Added in v.1.110