Package erjang

Examples of erjang.EInteger

32
33
34
35
36
37
38
39
40
41
42
   
    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
252
253
254
255
256
257
258
259
260
261
262
263
    return null;
  }

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

    return null;
  }
View Full Code Here
263
264
265
266
267
268
269
270
271
272
273
  }
 
  @Override
  public ENumber testNumber() {

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

    EDouble d;
    if ((d = testFloat()) != null)
View Full Code Here
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    /** 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
58
59
60
61
62
63
64
65
66
67
68
69
70
    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
111
112
113
114
115
116
117
118
119
120
121
122
123
    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
185
186
187
188
189
190
191
192
193
194
195
      }

      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
206
207
208
209
210
211
212
213
214
215
216
  /** 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
697
698
699
700
701
702
703
704
705
706
707
      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
202
203
204
205
206
207
208
209
210
211
212
    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

Related Classes of erjang.EInteger

  • erjang.m.erlang.BinOps
  • erjang.m.erlang.ErlBif
  • erjang.m.erlang.ErlConvert
  • erjang.m.erlang.ErlHash
  • erjang.m.ets.ETableSet
  • erjang.m.ets.Native
  • erjang.m.io_lib.Native
  • erjang.m.java.JavaObject
  • erjang.m.lists.Native
  • erjang.m.string.Native
    • Copyright © 2018 www.massapicom. 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.