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

    byte[] bytes = string.getBytes(IO.UTF8);
    ByteBuffer buf = ByteBuffer.wrap(bytes);


    // driver_output(bb);


    EObject out;


    if (task.send_binary_data()) {
      out = EBinary.make(buf);
    } else {
      out = EString.make(buf);

View Full Code Here

      constants.put(module_md5, "module_md5");
    }


    for (Map.Entry<EObject, String> ent : constants.entrySet()) {


      EObject term = ent.getKey();
      Type type = getConstantType(term);


      ETuple tup;
      if (((tup=term.testTuple()) != null || term.testCons() != null)  
          && term != ERT.NIL
          && !type.equals(ESTRING_TYPE)
          && !( tup != null && tup.arity()==5 && tup.elm(1) == ETuple.am_Elixir_Regex)
          ) {
        EBinary bin = ErlConvert.term_to_binary(term, EList.make(ErlConvert.am_compressed));
        bin.emit_const(mv);
        
        mv.visitMethodInsn(INVOKESTATIC, 
            Type.getType(ErlConvert.class).getInternalName(),
            "binary_to_term",
            EUtil.getSignature(1, false));
        
        mv.visitTypeInsn(CHECKCAST, type.getInternalName());
        
      } else {    
        term.emit_const(mv);
      }
      
      mv.visitFieldInsn(Opcodes.PUTSTATIC, self_type.getInternalName(),
          ent.getValue(), type
              .getDescriptor());

View Full Code Here

      code.add((char)0xFFFF);
      return pos;
    }


    protected int encodeLiteral(Operands.Literal lit) {
      EObject value = lit.literalValue();
      Integer index = const_map.get(value);
      if (index == null) {
        index = const_map.size();
        consts.add(value);
        const_map.put(value, index);

View Full Code Here

    }


    protected int encodeValueJumpTable(Operands.SelectList jumpTable) {
      final ValueJumpTable table = new ValueJumpTable();
      for (int i=0; i<jumpTable.size(); i++) {
        final EObject value = ((Operands.Literal)jumpTable.getValue(i)).literalValue();
        int label = jumpTable.getLabel(i).nr;
        table.put(value, -12347);
        backpatches.add(new Backpatch(label) {
          public String toString() {return "Backpatch<value jump table "+label+">";}
          public void patch(int labelOffset) {

View Full Code Here

    EInternalPort iport;
    EInternalPID ipid;
    
    if ((iport=arg_port.testInternalPort()) == null) {
      EAtom port_name = arg_port.testAtom();
      EObject resolved;
      if (port_name != null 
        && (resolved=ERT.whereis(port_name)) != ERT.am_undefined
        && (iport=resolved.testInternalPort()) != null) {
        // ok //
      } else {
        throw ERT.badarg(arg_port, arg_pid);
      }
    }


    if ((ipid=arg_pid.testInternalPID()) == null) {
      EAtom pid_name = arg_pid.testAtom();
      EObject resolved;
      if (pid_name != null 
        && (resolved=ERT.whereis(pid_name)) != ERT.am_undefined
        && (ipid=resolved.testInternalPID()) != null) {
        // ok //
      } else {
        throw ERT.badarg(arg_port, arg_pid);
      }
    }

View Full Code Here

  @BIF
  static public EObject port_close(EProc proc, EObject port) throws Pausable {
    EPort p;
    if ((p = port.testPort()) == null) {


      EObject obj = ERT.whereis(port);


      if (obj == ERT.am_undefined || ((p = obj.testPort()) == null)) {
        throw ERT.badarg(port);
      }
    }


    if (!p.isOpen()) {

View Full Code Here

  @BIF
  static public EObject port_info(EProc proc, EObject a1, EObject a2) {
    EPort p = a1.testPort();
    EAtom spec = a2.testAtom();
    if (p==null || spec==null) throw ERT.badarg();
    EObject info = p.port_info(spec);
    //log.finer(""+proc.self_handle()+"::port_info ("+a1+") => "+info);
    return info;
  }

View Full Code Here


  private static EPort id_or_name2port(EObject port) {
    EPort p = port.testPort();
    if (p != null) return p;
      
    EObject p2 = ERT.whereis(port);
    
    // p2 is ERT.am_undefined if not found
    
    return p2.testPort();
  }

View Full Code Here

    
    if (key == null || nth == null | list == null)
        throw ERT.badarg(key, nth_arg, list_arg);


    while (!list.isNil()) {
      EObject elm = list.head();
      ETuple tup = elm.testTuple();


      // test that it is a tuple of the right size
      if (tup != null && tup.arity() >= nth.value) {        
        EObject val = tup.elm(nth.value);
        if (val.equals(key)) { return ERT.TRUE; }
      }
      
      list = list.tail();
    }

View Full Code Here

    
    if (key == null || nth == null | list == null)
        throw ERT.badarg(key, nth_arg, list_arg);


    while (!list.isNil()) {
      EObject elm = list.head();
      ETuple tup = elm.testTuple();


      // test that it is a tuple of the right size
      if (tup != null && tup.arity() >= nth.value) {        
        EObject val = tup.elm(nth.value);
        if (val.equals(key)) { return tup; }
      }
      
      list = list.tail();
    }

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.