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().)

    if ((status & EDriverTask.ERTS_PORT_SFLG_LINEBUF_IO) != 0) {
      throw new NotImplemented();
    }
    


    EObject out;
    
    if (buf == null || !buf.hasRemaining()) {
      out = ERT.NIL;
    } else if (task.send_binary_data) {
      out = EBinary.make(buf);

View Full Code Here

   * @param fileRespOkHeader
   * @param binp
   * @throws Pausable 
   */
  protected void driver_output_binary(byte[] header, ByteBuffer binp) throws Pausable {
    EObject out = EBinary.make(binp);
    if (header.length > 0) {
      out = new EBinList(header, out);
    }


    task.output_from_driver(out);

View Full Code Here

  @Override
  protected void insert_one(final ETuple value) {
    in_tx(new WithMap<Object>() {
      @Override
      protected Object run(IPersistentMap map) {
        EObject key = get_key(value);
        IPersistentMap new_map = map.assoc(key, value);
        set(new_map);
        return null;
      }
    });

View Full Code Here

  @Override
  protected ESeq lookup(EObject key) {
    ESeq res = ERT.NIL;
    
    // no need to run in_tx if we're only reading
    EObject val = (EObject) deref().valAt(key);
    if (val != null) {
      return res.cons(val);
    } else {
      return res;
    }

View Full Code Here

  }
  
  @Override
  protected EAtom member(EObject key) {
    // no need to run in_tx if we're only reading
    EObject val = (EObject) deref().valAt(key);
    if (val != null) {
      return ERT.TRUE;
    } else {
      return ERT.FALSE;
    }

View Full Code Here

  protected boolean insert_new_many(final ESeq values) {
    // Input verification outside of transaction:
    for (ESeq seq = values; !seq.isNil(); seq = seq.tail()) {
      ETuple value = seq.head().testTuple();
      if (value == null) throw ERT.badarg(values);
      EObject key = get_key(value);
    }


    return in_tx(new WithMap<Boolean>() {
      @Override
      protected Boolean run(IPersistentMap map) {
        for (ESeq seq = values; !seq.isNil(); seq = seq.tail()) {
          ETuple value = seq.head().testTuple();
          EObject key = get_key(value);
          if (map.containsKey(key)) {
            return false;
          }
        }
  
        for (ESeq seq = values; !seq.isNil(); seq = seq.tail()) {
          ETuple value = seq.head().testTuple();
          EObject key = get_key(value);
          map = map.assoc(key, value);
        }
  
        set(map);
        return true;

View Full Code Here

  });
}


  @Override
  protected boolean insert_new_one(final ETuple value) {
    final EObject key = get_key(value);
    if (!deref().containsKey(key)) {
      return in_tx(new WithMap<Boolean>() {
        @Override
        protected Boolean run(IPersistentMap map) {
          if (!map.containsKey(key)) {

View Full Code Here

  @Override
  public ESeq match(EPattern matcher) {    
    IPersistentMap map = deref();
    ESeq res = ERT.NIL;
    
    EObject key = matcher.getKey(keypos1);
    if (key == null) {
      res = matcher.match(res, (Map<EObject, ETuple>) map);
      if (ordered) res = res.reverse();
    } else {
      ETuple candidate = (ETuple) map.valAt(key);

View Full Code Here

  @Override
  public ESeq match_object(EPattern matcher) {    
    IPersistentMap map = deref();
    ESeq res = ERT.NIL;
    
    EObject key = matcher.getKey(keypos1);
    if (key == null) {
      res = matcher.match_members(res, (Map<EObject, ETuple>) map);
      if (ordered) res = res.reverse();
    } else {
      ETuple candidate = (ETuple) map.valAt(key);

View Full Code Here

    in_tx(new WithMap<Object>() {


      @Override
      protected Object run(IPersistentMap map) {
      
        EObject key = get_key(obj);
        
        IMapEntry candidateEntry = map.entryAt(key);
        if (candidateEntry == null) return null;
        EObject candidate = (EObject)candidateEntry.val();
        if (candidate != null && obj.equalsExactly(candidate)) {
          try {
            map = map.without(key);
            set(map);
          } catch (Exception e) {

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.