version 1.13, 2010/08/06 15:33:03
|
version 1.44, 2013/03/21 11:30:31
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2010 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 35
|
Line 35
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
#ifndef OS2 |
|
extern inline |
|
#endif |
|
ssize_t |
ssize_t |
read_atomic(struct_processus *s_etat_processus, |
read_atomic(struct_processus *s_etat_processus, |
int descripteur, void *tampon, size_t longueur_tampon) |
int descripteur, void *tampon, size_t longueur_tampon) |
Line 73 read_atomic(struct_processus *s_etat_pro
|
Line 70 read_atomic(struct_processus *s_etat_pro
|
if ((longueur_lue == 0) && |
if ((longueur_lue == 0) && |
(longueur_tampon == longueur_residuelle)) |
(longueur_tampon == longueur_residuelle)) |
{ |
{ |
return(longueur_tampon - longueur_residuelle); |
return(((ssize_t) longueur_tampon) - |
|
((ssize_t) longueur_residuelle)); |
} |
} |
|
|
if ((longueur_lue == -1) && (errno == EINTR)) |
if ((longueur_lue == -1) && (errno == EINTR)) |
{ |
{ |
|
scrutation_interruptions(s_etat_processus); |
nanosleep(&attente, NULL); |
nanosleep(&attente, NULL); |
drapeau = d_vrai; |
drapeau = d_vrai; |
} |
} |
Line 93 read_atomic(struct_processus *s_etat_pro
|
Line 92 read_atomic(struct_processus *s_etat_pro
|
? PIPE_BUF : longueur_residuelle) |
? PIPE_BUF : longueur_residuelle) |
{ |
{ |
pointeur += longueur_lue; |
pointeur += longueur_lue; |
longueur_residuelle -= longueur_lue; |
longueur_residuelle -= (size_t) longueur_lue; |
|
|
return(longueur_tampon - longueur_residuelle); |
return(((ssize_t) longueur_tampon) - |
|
((ssize_t) longueur_residuelle)); |
} |
} |
} |
} |
} |
} |
|
|
pointeur += longueur_lue; |
pointeur += longueur_lue; |
longueur_residuelle -= longueur_lue; |
longueur_residuelle -= (size_t) longueur_lue; |
} |
} |
|
|
return(longueur_tampon - longueur_residuelle); |
return(((ssize_t) longueur_tampon) - ((ssize_t) longueur_residuelle)); |
} |
} |
|
|
|
|
Line 120 read_atomic(struct_processus *s_etat_pro
|
Line 120 read_atomic(struct_processus *s_etat_pro
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
#ifndef OS2 |
|
extern inline |
|
#endif |
|
ssize_t |
ssize_t |
write_atomic(struct_processus *s_etat_processus, |
write_atomic(struct_processus *s_etat_processus, |
int descripteur, void *tampon, size_t longueur_tampon) |
int descripteur, void *tampon, size_t longueur_tampon) |
Line 159 write_atomic(struct_processus *s_etat_pr
|
Line 156 write_atomic(struct_processus *s_etat_pr
|
{ |
{ |
if (errno == EINTR) |
if (errno == EINTR) |
{ |
{ |
|
scrutation_interruptions(s_etat_processus); |
nanosleep(&attente, NULL); |
nanosleep(&attente, NULL); |
drapeau = d_vrai; |
drapeau = d_vrai; |
} |
} |
Line 175 write_atomic(struct_processus *s_etat_pr
|
Line 173 write_atomic(struct_processus *s_etat_pr
|
|
|
if (longueur_ecrite == 0) |
if (longueur_ecrite == 0) |
{ |
{ |
|
scrutation_interruptions(s_etat_processus); |
nanosleep(&attente, NULL); |
nanosleep(&attente, NULL); |
} |
} |
} |
} |
|
|
pointeur += longueur_ecrite; |
pointeur += longueur_ecrite; |
longueur_residuelle -= longueur_ecrite; |
longueur_residuelle -= (size_t) longueur_ecrite; |
} |
} |
|
|
return(longueur_tampon); |
return((ssize_t) longueur_tampon); |
} |
} |
|
|
// vim: ts=4 |
// vim: ts=4 |