Displaying 5 results from an estimated 5 matches for "evaln".
Did you mean:
eval
2008 Sep 26
0
The 'data' argument and scoping in nls
...nitial = function(mCall, data, LHS)
{
# identify formula variables other than parameters (Coeff in this example)
Vnames <- all.vars(as.call(mCall))[!(all.vars(as.call(mCall)) %in%
as.character(mCall[["Coeff"]]))]
# list their values, checking first in data then in parent.frame
evaln <- function(x,...) eval(as.name(x), ...)
data <- lapply(Vnames, evaln, envir=data, enclos=parent.frame())
names(data) <- Vnames
:
# other processing ending up in a call to another selfStart
# e.g. getInitial( .. ~ ssB( ....), data = data
},
-----------------
... where if a v...
2019 Jan 25
0
[klibc:update-dash] eval: Return status in eval functions
...gs | ((isor >> 1) - 1)) & EV_TESTED
- );
- if (!exitstatus == isor)
+ status = evaltree(n->nbinary.ch1,
+ (flags | ((isor >> 1) - 1)) & EV_TESTED);
+ if (!status == isor || evalskip)
break;
- if (!evalskip) {
- n = n->nbinary.ch2;
+ n = n->nbinary.ch2;
evaln:
- evalfn = evaltree;
+ evalfn = evaltree;
calleval:
- evalfn(n, flags);
- break;
- }
- break;
+ status = evalfn(n, flags);
+ goto setstatus;
case NIF:
- evaltree(n->nif.test, EV_TESTED);
+ status = evaltree(n->nif.test, EV_TESTED);
if (evalskip)
break;
- if (exitstatu...
2020 Mar 28
0
[klibc:update-dash] dash: eval: Return status in eval functions
...gs | ((isor >> 1) - 1)) & EV_TESTED
- );
- if (!exitstatus == isor)
+ status = evaltree(n->nbinary.ch1,
+ (flags | ((isor >> 1) - 1)) & EV_TESTED);
+ if (!status == isor || evalskip)
break;
- if (!evalskip) {
- n = n->nbinary.ch2;
+ n = n->nbinary.ch2;
evaln:
- evalfn = evaltree;
+ evalfn = evaltree;
calleval:
- evalfn(n, flags);
- break;
- }
- break;
+ status = evalfn(n, flags);
+ goto setstatus;
case NIF:
- evaltree(n->nif.test, EV_TESTED);
+ status = evaltree(n->nif.test, EV_TESTED);
if (evalskip)
break;
- if (exitstatu...
2019 Jan 25
0
[klibc:update-dash] [PATCH] eval: Silence compiler warning about missing parentheses
...eval.c
+++ b/usr/dash/eval.c
@@ -278,7 +278,7 @@ checkexit:
isor = n->type - NAND;
status = evaltree(n->nbinary.ch1,
(flags | ((isor >> 1) - 1)) & EV_TESTED);
- if (!status == isor || evalskip)
+ if ((!status) == isor || evalskip)
break;
n = n->nbinary.ch2;
evaln:
2020 Mar 28
0
[klibc:update-dash] dash: eval: Silence compiler warning about missing parentheses
...eval.c
+++ b/usr/dash/eval.c
@@ -279,7 +279,7 @@ checkexit:
isor = n->type - NAND;
status = evaltree(n->nbinary.ch1,
(flags | ((isor >> 1) - 1)) & EV_TESTED);
- if (!status == isor || evalskip)
+ if ((!status) == isor || evalskip)
break;
n = n->nbinary.ch2;
evaln: