ING_DB
This commit is contained in:
Oliver Lehmann
parent
48a90f1501
commit
ab5f16e2a3
|
|
@ -0,0 +1,336 @@
|
||||||
|
# include <stdio.h>
|
||||||
|
# include "gen.h"
|
||||||
|
# include "../h/dbs.h"
|
||||||
|
# include "../h/aux.h"
|
||||||
|
# include "monitor.h"
|
||||||
|
|
||||||
|
int Autoclear; /* clear query buffer automatically if set */
|
||||||
|
int Notnull; /* set if the query is not null */
|
||||||
|
int Peekch; /* lookahead character for getch */
|
||||||
|
int Escape = ESCAPE;
|
||||||
|
|
||||||
|
/*
|
||||||
|
** COMMAND TABLE
|
||||||
|
** To add synonyms for commands, add entries to this table
|
||||||
|
*/
|
||||||
|
struct cntrlwd
|
||||||
|
{
|
||||||
|
char *name;
|
||||||
|
int code;
|
||||||
|
};
|
||||||
|
|
||||||
|
static struct cntrlwd Controlwords[] =
|
||||||
|
{
|
||||||
|
# ifdef ESER
|
||||||
|
"A", C_APPEND,
|
||||||
|
"B", C_BRANCH,
|
||||||
|
"D", C_TIME,
|
||||||
|
"E", C_EDIT,
|
||||||
|
"G", C_GO,
|
||||||
|
"H", C_S_HELP,
|
||||||
|
"H", C_L_HELP,
|
||||||
|
"I", C_INCLUDE,
|
||||||
|
"K", C_MARK,
|
||||||
|
"L", C_LIST,
|
||||||
|
"M", C_MONITOR,
|
||||||
|
"P", C_PRINT,
|
||||||
|
"Q", C_QUIT,
|
||||||
|
"R", C_RESET,
|
||||||
|
"S", C_SHELL,
|
||||||
|
"V", C_EVAL,
|
||||||
|
"W", C_WRITE,
|
||||||
|
# endif
|
||||||
|
"a", C_APPEND,
|
||||||
|
"b", C_BRANCH,
|
||||||
|
"d", C_TIME,
|
||||||
|
"e", C_EDIT,
|
||||||
|
"g", C_GO,
|
||||||
|
"h", C_S_HELP,
|
||||||
|
"H", C_L_HELP,
|
||||||
|
"i", C_INCLUDE,
|
||||||
|
"k", C_MARK,
|
||||||
|
"l", C_LIST,
|
||||||
|
"m", C_MONITOR,
|
||||||
|
"p", C_PRINT,
|
||||||
|
"q", C_QUIT,
|
||||||
|
"r", C_RESET,
|
||||||
|
"s", C_SHELL,
|
||||||
|
"v", C_EVAL,
|
||||||
|
"w", C_WRITE,
|
||||||
|
# ifdef ESER
|
||||||
|
"APPEND", C_APPEND,
|
||||||
|
"BRANCH", C_BRANCH,
|
||||||
|
"CD", C_CHDIR,
|
||||||
|
"CHDIR", C_CHDIR,
|
||||||
|
"DATE", C_TIME,
|
||||||
|
"ED", C_EDIT,
|
||||||
|
"EDIT", C_EDIT,
|
||||||
|
"EDITOR", C_EDIT,
|
||||||
|
"EVAL", C_EVAL,
|
||||||
|
"GO", C_GO,
|
||||||
|
"HELP", C_S_HELP,
|
||||||
|
"HELP", C_L_HELP,
|
||||||
|
"INCLUDE", C_INCLUDE,
|
||||||
|
"LIST", C_LIST,
|
||||||
|
"MARK", C_MARK,
|
||||||
|
"MONITOR", C_MONITOR,
|
||||||
|
"PRINT", C_PRINT,
|
||||||
|
"QUIT", C_QUIT,
|
||||||
|
"READ", C_INCLUDE,
|
||||||
|
"RESET", C_RESET,
|
||||||
|
"SH", C_SHELL,
|
||||||
|
"SHELL", C_SHELL,
|
||||||
|
"TIME", C_TIME,
|
||||||
|
"WRITE", C_WRITE,
|
||||||
|
# endif
|
||||||
|
"append", C_APPEND,
|
||||||
|
"branch", C_BRANCH,
|
||||||
|
"cd", C_CHDIR,
|
||||||
|
"chdir", C_CHDIR,
|
||||||
|
"date", C_TIME,
|
||||||
|
"ed", C_EDIT,
|
||||||
|
"edit", C_EDIT,
|
||||||
|
"editor", C_EDIT,
|
||||||
|
"eval", C_EVAL,
|
||||||
|
"go", C_GO,
|
||||||
|
"help", C_S_HELP,
|
||||||
|
"HELP", C_L_HELP,
|
||||||
|
"include", C_INCLUDE,
|
||||||
|
"list", C_LIST,
|
||||||
|
"mark", C_MARK,
|
||||||
|
"monitor", C_MONITOR,
|
||||||
|
"print", C_PRINT,
|
||||||
|
"quit", C_QUIT,
|
||||||
|
"read", C_INCLUDE,
|
||||||
|
"reset", C_RESET,
|
||||||
|
"sh", C_SHELL,
|
||||||
|
"shell", C_SHELL,
|
||||||
|
"time", C_TIME,
|
||||||
|
"write", C_WRITE,
|
||||||
|
(char *) 0
|
||||||
|
};
|
||||||
|
|
||||||
|
/*
|
||||||
|
** MONITOR
|
||||||
|
**
|
||||||
|
** This routine maintains the logical query buffer in
|
||||||
|
** QRYBUFxxxx. It in general just does a copy from input
|
||||||
|
** to query buffer, unless it gets a backslash escape character.
|
||||||
|
** It recognizes the following escapes:
|
||||||
|
**
|
||||||
|
** \a -- force append mode (no autoclear)
|
||||||
|
** \b -- branch (within an include file only)
|
||||||
|
** \cd-- change working directory
|
||||||
|
** \d -- print current time
|
||||||
|
** \e -- enter editor
|
||||||
|
** \g -- "GO": submit query to DBS
|
||||||
|
** \h -- short help
|
||||||
|
** \H -- long help
|
||||||
|
** \i -- include (switch input to external file)
|
||||||
|
** \k -- mark (for \b)
|
||||||
|
** \l -- list: print query buffer after macro evaluation
|
||||||
|
** \m -- set monitor command character
|
||||||
|
** \p -- print query buffer (before macro evaluation)
|
||||||
|
** \q -- quit DBS
|
||||||
|
** \r -- force reset (clear) of query buffer
|
||||||
|
** \s -- call shell
|
||||||
|
** \v -- evaluate macros, but throw away result (for side effects)
|
||||||
|
** \w -- write query buffer to external file
|
||||||
|
** \\ -- produce a single backslash in query buffer
|
||||||
|
*/
|
||||||
|
command()
|
||||||
|
{
|
||||||
|
register int chr;
|
||||||
|
register int controlno;
|
||||||
|
register char *p;
|
||||||
|
long timevec;
|
||||||
|
extern char *getfilename();
|
||||||
|
extern long time();
|
||||||
|
extern char *ctime();
|
||||||
|
|
||||||
|
while (chr = getch())
|
||||||
|
{
|
||||||
|
if (chr == Escape)
|
||||||
|
{
|
||||||
|
/* process control sequence */
|
||||||
|
if (!(controlno = getescape(TRUE)))
|
||||||
|
continue;
|
||||||
|
|
||||||
|
switch (controlno)
|
||||||
|
{
|
||||||
|
case C_S_HELP:
|
||||||
|
case C_L_HELP:
|
||||||
|
shorthelp(controlno == C_S_HELP);
|
||||||
|
cgprompt();
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_EDIT:
|
||||||
|
edit();
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_LIST:
|
||||||
|
# ifdef MACRO
|
||||||
|
eval(TRUE);
|
||||||
|
continue;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
case C_EVAL:
|
||||||
|
# ifdef MACRO
|
||||||
|
eval(FALSE);
|
||||||
|
Autoclear = TRUE;
|
||||||
|
continue;
|
||||||
|
# endif
|
||||||
|
|
||||||
|
case C_PRINT:
|
||||||
|
print(TRUE);
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_INCLUDE:
|
||||||
|
include((char *) 0);
|
||||||
|
cgprompt();
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_WRITE:
|
||||||
|
writeout();
|
||||||
|
cgprompt();
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_CHDIR:
|
||||||
|
newdirec();
|
||||||
|
cgprompt();
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_RESET:
|
||||||
|
clear(TRUE);
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_GO:
|
||||||
|
go();
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_QUIT:
|
||||||
|
clrline(TRUE);
|
||||||
|
quit();
|
||||||
|
|
||||||
|
case C_SHELL:
|
||||||
|
shell();
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_TIME:
|
||||||
|
time(&timevec);
|
||||||
|
# ifdef ESER_VMX
|
||||||
|
printf("%s", ctime(timevec));
|
||||||
|
# else
|
||||||
|
printf("%s", ctime(&timevec));
|
||||||
|
# endif
|
||||||
|
clrline(FALSE);
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_APPEND:
|
||||||
|
Autoclear = 0;
|
||||||
|
clrline(FALSE);
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_MARK:
|
||||||
|
getfilename();
|
||||||
|
prompt((char *) 0);
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_MONITOR:
|
||||||
|
p = getfilename();
|
||||||
|
Escape = *p? *p: ESCAPE;
|
||||||
|
prompt((char *) 0);
|
||||||
|
continue;
|
||||||
|
|
||||||
|
case C_BRANCH:
|
||||||
|
branch();
|
||||||
|
prompt((char *) 0);
|
||||||
|
continue;
|
||||||
|
|
||||||
|
default:
|
||||||
|
AAsyserr(16020, controlno);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
putch(chr);
|
||||||
|
}
|
||||||
|
if (Input == stdin)
|
||||||
|
{
|
||||||
|
if (Nodayfile >= 0)
|
||||||
|
putchar('\n');
|
||||||
|
}
|
||||||
|
else
|
||||||
|
fclose(Input);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
getescape(copy)
|
||||||
|
register int copy;
|
||||||
|
{
|
||||||
|
register struct cntrlwd *cw;
|
||||||
|
register char *word;
|
||||||
|
extern char *getname();
|
||||||
|
|
||||||
|
word = getname();
|
||||||
|
for (cw = Controlwords; cw->name; cw++)
|
||||||
|
if (AAsequal(cw->name, word))
|
||||||
|
return (cw->code);
|
||||||
|
|
||||||
|
/* not found -- pass symbol through and return failure */
|
||||||
|
if (!copy)
|
||||||
|
return (0);
|
||||||
|
putch(Escape);
|
||||||
|
while (*word)
|
||||||
|
{
|
||||||
|
putch(*word);
|
||||||
|
word++;
|
||||||
|
}
|
||||||
|
return (0);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
char *getname()
|
||||||
|
{
|
||||||
|
static char buf[FILENAME + 1];
|
||||||
|
register char *p;
|
||||||
|
register int len;
|
||||||
|
register int c;
|
||||||
|
|
||||||
|
for (p = buf, len = 0; len < FILENAME; len++)
|
||||||
|
if (((c = getch()) >= 'a'
|
||||||
|
# ifdef EBCDIC
|
||||||
|
&& c <= 'i') || (c >= 'j'
|
||||||
|
&& c <= 'r') || (c >= 's'
|
||||||
|
# endif
|
||||||
|
&& c <= 'z') || (c >= 'A'
|
||||||
|
# ifdef EBCDIC
|
||||||
|
&& c <= 'I') || (c >= 'J'
|
||||||
|
&& c <= 'R') || (c >= 'S'
|
||||||
|
# endif
|
||||||
|
&& c <= 'Z'))
|
||||||
|
*p++ = c;
|
||||||
|
else
|
||||||
|
{
|
||||||
|
Peekch = c;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
|
*p = 0;
|
||||||
|
return (buf);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
putch(c)
|
||||||
|
register int c;
|
||||||
|
{
|
||||||
|
Prompt = Newline = (c == '\n');
|
||||||
|
if (c < ' ' && c != '\n' && c != '\t')
|
||||||
|
{
|
||||||
|
printf("%sZeichen '0%o' konvertiert in Blank\n", ERROR, c);
|
||||||
|
c = ' ';
|
||||||
|
}
|
||||||
|
prompt((char *) 0);
|
||||||
|
if (Autoclear)
|
||||||
|
clear(FALSE);
|
||||||
|
putc(c, Qryiop);
|
||||||
|
Notnull++;
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,994 @@
|
||||||
|
/*
|
||||||
|
** This file contains the specification of QL recognized by the parser.
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* COMMANDS */
|
||||||
|
%term APPEND COPY CREATE DELETE DESTROY HELP INDEX MODIFY
|
||||||
|
%term PRINT RANGE REPLACE RETRIEVE SAVE
|
||||||
|
%term DEFINE PERMIT VIEW INTEGRITY
|
||||||
|
/*DDD*/%term DISTRIBUTE
|
||||||
|
|
||||||
|
/* 'NOISE' WORDS */
|
||||||
|
%term ALL BY FROM IN INTO UNIQUE AT
|
||||||
|
%term IS OF ON TO UNTIL WHERE
|
||||||
|
/*DDD*/%term DISTRD
|
||||||
|
|
||||||
|
/* CONSTANTS */
|
||||||
|
%term NAME SCONST I2CONST I4CONST F4CONST F8CONST
|
||||||
|
|
||||||
|
/* PUNCTUATION */
|
||||||
|
%term COMMA LPAREN PERIOD RPAREN COLON BGNCMNT ENDCMNT
|
||||||
|
|
||||||
|
/* UNARY ARITHMETIC OPERATORS */
|
||||||
|
%term UAOP
|
||||||
|
|
||||||
|
/* BINARY ARITHMETIC OPERATORS */
|
||||||
|
%term BAOP BAOPH
|
||||||
|
|
||||||
|
/* BOUNDS OPERATORS */
|
||||||
|
%term BDOP
|
||||||
|
|
||||||
|
/* EQUALITY OPERATORS */
|
||||||
|
%term EOP
|
||||||
|
|
||||||
|
/* LOGICAL OPERATORS */
|
||||||
|
%term LBOP LUOP
|
||||||
|
|
||||||
|
/* FUNCTIONAL OPERATORS */
|
||||||
|
%term FOP FBOP
|
||||||
|
|
||||||
|
/* AGGREGATE OPERATORS */
|
||||||
|
%term AGOP
|
||||||
|
|
||||||
|
|
||||||
|
/* DEFINE ASCENDING PRECEDENCE FOR OPERATORS */
|
||||||
|
%left LBOP
|
||||||
|
%left LUOP
|
||||||
|
%left UAOP
|
||||||
|
%left BAOP
|
||||||
|
%left BAOPH
|
||||||
|
%binary unaryop
|
||||||
|
|
||||||
|
%{
|
||||||
|
/* SCANNER/PARSER GLOBALS & TABLES */
|
||||||
|
# include "gen.h"
|
||||||
|
# include "../h/dbs.h"
|
||||||
|
# include "../h/aux.h"
|
||||||
|
# include "../h/tree.h"
|
||||||
|
# include "../h/symbol.h"
|
||||||
|
# include "parser.h"
|
||||||
|
|
||||||
|
struct rngtab *Resrng; /* ptr to result reln entry */
|
||||||
|
QTREE *Lastree; /* pointer to root node of tree */
|
||||||
|
DESC Reldesc; /* descriptor for range table lookup */
|
||||||
|
short Rsdmno; /* result domain number */
|
||||||
|
int Opflag; /* operator flag contains query mode */
|
||||||
|
char *Indexname; /* ptr to name of index */
|
||||||
|
char *Trname; /* pointer to attribute name */
|
||||||
|
int Agflag; /* how many aggs in this qry */
|
||||||
|
int Patflag; /* signals a pattern match reduction */
|
||||||
|
int Qlflag; /* set when processing a qual */
|
||||||
|
int yyline; /* line counter */
|
||||||
|
short Permcomd;
|
||||||
|
|
||||||
|
static QTREE *Tidnode; /* pointer to tid node of targ list
|
||||||
|
for REPLACE, DELETE */
|
||||||
|
%}
|
||||||
|
%%
|
||||||
|
%{
|
||||||
|
register int i;
|
||||||
|
register struct atstash *aptr;
|
||||||
|
register char *p;
|
||||||
|
char permbuf[3];
|
||||||
|
extern char *AA_iocv();
|
||||||
|
extern char *AAztack();
|
||||||
|
extern QTREE *tree();
|
||||||
|
extern char *tlprepend();
|
||||||
|
extern char *addresdom();
|
||||||
|
extern char *xdot();
|
||||||
|
extern char *norml();
|
||||||
|
extern struct atstash *attlookup();
|
||||||
|
extern struct rngtab *rngent();
|
||||||
|
extern struct rngtab *rnglook();
|
||||||
|
/* space for two names, their null bytes and the seperator */
|
||||||
|
char modbuf[(2 * (MAXNAME + 1)) + 1];
|
||||||
|
static char hqmbuf[2];
|
||||||
|
%}
|
||||||
|
program: xprogram
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
xprogram: xprogram stmnt =
|
||||||
|
{
|
||||||
|
endqlst(Opflag);
|
||||||
|
}
|
||||||
|
| stmnt =
|
||||||
|
{
|
||||||
|
endqlst(Opflag);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
stmnt: append
|
||||||
|
| copy
|
||||||
|
| create
|
||||||
|
| delete
|
||||||
|
| destroy
|
||||||
|
/*DDD*/ | distribute
|
||||||
|
| help
|
||||||
|
| index
|
||||||
|
| integrity
|
||||||
|
| modify
|
||||||
|
| permit
|
||||||
|
| print
|
||||||
|
| range
|
||||||
|
| replace
|
||||||
|
| retrieve
|
||||||
|
| save
|
||||||
|
| view
|
||||||
|
;
|
||||||
|
range: rngvar
|
||||||
|
| rngprint =
|
||||||
|
{
|
||||||
|
rngprint();
|
||||||
|
}
|
||||||
|
;
|
||||||
|
rngprint: rngstmnt
|
||||||
|
;
|
||||||
|
rngvar: rngstmnt rngof NAME IS NAME =
|
||||||
|
{
|
||||||
|
if ((i = AArelopen(&Reldesc, -1, $5)) < 0)
|
||||||
|
AAsyserr(18012, i);
|
||||||
|
if (i > 0)
|
||||||
|
/* invalid relation name */
|
||||||
|
yyerror(RNGEXIST, $5, (char *) 0);
|
||||||
|
rngent(R_EXTERNAL, $3, $5, Reldesc.reldum.relowner,
|
||||||
|
Reldesc.reldum.relatts, Reldesc.reldum.relstat);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
rngstmnt: RANGE =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdRANGE;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
rngof: OF
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
append: apstmnt apto relation tlclause qualclause =
|
||||||
|
{
|
||||||
|
/* make root node */
|
||||||
|
Lastree = tree($4, $5, ROOT, 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
apstmnt: APPEND =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdAPP;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
apto: TO
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
delete: delstmnt relation qualclause =
|
||||||
|
{
|
||||||
|
/* make root node for delete, with a TIDNODE at leftmost */
|
||||||
|
Lastree = tree(tree((QTREE *) 0, Tidnode, RESDOM, RES_SIZ, (char *) 0), $3, ROOT, 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
delstmnt: DELETE =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdDEL;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
replace: repstmnt relation tlclause qualclause =
|
||||||
|
{
|
||||||
|
/* make root node for replace */
|
||||||
|
Lastree = tree($3, $4, ROOT, 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
repstmnt: REPLACE =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdREPL;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
retrieve: retstmnt retclause tlclause qualclause =
|
||||||
|
{
|
||||||
|
/* make root node for retrieve */
|
||||||
|
Lastree = tree($3, $4, ROOT, 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
retstmnt: RETRIEVE =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdRETR;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
retclause: retkwd relation =
|
||||||
|
{
|
||||||
|
/* set up pipe block and save relname for create */
|
||||||
|
Rsdmno = 0;
|
||||||
|
setp("0"); /* relstat = nil */
|
||||||
|
setp(Resrng->relnm);
|
||||||
|
}
|
||||||
|
| /* empty */ =
|
||||||
|
{
|
||||||
|
/* no result relation, output to terminal */
|
||||||
|
Rsdmno = 0;
|
||||||
|
Resrng = 0;
|
||||||
|
}
|
||||||
|
| UNIQUE =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdRET_UNI;
|
||||||
|
Rsdmno = 0;
|
||||||
|
Resrng = 0;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
retkwd: INTO
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
view: viewclause tlclause qualclause =
|
||||||
|
{
|
||||||
|
Lastree = tree($2, $3, ROOT, 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
viewclause: viewstmnt relation =
|
||||||
|
{
|
||||||
|
Rsdmno = 0;
|
||||||
|
setp("0040"); /* relstat = S_VIEW */
|
||||||
|
setp(Resrng->relnm);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
viewstmnt: DEFINE VIEW =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdVIEW;
|
||||||
|
if (!Qrymod)
|
||||||
|
/* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permit: permstmnt permlist permrel permtarg permwho permplace permtd qualclause =
|
||||||
|
{
|
||||||
|
Lastree = tree($4, $8, ROOT, 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permstmnt: DEFINE PERMIT =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdPROT;
|
||||||
|
if (!Qrymod)
|
||||||
|
/* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permlist: permxlist
|
||||||
|
| permlist COMMA permxlist
|
||||||
|
;
|
||||||
|
permxlist: ALL =
|
||||||
|
{
|
||||||
|
permcom(-1); /* means 'all' commands */
|
||||||
|
}
|
||||||
|
| RETRIEVE =
|
||||||
|
{
|
||||||
|
permcom((int) mdRETR);
|
||||||
|
}
|
||||||
|
| DELETE =
|
||||||
|
{
|
||||||
|
permcom((int) mdDEL);
|
||||||
|
}
|
||||||
|
| APPEND =
|
||||||
|
{
|
||||||
|
permcom((int) mdAPP);
|
||||||
|
}
|
||||||
|
| REPLACE =
|
||||||
|
{
|
||||||
|
permcom((int) mdREPL);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permrel: permword relation =
|
||||||
|
{
|
||||||
|
/* put command vector into list now since this always happens */
|
||||||
|
setp(AA_iocv(Permcomd));
|
||||||
|
Permcomd = 0; /* reset command map */
|
||||||
|
setp(Resrng->relnm);
|
||||||
|
AAbmove(Resrng->relnowner, permbuf, 2);
|
||||||
|
permbuf[2] = 0;
|
||||||
|
setp(permbuf);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permword: ON
|
||||||
|
| OF
|
||||||
|
| TO
|
||||||
|
;
|
||||||
|
permtarg: LPAREN permtlist RPAREN =
|
||||||
|
{
|
||||||
|
$$ = $2;
|
||||||
|
}
|
||||||
|
| /* empty */ =
|
||||||
|
{
|
||||||
|
$$ = (char *) 0;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permtlist: permtlelm
|
||||||
|
| permtlist COMMA permtlelm =
|
||||||
|
{
|
||||||
|
/* attach bulk of permit tl to leftmost node of new elem */
|
||||||
|
$$ = tlprepend($1, $3);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permtlelm: NAME =
|
||||||
|
{
|
||||||
|
/* Resrng is set by the AA_REL production */
|
||||||
|
Trname = $1;
|
||||||
|
aptr = attlookup(Resrng, Trname);
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, VAR, VAR_SIZ, CAST(Resrng->rentno), aptr);
|
||||||
|
$$ = (char *) addresdom((QTREE *) 0, $$);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permwho: TO NAME =
|
||||||
|
{
|
||||||
|
setp($2);
|
||||||
|
}
|
||||||
|
| TO ALL =
|
||||||
|
{
|
||||||
|
setp("all");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permplace: AT NAME =
|
||||||
|
{
|
||||||
|
setp($2);
|
||||||
|
}
|
||||||
|
| AT ALL =
|
||||||
|
{
|
||||||
|
setp("all");
|
||||||
|
}
|
||||||
|
| /* empty */ =
|
||||||
|
{
|
||||||
|
setp("all"); /* default is all */
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permtd: permtime permday
|
||||||
|
| permdeftime permday
|
||||||
|
| permtime permdefday
|
||||||
|
| permdeftime permdefday
|
||||||
|
;
|
||||||
|
permdeftime: /* empty */ =
|
||||||
|
{
|
||||||
|
setp("0");
|
||||||
|
setp("1440");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permdefday: /* empty */ =
|
||||||
|
{
|
||||||
|
setp("sun");
|
||||||
|
setp("sat");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permtime: FROM I2CONST COLON I2CONST TO I2CONST COLON I2CONST =
|
||||||
|
{
|
||||||
|
setp(AA_iocv(timeofday($2, $4)));
|
||||||
|
setp(AA_iocv(timeofday($6, $8)));
|
||||||
|
}
|
||||||
|
;
|
||||||
|
permday: ON NAME TO NAME =
|
||||||
|
{
|
||||||
|
setp($2);
|
||||||
|
setp($4);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
integrity: integstmnt integnoise relation integis qual =
|
||||||
|
{
|
||||||
|
Lastree = tree((QTREE *) 0, norml($5), ROOT, 0);
|
||||||
|
Qlflag--; /* turn off here */
|
||||||
|
}
|
||||||
|
;
|
||||||
|
integstmnt: DEFINE INTEGRITY =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdINTEG;
|
||||||
|
Qlflag++; /* OK to turn on here because integrity doesn't have a targ list */
|
||||||
|
if (!Qrymod)
|
||||||
|
/* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
integnoise: ON
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
integis: IS
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
/*DDD*/distribute: diststmnt relation AT distcrits =
|
||||||
|
/*DDD*/ {
|
||||||
|
/*DDD*/ $$ = (char *) tree((QTREE *) 0, (QTREE *) 0, QLEND, 0);
|
||||||
|
/*DDD*/ Lastree = tree($4, $$, ROOT, 0);
|
||||||
|
/*DDD*/ }
|
||||||
|
/*DDD*/;
|
||||||
|
/*DDD*/diststmnt: DISTRIBUTE =
|
||||||
|
/*DDD*/ Opflag = mdDISTRIB;
|
||||||
|
/*DDD*/;
|
||||||
|
/*DDD*/distcrits: dcriterion =
|
||||||
|
/*DDD*/ {
|
||||||
|
/*DDD*/ $$ = $1;
|
||||||
|
/*DDD*/ }
|
||||||
|
/*DDD*/ | distcrits dcriterion =
|
||||||
|
/*DDD*/ {
|
||||||
|
/*DDD*/ $$ = tlprepend($1, $2);
|
||||||
|
/*DDD*/ }
|
||||||
|
/*DDD*/;
|
||||||
|
/*DDD*/dcriterion: NAME where qual =
|
||||||
|
/*DDD*/ {
|
||||||
|
/*DDD*/ Qlflag--;
|
||||||
|
/*DDD*/ $$ = (char *) tree((QTREE *) 0, norml($3), SITE, OP_SIZ, $1);
|
||||||
|
/*DDD*/ }
|
||||||
|
/*DDD*/;
|
||||||
|
relation: NAME =
|
||||||
|
{
|
||||||
|
# ifdef xPTR2
|
||||||
|
AAtTfp(32, 0, "res rel name/var: '%s'\n", $1);
|
||||||
|
# endif
|
||||||
|
switch (Opflag)
|
||||||
|
{
|
||||||
|
case mdRETR:
|
||||||
|
case mdVIEW:
|
||||||
|
/* result better not be a rel name */
|
||||||
|
if ((i = AArelopen(&Reldesc, -1, $1)) < 0)
|
||||||
|
AAsyserr(18013, i);
|
||||||
|
if (i == 0)
|
||||||
|
{
|
||||||
|
/* reln exists */
|
||||||
|
if (AAbequal(Reldesc.reldum.relowner, AAusercode, 2))
|
||||||
|
{
|
||||||
|
/* same owner, can't duplicate name */
|
||||||
|
yyerror(RESEXIST, $1, (char *) 0);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
/* owned by dba -- purge range table */
|
||||||
|
rngdel($1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
Resrng = rngent(R_INTERNAL, "", $1, AAusercode, 0, 0);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case mdAPP:
|
||||||
|
/* result is a rel name */
|
||||||
|
Resrng = rnglook($1, LOOKREL);
|
||||||
|
if (Resrng == 0)
|
||||||
|
{
|
||||||
|
if ((i = AArelopen(&Reldesc, -1, $1)) < 0)
|
||||||
|
AAsyserr(18013, i);
|
||||||
|
if (i)
|
||||||
|
/* invalid relation name */
|
||||||
|
yyerror(RESAPPEX, $1, (char *) 0);
|
||||||
|
Resrng = rngent(R_INTERNAL, "", $1,
|
||||||
|
Reldesc.reldum.relowner,
|
||||||
|
Reldesc.reldum.relatts,
|
||||||
|
Reldesc.reldum.relstat);
|
||||||
|
}
|
||||||
|
checkupd(Resrng);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case mdPROT:
|
||||||
|
case mdINTEG:
|
||||||
|
# ifdef DISTRIB
|
||||||
|
case mdDISTRIB:
|
||||||
|
# endif
|
||||||
|
/* the result is a tuple variable */
|
||||||
|
Resrng = rnglook($1, LOOKVAR);
|
||||||
|
if (Resrng == 0)
|
||||||
|
/* variable not declared */
|
||||||
|
yyerror(NOVBLE, $1, (char *) 0);
|
||||||
|
break;
|
||||||
|
|
||||||
|
case mdREPL:
|
||||||
|
case mdDEL:
|
||||||
|
/* the result is a tuple variable */
|
||||||
|
Resrng = rnglook($1, LOOKVAR);
|
||||||
|
if (Resrng == 0)
|
||||||
|
/* variable not declared */
|
||||||
|
yyerror(NOVBLE, $1, (char *) 0);
|
||||||
|
checkupd(Resrng);
|
||||||
|
Tidnode = tree((QTREE *) 0, (QTREE *) 0, VAR, VAR_SIZ, CAST(Resrng->rentno), &Faketid);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
;
|
||||||
|
tlclause: LPAREN tlist RPAREN =
|
||||||
|
{
|
||||||
|
if (Patflag)
|
||||||
|
/* no patt match in targ list */
|
||||||
|
yyerror(NOPATMAT, (char *) 0);
|
||||||
|
$$ = $2;
|
||||||
|
|
||||||
|
/*
|
||||||
|
** replace must have tid node as left branch
|
||||||
|
** (so does delete but it doesn't have a targ list)
|
||||||
|
*/
|
||||||
|
if (Opflag == (int) mdREPL)
|
||||||
|
{
|
||||||
|
$$ = tlprepend(tree((QTREE *) 0, Tidnode, RESDOM, RES_SIZ, (char *) 0), $$);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
;
|
||||||
|
tlist: tlelm
|
||||||
|
| tlist COMMA tlelm =
|
||||||
|
{
|
||||||
|
/*
|
||||||
|
** attach bulk of targ list to leftmost node
|
||||||
|
** of new element
|
||||||
|
*/
|
||||||
|
$$ = tlprepend($1, $3);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
tlelm: NAME is afcn =
|
||||||
|
{
|
||||||
|
Trname = $1;
|
||||||
|
/* make a new resdom entry for targ list */
|
||||||
|
$$ = (char *) addresdom((QTREE *) 0, $3);
|
||||||
|
}
|
||||||
|
| attrib =
|
||||||
|
{
|
||||||
|
/* makes a new resdom entry for targ list */
|
||||||
|
$$ = (char *) addresdom((QTREE *) 0, $1);
|
||||||
|
}
|
||||||
|
| var PERIOD ALL =
|
||||||
|
{
|
||||||
|
if (Opflag == (int) mdREPL)
|
||||||
|
/* ALL not defined for REPLACE */
|
||||||
|
yyerror(REPALL, ((struct rngtab *) $1)->varname, (char *) 0);
|
||||||
|
/* makes set of new resdom entries for targ list */
|
||||||
|
$$ = xdot($1);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
is: IS
|
||||||
|
| BY
|
||||||
|
;
|
||||||
|
qualclause: where qual =
|
||||||
|
{
|
||||||
|
# ifdef xPTM
|
||||||
|
if (AAtTf(76, 2))
|
||||||
|
timtrace(25, 0);
|
||||||
|
# endif
|
||||||
|
$$ = norml($2);
|
||||||
|
Qlflag--;
|
||||||
|
# ifdef xPTM
|
||||||
|
if (AAtTf(76, 2))
|
||||||
|
timtrace(26, 0);
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
| /* empty */ =
|
||||||
|
{
|
||||||
|
/* null qualification */
|
||||||
|
$$ = norml((QTREE *) 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
where: WHERE =
|
||||||
|
{
|
||||||
|
Qlflag++;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
qual: LPAREN qual RPAREN =
|
||||||
|
{
|
||||||
|
$$ = $2;
|
||||||
|
}
|
||||||
|
| LUOP qual =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree((QTREE *) 0, $2, UOP, OP_SIZ, $1);
|
||||||
|
}
|
||||||
|
| qual LBOP qual =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree($1, $3, $2, 0, (char *) 0);
|
||||||
|
}
|
||||||
|
| clause
|
||||||
|
;
|
||||||
|
clause: afcn relop afcn =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree($1, $3, BOP, OP_SIZ, $2);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
relop: EOP
|
||||||
|
| IS
|
||||||
|
| BDOP
|
||||||
|
;
|
||||||
|
afcn: aggrfcn =
|
||||||
|
{
|
||||||
|
Agflag++;
|
||||||
|
}
|
||||||
|
| attribfcn
|
||||||
|
| afcn BAOPH afcn =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree($1, $3, BOP, OP_SIZ, $2);
|
||||||
|
}
|
||||||
|
| afcn BAOP afcn =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree($1, $3, BOP, OP_SIZ, $2);
|
||||||
|
}
|
||||||
|
| afcn UAOP afcn =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree($1, $3, BOP, OP_SIZ, $2);
|
||||||
|
}
|
||||||
|
| LPAREN afcn RPAREN =
|
||||||
|
{
|
||||||
|
$$ = $2;
|
||||||
|
}
|
||||||
|
| uop afcn %prec unaryop =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree((QTREE *) 0, $2, UOP, OP_SIZ, $1);
|
||||||
|
}
|
||||||
|
| FOP LPAREN afcn RPAREN =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree($3, (QTREE *) 0, UOP, OP_SIZ, $1);
|
||||||
|
}
|
||||||
|
| FBOP LPAREN afcn COMMA afcn RPAREN =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree($3, $5, BOP, OP_SIZ, $1);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
aggrfcn: AGOP LPAREN afcn BY domseq qualclause RPAREN =
|
||||||
|
{
|
||||||
|
# ifdef xPTR2
|
||||||
|
AAtTfp(35, 0, "agg func\n");
|
||||||
|
# endif
|
||||||
|
windup($5);
|
||||||
|
$$ = (char *) tree(tree($5, tree((QTREE *) 0, $3, AOP, AOP_SIZ, $1), BYHEAD, 0, (char *) 0), $6, AGHEAD, 0, (char *) 0);
|
||||||
|
}
|
||||||
|
| AGOP LPAREN afcn qualclause RPAREN =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree(tree((QTREE *) 0, $3, AOP, AOP_SIZ, $1), $4, AGHEAD, 0, (char *) 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
domseq: targdom
|
||||||
|
| domseq COMMA targdom =
|
||||||
|
{
|
||||||
|
$$ = tlprepend($1, $3);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
targdom: afcn =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree((QTREE *) 0, $1, RESDOM, RES_SIZ, CAST(Rsdmno));
|
||||||
|
}
|
||||||
|
;
|
||||||
|
attrib: var PERIOD NAME =
|
||||||
|
{
|
||||||
|
# ifdef xPTR2
|
||||||
|
AAtTfp(37, 0, "attrib %s.%s found\n", ((struct rngtab *) $1)->varname, $3);
|
||||||
|
# endif
|
||||||
|
|
||||||
|
/* remember attribute name */
|
||||||
|
Trname = $3;
|
||||||
|
|
||||||
|
/* look up attribute */
|
||||||
|
aptr = attlookup($1, Trname);
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, VAR, VAR_SIZ, CAST(((struct rngtab *) $1)->rentno), aptr);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
var: NAME =
|
||||||
|
{
|
||||||
|
$$ = (char *) rnglook($1, LOOKVAR);
|
||||||
|
if ($$ == 0)
|
||||||
|
/* variable not declared */
|
||||||
|
yyerror(NOVBLE, $1, (char *) 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
attribfcn: I2CONST =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, INT, sizeof (short), $1);
|
||||||
|
}
|
||||||
|
| I4CONST =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, INT, sizeof (long), $1);
|
||||||
|
}
|
||||||
|
| F4CONST =
|
||||||
|
{
|
||||||
|
# ifdef NO_F4
|
||||||
|
goto f8_tree;
|
||||||
|
# else
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, FLOAT, sizeof (float), $1);
|
||||||
|
# endif
|
||||||
|
}
|
||||||
|
| F8CONST =
|
||||||
|
{
|
||||||
|
f8_tree:
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, FLOAT, sizeof (double), $1);
|
||||||
|
}
|
||||||
|
| SCONST =
|
||||||
|
{
|
||||||
|
if (patmat($1) && !Qlflag)
|
||||||
|
Patflag = 1;
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, CHAR, AAlength($1), $1);
|
||||||
|
}
|
||||||
|
| NAME =
|
||||||
|
{
|
||||||
|
$$ = (char *) tree((QTREE *) 0, (QTREE *) 0, COP, OP_SIZ, $1);
|
||||||
|
}
|
||||||
|
| attrib
|
||||||
|
;
|
||||||
|
uop: UAOP %prec unaryop =
|
||||||
|
{
|
||||||
|
if ($1 == (char *) ((int) opADD))
|
||||||
|
$$ = (char *) ((int) opPLUS);
|
||||||
|
else
|
||||||
|
if ($1 == (char *) ((int) opSUB))
|
||||||
|
$$ = (char *) ((int) opMINUS);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
copy: copstmnt alias LPAREN coparam RPAREN keywd SCONST =
|
||||||
|
{
|
||||||
|
# ifdef xPTR2
|
||||||
|
AAtTfp(41, 0, "copy %s,%s\n", $2, $7);
|
||||||
|
# endif
|
||||||
|
setp($7);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
copstmnt: COPY =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdCOPY;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
coparam: cospecs
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
cospecs: alias is coent
|
||||||
|
| cospecs COMMA alias is coent
|
||||||
|
;
|
||||||
|
coent: alias
|
||||||
|
| SCONST =
|
||||||
|
{
|
||||||
|
setp($1);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
alias: NAME =
|
||||||
|
{
|
||||||
|
setp($1);
|
||||||
|
if (Opflag == (int) mdDESTROY
|
||||||
|
# ifdef DISTRIB
|
||||||
|
|| Opflag == mdDCREATE
|
||||||
|
# endif
|
||||||
|
|| Opflag == (int) mdCREATE)
|
||||||
|
rngdel($1);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
specs: alias is alias
|
||||||
|
| specs COMMA alias is alias
|
||||||
|
;
|
||||||
|
keywd: INTO =
|
||||||
|
{
|
||||||
|
setp("\0");
|
||||||
|
setp("i");
|
||||||
|
}
|
||||||
|
| FROM =
|
||||||
|
{
|
||||||
|
setp("\0");
|
||||||
|
setp("f");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
create: crestmnt alias LPAREN specs RPAREN
|
||||||
|
;
|
||||||
|
crestmnt: CREATE =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdCREATE;
|
||||||
|
|
||||||
|
/* set up parameters for regular create */
|
||||||
|
setp("0"); /* relstat = nil */
|
||||||
|
}
|
||||||
|
/*DDD*/ | CREATE DISTRD =
|
||||||
|
/*DDD*/ {
|
||||||
|
/*DDD*/ Opflag = mdDCREATE;
|
||||||
|
/*DDD*/
|
||||||
|
/*DDD*/ /* setup parameters for distributed create */
|
||||||
|
/*DDD*/ setp("U");
|
||||||
|
/*DDD*/ setp("");
|
||||||
|
/*DDD*/ setp("01000"); /* relstat = S_DISTRIBUTED */
|
||||||
|
/*DDD*/ }
|
||||||
|
;
|
||||||
|
destroy: destmnt keys
|
||||||
|
| destqm destlist
|
||||||
|
;
|
||||||
|
destmnt: DESTROY =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdDESTROY;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
destqm: destmnt INTEGRITY NAME =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdREMQM;
|
||||||
|
if (!Qrymod)
|
||||||
|
/* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
setp("6");
|
||||||
|
setp($3);
|
||||||
|
}
|
||||||
|
| destmnt PERMIT NAME =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdREMQM;
|
||||||
|
if (!Qrymod)
|
||||||
|
/* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
setp("5");
|
||||||
|
setp($3);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
destlist: I2CONST =
|
||||||
|
{
|
||||||
|
setp(AA_iocv(((I2TYPE *) $1)->i2type));
|
||||||
|
}
|
||||||
|
| destlist COMMA I2CONST =
|
||||||
|
{
|
||||||
|
setp(AA_iocv(((I2TYPE *) $3)->i2type));
|
||||||
|
}
|
||||||
|
| ALL
|
||||||
|
;
|
||||||
|
help: helstmnt hlist
|
||||||
|
| helstmnt =
|
||||||
|
{
|
||||||
|
setp("2"); /* all relns */
|
||||||
|
}
|
||||||
|
| helqmstmnt hqmlist
|
||||||
|
;
|
||||||
|
helstmnt: HELP =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdHELP;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
helqmstmnt: HELP VIEW =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdDISPLAY;
|
||||||
|
if (!Qrymod)
|
||||||
|
/* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
AAsmove("4", hqmbuf);
|
||||||
|
}
|
||||||
|
| HELP PERMIT =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdDISPLAY;
|
||||||
|
if (!Qrymod)
|
||||||
|
/* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
AAsmove("5", hqmbuf);
|
||||||
|
}
|
||||||
|
| HELP INTEGRITY =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdDISPLAY;
|
||||||
|
if (!Qrymod) /* no qrymod in database */
|
||||||
|
yyerror(NOQRYMOD, (char *) 0);
|
||||||
|
AAsmove("6", hqmbuf);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
hlist: hparam
|
||||||
|
| hlist COMMA hparam
|
||||||
|
| ALL =
|
||||||
|
{
|
||||||
|
setp("3");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
hparam: NAME =
|
||||||
|
{
|
||||||
|
/* relation */
|
||||||
|
setp("0");
|
||||||
|
setp($1);
|
||||||
|
}
|
||||||
|
| SCONST =
|
||||||
|
{
|
||||||
|
/* manual page */
|
||||||
|
setp("1");
|
||||||
|
setp($1);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
hqmlist: NAME =
|
||||||
|
{
|
||||||
|
setp(hqmbuf);
|
||||||
|
setp($1);
|
||||||
|
}
|
||||||
|
| hqmlist COMMA NAME =
|
||||||
|
{
|
||||||
|
setp(hqmbuf);
|
||||||
|
setp($3);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
index: instmnt LPAREN keys RPAREN =
|
||||||
|
{
|
||||||
|
if (Rsdmno > MAXKEYS)
|
||||||
|
/* too many attributes in key */
|
||||||
|
yyerror(INDEXTRA, (char *) 0);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
instmnt: INDEX ON NAME IS NAME =
|
||||||
|
{
|
||||||
|
/* init INDEX command */
|
||||||
|
Opflag = (int) mdINDEX;
|
||||||
|
Rsdmno = 0;
|
||||||
|
setp($3);
|
||||||
|
setp($5);
|
||||||
|
Indexname = $5;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
modify: modstmnt alias modstorage modkeys modqual
|
||||||
|
;
|
||||||
|
modstmnt: MODIFY =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdMODIFY;
|
||||||
|
Rsdmno = 0;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
modstorage: TO NAME =
|
||||||
|
{
|
||||||
|
setp($2);
|
||||||
|
}
|
||||||
|
| /* empty */ =
|
||||||
|
{
|
||||||
|
setp("same");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
modkeys: modstkey modrptkey
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
modstkey: ON =
|
||||||
|
{
|
||||||
|
setp("name");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
modrptkey: modbasekey
|
||||||
|
| modrptkey COMMA modbasekey
|
||||||
|
;
|
||||||
|
modbasekey: NAME =
|
||||||
|
{
|
||||||
|
setp($1);
|
||||||
|
}
|
||||||
|
| NAME COLON NAME =
|
||||||
|
{
|
||||||
|
AAconcat($1, AAztack(":", $3), modbuf);
|
||||||
|
setp(modbuf);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
modqual: modcond modfill
|
||||||
|
| /* empty */
|
||||||
|
;
|
||||||
|
modcond: WHERE =
|
||||||
|
{
|
||||||
|
setp("\0");
|
||||||
|
}
|
||||||
|
;
|
||||||
|
modfill: modfillnum
|
||||||
|
| modfill COMMA modfillnum
|
||||||
|
;
|
||||||
|
modfillnum: NAME IS I2CONST =
|
||||||
|
{
|
||||||
|
setp($1);
|
||||||
|
setp(AA_iocv(((I2TYPE *) $3)->i2type));
|
||||||
|
}
|
||||||
|
;
|
||||||
|
keys: alias =
|
||||||
|
{
|
||||||
|
Rsdmno++;
|
||||||
|
}
|
||||||
|
| keys COMMA alias =
|
||||||
|
{
|
||||||
|
Rsdmno++;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
print: prinstmnt keys
|
||||||
|
;
|
||||||
|
prinstmnt: PRINT =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdPRINT;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
save: savstmnt alias UNTIL date
|
||||||
|
;
|
||||||
|
savstmnt: SAVE =
|
||||||
|
{
|
||||||
|
Opflag = (int) mdSAVE;
|
||||||
|
}
|
||||||
|
;
|
||||||
|
date: month day_year day_year
|
||||||
|
;
|
||||||
|
month: alias
|
||||||
|
| day_year
|
||||||
|
;
|
||||||
|
day_year: I2CONST =
|
||||||
|
{
|
||||||
|
p = AA_iocv(((I2TYPE *) $1)->i2type);
|
||||||
|
# ifdef xPTR3
|
||||||
|
AAtTfp(57, 1, "day_year: %s\n", p);
|
||||||
|
# endif
|
||||||
|
setp(p);
|
||||||
|
}
|
||||||
|
;
|
||||||
|
%%
|
||||||
|
# include "../h/scanner.h"
|
||||||
|
# include "../h/bs.h"
|
||||||
|
# include "tables.y"
|
||||||
|
# include "yyerror.y"
|
||||||
Loading…
Reference in New Issue