ING_DB
This commit is contained in:
parent
3725e15ff1
commit
8e900dedd8
|
|
@ -0,0 +1,76 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
# include "gen.h"
|
||||||
|
# include "../h/bs.h"
|
||||||
|
|
||||||
|
# ifdef P8000
|
||||||
|
ret_buf AAjmp_buf;
|
||||||
|
# else
|
||||||
|
jmp_buf AAjmp_buf;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char *argv[];
|
||||||
|
{
|
||||||
|
register char **av;
|
||||||
|
register int x;
|
||||||
|
register int i;
|
||||||
|
extern char *AAproc_name;
|
||||||
|
extern char *Parmvect[];
|
||||||
|
extern char *Flagvect[];
|
||||||
|
|
||||||
|
AAproc_name = (x = (*argv[0] == 'R') || (*argv[0] == 'r'))? "REFR": "MANR";
|
||||||
|
switch (i = initucode(argc, argv, 0, (char *) 0, -1))
|
||||||
|
{
|
||||||
|
case 0:
|
||||||
|
case 1:
|
||||||
|
case 2:
|
||||||
|
case 4:
|
||||||
|
case 5:
|
||||||
|
case 6:
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 3:
|
||||||
|
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||||
|
|
||||||
|
default:
|
||||||
|
AAsyserr(22200, AAproc_name, i);
|
||||||
|
}
|
||||||
|
|
||||||
|
if (Flagvect[0])
|
||||||
|
{
|
||||||
|
printf("Es sind keine Flags gestattet\n");
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
av = Parmvect;
|
||||||
|
do shorthelp(x, *av); while (*av && *++av);
|
||||||
|
|
||||||
|
fflush(stdout);
|
||||||
|
exit(0);
|
||||||
|
# ifdef ESER_PSU
|
||||||
|
AACCESS();
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
shorthelp(x, help)
|
||||||
|
register int x; /* x == 1: short help */
|
||||||
|
/* == 0: long help */
|
||||||
|
register char *help;
|
||||||
|
{
|
||||||
|
extern char *AApath;
|
||||||
|
extern char *AAztack();
|
||||||
|
|
||||||
|
if (!help)
|
||||||
|
help = "toc";
|
||||||
|
if (AAcat(AAztack(AAztack(AApath, x? "/sys/ref/": "/sys/man/"), help)))
|
||||||
|
printf("Unbekanntes Manual %s\n", help);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
rubproc()
|
||||||
|
{
|
||||||
|
fflush(stdout);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue