| #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 _EXFUN(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 _EXFUN(test_ieee,(void)); |
| void _EXFUN(test_math2,(void)); |
| void _EXFUN(test_math,(void)); |
| void _EXFUN(test_string,(void)); |
| void _EXFUN(test_is,(void)); |
| void _EXFUN(test_cvt,(void)); |
| |
| void _EXFUN(line,(int)); |
| |
| void _EXFUN(test_mok, (double, double, int)); |
| void _EXFUN(test_iok, (int, int)); |
| void _EXFUN(test_eok, (int, int)); |
| void _EXFUN(test_sok, (char *, char*)); |
| void _EXFUN(test_scok, (char *, char*, int)); |
| void _EXFUN(newfunc,(_CONST char *)); |