Examples of EInteger


Examples of erjang.EInteger

   
    String s = v.stringValue();
    Matcher m = int_pattern.matcher(s);
    if (m.matches()) {
      String ss = m.group(1);
      EInteger intval = ERT.box_parse(ss);
      ESeq rest;
      if (ss.length() == s.length()) {
        rest = ERT.NIL;
      } else {
        rest = new EString(s.substring(ss.length()));
View Full Code Here

Examples of erjang.EInteger

    return null;
  }

  @Override
  public ESmall testSmall() {
    EInteger iv;
    if ((iv = testInteger()) != null) {
      return iv.testSmall();
    }

    return null;
  }
View Full Code Here

Examples of erjang.EInteger

  }
 
  @Override
  public ENumber testNumber() {

    EInteger i;
    if ((i = testInteger()) != null)
        return i;

    EDouble d;
    if ((d = testFloat()) != null)
View Full Code Here

Examples of erjang.EInteger

    /** Emulate io_lib:write_binary_body(), but without using deep stack. */
    @BIF
    static public EObject write_binary_body(EObject arg1, EObject arg2)
    {
        EBitString bin = arg1.testBitString();
        EInteger d = arg2.testInteger();
       
        if (bin == null || d == null)
            throw ERT.badarg(arg1, arg2);
       
        int depth = d.intValue();
        if (depth < 0) depth=Integer.MAX_VALUE;
       
        ESeq builder = ERT.NIL;
        long bitCount = bin.bitSize();
        if (bitCount > 8*(depth-1)) {
View Full Code Here

Examples of erjang.EInteger

    long hash, final_hash, range;
   
    if (I2POW32.equalsExactly(a2)) {
      range = 0;
    } else {
      EInteger ival;
      if ((ival=a2.testInteger()) == null
        || (range=ival.intValue())==0
        || ((range & ~0xffffffffL) != 0)) throw ERT.badarg(a1,a2);
     
      range = Math.abs(range) & 0xffffffff;
    }
   
View Full Code Here

Examples of erjang.EInteger

    long hash, final_hash, range;
   
    if (I2POW32.equals(a2)) {
      range = 0;
    } else {
      EInteger ival;
      if ((ival=a2.testInteger()) == null
        || (range=ival.intValue())==0
        || ((range & ~0xffffffffL) != 0)) throw ERT.badarg(a1,a2);
     
      range = Math.abs(range) & 0xffffffff;
    }
   
View Full Code Here

Examples of erjang.EInteger

      }

      throw ERT.badarg(name, options);
    }

    EInteger tid = ERT.box(next_tid.incrementAndGet());

    ETable table = ETable.allocate(self, tid, aname, type, access, keypos,
        write_concurrency, is_named, heir_pid, heir_data);

View Full Code Here

Examples of erjang.EInteger

  /** used internally to resolve a tid|name */
  private static ETable resolve(EProc caller, EObject nameOrTid,
      boolean write_access) {

    EInteger tid = null;
    EAtom name;
    if ((name = nameOrTid.testAtom()) != null) {
      tid = name_to_tid.get(name);
    } else if ((tid = nameOrTid.testInteger()) != null) {
      // ok
View Full Code Here

Examples of erjang.EInteger

      return info;
  }

  private static ETable get_table(EObject nameOrTid) {
    ETable table = null;
    EInteger tid;
    EAtom name;
    if ((tid=nameOrTid.testInteger()) != null) {
      table = tid_to_table.get(tid);
    } else if ((name=nameOrTid.testAtom()) != null) {
      tid = name_to_tid.get(name);
View Full Code Here

Examples of erjang.EInteger

    return EAtom.existing_atom(seq.stringValue());
  }
 
  @BIF
  public static EBinary integer_to_binary(EObject arg) {
    EInteger i = arg.testInteger();
    if (i == null) throw ERT.badarg(arg);

    byte[] bin = i.toString().getBytes(IO.ISO_LATIN_1);
    return EBinary.make(bin);
  }
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
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.