146 lines
2.2 KiB
C
146 lines
2.2 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 _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 *));
|