version 1.37, 2011/12/05 17:45:00
|
version 1.55, 2013/12/03 09:36:11
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.5 |
RPL/2 (R) version 4.1.17 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 77 creation_nom_fichier(struct_processus *s
|
Line 77 creation_nom_fichier(struct_processus *s
|
|
|
do |
do |
{ |
{ |
sprintf(tampon, "RPL-%lu-%lu-%lu", (unsigned long) getpid(), |
sprintf(tampon, "RPL-%llu-%llu-%lu", (unsigned long long) getpid(), |
(unsigned long) pthread_self(), ordre); |
(unsigned long long) pthread_self(), ordre); |
|
|
if (chemin == NULL) |
if (chemin == NULL) |
{ |
{ |
Line 222 recherche_chemin_fichiers_temporaires(st
|
Line 222 recherche_chemin_fichiers_temporaires(st
|
{ |
{ |
if (chemins[i][0] == '$') |
if (chemins[i][0] == '$') |
{ |
{ |
candidat = getenv("RPL_TMP_PATH"); |
candidat = getenv(chemins[i] + 1); |
|
|
if (candidat != NULL) |
if (candidat != NULL) |
{ |
{ |
Line 287 recherche_chemin_fichiers_temporaires(st
|
Line 287 recherche_chemin_fichiers_temporaires(st
|
i++; |
i++; |
} |
} |
|
|
return chemin; |
return(chemin); |
} |
} |
|
|
|
|
Line 477 initialisation_controle(struct_processus
|
Line 477 initialisation_controle(struct_processus
|
return(d_erreur); |
return(d_erreur); |
} |
} |
|
|
if (sqlite3_prepare_v2(sqlite, commande, strlen(commande), &ppStmt, |
if (sqlite3_prepare_v2(sqlite, commande, (int) strlen(commande), |
&queue) != SQLITE_OK) |
&ppStmt, &queue) != SQLITE_OK) |
{ |
{ |
free(commande); |
free(commande); |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |