Symbols, install, and eval.
Hello. I've got two values which are calls (i.e. LANGSXPs). The first one, x, is generated through the parser of gram.c. The second one, z, is built manually, by retrieving the symbols of "str" and of "lm" via the install function. The structure of x and y are shown at the bottom of this email. Evaluating x succeeds:
# R.Raw.eval_langsxp x;;
function (formula, data, subset, weights, na.action, method = "qr",
model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE,
contrasts = NULL, offset, ...)
- : R.Raw.sexp = <abstr>
# ml_eval x;;
function (formula, data, subset, weights, na.action, method = "qr",
model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE,
contrasts = NULL, offset, ...)
- : R.Raw.sexp = <abstr>
While evaluating z fails. (ml_eval is a an OCaml function mimicking the eval function of eval.c).
# R.Raw.eval_langsxp z;; Erreur dans function (object, ...) : function g?n?rique incorrecte dans 'UseMethod' Exception: Failure "OCaml-R error in r_eval_sxp C stub.". # ml_eval z;; Erreur : impossible de trouver la fonction "???" /bin/sh: line 1: 15884 Erreur de segmentation ocaml
So I was wondering if someone could give some advice on what I am doing wrong when building z. Here's the structure of x (parser-generated from R code/string) and of z (manually constructed with 'install').
# show x;;
- : R.Internal.Pretty.t = CALL (ARG "str", [(NULL, ARG "lm")])
# show z;;
- : R.Internal.Pretty.t =
CALL
(PROMISE
{value =
CLOSURE {formals = LIST [(ARG "object", PLACE); (ARG "...", PLACE)]};
expr =
CALL (SYMBOL (Some ("lazyLoadDBfetch", BUILTIN)),
[(NULL, INT [166954; 101]); (NULL, ARG "datafile");
(NULL, ARG "compressed"); (NULL, ARG "envhook")]);
prom_env = NULL},
[(NULL,
PROMISE
{value =
CLOSURE
{formals =
LIST
[(ARG "formula", PLACE); (ARG "data", PLACE); (Unknown, PLACE);
(ARG "weights", PLACE); (ARG "na.action", PLACE);
(ARG "method", STRINGS ["qr"]); (ARG "model", Unknown);
(ARG "x", Unknown); (ARG "y", Unknown); (Unknown, Unknown);
(ARG "singular.ok", Unknown); (ARG "contrasts", NULL);
(ARG "offset", PLACE); (ARG "...", PLACE)]};
expr =
CALL (SYMBOL (Some ("lazyLoadDBfetch", BUILTIN)),
[(NULL, INT [200005; 1139]); (NULL, ARG "datafile");
(NULL, ARG "compressed"); (NULL, ARG "envhook")]);
prom_env = NULL})])
# ml_eval x;;
function (formula, data, subset, weights, na.action, method = "qr",
model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE,
contrasts = NULL, offset, ...)
- : R.Raw.sexp = <abstr>
# ml_eval z;;
Erreur : impossible de trouver la fonction "??J"
/bin/sh: line 1: 26563 Erreur de segmentation ocaml
make: *** [test-ocaml-r] Erreur 139
All the best,
Guillaume Yziquel http://yziquel.homelinux.org/