コード例 #1
0
ファイル: ariths.c プロジェクト: embray/gap 
Obj InvMutObject (
    Obj                 obj )
{
  Obj val;
  val = DoOperation1Args( InvMutOp, obj );
  RequireValue("INVOp", val);
  return val;
}
コード例 #2
0
ファイル: ariths.c プロジェクト: embray/gap 
Obj OneMutObject (
    Obj                 obj )
{
  Obj val;
  val = DoOperation1Args( OneMutOp, obj );
  RequireValue("ONEOp", val);
  return val;
}
コード例 #3
0
ファイル: ariths.c プロジェクト: embray/gap 
Obj AInvMutObject (
    Obj                 obj )
{
  Obj val;
  val = DoOperation1Args( AdditiveInverseOp, obj );
  RequireValue("AdditiveInverseOp", val);
  return val;
}
コード例 #4
0
ファイル: ariths.c プロジェクト: embray/gap 
Obj AInvObject (
    Obj                 obj )
{
  Obj val;
  val = DoOperation1Args( AInvOp, obj );
  RequireValue("AInvOp", val);
  return val;
}
コード例 #5
0
ファイル: ariths.c プロジェクト: embray/gap 
Obj ZeroObject (
    Obj                 obj )

{
  Obj val;
  val = DoOperation1Args( ZEROOp, obj );
  RequireValue("ZEROOp", val);
  return val;
}
コード例 #6
0
ファイル: libgap-api.c プロジェクト: dimpase/gap 
//
// 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;
}