org.drools.clips.functions.PrognFunction Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of drools-clips Show documentation

The newest version!

/*
 * Copyright 2010 JBoss Inc
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *      http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

package org.drools.clips.functions;

import org.drools.clips.Appendable;
import org.drools.clips.Function;
import org.drools.clips.FunctionHandlers;
import org.drools.clips.LispAtom;
import org.drools.clips.LispForm;
import org.drools.clips.SExpression;

public class PrognFunction implements Function {
    private static final String name = "progn";

    public String getName() {
        return name;
    }
    
    public void dump(LispForm lispForm, Appendable appendable) {
        Function createList = FunctionHandlers.getInstance().getFunction( "create$" );
        
        SExpression[] sExpressions = lispForm.getSExpressions();
        
        LispForm listSpec = (LispForm) sExpressions[1];
        
        String var = ( ( LispAtom ) listSpec.getSExpressions()[0] ).getValue();
        
        appendable.append( "foreach( " + var + " : " );
        
        createList.dump( (LispForm) listSpec.getSExpressions()[1], appendable );
        
        appendable.append( " ) {" );
        
        for ( int i = 2, length = sExpressions.length; i < length; i++ ) {
            FunctionHandlers.dump( sExpressions[i], appendable, true );
        }
        
        appendable.append( "}" );
                        
    }
}