[Rd] Symbols, install, and eval.

From: Guillaume Yziquel <guillaume.yziquel_at_citycable.ch>
Date: Thu, 26 Nov 2009 02:27:08 +0100


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/

______________________________________________
R-devel_at_r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
Received on Thu 26 Nov 2009 - 01:33:06 GMT

This archive was generated by hypermail 2.2.0 : Thu 26 Nov 2009 - 12:30:47 GMT