ING_DB
This commit is contained in:
Oliver Lehmann
parent
06b61869bf
commit
80dac1de39
|
|
@ -0,0 +1,393 @@
|
|||
# include <stdio.h>
|
||||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/catalog.h"
|
||||
# include "../h/access.h"
|
||||
|
||||
static char MAN[] = "/sys/man/";
|
||||
static char TOC[] = "toc";
|
||||
static int DBA_flag;
|
||||
|
||||
/*
|
||||
** HELP - Provide Information to User
|
||||
**
|
||||
** Arguments:
|
||||
** pv[i] - code
|
||||
** 0 - print relation information
|
||||
** 1 - print manual section
|
||||
** 2 - print short relation list
|
||||
** 3 - print long relation list
|
||||
** pv[i+1] - name of entity for modes 0 or 1
|
||||
**
|
||||
*/
|
||||
help(parmc, parmv)
|
||||
int parmc;
|
||||
char **parmv;
|
||||
{
|
||||
register char **pv;
|
||||
register int ret;
|
||||
short mode;
|
||||
DESC des;
|
||||
|
||||
ret = 0;
|
||||
pv = parmv;
|
||||
getuser((char *) -1); /* init getuser for modes 1 & 2 */
|
||||
DBA_flag = AAbequal(AAdmin.adhdr.adowner, AAusercode, 2);
|
||||
|
||||
while (*pv != (char *) -1)
|
||||
{
|
||||
if (AA_atoi(*pv++, &mode))
|
||||
goto badmode;
|
||||
|
||||
# ifdef xZTR1
|
||||
if (AAtTf(10, -1) || AAtTf(0, 10))
|
||||
{
|
||||
printf("HELP: %d", mode);
|
||||
if (mode != 2)
|
||||
printf(" %s", *pv);
|
||||
putchar('\n');
|
||||
}
|
||||
# endif
|
||||
|
||||
switch (mode)
|
||||
{
|
||||
case 0: /* help relation */
|
||||
if (!AArelopen(&des, -1, *pv) && rel_fmt(&des))
|
||||
*pv = (char *) 0;
|
||||
goto next;
|
||||
|
||||
case 1: /* help manual section */
|
||||
if (!man_fmt(*pv))
|
||||
*pv = (char *) 0;
|
||||
next:
|
||||
pv++;
|
||||
break;
|
||||
|
||||
case 2:
|
||||
case 3:
|
||||
relpr(mode);
|
||||
break;
|
||||
|
||||
default:
|
||||
badmode:
|
||||
AAsyserr(11033, *--pv);
|
||||
}
|
||||
}
|
||||
getuser((char *) 0); /* close getuser in case mode 1 or 2 */
|
||||
|
||||
/* now rescan for error messages */
|
||||
pv = parmv;
|
||||
while (*pv != (char *) -1)
|
||||
{
|
||||
AA_atoi(*pv++, &mode);
|
||||
switch (mode)
|
||||
{
|
||||
case 0:
|
||||
case 1:
|
||||
if (*pv)
|
||||
ret = error(5401 + mode, *pv, (char *) 0);
|
||||
break;
|
||||
|
||||
case 2:
|
||||
case 3:
|
||||
continue;
|
||||
}
|
||||
pv++;
|
||||
}
|
||||
|
||||
return (ret);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** Nroff Manual Section
|
||||
**
|
||||
** The manual section given by 'name' is runoff'ed. Returns one
|
||||
** on success, zero if the manual section is not found.
|
||||
*/
|
||||
man_fmt(name)
|
||||
register char *name;
|
||||
{
|
||||
extern char *AAztack();
|
||||
|
||||
/* a null manual name gives table of contents */
|
||||
if (!*name)
|
||||
name = TOC;
|
||||
else if (AAlength(name) > MAXNAME)
|
||||
return (TRUE);
|
||||
|
||||
return (AAcat(AAztack(AAztack(AApath, MAN), name)));
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** PRINT DATABASE INFORMATION
|
||||
**
|
||||
** Prints a list of all the relations in the database, together
|
||||
** with their owner.
|
||||
*/
|
||||
relpr(mode)
|
||||
int mode;
|
||||
{
|
||||
register DESC *d;
|
||||
register int i;
|
||||
struct tup_id limtid;
|
||||
struct tup_id tid;
|
||||
struct relation rel;
|
||||
char buf[MAXLINE + 1];
|
||||
char lastuser[2];
|
||||
extern DESC Reldes;
|
||||
extern char *AAdatabase;
|
||||
extern char *AAbmove();
|
||||
extern char *AAcustomer();
|
||||
|
||||
opencatalog(AA_REL, 0);
|
||||
d = &Reldes;
|
||||
if (i = AAam_find(d, NOKEY, &tid, &limtid))
|
||||
AAsyserr(11036, i);
|
||||
|
||||
lastuser[0] = '\0';
|
||||
|
||||
if (mode == 2)
|
||||
{
|
||||
i = AAdmin.adhdr.adflags;
|
||||
rel_owner(buf, AAdmin.adhdr.adowner);
|
||||
printf("\n%s / DBA %s\n\n", AAcustomer(), buf);
|
||||
printf("DB %s %sparallel verwendbar\n",
|
||||
AAdatabase, (i & A_DBCONCUR)? "": "nicht ");
|
||||
printf("%sQRYMOD-Unterstuetzung\n", (i & A_QRYMOD)? "": "keine ");
|
||||
printf("Seitengroesse %d Bytes\n\n", AApgsize);
|
||||
printf(" Relation Besitzer Typ\n");
|
||||
printf("----------------------------------------------------\n");
|
||||
}
|
||||
|
||||
while (!(i = AAam_get(d, &tid, &limtid, &rel, 1)))
|
||||
{
|
||||
if (mode == 2)
|
||||
{
|
||||
if (!DBA_flag && !AAbequal(AAusercode, rel.relowner, 2))
|
||||
continue;
|
||||
|
||||
if (!AAbequal(lastuser, rel.relowner, 2))
|
||||
{
|
||||
rel_owner(buf, rel.relowner);
|
||||
AAbmove(rel.relowner, lastuser, 2);
|
||||
}
|
||||
printf(" %.12s %-18s", rel.relid, buf);
|
||||
if (rel.relstat & S_CATALOG)
|
||||
printf("Systemkatalog\n");
|
||||
else if (rel.relstat & S_VIEW)
|
||||
printf("Sicht\n");
|
||||
else if (ctoi(rel.relindxd) == SECINDEX)
|
||||
printf("Index\n");
|
||||
else
|
||||
{
|
||||
if (rel.relstat & S_DISTRIBUTED)
|
||||
printf("entfernte ");
|
||||
printf("Nutzerrelation\n");
|
||||
}
|
||||
}
|
||||
else if (AAbequal(AAusercode, rel.relowner, 2) && !(rel.relstat & S_CATALOG))
|
||||
rel_fmt(&rel);
|
||||
}
|
||||
|
||||
if (i < 0)
|
||||
AAsyserr(11037, i);
|
||||
if (mode == 2)
|
||||
printf("----------------------------------------------------\n");
|
||||
}
|
||||
|
||||
|
||||
rel_owner(buf, own)
|
||||
register char *buf;
|
||||
register char *own;
|
||||
{
|
||||
register char *cp;
|
||||
extern char *AAbmove();
|
||||
|
||||
if (getuser(own, buf))
|
||||
{
|
||||
/* cant find user code */
|
||||
cp = AAbmove(" ", buf, 2);
|
||||
cp = AAbmove(own, cp, 2);
|
||||
}
|
||||
else
|
||||
for (cp = buf; *cp != ':'; cp++)
|
||||
continue;
|
||||
*cp = '\0';
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** Print Relation Information
|
||||
**
|
||||
** Prints detailed information regarding the relation.
|
||||
*/
|
||||
rel_fmt(r)
|
||||
register struct relation *r;
|
||||
{
|
||||
register int i;
|
||||
register int j;
|
||||
struct tup_id limtid;
|
||||
struct tup_id tid;
|
||||
struct attribute att;
|
||||
struct index indkey;
|
||||
struct index ind;
|
||||
char buf[MAXLINE + 1];
|
||||
char tempname[MAXNAME + 3];
|
||||
long mainpg;
|
||||
long ovflopg;
|
||||
extern DESC Attdes;
|
||||
extern DESC Inddes;
|
||||
extern char *AAdbpath;
|
||||
extern long lseek();
|
||||
extern char *trim_relname();
|
||||
extern char *ctime();
|
||||
|
||||
if (AAbequal(r->relid, SYSNAME, s_SYSNAME))
|
||||
return (FALSE);
|
||||
|
||||
if (!AAbequal(AAusercode, r->relowner, 2)
|
||||
&& (r->relstat & S_PROTRET) && (r->relstat & S_PROTALL))
|
||||
return (FALSE);
|
||||
|
||||
printf("\nRelation:\t\t%s\n", trim_relname(r->relid));
|
||||
printf("---------\t\t%s\n", AAcustomer());
|
||||
if (i = getuser(r->relowner, buf))
|
||||
{
|
||||
AAsmove("(xx)", buf);
|
||||
AAbmove(r->relowner, &buf[1], 2);
|
||||
}
|
||||
else
|
||||
{
|
||||
for (i = 0; buf[i] != ':'; i++)
|
||||
continue;
|
||||
buf[i] = 0;
|
||||
}
|
||||
printf("Besitzer:\t\t%s\n", buf);
|
||||
if (AAdbpath)
|
||||
printf("Lokalisation:\t\t%s\n", AAdbpath);
|
||||
printf("Domaenanzahl:\t\t%d\n", r->relatts);
|
||||
printf("Tupellaenge:\t\t%d\n", r->relwid);
|
||||
if (r->relsave)
|
||||
# ifdef ESER_VMX
|
||||
printf("Verfallsdatum:\t\t%s", ctime(r->relsave));
|
||||
# else
|
||||
printf("Verfallsdatum:\t\t%s", ctime(&r->relsave));
|
||||
# endif
|
||||
if (!(r->relstat & S_VIEW))
|
||||
{
|
||||
printf("Tupelanzahl:\t\t%ld\n", r->reltups);
|
||||
printf("Speicherstruktur:\t");
|
||||
if ((i = ctoi(r->relspec)) < 0)
|
||||
{
|
||||
printf("compressed ");
|
||||
i = -i;
|
||||
}
|
||||
|
||||
switch (i)
|
||||
{
|
||||
case M_HEAP:
|
||||
printf("HEAP\n");
|
||||
break;
|
||||
|
||||
case M_ISAM:
|
||||
printf("ISAM\n");
|
||||
break;
|
||||
|
||||
case M_HASH:
|
||||
printf("HASH\n");
|
||||
break;
|
||||
|
||||
default:
|
||||
printf("unbekannt %d\n", i);
|
||||
break;
|
||||
}
|
||||
|
||||
AAdbname(r->relid, r->relowner, tempname);
|
||||
if ((j = open(tempname, 0)) >= 0)
|
||||
{
|
||||
if ((ovflopg = lseek(j, 0L, 2)) >= 0L)
|
||||
{
|
||||
mainpg = r->relprim;
|
||||
if (i == M_ISAM)
|
||||
mainpg++;
|
||||
ovflopg /= AApgsize;
|
||||
ovflopg -= mainpg;
|
||||
printf("Pages:\t\t\t%ld + %ld\n", mainpg, ovflopg);
|
||||
}
|
||||
close(j);
|
||||
}
|
||||
}
|
||||
|
||||
printf("Relationentyp:\t\t");
|
||||
if (r->relstat & S_CATALOG)
|
||||
printf("Systemkatalog\n");
|
||||
else if (r->relstat & S_VIEW)
|
||||
printf("Sicht\n");
|
||||
else if (ctoi(r->relindxd) == SECINDEX)
|
||||
{
|
||||
printf("Index auf ");
|
||||
opencatalog(AA_INDEX, 0);
|
||||
AAam_setkey(&Inddes, &indkey, r->relowner, IOWNERP);
|
||||
AAam_setkey(&Inddes, &indkey, r->relid, IRELIDI);
|
||||
if (!AAgetequal(&Inddes, &indkey, &ind, &tid))
|
||||
printf("%s\n", trim_relname(ind.irelidp));
|
||||
else
|
||||
printf("unbekannte Relation\n");
|
||||
}
|
||||
else
|
||||
{
|
||||
if (r->relstat & S_DISTRIBUTED)
|
||||
printf("entfernte ");
|
||||
printf("Nutzerrelation\n");
|
||||
}
|
||||
printf("Zugriffsrechte:\t\t%s\n", (r->relstat & S_PROTUPS)? "definiert": "keine");
|
||||
if (!(r->relstat & S_PROTRET))
|
||||
printf("\t\t\tRETRIEVE TO ALL\n");
|
||||
if (!(r->relstat & S_PROTALL))
|
||||
printf("\t\t\tALL TO ALL\n");
|
||||
printf("Integritaeten:\t\t%s\n", (r->relstat & S_INTEG)? "definiert": "keine");
|
||||
if (ctoi(r->relindxd) == SECBASE)
|
||||
{
|
||||
printf("Indexrelationen:\t");
|
||||
opencatalog(AA_INDEX, 0);
|
||||
AAam_setkey(&Inddes, &indkey, r->relid, IRELIDP);
|
||||
AAam_setkey(&Inddes, &indkey, r->relowner, IOWNERP);
|
||||
if (i = AAam_find(&Inddes, EXACTKEY, &tid, &limtid, &indkey))
|
||||
AAsyserr(11038, i);
|
||||
j = FALSE;
|
||||
while (!(i = AAam_get(&Inddes, &tid, &limtid, &ind, 1)))
|
||||
{
|
||||
if (!AAbequal(&indkey, &ind, MAXNAME + 2))
|
||||
continue;
|
||||
if (j)
|
||||
printf("\t\t\t");
|
||||
j =TRUE;
|
||||
printf("%s\n", trim_relname(ind.irelidi));
|
||||
}
|
||||
if (i < 0)
|
||||
AAsyserr(11039, i);
|
||||
if (!j)
|
||||
printf("unbekannt\n");
|
||||
}
|
||||
|
||||
opencatalog(AA_ATT, 0);
|
||||
printf("\n Nummer Domaenname Typ Laenge Schluessel\n");
|
||||
printf("---------------------------------------------------\n");
|
||||
fflush(stdout);
|
||||
seq_init(&Attdes, r);
|
||||
while (seq_attributes(&Attdes, r, &att))
|
||||
{
|
||||
printf(" %3d %.12s %c%8d", att.attid, att.attname,
|
||||
typeunconv(att.attfrmt), ctou(att.attfrml));
|
||||
if (att.attxtra)
|
||||
printf("%7d", att.attxtra);
|
||||
putchar('\n');
|
||||
}
|
||||
|
||||
printf("---------------------------------------------------\n");
|
||||
fflush(stdout);
|
||||
return (TRUE);
|
||||
}
|
||||
Loading…
Reference in New Issue