Package erjang

Examples of erjang.ETuple2

399
400
401
402
403
404
405
406
407
408
      if (ordered) vals = vals.reverse();

      if (vals == ERT.NIL) {
        return Native.am_$end_of_table;
      } else if (!seq_has_more(map_seq)) {
        return new ETuple2(vals, Native.am_$end_of_table);
      } else {
        return new ETuple2(vals, new ESetCont(matcher, map_seq, ordered, limit));
      }
    }
View Full Code Here
135
136
137
138
139
140
141
142
143
144
145
    for (; !opts.isNil(); opts = opts.tail()) {
      EObject option = opts.head();

      EAtom atom;
      ETuple2 t2;
      ETuple3 t3;
      if ((atom = option.testAtom()) != null) {
        if (atom == am_bag || atom == am_duplicate_bag
            || atom == am_set || atom == am_ordered_set) {
          type = atom;
View Full Code Here
553
554
555
556
557
558
559
560
561
562
563
      throw ERT.badarg(nameOrTid, matchSpec);
    }
   
    EObject res = table.select(spec, -1);

    ETuple2 tup;
    if (res == am_$end_of_table) {
      return ERT.NIL;
    } else if ((tup=ETuple2.cast(res)) != null
        && (seq = tup.elem1.testSeq()) != null) {
      return seq;
View Full Code Here
761
762
763
764
765
766
767
768
769
770
771
  }

  @BIF static public EObject update_element(EProc proc, EObject tab, EObject key, EObject upd) {
    ETable table = resolve(proc, tab, true);
   
    ETuple2 t_upd = ETuple2.cast(upd);
    ESeq   s_upd = upd.testSeq();
   
    if (table == null
        || (t_upd == null && s_upd == null) 
        || !(table.type==am_set || table.type==am_ordered_set)) {
View Full Code Here
356
357
358
359
360
361
362
363
364
365
366
    } else {
      ETuple candidate = (ETuple) map.valAt(key);
      if (candidate == null) return Native.am_$end_of_table;
      EObject res;
      if ((res = matcher.match(candidate)) != null) {
        return new ETuple2(ERT.NIL.cons(res), Native.am_$end_of_table);
      }
    }
   
    return Native.am_$end_of_table;
  }
View Full Code Here
583
584
585
586
587
588
589
590
591
592
593
        }

        ETuple rep = null;
       
        for (ESeq next = upd ; !next.isNil() ; next = next.tail()) {
          ETuple2 update = ETuple2.cast(next.head());
          if (update == null) return null;
          ESmall idx1 = update.elem1.testSmall();
          if (idx1 == null
              || idx1.value < 1
              || idx1.value > rec.arity()
View Full Code Here
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
  private void send_empty_out_q_msgs() throws Pausable {

    if (empty_out_q_subs.isEmpty())
      return;

    ETuple2 msg = new ETuple2(am_empty_out_q, port());
    for (EHandle h : empty_out_q_subs) {
      h.send(port(), msg);
    }
  }
View Full Code Here
2441
2442
2443
2444
2445
2446
2447
2448
  }

  private void tcp_closed_message() throws Pausable {
    if ((tcp_add_flags & TCP_ADDF_CLOSE_SENT) == 0) {
      tcp_add_flags |= TCP_ADDF_CLOSE_SENT;
      driver_output_term(new ETuple2(am_tcp_closed, port()));
    }
  }
View Full Code Here
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
      out.flip();
      data = EBinary.make(tail);
    }

    ETuple res = ETuple.make(am_inet_async, port(), ERT.box(op.id),
        new ETuple2(ERT.am_ok, data));

    if (log.isLoggable(Level.FINER)) {
      log.finer("sending to " + op.caller + " ! " + res);
    }
View Full Code Here
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
    /*
     * send message:* {inet_reply, Port, Ref, {error,Reason}}
     */
    EHandle caller = this.caller;
    this.caller = null;
    ETuple msg = ETuple.make(am_inet_reply, port(), new ETuple2(
        ERT.am_error, reason));
    if (portlog.isLoggable(Level.FINER)) {
      portlog.finer("sending to " + caller + " ! " + msg);
    }
   
View Full Code Here
TOP

Related Classes of erjang.ETuple2

  • erjang.beam.analysis.BeamTypeAnalysis$FV$LabeledBlock
  • erjang.beam.CompilerVisitor$ASMFunctionAdapter$ASMBlockVisitor
  • erjang.driver.EDriverTask
  • erjang.driver.tcp_inet.TCPINet
  • erjang.driver.tcp_inet.TCPINetCallbacks
  • erjang.m.crypto_server.Native
  • erjang.m.erl_ddll.Native
  • erjang.m.erlang.ErlBif
  • erjang.m.erlang.ErlConvert
  • erjang.m.erlang.ErlDist
    • 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.