Retro68/gcc/newlib/libm/test/test.h
Wolfgang Thaller ec13cc9ce7 fix newlib
2018-12-29 09:59:36 +01:00

146 lines
2.1 KiB
C

#define HAVE_FLOAT 1
#define X(x) (char *)x
#include <_ansi.h>
#include <math.h>
#include <float.h>
#include <ieeefp.h>
#include <stdio.h>
void checkf();
void enter();
double translate_from();
typedef struct
{
long msw, lsw;
} question_struct_type;
typedef struct
{
char error_bit;
char errno_val;
char merror;
int line;
question_struct_type qs[3];
} one_line_type;
#define MVEC_START(x) one_line_type x[] = {
#define MVEC_END 0,};
int mag_of_error (double, double);
#define ERROR_PERFECT 20
#define ERROR_FAIL -1
#define AAAA 15
#define AAA 10
#define AA 6
#define A 5
#define B 3
#define C 1
#define VECOPEN(x,f) \
{\
char buffer[100];\
sprintf(buffer,"%s_vec.c",x);\
f = fopen(buffer,"w");\
fprintf(f,"#include \"test.h\"\n");\
fprintf(f," one_line_type %s_vec[] = {\n", x);\
}
#define VECCLOSE(f,name,args)\
{\
fprintf(f,"0,};\n"); \
fprintf(f,"test_%s(m) {run_vector_1(m,%s_vec,(char *)(%s),\"%s\",\"%s\"); } \n",\
name,\
name,name,name,args);\
fclose(f);\
}
typedef struct
{
int line;
char *string;
double value;
int endscan;
} double_type;
typedef struct {
long int value;
char end;
char errno_val;
} int_scan_type;
typedef struct
{
int line;
int_scan_type octal;
int_scan_type decimal;
int_scan_type hex;
int_scan_type normal;
int_scan_type alphabetical;
char *string;
} int_type;
typedef struct
{
int line;
double value;
char *estring;
int e1;
int e2;
int e3;
char *fstring;
int f1;
int f2;
int f3;
char *gstring;
int g1;
} ddouble_type;
typedef struct
{
int line;
double value;
char *result;
char *format_string;
} sprint_double_type;
typedef struct
{
int line;
int value;
char *result;
char *format_string;
} sprint_int_type;
void test_ieee (void);
void test_math2 (void);
void test_math (void);
void test_string (void);
void test_is (void);
void test_cvt (void);
void line (int);
void test_mok (double, double, int);
void test_iok (int, int);
void test_eok (int, int);
void test_sok (char *, char*);
void test_scok (char *, char*, int);
void newfunc (const char *);