static PTREE insert // INSERT AT NODE
( PTREE node // - node
, NAME name ) // - routine name
{
PTREE left; // - new left operand
PTREE comma; // - new comma node
left = PTreeId( name );
left = PTreeCopySrcLocation( left, node );
left = PTreeBinary( CO_CALL, left, NULL );
left = PTreeCopySrcLocation( left, node );
comma = PTreeBinary( CO_COMMA, left, node );
comma = PTreeCopySrcLocation( comma, node );
return comma;
}
static PTREE genFnCall( char *name )
{
return( PTreeBinary( CO_CALL, PTreeId( name ), NULL ) );
}
