Return to B1num.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / B / src / bsmall

Annotation of 43BSD/contrib/B/src/bsmall/B1num.h, revision 1.1

1.1     ! root        1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
        !             2: /* $Header: B1num.h,v 1.1 84/06/28 00:48:38 timo Exp $ */
        !             3: 
        !             4: /* Definitions for number internals */
        !             5: 
        !             6: typedef struct{double p, q;} number;
        !             7: typedef double integer;
        !             8: #define Zero ((integer) 0)
        !             9: #define One ((integer) 1)
        !            10: #define Two ((integer) 2)
        !            11: 
        !            12: #define Checknum(v) if ((v)->type != Num) error("value not a number")
        !            13: #define Numerator(v) ((integer) ((number *)Ats(v))->p)
        !            14: #define Denominator(v) ((integer) ((number *)Ats(v))->q)
        !            15: #define Exact(v) (((number *)Ats(v))->q != Zero)
        !            16: #define Integral(v) (Exact(v) && (Denominator(v)==One))
        !            17: #define Approxval(v) (((number *)Ats(v))->p)
        !            18: #define Numval(v) (Exact(v) ? Numerator(v)/Denominator(v) : Approxval(v))
        !            19: 
        !            20: value mk_int();
        !            21: value mk_approx();
        !            22: value mk_exact();
        !            23: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.