version 1.22, 2011/03/12 15:32:02
|
version 1.39, 2011/08/09 11:31:29
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.21 |
RPL/2 (R) version 4.1.3 |
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 392 formateur(struct_processus *s_etat_proce
|
Line 392 formateur(struct_processus *s_etat_proce
|
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
if (alsprintf(&chaine, "Socket %016lX", |
if (alsprintf(&chaine, "Socket $ %016lX", |
(unsigned long) (*((struct_socket *) |
(unsigned long) (*((struct_socket *) |
((*s_objet).objet))).socket) < 0) |
((*s_objet).objet))).socket) < 0) |
{ |
{ |
Line 1759 formateur(struct_processus *s_etat_proce
|
Line 1759 formateur(struct_processus *s_etat_proce
|
return(NULL); |
return(NULL); |
} |
} |
|
|
if ((*s_etat_processus).autorisation_conversion_chaine == 'Y') |
if (((*s_etat_processus).autorisation_conversion_chaine == 'Y') && |
|
(test_cfsf(s_etat_processus, 34) == d_vrai)) |
{ |
{ |
ptr_lecture = (unsigned char *) (*s_objet).objet; |
ptr_lecture = (unsigned char *) (*s_objet).objet; |
ptr_ecriture = chaine; |
ptr_ecriture = chaine; |
Line 3652 formateur_reel(struct_processus *s_etat_
|
Line 3653 formateur_reel(struct_processus *s_etat_
|
|
|
if (type == 'R') |
if (type == 'R') |
{ |
{ |
|
# ifdef FP_INFINITE |
|
int signe; |
|
|
|
if ((signe = isinf((*((real8 *) valeur_numerique)))) != 0) |
|
{ |
|
if (signe > 0) |
|
{ |
|
strcpy(chaine, "infinity"); |
|
} |
|
else |
|
{ |
|
strcpy(chaine, "-infinity"); |
|
} |
|
|
|
return(chaine); |
|
} |
|
# endif |
|
|
|
if (isnan((*((real8 *) valeur_numerique)))) |
|
{ |
|
strcpy(chaine, "undef"); |
|
return(chaine); |
|
} |
|
|
tampon_reel = *((real8 *) valeur_numerique); |
tampon_reel = *((real8 *) valeur_numerique); |
|
|
if (tampon_reel > ((real8) 0)) |
if (tampon_reel > ((real8) 0)) |
Line 3882 formateur_reel(struct_processus *s_etat_
|
Line 3907 formateur_reel(struct_processus *s_etat_
|
|
|
if (exposant >= 0) |
if (exposant >= 0) |
{ |
{ |
sprintf(format, "%%.%luf", (longueur_utile_limite - exposant |
if ((exposant + 1) < longueur_utile_limite) |
- 1)); |
{ |
|
sprintf(format, "%%.%luf", (longueur_utile_limite - exposant |
|
- 1)); |
|
} |
|
else |
|
{ |
|
strcpy(format, "%.0f."); |
|
} |
} |
} |
else |
else |
{ |
{ |