288 static void balanceR(tree **ppr_p, int *pi_balance)  in balanceR()  argument
295 	switch ((*ppr_p)->tree_b)  in balanceR()
298 		(*ppr_p)->tree_b = 0;  in balanceR()
301 		(*ppr_p)->tree_b = -1;  in balanceR()
305 		p1 = (*ppr_p)->tree_l;  in balanceR()
309 			(*ppr_p)->tree_l = p1->tree_r;  in balanceR()
310 			p1->tree_r = *ppr_p;  in balanceR()
313 				(*ppr_p)->tree_b = -1;  in balanceR()
318 				(*ppr_p)->tree_b = 0;  in balanceR()
321 			*ppr_p = p1;  in balanceR()
328 			(*ppr_p)->tree_l = p2->tree_r;  in balanceR()
329 			p2->tree_r = *ppr_p;  in balanceR()
331 				(*ppr_p)->tree_b = 1;  in balanceR()
333 				(*ppr_p)->tree_b = 0;  in balanceR()
338 			*ppr_p = p2;  in balanceR()
373 static void balanceL(tree **ppr_p, int *pi_balance)  in balanceL()  argument
381 	switch ((*ppr_p)->tree_b)  in balanceL()
384 		(*ppr_p)->tree_b = 0;  in balanceL()
387 		(*ppr_p)->tree_b = 1;  in balanceL()
391 		p1 = (*ppr_p)->tree_r;  in balanceL()
395 			(*ppr_p)->tree_r = p1->tree_l;  in balanceL()
396 			p1->tree_l = *ppr_p;  in balanceL()
399 				(*ppr_p)->tree_b = 1;  in balanceL()
404 				(*ppr_p)->tree_b = 0;  in balanceL()
407 			*ppr_p = p1;  in balanceL()
414 			(*ppr_p)->tree_r = p2->tree_l;  in balanceL()
415 			p2->tree_l = *ppr_p;  in balanceL()
417 				(*ppr_p)->tree_b = -1;  in balanceL()
419 				(*ppr_p)->tree_b = 0;  in balanceL()
424 			*ppr_p = p2;  in balanceL()
433 static int _delete(tree **ppr_p, int (*pfi_compare)(char *, char *), char *pc_user, int (*pfi_uar)(…  in _delete()  argument
442 	if (*ppr_p == NULL) {  in _delete()
447 	i_comp = (*pfi_compare)((*ppr_p)->tree_p, pc_user);  in _delete()
450 		i_ret = _delete(&(*ppr_p)->tree_l, pfi_compare, pc_user, pfi_uar,  in _delete()
453 			balanceL(ppr_p, pi_balance);  in _delete()
457 		i_ret = _delete(&(*ppr_p)->tree_r, pfi_compare, pc_user, pfi_uar,  in _delete()
460 			balanceR(ppr_p, pi_balance);  in _delete()
464 		pr_q = *ppr_p;  in _delete()
467 			*ppr_p = pr_q->tree_l;  in _delete()
472 			*ppr_p = pr_q->tree_r;  in _delete()
480 				balanceL(ppr_p, pi_balance);  in _delete()
491 static int tree_delete_real(tree **ppr_p, int (*pfi_compare)(char *, char *), char *pc_user, int (*…  in tree_delete_real()  argument
496 	EXIT(_delete(ppr_p, pfi_compare, pc_user, pfi_uar,  in tree_delete_real()
500 int tree_delete(tree **ppr_p, int (*pfi_compare)(char *, char *), char *pc_user, int (*pfi_uar)(cha…  in tree_delete()  argument
502     return tree_delete_real(&(**ppr_p).tree_r, pfi_compare, pc_user, pfi_uar);  in tree_delete()