Functions("$binrepr");
[About(), Man(), Initialize(), PolyBinRepr_xi(P), PolyBinRepr_xii(P),
BinExp(...), EvalBinExp(BE,Up,Down), Aux_BinExp(H,N), Tagged(X,T),
Print_Bin(B), Print_BinExp(BE), Print_BinRepr(BR), PkgName()]
-------------------------------
L:= It;
Describe L[5];
DEFINE BinExp(...)
IF Shape(ARGV) = [
INT,
INT] THEN
Return($binrepr.Aux_BinExp(ARGV[1],ARGV[2]))
ELSIF Shape(ARGV) = [
INT,
INT,
INT,
INT] THEN
Return(EvalBinExp($binrepr.Aux_BinExp(ARGV[1],ARGV[2]),ARGV[3],ARGV[4]))
ELSE
Error(ERR.BAD_PARAMS,"(BinExp arguments must be 2 or 4 INT)")
END;
END
-------------------------------
|