/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* aplcpyb APL2 V1.0.0 *************************************************
* Called from aplcpy to copy all objects from one workspace to         *
* the current, pointed to by treehdr.                                  *
***********************************************************************/
#define INCLUDES APLCB+TREE
#include "includes.h"
void aplcpyb(fromtree,node,pcopy)
struct treelist *fromtree;	/* Root of tree to copy from. */
struct avlnode *node;		/* Current node in from tree. */
int pcopy;				/* 0 = )copy, 1 = )pcopy. */
{
	Aplcpyc;

	if (node == NULL) return;
	aplcpyb(fromtree,node->left_child,pcopy); /* visit left branch */
	if (node->avlleaf != NULL)
		aplcpyc(fromtree,node->avlname, node->avlleaf,pcopy);
	aplcpyb(fromtree,node->rite_child,pcopy); /* visit right branch */
}