Subversion Repositories or1k

#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 *));