The R Project SVN R

Rev

Rev 32538 | Rev 36820 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 32538 Rev 34813
Line 86... Line 86...
86 
	return(pow(x,y));
 86 
	return(pow(x,y));
87 
    if (ISNAN(x) || ISNAN(y)) {
 87 
    if (ISNAN(x) || ISNAN(y)) {
88 
#ifdef IEEE_754
 88 
#ifdef IEEE_754
89 
	return(x + y);
 89 
	return(x + y);
90 
#else
 90 
#else
91 
	return(NA_REAL);
 91 
	return(ML_NAN);
92 
#endif
 92 
#endif
93 
    }
 93 
    }
94 
    if(!R_FINITE(x)) {
 94 
    if(!R_FINITE(x)) {
95 
	if(x > 0)		/* Inf ^ y */
 95 
	if(x > 0)		/* Inf ^ y */
96 
	    return((y < 0.)? 0. : ML_POSINF);
 96 
	    return((y < 0.)? 0. : ML_POSINF);
Line 125... Line 125...
125 
	}
 125 
	}
126 
    }
 126 
    }
127 
    return pow;
 127 
    return pow;
128 
}
 128 
}
129 
 
 129 
 
130 
double NA_REAL = ML_NAN;
 - 
 
131 
double R_PosInf = ML_POSINF, R_NegInf = ML_NEGINF;
 - 
 
132 
 
 - 
 
133 
#include <stdio.h>
 130 
#include <stdio.h>
134 
#include <stdarg.h>
 131 
#include <stdarg.h>
135 
void REprintf(char *format, ...)
 132 
void REprintf(char *format, ...)
136 
{
 133 
{
137 
    va_list(ap);
 134 
    va_list(ap);