/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* avlsrch APL2 V1.0.0 *************************************************
* Called by treenode to search a binary tree.                          *
***********************************************************************/
#define INCLUDES STRING+TREE
#include "includes.h"
Avlnode avlsrch(parmhdr,parmname)
Avlnode parmhdr;
char *parmname;
{
	Avlnode p;

	p = parmhdr;
	while(p != NULL)
		switch (isign(strcmp(parmname,p->avlname))) {
			case -1: /* parmname < p->avlname */
				p = p->left_child;
				break;
			case  0: /* parmname = p->avlname */
				return(p);
				break;
			case +1: /* parmname > p->avlname */
				p = p->rite_child;
				break;
		}
	return(p);
}