Tryag File Manager

//home/cluster1/data/bu01/1121861/html/jlex/php4/schema_checker.php4

include_once("group.php4");
include_once("fields_loader.php4");
include_once("schema_loader.php4");

class schema_checker {
    
    var $parser;
    var $cur_group;
    var $head_tag;

var $get_entry = false;
    var $cur_tag;

var $first_field = array();
    var $found_error;
    var $errors = array();

var $id_field;

function schema_checker() {
	
    }

function startHandler($xp, $element, $attribs)
    {	
	$element = strtolower($element);
	//echo "START: $element \n";
	if($element == $this->head_tag) {	    
	    $this->get_entry = true;
	    $this->found_error = false;
	}		
	else if ($this->get_entry){
	    $found = false;
	    while(!$found && !$this->found_error) {
		//First check to see if the element exists in the current group. Note that in;
		//subgroups, a field can only occur once. Otherwise, it is not possible;
		//to determine if a field marks the beginning of a new group or exists within;
		//the current group. The flexibility may be able to be improved for this in;
		//later versions.;

if(array_key_exists($element,$this->cur_group->fields) &&
		   ($element != end($this->first_field))) 
		{
		    break;
		}

//Then check to see if the element exists in any of the subgroups of the current group;
		//If the element is not in any of the subgroups then it must mean there are no more elements;
		//in the current group. I have set the condition that a group must contain at least one non-group;
		//element and it must be the first item in the group. Otherwise, it is not possible to determine;
		//to which group a field belongs. For example, a pna field, which is a field of a subgroup of;
		//se and sea, can not precede the sense it belongs to. Otherwise, it is not possible to determine;
		//whether the pna field belongs to the sense field before it or after it (if one exists). 
		//$new_group = false;
		foreach($this->cur_group->groups as $new_group) {
		    if(array_key_exists($element,$new_group->fields)) {
			$this->first_field[] = $element;
			//echo "moving down from ".$this->cur_group->name." to ";
			$new_group->parent = &$this->cur_group;
			$this->cur_group->group_vals[$new_group->name][] = &$new_group;
			$this->cur_group = &$new_group;
			
			$found = true;
			unset($new_group);

break;
		    }
		}
		//If the element did no exist in any subgroups, ascend up the hierarchy. If the element is;
		//not a member of the parent group, the variable 'new_group' will remain false and the;
		//while loop will begin again though with the parent group as the current group. I suppose;
		//this leads to some redundancy as the code will check in places it has alread looked, namely;
		//the current group. However, I believe the efficiency of the recursion, in general, makes up for it;
					
		if(!$found) {
		    //echo "moving up from ".$this->cur_group->name." to ";
		    if($this->cur_group->parent) {
			$this->cur_group = &$this->cur_group->parent;
			//echo $this->cur_group->name." \n";	    
			array_pop($this->first_field);
		    }
		    else {
			$id = $this->cur_group->field_vals[$this->id_field][0];
			$error = "LINE ".xml_get_current_line_number($this->parser);
			$error .= ": ERROR: XML does not match schema. $this->id_field: $id. See field '$element'.\n";
			
			$this->errors[] = $error;
			$this->found_error = true;
			break;
		    }

/*
			The following code handles a case of the following:
			/se
			/ss
			/pea
			/psa
			/pna
			/se
			etc...
		    */

if(array_key_exists($element,$this->cur_group->fields)) {
			if($element == end($this->first_field)) {
			    $name = $this->cur_group->name;
			    $this->cur_group = &$this->cur_group->parent;
			    $new_group = $this->cur_group->groups[$name];
			    $new_group->parent = &$this->cur_group;
			    $this->cur_group->group_vals[$name][] = &$new_group;
			    $this->cur_group = &$new_group;
			    unset($new_group);
			}
			$found = true;
		    }
		}
	    }
	}	
    }

function cDataHandler($xp, $data) {
    }

function check_schema($schema, $xml_file, $id_field) {
	$this->parser = xml_parser_create();
	xml_set_object($this->parser,$this);
	xml_set_element_handler($this->parser,"startHandler","endHandler");
	xml_set_character_data_handler($this->parser,"cDataHandler");

$this->id_field = $id_field;

$sl = new schema_loader();
	
	$this->cur_group = $sl->create_group_structure($schema,$xml_file);
	$this->cur_group->parent = false;
	$this->xml_file = $xml_file;
	$this->head_tag = $this->cur_group->name;

$in = fopen($this->xml_file,"r");
	while($line = fgets($in)) {
	    xml_parse($this->parser,$line,false);
	}
	return $this->errors;
    }
}
/*
//error_reporting(0);
$sc = new schema_checker();
//$errors = $sc->check_schema("hierarchy.xml","test.xml","ref");
$errors = $sc->check_schema("hierarchy.xml","modified_ActiveNahuatl_2005_august_3.xml","ref");
echo "Number of errors: ".count($errors)."\n";
foreach($errors as $error) {
    echo $error;
}
*/
?>