From a4a1ba50549a4693ed92242d528d28d2e414ccbd Mon Sep 17 00:00:00 2001 From: Oliver Lehmann Date: Tue, 3 Apr 1990 07:46:33 +0000 Subject: [PATCH] ING_DB --- WEGA/contrib/ingres/dbs/src/form/screen.c | 81 +++++++++++++++++++++++ 1 file changed, 81 insertions(+) create mode 100644 WEGA/contrib/ingres/dbs/src/form/screen.c diff --git a/WEGA/contrib/ingres/dbs/src/form/screen.c b/WEGA/contrib/ingres/dbs/src/form/screen.c new file mode 100644 index 0000000..29eac40 --- /dev/null +++ b/WEGA/contrib/ingres/dbs/src/form/screen.c @@ -0,0 +1,81 @@ +# include "form.h" + +int MMline = 1; +int MMcol = 1; +int MM_cs_cm; + +# ifndef SIGN_EXT +# include "../gutil/i1toi2.c" +# endif + +# define AApmove MMpmove +# include "../gutil/pmove.c" + +# define AAsmove MMsmove +# include "../gutil/smove.c" + + +MMclr_line(line, column) +register int line; +register int column; +{ + MM_pos(line, column); + MM_pts(MM_cs[CS_CE]); + + return (1); +} + + +MMclr_screen(line, column) +register int line; +register int column; +{ + MM_pos(line, column); + MM_pts(MM_cs[CS_CD]); + + return (1); +} + + +MM_pos(line, column) +register int line; +register int column; +{ + register char *p; + char buf[21]; + if (MM_cs_cm) + { + line += MM_cs_cm; + column += MM_cs_cm; + } + sprintf(p = buf, MM_cs[CS_CM], line, column); + MM_pts(p); + + return (1); +} + + +MM_abs_pos(line, column) +register int line; +register int column; +{ + MMline = line; + MMcol = column; + + return (MM_repos()); +} + + +MM_rel_pos(column) +register int column; +{ + MMcol += column; + + return (MM_repos()); +} + + +MM_repos() +{ + return (MM_pos(MMline, MMcol)); +}