Example #1
0
 public static void addDialyzerWarningMarkersFromResultList(
     final IErlProject project, final Backend backend, final OtpErlangList result) {
   if (result == null) {
     return;
   }
   final IProject p = project.getProject();
   for (final OtpErlangObject i : result) {
     final OtpErlangTuple t = (OtpErlangTuple) i;
     final OtpErlangTuple fileLine = (OtpErlangTuple) t.elementAt(1);
     final String filename = Util.stringValue(fileLine.elementAt(0));
     final OtpErlangLong lineL = (OtpErlangLong) fileLine.elementAt(1);
     int line = 1;
     try {
       line = lineL.intValue();
     } catch (final OtpErlangRangeException e) {
       ErlLogger.error(e);
     }
     String s = ErlideDialyze.formatWarning(backend, t).trim();
     final int j = s.indexOf(": ");
     if (j != -1) {
       s = s.substring(j + 1);
     }
     addDialyzerWarningMarker(p, filename, line, s);
   }
 }
Example #2
0
 /**
  * Returns the Java long value of the wrapped erlang value.
  *
  * @return the converted value
  * @throws ClassCastException if thrown if a conversion is not possible, i.e. the type is not
  *     supported or the value is too big
  */
 public long longValue() throws ClassCastException {
   final OtpErlangLong longValue = (OtpErlangLong) value;
   if (longValue.isLong()) {
     return longValue.longValue();
   } else {
     throw new ClassCastException(
         "Cannot cast to long - value is too big (use bigIntValue() instead).");
   }
 }
Example #3
0
 public List<IStackFrame> getStackFrames(final IDebugTarget target, final IThread process) {
   // XXX JC copy paste
   final OtpErlangTuple tuple = getTuple();
   final OtpErlangList erlStackFrames = (OtpErlangList) tuple.elementAt(2);
   final OtpErlangTuple t2 = (OtpErlangTuple) tuple.elementAt(1);
   final OtpErlangTuple ieval = (OtpErlangTuple) t2.elementAt(0);
   OtpErlangAtom m = (OtpErlangAtom) ieval.elementAt(3);
   OtpErlangList bindings = (OtpErlangList) t2.elementAt(t2.arity() - 1);
   OtpErlangLong l = (OtpErlangLong) ieval.elementAt(1);
   final List<IStackFrame> stackFrames = new ArrayList<IStackFrame>(erlStackFrames.arity() + 1);
   for (final OtpErlangObject o : erlStackFrames) {
     final OtpErlangTuple t = (OtpErlangTuple) o;
     final OtpErlangTuple ml = (OtpErlangTuple) t.elementAt(1);
     final OtpErlangObject ml0 = ml.elementAt(0);
     int stackFrameNo;
     final OtpErlangLong n = (OtpErlangLong) t.elementAt(3);
     try {
       stackFrameNo = n.intValue();
     } catch (final OtpErlangRangeException e) {
       stackFrameNo = -1;
     }
     final String module = m.atomValue();
     int line;
     try {
       line = l.intValue();
     } catch (final OtpErlangRangeException e) {
       line = -1;
     }
     final IStackFrame sf =
         new ErlangStackFrame(
             module, (ErlangProcess) process, target, line, null, bindings, stackFrameNo);
     stackFrames.add(sf);
     bindings = (OtpErlangList) t.elementAt(2);
     m = (OtpErlangAtom) ml0;
     l = (OtpErlangLong) ml.elementAt(1);
   }
   return stackFrames;
 }