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);
}
public SymbolicExpression SaveHistory(Language call, SymbolicExpression operation, Pairlist args, REnvironment environment)
{
throw new NotImplementedException();
}
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);
}