Return to setvar.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / decomp

BSD 4.2

# include	<ingres.h>
# include	<aux.h>
# include	<tree.h>
# include	<symbol.h>
# include	"globs.h"
# include	<sccs.h>

SCCSID(@(#)setvar.c	7.1	2/5/81)

/*
** SETVAR -- Routines to convert a VAR to a constant and back to a VAR
**
**	This file contains the routines for tuple substitution.
**
**	Setvar -- Make a VAR node reference its position in the tuple.
**
**	Clrvar -- Make the VAR node refer back to a VAR
*/
/*
**  SETVAR
**
**	Var's are changed to reference their values in a tuple.
**	ROOT and AND nodes are changed to update the variable maps.
**
**	Trace Flags:
**		53
*/

setvar(tree, var, intid, tuple)
register QTREE 	*tree;
int		var;
TID		*intid;
char		*tuple;
{
	register int	mask, nvc;
	DESC		*readopen();
	extern QTREE	*ckvar();

	if (tree == NULL) 
		return;
	switch (tree->sym.type)
	{
	  case VAR:
		if ((tree=ckvar(tree))->sym.value.sym_var.varno == var)
		{
#			ifdef xDTR1
			if (tTf(53, 0))
			{
				printf("setvar:%d;tree:", var);
				nodepr(tree);
			}
#			endif
			if (tree->sym.value.sym_var.attno)
				tree->sym.value.sym_var.valptr =
				    (ANYTYPE *) (tuple + readopen(var)->reloff[tree->sym.value.sym_var.attno]);
			else
				tree->sym.value.sym_var.valptr = (ANYTYPE *) intid;
		}
		return;

	  case ROOT:
	  case AND:
		mask = 01 << var;
		nvc = tree->sym.value.sym_root.tvarc;
		if (tree->sym.value.sym_root.lvarm & mask)
		{
			setvar(tree->left, var, intid, tuple);
			tree->sym.value.sym_root.lvarm &=  ~mask;
			--tree->sym.value.sym_root.lvarc;
			nvc = tree->sym.value.sym_root.tvarc - 1;
		}
		if (tree->sym.value.sym_root.rvarm & mask)
		{
			setvar(tree->right, var, intid, tuple);
			tree->sym.value.sym_root.rvarm &=  ~mask;
			nvc = tree->sym.value.sym_root.tvarc - 1;
		}
		tree->sym.value.sym_root.tvarc = nvc;
		return;

	  default:
		setvar(tree->left, var, intid, tuple);
		setvar(tree->right, var, intid, tuple);
		return;
	}
}
/*
**	Clearvar is the opposite of setvar. For
**	each occurence of var1 in the tree, clear
**	the valptr.
*/

clearvar(tree, var)
register QTREE	*tree;
register int	var;
{
	extern QTREE	*ckvar();

	if (tree == NULL)
		return;

	if (tree->sym.type == VAR)
	{
		if ((tree = ckvar(tree))->sym.value.sym_var.varno == var)
			tree->sym.value.sym_var.valptr = 0;
		return;
	}
	clearvar(tree->left, var);
	clearvar(tree->right, var);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.