Package erjang

Examples of erjang.ETuple

1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
    return ERT.box(t.arity());
  }

  @BIF(type = Type.GUARD, name = "tuple_size")
  public static ESmall tuple_size_guard(EObject tup) {
    ETuple t;
    if ((t = tup.testTuple()) == null)
      return null;
    return ERT.box(t.arity());
  }
View Full Code Here
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
    for (Map.Entry<EObject, String> ent : constants.entrySet()) {

      EObject term = ent.getKey();
      Type type = getConstantType(term);

      ETuple tup;
      if (((tup=term.testTuple()) != null || term.testCons() != null) 
          && term != ERT.NIL
          && !type.equals(ESTRING_TYPE)
          && !( tup != null && tup.arity()==5 && tup.elm(1) == ETuple.am_Elixir_Regex)
          ) {
        EBinary bin = ErlConvert.term_to_binary(term, EList.make(ErlConvert.am_compressed));
        bin.emit_const(mv);
       
        mv.visitMethodInsn(INVOKESTATIC,
View Full Code Here
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
    if (key == null || nth == null | list == null)
        throw ERT.badarg(key, nth_arg, list_arg);

    while (!list.isNil()) {
      EObject elm = list.head();
      ETuple tup = elm.testTuple();

      // test that it is a tuple of the right size
      if (tup != null && tup.arity() >= nth.value) {       
        EObject val = tup.elm(nth.value);
        if (val.equals(key)) { return ERT.TRUE; }
      }
     
      list = list.tail();
    }
View Full Code Here
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
    if (key == null || nth == null | list == null)
        throw ERT.badarg(key, nth_arg, list_arg);

    while (!list.isNil()) {
      EObject elm = list.head();
      ETuple tup = elm.testTuple();

      // test that it is a tuple of the right size
      if (tup != null && tup.arity() >= nth.value) {       
        EObject val = tup.elm(nth.value);
        if (val.equals(key)) { return tup; }
      }
     
      list = list.tail();
    }
View Full Code Here
103
104
105
106
107
108
109
110
111
112
113
114
115
116
    int index = idx.value;

    while (!src.isNil()) {
      EObject elm = src.head();
     
      ETuple tup;
      if ((tup = elm.testTuple()) != null) {
        if (tup.arity() >= index) {
          if (tup.elm(index).equals(k)) {
            return new ETuple2(ERT.am_value, tup);
          }
        }
      }
     
View Full Code Here
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
  @BIF
  public static EObject delete_element(EObject idx0, EObject tup0)
  {
    ESmall idx = idx0.testSmall();
    ETuple tup = tup0.testTuple();
    if (idx == null || tup == null || idx.value < 1 || idx.value > tup.arity())
      throw ERT.badarg(idx0, tup0);
   
    EObject[] vals = new EObject[tup.arity()-1];
    int target = 0;
    for (int i = 0; i < tup.arity(); i++) {
      if ((i+1) != idx.value) {
        vals[target++] = tup.elm(i+1);
      }
    }
   
    return ETuple.make(vals);
  }
View Full Code Here
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
  @BIF
  public static EObject
  insert_element(EObject idx0, EObject tup0, EObject term)
  {
    ESmall idx = idx0.testSmall();
    ETuple tup = tup0.testTuple();
    if (idx == null || tup == null || idx.value < 1 || idx.value > tup.arity()+1)
      throw ERT.badarg(idx0, tup0);
   
    EObject[] vals = new EObject[tup.arity()+1];
    int target = 0;
    for (int i = 0; i < tup.arity(); i++) {
      if ((i+1) == idx.value) {
        vals[target++] = term;
      }
     
      vals[target++] = tup.elm(i+1);
    }
   
    return ETuple.make(vals);
  }
View Full Code Here
268
269
270
271
272
273
274
275
276
277
278
  @BIF
  static EPort open_port(EProc proc, EObject portName, EObject portSetting)
      throws Pausable {

    ETuple t;
    if ((t = portName.testTuple()) == null)
      throw ERT.badarg(portName, portSetting);

    ETask<? extends EPort> task = null;
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.