Go to the source code of this file.
|
#define | BUFFERLENGTH 200000 |
|
#define | TRUE 1 |
|
#define | FALSE 0 |
|
#define | INTEGER_MAX 2147483648 |
|
#define | REAL_MAX 1.7976931348623157E+308 |
|
#define | REAL_MIN 2.2250738585072014E-308 |
|
#define | LOG_REAL_MIN -708.396 |
|
#define | INTEGER_MAX2EXP 31 |
|
#define | REAL_MAX2EXP 1024 |
|
#define | REAL_MIN2EXP -1022 |
|
#define | LOG2 0.6931471805599453094172321214581765680755 |
|
#define | PI 3.141592653589793238462643383279502884197 |
|
#define | Make(x, ref) ((x)->t=ELEMENT,(x)->r=ref) |
|
#define | MakeList(x) ((x)->t=ELEMENT,(x)->r=List_R) |
|
#define | MakeInteger(x, val) ((x)->t=INTEGER,(x)->u.v.i=val) |
|
#define | Is(x, ref) ((x)->t==ELEMENT&&(x)->r==ref) |
|
#define | IsList(x) ((x)->t==ELEMENT&&(x)->r==List_R) |
|
#define | IsInteger(x) ((x)->t==INTEGER) |
|
#define | IsReal(x) ((x)->t==REAL) |
|
#define | IsNumber(x) ((x)->t==INTEGER||(x)->t==REAL) |
|
#define | Is0(x) ((x)->t==INTEGER&&(x)->u.v.i==0||(x)->t==REAL&&(x)->u.v.r==0.) |
|
#define | Is1(x) ((x)->t==INTEGER&&(x)->u.v.i==1||(x)->t==REAL&&(x)->u.v.r==1.) |
|
#define | IsMinus1(x) ((x)->t==INTEGER&&(x)->u.v.i==-1||(x)->t==REAL&&(x)->u.v.r==-1.) |
|
#define | IsPositiveNumber(x) ((x)->t==INTEGER&&(x)->u.v.i>0||(x)->t==REAL&&(x)->u.v.r>0.) |
|
#define | IsNegativeNumber(x) ((x)->t==INTEGER&&(x)->u.v.i<0||(x)->t==REAL&&(x)->u.v.r<0.) |
|
#define | IsPositiveInteger(x) ((x)->t==INTEGER&&(x)->u.v.i>0) |
|
#define | IsNegativeInteger(x) ((x)->t==INTEGER&&(x)->u.v.i<0) |
|
#define | Has1Arg(x) ((x)->l&&!(x)->l->n) |
|
#define | Has2Args(x) ((x)->l&&(x)->l->n&&!(x)->l->n->n) |
|
#define BUFFERLENGTH 200000 |
#define INTEGER_MAX 2147483648 |
#define REAL_MAX 1.7976931348623157E+308 |
#define REAL_MIN 2.2250738585072014E-308 |
#define LOG_REAL_MIN -708.396 |
#define INTEGER_MAX2EXP 31 |
#define REAL_MAX2EXP 1024 |
#define REAL_MIN2EXP -1022 |
#define LOG2 0.6931471805599453094172321214581765680755 |
#define PI 3.141592653589793238462643383279502884197 |
#define Make |
( |
|
x, |
|
|
|
ref |
|
) |
| ((x)->t=ELEMENT,(x)->r=ref) |
#define MakeList |
( |
|
x | ) |
((x)->t=ELEMENT,(x)->r=List_R) |
#define MakeInteger |
( |
|
x, |
|
|
|
val |
|
) |
| ((x)->t=INTEGER,(x)->u.v.i=val) |
#define Is |
( |
|
x, |
|
|
|
ref |
|
) |
| ((x)->t==ELEMENT&&(x)->r==ref) |
#define IsList |
( |
|
x | ) |
((x)->t==ELEMENT&&(x)->r==List_R) |
#define IsInteger |
( |
|
x | ) |
((x)->t==INTEGER) |
#define IsReal |
( |
|
x | ) |
((x)->t==REAL) |
#define IsNumber |
( |
|
x | ) |
((x)->t==INTEGER||(x)->t==REAL) |
#define Is0 |
( |
|
x | ) |
((x)->t==INTEGER&&(x)->u.v.i==0||(x)->t==REAL&&(x)->u.v.r==0.) |
#define Is1 |
( |
|
x | ) |
((x)->t==INTEGER&&(x)->u.v.i==1||(x)->t==REAL&&(x)->u.v.r==1.) |
#define IsMinus1 |
( |
|
x | ) |
((x)->t==INTEGER&&(x)->u.v.i==-1||(x)->t==REAL&&(x)->u.v.r==-1.) |
#define IsPositiveNumber |
( |
|
x | ) |
((x)->t==INTEGER&&(x)->u.v.i>0||(x)->t==REAL&&(x)->u.v.r>0.) |
#define IsNegativeNumber |
( |
|
x | ) |
((x)->t==INTEGER&&(x)->u.v.i<0||(x)->t==REAL&&(x)->u.v.r<0.) |
#define IsPositiveInteger |
( |
|
x | ) |
((x)->t==INTEGER&&(x)->u.v.i>0) |
#define IsNegativeInteger |
( |
|
x | ) |
((x)->t==INTEGER&&(x)->u.v.i<0) |
#define Has1Arg |
( |
|
x | ) |
((x)->l&&!(x)->l->n) |
#define Has2Args |
( |
|
x | ) |
((x)->l&&(x)->l->n&&!(x)->l->n->n) |