From 713c9065ec7308caf70dfceee7b183e97a49a18b Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Sun, 1 Apr 1990 16:58:05 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/form/value.c | 115 +++++++++++++++++++++++
 1 file changed, 115 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/form/value.c

diff --git a/WEGA/contrib/ingres/dbs/src/form/value.c b/WEGA/contrib/ingres/dbs/src/form/value.c
new file mode 100644
index 0000000..2f26ef8
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/form/value.c
@@ -0,0 +1,115 @@
+# include	"form.h"
+
+static struct MM_form	*_find(frame, var, no)
+register struct MM_form		*frame;
+register char			*var;
+register int			no;
+{
+	register struct MM_form		*form;
+
+	while (!(frame->f_mode & F_START))
+		frame = frame->f_next;
+	form = frame;
+	do
+	{
+		if (form->f_var == var && no-- == 0)
+		{
+			MM_output(form);
+			return (form);
+		}
+	}
+	while ((form = form->f_next) != frame);
+
+	return ((struct MM_form *) 0);
+}
+
+
+static int		_value(form)
+register struct MM_form		*form;
+{
+	if (form->f_mode & F_VALUE)
+	{
+		MM_pos(form->f_line, form->f_col + 1);
+		MM_pta(form->f_field, form->f_len);
+
+		return (1);
+	}
+
+	return (0);
+}
+
+
+MMclr_value(frame)
+register struct MM_form		*frame;
+{
+	register struct MM_form		*form;
+
+	form = frame;
+	do
+	{
+		if (form->f_mode & F_VALUE)
+			MMpmove(" ", form->f_field, form->f_len, ' ');
+	}
+	while ((form = form->f_next) != frame);
+
+	return (1);
+}
+
+
+MMset_field(frame, var, no)
+register struct MM_form		*frame;
+register char			*var;
+register int			no;
+{
+	register struct MM_form		*form;
+
+	if ((form = _find(frame, var, no)) && _value(form))
+		return (MM_repos());
+
+	return (0);
+}
+
+
+MMset_value(frame, var, no)
+register struct MM_form		*frame;
+register char			*var;
+register int			no;
+{
+	if (frame = _find(frame, var, no))
+		return (frame->f_func == (int (*)()) 0 || (*frame->f_func)(frame));
+
+	return (0);
+}
+
+
+MMval_field(form, func)
+register struct MM_form		*form;
+int				(*func)();
+{
+	if (form->f_mode & F_FIELD)
+		return (0);
+
+	form->f_mode |= F_VALUE;
+	form->f_func = func;
+	MMpmove(" ", form->f_field, form->f_len, ' ');
+	form->f_field[form->f_len] = 0;
+
+	return (1);
+}
+
+
+MMvalue(frame)
+register struct MM_form		*frame;
+{
+	register struct MM_form		*form;
+
+	form = frame;
+	do
+	{
+		_value(form);
+	}
+	while ((form = form->f_next) != frame);
+	MM_repos();
+
+	return (1);
+}