ING_DB
This commit is contained in:
Oliver Lehmann
parent
ebf9fac4c3
commit
a22ca9d534
|
|
@ -0,0 +1,216 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/batch.h"
|
||||
# include "../h/symbol.h"
|
||||
# include "../h/lock.h"
|
||||
# include "../h/bs.h"
|
||||
|
||||
# ifdef P8000
|
||||
ret_buf AAjmp_buf;
|
||||
# else
|
||||
jmp_buf AAjmp_buf;
|
||||
# endif
|
||||
|
||||
char KSORT[] = "/sys/bin/dbu___s";
|
||||
|
||||
char *Fileset;
|
||||
char *Ksort;
|
||||
char **Xparams = &Ksort;
|
||||
int Noupdt;
|
||||
int Where;
|
||||
char *Fillflag;
|
||||
char *Fillfactor;
|
||||
char *Minflag;
|
||||
char *Minpages;
|
||||
char *Maxflag;
|
||||
char *Maxpages;
|
||||
struct batchbuf Batchbuf;
|
||||
extern char *Parmvect[];
|
||||
extern char *Flagvect[];
|
||||
extern char *AAdbpath;
|
||||
extern char *AApath;
|
||||
extern int Standalone;
|
||||
extern char *AAproc_name;
|
||||
|
||||
main(argc, argv)
|
||||
int argc;
|
||||
char *argv[];
|
||||
{
|
||||
register char **av;
|
||||
register char *p;
|
||||
register int i;
|
||||
char null;
|
||||
char ksort[100];
|
||||
char fileset[6];
|
||||
|
||||
AAproc_name = "MODIFYR";
|
||||
|
||||
# ifdef xSTR1
|
||||
AAtTrace(&argc, argv, 'X');
|
||||
# endif
|
||||
|
||||
switch (i = initucode(argc, argv, TRUE, (char **) 0, M_SHARE))
|
||||
{
|
||||
case 0:
|
||||
case 5:
|
||||
break;
|
||||
|
||||
case 1:
|
||||
case 6:
|
||||
AAsyserr(0, "Die Datenbank '%s' existiert nicht", Parmvect[0]);
|
||||
|
||||
case 2:
|
||||
AAsyserr(0, "Sie duerfen auf die Datenbank '%s' nicht zugreifen", Parmvect[0]);
|
||||
|
||||
case 3:
|
||||
AAsyserr(0, "Sie sind kein eingetragener DBS-Nutzer");
|
||||
|
||||
case 4:
|
||||
printf("Sie haben keinen Datenbanknamen angegeben\n");
|
||||
usage:
|
||||
AAsyserr(0, "HINWEIS: modifyr {flags} db_name rel_name storage_structure [{dom_name}]");
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
|
||||
for (i = 0, av = Flagvect; p = *av; av++)
|
||||
{
|
||||
if (*p == '-' && where_flag(p + 1))
|
||||
continue;
|
||||
|
||||
printf("Unbekanntes Flag '%s'\n", p);
|
||||
i++;
|
||||
}
|
||||
|
||||
if (i)
|
||||
goto usage;
|
||||
|
||||
for (i = 0; Parmvect[i]; i++)
|
||||
continue;
|
||||
|
||||
if (i == 2)
|
||||
Parmvect[i++] = "same";
|
||||
|
||||
if ((argc = i) < 3 || argc > MAXDOM + 3)
|
||||
goto usage;
|
||||
|
||||
if (chdir(AAdbpath) < 0)
|
||||
AAsyserr(22201, AAproc_name, AAdbpath);
|
||||
|
||||
/* hello eric */
|
||||
Standalone = 0;
|
||||
|
||||
/* initialize access methods (and AAdmin struct) for user_ovrd test */
|
||||
AAam_start();
|
||||
opencatalog(AA_REL, 2);
|
||||
|
||||
/* do function */
|
||||
AA_itoa(getpid(), Fileset = fileset);
|
||||
AAconcat(AApath, KSORT, ksort);
|
||||
Ksort = ksort;
|
||||
Parmvect[0] = Parmvect[1];
|
||||
Parmvect[1] = Parmvect[2];
|
||||
if (argc != 3)
|
||||
{
|
||||
argc++;
|
||||
Parmvect[2] = "name";
|
||||
}
|
||||
if (Where)
|
||||
{
|
||||
i = argc - 1;
|
||||
null = 0;
|
||||
Parmvect[i++] = &null;
|
||||
if (Fillflag)
|
||||
{
|
||||
Parmvect[i++] = Fillflag;
|
||||
Parmvect[i++] = Fillfactor;
|
||||
}
|
||||
if (Minflag)
|
||||
{
|
||||
Parmvect[i++] = Minflag;
|
||||
Parmvect[i++] = Minpages;
|
||||
}
|
||||
if (Maxflag)
|
||||
{
|
||||
Parmvect[i++] = Maxflag;
|
||||
Parmvect[i++] = Maxpages;
|
||||
}
|
||||
argc = ++i;
|
||||
}
|
||||
Parmvect[argc - 1] = (char *) -1;
|
||||
Parmvect[argc] = (char *) 0;
|
||||
modify(argc, Parmvect);
|
||||
|
||||
/* logout database */
|
||||
closecatalog(TRUE);
|
||||
AAunldb();
|
||||
AAam_exit();
|
||||
fflush(stdout);
|
||||
exit(0);
|
||||
}
|
||||
|
||||
|
||||
where_flag(flag)
|
||||
register char *flag;
|
||||
{
|
||||
register char *f;
|
||||
long i;
|
||||
|
||||
for (f = flag; *f && *f != ':'; f++)
|
||||
continue;
|
||||
|
||||
if (!*f)
|
||||
return (0);
|
||||
|
||||
*f++ = 0;
|
||||
|
||||
if ((AAsequal(flag, "fillfactor")
|
||||
# ifdef ESER
|
||||
|| AAsequal(flag, "FILLFACTOR")
|
||||
# endif
|
||||
) && !AA_atol(f, &i))
|
||||
{
|
||||
Fillflag = flag;
|
||||
Fillfactor = f;
|
||||
goto flag_ok;
|
||||
}
|
||||
|
||||
if ((AAsequal(flag, "minpages")
|
||||
# ifdef ESER
|
||||
|| AAsequal(flag, "MINPAGES")
|
||||
# endif
|
||||
) && !AA_atol(f, &i))
|
||||
{
|
||||
Minflag = flag;
|
||||
Minpages = f;
|
||||
goto flag_ok;
|
||||
}
|
||||
|
||||
if ((AAsequal(flag, "maxpages")
|
||||
# ifdef ESER
|
||||
|| AAsequal(flag, "MAXPAGES")
|
||||
# endif
|
||||
) && !AA_atol(f, &i))
|
||||
{
|
||||
Maxflag = flag;
|
||||
Maxpages = f;
|
||||
flag_ok:
|
||||
Where++;
|
||||
return (1);
|
||||
}
|
||||
|
||||
*--f = ':';
|
||||
return (0);
|
||||
}
|
||||
|
||||
|
||||
rubproc()
|
||||
{
|
||||
AAunlall();
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
Loading…
Reference in New Issue