version 1.13, 2010/05/24 10:58:30
|
version 1.36, 2011/11/26 10:01:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.16 |
RPL/2 (R) version 4.1.5 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 77 creation_nom_fichier(struct_processus *s
|
Line 77 creation_nom_fichier(struct_processus *s
|
|
|
do |
do |
{ |
{ |
sprintf(tampon, "RPL2-%lu-%lu-%lu", (unsigned long) getpid(), |
sprintf(tampon, "RPL-%lu-%lu-%lu", (unsigned long) getpid(), |
(unsigned long) pthread_self(), ordre); |
(unsigned long) pthread_self(), ordre); |
|
|
if (chemin == NULL) |
if (chemin == NULL) |
Line 229 recherche_chemin_fichiers_temporaires(st
|
Line 229 recherche_chemin_fichiers_temporaires(st
|
if ((nom_candidat = creation_nom_fichier(s_etat_processus, |
if ((nom_candidat = creation_nom_fichier(s_etat_processus, |
candidat)) == NULL) |
candidat)) == NULL) |
{ |
{ |
return NULL; |
return(NULL); |
} |
} |
|
|
if ((fichier = fopen(nom_candidat, "w+")) != NULL) |
if ((fichier = fopen(nom_candidat, "w+")) != NULL) |
Line 245 recherche_chemin_fichiers_temporaires(st
|
Line 245 recherche_chemin_fichiers_temporaires(st
|
} |
} |
else |
else |
{ |
{ |
return NULL; |
return(NULL); |
} |
} |
} |
} |
else |
else |
Line 259 recherche_chemin_fichiers_temporaires(st
|
Line 259 recherche_chemin_fichiers_temporaires(st
|
if ((nom_candidat = creation_nom_fichier(s_etat_processus, |
if ((nom_candidat = creation_nom_fichier(s_etat_processus, |
chemins[i])) == NULL) |
chemins[i])) == NULL) |
{ |
{ |
return NULL; |
return(NULL); |
} |
} |
|
|
if ((fichier = fopen(nom_candidat, "w+")) != NULL) |
if ((fichier = fopen(nom_candidat, "w+")) != NULL) |
Line 275 recherche_chemin_fichiers_temporaires(st
|
Line 275 recherche_chemin_fichiers_temporaires(st
|
} |
} |
else |
else |
{ |
{ |
return NULL; |
return(NULL); |
} |
} |
} |
} |
else |
else |