Package erjang

Examples of erjang.EInteger

211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
    return EBinary.make(bin);
  }

  @BIF
  public static EBinary integer_to_binary(EObject arg, EObject radix) {
    EInteger i = arg.testInteger();
    ESmall r = radix.testSmall();
    if (i == null || r == null || r.value < 2 || r.value > 36)
      throw ERT.badarg(arg, radix);

    String out;
    EBig big;
    ESmall small;
    if ((small=i.testSmall()) != null) {
      out = Integer.toString(small.value, r.value);
    } else if ((big=i.testBig()) != null) {
      out = big.value.toString(r.value);
    } else {
      throw ERT.badarg(arg, radix);
    }
   
View Full Code Here
197
198
199
200
201
202
203
204
205
206
207
208
209
210
    }
  }
 
  @BIF
  static ENumber crc32(EObject num, EObject io_list) {
    EInteger init;
    long val;
    if (((init=num.testInteger()) == null)
        || (val = init.longValue()) != (val & 0xffffffffL)) {
      throw ERT.badarg(num, io_list);
    }
   
    CRC32 crc = new CRC32();
    try {
View Full Code Here
363
364
365
366
367
368
369
370
371
372
373
    return ETuple.make(ERT.box(hour), ERT.box(minute), ERT.box(second));
  }

  @BIF
  static public EString integer_to_list(EObject obj) {
    EInteger num;
    if ((num = obj.testInteger()) != null) {
      return new EString(num.toString());
    }
    throw ERT.badarg(obj);
  }
View Full Code Here
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
    return v1.multiply(v2);
  }

  @BIF
  static public EInteger trunc(EObject v1) {
    EInteger i1;
    if ((i1 = v1.testInteger()) != null) {
      return i1;
    }
    EDouble n1;
    if ((n1 = v1.testFloat()) != null) {
View Full Code Here
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
  static public EInteger round(EObject o) {
    EDouble d;
    if ((d = o.testFloat()) != null)
      return ERT.box(Math.round(d.value));

    EInteger i;
    if ((i = o.testInteger()) != null)
      return i;
   
    throw ERT.badarg(o);
  }
View Full Code Here
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
    return ERT.box(b1 ^ b2);
  }

  @BIF(type = Type.GUARD, name = "bnot")
  public static EInteger bnot$g(EObject o) {
    EInteger i;
    if ((i = o.testInteger()) == null)
      return null;
    return i.bnot();
  }
View Full Code Here
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
    return i.bnot();
  }

  @BIF(type = Type.GUARD, name = "bor")
  public static EInteger bor$g(EObject o1, EObject o2) {
    EInteger i1;
    EInteger i2;
    if ((i1 = o1.testInteger()) == null || (i2 = o2.testInteger()) == null)
      return null;
    return i1.bor(i2);
  }
View Full Code Here
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
    return i1.bor(i2);
  }

  @BIF(type = Type.GUARD, name = "bxor")
  public static EInteger bxor$g(EObject o1, EObject o2) {
    EInteger i1;
    EInteger i2;
    if ((i1 = o1.testInteger()) == null || (i2 = o2.testInteger()) == null)
      return null;
    return i1.bxor(i2);
  }
View Full Code Here
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
    return i1.bxor(i2);
  }

  @BIF(type = Type.GUARD, name = "band")
  public static EInteger band$g(EObject o1, EObject o2) {
    EInteger i1;
    EInteger i2;
    if ((i1 = o1.testInteger()) == null || (i2 = o2.testInteger()) == null)
      return null;
    return i1.band(i2);
  }
View Full Code Here
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
    return i1.band(i2);
  }

  @BIF(type = Type.GUARD, name = "bsl")
  public static EInteger bsl$g(EObject o1, EObject o2) {
    EInteger i1;
    EInteger i2;
    if ((i1 = o1.testInteger()) == null || (i2 = o2.testInteger()) == null)
      return null;
    return i1.bsl(i2);
  }
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.