ING_DB
This commit is contained in:
Oliver Lehmann
parent
91e38cb9dd
commit
60146eec23
|
|
@ -0,0 +1,142 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
/* Flag MSDOS is predefined in MSDOS */
|
||||||
|
# ifdef MSDOS
|
||||||
|
# include "../h/gen.h"
|
||||||
|
# else
|
||||||
|
# include "../conf/gen.h"
|
||||||
|
# endif
|
||||||
|
# ifdef MSDOS
|
||||||
|
# include "../h/ingres.h"
|
||||||
|
# include "../h/aux#.h"
|
||||||
|
# else
|
||||||
|
# include "../h/dbs.h"
|
||||||
|
# include "../h/aux.h"
|
||||||
|
# endif
|
||||||
|
# include "../h/access.h"
|
||||||
|
# include "../h/symbol.h"
|
||||||
|
# include "../h/catalog.h"
|
||||||
|
# include "../h/lock.h"
|
||||||
|
|
||||||
|
# define AMX_TRACE
|
||||||
|
# define AM_TRACE
|
||||||
|
|
||||||
|
# ifdef MSDOS
|
||||||
|
# define AAam_addbuf acc_addbuf
|
||||||
|
# define AAam_clearkeys clearkeys
|
||||||
|
# define AAam_delete delete
|
||||||
|
# define AAam_exit acc_close
|
||||||
|
# define AAam_flush_rel flush_rel
|
||||||
|
# define AAam_get get
|
||||||
|
# define AAam_insert insert
|
||||||
|
# define AAam_replace replace
|
||||||
|
# define AAam_setkey setkey
|
||||||
|
# define AAam_start acc_init
|
||||||
|
# define AAbequal bequal
|
||||||
|
# define AAbmove(s,d,l) memcpy(d,s,l)
|
||||||
|
# define AAcc_head Acc_head
|
||||||
|
# define AAccerror Accerror
|
||||||
|
# define AAdatabase Database
|
||||||
|
# define AAdbname Dbname
|
||||||
|
# define AAdbpath Dbpath
|
||||||
|
# define AAdmin Admin
|
||||||
|
# define AAdparam paramd
|
||||||
|
# define AAdumptid dumptid
|
||||||
|
# define AAerrfn errfilen
|
||||||
|
# define AAget_tuple get_tuple
|
||||||
|
# define AAgetequal getequal
|
||||||
|
# define AAgetpage get_page
|
||||||
|
# define AAicompare icompare
|
||||||
|
# define AAndxsearch ndxsearch
|
||||||
|
# define AApageflush pageflush
|
||||||
|
# define AApath Pathname
|
||||||
|
# define AApratt printatt
|
||||||
|
# define AAprkey prkey
|
||||||
|
# define AAprtup printup
|
||||||
|
# define AAput_tuple put_tuple
|
||||||
|
# define AArelclose closer
|
||||||
|
# define AArelopen openr
|
||||||
|
# define AAresetacc resetacc
|
||||||
|
# define AArhash rhash
|
||||||
|
# define AAsetcsl setcsl
|
||||||
|
# define AAsetdbl setdbl
|
||||||
|
# define AAsetpgl setpgl
|
||||||
|
# define AAsetrll setrll
|
||||||
|
# define AAstuff_page stuff_page
|
||||||
|
# define AAtTfp tTfp
|
||||||
|
# define AAunlall unlall
|
||||||
|
# define AAunlcs unlcs
|
||||||
|
# define AAunldb unldb
|
||||||
|
# define AAunlpg unlpg
|
||||||
|
# define AAunlrl unlrl
|
||||||
|
# define AAusercode Usercode
|
||||||
|
# define RELROPEN(fp) ((fp + 1) * 5)
|
||||||
|
# define RELWOPEN(fp) ((fp + 1) * -5)
|
||||||
|
# define attribute domain
|
||||||
|
extern char *AAdatabase;
|
||||||
|
extern char *memcpy();
|
||||||
|
typedef struct accbuf ACCBUF;
|
||||||
|
# else
|
||||||
|
extern char *AAbmove();
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# ifndef bitset
|
||||||
|
# define bitset(b, s) ((b) & (s))
|
||||||
|
# define clrbit(b, s) ((s) &= ~(b))
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# define DB_SHARE 0010
|
||||||
|
|
||||||
|
# define AP_EQ 0001
|
||||||
|
# define AP_LT 0002
|
||||||
|
# define AP_LE 0004
|
||||||
|
# define AP_NE 0010
|
||||||
|
# define AP_GT 0020
|
||||||
|
# define AP_GE 0040
|
||||||
|
# define AP_P1 0100
|
||||||
|
# define AP_P2 0200
|
||||||
|
|
||||||
|
# ifdef EBCDIC
|
||||||
|
# define LAST_CHAR 0377
|
||||||
|
# else
|
||||||
|
# define LAST_CHAR 0177
|
||||||
|
# endif
|
||||||
|
|
||||||
|
# define AA_rel AA_0
|
||||||
|
# define AA_att AA_1
|
||||||
|
# define AA_ind AA_2
|
||||||
|
|
||||||
|
struct descxx
|
||||||
|
{
|
||||||
|
DESC xx_desc;
|
||||||
|
struct descxx *xx_next;
|
||||||
|
struct descxx *xx_index;
|
||||||
|
char *xx_indom;
|
||||||
|
struct descxx *xx_ta;
|
||||||
|
char xx_refresh;
|
||||||
|
char xx_excl;
|
||||||
|
short xx_locks;
|
||||||
|
};
|
||||||
|
typedef struct descxx DESCXX;
|
||||||
|
|
||||||
|
extern struct descxx *AA_DESC;
|
||||||
|
extern struct descxx *AA_TA; /* begin of transaction */
|
||||||
|
extern struct descxx *AA_TE; /* end of transaction */
|
||||||
|
extern int AA_NOLOCKS;
|
||||||
|
extern int AA_LOCKS;
|
||||||
|
extern int AA_PAT;
|
||||||
|
extern DESC *AA_0; /* relation */
|
||||||
|
extern DESC *AA_1; /* attribute */
|
||||||
|
extern DESC *AA_2; /* indexes */
|
||||||
|
extern int AA;
|
||||||
|
extern long AA_LOW;
|
||||||
|
extern long AA_HIGH;
|
||||||
|
extern long AA_TID;
|
||||||
|
extern char *AA_STUP;
|
||||||
|
extern char *AAdbpath;
|
||||||
|
extern int errno;
|
||||||
|
|
||||||
|
/* UPDATE globals */
|
||||||
|
extern struct descxx *AAp_desc; /* global primary description */
|
||||||
|
extern char *AAold_tuple; /* global primary tuple pointer */
|
||||||
|
extern char AA_SET_ALL_KEYS[];
|
||||||
|
extern long AAdaemon;
|
||||||
|
|
@ -0,0 +1,295 @@
|
||||||
|
# include "AA_liba.h"
|
||||||
|
|
||||||
|
/* FIND with AP_FULLKEY on HASH */
|
||||||
|
AAhash(d, lowtid, hightid, key)
|
||||||
|
register DESCXX *d;
|
||||||
|
register struct tup_id *lowtid;
|
||||||
|
register long *hightid;
|
||||||
|
char *key;
|
||||||
|
{
|
||||||
|
long pageid;
|
||||||
|
extern long AArhash();
|
||||||
|
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(23, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"hash\t\t`%.10s' (%d)\n",
|
||||||
|
# else
|
||||||
|
"hash\t\t`%.14s' (%d)\n",
|
||||||
|
# endif
|
||||||
|
d->xx_desc.reldum.relid, AA_PAT);
|
||||||
|
# endif
|
||||||
|
errno = 0;
|
||||||
|
|
||||||
|
if (AA_PAT)
|
||||||
|
{
|
||||||
|
/* found a pattern in key */
|
||||||
|
AAbmove(&AA_LOW, lowtid, sizeof *lowtid);
|
||||||
|
*hightid = AA_HIGH;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
pageid = AArhash(d, key);
|
||||||
|
AAstuff_page(lowtid, &pageid);
|
||||||
|
lowtid->line_id = SCANTID;
|
||||||
|
*hightid = *((long *) lowtid);
|
||||||
|
}
|
||||||
|
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
AAtTfp(23, 10, "##AM_RHASH\n");
|
||||||
|
if (AAtTfp(23, 11, "##\t\toldkey"))
|
||||||
|
AAprkey(d, key);
|
||||||
|
if (AAtTfp(23, 12, "##\t\tlo_"))
|
||||||
|
AAdumptid(lowtid);
|
||||||
|
if (AAtTfp(23, 13, "##\t\thi_"))
|
||||||
|
AAdumptid(hightid);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* FIND with AP_FULLKEY on ISAM */
|
||||||
|
AAisam(d, lowtid, hightid, given, key)
|
||||||
|
register DESCXX *d;
|
||||||
|
register long *lowtid;
|
||||||
|
register long *hightid;
|
||||||
|
register char *given;
|
||||||
|
register char *key;
|
||||||
|
{
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(24, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"isam\t\t`%.10s' (%d)\n",
|
||||||
|
# else
|
||||||
|
"isam\t\t`%.14s' (%d)\n",
|
||||||
|
# endif
|
||||||
|
d->xx_desc.reldum.relid, AA_PAT);
|
||||||
|
# endif
|
||||||
|
errno = 0;
|
||||||
|
|
||||||
|
if (AA_PAT)
|
||||||
|
{
|
||||||
|
/* found a pattern in key */
|
||||||
|
AAlisam(d, lowtid, given, key);
|
||||||
|
AAhisam(d, hightid, given, key);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
AA = AAndxsearch(d, lowtid, key, -1, 1);
|
||||||
|
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
AAtTfp(24, 10, "##AM_=_SEARCH\t%d\n", AA);
|
||||||
|
if (AAtTfp(24, 11, "##\t\toldkey"))
|
||||||
|
AAprkey(d, key);
|
||||||
|
if (AAtTfp(24, 12, "##\t\tnew"))
|
||||||
|
AAdumptid(lowtid);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
if (AA)
|
||||||
|
AAerror(8, d->xx_desc.reldum.relid);
|
||||||
|
*hightid = *lowtid;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* FIND with AP_LOWKEY or AP_RANGEKEY on ISAM */
|
||||||
|
AAlisam(d, tid, given, lowkey, highkey)
|
||||||
|
register DESCXX *d;
|
||||||
|
long *tid;
|
||||||
|
char *given;
|
||||||
|
char *lowkey;
|
||||||
|
char *highkey;
|
||||||
|
{
|
||||||
|
register int i;
|
||||||
|
register char *dom;
|
||||||
|
register int len;
|
||||||
|
register int g;
|
||||||
|
register char *k;
|
||||||
|
register char *t;
|
||||||
|
struct accessparam ap;
|
||||||
|
char tuple[MAXTUP];
|
||||||
|
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(25, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"low isam\t`%.10s' (%d)\n",
|
||||||
|
# else
|
||||||
|
"low isam\t`%.14s' (%d)\n",
|
||||||
|
# endif
|
||||||
|
d->xx_desc.reldum.relid, AA_PAT);
|
||||||
|
# endif
|
||||||
|
errno = 0;
|
||||||
|
|
||||||
|
/* clear out key conditions */
|
||||||
|
for (i = d->xx_desc.reldum.relatts; i; --i)
|
||||||
|
d->xx_desc.relgiven[i] = 0;
|
||||||
|
|
||||||
|
AAdparam(d, &ap);
|
||||||
|
dom = ap.keydno;
|
||||||
|
|
||||||
|
while (i = *dom++)
|
||||||
|
{
|
||||||
|
if (bitset(AP_EQ | AP_GT, g = given[i - 1]))
|
||||||
|
{
|
||||||
|
d->xx_desc.relgiven[i] = AP_GT;
|
||||||
|
len = d->xx_desc.reloff[i];
|
||||||
|
k = len + (bitset(AP_LT, g)? highkey: lowkey);
|
||||||
|
t = len + tuple;
|
||||||
|
len = ctou(d->xx_desc.relfrml[i]);
|
||||||
|
if (bitset(bitset(AP_LT, g)? AP_P2: AP_P1, g))
|
||||||
|
AApatmove(k, t, len, -1);
|
||||||
|
else
|
||||||
|
AAbmove(k, t, len);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
AA = AAndxsearch(d, tid, tuple, -1, 0);
|
||||||
|
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
AAtTfp(25, 10, "##AM_<_SEARCH\t%d\n", AA);
|
||||||
|
if (AAtTfp(25, 11, "##\t\toldkey"))
|
||||||
|
AAprkey(d, tuple);
|
||||||
|
if (AAtTfp(25, 12, "##\t\tlo_"))
|
||||||
|
AAdumptid(tid);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
if (AA)
|
||||||
|
AAerror(9, d->xx_desc.reldum.relid);
|
||||||
|
|
||||||
|
/* restore key conditions */
|
||||||
|
AAbmove(given, &d->xx_desc.relgiven[1], d->xx_desc.reldum.relatts);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* FIND with AP_HIGHKEY or AP_RANGEKEY on ISAM */
|
||||||
|
AAhisam(d, tid, given, key)
|
||||||
|
register DESCXX *d;
|
||||||
|
long *tid;
|
||||||
|
char *given;
|
||||||
|
char *key;
|
||||||
|
{
|
||||||
|
register int i;
|
||||||
|
register char *dom;
|
||||||
|
register int len;
|
||||||
|
register int g;
|
||||||
|
register char *k;
|
||||||
|
register char *t;
|
||||||
|
struct accessparam ap;
|
||||||
|
char tuple[MAXTUP];
|
||||||
|
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(26, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"high isam\t`%.10s' (%d)\n",
|
||||||
|
# else
|
||||||
|
"high isam\t`%.14s' (%d)\n",
|
||||||
|
# endif
|
||||||
|
d->xx_desc.reldum.relid, AA_PAT);
|
||||||
|
# endif
|
||||||
|
errno = 0;
|
||||||
|
|
||||||
|
/* clear out key conditions */
|
||||||
|
for (i = d->xx_desc.reldum.relatts; i; --i)
|
||||||
|
d->xx_desc.relgiven[i] = 0;
|
||||||
|
|
||||||
|
AAdparam(d, &ap);
|
||||||
|
dom = ap.keydno;
|
||||||
|
|
||||||
|
while (i = *dom++)
|
||||||
|
{
|
||||||
|
if (bitset(AP_EQ | AP_LT, g = given[i - 1]))
|
||||||
|
{
|
||||||
|
d->xx_desc.relgiven[i] = AP_LT;
|
||||||
|
len = d->xx_desc.reloff[i];
|
||||||
|
k = len + key;
|
||||||
|
t = len + tuple;
|
||||||
|
len = ctou(d->xx_desc.relfrml[i]);
|
||||||
|
if (bitset(AP_P1, g))
|
||||||
|
AApatmove(k, t, len, 1);
|
||||||
|
else
|
||||||
|
AAbmove(k, t, len);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
AA = AAndxsearch(d, tid, tuple, 1, 0);
|
||||||
|
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
AAtTfp(26, 10, "##AM_>_SEARCH\t%d\n", AA);
|
||||||
|
if (AAtTfp(26, 11, "##\t\toldkey"))
|
||||||
|
AAprkey(d, tuple);
|
||||||
|
if (AAtTfp(26, 13, "##\t\thi_"))
|
||||||
|
AAdumptid(tid);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
if (AA)
|
||||||
|
AAerror(10, d->xx_desc.reldum.relid);
|
||||||
|
|
||||||
|
/* restore key conditions */
|
||||||
|
AAbmove(given, &d->xx_desc.relgiven[1], d->xx_desc.reldum.relatts);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** AApatmove -- copy a symbol to a new buffer area.
|
||||||
|
**
|
||||||
|
** AApatmove checks the symbol for
|
||||||
|
** pattern matching characters.
|
||||||
|
**
|
||||||
|
** Note that PAT_RBRAC need not be checked for
|
||||||
|
** since it is not a pattern matching char unless
|
||||||
|
** PAT_LBRAC appears before it.
|
||||||
|
**
|
||||||
|
** If op is opLTLE then add a pad character
|
||||||
|
** whose value is the largest possible char
|
||||||
|
** value.
|
||||||
|
**
|
||||||
|
** If any ranges of characters are found,
|
||||||
|
** then the lowest/highest char is taken from
|
||||||
|
** range.
|
||||||
|
*/
|
||||||
|
static AApatmove(key, tuple, len, op)
|
||||||
|
register char *key;
|
||||||
|
char *tuple;
|
||||||
|
register int len;
|
||||||
|
int op; /* op: LE = +1 */
|
||||||
|
/* GE = -1 */
|
||||||
|
{
|
||||||
|
register int c;
|
||||||
|
register int newc;
|
||||||
|
register char *tup;
|
||||||
|
|
||||||
|
tup = tuple;
|
||||||
|
tuple += len;
|
||||||
|
|
||||||
|
while (len--)
|
||||||
|
{
|
||||||
|
/* copy chars processing ANY, ONE or LBRAC chars if any */
|
||||||
|
if ((c = *key++) == PAT_ANY || c == PAT_ONE)
|
||||||
|
break;
|
||||||
|
|
||||||
|
if (c == PAT_LBRAC)
|
||||||
|
{
|
||||||
|
/* if string is empty, ignore it */
|
||||||
|
if (!len--)
|
||||||
|
break;
|
||||||
|
|
||||||
|
if ((c = *key++) == PAT_RBRAC)
|
||||||
|
continue; /* empty [] */
|
||||||
|
|
||||||
|
while (len-- && ((newc = *key++) != PAT_RBRAC))
|
||||||
|
{
|
||||||
|
/* ignore '-' */
|
||||||
|
if (newc == '-')
|
||||||
|
continue;
|
||||||
|
|
||||||
|
/* check for char larger/smaller than 'c' */
|
||||||
|
if (op * (newc - c) > 0)
|
||||||
|
c = newc;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
*tup++ = c; /* copy next char */
|
||||||
|
}
|
||||||
|
while (tup < tuple)
|
||||||
|
*tup++ = (op > 0)? LAST_CHAR: 0;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,250 @@
|
||||||
|
# include "AA_liba.h"
|
||||||
|
|
||||||
|
|
||||||
|
int AA_PAT; /* pattern matching flag */
|
||||||
|
|
||||||
|
AAclearkeys(d, rel)
|
||||||
|
register DESCXX *d;
|
||||||
|
register char *rel;
|
||||||
|
{
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(27, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"clear keys\t`%.10s'\n",
|
||||||
|
# else
|
||||||
|
"clear keys\t`%.14s'\n",
|
||||||
|
# endif
|
||||||
|
rel);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
AA_PAT = 0;
|
||||||
|
errno = 0;
|
||||||
|
|
||||||
|
if (!d)
|
||||||
|
AAerror(106, rel);
|
||||||
|
|
||||||
|
AAam_clearkeys(d);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** hunts through a string and converts the pattern matching
|
||||||
|
** characters and replaces with the corresponding cntrl chars
|
||||||
|
**
|
||||||
|
** Searches a string up to a null byte for one of the pattern
|
||||||
|
** matching characters '*', '?', '[', and ']'. It then converts
|
||||||
|
** these characters to their internal control character equivalents.
|
||||||
|
*/
|
||||||
|
AAsetpat(d, key, val, dom, cond)
|
||||||
|
register DESCXX *d;
|
||||||
|
char *key;
|
||||||
|
register char *val;
|
||||||
|
register int dom;
|
||||||
|
int cond;
|
||||||
|
{
|
||||||
|
register char *v;
|
||||||
|
register int pat;
|
||||||
|
register int c;
|
||||||
|
char val_buf[MAXFIELD];
|
||||||
|
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(28, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"set pattern\t`%.10s' dom %d cond 0%o\n",
|
||||||
|
# else
|
||||||
|
"set pattern\t`%.14s' dom %d cond 0%o\n",
|
||||||
|
# endif
|
||||||
|
d->xx_desc.reldum.relid, dom, cond);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
for (pat = 0, v = val_buf; *val; val++)
|
||||||
|
{
|
||||||
|
if (*val == '\\')
|
||||||
|
{
|
||||||
|
*v++ = *++val;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
switch (*val)
|
||||||
|
{
|
||||||
|
case '*':
|
||||||
|
*v++ = PAT_ANY;
|
||||||
|
goto pat_found;
|
||||||
|
|
||||||
|
case '?':
|
||||||
|
*v++ = PAT_ONE;
|
||||||
|
goto pat_found;
|
||||||
|
|
||||||
|
case '[':
|
||||||
|
*v++ = PAT_LBRAC;
|
||||||
|
goto pat_found;
|
||||||
|
|
||||||
|
case ']':
|
||||||
|
*v++ = PAT_RBRAC;
|
||||||
|
pat_found:
|
||||||
|
pat++;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
if (((c = *val & LAST_CHAR) < ' ' && c != '\n' && c != '\t') || c == LAST_CHAR)
|
||||||
|
c = ' '; /* convert to blank */
|
||||||
|
*v++ = c;
|
||||||
|
}
|
||||||
|
*v = 0;
|
||||||
|
|
||||||
|
AAsetkey(d, key, val_buf, dom, cond);
|
||||||
|
|
||||||
|
if (!pat)
|
||||||
|
return;
|
||||||
|
|
||||||
|
if ((pat = d->xx_desc.relxtra[dom]) && (!AA_PAT || AA_PAT > pat))
|
||||||
|
AA_PAT = pat;
|
||||||
|
|
||||||
|
switch (cond)
|
||||||
|
{
|
||||||
|
case AP_NE:
|
||||||
|
if (bitset(AP_GT, cond))
|
||||||
|
goto set_p2;
|
||||||
|
/* fall through */
|
||||||
|
|
||||||
|
case AP_GT:
|
||||||
|
case AP_GT | AP_GE:
|
||||||
|
if (bitset(AP_LT, cond))
|
||||||
|
{
|
||||||
|
set_p2:
|
||||||
|
d->xx_desc.relgiven[dom] |= AP_P2;
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
goto all_set;
|
||||||
|
# else
|
||||||
|
return;
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/* all others */
|
||||||
|
d->xx_desc.relgiven[dom] |= AP_P1;
|
||||||
|
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
all_set:
|
||||||
|
AAtTfp(28, 10, "##AM_SETPAT\tnewcond 0%o\n", d->xx_desc.relgiven[dom]);
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
** Searches a string up to a null byte for one of the pattern
|
||||||
|
** matching characters PAT_ANY, PAT_ONE, PAT_LBRAC, and PAT_RBRAC.
|
||||||
|
*/
|
||||||
|
AAsetind(d, key, val, dom, cond)
|
||||||
|
register DESCXX *d;
|
||||||
|
char *key;
|
||||||
|
char *val;
|
||||||
|
register int dom;
|
||||||
|
int cond;
|
||||||
|
{
|
||||||
|
register char *v;
|
||||||
|
register int len;
|
||||||
|
register int c;
|
||||||
|
register int pat;
|
||||||
|
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(36, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"set index key\t`%.10s' dom %d cond 0%o\n",
|
||||||
|
# else
|
||||||
|
"set index key\t`%.14s' dom %d cond 0%o\n",
|
||||||
|
# endif
|
||||||
|
d->xx_desc.reldum.relid, dom, cond);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
pat = 0;
|
||||||
|
if (d->xx_desc.relfrmt[dom] == CHAR)
|
||||||
|
{
|
||||||
|
len = ctou(d->xx_desc.relfrml[dom]);
|
||||||
|
for (v = val; len; --len)
|
||||||
|
if ((c = *v++) == PAT_ANY || c == PAT_ONE || c == PAT_LBRAC || c == PAT_RBRAC)
|
||||||
|
pat++;
|
||||||
|
}
|
||||||
|
|
||||||
|
AAsetkey(d, key, val, dom, cond);
|
||||||
|
|
||||||
|
if (!pat)
|
||||||
|
return;
|
||||||
|
|
||||||
|
if ((pat = d->xx_desc.relxtra[dom]) && (!AA_PAT || AA_PAT > pat))
|
||||||
|
AA_PAT = pat;
|
||||||
|
|
||||||
|
switch (cond)
|
||||||
|
{
|
||||||
|
case AP_NE:
|
||||||
|
if (bitset(AP_GT, cond))
|
||||||
|
goto set_p2;
|
||||||
|
/* fall through */
|
||||||
|
|
||||||
|
case AP_GT:
|
||||||
|
case AP_GT | AP_GE:
|
||||||
|
if (bitset(AP_LT, cond))
|
||||||
|
{
|
||||||
|
set_p2:
|
||||||
|
d->xx_desc.relgiven[dom] |= AP_P2;
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
goto all_set;
|
||||||
|
# else
|
||||||
|
return;
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/* all others */
|
||||||
|
d->xx_desc.relgiven[dom] |= AP_P1;
|
||||||
|
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
all_set:
|
||||||
|
AAtTfp(36, 10, "##AM_SETIND\tnewcond 0%o\n", d->xx_desc.relgiven[dom]);
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
AAsetkey(d, key, val, dom, cond)
|
||||||
|
register DESCXX *d;
|
||||||
|
char *key;
|
||||||
|
char *val;
|
||||||
|
register int dom;
|
||||||
|
int cond;
|
||||||
|
{
|
||||||
|
if (dom <= 0 || dom > d->xx_desc.reldum.relatts)
|
||||||
|
{
|
||||||
|
AA = dom;
|
||||||
|
AAerror(13, d->xx_desc.reldum.relid);
|
||||||
|
}
|
||||||
|
|
||||||
|
# ifdef AMX_TRACE
|
||||||
|
AAtTfp(21, 0,
|
||||||
|
# ifdef MSDOS
|
||||||
|
"set key val\t`%.10s' dom %d cond 0%o\n",
|
||||||
|
# else
|
||||||
|
"set key val\t`%.14s' dom %d cond 0%o\n",
|
||||||
|
# endif
|
||||||
|
d->xx_desc.reldum.relid, dom, cond);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
switch (cond)
|
||||||
|
{
|
||||||
|
case AP_EQ:
|
||||||
|
case AP_LT:
|
||||||
|
case AP_LT | AP_LE:
|
||||||
|
case AP_GT:
|
||||||
|
case AP_GT | AP_GE:
|
||||||
|
case AP_NE:
|
||||||
|
cond |= d->xx_desc.relgiven[dom];
|
||||||
|
AAam_setkey(d, key, val, dom);
|
||||||
|
d->xx_desc.relgiven[dom] = cond;
|
||||||
|
|
||||||
|
# ifdef AM_TRACE
|
||||||
|
AAtTfp(21, 10, "##AM_SETKEY\tnewcond 0%o\n", cond);
|
||||||
|
if (AAtTfp(21, 11, "##\t\tnewkey"))
|
||||||
|
AAprkey(d, key);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
AA = cond;
|
||||||
|
AAerror(14, d->xx_desc.reldum.relid);
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,112 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
# include "gen.h"
|
||||||
|
# include "../h/version.h"
|
||||||
|
|
||||||
|
char IIversion[] = VERSION;
|
||||||
|
|
||||||
|
# define AAbmove IIbmove
|
||||||
|
# define AAztack IIconcatv
|
||||||
|
# define AA_iocv IIitos
|
||||||
|
# define AApath IIPathname
|
||||||
|
# define AAerrfn IIerrfilen
|
||||||
|
# define AA_ERRFN II_ERRFN
|
||||||
|
# define AAversion IIversion
|
||||||
|
|
||||||
|
# include "../gutil/errfilen.c"
|
||||||
|
# include "../h/pipes.h"
|
||||||
|
# include "IIglobals.h"
|
||||||
|
|
||||||
|
# ifdef EBCDIC
|
||||||
|
# define LAST_CHAR 0377
|
||||||
|
# else
|
||||||
|
# define LAST_CHAR 0177
|
||||||
|
# endif
|
||||||
|
|
||||||
|
/*
|
||||||
|
** IIP_ERR
|
||||||
|
**
|
||||||
|
** This routine processes an IIerror call for printout.This involves doing
|
||||||
|
** a lookup in the .../sys/etc/error? files, where ? is the thous-
|
||||||
|
** ands digit of the error number. The associated error message
|
||||||
|
** then goes through parameter substitution and is printed.
|
||||||
|
**
|
||||||
|
** In the current version, the error message is just printed.
|
||||||
|
*/
|
||||||
|
char *IIp_err(err_num, argc, argv)
|
||||||
|
int err_num;
|
||||||
|
int argc;
|
||||||
|
char **argv;
|
||||||
|
{
|
||||||
|
register char *p;
|
||||||
|
register int c;
|
||||||
|
register FILE *iop;
|
||||||
|
short i;
|
||||||
|
char buf[100];
|
||||||
|
extern char *IIerrfilen();
|
||||||
|
|
||||||
|
/* open the appropriate error file */
|
||||||
|
p = IIerrfilen(err_num / 1000);
|
||||||
|
|
||||||
|
# ifdef xETR2
|
||||||
|
if (IIdebug > 1)
|
||||||
|
printf("P_ERR: file \"%s\"\n", p);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
if (!(iop = fopen(p, "r")))
|
||||||
|
return ((char *) 0);
|
||||||
|
|
||||||
|
/* read in the code and check for correct */
|
||||||
|
for ( ; ; )
|
||||||
|
{
|
||||||
|
p = buf;
|
||||||
|
while ((c = getc(iop)) != '\t')
|
||||||
|
{
|
||||||
|
if (c <= 0)
|
||||||
|
{
|
||||||
|
fclose(iop);
|
||||||
|
return ((char *) 0);
|
||||||
|
}
|
||||||
|
*p++ = c;
|
||||||
|
}
|
||||||
|
*p = 0;
|
||||||
|
if (IIatoi(buf, &i))
|
||||||
|
goto error;
|
||||||
|
if (i != err_num)
|
||||||
|
{
|
||||||
|
while ((c = getc(iop)) != ERRDELIM)
|
||||||
|
if (c <= 0)
|
||||||
|
{
|
||||||
|
error:
|
||||||
|
IIsyserr("P_ERR: Formatfehler im file %d", err_num);
|
||||||
|
}
|
||||||
|
getc(iop); /* throw out the newline */
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* got the correct line, print it doing parameter substitution */
|
||||||
|
printf("%d: ", err_num);
|
||||||
|
for ( ; ; )
|
||||||
|
{
|
||||||
|
c = getc(iop);
|
||||||
|
if (c <= 0 || c == ERRDELIM)
|
||||||
|
{
|
||||||
|
putchar('\n');
|
||||||
|
fclose(iop);
|
||||||
|
return ((char *) 1);
|
||||||
|
}
|
||||||
|
if (c == '%')
|
||||||
|
{
|
||||||
|
c = getc(iop);
|
||||||
|
for (p = argv[c - '0']; c = *p; p++)
|
||||||
|
{
|
||||||
|
if (c < ' ' || c >= LAST_CHAR)
|
||||||
|
printf("\\0%o", c);
|
||||||
|
else
|
||||||
|
putchar(c);
|
||||||
|
}
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
putchar(c);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue