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