TYPES
ERROR	string
END

MODULE	error	modules/error.hlp

BINARYFUNCTIONS
add	ERROR	*	*	(va.Typename()+"+"+vb.Typename())
add	ERROR	ERROR	*	(a)
add	ERROR	*	ERROR	(b)
add	ERROR	ERROR	ERROR	(a+".+."+b)
sub	ERROR	*	*	(va.Typename()+"-"+vb.Typename())
sub	ERROR	ERROR	*	(a)
sub	ERROR	*	ERROR	(b)
sub	ERROR	ERROR	ERROR	(a+".-."+b)
mul	ERROR	*	*	(va.Typename()+"*"+vb.Typename())
mul	ERROR	ERROR	*	(a)
mul	ERROR	*	ERROR	(b)
mul	ERROR	ERROR	ERROR	(a+".*."+b)
div	ERROR	*	*	(va.Typename()+"/"+vb.Typename())
div	ERROR	ERROR	*	(a)
div	ERROR	*	ERROR	(b)
div	ERROR	ERROR	ERROR	(a+"./."+b)
mod	ERROR	*	*	(va.Typename()+"%"+vb.Typename())
mod	ERROR	ERROR	*	(a)
mod	ERROR	*	ERROR	(b)
mod	ERROR	ERROR	ERROR	(a+".%."+b)

eq	ERROR	*	*	(va.Typename()+"=="+vb.Typename())
eq	ERROR	ERROR	*	(a)
eq	ERROR	*	ERROR	(b)
eq	ERROR	ERROR	ERROR	(a+".==."+b)
neq	ERROR	*	*	(va.Typename()+"!="+vb.Typename())
neq	ERROR	ERROR	*	(a)
neq	ERROR	*	ERROR	(b)
neq	ERROR	ERROR	ERROR	(a+".!=."+b)

lesseq	ERROR	*	*	(va.Typename()+"<="+vb.Typename())
lesseq	ERROR	ERROR	*	(a)
lesseq	ERROR	*	ERROR	(b)
lesseq	ERROR	ERROR	ERROR	(a+".<=."+b)
less	ERROR	*	*	(va.Typename()+"<"+vb.Typename())
less	ERROR	ERROR	*	(a)
less	ERROR	*	ERROR	(b)
less	ERROR	ERROR	ERROR	(a+".<."+b)

greatereq	ERROR	*	*	(va.Typename()+">="+vb.Typename())
greatereq	ERROR	ERROR	*	(a)
greatereq	ERROR	*	ERROR	(b)
greatereq	ERROR	ERROR	ERROR	(a+".>=."+b)
greater	ERROR	*	*	(va.Typename()+">"+vb.Typename())
greater	ERROR	ERROR	*	(a)
greater	ERROR	*	ERROR	(b)
greater	ERROR	ERROR	ERROR	(a+".>."+b)

And	ERROR	*	*	(va.Typename()+"&"+vb.Typename())
And	ERROR	ERROR	*	(a)
And	ERROR	*	ERROR	(b)
And	ERROR	ERROR	ERROR	(a+".&."+b)
Or	ERROR	*	*	(va.Typename()+"|"+vb.Typename())
Or	ERROR	ERROR	*	(a)
Or	ERROR	*	ERROR	(b)
Or	ERROR	ERROR	ERROR	(a+".|."+b)

pow	ERROR	*	*	(va.Typename()+"^"+vb.Typename())
pow	ERROR	ERROR	*	(a)
pow	ERROR	*	ERROR	(b)
pow	ERROR	ERROR	ERROR	(a+".^."+b)
cell	ERROR	ERROR	*	(a)
cell	ERROR	*	ERROR	(b)
cell	ERROR	ERROR	ERROR	(a+".(."+b+".).")
END

UNARYFUNCTIONS
neg	ERROR	*	"-"+va.Typename()
neg	ERROR	ERROR	"-"+a
Not	ERROR	*	"~"+va.Typename()
Not	ERROR	ERROR	"~"+a
fac	ERROR	*	"("+va.Typename()+")!"
fac	ERROR	ERROR	"("+a+")!"
sin	ERROR	*	"sin("+va.Typename()+")"
sin	ERROR	ERROR	"sin("+a+")"
cos	ERROR	*	"cos("+va.Typename()+")"
cos	ERROR	ERROR	"cos("+a+")"
tan	ERROR	*	"tan("+va.Typename()+")"
tan	ERROR	ERROR	"tan("+a+")"
cot	ERROR	*	"cot("+va.Typename()+")"
cot	ERROR	ERROR	"cot("+a+")"
asin	ERROR	*	"asin("+va.Typename()+")"
asin	ERROR	ERROR	"asin("+a+")"
acos	ERROR	*	"acos("+va.Typename()+")"
acos	ERROR	ERROR	"acos("+a+")"
atan	ERROR	*	"atan("+va.Typename()+")"
atan	ERROR	ERROR	"atan("+a+")"
acot	ERROR	*	"acot("+va.Typename()+")"
acot	ERROR	ERROR	"acot("+a+")"
sinh	ERROR	*	"sinh("+va.Typename()+")"
sinh	ERROR	ERROR	"sinh("+a+")"
cosh	ERROR	*	"cosh("+va.Typename()+")"
cosh	ERROR	ERROR	"cosh("+a+")"
tanh	ERROR	*	"tanh("+va.Typename()+")"
tanh	ERROR	ERROR	"tanh("+a+")"
coth	ERROR	*	"coth("+va.Typename()+")"
coth	ERROR	ERROR	"coth("+a+")"
asinh	ERROR	*	"asinh("+va.Typename()+")"
asinh	ERROR	ERROR	"asinh("+a+")"
acosh	ERROR	*	"acosh("+va.Typename()+")"
acosh	ERROR	ERROR	"acosh("+a+")"
atanh	ERROR	*	"atanh("+va.Typename()+")"
atanh	ERROR	ERROR	"atanh("+a+")"
acoth	ERROR	*	"acoth("+va.Typename()+")"
acoth	ERROR	ERROR	"acoth("+a+")"
log	ERROR	*	"log("+va.Typename()+")"
log	ERROR	ERROR	"log("+a+")"
exp	ERROR	*	"exp("+va.Typename()+")"
exp	ERROR	ERROR	"exp("+a+")"
sqrt	ERROR	*	"sqrt("+va.Typename()+")"
sqrt	ERROR	ERROR	"sqrt("+a+")"
round	ERROR	*	"round("+va.Typename()+")"
round	ERROR	ERROR	"round("+a+")"
transpose ERROR	*	"("+va.Typename()+")'"
transpose ERROR	ERROR	"("+a+")'"
abs	ERROR	*	"abs("+va.Typename()+")"
abs	ERROR	ERROR	"abs("+a+")"
arg	ERROR	*	"arg("+va.Typename()+")"
arg	ERROR	ERROR	"arg("+a+")"
output	STRING	ERROR	("Error:"+a)
END