ING_DB

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);
+}

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);
+}

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);
+}

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);
+}