<?php
	function var2xml($name, $data)
	{
		$doc = new xmltool();
		return $doc->import_var($name,$data,True,True);
	}

	class xmltool
	{
		/* shared */
		var $node_type = '';
		var $comments = Array();
		/* for docs */
		var $xmlversion = '1.0';
		var $doctype = Array();
		var $root_node;
		/* for nodes */
		var $name = '';
		var $data;
		var $data_type;
		var $attributes = Array();
		var $comments = Array();
		var $indentstring = "  ";
		
		/* start the class as either a root or a node */
		function xmltool ($node_type = 'root', $name='')
		{
			$this->node_type = $node_type;
			if ($this->node_type == 'node')
			{
				if($name != '')
				{
					$this->name = $name;
				}
				else
				{
					echo 'You must name node type objects<br>';
					exit;
				}
			}
		}
		
		function add_root ($node_object)
		{
			if ($this->node_type == 'root')
			{
				if(is_object($node_object))
				{
					$this->root_node = $node_object;
				}
				else
				{
					echo 'Not a valid xmltool node object<br>';
					exit;
				}
			}
			else
			{
				echo 'add_root can only be used by a root object<br>';
				exit;
			}
		}

		function set_version ($version = '1.0')
		{
			if ($this->node_type == 'node')
			{
				$this->xmlversion = $version;
			}
			else
			{
				echo 'set_version can only be used by a root object<br>';
				exit;
			}
		}

		function set_doctype ($name, $uri = '')
		{
			if ($this->node_type == 'root')
			{
				$this->doctype[$name] = $uri;
			}
			else
			{
				echo 'set_doctype can only be used by a root object<br>';
				exit;
			}
		}

		function add_node ($node_object , $name = '')
		{
			if ($this->node_type == 'node')
			{
				if (is_object($node_object))
				{
					if(!is_array($this->data))
					{
						$this->data = Array();
						$this->data_type = 'node';
					}
					if ($name != '')
					{
						$this->data[$name] = $node_object;
					}
					else
					{
						$this->data[] = $node_object;
					}
				}
				else
				{
					if(!is_array($this->data))
					{
						$this->data = Array();
						$this->data_type = 'node';
					}
					$this->data[$name] = $this->import_var($name, $node_object);
				}
			}
			else
			{
				echo 'root objects should use add_root to create the root node<br>';
				exit;
			}
		}

		function set_value ($string)
		{
			$this->data = $string;
			$this->data_type = 'value';
		}
		
		function get_value ()
		{
			if($this->data_type == 'value')
			{
				return $this->data;
			}
			else
			{
				return False;
				//echo 'get_value can only be used on data type of value.<br>';
				exit;
			}
		}

		function set_attribute ($name, $value = '')
		{
			if ($this->node_type == 'node')
			{
				$this->attributes[$name] = $value;
			}
			else
			{
				echo 'set_attribute can only be used by a node object<br>';
				exit;
			}
		}

		function get_attribute ($name)
		{
			return $this->attributes[$name];
		}

		function get_attributes ()
		{
			return $this->attributes;
		}
		
		function add_comment ($comment)
		{
			$this->comments[] = $comment;
		}

		function import_var($name, $value,$is_root=False,$export_xml=False)
		{
			$node = new xmltool('node',$name);
			switch (gettype($value))
			{
				case 'string':
				case 'integer':
				case 'double':
				case 'NULL':
					$node->set_value($value);
					break;
				case 'boolean':
					if($value == True)
					{
						$node->set_value('1');
					}
					else
					{
						$node->set_value('0');
					}
					break;
				case 'array':
					$new_index = False;
					while (list ($idxkey, $idxval) = each ($value))
					{
						if(is_array($idxval))
						{
							while (list ($k, $i) = each ($idxval))
							{
								if (is_int($k))
								{
									$new_index = True;
								}
							}
						}
					}
					reset($value);	
					while (list ($key, $val) = each ($value))
					{
						if($new_index)
						{
							$keyname = $name;
							$nextkey = $key;
						}
						else
						{
							$keyname = $key;
							$nextkey = $key;
						}
						switch (gettype($val))
						{
							case 'string':
							case 'integer':
							case 'double':
							case 'NULL':
								$subnode = new xmltool('node', $nextkey);
								$subnode->set_value($val);
								$node->add_node($subnode);							
								break;
							case 'boolean':
								$subnode = new xmltool('node', $nextkey);
								if($val == True)
								{
									$subnode->set_value('1');
								}
								else
								{
									$subnode->set_value('0');
								}
								$node->add_node($subnode);							
								break;
							case 'array':
								if($new_index)
								{
									while (list ($subkey, $subval) = each ($val))
									{
										$node->add_node($this->import_var($nextkey, $subval));
									}
								}
								else
								{
									$subnode = $this->import_var($nextkey, $val);
									$node->add_node($subnode);							
								}
								break;
							case 'object':
								$subnode = new xmltool('node', $nextkey);
								$subnode->set_value('PHP_SERIALIZED_OBJECT:'.serialize($val));
								$node->add_node($subnode);							
								break;
							case 'resource':
								echo 'Halt: Cannot package PHP resource pointers into XML<br>';
								exit;
							default:
								echo 'Halt: Invalid or unknown data type<br>';
								exit;
						}
					}
					break;
				case 'object':
					$node->set_value('PHP_SERIALIZED_OBJECT:'.serialize($value));
					break;
				case 'resource':
					echo 'Halt: Cannot package PHP resource pointers into XML<br>';
					exit;
				default:
					echo 'Halt: Invalid or unknown data type<br>';
					exit;
			}
	
			if($is_root)
			{
				$this->add_root($node);
				if($export_xml)
				{
					$xml = $this->export_xml();
					return $xml;
				}
				else
				{
					return True;
				}
			}
			else
			{
				return $node;
			}
		}

		function export_var ($is_start = True)
		{
			if($is_start)
			{
				//$xmldata = xml_get_tree($xmldata);
			}
			
			if($this->datatype != 'node')
			{	
				$data = $this->data;
				$found_at = strstr($xmldata['value'],'PHP_SERIALIZED_OBJECT:');
				if($found_at != False)
				{
					$data = str_replace ('PHP_SERIALIZED_OBJECT:', '', $this->data);
					$data = unserialize ($xmldata['value']);
				}
				if($is_start)
				{
					$xml_array[$this->data] = $data;
				}
				else
				{
					return $data;
				}
			}
			else
			{
				$new_index = False;
				reset($this->data);
				while(list($key,$val) = each($this->data))
				{
					if(!isset($found_keys[$val->name]))
					{
						$found_keys[$val->name] = True;
					}
					else
					{
						$new_index = True;
					}
				}
	
				if($new_index)
				{
					reset($this->data);
					while(list($key,$val) = each($this->data))
					{
						//$xml_array[$val->name][] = $this->export_var($val,False);
					}				
				}
				else
				{
					reset($this->data);
					while(list($key,$val) = each($this->data))
					{
						//$xml_array[$val->name] = $this->export_var($val,False);
					}
				}
			}
			return $xml_array;
		}
		
		function import_xml_children($data, &$i, $parent_node)
		{
			while (++$i < count($data))
			{
				switch ($data[$i]['type'])
				{
					case 'cdata':
					case 'complete':
						$node = new xmltool('node',$data[$i]['tag']);
						if(is_array($data[$i]['attributes']) && count($data[$i]['attributes']) > 0)
						{
							while(list($k,$v)=each($data[$i]['attributes']))
							{
								$node->set_attribute($k,$v);
							}
						}
						$node->set_value($data[$i]['value']);
						$parent_node->add_node($node);
						break;
					case 'open':
						$node = new xmltool('node',$data[$i]['tag']);
						if(is_array($data[$i]['attributes']) && count($data[$i]['attributes']) > 0)
						{
							while(list($k,$v)=each($data[$i]['attributes']))
							{
								$node->set_attribute($k,$v);
							}
						}
						
						$node = $this->import_xml_children($data, $i, $node);
						$parent_node->add_node($node);
						break;
					case 'close':
						return $parent_node;
				}
			}
		}
		
		function import_xml($xmldata) 
		{
			$parser = xml_parser_create();
			xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, 0);
			xml_parser_set_option($parser, XML_OPTION_SKIP_WHITE,   1);
			xml_parse_into_struct($parser, $xmldata, $vals, $index);
			xml_parser_free($parser);
			unset($index);	
			$node = new xmltool('node',$vals[0]['tag']);
			if(isset($vals[0]['attributes']))
			{
				while(list($key,$value) = each($vals[0]['attributes']))
				{
					$node->set_attribute($key, $value);
				}
			}
			switch ($vals[0]['type'])
			{
				case 'complete':
					$node->set_value($vals[0]['value']);
					break;
				case 'cdata':
					$node->set_value($vals[0]['value']);
					break;
				case 'open':
					$node = $this->import_xml_children($vals, $i = 0, $node);
					break;
				case 'closed':
					exit;
			}
			if($this->node_type == 'root')
			{
				$this->add_root($node);
			}
			else
			{
				$this->add_node($node);
			}
		}

		function export_xml($indent = 1)
		{
			if ($this->node_type == 'root')
			{
				$result = '<?xml version="'.$this->xmlversion.'"?>'."\n";
				if(count($this->doctype) == 1)
				{
					list($doctype_name,$doctype_uri) = each($this->doctype);
					$result .= '<!DOCTYPE '.$doctype_name.' SYSTEM "'.$doctype_uri.'">'."\n";
				}
				if(count($this->comments) > 0 )
				{
					//reset($this->comments);
					while(list($key,$val) = each ($this->comments))
					{
						$result .= "<!-- $val -->\n";
					}
				}
				if(is_object($this->root_node))
				{
					$indent = 0;
					$result .= $this->root_node->export_xml($indent);
				}
				return $result;
			}
			else /* For node objects */
			{
				for ($i = 0; $i < $indent; $i++)
				{
					$indentstring .= $this->indentstring;
				}

				$result = $indentstring.'<'.$this->name;
				if(count($this->attributes) > 0 )
				{
					reset($this->attributes);
					while(list($key,$val) = each ($this->attributes))
					{
						$result .= ' '.$key.'="'.$val.'"';
					}
				}

				$endtag_indent = $indentstring;
				if (empty($this->data_type))
				{
					$result .= '/>'."\n";
				}
				else
				{
					$result .= '>';

					switch ($this->data_type)
					{
						case 'value':
							if(is_array($this->data))
							{
								$type_error = True;
								break;
							}
							
							if(preg_match("(&|<)", $this->data))
							{
								$result .= '<![CDATA['.$this->data.']]>';
								$endtag_indent = '';		
							}
							elseif(strlen($this->data) > 30)
							{
								$result .= "\n".$indentstring.$this->indentstring.$this->data."\n";
								$endtag_indent = $indentstring;
							}
							else
							{
								$result .= $this->data;
								$endtag_indent = '';
							}
							break;
						case 'node':
							$result .= "\n";
							if(!is_array($this->data))
							{
								$type_error = True;
								break;
							}
				
							$subindent = $indent+1;
							reset($this->data);
							while(list($key,$val) = each ($this->data))
							{
								if(is_object($val))
								{
									$result .= $val->export_xml($subindent);
								}
							}
							break;
						default:
						if($this->data != '')
						{
							echo 'Invalid or unset data type ('.$this->data_type.'). This should not be possible if using the class as intended<br>';
						}
					}

					if ($type_error)
					{
						echo 'Invalid data type. Tagged as '.$this->data_type.' but data is '.gettype($this->data).'<br>';
					}

					$result .= $endtag_indent.'</'.$this->name.'>';
					if($indent != 0)
					{
						$result .= "\n";
					}
				}
				if(count($this->comments) > 0 )
				{
					reset($this->comments);
					while(list($key,$val) = each ($this->comments))
					{
						$result .= $endtag_indent."<!-- $val -->\n";
					}
				}
				return $result;
			}
		}
	}
?>