version 1.23, 2011/06/21 07:45:27
|
version 1.33, 2011/11/18 20:24:40
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.1 |
RPL/2 (R) version 4.1.4 |
Copyright (C) 1989-2011 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 689 instruction_utpt(struct_processus *s_eta
|
Line 689 instruction_utpt(struct_processus *s_eta
|
void |
void |
instruction_use(struct_processus *s_etat_processus) |
instruction_use(struct_processus *s_etat_processus) |
{ |
{ |
logical1 erreur; |
|
logical1 existence; |
logical1 existence; |
logical1 ouverture; |
logical1 ouverture; |
|
|
Line 770 instruction_use(struct_processus *s_etat
|
Line 769 instruction_use(struct_processus *s_etat
|
sprintf(tampon, "./%s", (unsigned char *) |
sprintf(tampon, "./%s", (unsigned char *) |
(*s_objet_argument).objet); |
(*s_objet_argument).objet); |
|
|
erreur = caracteristiques_fichier(s_etat_processus, tampon, |
caracteristiques_fichier(s_etat_processus, tampon, |
&existence, &ouverture, &unite); |
&existence, &ouverture, &unite); |
|
|
if (existence != d_faux) |
if (existence != d_faux) |