Package erjang

Examples of erjang.ESeq.cons()

144
145
146
147
148
149
150
151
152
153
154
    ESeq rep = ERT.NIL;
    ETable table = this;
   
    rep = rep.cons(new ETuple2(Native.am_owner, table.owner_pid()));
    rep = rep.cons(new ETuple2(Native.am_named_table, ERT.box(table.is_named)));
    rep = rep.cons(new ETuple2(Native.am_name, table.aname));
    if (table.heirPID != null)
      rep = rep.cons(new ETuple2(Native.am_heir, table.heirPID));
    else
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
View Full Code Here
146
147
148
149
150
151
152
153
154
155
156
   
    rep = rep.cons(new ETuple2(Native.am_owner, table.owner_pid()));
    rep = rep.cons(new ETuple2(Native.am_named_table, ERT.box(table.is_named)));
    rep = rep.cons(new ETuple2(Native.am_name, table.aname));
    if (table.heirPID != null)
      rep = rep.cons(new ETuple2(Native.am_heir, table.heirPID));
    else
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
View Full Code Here
148
149
150
151
152
153
154
155
156
157
158
    rep = rep.cons(new ETuple2(Native.am_named_table, ERT.box(table.is_named)));
    rep = rep.cons(new ETuple2(Native.am_name, table.aname));
    if (table.heirPID != null)
      rep = rep.cons(new ETuple2(Native.am_heir, table.heirPID));
    else
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
    rep = rep.cons(new ETuple2(Native.am_keypos, ERT.box(table.keypos1)));
    rep = rep.cons(new ETuple2(Native.am_protection, table.access));
View Full Code Here
149
150
151
152
153
154
155
156
157
158
159
    rep = rep.cons(new ETuple2(Native.am_name, table.aname));
    if (table.heirPID != null)
      rep = rep.cons(new ETuple2(Native.am_heir, table.heirPID));
    else
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
    rep = rep.cons(new ETuple2(Native.am_keypos, ERT.box(table.keypos1)));
    rep = rep.cons(new ETuple2(Native.am_protection, table.access));
    rep = rep.cons(new ETuple2(Native.am_fixed, ERT.box(is_fixed)));
View Full Code Here
150
151
152
153
154
155
156
157
158
159
160
    if (table.heirPID != null)
      rep = rep.cons(new ETuple2(Native.am_heir, table.heirPID));
    else
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
    rep = rep.cons(new ETuple2(Native.am_keypos, ERT.box(table.keypos1)));
    rep = rep.cons(new ETuple2(Native.am_protection, table.access));
    rep = rep.cons(new ETuple2(Native.am_fixed, ERT.box(is_fixed)));
View Full Code Here
151
152
153
154
155
156
157
158
159
160
161
      rep = rep.cons(new ETuple2(Native.am_heir, table.heirPID));
    else
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
    rep = rep.cons(new ETuple2(Native.am_keypos, ERT.box(table.keypos1)));
    rep = rep.cons(new ETuple2(Native.am_protection, table.access));
    rep = rep.cons(new ETuple2(Native.am_fixed, ERT.box(is_fixed)));

    return rep;
View Full Code Here
152
153
154
155
156
157
158
159
160
161
162
    else
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
    rep = rep.cons(new ETuple2(Native.am_keypos, ERT.box(table.keypos1)));
    rep = rep.cons(new ETuple2(Native.am_protection, table.access));
    rep = rep.cons(new ETuple2(Native.am_fixed, ERT.box(is_fixed)));

    return rep;
  }
View Full Code Here
153
154
155
156
157
158
159
160
161
162
163
      rep = rep.cons(new ETuple2(Native.am_heir, Native.am_none));
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
    rep = rep.cons(new ETuple2(Native.am_keypos, ERT.box(table.keypos1)));
    rep = rep.cons(new ETuple2(Native.am_protection, table.access));
    rep = rep.cons(new ETuple2(Native.am_fixed, ERT.box(is_fixed)));

    return rep;
  }
View Full Code Here
154
155
156
157
158
159
160
161
162
163
164
    rep = rep.cons(new ETuple2(Native.am_size, ERT.box(table.size())));
    rep = rep.cons(new ETuple2(Native.am_node, ERT.getLocalNode().node()));
    rep = rep.cons(new ETuple2(Native.am_type, table.type));
    rep = rep.cons(new ETuple2(Native.am_keypos, ERT.box(table.keypos1)));
    rep = rep.cons(new ETuple2(Native.am_protection, table.access));
    rep = rep.cons(new ETuple2(Native.am_fixed, ERT.box(is_fixed)));

    return rep;
  }

 
View Full Code Here
503
504
505
506
507
508
509
510
511
512
513
    if ((t=tup.testTuple()) == null) { throw ERT.badarg(tup); }

    ESeq res = ERT.NIL;
    for (int i = t.arity(); i > 0; i--) {
      EObject e = t.elm(i);
      res = res.cons(e==null?ERT.NIL:e);
    }
   
    return res;
  }
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.