Package org.renjin.eval

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
101
102
103
104
105
106
107
        return Logical.NA;
      } else {
        return vector.getElementAsLogical(0);
      }
    }
    throw new EvalException(errorMessage);
  }
View Full Code Here
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
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
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
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
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
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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
    }  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) {  /* we need to detach the enclosing env */
          return cptr.getEnvironment();
        } else {
          n--;
        }
      }
      cptr = cptr.getParent();
    }
    if(n == 0 && cptr.isTopLevel()) {
      return cptr.getGlobalEnvironment();
    }
    throw new EvalException("not that many frames on the stack");
  }
View Full Code Here
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
    if (n > 0)
      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.getCall();
        } else {
          n--;
        }
      }
      cptr = cptr.getParent();
    }
    if (n == 0 && cptr.isTopLevel()) {
      return cptr.getCall();
    }
    throw new EvalException("not that many frames on the stack");
  }
View Full Code Here
TOP

Related Classes of org.renjin.eval.EvalException

  • org.renjin.base.Base
  • org.renjin.base.Lapack
  • org.renjin.compiler.ir.tac.expressions.EnvironmentVariable
  • org.renjin.compiler.ir.tac.functions.AssignLeftTranslator
  • org.renjin.compiler.ir.tac.statements.IfStatement
  • org.renjin.compiler.runtime.UnimplementedPrimitive
  • org.renjin.gnur.RenjinCApi
  • org.renjin.graphics.internals.Graphics
  • org.renjin.graphics.internals.Par$Parameter
  • org.renjin.graphics.internals.RgbHsv
    • Copyright © 2018 www.massapicom. 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.