functorlistn.java

类似于Windows上的Excel

/*
 * MC2 -- j2me spreadsheet
 *
 * Copyright (c) 2004-2006 Michael Zemljanukha ([e-mail])
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
 * more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 */

package com.wapindustrial.calc;

public class FunctorListN extends FunctorList {
    final LispObject args[];

    public FunctorListN( NameObjectBase functor, LispObject args[] ) {
    	super( functor );
        this.args = args;
    }

//#ifdef JAVA_COMPILER
    public void toJavaBuffer( StringBuffer sb, int ident, FunctorList parent ) {
        int size = listSize();
        addIdent( sb, ident );
        sb.append( "new FunctorListN( " );
        functor.toJavaBuffer(sb,0,this);
        sb.append( ",\n" );
        addIdent( sb, ident );
        sb.append("new LispObject[] {");
        sb.append( '\n' );
        for( int i=1; i<size; i++ ) {
            if(i!=1)
                sb.append( ",\n" );
            getArgumentN(i).toJavaBuffer( sb, ident+1,this );
        }
//        addIdent( sb, ident );
        sb.append( "} )" ); 
    }
//#endif

	/* (non-Javadoc)
	 * @see com.wapindustrial.calc.FunctorList#getArgumentN(int)
	 */
	public LispObject getArgumentN(int n) {
	    if(n==0)
	        return functor;
	    return args[n-1];
	}
    
    /* (non-Javadoc)
     * @see com.wapindustrial.calc.LispObject#listSize()
     */
    public int listSize() {
        return args.length+1;
    }
}