Examples of erjang.ENumber

erjang.ENumber

    return null;
  }


  @BIF(name = "/", type = Type.GUARD)
  static public ENumber divide$p(EObject v1, double d2) {
    ENumber n1;
    if (d2 != 0.0 && (n1 = v1.testNumber()) != null) {
      return n1.divide(d2);
    }
    return null;
  }

View Full Code Here

    return v1.subtract(i2.value);
  }


  @BIF(name = "-", type = Type.GUARD)
  static public ENumber minus$g(EObject v1, ESmall i2) {
    ENumber n1;
    if ((n1 = v1.testNumber()) != null) {
      return n1.subtract(i2.value);
    }
    return null;
  }

View Full Code Here

    return null;
  }


  @BIF(name = "*", type=Type.GUARD)
  static public ENumber multiply$g(EObject v1, EObject v2) {
    ENumber n1;
    if ((n1 = v1.testNumber()) != null) {
      ENumber n2;
      if ((n2 = v2.testNumber()) != null) {
        return n1.multiply(n2);
      }
    }
    return null;

View Full Code Here

  static public double float$n(ENumber v) {
    return v.doubleValue();
  }
  @BIF(name = "float")
  static public EDouble float$n(EObject v) {
    ENumber n = v.testNumber();
    if (n==null) throw ERT.badarg(v);
    return ERT.box(n.doubleValue());
  }

View Full Code Here

    return v1.irem(v2);
  }


  @BIF(name = "abs", type = Type.GUARD)
  static public ENumber abs$p(EObject v1) {
    ENumber num;
    if ((num = v1.testNumber()) != null) {
      return abs(num);
    }
    return null;
  }

View Full Code Here

    return null;
  }


  @BIF(name = "abs")
  static public ENumber abs(EObject v1) {
    ENumber num;
    if ((num = v1.testNumber()) != null) {
      return abs(num);
    }
    throw ERT.badarg(v1);
  }

View Full Code Here

      
      private ETuple update(ETuple rec, int idx, EInteger incr, EInteger threshold, EInteger setvalue) {


        EInteger old = rec.elm(idx).testInteger();
        if (old == null) return null;
        ENumber val = old.add(incr);
        
        if (incr.is_ge(ESmall.ZERO)) {


          if (threshold.is_lt(val)) {
            val = setvalue;
          }
          
        } else {
          
          if (val.is_lt(threshold)) {
            val = setvalue;
          }
        }

View Full Code Here

0 1 2

TOP

Related Classes of erjang.ENumber

erjang.m.erlang.ErlBif

erjang.m.ets.ETableSet

erjang.m.math.Native

java.math.BigInteger

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.