ING_DB
This commit is contained in:
Oliver Lehmann
parent
daec666835
commit
bab0218e7d
|
|
@ -0,0 +1,122 @@
|
|||
# include "form.h"
|
||||
|
||||
static int _del_ch(field, length)
|
||||
register char *field;
|
||||
register int length;
|
||||
{
|
||||
register char *p;
|
||||
|
||||
for (p = field; length; --length, p++)
|
||||
*p = *(p + 1);
|
||||
*p = ' ';
|
||||
MM_pts(field);
|
||||
MM_repos();
|
||||
|
||||
return (1);
|
||||
}
|
||||
|
||||
|
||||
static int _ins_ch(field, length)
|
||||
register char *field;
|
||||
register int length;
|
||||
{
|
||||
register char *p;
|
||||
|
||||
for (p = field + length; length; --length, --p)
|
||||
*p = *(p - 1);
|
||||
*field = ' ';
|
||||
MM_pts(field);
|
||||
MM_repos();
|
||||
|
||||
return (1);
|
||||
}
|
||||
|
||||
|
||||
MM_edit(form)
|
||||
register struct MM_form *form;
|
||||
{
|
||||
register int ch;
|
||||
register char *t;
|
||||
register int p;
|
||||
register int l;
|
||||
register int line;
|
||||
register int col;
|
||||
|
||||
t = form->f_field;
|
||||
l = form->f_len - 1;
|
||||
p = 0;
|
||||
for ( ; ; )
|
||||
{
|
||||
switch (ch = MM_getchar())
|
||||
{
|
||||
case C_HELP:
|
||||
case C_MENUE:
|
||||
if (form->f_help)
|
||||
{
|
||||
line = MMline;
|
||||
MMline = 1;
|
||||
col = MMcol;
|
||||
MMcol = 1;
|
||||
MMclr_screen(1, 1);
|
||||
(*form->f_help)(form);
|
||||
MMclr_screen(2, 1);
|
||||
MMframe(form, line, col);
|
||||
}
|
||||
continue;
|
||||
|
||||
case C_NEXT:
|
||||
case C_PREV:
|
||||
if (form->f_mode & F_SENDED)
|
||||
{
|
||||
MM_input(form);
|
||||
if (form->f_func && !(*form->f_func)(form))
|
||||
continue;
|
||||
form->f_mode &= ~F_SENDED;
|
||||
}
|
||||
/* fall through */
|
||||
|
||||
case C_QUIT:
|
||||
MM_backup(ch);
|
||||
MMline = form->f_line;
|
||||
MMcol = form->f_col;
|
||||
return (1);
|
||||
|
||||
case C_FIELD:
|
||||
ch = -p;
|
||||
rel_pos:
|
||||
t += ch;
|
||||
MM_rel_pos(ch);
|
||||
p += ch;
|
||||
continue;
|
||||
|
||||
case C_LEFT:
|
||||
ch = p? -1: l;
|
||||
goto rel_pos;
|
||||
|
||||
case C_RIGHT:
|
||||
right_pos:
|
||||
ch = (p == l)? -p: 1;
|
||||
goto rel_pos;
|
||||
|
||||
case C_DELETE:
|
||||
form->f_mode |= F_SENDED | F_FILLED;
|
||||
_del_ch(t, l - p);
|
||||
continue;
|
||||
|
||||
case C_INSERT:
|
||||
form->f_mode |= F_SENDED | F_FILLED;
|
||||
_ins_ch(t, l - p);
|
||||
continue;
|
||||
|
||||
default:
|
||||
if (ch >= ' ' && ch < 0177)
|
||||
{
|
||||
form->f_mode |= F_SENDED | F_FILLED;
|
||||
*t = ch;
|
||||
write(1, t, 1);
|
||||
goto right_pos;
|
||||
}
|
||||
MMerror(" UNGUELTIGES ZEICHEN ");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,32 @@
|
|||
# include "form.h"
|
||||
|
||||
MMframe(frame, line, col)
|
||||
register struct MM_form *frame;
|
||||
int line;
|
||||
int col;
|
||||
{
|
||||
register struct MM_form *form;
|
||||
register int invers;
|
||||
|
||||
MMclr_screen(2, 1);
|
||||
form = frame;
|
||||
do
|
||||
{
|
||||
if (form->f_len)
|
||||
{
|
||||
if (invers = form->f_mode & (F_INPUT | F_MENUE))
|
||||
{
|
||||
MM_pos(form->f_line, form->f_col);
|
||||
MM_pts(MM_cs[(form == frame)? CS_SO: CS_SE]);
|
||||
}
|
||||
MM_pos(form->f_line, form->f_col + 1);
|
||||
MM_pta(form->f_field, form->f_len);
|
||||
if (invers)
|
||||
MM_pts(MM_cs[CS_SE]);
|
||||
}
|
||||
}
|
||||
while ((form = form->f_next) != frame);
|
||||
MM_abs_pos(line, col);
|
||||
|
||||
return (1);
|
||||
}
|
||||
|
|
@ -0,0 +1,62 @@
|
|||
# include "form.h"
|
||||
|
||||
/*
|
||||
** SHELL CALL BS SHELL
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
MMshell(frame, shell, quit, command)
|
||||
struct MM_form *frame;
|
||||
int shell;
|
||||
int quit;
|
||||
register char *command;
|
||||
{
|
||||
register int i;
|
||||
register int pid;
|
||||
register int line;
|
||||
register int col;
|
||||
int status;
|
||||
|
||||
if (!command || !*command)
|
||||
return (0);
|
||||
|
||||
line = MMline;
|
||||
MMline = 1;
|
||||
col = MMcol;
|
||||
MMcol = 1;
|
||||
MMclr_line(1, 1);
|
||||
MMclr_screen(2, 1);
|
||||
|
||||
if ((pid = fork()) < 0)
|
||||
{
|
||||
return (1);
|
||||
}
|
||||
if (!pid)
|
||||
{
|
||||
setuid(getuid());
|
||||
setgid(getgid());
|
||||
for (i = 3; i < 20; i++)
|
||||
close(i);
|
||||
if (shell)
|
||||
execlp("sh", "sh", "-c", command, (char *) 0);
|
||||
else
|
||||
execlp(command, command, (char *) 0);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
/* wait for shell to complete */
|
||||
while ((i = wait(&status)) != -1)
|
||||
if (i == pid)
|
||||
break;
|
||||
|
||||
i = status >> 8;
|
||||
if (!i && quit)
|
||||
{
|
||||
MMclr_line(1, 1);
|
||||
MM_ptis(" ENDE ");
|
||||
MM_getchar();
|
||||
MMclr_line(1, 1);
|
||||
}
|
||||
MMframe(frame, line, col);
|
||||
return (i);
|
||||
}
|
||||
|
|
@ -0,0 +1,224 @@
|
|||
STATIC
|
||||
------
|
||||
_del_ch: edit.c _del_ch(field, length)
|
||||
char *field;
|
||||
int length;
|
||||
|
||||
_find: value.c struct MM_form *_find(frame, var, no)
|
||||
struct MM_form *frame;
|
||||
char *var;
|
||||
int no;
|
||||
|
||||
_getcha:r getchar.c _getchar()
|
||||
|
||||
_ins_ch edit.c _ins_ch(field, length)
|
||||
char *field;
|
||||
int length;
|
||||
|
||||
_transl:ate getchar.c _translate(key_string)
|
||||
char **key_string;
|
||||
|
||||
_value value.c _value(form)
|
||||
struct MM_form *form;
|
||||
|
||||
_Error: error.c int _Error;
|
||||
|
||||
_Peek_c:h getchar.c int _Peek_ch[];
|
||||
|
||||
_Peek_p:tr getchar.c int _Peek_ptr;
|
||||
|
||||
_Tree: getchar.c struct MM_tree *_Tree;
|
||||
|
||||
_Tty main.c struct sgttyb _Tty;
|
||||
|
||||
_Tty_fd main.c int _Tty_fd;
|
||||
|
||||
_Tty_flags main.c int _Tty_flags;
|
||||
|
||||
|
||||
INTERN
|
||||
------
|
||||
MM_abs_:pos screen.c MM_abs_pos(line, col)
|
||||
int line;
|
||||
int col;
|
||||
|
||||
MM_back:up getchar.c MM_backup(character)
|
||||
int character;
|
||||
|
||||
MM_cs: string.c char *MM_cs[];
|
||||
|
||||
MM_cs_c:m screen.c int MM_cs_cm;
|
||||
|
||||
MM_edit: edit.c MM_edit(form)
|
||||
struct MM_form *form;
|
||||
|
||||
MM_getc:har getchar.c MM_getchar()
|
||||
|
||||
MM_inco:de getchar.c MM_incode(key_string, key_code)
|
||||
char *key_string;
|
||||
int key_code;
|
||||
|
||||
MM_inpu:t input.c MM_input(form)
|
||||
struct MM_form *form;
|
||||
|
||||
MM_need: input.c struct MM_form *MM_need(frame)
|
||||
struct MM_form *frame;
|
||||
|
||||
MM_outp:ut output.c MM_output(form)
|
||||
struct MM_form *form;
|
||||
|
||||
MM_pos: screen.c MM_pos(line, col)
|
||||
int line;
|
||||
int col;
|
||||
|
||||
MM_pta: string.c MM_pta(string, length)
|
||||
char *string;
|
||||
int length;
|
||||
|
||||
MM_ptis: string.c MM_ptis(string)
|
||||
char *string;
|
||||
|
||||
MM_pts: string.c MM_pts(string)
|
||||
char *string;
|
||||
|
||||
MM_rel_:pos screen.c MM_rel_pos(col)
|
||||
int col;
|
||||
|
||||
MM_repo:s screen.c MM_repos()
|
||||
|
||||
MM_outc:ode getchar.c MM_outcode(key_stroutg, key_code)
|
||||
char *key_string;
|
||||
int key_code;
|
||||
|
||||
MM_var: var.c MM_var(form, var, format, type)
|
||||
struct MM_form *form;
|
||||
char *var;
|
||||
char *format;
|
||||
int type;
|
||||
|
||||
EXTERN
|
||||
------
|
||||
MMalloc: alloc.c struct MM_form *MMalloc(frame, line, col, len, var)
|
||||
struct MM_form **frame;
|
||||
int line;
|
||||
int col;
|
||||
int len;
|
||||
char *var;
|
||||
|
||||
MMclr_e:rror error.c MMclr_error()
|
||||
|
||||
MMclr_l:ine screen.c MMclr_line(line, col)
|
||||
int line;
|
||||
int col;
|
||||
|
||||
MMclr_s:creen screen.c MMclr_screen(line, col)
|
||||
int line;
|
||||
int col;
|
||||
|
||||
MMclr_v:alue value.c MMclr_value(frame)
|
||||
struct MM_form *frame;
|
||||
|
||||
MMcol: screen.c int MMcol;
|
||||
|
||||
MMerror: error.c MMerror(error_text)
|
||||
char *error_text;
|
||||
|
||||
MMexit_:form main.c MMexit_form(clear)
|
||||
int clear;
|
||||
|
||||
MMform: form.c MMform(frame)
|
||||
struct MM_form *frame;
|
||||
|
||||
MMframe: frame.c MMframe(frame, line, col)
|
||||
struct MM_form *frame;
|
||||
int line;
|
||||
int col;
|
||||
|
||||
MMfree: free.c MMfree(frame)
|
||||
struct MM_form **frame;
|
||||
|
||||
MMinit_:form main.c MMinit_form(clear)
|
||||
int clear;
|
||||
|
||||
MMin_fi:eld input.c MMin_field(form, func, help, need)
|
||||
struct MM_form *form;
|
||||
int (*func)();
|
||||
int (*help)();
|
||||
int need;
|
||||
|
||||
MMline: screen.c int MMline;
|
||||
|
||||
MMmen_f:ield menue.c MMmen_field(form, func, help, menue_text)
|
||||
struct MM_form *form;
|
||||
int (*func)();
|
||||
int (*help)();
|
||||
char *menue_text;
|
||||
|
||||
MMnext: next.c MMnext()
|
||||
|
||||
MMout_f:ield output.c MMout_field(form, output_text)
|
||||
struct MM_form *form;
|
||||
char *output_text;
|
||||
|
||||
MMpmove: screen.c char *MMpmove(src, dst, len, ch)
|
||||
char *src;
|
||||
char *dst;
|
||||
int len;
|
||||
int ch;
|
||||
|
||||
MMsmove: screen.c MMsmove(src, dst)
|
||||
char *src;
|
||||
char *dst;
|
||||
|
||||
MMset_f:ield value.c MMset_field(frame, var, no)
|
||||
struct MM_form *frame;
|
||||
char *var;
|
||||
int no;
|
||||
|
||||
MMset_v:alue value.c MMset_value(frame, var, no)
|
||||
struct MM_form *frame;
|
||||
char *var;
|
||||
int no;
|
||||
|
||||
MMshell: shell.c MMshell(form, shell, quit, command)
|
||||
struct MM_form *form;
|
||||
int shell;
|
||||
int quit;
|
||||
char *command;
|
||||
|
||||
MMval_f:ield value.c MMval_field(form, func)
|
||||
struct MM_form *form;
|
||||
int (*func)();
|
||||
|
||||
MMvalue: value.c MMvalue(frame)
|
||||
struct MM_form *frame;
|
||||
|
||||
MMvarc: var_c.c MMvarc(form, var, format)
|
||||
struct MM_form *form;
|
||||
char *var;
|
||||
char *format;
|
||||
|
||||
MMvarf4: var_f4.c MMvarf4(form, var, format)
|
||||
struct MM_form *form;
|
||||
char *var;
|
||||
char *format;
|
||||
|
||||
MMvarf8: var_f8.c MMvarf8(form, var, format)
|
||||
struct MM_form *form;
|
||||
char *var;
|
||||
char *format;
|
||||
|
||||
MMvari1: var_i1.c MMvari1(form, var, format)
|
||||
struct MM_form *form;
|
||||
char *var;
|
||||
char *format;
|
||||
|
||||
MMvari2: var_i2.c MMvari2(form, var, format)
|
||||
struct MM_form *form;
|
||||
char *var;
|
||||
char *format;
|
||||
|
||||
MMvari4: var_i4.c MMvari4(form, var, format)
|
||||
struct MM_form *form;
|
||||
char *var;
|
||||
char *format;
|
||||
Loading…
Reference in New Issue