Obj DiffObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( DiffOper, opL, opR );
RequireValue("DIFF", val);
return val;
}
Obj ProdObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( ProdOper, opL, opR );
RequireValue("PROD", val);
return val;
}
Obj CommObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( CommOper, opL, opR );
RequireValue("Comm", val);
return val;
}
Obj SumObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( SumOper, opL, opR );
RequireValue("SUM", val);
return val;
}
Obj ModObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( ModOper, opL, opR );
RequireValue("mod", val);
return val;
}
/****************************************************************************
**
*F VerboseLQuoObject( <opL>, <opR> ) . . . . . . . . . . . . . call methsel
*/
Obj VerboseLQuoObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( LQuoOper, opL, opR );
RequireValue("LeftQuotient", val);
return val;
}
Obj PowObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( PowOper, opL, opR );
RequireValue("POW", val);
return val;
}
Obj QuoObject (
Obj opL,
Obj opR )
{
Obj val;
val = DoOperation2Args( QuoOper, opL, opR );
RequireValue("QUO", val);
return val;
}
static Obj ElmRecObject(Obj obj, UInt rnam)
{
Obj elm;
elm = DoOperation2Args( ElmRecOper, obj, INTOBJ_INT(rnam) );
while (elm == 0)
elm = ErrorReturnObj("Record access method must return a value",0L,0L,
"you can supply a value <val> via 'return <val>;'");
return elm;
}
Obj GAP_CallFuncArray(Obj func, UInt narg, Obj args[])
{
Obj result;
Obj list;
if (TNUM_OBJ(func) == T_FUNCTION) {
// call the function
switch (narg) {
case 0:
result = CALL_0ARGS(func);
break;
case 1:
result = CALL_1ARGS(func, args[0]);
break;
case 2:
result = CALL_2ARGS(func, args[0], args[1]);
break;
case 3:
result = CALL_3ARGS(func, args[0], args[1], args[2]);
break;
case 4:
result = CALL_4ARGS(func, args[0], args[1], args[2], args[3]);
break;
case 5:
result =
CALL_5ARGS(func, args[0], args[1], args[2], args[3], args[4]);
break;
case 6:
result = CALL_6ARGS(func, args[0], args[1], args[2], args[3],
args[4], args[5]);
break;
default:
list = NewPlistFromArray(args, narg);
result = CALL_XARGS(func, list);
}
}
else {
list = NewPlistFromArray(args, narg);
result = DoOperation2Args(CallFuncListOper, func, list);
}
return result;
}
Int InObject (
Obj opL,
Obj opR )
{
return (DoOperation2Args( InOper, opL, opR ) == True);
}
Int LtObject (
Obj opL,
Obj opR )
{
return (DoOperation2Args( LtOper, opL, opR ) == True);
}
Int EqObject (
Obj opL,
Obj opR )
{
return (DoOperation2Args( EqOper, opL, opR ) == True);
}
static void UnbRecObject(Obj obj, UInt rnam)
{
DoOperation2Args( UnbRecOper, obj, INTOBJ_INT(rnam) );
}
static Int IsbRecObject(Obj obj, UInt rnam)
{
return (DoOperation2Args( IsbRecOper, obj, INTOBJ_INT(rnam) ) == True);
}