Package erjang

Examples of erjang.ETuple

129
130
131
132
133
134
135
136
137
138
139
  /** return list of matching members' vars */
  ESeq match_vars(ESeq out, ISeq in) {

    while (in != null) {
      ETuple elm = (ETuple) in.first();
      if (elm == null)
        break;

      EMatchContext res = new EMatchContext(out_vars, elm);
      if (matcher.match(elm, res)) {
View Full Code Here
459
460
461
462
463
464
465
466
467
468
469
470
471
        return vm.value;
      }
    } else if (matcher instanceof ValuePattern) {
      ValuePattern vp = (ValuePattern) matcher;
      if (vp.value instanceof ETuple) {
        ETuple et = (ETuple) vp.value;
        if (keypos1 < 1 || keypos1 > et.arity())
          return null;
        return et.elm(keypos1);
      }
    }
    return null;
  }
View Full Code Here
295
296
297
298
299
300
301
302
303
304
        elems[idx1 - 1] = tup.elm(idx1).compileMatch(out);
      }
    }

    public boolean match(EObject elm, EMatchContext res) {
      ETuple tup;
      if ((tup = elm.testTuple()) == null)
        return false;
      return match(tup, res);
    }
View Full Code Here
44
45
46
47
48
49
50
51
52
53
54
    }
    return res;
  }

  public EObject makeTuple() {
    ETuple res = ETuple.make(varnames.length);
    for (int i = 0; i < varnames.length; i++) {
      res.set(i+1, vars.get(varnames[i]));
    }
    return res;
  }
View Full Code Here
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
    return output_converter.convert(out);
  }

  public static Charset encodingSpecToCharset(EObject encoding) {
    EAtom ea;
    ETuple et;
    if ((ea = encoding.testAtom()) != null) {
      if (ea.equals(LATIN1_ATOM))
        return Charset.forName("ISO-8859-1");
      else if (ea.equals(UNICODE_ATOM) ||
           ea.equals(UTF8_ATOM))
        return Charset.forName("UTF-8");
      else if (ea.equals(UTF16_ATOM))
        return Charset.forName("UTF-16BE");
    } else if ((et = encoding.testTuple()) != null) {
      EAtom ea2;
      if ((ea  = et.elm(1).testAtom()) != null &&
        (ea2 = et.elm(21).testAtom()) != null) {
        if (ea.equals(UTF16_ATOM)){
          if (ea2.equals(LITTLE_ATOM))
            return Charset.forName("UTF-16LE");
          if (ea2.equals(BIG_ATOM))
            return Charset.forName("UTF-16BE");
View Full Code Here
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
                                            // TODO: Implement LINE instruction!
                                            continue next_insn;
                                        }

          default: {
            ETuple insn = insn_.toSymbolicTuple();
            throw new Error("unhandled: " + insn + "::" + current);
          }
          }//switch
        }
View Full Code Here
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
      public void visitInsn(Insn insn) {
        insns.add(insn);
      }

      private TypeMap setType(TypeMap current, EObject dd, Type type) {
        ETuple dst = dd.testTuple();

        EObject key = dst.elm(1);
        EObject value = dst.elm(2);
        if (key == X_ATOM) {
          current = current.setx(value.asInt(),
              type == Type.DOUBLE_TYPE ? EDOUBLE_TYPE : type,
                     FV.this);
        } else if (key == Y_ATOM) {
View Full Code Here
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
        }

        return arr;
      }

      ETuple tup;
      if ((tup = val.testTuple()) != null) {
        int length = tup.arity();
        Class<?> componentType = type.getComponentType();
        Object arr = Array.newInstance(componentType, length);

        for (int index = 0; index < length; index++) {
          Object value = JavaObject.unbox(self, componentType, tup
              .elm(index + 1));
          Array.set(arr, index, value);
        }

        return arr;
View Full Code Here
671
672
673
674
675
676
677
678
679
680
681
      } catch (InvocationTargetException e) {
        Throwable te = e.getTargetException();
        if (te instanceof ErlangException) {
          throw (ErlangException) te;
        } else {
          ETuple reason = ETuple.make(EAtom.intern(te.getClass()
              .getName()), EString.fromString(te.getMessage()));
          throw new ErlangError(reason, args);
        }
      }
View Full Code Here
721
722
723
724
725
726
727
728
729
730
731
      } catch (InvocationTargetException e) {
        Throwable te = e.getTargetException();
        if (te instanceof ErlangException) {
          throw (ErlangException) te;
        } else {
          ETuple reason = ETuple.make(EAtom.intern(te.getClass()
              .getName()), EString.fromString(te.getMessage()));
          throw new ErlangError(reason, args);
        }
      }
View Full Code Here
TOP

Related Classes of erjang.ETuple

  • erjang.beam.analysis.BeamTypeAnalysis$FV$LabeledBlock
  • erjang.beam.CompilerVisitor
  • erjang.beam.ErlangBeamDisLoader
  • erjang.beam.repr.FunctionRepr
  • erjang.beam.repr.Insn
  • erjang.beam.repr.ModuleRepr
  • erjang.beam.SymbolicBeamFileData
  • erjang.driver.EDriverTask
  • erjang.driver.tcp_inet.TCPINet
  • erjang.driver.tcp_inet.TCPINetCallbacks
    • 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.