<!--

   $Id$

   Copyright (c) 2003, RIACA, Technische Universiteit Eindhoven (TU/e).
   All Rights Reserved.

  -->

<!--
<jsp:directive.page contentType="text/xml"/>	
<jsp:directive.page import="nl.tue.win.riaca.openmath.codec.*"/>
<jsp:directive.page import="org.xml.sax.*"/>
<jsp:directive.page import="nl.tue.win.riaca.openmath.io.*"/>
<jsp:directive.page import="nl.tue.win.riaca.openmath.lang.*"/>
<jsp:directive.page import="nl.tue.win.riaca.openmath.lang.OMObject"/>
<jsp:directive.page import="nl.tue.win.riaca.mathematica.codec.*"/>
<jsp:directive.page import="java.io.*"/>
<jsp:directive.page import="org.w3c.dom.*"/>
-->
<jsp:directive.page import="org.apache.xerces.parsers.DOMParser"/>

<!-- Recover tree -->

<!--<jsp:directive.include file="recovertree.jsp"/>-->

<!-- Modify the tree from the CurrentNode downwards -->

<!--
<jsp:declaration>
	//String fString;
	OMXMLReader freader;
        OMObject fobiect;
	Document fDocument;
	Node fTree;
	Node fChild1;
	OMObject m8Object;
</jsp:declaration>
-->

<jsp:scriptlet>
<![CDATA[


// Define the reader for f.
	freader = new OMXMLReader( fString );

// Decode XML to OMObject for f.
        fobiect = freader.readObject();

// Send to DOM
	OMDOMWriter domWriter = new OMDOMWriter();
	fDocument = domWriter.write( fobiect );

// Define the f tree (starting with OMA)
	NodeList listOMAs = fDocument.getElementsByTagName("OMA");
	fTree = listOMAs.item(0);

// Assign attributes to fTree.

	Element fElement;      
        if (fTree instanceof Element) 
	{
		fElement = (Element) fTree;
	}
        else
        {
		fElement = null;
	}
	fElement.setAttribute("indicator","0");

// The CurrentNode is going to be the first child of fTree. Assign current=1.
// Also For all NON-OMS children assign indicator=0

	fChild1 = null;
	int k, k2, l = fTree.getChildNodes().getLength();
	//out.println("****"+l);
	for( k=0; k<l;k++ ){
	     //out.println("da "+k);
	     Node thisNode = fTree.getChildNodes().item(k);
	     if (!thisNode.getNodeName().equals("OMS")){
		Element thisElement;      
		if (thisNode instanceof Element) 
		{
			thisElement = (Element) thisNode;
		}
		else
		{
			thisElement = null;
		}
		thisElement.setAttribute("current","1");
		fChild1 = thisNode;
		break;
	     }
	}
	//out.println("fChild1 is "+ fChild1);	
	for( k2=0; k2<l;k2++ ){
	     //out.println("da "+k2);
	     Node otherNode = fTree.getChildNodes().item(k2);
	     if (!otherNode.getNodeName().equals("OMS")){
		Element otherElement;      
		if (otherNode instanceof Element) 
		{
			otherElement = (Element) otherNode;
		}
		else
		{
			otherElement = null;
		}
		otherElement.setAttribute("indicator","0");
	     }
	}


// Add the new child

	Element firstRoot = myDocument.getDocumentElement();
	//Node CurrentNodeParent =  CurrentNode.getParentNode();
]]>
</jsp:scriptlet>


The object we work with is
<jsp:scriptlet>
	OMDOMReader dom0Reader = new OMDOMReader( CurrentNode );
	OMObject m0Object = dom0Reader.readObject();
	out.println("The OM object is " + m0Object.toString());
</jsp:scriptlet>


<jsp:scriptlet>
	//out.println("Make the replacement ");
	Node newTree = myDocument.importNode( fTree , true );
	CurrentNodeParent.replaceChild( newTree,CurrentNode);
        //out.println("Is " + newTree+"="+CurrentNode+" ?");

// Check the result
	OMDOMReader domReader = new OMDOMReader( myDocument );
	OMObject mObject = domReader.readObject();
	out.println("The new document (containing the tree) is " + mObject.toString());

</jsp:scriptlet>

   <!-- Set f=fchild1  -->


The new tree DIFFERS from the old one! 


<!-- Define the new function f=first child of f by declaring f=thisNode)-->


<jsp:scriptlet>
	OMDOMReader dom8Reader = new OMDOMReader( fChild1 );
	OMObject m8Object = dom8Reader.readObject();
</jsp:scriptlet>