From 888129574cd778e90c4a7a9f234dc70da1e378d8 Mon Sep 17 00:00:00 2001
From: Oliver Lehmann <lehmann@ans-netz.de>
Date: Mon, 19 Feb 1990 09:27:59 +0000
Subject: [PATCH] ING_DB

---
 WEGA/contrib/ingres/dbs/src/form/in_fld.c  | 24 ++++++++++++++++++++++
 WEGA/contrib/ingres/dbs/src/form/men_fld.c | 21 +++++++++++++++++++
 WEGA/contrib/ingres/dbs/src/form/out_fld.c | 17 +++++++++++++++
 WEGA/contrib/ingres/dbs/src/form/val_fld.c | 19 +++++++++++++++++
 4 files changed, 81 insertions(+)
 create mode 100644 WEGA/contrib/ingres/dbs/src/form/in_fld.c
 create mode 100644 WEGA/contrib/ingres/dbs/src/form/men_fld.c
 create mode 100644 WEGA/contrib/ingres/dbs/src/form/out_fld.c
 create mode 100644 WEGA/contrib/ingres/dbs/src/form/val_fld.c

diff --git a/WEGA/contrib/ingres/dbs/src/form/in_fld.c b/WEGA/contrib/ingres/dbs/src/form/in_fld.c
new file mode 100644
index 0000000..878a1bf
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/form/in_fld.c
@@ -0,0 +1,24 @@
+# include	"form.h"
+
+MMinput_field(form, func, help, need)
+register struct MM_form		*form;
+int				(*func)();
+int				(*help)();
+register int			need;
+{
+	register int			len;
+
+	if (form->f_mode)
+		return (0);
+
+	form->f_mode = F_INPUT;
+	if (need)
+		form->f_mode |= F_NEED;
+	form->f_func = func;
+	form->f_help = help;
+	form->f_field[len = form->f_len] = 0;
+	while (len)
+		form->f_field[len] = '.';
+
+	return (1);
+}
diff --git a/WEGA/contrib/ingres/dbs/src/form/men_fld.c b/WEGA/contrib/ingres/dbs/src/form/men_fld.c
new file mode 100644
index 0000000..03cefd2
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/form/men_fld.c
@@ -0,0 +1,21 @@
+# include	"form.h"
+
+MMmenue_field(form, func, help, menue_text)
+register struct MM_form		*form;
+int				(*func)();
+int				(*help)();
+register char			*menue_text;
+{
+	register int			len;
+
+	if (form->f_mode)
+		return (0);
+
+	form->f_mode = F_MENUE;
+	form->f_func = func;
+	form->f_help = help;
+	AApmove(menue_text, form->f_field, len = form->f_len, ' ');
+	form->f_field[len] = 0;
+
+	return (1);
+}
diff --git a/WEGA/contrib/ingres/dbs/src/form/out_fld.c b/WEGA/contrib/ingres/dbs/src/form/out_fld.c
new file mode 100644
index 0000000..8e2c69e
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/form/out_fld.c
@@ -0,0 +1,17 @@
+# include	"form.h"
+
+MMoutput_field(form, output_text)
+register struct MM_form		*form;
+register char			*output_text;
+{
+	register int			len;
+
+	if (form->f_mode)
+		return (0);
+
+	form->f_mode = F_OUTPUT;
+	AApmove(output_text, form->f_field, len = form->f_len, ' ');
+	form->f_field[len] = 0;
+
+	return (1);
+}
diff --git a/WEGA/contrib/ingres/dbs/src/form/val_fld.c b/WEGA/contrib/ingres/dbs/src/form/val_fld.c
new file mode 100644
index 0000000..e4606ac
--- /dev/null
+++ b/WEGA/contrib/ingres/dbs/src/form/val_fld.c
@@ -0,0 +1,19 @@
+# include	"form.h"
+
+MMvalue_field(form, func)
+register struct MM_form		*form;
+int				(*func)();
+{
+	register int			len;
+
+	if (form->f_mode)
+		return (0);
+
+	form->f_mode = F_VALUE;
+	form->f_func = func;
+	form->f_field[len = form->f_len] = 0;
+	while (len)
+		form->f_field[len] = ' ';
+
+	return (1);
+}