/*
 *  eXist Open Source Native XML Database
 *  Copyright (C) 2001-04 Wolfgang M. Meier
 *  wolfgang@exist-db.org
 *  http://exist-db.org
 *
 *  This program is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU Lesser 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 Lesser General Public License for more details.
 *
 *  You should have received a copy of the GNU Lesser General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 * 
 *  $Id$
 */
package org.exist.xquery;

import org.exist.memtree.DocumentImpl;
import org.exist.memtree.MemTreeBuilder;
import org.exist.util.XMLChar;
import org.exist.xquery.util.ExpressionDumper;
import org.exist.xquery.value.Item;
import org.exist.xquery.value.Sequence;
import org.exist.xquery.value.SequenceIterator;
import org.exist.xquery.value.Type;


/**
 * Dynamic constructor for processing instruction nodes.
 * 
 * @author wolf
 */
public class DynamicPIConstructor extends NodeConstructor {

    private Expression name;
    private Expression content;
    
    /**
     * @param context
     */
    public DynamicPIConstructor(XQueryContext context) {
        super(context);
    }

    public void setNameExpr(Expression nameExpr) {
        this.name = new Atomize(context, nameExpr);
    }
    
    public void setContentExpr(Expression contentExpr) {
        this.content = new Atomize(context, contentExpr);
    }

    /* (non-Javadoc)
     * @see org.exist.xquery.Expression#analyze(org.exist.xquery.AnalyzeContextInfo)
     */
    public void analyze(AnalyzeContextInfo contextInfo) throws XPathException {
    	contextInfo.setParent(this);
        name.analyze(contextInfo);
        content.analyze(contextInfo);
    }
    
    /* (non-Javadoc)
     * @see org.exist.xquery.Expression#eval(org.exist.xquery.value.Sequence, org.exist.xquery.value.Item)
     */
    public Sequence eval(Sequence contextSequence, Item contextItem) throws XPathException {
        if (context.getProfiler().isEnabled()) {
            context.getProfiler().start(this);       
            context.getProfiler().message(this, Profiler.DEPENDENCIES, "DEPENDENCIES", Dependency.getDependenciesName(this.getDependencies()));
            if (contextSequence != null)
                context.getProfiler().message(this, Profiler.START_SEQUENCES, "CONTEXT SEQUENCE", contextSequence);
            if (contextItem != null)
                context.getProfiler().message(this, Profiler.START_SEQUENCES, "CONTEXT ITEM", contextItem.toSequence());
        }
        
        MemTreeBuilder builder = context.getDocumentBuilder();
        context.proceed(this, builder);
        
        Sequence nameSeq = name.eval(contextSequence, contextItem);
        //TODO : get rid of getLength()
        if(!nameSeq.hasOne())
            throw new XPathException(getASTNode(), "The name expression should evaluate to a single value");
        
        Item nameItem = nameSeq.itemAt(0);
        if(!(nameItem.getType() == Type.STRING || nameItem.getType() == Type.NCNAME || 
        		nameItem.getType() == Type.UNTYPED_ATOMIC))
            throw new XPathException(getASTNode(), "The name expression should evaluate to a " + 
            		Type.getTypeName(Type.STRING) + " or a " + Type.getTypeName(Type.NCNAME) + 
            		" or a " + Type.getTypeName(Type.UNTYPED_ATOMIC) + ". Got: " + 
            		Type.getTypeName(nameItem.getType()));
        
		if(!XMLChar.isValidNCName(nameSeq.getStringValue()))
			throw new XPathException("XQDY0041 '" + nameSeq.getStringValue() + "' is not a valid processing instruction name");
		
		if (nameSeq.getStringValue().equalsIgnoreCase("XML"))
        	throw new XPathException("XQDY0064 '" + nameSeq.getStringValue() + "' is not a valid processing instruction name");            	

		String value;
        Sequence contentSeq = content.eval(contextSequence, contextItem);
        if(contentSeq.isEmpty())
            value = "";
        else {
	        StringBuffer buf = new StringBuffer();
	        for(SequenceIterator i = contentSeq.iterate(); i.hasNext(); ) {
	            context.proceed(this, builder);
	            Item next = i.nextItem();
	            if(buf.length() > 0)
	                buf.append(' ');
	            buf.append(next.getStringValue());
	        }
	        value = buf.toString();
        }
        
		if (value.contains("?>"))
        	throw new XPathException("XQDY0026 '" + value + "' is not a valid processing intruction value");            	
        
        int nodeNr = builder.processingInstruction(nameSeq.getStringValue(), value);

        Sequence result = ((DocumentImpl)builder.getDocument()).getNode(nodeNr);
                
        if (context.getProfiler().isEnabled())           
            context.getProfiler().end(this, "", result);  
        
        return result;
    }

    /* (non-Javadoc)
     * @see org.exist.xquery.Expression#dump(org.exist.xquery.util.ExpressionDumper)
     */
    public void dump(ExpressionDumper dumper) {
        dumper.display("processing-instruction {");
        name.dump(dumper);
        dumper.display("} {");
        dumper.startIndent();
        content.dump(dumper);
        dumper.endIndent().nl().display("}");
    }
    
    public String toString() {
    	StringBuffer result = new StringBuffer();
    	result.append("processing-instruction {");
    	result.append(name.toString());
    	result.append("} {");        
    	result.append(content.toString());
    	result.append("} ");
    	return result.toString();
    }    
    
    public void resetState() {
    	super.resetState();
    	name.resetState();
    	content.resetState();
    }
}

@@ -4186,21 +4186,29 @@
 %09String 
-value
+contentString
 ;%0A      
@@ -4316,25 +4316,30 @@
         
-    value
+%09contentString
  = %22%22;%0A 
@@ -4693,21 +4693,135 @@
         
-value
+while (buf.length() %3E 0 && Character.isWhitespace(buf.charAt(0)))%0A%09        %09buf.deleteCharAt(0);%0A%09        contentString
  = buf.t
@@ -4826,24 +4826,32 @@
 .toString();
+%09       
 %0A        %7D%0A 
@@ -4864,21 +4864,29 @@
  %0A%09%09if (
-value
+contentString
 .contain
@@ -4943,21 +4943,29 @@
 26 '%22 + 
-value
+contentString
  + %22' is
@@ -4999,21 +4999,23 @@
 ruction 
-value
+content
 %22);     
@@ -5109,21 +5109,29 @@
 alue(), 
-value
+contentString
 );%0A%0A    

Trim leading whitespaces in computed PI content