This commit is contained in:
Oliver Lehmann 1989-12-07 09:02:54 +00:00
parent 3725e15ff1
commit 8e900dedd8
1 changed files with 76 additions and 0 deletions

View File

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