package language;
import java.util.Hashtable;
public class PrintS extends java.lang.Object
{
    public void printString(LispObject s)
    {
        out=out+((MyString)s).val;
    }
    public String print(LispObject s)
    {
        out=""; printS(s); return out;
    }
    public void pCh(char c)
    {
        out=out+c;
    }
    public void printList(LispObject s)
    {
        pCh('(');
        while(!lisp.atom(s)){
            printS(((ListCell)s).a);
            s=((ListCell)s).d;
            pCh(' ');
        }
        if(!lisp.Null(s)){
            pCh('.');
            printAtom(s);
        }
        pCh(')'); pCh('\n');
    }
    public void printNumber(LispObject s)
    {
        int nt=((MyNumber)s).ntype;
        /*
        if(s.getClass().getName().equals("MyInt")){
        */
        if(nt==2){
            printInt(s); return;
        }
        /*
        if(s.getClass().getName().equals("MyDouble")){
        */
        if(nt==3){
            printDouble(s); return;
        }
        /*
        if(s.getClass().getName().equals("MyString")){
        */
        if(nt==1){
            printString(s); return;
        }
        out=out+((MyNumber)s).val;
    }
    public void printInt(LispObject s)
    {
        out=out+((MyInt)s).val;
    }
    public void printDouble(LispObject s)
    {
        out=out+((MyDouble)s).val;
    }
    public void printSymbol(LispObject s)
    {
        out=out+((Symbol)(lisp.symbolTable.get(
             new Integer(((Symbol)s).hc)))).name;
    }
    public void printAtom(LispObject s)
    {
        if(lisp.numberp(s)) printNumber(s);
        else
        printSymbol(s);
    }
    public ALisp lisp;
    public String out;
    public void printS(LispObject s)
    {
        if(lisp.atom(s)) printAtom(s);
        else printList(s);
    }
    public Hashtable symbolTable;
    public PrintS(ALisp lsp)
    {
        lisp=lsp;
    }
}