chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1989-04-05 11:43:09 +00:00
parent 15c928e591
commit a6e7ba3d6b
3 changed files with 303 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
WEGA/contrib/ingres/dbs/src/parser/s_name.c Normal file
View File

@ -0,0 +1,78 @@
# include "gen.h"
# include "../h/dbs.h"
# include "../h/scanner.h"
# include "parser.h"
/*
** NAME
** A name is defined to be a sequence of MAXNAME or fewer alphanumeric
** characters, starting with an alphabetic (underscore "_" is considered
** an alphabetic). If it is not a keyword, each name is entered into
** the symbol table, indexed by 'yylval'. A token is then returned for
** that name.
*/
name(chr)
char chr;
{
extern char *yylval;
char namebuf[MAXNAME + 1];
register int hi;
register int lo;
register int curr;
extern char *syment();
/* fill in the name */
yylval = namebuf;
*yylval = chr;
do
{
*++yylval = curr = gtchar();
if ((yylval - namebuf) > MAXNAME)
{
/* name too long */
*yylval = '\0';
yyerror(NAMELONG, namebuf, (char *) 0);
}
} while (CMAP(curr) == ALPHA || CMAP(curr) == NUMBR);
backup(curr);
*yylval = '\0';
/* is it a keyword ? */
lo = 0;
hi = Keyent - 1;
while (lo <= hi)
{
curr = (lo + hi) / 2;
switch (AAscompare(Keyword[curr].term, MAXNAME, namebuf, MAXNAME))
{
case 1:
hi = curr - 1;
continue;
case -1:
lo = curr + 1;
continue;
case 0:
Lastok.toktyp = Tokens.sconst;
Lastok.tok = Keyword[curr].term;
Lastok.tokop = Keyword[curr].opcode;
yylval = CAST(Keyword[curr].opcode);
# ifdef xPTR2
AAtTfp(71, 0, "keyword: %s\n", namebuf);
# endif
return (Keyword[curr].token);
}
}
/* else, USER DEFINED NAME */
# ifdef xPTR2
AAtTfp(71, 0, "name: %s\n", namebuf);
# endif
yylval = syment(namebuf, AAlength(namebuf) + 1);
Lastok.tok = yylval;
Lastok.toktyp = Tokens.sconst;
Lastok.tokop = 0;
return (Tokens.name);
}

88
WEGA/contrib/ingres/dbs/src/parser/s_string.c Normal file
View File

@ -0,0 +1,88 @@
# include "gen.h"
# include "../h/dbs.h"
# include "../h/scanner.h"
# include "parser.h"
/*
** STRING
** A string is defined as any sequence of MAXSTRING or fewer characters,
** surrounded by string delimiters. New-line ;characters are purged
** from strings unless preceeded by a '\'; QUOTE's must be similarly
** prefixed in order to be correctly inserted within a string. Each
** string is entered in the symbol table, indexed by 'yylval'. A
** token or the error condition -1 is returned.
*/
string(op)
struct optab *op;
{
extern char *yylval;
extern char *syment();
register int esc;
register int chr;
register char *ptr;
register int save;
char buf[MAXSTRING + 1];
/* disable case conversion and fill in string */
ptr = buf;
save = Lcase;
Lcase = 0;
do
{
/* get next character */
if ((*ptr = gtchar()) <= 0)
{
Lcase = save;
/* non term string */
yyerror(STRTERM, (char *) 0);
}
/* handle escape characters */
esc = (*ptr == '\\');
if (*ptr == '\n')
{
if ((*ptr = gtchar()) <= 0)
{
Lcase = save;
*ptr = 0;
/* non term string */
yyerror(STRTERM, (char *) 0);
}
}
if (esc == 1)
{
if ((*++ptr = gtchar()) <= 0)
{
Lcase = save;
*ptr = 0;
/* non term string */
yyerror(STRTERM, (char *) 0);
}
if (*ptr == *(op->term))
*--ptr = *(op->term);
}
/* check length */
if ((ptr - buf) > MAXSTRING - 1)
{
Lcase = save;
/* string too long */
yyerror(STRLONG, (char *) 0);
}
chr = *ptr;
if (CMAP(chr) == CNTRL)
/* cntrl in string from EQL */
yyerror(CNTRLCHR, (char *) 0);
} while (*ptr++ != *(op->term) || esc == 1);
/* restore case conversion and return */
*--ptr = '\0';
Lcase = save;
# ifdef xPTR2
AAtTfp(71, 8, "STRING: %s\n", buf);
# endif
yylval = syment(buf, (ptr - buf) + 1);
Lastok.tok = yylval;
Lastok.toktyp = Tokens.sconst;
return (Tokens.sconst);
}

137
WEGA/contrib/ingres/dbs/src/parser/s_yylex.c Normal file
View File

@ -0,0 +1,137 @@
# include "gen.h"
# include "../h/dbs.h"
# include "../h/scanner.h"
# include "parser.h"
struct lastok Lastok;
int Pars; /* flag for call getcvar or not */
/*
** YYLEX
** This is the control program for the scanner (lexical analyzer).
** Each call to yylex() returns a token for the next syntactic unit.
** If the object is of type I2CONST, I4CONST, F8CONST, SCONST or NAME, that
** object will also be entered in the symbol table, indexed by 'yylval'.
** If the object is not one of these types, yylval is the opcode field of
** the operator or keyword tables.
** The end-of-file token is zero.
*/
yylex()
{
register int chr;
register int rtval;
rtval = -1;
Lastok.tokop = 0;
/* GET NEXT TOKEN */
do
{
if((chr = gtchar()) <= 0)
{
# ifdef xPTR2
AAtTfp(72, 8, "end-of-file\n");
# endif
rtval = 0;
break;
}
switch (CMAP(chr))
{
case ALPHA:
rtval = name(chr);
break;
case NUMBR:
rtval = number(chr);
break;
case OPATR:
if ((rtval = operator(chr)) == 0)
rtval = -1;
break;
case PUNCT:
continue;
case CNTRL:
/* already converted number ? */
if (Pars)
switch (chr)
{
case CVAR_I2:
rtval = getcvar(Tokens.i2const, sizeof (short));
break;
case CVAR_I4:
rtval = getcvar(Tokens.i4const, sizeof (long));
break;
case CVAR_F8:
rtval = getcvar(Tokens.f8const, sizeof (double));
break;
case CVAR_S:
rtval = getcvar(Tokens.sconst, 0);
break;
default:
printf("Zeichen 0%o ignoriert\n", chr);
continue;
}
break;
default:
AAsyserr(20003);
}
} while (rtval == -1);
if (rtval == 0)
{
Lastok.tokop = GOVAL;
Lastok.tok = 0;
Lastok.toktyp = 0;
}
return (rtval);
}
getcvar(type, len)
register int type;
register int len;
{
register int chr;
register int save;
char buf[MAXSTRING + 1];
extern char *yylval;
extern char *syment();
save = Lcase;
Lcase = 0;
yylval = buf;
if (len)
{
while ((yylval - buf) < len)
*yylval++ = chr = gtchar();
}
else
{
do
{
*yylval = chr = gtchar();
if ((yylval - buf) > MAXSTRING)
{
Lcase = save;
yyerror(STRLONG, (char *) 0);
}
if (CMAP(chr) == CNTRL && chr != '\0')
{
Lcase = save;
/* control char in string from EQL */
yyerror(CNTRLCHR, (char *) 0);
}
} while (*yylval++);
len = yylval - buf;
}
Lcase = save;
yylval = syment(buf, len);
Lastok.tok = yylval;
Lastok.toktyp = type;
return (type);
}