/* * Copyright (C) 1995-1997 Christopher D. Granz * * This header may not be removed. * * Refer to the file "License" included in this package for further * information and before using any of the following. */ #include "emc.h" /* * Globals */ NODE * pNodeTree; /* * Functions */ NODE *node_int( register long rl ) { register NODE *pNode = alloc_mem( sizeof( *pNode ) ); pNode->iType = NODE_INT; pNode->uL.lInt = rl; pNode->uR.pRight = NULL; return ( pNode ); } NODE *node_float( register double rd ) { register NODE *pNode = alloc_mem( sizeof( *pNode ) ); pNode->iType = NODE_FLOAT; pNode->uL.dFloat = rd; pNode->uR.pRight = NULL; return ( pNode ); } NODE *node_string( register int riType, register char *pStr ) { register NODE *pNode = alloc_mem( sizeof( *pNode ) ); pNode->iType = riType; pNode->uL.pString = str_dup( pStr ); pNode->uR.pRight = NULL; return ( pNode ); } NODE *node_tree( register int riType, register NODE *pLeft, register NODE *pRight ) { register NODE *pNode = alloc_mem( sizeof( *pNode ) ); pNode->iType = riType; pNode->uL.pLeft = pLeft; pNode->uR.pRight = pRight; return ( pNode ); } /* * End of node.c */