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

      throw ERT.badarg(tab,key,upd);
    }
    
    ETableSet ets = (ETableSet) table;
    
    EObject res = ets.update_counter(key, upd);
    
    if (res == null) {
      throw ERT.badarg(tab,key,upd);      
    }

View Full Code Here

      s_upd = ERT.NIL.cons(t_upd);
    }
    
    ETableSet ets = (ETableSet) table;
    
    EObject res = ets.update_element(key, s_upd);
    
    if (res == null) {
      throw ERT.badarg(tab,key,upd);      
    }

View Full Code Here

    } else {
      
      for (ISeq<IMapEntry<EObject,Object>> seq = map.seq();seq != null;seq = seq.next()) {
        IMapEntry<EObject,Object> ent = (IMapEntry<EObject,Object>) seq.first(); 
        if (ent == null) return Native.am_$end_of_table;
        EObject key = (EObject) ent.getKey();
        if (key.equalsExactly(from)) {
          seq = seq.next();
          if (seq == null) return Native.am_$end_of_table;
          ent = (IMapEntry<EObject,Object>) seq.first(); 
          if (ent == null) return Native.am_$end_of_table;
          return (EObject) ent.getKey();

View Full Code Here

    
    ETuple2 tup2 = ETuple2.cast(head);
    if (tup2 != null) {
      
      if (tup2.elem1 == Native.am_protection) {
        EObject mode = tup2.elem2;
        if (mode == Native.am_private 
            || mode == Native.am_public 
            || mode == Native.am_protected) {
          this.access = (EAtom) mode;
          return;

View Full Code Here

  }


  @Override
  int http_error(TCPINet desc, byte[] data, int pos, int len) throws Pausable {


    EObject line = load_string(desc, data, pos, len);


    ETuple2 req = new ETuple2(am_http_error, line);
    
    if (desc.active == ActiveType.PASSIVE) {
          /* {inet_async, S, Ref, {error,{http_error,Line}}} */

View Full Code Here


  @Override
  int http_header(TCPINet desc, HTTPAtom name, byte[] nameBuf, int namePtr,
      int nameLen, byte[] valBuf, int valPtr, int valLen) throws Pausable {


    EObject bit = (name == null)
          ? ERT.box(0)
          : ERT.box( name.index + 1 );
    EObject nam = (name == null)
          ? load_string(desc, nameBuf, namePtr, nameLen)
          : name.atom;
    
    EObject value = load_string(desc, valBuf, valPtr, valLen);
          
          
    ETuple req = ETuple.make(am_http_header, bit, nam, ERT.am_undefined, value);


    return send_http(desc, req);

View Full Code Here


  @Override
  int http_request(TCPINet desc, HTTPAtom method, byte[] data, int meth_ptr,
      int meth_len, PacketHttpURI uri, int major, int minor) throws Pausable {
    
    EObject meth = 
        (method == null) 
        ? load_string(desc, data, meth_ptr, meth_len)
        : method.atom; 
    
    ETuple version = new ETuple2(ERT.box(major), ERT.box(minor));

View Full Code Here

  public static EObject binary_to_term(EObject arg) {
    EBinary bin;
    if ((bin=arg.testBinary()) == null) throw ERT.badarg(arg);
    EInputStream in = bin.getInputStream();
    try {
      EObject val = in.read_any();
      //System.out.println("DECODED:"+val);
      return val;
    } catch (IOException e) {
      throw new ErlangError(ERT.am_badarg, e, arg);
    }

View Full Code Here

      if (options.head() == am_safe) {
        in.setSafe(true);
      }
    }
    try {
      EObject val = in.read_any();
      return val;
    } catch (ErlangError e) {
      throw new ErlangError(ERT.am_badarg, e, arg);
    } catch (IOException e) {
      throw new ErlangError(ERT.am_badarg, e, arg);

View Full Code Here

      throw ERT.badarg(obj, spec);
    }
    
    while (!opts.isNil()) {
      
      EObject val = opts.head();
      ETuple2 tup;
      if (val == am_compressed) {
        compression = 6;
      } else if ((tup=ETuple2.cast(val)) != null) {
        if (tup.elem1 == am_compressed) {

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.