Examples of StandardLispCons

org.jatha.dynatype.StandardLispCons

Examples of org.jatha.dynatype.StandardLispCons

        } else if (value instanceof StandardLispInteger) {
            return new XLInt((int) ((StandardLispInteger) value).getValue());
        } else if (value instanceof StandardLispReal) {
            return new XLNum(((StandardLispReal) value).getDoubleValue());
        } else if (value instanceof StandardLispCons) {
            StandardLispCons c = (StandardLispCons) value;
            XLList coll = new XLList();
            for (int i = 0; i < c.basic_length(); i++) {
                coll.add(makeResult(c.elt(i)));
            }
            return coll.toXLoper();
        } else if (value instanceof StandardLispNIL || value == null) {
            return XLNil.NIL;
        } else {

View Full Code Here

Examples of org.jatha.dynatype.StandardLispCons

   * @return LispValue
   *
   */
  public LispCons makeCons(LispValue theCar, LispValue theCdr)
  {
    return new StandardLispCons(this, theCar, theCdr);
  }

View Full Code Here

Examples of org.jatha.dynatype.StandardLispCons

    // Use array so as to iterate from the end to the beginning.
    Object[] elArray = elements.toArray();
    LispConsOrNil result = NIL;


    for (int i = elArray.length - 1; i >= 0; i--)
      result = new StandardLispCons(this, (LispValue) (elArray[i]), result);


    return result;
  }

View Full Code Here

Examples of org.jatha.dynatype.StandardLispCons

   */
  public LispConsOrNil makeList(LispValue... parts)
  {
    LispConsOrNil result = NIL;
    for (int i = parts.length-1 ; i >= 0; i--)
      result = new StandardLispCons(this, parts[i], result);
    
    return result;
  }

View Full Code Here

TOP

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.