toolchain/gcc/newlib/libm/test/test.h

   1 #define HAVE_FLOAT 1
   2 #define X(x) (char *)x
   3
   4 #include <_ansi.h>
   5 #include <math.h>
   6 #include <float.h>
   7 #include <ieeefp.h>
   8 #include <stdio.h>
   9
  10 void checkf();
  11 void enter();
  12
  13
  14 double translate_from();
  15
  16 typedef struct
  17 {
  18   long msw, lsw;
  19 } question_struct_type;
  20
  21
  22 typedef struct
  23 {
  24   char error_bit;
  25   char errno_val;
  26   char merror;
  27   int line;
  28
  29   question_struct_type qs[3];
  30 } one_line_type;
  31
  32
  33 #define MVEC_START(x) one_line_type x[] =  {
  34 #define MVEC_END    0,};
  35
  36
  37 int _EXFUN(mag_of_error,(double, double));
  38
  39
  40 #define ERROR_PERFECT 20
  41 #define ERROR_FAIL -1
  42
  43 #define AAAA 15
  44 #define AAA 10
  45 #define AA  6
  46 #define A   5
  47 #define B   3
  48 #define C   1
  49 #define VECOPEN(x,f) \
  50 {\
  51   char buffer[100];\
  52    sprintf(buffer,"%s_vec.c",x);\
  53     f = fopen(buffer,"w");\
  54      fprintf(f,"#include \"test.h\"\n");\
  55       fprintf(f," one_line_type %s_vec[] = {\n", x);\
  56 }
  57
  58 #define VECCLOSE(f,name,args)\
  59 {\
  60   fprintf(f,"0,};\n");      \
  61    fprintf(f,"test_%s(m)   {run_vector_1(m,%s_vec,(char *)(%s),\"%s\",\"%s\");   }      \n",\
  62            name,\
  63            name,name,name,args);\
  64             fclose(f);\
  65 }
  66
  67
  68
  69 typedef struct
  70 {
  71   int line;
  72
  73   char *string;
  74   double value;
  75   int endscan;
  76 } double_type;
  77
  78
  79 typedef struct {
  80   long int value;
  81   char end;
  82   char errno_val;
  83 } int_scan_type;
  84
  85 typedef struct
  86 {
  87   int line;
  88   int_scan_type octal;
  89   int_scan_type decimal;
  90   int_scan_type hex;
  91   int_scan_type normal;
  92   int_scan_type alphabetical;
  93   char *string;
  94 } int_type;
  95
  96
  97 typedef struct
  98 {
  99   int line;
 100   double value;
 101   char *estring;
 102   int e1;
 103   int e2;
 104   int e3;
 105   char *fstring;
 106   int f1;
 107   int f2;
 108   int f3;
 109   char *gstring;
 110   int g1;
 111 } ddouble_type;
 112
 113 typedef struct
 114 {
 115   int line;
 116   double value;
 117   char *result;
 118   char *format_string;
 119 } sprint_double_type;
 120
 121
 122 typedef struct
 123 {
 124   int line;
 125   int value;
 126   char *result;
 127   char *format_string;
 128 } sprint_int_type;
 129
 130
 131 void _EXFUN(test_ieee,(void));
 132 void _EXFUN(test_math2,(void));
 133 void _EXFUN(test_math,(void));
 134 void _EXFUN(test_string,(void));
 135 void _EXFUN(test_is,(void));
 136 void _EXFUN(test_cvt,(void));
 137
 138 void _EXFUN(line,(int));
 139
 140 void _EXFUN(test_mok, (double, double, int));
 141 void _EXFUN(test_iok, (int, int));
 142 void _EXFUN(test_eok, (int, int));
 143 void _EXFUN(test_sok, (char *, char*));
 144 void _EXFUN(test_scok, (char *, char*, int));
 145 void _EXFUN(newfunc,(_CONST char *));