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

    try {
      rest = charlist.collectCharList(collector, rest);
    } catch (CharCollector.InvalidElementException e) {
      throw ERT.badarg(charlist, encodingSpec);
    } catch (CharCollector.CollectingException e) {
      EObject data = output_converter.convert(out);
      return ETuple.make(ERROR_ATOM, data, e.restOfInput);
    } catch (IOException e) {
      throw new Error(e); // Not supposed to happen.
    }


    try {
      collector.end();


      if (rest != ERT.NIL) {
        return ETuple.make(INCOMPLETE_ATOM,  
                   output_converter.convert(out),
                   ErlConvert.iolist_to_binary(rest.reverse()));
      }
      
    } catch (CharCollector.PartialDecodingException e) {
      EObject data = output_converter.convert(out);
      return ETuple.make(INCOMPLETE_ATOM, data);
    } catch (IOException e) {
      throw new Error(e); // Not supposed to happen.
    }

View Full Code Here

      @Deprecated
      private Type[] parmTypes(TypeMap current, ESeq args) {
        ArrayList<Type> res = new ArrayList<Type>();


        while (args != ERT.NIL) {
          EObject arg = args.head();
          res.add(getType(current, arg));
          args = args.tail();
        }


        return res.toArray(new Type[res.size()]);

View Full Code Here

      }


      private TypeMap setType(TypeMap current, EObject dd, Type type) {
        ETuple dst = dd.testTuple();


        EObject key = dst.elm(1);
        EObject value = dst.elm(2);
        if (key == X_ATOM) {
          current = current.setx(value.asInt(),
              type == Type.DOUBLE_TYPE ? EDOUBLE_TYPE : type,
                     FV.this);
        } else if (key == Y_ATOM) {
          current = current.sety(value.asInt(),
              type == Type.DOUBLE_TYPE ? EDOUBLE_TYPE : type);
        } else if (key == FR_ATOM) {
          current = current.setf(value.asInt(), type);
        } else {
          throw new Error("unknown " + dst);
        }


        return current;

View Full Code Here

              
              EFun job = EFunCG.get_fun_with_handler("erlang", "apply", 0, new EFunHandler() {
                @Override
                public EObject invoke(EProc proc, EObject[] _) throws Pausable {


                  EObject aa = JavaObject.box(proc, args);
                  EObject at = JavaObject.box(proc, method.getParameterTypes());


                  EObject[] call_args = new EObject[] {
                    EAtom.intern(method.getName()), at, aa
                  };


                  EObject result = ifun.invoke(proc, call_args);


                  Object jresult = JavaObject.unbox(proc,
                      method.getReturnType(),
                      result);

View Full Code Here

      protected Object run(IPersistentMap map) {
        int count = 0;
        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);
          IPersistentCollection c =
            (IPersistentCollection) map.valAt(key, empty());


          // Insert element - noting whether the map grows
          int sizeBefore = c.count();

View Full Code Here

  protected void insert_one(final ETuple value) {
    in_tx(new WithMap<Object>() {
      @Override
      protected Object run(IPersistentMap map) {
        IPersistentCollection empty = empty();
        EObject key = get_key(value);
        IPersistentCollection c =
          (IPersistentCollection) map.valAt(key, empty);


        // Insert element - noting whether the map grows
        int sizeBefore = c.count();

View Full Code Here


  @SuppressWarnings("rawtypes")
  @Override
  public ESeq match(EPattern matcher) {    
    
    EObject key = matcher.getKey(keypos1);
    if (key == null) {
      
      // oops, .. tablescan
      ESeq res = ERT.NIL;

View Full Code Here


  @SuppressWarnings("rawtypes")
  @Override
  public ESeq match_object(final EPattern matcher) {    
    
    EObject key = matcher.getKey(keypos1);
    if (key == null) {
      
      // oops, .. tablescan
      ESeq res = ERT.NIL;

View Full Code Here

  @Override
  protected void delete_object(final ETuple obj) {
    in_tx(new WithMap<Object>() {
      @Override
      protected Object run(IPersistentMap map) {
        EObject key = get_key(obj);
        IPersistentCollection empty = empty();
        IPersistentCollection c =
          (IPersistentCollection) map.valAt(key, empty);
        
        if (c == null || c.count()==0)
          return null;
        
        IPersistentCollection out = empty();
        int deleted = 0;
        
        for (ISeq s = c.seq(); s != null; s = s.next()) {
          EObject val = (EObject) s.first();
          if (val == null) break;
          
          if (! obj.equalsExactly(val)) {
            out = out.cons(val);
          } else {

View Full Code Here

  @Override
  public EObject select(final EMatchSpec matcher, int limit) {
    
    IPersistentMap map = deref();
    
    EObject key = matcher.getTupleKey(keypos1);
    
    if (key == null) {
      EBagCont cont0 = new EBagCont(matcher, map.seq(), null, limit);
      return cont0.select();

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.