ING_DB
This commit is contained in:
Oliver Lehmann
parent
10dfba6848
commit
65c7520794
|
|
@ -0,0 +1,637 @@
|
|||
/*
|
||||
** J. Wenzlaff, ZKI der AdW
|
||||
**
|
||||
** READ and EXECUTE DBI-file
|
||||
*/
|
||||
|
||||
# include "db.h"
|
||||
# include "../h/catalog.h"
|
||||
# ifdef MSDOS
|
||||
# include "../h/aux#.h"
|
||||
# include <process.h>
|
||||
# else
|
||||
# include "../h/aux.h"
|
||||
# endif
|
||||
|
||||
# define DBI_LINE 512
|
||||
# define MARK *Line
|
||||
|
||||
char RW_flag; /* read/write flag */
|
||||
short Refs[TABS * MAXDOM]; /* DB/REDABAS-references */
|
||||
short Flds[DB_FLDMAX + 2]; /* REDABAS/DB-references */
|
||||
DESC *Desc; /* actual relation descriptor */
|
||||
DESC Desc_s[TABS]; /* descriptor cache */
|
||||
char *N_db; /* overwrinting for DB */
|
||||
char *N_dbd; /* overwrinting for RDABAS.DBD */
|
||||
static ACCBUF Xtrabufs[TABS]; /* buffer cache */
|
||||
static FILE *Dbi; /* DBI-file */
|
||||
static char Line[DBI_LINE]; /* line buffer for DBI-file */
|
||||
static int Lines; /* line count for DBI-file */
|
||||
static char *Ptrvec[20]; /* ptrs to fields of DBI-line */
|
||||
static int Ptrs; /* field count for DBI-line */
|
||||
extern char *AAproc_name;
|
||||
extern char *AAdbpath;
|
||||
extern char *Parmvect[];
|
||||
|
||||
/*
|
||||
** DBI CONVERSION DRIVER
|
||||
*/
|
||||
dbi(dbi_file)
|
||||
register char *dbi_file;
|
||||
{
|
||||
register int i;
|
||||
register int rels;
|
||||
register FILE *dbi;
|
||||
register int err;
|
||||
# ifndef MSDOS
|
||||
static char dbpbuf[MAXLINE];
|
||||
# endif
|
||||
|
||||
rels = 0;
|
||||
if (dbiopen(dbi_file))
|
||||
return;
|
||||
|
||||
/*
|
||||
** command part before conversion
|
||||
*/
|
||||
while (!(i = dbi_line()))
|
||||
{
|
||||
if (MARK != CMD_READ && MARK != CMD_WRITE)
|
||||
break;
|
||||
if (MARK == RW_flag && shell(Ptrvec[PTR_NAME]))
|
||||
{
|
||||
exec_err:
|
||||
printf("REDABAS\t%s FAILED\n", Ptrvec[PTR_NAME]);
|
||||
done(rels);
|
||||
return;
|
||||
}
|
||||
}
|
||||
if (i)
|
||||
{
|
||||
eof:
|
||||
printf("REDABAS\tDBI-file: unexpected eof on line %d\n", Lines);
|
||||
done(rels);
|
||||
return;
|
||||
}
|
||||
|
||||
/*
|
||||
** read REDABAS header informations
|
||||
*/
|
||||
if (MARK != CMD_DBD)
|
||||
{
|
||||
printf("\tmissing DBD-line [%c ...]\n", CMD_DBD);
|
||||
syntax:
|
||||
printf("REDABAS\tDBI-file: syntax error on line %d\n", Lines);
|
||||
done(rels);
|
||||
return;
|
||||
}
|
||||
|
||||
/*
|
||||
** read REDABAS fields
|
||||
*/
|
||||
if (N_dbd)
|
||||
Ptrvec[PTR_NAME] = N_dbd;
|
||||
if (bgn_fld(Ptrs, Ptrvec))
|
||||
goto syntax;
|
||||
while (!(i = dbi_line()) && MARK == CMD_FIELD)
|
||||
if (chk_fld(Ptrs, Ptrvec))
|
||||
goto syntax;
|
||||
if (i)
|
||||
goto eof;
|
||||
if (end_fld())
|
||||
goto syntax;
|
||||
|
||||
/*
|
||||
** initialize data base
|
||||
*/
|
||||
if (MARK != CMD_DB)
|
||||
{
|
||||
printf("\tmissing DB-line [%c ...]\n", CMD_DB);
|
||||
goto syntax;
|
||||
}
|
||||
if (N_db)
|
||||
Ptrvec[PTR_NAME] = N_db;
|
||||
if (!Ptrs)
|
||||
{
|
||||
printf("\tmissing DB-name\n");
|
||||
goto syntax;
|
||||
}
|
||||
# ifdef MSDOS
|
||||
i = initdbpath(Ptrvec[PTR_NAME]);
|
||||
# else
|
||||
i = initdbpath(Ptrvec[PTR_NAME], dbpbuf, 1);
|
||||
# endif
|
||||
switch (i)
|
||||
{
|
||||
case 0:
|
||||
case 1:
|
||||
break;
|
||||
|
||||
case 2:
|
||||
case 3:
|
||||
printf("\tcan't access DB %s\n", Ptrvec[PTR_NAME]);
|
||||
goto syntax;
|
||||
|
||||
default:
|
||||
AAsyserr(22200, AAproc_name, i);
|
||||
}
|
||||
# ifndef MSDOS
|
||||
AAdbpath = dbpbuf;
|
||||
# endif
|
||||
AAam_start();
|
||||
AAam_addbuf(Xtrabufs, TABS);
|
||||
|
||||
/*
|
||||
** read relations
|
||||
*/
|
||||
i = dbi_line();
|
||||
while (!i && MARK == CMD_REL)
|
||||
{
|
||||
if (rels >= TABS)
|
||||
{
|
||||
printf("\ttoo many RELATION-lines [%c ...]\n", CMD_REL);
|
||||
goto syntax;
|
||||
}
|
||||
Desc = &Desc_s[rels];
|
||||
if (bgn_dom(Ptrs, Ptrvec))
|
||||
goto syntax;
|
||||
while (!(i = dbi_line()) && MARK == CMD_DOMAIN)
|
||||
if (chk_dom(Ptrs, Ptrvec))
|
||||
goto syntax;
|
||||
if (end_dom())
|
||||
goto syntax;
|
||||
bgn_ref(++rels);
|
||||
while (!i && MARK == CMD_REF)
|
||||
{
|
||||
if (chk_ref(Ptrs, Ptrvec))
|
||||
goto syntax;
|
||||
i = dbi_line();
|
||||
}
|
||||
if (end_ref())
|
||||
goto syntax;
|
||||
}
|
||||
if (!rels)
|
||||
{
|
||||
printf("\tmissing RELATION-line [%c ...]\n", CMD_REL);
|
||||
goto syntax;
|
||||
}
|
||||
err = transfer(rels);
|
||||
dbi = Dbi;
|
||||
Dbi = (FILE *) 0;
|
||||
done(rels);
|
||||
Dbi = dbi;
|
||||
if (err)
|
||||
return;
|
||||
|
||||
/*
|
||||
** command part after conversion
|
||||
*/
|
||||
while (!i && (MARK == CMD_READ || MARK == CMD_WRITE))
|
||||
{
|
||||
if (MARK == RW_flag && shell(Ptrvec[PTR_NAME]))
|
||||
goto exec_err;
|
||||
i = dbi_line();
|
||||
}
|
||||
if (!i)
|
||||
{
|
||||
printf("\textra lines\n");
|
||||
goto syntax;
|
||||
}
|
||||
done(rels);
|
||||
}
|
||||
|
||||
done(rels)
|
||||
register int rels;
|
||||
{
|
||||
register int i;
|
||||
|
||||
if (Dbi)
|
||||
{
|
||||
fclose(Dbi);
|
||||
Dbi = (FILE *) 0;
|
||||
}
|
||||
for (i = 0; i < rels; i++)
|
||||
{
|
||||
AAunlrl((Desc = &Desc_s[i])->reltid);
|
||||
AArelclose(Desc);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
** DBIOPEN open DBI-file
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
dbiopen(dbi_file)
|
||||
register char *dbi_file;
|
||||
{
|
||||
# ifdef SETBUF
|
||||
static char dbi_buf[BUFSIZ];
|
||||
# endif
|
||||
|
||||
if ((Dbi = fopen(dbi_file, "r")) == (FILE *) 0)
|
||||
{
|
||||
printf("REDABAS\tcan't access DBI-file %s\n", dbi_file);
|
||||
return (1);
|
||||
}
|
||||
# ifdef SETBUF
|
||||
setbuf(Dbi, dbi_buf);
|
||||
# endif
|
||||
Lines = 0;
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
** DBI_LINE get a line from DBI-file
|
||||
** return (0) = ok
|
||||
** return (1) = eof
|
||||
*/
|
||||
static int dbi_line()
|
||||
{
|
||||
register char *l;
|
||||
register int ch;
|
||||
register char **p;
|
||||
register int str;
|
||||
|
||||
Ptrs = str = 0;
|
||||
repeat:
|
||||
Lines++;
|
||||
ch = dbi_char(str);
|
||||
fflush(stdout);
|
||||
switch (ch)
|
||||
{
|
||||
case 0:
|
||||
return (1);
|
||||
|
||||
case CMD_COMMENT:
|
||||
while (ch != '\n')
|
||||
if (!(ch = dbi_char(str)))
|
||||
return (1);
|
||||
/* fall through */
|
||||
|
||||
case '\n':
|
||||
goto repeat;
|
||||
|
||||
case CMD_READ:
|
||||
case CMD_WRITE:
|
||||
str = ' ';
|
||||
break;
|
||||
}
|
||||
l = Line;
|
||||
*l++ = ch;
|
||||
p = Ptrvec - 1;
|
||||
while (ch = dbi_char(str))
|
||||
{
|
||||
if (ch == '\n')
|
||||
{
|
||||
*l++ = 0;
|
||||
break;
|
||||
}
|
||||
if (ch == ' ')
|
||||
{
|
||||
if (!(*l++ = str) || p < Ptrvec)
|
||||
*(++p) = l;
|
||||
continue;
|
||||
}
|
||||
*l++ = ch;
|
||||
}
|
||||
if (!**p)
|
||||
--p;
|
||||
Ptrs = p - Ptrvec + 1;
|
||||
return (!ch);
|
||||
}
|
||||
|
||||
/*
|
||||
** DBI_CHAR get a char from DBI-file
|
||||
** return (char)
|
||||
** return (0) = eof
|
||||
*/
|
||||
static int dbi_char(str)
|
||||
register int str;
|
||||
{
|
||||
register int ch;
|
||||
register FILE *f;
|
||||
static int space;
|
||||
|
||||
f = Dbi;
|
||||
repeat:
|
||||
switch (ch = getc(f))
|
||||
{
|
||||
case '\t':
|
||||
ch = ' ';
|
||||
/* fall through */
|
||||
|
||||
case ' ':
|
||||
if (str)
|
||||
break;
|
||||
if (space++)
|
||||
goto repeat;
|
||||
return (ch);
|
||||
|
||||
case EOF:
|
||||
ch = 0; /* no errors */
|
||||
/* fall through */
|
||||
|
||||
case 0:
|
||||
fclose(f);
|
||||
Dbi = (FILE *) 0;
|
||||
break;
|
||||
}
|
||||
space = 0;
|
||||
return (ch);
|
||||
}
|
||||
|
||||
|
||||
char *AArelpath(rel)
|
||||
register char *rel;
|
||||
{
|
||||
extern char *AAztack();
|
||||
|
||||
return (AAztack(AAztack(AAdbpath, "/"), rel));
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** CHECK domain specification of DBI-file
|
||||
*/
|
||||
|
||||
static char Dom[MAXDOM]; /* domain check area */
|
||||
static short *Db_ref;
|
||||
|
||||
/*
|
||||
** BGN_DOM start domain check
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
static int bgn_dom(argc, argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
register int i;
|
||||
register DESC *d;
|
||||
register char *rel;
|
||||
register int into;
|
||||
|
||||
if (!argc)
|
||||
{
|
||||
printf("\tmissing RELATION-name\n");
|
||||
return (1);
|
||||
}
|
||||
/* clear domain check area */
|
||||
for (i = 0; i < MAXDOM; i++)
|
||||
Dom[i] = 0;
|
||||
|
||||
/* relation must exist and not be a system relation */
|
||||
/* in addition a copy "from" can't be done if the user */
|
||||
/* doesn't own the relation */
|
||||
/* and furthermore it can't have an index */
|
||||
if (i = AArelopen(d = Desc, 2, rel = argv[PTR_NAME]))
|
||||
{
|
||||
if (i == AMOPNVIEW_ERR)
|
||||
printf("\tcan't access VIEW %s\n", rel);
|
||||
else
|
||||
goto not_owned;
|
||||
}
|
||||
else if (into = RW_flag == CMD_WRITE)
|
||||
{
|
||||
if ((d->reldum.relstat & S_PROTALL)
|
||||
&& (d->reldum.relstat & S_PROTRET)
|
||||
&& !AAbequal(AAusercode, d->reldum.relowner, 2))
|
||||
goto not_owned;
|
||||
}
|
||||
else
|
||||
{
|
||||
if (!AAbequal(AAusercode, d->reldum.relowner, 2) || (d->reldum.relstat & S_NOUPDT))
|
||||
{
|
||||
not_owned:
|
||||
printf("\tcan't access RELATION %s\n", rel);
|
||||
i++;
|
||||
}
|
||||
else if (ctoi(d->reldum.relindxd) == SECBASE)
|
||||
{
|
||||
printf("\tRELATION %s has indexes\n", rel);
|
||||
i++;
|
||||
}
|
||||
}
|
||||
if (i)
|
||||
goto no_rel;
|
||||
|
||||
/* set a lock on relation*/
|
||||
if (AAsetrll(A_SLP, d->reltid, into? M_SHARE: M_EXCL) < 0)
|
||||
{
|
||||
printf("\tcan't lock RELATION %s\n", rel);
|
||||
no_rel:
|
||||
AArelclose(d);
|
||||
return (1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
** CHK_DOM domain check
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
static int chk_dom(argc, argv)
|
||||
int argc;
|
||||
register char **argv;
|
||||
{
|
||||
register int i;
|
||||
register DESC *d;
|
||||
register int l;
|
||||
|
||||
if (argc < 3)
|
||||
{
|
||||
printf("\tmissing DOMAIN-%s\n",
|
||||
argc? ((argc > 1)? "type & length": "name"): "number");
|
||||
return (1);
|
||||
}
|
||||
if ((i = atoi(argv[PTR_NAME])) > (d = Desc)->reldum.relatts || i < 1)
|
||||
{
|
||||
printf("\tillegal DOMAIN-number %d\n", i);
|
||||
return (1);
|
||||
}
|
||||
if (Dom[l = i - 1])
|
||||
{
|
||||
printf("\tduplicate DOMAIN-number %d\n", i);
|
||||
return (1);
|
||||
}
|
||||
Dom[l] = 1;
|
||||
if ((l = typeunconv(d->relfrmt[i])) != *(argv[PTR_TYPE]))
|
||||
{
|
||||
printf("\ttype error on DOMAIN %d\n", i);
|
||||
printf("\texpected %c\n", l);
|
||||
printf("\t found %c\n", *(argv[PTR_TYPE]));
|
||||
return (1);
|
||||
}
|
||||
if (ctou(d->relfrml[i]) != (l = atoi(argv[PTR_TYPE] + 1)))
|
||||
{
|
||||
printf("\tlength error on DOMAIN %d\n", i);
|
||||
printf("\texpected %d\n", ctou(d->relfrml[i]));
|
||||
printf("\t found %d\n", l);
|
||||
return (1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
** END_DOM end of domain check
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
static int end_dom()
|
||||
{
|
||||
register int i;
|
||||
|
||||
for (i = 0; i < MAXDOM; i++)
|
||||
if (!Dom[i])
|
||||
{
|
||||
--i;
|
||||
break;
|
||||
}
|
||||
if (++i != Desc->reldum.relatts)
|
||||
{
|
||||
printf("\tmissing DOMAIN with number %d\n", ++i);
|
||||
return (1);
|
||||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
** BGN_REF start reference check
|
||||
*/
|
||||
static int bgn_ref(argc)
|
||||
register int argc;
|
||||
{
|
||||
register short *r;
|
||||
register int i;
|
||||
|
||||
/* clear reference area */
|
||||
for (i = MAXDOM, r = &Refs[argc * MAXDOM]; i; --i)
|
||||
*(--r) = -1; /* no reference */
|
||||
Db_ref = r;
|
||||
}
|
||||
|
||||
/*
|
||||
** CHK_REF reference check
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
static int chk_ref(argc, argv)
|
||||
int argc;
|
||||
register char **argv;
|
||||
{
|
||||
register short *r;
|
||||
register int d;
|
||||
register int f;
|
||||
|
||||
if (argc < 2)
|
||||
{
|
||||
printf("\tmissing REFERENCE-%s-number\n", argc? "domain": "field");
|
||||
return (1);
|
||||
}
|
||||
if ((f = atoi(argv[PTR_NAME])) >= Db_hdr.db_fields || f < 0)
|
||||
{
|
||||
printf("\tillegal REFERENCE-field-number %d\n", f);
|
||||
return (1);
|
||||
}
|
||||
if ((d = atoi(argv[PTR_NO])) > Desc->reldum.relatts || d < 1)
|
||||
{
|
||||
printf("\tillegal REFERENCE-domain-number %d\n", d);
|
||||
return (1);
|
||||
}
|
||||
if ((r = Db_ref)[d] >= 0)
|
||||
{
|
||||
printf("\tduplicate REFERENCE to domain %d\n", d);
|
||||
return (1);
|
||||
}
|
||||
for (r = Db_ref + MAXDOM; r > Db_ref; )
|
||||
if (*(--r) == f)
|
||||
{
|
||||
printf("\tduplicate REFERENCE to field %d\n", f);
|
||||
return (1);
|
||||
}
|
||||
(r = Db_ref)[d] = f;
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
** END_REF end of reference check
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
static int end_ref()
|
||||
{
|
||||
register short *r;
|
||||
|
||||
for (r = Db_ref; r < Db_ref + MAXDOM; r++)
|
||||
if (*r >= 0)
|
||||
return (0);
|
||||
printf("\tmissing REFERENCES\n");
|
||||
return (1);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** SHELL CALL BS SHELL
|
||||
** return (0) = ok
|
||||
** return (1) = error
|
||||
*/
|
||||
static int shell(cmd)
|
||||
register char *cmd;
|
||||
{
|
||||
# ifdef MSDOS
|
||||
register char *p;
|
||||
extern char *getenv();
|
||||
# else
|
||||
register int i;
|
||||
register int pid;
|
||||
# endif
|
||||
int status;
|
||||
|
||||
if (!cmd || !*cmd)
|
||||
return (0);
|
||||
|
||||
printf("REDABAS\tEXECUTING ... %s\n", cmd);
|
||||
fflush(stdout);
|
||||
# ifdef MSDOS
|
||||
if (!(p = getenv("COMSPEC")))
|
||||
{
|
||||
printf("REDABAS\tno COMSPEC\n");
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
if ((status = spawnlp(P_WAIT, p, p, "/C", cmd, (char *) 0)) < 0)
|
||||
{
|
||||
printf("REDABAS\texec error\n");
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
# else
|
||||
if ((pid = fork()) < 0)
|
||||
{
|
||||
printf("REDABAS\tfork error\n");
|
||||
fflush(stdout);
|
||||
return (1);
|
||||
}
|
||||
if (!pid)
|
||||
{
|
||||
setuid(getuid());
|
||||
setgid(getgid());
|
||||
for (i = 3; i < MAXFILES; i++)
|
||||
close(i);
|
||||
execlp("sh", "sh", "-c", cmd, (char *) 0);
|
||||
printf("REDABAS\texec error\n");
|
||||
fflush(stdout);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
/* wait for shell to complete */
|
||||
while ((i = wait(&status)) != -1)
|
||||
if (i == pid)
|
||||
break;
|
||||
# endif
|
||||
return (status >> 8);
|
||||
}
|
||||
Loading…
Reference in New Issue