Obj InvMutObject (
Obj obj )
{
Obj val;
val = DoOperation1Args( InvMutOp, obj );
RequireValue("INVOp", val);
return val;
}
Obj OneMutObject (
Obj obj )
{
Obj val;
val = DoOperation1Args( OneMutOp, obj );
RequireValue("ONEOp", val);
return val;
}
Obj AInvMutObject (
Obj obj )
{
Obj val;
val = DoOperation1Args( AdditiveInverseOp, obj );
RequireValue("AdditiveInverseOp", val);
return val;
}
Obj AInvObject (
Obj obj )
{
Obj val;
val = DoOperation1Args( AInvOp, obj );
RequireValue("AInvOp", val);
return val;
}
Obj ZeroObject (
Obj obj )
{
Obj val;
val = DoOperation1Args( ZEROOp, obj );
RequireValue("ZEROOp", val);
return val;
}
//
// Evaluate a string of GAP commands
//
// To see an example of how to use this function
// see tst/testlibgap/basic.c
//
Obj GAP_EvalString(const char * cmd)
{
Obj instream;
Obj res;
Obj viewObjFunc, streamFunc;
streamFunc = GAP_ValueGlobalVariable("InputTextString");
viewObjFunc = GAP_ValueGlobalVariable("ViewObj");
instream = DoOperation1Args(streamFunc, MakeString(cmd));
res = READ_ALL_COMMANDS(instream, False, True, viewObjFunc);
return res;
}
