Examples of erjang.EObject

erjang.EObject
The base class for representing Erlang values. This class embodies in particular (the base of) the following concerns: - Dynamic value kind testing; - Erlang value ordering (incl. "compare-same") and "exact equality" (as used in matching). - The unary and binary operators built into the Erlang language Furthermore, the class contains helper methods concerned with: - building and flattening of lists; - counting up and down, and integer zero-testing. (TODO: consider these) Regarding EObjects and collections: Erjang will need to form both hash tables and ordered collections of EObjects. For hashing purposes, EObject implements equals() and hashCode(). While EObjects have an ordering (the value ordering defined by Erlang), it is not total: an integer and its floating-point equivalent are considered equivalent as far as the ordering is concerned, though not by equals(). EObject therefore intentionally does not implement Comparable; instead, use the explicit comparator EObject.ERLANG_ORDERING. (This is also the reason that its comparison method is called erlangCompareTo() rather than plain compareTo().)

    
    return barr.asBinary();
  }


  private static void collectList(EObject list, ECons iol, OutputStream barr) throws IOException {
    EObject tail;
    ECons cons;
    for (tail=iol; (cons = tail.testNonEmptyList()) != null; tail = cons.tail()) {
      EObject hd = cons.head();


      ESmall sm;
      EBinary bi;
      ECons co;
      if ((sm = hd.testSmall()) != null) {
        if (sm.value < 0 || sm.value > 255)
          throw ERT.badarg(list);
        barr.write(sm.value);
      } else if ((bi = hd.testBinary()) != null) {
        bi.writeTo(barr);
      } else if ((co = hd.testNonEmptyList()) != null) {
        collectList(list, co, barr);
      } else if (hd.isNil()) {
      } else {
        throw ERT.badarg(list);
      }
    }

View Full Code Here

    ETuple t;
    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

    final EObject[] tmp = l1.toArray();


    // Step 2: Delete elements occurring l2 (but only once)
    int tmp_start = 0;
    for (ESeq cur = l2; !cur.isNil(); cur=cur.tail()) {
      EObject elm = cur.head();
      for (int i=tmp_start; i<tmp.length; i++) {
        if (tmp[i] != null && tmp[i].equalsExactly(elm)) {
          // Delete element
          tmp[i] = null;

View Full Code Here

        
        IMapEntry mape = (IMapEntry) map_seq.first();
        map_seq = map_seq.next();
        
        ETuple candidate = (ETuple) mape.getValue();
        EObject res;
        if ((res = matcher.match(candidate)) != null) {
          count += 1;
          vals = vals.cons(res);
        }
      }

View Full Code Here

  @BIF
  static EObject apply(EProc proc, EObject fun, EObject args) throws Pausable {
    ESeq a = args.testSeq();
    if (a==null) throw ERT.badarg(fun,args);
    
    EObject res;
    EFun f = fun.testFunction();
    if (f != null) {
      res = apply_last(proc, f, a);
    } else {

View Full Code Here

    
    if ((mod==null && t == null && jo == null)||fun==null||args==null) throw ERT.badarg(one, two, three);
    
    EFun f = ERT.resolve_fun(one, fun, args.length());
    
    EObject res = apply_last(proc, f, args);
    
    while (res == EProc.TAIL_MARKER) {
      res = proc.tail.go(proc);
    }

View Full Code Here

        throw exit;
    }
    
    @BIF
    public static EObject binary_part(EObject bin, EObject start, EObject length) {
      EObject result = binary_part_guard(bin, start, length);
      if (result == null) {
        throw ERT.badarg(bin, start, length);        
      }
      return result;
    }

View Full Code Here

      }
    } else {
      throw ERT.badarg(term, matchSpec, how);
    }
    
    EObject res = spec.match(term);
    if (res == null) {
      return ETuple.make(ERT.am_ok, ERT.FALSE, ERT.NIL, ERT.NIL);
    } else {
      return ETuple.make(ERT.am_ok, ERT.TRUE, ERT.NIL, ERT.NIL);
    }

View Full Code Here

    ERT.run_async(job, task);
  }


  protected void driver_outputv(ByteBuffer hdr, ByteBuffer[] ev) throws Pausable {
    
    EObject resp = ERT.NIL;
    
    if (task.send_binary_data) {
    
    if (ev.length > 0) {
      ev[ev.length-1].flip();
      resp = EBinary.make(ev[ev.length-1]);
    
      for (int i = ev.length-2; i >= 0; i--) {
        ev[i].flip();
        resp = resp.cons( EBinary.make(ev[i]) );
      }
    }
    
    } else {
      throw new NotImplemented();

View Full Code Here

    
    if ((status & EDriverTask.ERTS_PORT_SFLG_LINEBUF_IO) != 0) {
      throw new NotImplemented();
    }
    
    EObject tail = null;
    if (buf == null || !buf.hasRemaining()) {
      tail = ERT.NIL;
    } else if (task.send_binary_data) {
      tail = EBinary.make(buf);
    } else {

View Full Code Here

0 1 2 3 4 5 6 7 8

TOP

Related Classes of erjang.EObject

erjang.beam.analysis.BeamTypeAnalysis$FV$LabeledBlock

erjang.beam.CompilerVisitor

erjang.beam.interpreter.AbstractInterpreter$Encoder

erjang.beam.repr.Insn

erjang.console.TTYTextAreaDriverControl

erjang.driver.EDriverInstance

erjang.driver.EDriverTask

erjang.driver.tcp_inet.TCPINet

erjang.driver.tcp_inet.TCPINetCallbacks

erjang.m.erlang.ErlBif

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.