rpl/src/instructions_d4.c - diff

Return to instructions_d4.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_d4.c between versions 1.42 and 1.56

version 1.42, 2012/12/13 16:59:41	version 1.56, 2014/04/25 07:37:31
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.11	RPL/2 (R) version 4.1.18
Copyright (C) 1989-2012 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 42 instruction_delete(struct_processus *s_e	Line 42 instruction_delete(struct_processus *s_e

file *fichier;	file *fichier;

	int ios;

integer8 lecture_i64;	integer8 lecture_i64;

logical1 erreur;	logical1 erreur;
Line 59 instruction_delete(struct_processus *s_e	Line 61 instruction_delete(struct_processus *s_e

struct stat requete;	struct stat requete;

	struct timespec attente;

unsigned char *commande;	unsigned char *commande;
unsigned char *nom;	unsigned char *nom;
unsigned char *utf8;	unsigned char *utf8;
Line 316 instruction_delete(struct_processus *s_e	Line 320 instruction_delete(struct_processus *s_e
}	}

if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,	if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
commande, strlen(commande), &ppStmt, &queue)	commande, (int) strlen(commande), &ppStmt, &queue)
!= SQLITE_OK)	!= SQLITE_OK)
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
return;	return;
}	}

if (sqlite3_step(ppStmt) != SQLITE_ROW)	attente.tv_sec = 0;
	attente.tv_nsec = GRANULARITE_us * 1000;

	do
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	ios = sqlite3_step(ppStmt);
return;
}	if (ios == SQLITE_ROW)
	{
	break;
	}
	else if ((ios == SQLITE_BUSY) \|\| (ios == SQLITE_LOCKED))
	{
	nanosleep(&attente, NULL);
	INCR_GRANULARITE(attente.tv_nsec);
	}
	else
	{
	(*s_etat_processus).erreur_systeme =
	d_es_erreur_fichier;
	return;
	}
	} while(ios != SQLITE_ROW);

lecture_i64 = sqlite3_column_int64(ppStmt, 0);	lecture_i64 = sqlite3_column_int64(ppStmt, 0);

Line 364 instruction_delete(struct_processus *s_e	Line 386 instruction_delete(struct_processus *s_e
}	}

if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,	if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
commande, strlen(commande), &ppStmt, &queue)	commande, (int) strlen(commande), &ppStmt, &queue)
!= SQLITE_OK)	!= SQLITE_OK)
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 430 instruction_delete(struct_processus *s_e	Line 452 instruction_delete(struct_processus *s_e
free(utf8);	free(utf8);

if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,	if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
commande, strlen(commande), &ppStmt, &queue)	commande, (int) strlen(commande), &ppStmt, &queue)
!= SQLITE_OK)	!= SQLITE_OK)
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
return;	return;
}	}

switch(sqlite3_step(ppStmt))	attente.tv_sec = 0;
	attente.tv_nsec = GRANULARITE_us * 1000;

	do
{	{
case SQLITE_ROW:	ios = sqlite3_step(ppStmt);
{
// Correspondance
break;
}

case SQLITE_DONE:	switch(ios)
{	{
// Aucune correspondance	case SQLITE_ROW:
if (sqlite3_finalize(ppStmt) != SQLITE_OK)
{	{
(*s_etat_processus).erreur_systeme =	// Correspondance
d_es_erreur_fichier;	break;
return;
}	}

free(commande);	case SQLITE_DONE:
	{
	// Aucune correspondance
	if (sqlite3_finalize(ppStmt) != SQLITE_OK)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_erreur_fichier;
	return;
	}

liberation(s_etat_processus, s_objet_argument);	free(commande);
liberation(s_etat_processus, s_objet_indice);

(*s_etat_processus).erreur_execution =	liberation(s_etat_processus, s_objet_argument);
d_ex_enregistrement_inexistant;	liberation(s_etat_processus, s_objet_indice);
return;
}

default:	(*s_etat_processus).erreur_execution =
{	d_ex_enregistrement_inexistant;
(*s_etat_processus).erreur_systeme =	return;
d_es_erreur_fichier;	}
return;
	case SQLITE_LOCKED:
	case SQLITE_BUSY:
	{
	nanosleep(&attente, NULL);
	INCR_GRANULARITE(attente.tv_nsec);
	break;
	}

	default:
	{
	(*s_etat_processus).erreur_systeme =
	d_es_erreur_fichier;
	return;
	}
}	}
}	} while(ios != SQLITE_ROW);

if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)	if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)
{	{
Line 505 instruction_delete(struct_processus *s_e	Line 543 instruction_delete(struct_processus *s_e
}	}

if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,	if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
commande, strlen(commande), &ppStmt, &queue)	commande, (int) strlen(commande), &ppStmt, &queue)
!= SQLITE_OK)	!= SQLITE_OK)
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 536 instruction_delete(struct_processus *s_e	Line 574 instruction_delete(struct_processus *s_e
}	}

if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,	if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
commande, strlen(commande), &ppStmt, &queue)	commande, (int) strlen(commande), &ppStmt, &queue)
!= SQLITE_OK)	!= SQLITE_OK)
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 672 instruction_drws(struct_processus *s_eta	Line 710 instruction_drws(struct_processus *s_eta

unsigned char *nom_fichier;	unsigned char *nom_fichier;

unsigned long j;	integer8 j;

struct_fichier_graphique *l_fichier_courant;	struct_fichier_graphique *l_fichier_courant;
struct_fichier_graphique *l_fichier_precedent;	struct_fichier_graphique *l_fichier_precedent;
Line 815 instruction_drws(struct_processus *s_eta	Line 853 instruction_drws(struct_processus *s_eta

if (((*s_etat_processus).colonne_statistique_1 < 1) \|\|	if (((*s_etat_processus).colonne_statistique_1 < 1) \|\|
((*s_etat_processus).colonne_statistique_2 < 1) \|\|	((*s_etat_processus).colonne_statistique_2 < 1) \|\|
((*s_etat_processus).colonne_statistique_1 > (signed long)	((*s_etat_processus).colonne_statistique_1 >
(((struct_matrice ) (*s_objet_statistique).objet))	(((struct_matrice ) (*s_objet_statistique).objet))
.nombre_colonnes) \|\|	.nombre_colonnes) \|\|
((*s_etat_processus).colonne_statistique_2 > (signed long)	((*s_etat_processus).colonne_statistique_2 >
(((struct_matrice ) (*s_objet_statistique).objet))	(((struct_matrice ) (*s_objet_statistique).objet))
.nombre_colonnes))	.nombre_colonnes))
{	{
Line 1073 instruction_decr(struct_processus *s_eta	Line 1111 instruction_decr(struct_processus *s_eta
((s_etat_processus).pointeur_variable_courante).nom,	((s_etat_processus).pointeur_variable_courante).nom,
((s_etat_processus).pointeur_variable_courante)	((s_etat_processus).pointeur_variable_courante)
.variable_partagee, ((s_etat_processus)	.variable_partagee, ((s_etat_processus)
.pointeur_variable_courante).origine) == d_faux)	.pointeur_variable_courante).origine) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.42
changed lines
	Added in v.1.56