internal void CreateR6Object(string className, string objName)
{
Execute(objName + " = " + className + "$new()");
REnvironment env = GetEnvironmentReturn();
engine.SetSymbol(objName, env);
}
private IntPtr CallDeviceFunction(IntPtr call, IntPtr operation, IntPtr args, IntPtr environment, Func <Language, SymbolicExpression, Pairlist, REnvironment, SymbolicExpression> func)
{
var c = new Language(Engine, call);
var op = new SymbolicExpression(Engine, operation);
var arglist = new Pairlist(Engine, args);
var env = new REnvironment(Engine, environment);
SymbolicExpression result = func(c, op, arglist, env);
return(result.DangerousGetHandle());
}
/// <summary>
/// Return the NULL SEXP; no other effect
/// </summary>
/// <param name="call"></param>
/// <param name="operation"></param>
/// <param name="args"></param>
/// <param name="environment"></param>
/// <returns></returns>
public SymbolicExpression AddHistory(Language call, SymbolicExpression operation, Pairlist args, REnvironment environment)
{
return environment.Engine.NilValue;
}
/// <summary>
/// Return the NULL SEXP; no other effect
/// </summary>
/// <param name="call"></param>
/// <param name="operation"></param>
/// <param name="args"></param>
/// <param name="environment"></param>
/// <returns></returns>
public SymbolicExpression AddHistory(Language call, SymbolicExpression operation, Pairlist args, REnvironment environment)
{
return(environment.Engine.NilValue);
}
internal void LoadObject(string objName)
{
REnvironment env = GetEnvironmentReturn();
engine.SetSymbol(objName, env);
}
internal REnvironment GetEnvironmentReturn()
{
REnvironment env = ret.AsEnvironment();
return(env);
}
public SymbolicExpression SaveHistory(Language call, SymbolicExpression operation, Pairlist args, REnvironment environment)
{
throw new NotImplementedException();
}
public SymbolicExpression AddHistory(Language call, SymbolicExpression operation, Pairlist args, REnvironment environment)
{
return(null);
}