HPP	modules/integer.h
CPP	modules/integer.c
TEX	modules/purenum.tex

MODULE	purenum modules/purenum.hlp

TYPES
LONGINT	Integer
END

UNARYFUNCTIONS
longint	LONGINT INTEGER	(Integer(a))
longint	LONGINT	STRING	(Integer(a.c_str()))
parseInteger LONGINT STRING (Integer(a.c_str()))
fac	LONGINT LONGINT (fac(a))
END

IMPLICITCAST
INTEGER	LONGINT	((int)a)
DOUBLE	LONGINT	(0/*FIXME!*/)
LONGINT	INTEGER	(Integer(a))
END

BINARYFUNCTIONS
add	LONGINT	LONGINT	LONGINT	(a+b)
sub	LONGINT	LONGINT	LONGINT	(a-b)
mul	LONGINT	LONGINT	LONGINT	(a*b)
div	LONGINT	LONGINT	LONGINT	(a/b)
mod	LONGINT	LONGINT	LONGINT	(a%b)
pow	LONGINT	LONGINT	LONGINT (pow(a,b))

eq	INTEGER	LONGINT	LONGINT	(a==b)
neq	INTEGER	LONGINT	LONGINT	(a!=b)

less	INTEGER	LONGINT	LONGINT	(a<b)
lesseq	INTEGER	LONGINT	LONGINT	(a<=b)

greater	INTEGER	LONGINT	LONGINT	(a>b)
greatereq	INTEGER	LONGINT	LONGINT	(a>=b)
END

UNARYFUNCTIONS
neg	LONGINT	LONGINT	(-a)
abs	LONGINT	LONGINT	(a<0?-a:a)
sqr	LONGINT	LONGINT	(a*a)
Not	LONGINT	LONGINT	(!a)
output	STRING	LONGINT	(string(a.ascii())/*FIXME!*/)
END