ING_DB
This commit is contained in:
Oliver Lehmann
parent
826babe59a
commit
40d2a90975
|
|
@ -0,0 +1,345 @@
|
||||||
|
/*
|
||||||
|
** J. Wenzlaff, ZKI der AdW
|
||||||
|
**
|
||||||
|
** REDABAS -- creation of REDABAS / DB relations
|
||||||
|
*/
|
||||||
|
|
||||||
|
# include "db.h"
|
||||||
|
# include "../h/version.h"
|
||||||
|
|
||||||
|
# ifdef P8000
|
||||||
|
ret_buf AAjmp_buf;
|
||||||
|
# else
|
||||||
|
jmp_buf AAjmp_buf;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
static char D = 1; /* don't convert record mark&no */
|
||||||
|
static char List; /* flag to list only */
|
||||||
|
struct admin AAdmin;
|
||||||
|
extern char *Parmvect[];
|
||||||
|
extern char *Flagvect[];
|
||||||
|
# ifdef MSDOS
|
||||||
|
char *Database;
|
||||||
|
char *Fileset;
|
||||||
|
extern char *mkfileset();
|
||||||
|
extern char *AAdbpath[];
|
||||||
|
# else
|
||||||
|
extern char *AAdbpath;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# define DBI_PARM Parmvect[0]
|
||||||
|
# define DBD_PARM Parmvect[1]
|
||||||
|
# define DB_PARM Parmvect[2]
|
||||||
|
# define REL_PARM Parmvect[3]
|
||||||
|
|
||||||
|
main(argc, argv)
|
||||||
|
int argc;
|
||||||
|
char *argv[];
|
||||||
|
{
|
||||||
|
register int i;
|
||||||
|
register char **av;
|
||||||
|
register char *p;
|
||||||
|
extern char *AAproc_name;
|
||||||
|
# ifdef SETBUF
|
||||||
|
char buf[BUFSIZ];
|
||||||
|
|
||||||
|
setbuf(stdout, buf);
|
||||||
|
# endif
|
||||||
|
AAproc_name = *argv;
|
||||||
|
|
||||||
|
# ifdef MSDOS
|
||||||
|
Fileset = mkfileset();
|
||||||
|
# endif
|
||||||
|
|
||||||
|
i = initucode(argc, argv, 0, (char **) 0, M_SHARE);
|
||||||
|
switch (i)
|
||||||
|
{
|
||||||
|
case 0:
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 3:
|
||||||
|
AAsyserr(0, "REDABAS\tSie sind kein eingetragener %s-Nutzer", USERDBS);
|
||||||
|
|
||||||
|
default:
|
||||||
|
AAsyserr(22200, AAproc_name, i);
|
||||||
|
}
|
||||||
|
# ifdef MSDOS
|
||||||
|
Database = Parmvect[0];
|
||||||
|
# endif
|
||||||
|
|
||||||
|
i = 0;
|
||||||
|
for (av = Flagvect; p = *av; av++)
|
||||||
|
{
|
||||||
|
if (p[0] != '-')
|
||||||
|
goto badflag;
|
||||||
|
switch (p[1])
|
||||||
|
{
|
||||||
|
case 'f':
|
||||||
|
case 'F':
|
||||||
|
List_fld++;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'h':
|
||||||
|
case 'H':
|
||||||
|
List_hdr++;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'i':
|
||||||
|
case 'I':
|
||||||
|
D = -1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'l':
|
||||||
|
case 'L':
|
||||||
|
List++;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'r':
|
||||||
|
case 'R':
|
||||||
|
switch (p[2])
|
||||||
|
{
|
||||||
|
case 'd':
|
||||||
|
case 'D':
|
||||||
|
List_rec = 1;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 'v':
|
||||||
|
case 'V':
|
||||||
|
List_rec = 2;
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 0:
|
||||||
|
List_rec = 3;
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
goto badflag;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
|
||||||
|
default:
|
||||||
|
badflag:
|
||||||
|
printf("REDABAS\tUnbekanntes Flag '%s'\n", p);
|
||||||
|
i++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (i)
|
||||||
|
goto usage;
|
||||||
|
|
||||||
|
if (!REL_PARM)
|
||||||
|
{
|
||||||
|
usage:
|
||||||
|
printf("usage:\t%s [flags] dbi dbd db {rel}\n", *argv);
|
||||||
|
printf("flags:\t-f list field descriptions\n");
|
||||||
|
printf("\t-h list header\n");
|
||||||
|
printf("\t-i convert into %s format\n", USERDBS);
|
||||||
|
printf("\t-l don't create DBI-file\n");
|
||||||
|
printf("\t-r list all records\n");
|
||||||
|
printf("\t-rd list deleted records\n");
|
||||||
|
printf("\t-rv list valid records\n");
|
||||||
|
goto term;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* open REDABAS head informations */
|
||||||
|
if (rdhdr(DBD_PARM))
|
||||||
|
{
|
||||||
|
printf("REDABAS\tsyntax error\n");
|
||||||
|
goto term;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* create DBI-file (if wanted) */
|
||||||
|
if (!List && dbi())
|
||||||
|
goto term;
|
||||||
|
|
||||||
|
/* list REDABAS records (if wanted) */
|
||||||
|
if (!List_rec || rdopen(DBD_PARM))
|
||||||
|
goto term;
|
||||||
|
printf("\n----no-*------------------------------------------------\n");
|
||||||
|
for (i = 1; rdrec(); i++)
|
||||||
|
prrec();
|
||||||
|
printf("--------------------------------------------------------\n");
|
||||||
|
|
||||||
|
term:
|
||||||
|
fflush(stdout);
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
** DBI create DBI-file
|
||||||
|
** return (0) = ok
|
||||||
|
** return (1) = error
|
||||||
|
*/
|
||||||
|
static int dbi()
|
||||||
|
{
|
||||||
|
register int i;
|
||||||
|
register FILE *dbi;
|
||||||
|
register struct db_fld *f;
|
||||||
|
register char **rel;
|
||||||
|
extern char *lower();
|
||||||
|
# ifdef SETBUF
|
||||||
|
static char dbi_buf[BUFSIZ];
|
||||||
|
# endif
|
||||||
|
|
||||||
|
if ((dbi = fopen(DBI_PARM, "w")) == (FILE *) 0)
|
||||||
|
{
|
||||||
|
printf("REDABAS\tcan't access DBI-file %s\n", DBI_PARM);
|
||||||
|
return (1);
|
||||||
|
}
|
||||||
|
# ifdef SETBUF
|
||||||
|
setbuf(dbi, dbi_buf);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
fprintf(dbi, "%c command part before conversion\n", CMD_COMMENT);
|
||||||
|
fprintf(dbi, "\n%c REDABAS %c part\n", CMD_COMMENT, CMD_DBD);
|
||||||
|
fprintf(dbi, "%c\t%s\n\n", CMD_DBD, DBD_PARM);
|
||||||
|
for (f = Db_fld, i = Db_hdr.db_fields; i; --i, f++)
|
||||||
|
{
|
||||||
|
fprintf(dbi, "%c\t%3d\t%-12s", CMD_FIELD,
|
||||||
|
f - Db_fld, f->db_f_name);
|
||||||
|
if (f->db_f_len)
|
||||||
|
{
|
||||||
|
fprintf(dbi, "\t%c%-3d",
|
||||||
|
f->db_f_type, ctou(f->db_f_len));
|
||||||
|
if (f->db_f_dec)
|
||||||
|
fprintf(dbi, " %3d", f->db_f_dec);
|
||||||
|
}
|
||||||
|
putc('\n', dbi);
|
||||||
|
}
|
||||||
|
fprintf(dbi, "\n%c %s %s part\n", CMD_COMMENT, USERDBS, VERSION);
|
||||||
|
fprintf(dbi, "%c\t%s\n", CMD_DB, DB_PARM);
|
||||||
|
for (rel = &REL_PARM; *rel; rel++)
|
||||||
|
{
|
||||||
|
fprintf(dbi, "\n%c relation %s part\n", CMD_COMMENT, *rel);
|
||||||
|
fprintf(dbi, "%c\t%s\n\n", CMD_REL, *rel);
|
||||||
|
for (f = Db_fld, i = Db_hdr.db_fields; i; --i, f++)
|
||||||
|
{
|
||||||
|
if (f->db_f_name[0] == FLD_RECNO)
|
||||||
|
{
|
||||||
|
if (D < 0)
|
||||||
|
continue;
|
||||||
|
fprintf(dbi, "%c\t 1\trec_no\t\t%c%d\n",
|
||||||
|
CMD_DOMAIN, typeunconv(INT), sizeof (long));
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (f->db_f_name[0] == FLD_DELMARK)
|
||||||
|
{
|
||||||
|
if (D < 0)
|
||||||
|
continue;
|
||||||
|
fprintf(dbi, "%c\t 2\trec_mark\t%c%d\n",
|
||||||
|
CMD_DOMAIN, typeunconv(CHAR), sizeof (char));
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
fprintf(dbi, "%c\t%3d\t%-12s\t", CMD_DOMAIN,
|
||||||
|
f - Db_fld + D, lower(f->db_f_name));
|
||||||
|
switch (f->db_f_type)
|
||||||
|
{
|
||||||
|
case TYPE_CHAR:
|
||||||
|
fprintf(dbi, "c%-3d", ctou(f->db_f_len));
|
||||||
|
break;
|
||||||
|
|
||||||
|
case TYPE_DATE:
|
||||||
|
fprintf(dbi, "%c8", typeunconv(CHAR));
|
||||||
|
break;
|
||||||
|
|
||||||
|
case TYPE_LOG:
|
||||||
|
fprintf(dbi, "%c%d", typeunconv(CHAR), sizeof (char));
|
||||||
|
break;
|
||||||
|
|
||||||
|
case TYPE_NUM:
|
||||||
|
if (f->db_f_dec || ctou(f->db_f_len) > 10)
|
||||||
|
{
|
||||||
|
fprintf(dbi, "%c%d",
|
||||||
|
typeunconv(FLOAT), sizeof (double));
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (ctou(f->db_f_len) < 4)
|
||||||
|
fprintf(dbi, "%c%d",
|
||||||
|
typeunconv(INT), sizeof (char));
|
||||||
|
else if (ctou(f->db_f_len) < 6)
|
||||||
|
fprintf(dbi, "%c%d",
|
||||||
|
typeunconv(INT), sizeof (short));
|
||||||
|
else
|
||||||
|
fprintf(dbi, "%c%d",
|
||||||
|
typeunconv(INT), sizeof (long));
|
||||||
|
break;
|
||||||
|
|
||||||
|
# if (REDABAS == 3)
|
||||||
|
case TYPE_MEMO:
|
||||||
|
fprintf(dbi, "c10");
|
||||||
|
break;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
default:
|
||||||
|
printf("REDABAS\tunknown type %c on field %d/%s\n",
|
||||||
|
f->db_f_type, f - Db_fld, f->db_f_name);
|
||||||
|
fclose(dbi);
|
||||||
|
return (1);
|
||||||
|
}
|
||||||
|
putc('\n', dbi);
|
||||||
|
}
|
||||||
|
putc('\n', dbi);
|
||||||
|
for (i = 1 - D; i < Db_hdr.db_fields; i++)
|
||||||
|
fprintf(dbi, "%c\t%3d\t%3d\n", CMD_REF, i, i + D);
|
||||||
|
}
|
||||||
|
fprintf(dbi, "\n%c command part after conversion\n", CMD_COMMENT);
|
||||||
|
fclose(dbi);
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
|
||||||
|
static char *lower(db)
|
||||||
|
register char *db;
|
||||||
|
{
|
||||||
|
register char *n;
|
||||||
|
register int chr;
|
||||||
|
static char name[DBNAME + 1];
|
||||||
|
|
||||||
|
for (n = name; chr = *db++; )
|
||||||
|
{
|
||||||
|
if ((chr >= 'A'
|
||||||
|
# ifdef EBCDIC
|
||||||
|
&& chr <= 'I') || (chr >= 'J'
|
||||||
|
&& chr <= 'R') || (chr >= 'S'
|
||||||
|
# endif
|
||||||
|
&& chr <= 'Z'))
|
||||||
|
chr += 'a' - 'A';
|
||||||
|
if (chr == ':')
|
||||||
|
chr = '_';
|
||||||
|
*n++ = chr;
|
||||||
|
}
|
||||||
|
*n = 0;
|
||||||
|
return (name);
|
||||||
|
}
|
||||||
|
|
||||||
|
static int prrec()
|
||||||
|
{
|
||||||
|
register int len;
|
||||||
|
register char *r;
|
||||||
|
register struct db_fld *f;
|
||||||
|
register int i;
|
||||||
|
|
||||||
|
r = Record;
|
||||||
|
if (*r == DB_RECVAL)
|
||||||
|
{
|
||||||
|
if (!(List_rec & 2))
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
else if (!(List_rec & 1))
|
||||||
|
return;
|
||||||
|
printf("|%5ld", Recno);
|
||||||
|
for (f = &Db_fld[1], i = Db_hdr.db_fields - 1; i; --i, f++)
|
||||||
|
{
|
||||||
|
putchar('|');
|
||||||
|
for (len = ctou(f->db_f_len); len; --len, r++)
|
||||||
|
putchar(*r? *r: '*');
|
||||||
|
}
|
||||||
|
putchar('\n');
|
||||||
|
fflush(stdout);
|
||||||
|
}
|
||||||
|
|
||||||
|
rubproc()
|
||||||
|
{
|
||||||
|
fflush(stdout);
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
AApageflush() {}
|
||||||
Loading…
Reference in New Issue