Examples of EvalException

Examples of org.renjin.eval.EvalException

492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
      //            CHAR(PRINTNAME(symbol)));
      //      missing = R_GetVarLocMISSING(loc);
      //      val = R_GetVarLocValue(loc);

      if(!next.hasTag()) {
        throw new EvalException("closure formal has no tag! op = " + op);
      }
     
      Symbol symbol = next.getTag();
      SEXP val = rho.findVariable(symbol);
      if(val == Symbol.UNBOUND_VALUE) {
        throw new EvalException("could not find symbol \"%s\" in the environment of the generic function", symbol.getPrintName());
      }

      //      SET_FRAME(newrho, CONS(val, FRAME(newrho)));
      //      SET_TAG(FRAME(newrho), symbol);
View Full Code Here

Examples of org.renjin.eval.EvalException

140
141
142
143
144
145
146
147
148
149
150
    case INTERNAL:
        break;
    case STANDARD:/* FIXME --- implement  's' and 'e' axis styles ! */
    case EXTENDED:
    default:
        throw new EvalException("axis style \"%c\" unimplemented", style.name());
    }

    if (isLog(axis)) { /* 10^max may have gotten +Inf ; or  10^min has become 0 */
        if((temp = Math.pow(10., min)) == 0.) {/* or < 1.01*DBL_MIN */
            temp = Math.min(min_o, 1.01* Double.MIN_VALUE); /* allow smaller non 0 */
 
View Full Code Here

Examples of org.renjin.eval.EvalException

35
36
37
38
39
40
41
  public static void warning(CharPtr text) {
    java.lang.System.out.println(text.asString());
  }

  public static void error(CharPtr text) {
    throw new EvalException(text.asString());
  }
View Full Code Here

Examples of org.renjin.eval.EvalException

101
102
103
104
105
106
107
        return Logical.NA;
      } else {
        return vector.getElementAsLogical(0);
      }
    }
    throw new EvalException(errorMessage);
  }
View Full Code Here

Examples of org.renjin.eval.EvalException

42
43
44
45
46
47
48
49
50
51
52
    super(source);
    this.coordinateMatrix = new Matrix((Vector)subscript);
    this.sourceDim = dimAsIntArray(source);
   
    if(sourceDim.length != coordinateMatrix.getNumCols()) {
      throw new EvalException("The number of dimensions in the source (%d) does not " +
          "match the number of columns in the provided coordinate matrix (%d)",
          sourceDim.length,
          coordinateMatrix.getNumCols());
    }   
  }
View Full Code Here

Examples of org.renjin.eval.EvalException

61
62
63
64
65
66
67
68
69
70
71
   *
   */
  @Internal("parent.frame")
  public static Environment parentFrame(@Current Context context,  int n) {
    if(n < 1) {
      throw new EvalException("invalid 'n' value");
    }

    // note that we actually climb n+1 parents in order to
    // skip the closure that makes the .Internal(parent.frame()) call

View Full Code Here

Examples of org.renjin.eval.EvalException

629
630
631
632
633
634
635
636
637
638
639
        } else if(vector instanceof IntVector) {
          sb.append(cs.internalsprintf(vector.getElementAsInt(j)));
        } else if(vector instanceof StringVector) {
          sb.append(cs.internalsprintf(vector.getElementAsString(j)));
        } else {
          throw new EvalException("Cannot use '%s' as an sprintf argument", vector.getTypeName());
        }
        if (!cs.isPositionalSpecification())
          i++;
      }
    }
View Full Code Here

Examples of org.renjin.eval.EvalException

94
95
96
97
98
99
100
101
102
103
104
    * but then we wouldn't be compatible with S.
    **/
  private static int R_sysparent(int n, Context cptr) {
    int j;
    if(n <= 0) {
      throw new EvalException("only positive values of 'n' are allowed");
    }
    while (!cptr.isTopLevel() && n > 1) {
      if (cptr.getType() == Type.FUNCTION ) {
        n--;
      }
View Full Code Here

Examples of org.renjin.eval.EvalException

138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
      n = cptr.getFrameDepth() - n;
    } else {
      n = - n;
    }
    if (n < 0) {
      throw new EvalException("not that many frames on the stack");
    }
    while (!cptr.isTopLevel()) {
      if (cptr.getType() == Type.FUNCTION ) {
        if (n == 0)
          return cptr.getClosure();
        else
          n--;
      }
      cptr = cptr.getParent();
    }
    if (n == 0 && cptr.isTopLevel()) {
      return cptr.getClosure();
    }
    throw new EvalException("not that many frames on the stack");
  }
View Full Code Here

Examples of org.renjin.eval.EvalException

644
645
646
647
648
649
650
651
    SEXP exp = o[i];
    if(exp instanceof LogicalVector || exp instanceof DoubleVector || exp instanceof IntVector) {
      int j = cycleIndex % exp.length();
      return ((AtomicVector)exp).getElementAsInt(j);
    } else {
      throw new EvalException("expected integer at argument %d", i+1);
    }
  }
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.