diff --git a/WEGA/contrib/ingres/dbs/src/libq/IIw_right.c b/WEGA/contrib/ingres/dbs/src/libq/IIw_right.c
new file mode 100644
index 0000000..ed77499
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/libq/IIw_right.c
@@ -0,0 +1,123 @@
+# include	<stdio.h>
+# include	"gen.h"
+# include	"../h/dbs.h"
+# include	"../h/pipes.h"
+# include	"IIglobals.h"
+
+/*
+**  IIW_RIGHT -- Write down to the QL parser a string
+**	for a target list of anything but a tupret.
+**
+**	Parameters:
+**		string -- a string which contains the target list
+**			of a QL statement, where values from C variables
+**			to be plugged in are flagged by the construct
+**			'%<dbs_type>" a la printf(). String is left
+**			unchanged.
+**			To escape the '%' mechanism use '%%'.
+**
+**		argv -- a vector of pointers to
+**			variables from which the values flagged by the '%'
+**			mechanism are taken.
+**
+**	Usage:
+**		argv[0] = &double_raise;
+**		IIw_right("dom1 = i.ifield * (1+%f8)", argv);
+*/
+IIw_right(string, argv)
+char	*string;
+char	**argv;
+{
+	register char	*b_st;
+	register char	*e_st;
+	register char	**av;
+	register int	i;
+	extern char	*IIitos();
+
+#	ifdef xETR1
+	if (IIdebug)
+		printf("RIGHT: string \"%s\"\n", string);
+#	endif
+	av = argv;
+	for (b_st = e_st = string; *e_st; )
+	{
+		if (*e_st != '%')
+		{
+			e_st++;
+			continue;
+		}
+
+		/* provide '%%' escape mechanism */
+		if (e_st[1] == '%')
+		{
+			e_st[1] = '\0';
+			IIwrite(b_st);
+			e_st[1] = '%';
+			b_st = e_st = &e_st[2];
+			continue;
+		}
+		*e_st = '\0';
+		IIwrite(b_st);
+		*e_st++ = '%';
+
+		switch (*e_st)
+		{
+		  case 'f':
+			i = *++e_st - '0';
+			switch (i)
+			{
+			  case sizeof (double):
+				IIcvar(*av, opDOUBLE, sizeof (double));
+				break;
+
+# ifndef NO_F4
+			  case sizeof (float):
+				IIcvar(*av, opFLT, sizeof (float));
+				break;
+# endif
+
+			  default:
+				goto error_label;
+			}
+			av++;
+			break;
+
+		  case 'i':
+			i = *++e_st - '0';
+			switch (i)
+			{
+			  case sizeof (long):
+				IIcvar(*av, opLONG, sizeof (long));
+				break;
+
+			  case sizeof (short):
+				IIcvar(*av, opINT, sizeof (short));
+				break;
+
+			  case sizeof (char):
+				IIcvar(*av, opCHAR, sizeof (char));
+
+			  default:
+				goto error_label;
+			}
+			av++;
+			break;
+
+		  case 'c':
+			IIcvar(*av++, opSTRING, 0);
+			break;
+		}
+		b_st = ++e_st;
+	}
+	IIwrite(b_st);
+	return;
+
+error_label:
+	IIerror(IIerrflag = 1004, 1, &string);
+	/* make sure that part already written down will     */
+	/* cause an error, and don't print it.               */
+	/*	The old IIprint_err is restored in IIerror() */
+	IIwrite(",");
+	IIo_print = IIprint_err;
+	IIprint_err = IIno_err;
+}