Package org.jatha.dynatype

Examples of org.jatha.dynatype.StandardLispInteger

346
347
348
349
350
351
352
353
354
355
356
357
358
    T = new StandardLispConstant(this, "T");
    EVAL.intern(makeString("T"), T, f_systemPackage);
    T.setf_symbol_value(T);

    ZERO = new StandardLispInteger(this, 0);
    ONE  = new StandardLispInteger(this, 1);
    TWO  = new StandardLispInteger(this, 2);

    E    = new StandardLispReal(this, StrictMath.E);
    PI   = new StandardLispReal(this, StrictMath.PI);

    COLON   = new StandardLispCharacter(this, ':');
View Full Code Here
619
620
621
622
623
624
625
   * Sets the value of *MAX-LIST-LENGTH*.
   * This vlaue is only used to prevent runaway list processing.
   */
  public void setMaxListLength(long newLength)
  {
    MAX_LIST_LENGTH.setf_symbol_value(new StandardLispInteger(this, newLength));
  }
View Full Code Here
629
630
631
632
633
634
635
   * Sets the value of *MAX-LIST-LENGTH*.
   * This vlaue is only used to prevent runaway list processing.
   */
  public  void setMaxListLength(LispNumber newLength)
  {
    MAX_LIST_LENGTH.setf_symbol_value(new StandardLispInteger(this, (long)(newLength.getDoubleValue())));
  }
View Full Code Here
715
716
717
718
719
720
721
722
723
724
725
    STAR.setf_symbol_value(NIL);
    STARSTAR.setf_symbol_value(NIL);
    STARSTARSTAR.setf_symbol_value(NIL);

    MAX_LIST_LENGTH = EVAL.intern("*MAX-LIST-LENGTH*",f_systemPackage);
    MAX_LIST_LENGTH.setf_symbol_value(new StandardLispInteger(this, MAX_LIST_LENGTH_VALUE));

    f_systemPackage.export(STAR);
    f_systemPackage.export(STARSTAR);
    f_systemPackage.export(STARSTARSTAR);
    f_systemPackage.export(MAX_LIST_LENGTH);
View Full Code Here
1684
1685
1686
1687
1688
1689
1690
   * @return LispInteger
   *
   */
  public LispInteger makeInteger(Long value)
  {
    return new StandardLispInteger(this, value.longValue());
  }
View Full Code Here
1689
1690
1691
1692
1693
1694
1695
    return new StandardLispInteger(this, value.longValue());
  }

  public LispInteger makeInteger(long value)
  {
    return new StandardLispInteger(this, value);
  }
View Full Code Here
1694
1695
1696
1697
1698
1699
1700
    return new StandardLispInteger(this, value);
  }

  public LispInteger makeInteger(Integer value)
  {
    return new StandardLispInteger(this, value.longValue());
  }
View Full Code Here
1699
1700
1701
1702
1703
1704
1705
    return new StandardLispInteger(this, value.longValue());
  }

  public LispInteger makeInteger(int value)
  {
    return new StandardLispInteger(this, (long) value);
  }
View Full Code Here
1704
1705
1706
1707
1708
1709
1710
    return new StandardLispInteger(this, (long) value);
  }

  public LispInteger makeInteger()
  {
    return new StandardLispInteger(this, 0);
  }
View Full Code Here
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
    if (obj instanceof LispValue)
      return (LispValue) obj;

    if (obj instanceof Integer)
      return new StandardLispInteger(this, ((Integer) obj).intValue());

    else if (obj instanceof Long)
      return new StandardLispInteger(this, ((Long) obj).longValue());

    else if (obj instanceof Double)
      return new StandardLispReal(this, ((Double) obj).doubleValue());

    else if (obj instanceof Float)
View Full Code Here
TOP

Related Classes of org.jatha.dynatype.StandardLispInteger

  • org.jatha.eval.LispEvaluator
  • org.jatha.Jatha
    • 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.