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.52 and 1.81

version 1.52, 2013/06/21 14:15:53	version 1.81, 2025/04/15 10:17:52
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.15	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

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

Line 310 instruction_delete(struct_processus *s_e	Line 310 instruction_delete(struct_processus *s_e
return;	return;
}	}

if (alsprintf(&commande, "select count(*) from data where "	if (alsprintf(s_etat_processus, &commande,
"id = %lld", (((integer8 ) (*s_objet_indice).objet)))	"select count(*) from data where id = %lld",
< 0)	(((integer8 ) (*s_objet_indice).objet))) < 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 377 instruction_delete(struct_processus *s_e	Line 377 instruction_delete(struct_processus *s_e
return;	return;
}	}

if (alsprintf(&commande, "delete from data where id = %lld",	if (alsprintf(s_etat_processus, &commande,
	"delete from data where id = %lld",
(((integer8 ) (*s_objet_indice).objet))) < 0)	(((integer8 ) (*s_objet_indice).objet))) < 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 441 instruction_delete(struct_processus *s_e	Line 442 instruction_delete(struct_processus *s_e
return;	return;
}	}

if (alsprintf(&commande, "select id from key where key = "	if (alsprintf(s_etat_processus, &commande,
"'{ \"%s\" }'", utf8) < 0)	"select id from key where key = '{ \"%s\" }'", utf8)
	< 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 534 instruction_delete(struct_processus *s_e	Line 536 instruction_delete(struct_processus *s_e

free(commande);	free(commande);

if (alsprintf(&commande, "delete from data where key_id = %lld",	if (alsprintf(s_etat_processus, &commande,
lecture_i64) < 0)	"delete from data where key_id = %lld", lecture_i64)
	< 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 565 instruction_delete(struct_processus *s_e	Line 568 instruction_delete(struct_processus *s_e

free(commande);	free(commande);

if (alsprintf(&commande, "delete from key where id = %lld",	if (alsprintf(s_etat_processus, &commande,
lecture_i64) < 0)	"delete from key where id = %lld", lecture_i64) < 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.52
changed lines
	Added in v.1.81