version 1.8, 2010/05/10 08:30:32
|
version 1.66, 2017/08/21 16:35:32
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.15 |
RPL/2 (R) version 4.1.28 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 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 35
|
Line 35
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
extern inline 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 70 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 86 read_atomic(struct_processus *s_etat_pro
|
Line 88 read_atomic(struct_processus *s_etat_pro
|
|
|
if (longueur_lue != 0) |
if (longueur_lue != 0) |
{ |
{ |
if (longueur_lue < (longueur_residuelle > PIPE_BUF) |
if (longueur_lue < (ssize_t) ((longueur_residuelle > PIPE_BUF) |
? 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 117 read_atomic(struct_processus *s_etat_pro
|
Line 120 read_atomic(struct_processus *s_etat_pro
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
extern inline 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 153 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 169 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 |