Subversion Repositories eco32

/*

 * fp.h -- floating point arithmetic

 */

typedef enum {

  false, true

} bool;

typedef unsigned int tetra;

typedef struct {

  tetra h, l;

} octa;

typedef enum {

  zro, num, inf, nan

} ftype;

octa oplus (octa, octa);

octa ominus (octa, octa);

octa incr (octa, int);

octa shift_left (octa, int);

octa shift_right (octa, int, int);

octa omult (octa, octa);

octa odiv (octa, octa, octa);

octa fpack (octa, int, char, int);

tetra sfpack (octa, int, char, int);

ftype funpack (octa, octa *, int *, char *);

ftype sfunpack (tetra, octa *, int *, char *);

octa load_sf (tetra);

tetra store_sf (octa);

octa fmult (octa, octa);

octa fdivide (octa, octa);

octa fplus (octa, octa);

int fepscomp (octa, octa, octa, int);

void print_float (octa);

int scan_const (char *);

int fcomp (octa, octa);

octa fintegerize (octa, int);

octa fixit (octa, int);

octa floatit (octa, int, int, int);

octa froot (octa, int);

octa fremstep (octa, octa, int);