10 Pair�N���X

�R���X���������N���X���Cfirst��rest�������������N���X�����D

package jscheme;

/** A Pair has two fields,
 * first and rest (or car and cdr). 
 * The empty list is represented by null.
 * The methods that you might
 * expect here, like first, second, list, etc.
 * are instead static methods
 * in class SchemeUtils. 
 * @author Peter Norvig,
 * peter@norvig.com http://www.norvig.com 
 * Copyright 1998 Peter Norvig,
 * see http://www.norvig.com/license.html */

public class Pair extends SchemeUtils {

    /** The first element of the pair. **/
    public Object first;

    /** The other element of the pair. **/
    public Object rest;

    /** Build a pair from two components. **/
    public Pair(Object first, Object rest) { 
        this.first = first; this.rest = rest; 
    }

    /** Two pairs are equal if their first and
     * rest fields are equal. **/
    public boolean equals(Object x) {
        if (x == this) return true;
        else if (!(x instanceof Pair))
            return false;
        else {
          Pair that = (Pair)x;
          return equal(this.first, that.first)
            && equal(this.rest, that.rest);
        }
    }

  /** Return a String representation of
      the pair. **/
  public String toString() {
     return stringify(this, true);
  }

  /** Build up a String representation of
      the Pair in a StringBuffer. **/
  void stringifyPair(boolean quoted,
                     StringBuffer buf) {
    String special = null;
    if ((rest instanceof Pair) &&
         rest(rest) == null) 
      special = (first == "quote") ?
             "'" : (first == "quasiquote") ? "`"
        : (first == "unquote") ?
           "," : (first == "unquote-splicing") ? ",@"
        : null;
        
    if (special != null) {
      buf.append(special);
      stringify(second(this), quoted, buf);
    }
    else {
      buf.append('(');
      stringify(first, quoted, buf);
      Object tail = rest;
      while (tail instanceof Pair) {
        buf.append(' ');
        stringify(((Pair)tail).first, quoted, buf);
        tail = ((Pair)tail).rest;
      }
      if (tail != null) {
        buf.append(" . ");
        stringify(tail, quoted, buf);
      }
      buf.append(')');
    }
  }

}