Examples of EDouble

Examples of erjang.EDouble

413
414
415
416
417
418
419
420
421
422
423
    throw ERT.badarg(obj);
  }

  @BIF 
  static public EBinary float_to_binary(EObject obj) {
    EDouble value;
    if ((value = obj.testFloat()) != null) {
      return new EBinary(value.format(ERT.NIL).getBytes(IO.ISO_LATIN_1));
    }
    throw ERT.badarg(obj);
  }
View Full Code Here

Examples of erjang.EDouble

422
423
424
425
426
427
428
429
430
431
432
    throw ERT.badarg(obj);
  }

  @BIF 
  static public EBinary float_to_binary(EObject obj, EObject options) {
    EDouble value;
    if ((value = obj.testFloat()) != null) {
      return new EBinary(value.format(options).getBytes(IO.ISO_LATIN_1));
    }
    throw ERT.badarg(obj, options);
  }
View Full Code Here

Examples of erjang.EDouble

431
432
433
434
435
436
437
438
439
440
441
    throw ERT.badarg(obj, options);
  }

  @BIF 
  static public EString float_to_list(EObject obj) {
    EDouble value;
    if ((value = obj.testFloat()) != null) {
      return new EString(value.format(ERT.NIL));
    }
    throw ERT.badarg(obj);
  }
View Full Code Here

Examples of erjang.EDouble

440
441
442
443
444
445
446
447
448
449
450
    throw ERT.badarg(obj);
  }

  @BIF
  static public EString float_to_list(EObject obj, EObject options) {
    EDouble value;
    if ((value = obj.testFloat()) != null) {
      return new EString(value.format(options));
    }
    throw ERT.badarg(obj, options);
  }
View Full Code Here

Examples of erjang.EDouble

453
454
455
456
457
458
459
460
461
462
463
  public static EDouble binary_to_float(EObject obj) {
    EBinary bin = obj.testBinary();
    if (bin != null) {
      try {
        double d = Double.parseDouble( new String(bin.getByteArray(), IO.ISO_LATIN_1) );
        return new EDouble(d);
      } catch (NumberFormatException e) {
        // ignore //
      }
    }
    throw ERT.badarg(obj);
View Full Code Here

Examples of erjang.EDouble

1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
  static public EInteger trunc(EObject v1) {
    EInteger i1;
    if ((i1 = v1.testInteger()) != null) {
      return i1;
    }
    EDouble n1;
    if ((n1 = v1.testFloat()) != null) {
      return trunc(n1.value);
    }
    throw ERT.badarg(v1);
  }
View Full Code Here

Examples of erjang.EDouble

1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
    return ERT.box(Math.round(d.value));
  }

  @BIF(name = "round")
  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)
View Full Code Here

Examples of erjang.EDouble

1103
1104
1105
1106
1107
1108
1109
1110
1111
    return ERT.box(Math.round(d.value));
  }

  @BIF(name = "round", type = Type.GUARD)
  static public EInteger round$g(EObject o) {
    EDouble d = o.testFloat();
    if (d == null) return null;
    return ERT.box(Math.round(d.value));
  }
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.