aboutsummaryrefslogtreecommitdiff
path: root/src/backend/parser/scan.l
diff options
context:
space:
mode:
Diffstat (limited to 'src/backend/parser/scan.l')
-rw-r--r--src/backend/parser/scan.l372
1 files changed, 186 insertions, 186 deletions
diff --git a/src/backend/parser/scan.l b/src/backend/parser/scan.l
index 8edd961c2c9..a8946cb15f2 100644
--- a/src/backend/parser/scan.l
+++ b/src/backend/parser/scan.l
@@ -2,13 +2,13 @@
/*-------------------------------------------------------------------------
*
* scan.l--
- * lexical scanner for POSTGRES
+ * lexical scanner for POSTGRES
*
* Copyright (c) 1994, Regents of the University of California
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.18 1997/09/05 09:05:48 vadim Exp $
+ * $Header: /cvsroot/pgsql/src/backend/parser/scan.l,v 1.19 1997/09/08 03:20:04 momjian Exp $
*
*-------------------------------------------------------------------------
*/
@@ -64,207 +64,207 @@ int llen;
char literal[MAX_PARSE_BUFFER];
%}
- /* OK, here is a short description of lex/flex rules behavior.
- * The longest pattern which matches an input string is always chosen.
- * For equal-length patterns, the first occurring in the rules list is chosen.
- * INITIAL is the starting condition, to which all non-conditional rules apply.
- * <xc> is an exclusive condition to allow embedded C-style comments.
- * When in an exclusive condition, only those rules defined for that condition apply.
- * So, when in condition <xc>, only strings which would terminate the "extended comment"
- * trigger any action other than "ignore".
- * The "extended comment" syntax closely resembles allowable operator syntax.
- * Therefore, be sure to match _any_ candidate comment, including those with appended
- * operator-like symbols. - thomas 1997-07-14
- */
-
- /* define an exclusive condition to allow extended C-style comments - tgl 1997-07-12 */
+ /* OK, here is a short description of lex/flex rules behavior.
+ * The longest pattern which matches an input string is always chosen.
+ * For equal-length patterns, the first occurring in the rules list is chosen.
+ * INITIAL is the starting condition, to which all non-conditional rules apply.
+ * <xc> is an exclusive condition to allow embedded C-style comments.
+ * When in an exclusive condition, only those rules defined for that condition apply.
+ * So, when in condition <xc>, only strings which would terminate the "extended comment"
+ * trigger any action other than "ignore".
+ * The "extended comment" syntax closely resembles allowable operator syntax.
+ * Therefore, be sure to match _any_ candidate comment, including those with appended
+ * operator-like symbols. - thomas 1997-07-14
+ */
+
+ /* define an exclusive condition to allow extended C-style comments - tgl 1997-07-12 */
%x xc
- /* define an exclusive condition for quoted strings - tgl 1997-07-30 */
+ /* define an exclusive condition for quoted strings - tgl 1997-07-30 */
%x xq
- /* We used to allow double-quoted strings, but SQL doesn't so we won't either */
-quote '
-xqstart {quote}
-xqstop {quote}
-xqdouble {quote}{quote}
-xqinside [^\']*
-xqliteral [\\].
+ /* We used to allow double-quoted strings, but SQL doesn't so we won't either */
+quote '
+xqstart {quote}
+xqstop {quote}
+xqdouble {quote}{quote}
+xqinside [^\']*
+xqliteral [\\].
-xcline [\/][\*].*[\*][\/]{space}*\n*
-xcstart [\/][\*]{op_and_self}*
-xcstop {op_and_self}*[\*][\/]({space}*|\n)
-xcinside [^*]*
-xcstar [^/]
+xcline [\/][\*].*[\*][\/]{space}*\n*
+xcstart [\/][\*]{op_and_self}*
+xcstop {op_and_self}*[\*][\/]({space}*|\n)
+xcinside [^*]*
+xcstar [^/]
-digit [0-9]
-letter [_A-Za-z]
-letter_or_digit [_A-Za-z0-9]
+digit [0-9]
+letter [_A-Za-z]
+letter_or_digit [_A-Za-z0-9]
-sysfunc SYS_{letter}{letter_or_digit}*
+sysfunc SYS_{letter}{letter_or_digit}*
-identifier {letter}{letter_or_digit}*
+identifier {letter}{letter_or_digit}*
-typecast "::"
+typecast "::"
-self [,()\[\].;$\:\+\-\*\/\<\>\=\|]
-selfm {self}[\-][\.0-9]
+self [,()\[\].;$\:\+\-\*\/\<\>\=\|]
+selfm {self}[\-][\.0-9]
-op_and_self [\~\!\@\#\%\^\&\|\`\?\$\:\+\-\*\/\<\>\=]
+op_and_self [\~\!\@\#\%\^\&\|\`\?\$\:\+\-\*\/\<\>\=]
-operator {op_and_self}+
-operatorm {op_and_self}+[\-][\.0-9]
+operator {op_and_self}+
+operatorm {op_and_self}+[\-][\.0-9]
-integer -?{digit}+
-real -?{digit}+\.{digit}+([Ee][-+]?{digit}+)?
+integer -?{digit}+
+real -?{digit}+\.{digit}+([Ee][-+]?{digit}+)?
-param \${integer}
+param \${integer}
-comment "--".*\n
-comment2 "//".*\n
+comment "--".*\n
+comment2 "//".*\n
-space [ \t\n\f]
-other .
+space [ \t\n\f]
+other .
%%
-{sysfunc} {
- yylval.str = pstrdup(SystemFunctionHandler((char *)yytext));
- return (SCONST);
- }
+{sysfunc} {
+ yylval.str = pstrdup(SystemFunctionHandler((char *)yytext));
+ return (SCONST);
+ }
-{comment} { /* ignore */ }
-{comment2} { /* ignore */ }
+{comment} { /* ignore */ }
+{comment2} { /* ignore */ }
-{xcline} { /* ignore */ }
+{xcline} { /* ignore */ }
<xc>{xcstar} |
-{xcstart} { BEGIN(xc); }
+{xcstart} { BEGIN(xc); }
<xc>{xcstop} { BEGIN(INITIAL); }
<xc>{xcinside} { /* ignore */ }
{xqstart} {
- BEGIN(xq);
- llen = 0;
- *literal = '\0';
- }
+ BEGIN(xq);
+ llen = 0;
+ *literal = '\0';
+ }
<xq>{xqstop} {
- BEGIN(INITIAL);
- yylval.str = pstrdup(scanstr(literal));
- return (SCONST);
- }
+ BEGIN(INITIAL);
+ yylval.str = pstrdup(scanstr(literal));
+ return (SCONST);
+ }
<xq>{xqdouble} |
<xq>{xqinside} {
- if ((llen+yyleng) > (MAX_PARSE_BUFFER - 1)) {
- elog(WARN,"quoted string parse buffer of %d chars exceeded",MAX_PARSE_BUFFER);
- /* not reached */
- }
- memcpy(literal+llen, yytext, yyleng+1);
- llen += yyleng;
- }
-<xq>{xqliteral} {
- if ((llen+yyleng-1) > (MAX_PARSE_BUFFER - 1)) {
- elog(WARN,"quoted string parse buffer of %d chars exceeded",MAX_PARSE_BUFFER);
- /* not reached */
- }
- memcpy(literal+llen, yytext+1, yyleng);
- llen += yyleng-1;
- }
-
-{typecast} { return TYPECAST; }
-
-{selfm} {
- yyless(yyleng-2);
- return (yytext[0]);
- }
-{self} { return (yytext[0]); }
-
-{operatorm} {
- yyless(yyleng-2);
- yylval.str = pstrdup((char*)yytext);
- return (Op);
- }
-{operator} {
- if (strcmp((char*)yytext,"!=") == 0)
- yylval.str = pstrdup("<>"); /* compatability */
- else
- yylval.str = pstrdup((char*)yytext);
- return (Op);
- }
-{param} { yylval.ival = atoi((char*)&yytext[1]);
- return (PARAM);
- }
-{integer} {
- yylval.ival = atoi((char*)yytext);
- return (ICONST);
- }
-{real} {
- char* endptr;
- errno = 0;
- yylval.dval = strtod(((char *)yytext),&endptr);
- if (*endptr != '\0' || errno == ERANGE)
- elog(WARN,"\tBad float8 input format\n");
- CheckFloat8Val(yylval.dval);
- return (FCONST);
- }
+ if ((llen+yyleng) > (MAX_PARSE_BUFFER - 1))
+ elog(WARN,"quoted string parse buffer of %d chars exceeded",MAX_PARSE_BUFFER);
+ memcpy(literal+llen, yytext, yyleng+1);
+ llen += yyleng;
+ }
+<xq>{xqliteral} {
+ if ((llen+yyleng-1) > (MAX_PARSE_BUFFER - 1))
+ elog(WARN,"quoted string parse buffer of %d chars exceeded",MAX_PARSE_BUFFER);
+ memcpy(literal+llen, yytext+1, yyleng);
+ llen += yyleng-1;
+ }
+
+{typecast} { return TYPECAST; }
+
+{selfm} {
+ yyless(yyleng-2);
+ return (yytext[0]);
+ }
+{self} { return (yytext[0]); }
+
+{operatorm} {
+ yyless(yyleng-2);
+ yylval.str = pstrdup((char*)yytext);
+ return (Op);
+ }
+{operator} {
+ if (strcmp((char*)yytext,"!=") == 0)
+ yylval.str = pstrdup("<>"); /* compatability */
+ else
+ yylval.str = pstrdup((char*)yytext);
+ return (Op);
+ }
+{param} {
+ yylval.ival = atoi((char*)&yytext[1]);
+ return (PARAM);
+ }
+{integer} {
+ yylval.ival = atoi((char*)yytext);
+ return (ICONST);
+ }
+{real} {
+ char* endptr;
+
+ errno = 0;
+ yylval.dval = strtod(((char *)yytext),&endptr);
+ if (*endptr != '\0' || errno == ERANGE)
+ elog(WARN,"\tBad float8 input format\n");
+ CheckFloat8Val(yylval.dval);
+ return (FCONST);
+ }
{identifier} {
- int i;
- ScanKeyword *keyword;
-
- for(i = strlen(yytext); i >= 0; i--)
- if (isupper(yytext[i]))
- yytext[i] = tolower(yytext[i]);
-
- keyword = ScanKeywordLookup((char*)yytext);
- if (keyword != NULL) {
- if ( keyword->value == DEFAULT ) {
- DefaultStartPosition = CurScanPosition () + yyleng + 1;
-printf( "default offset is %d\n", DefaultStartPosition);
-
- } else if ( keyword->value == CHECK ) {
- CheckStartPosition = CurScanPosition () + yyleng + 1;
-printf( "check offset is %d\n", CheckStartPosition);
-
- };
-
- return (keyword->value);
- } else {
- yylval.str = pstrdup((char*)yytext);
- return (IDENT);
- }
- }
-{space} { /* ignore */ }
-
-{other} { return (yytext[0]); }
+ int i;
+ ScanKeyword *keyword;
+
+ for(i = strlen(yytext); i >= 0; i--)
+ if (isupper(yytext[i]))
+ yytext[i] = tolower(yytext[i]);
+
+ keyword = ScanKeywordLookup((char*)yytext);
+ if (keyword != NULL) {
+ if ( keyword->value == DEFAULT )
+ {
+ DefaultStartPosition = CurScanPosition () + yyleng + 1;
+ printf( "default offset is %d\n", DefaultStartPosition);
+ }
+ else if ( keyword->value == CHECK )
+ {
+ CheckStartPosition = CurScanPosition () + yyleng + 1;
+ printf( "check offset is %d\n", CheckStartPosition);
+ }
+ return (keyword->value);
+ }
+ else
+ {
+ yylval.str = pstrdup((char*)yytext);
+ return (IDENT);
+ }
+ }
+{space} { /* ignore */ }
+
+{other} { return (yytext[0]); }
%%
void yyerror(char message[])
{
- elog(WARN, "parser: %s at or near \"%s\"\n", message, yytext);
+ elog(WARN, "parser: %s at or near \"%s\"\n", message, yytext);
}
int yywrap()
{
- return(1);
+ return(1);
}
/*
init_io:
- called by postgres before any actual parsing is done
+ called by postgres before any actual parsing is done
*/
void
init_io()
{
- /* it's important to set this to NULL
- because input()/myinput() checks the non-nullness of parseCh
- to know when to pass the string to lex/flex */
- parseCh = NULL;
+ /* it's important to set this to NULL
+ because input()/myinput() checks the non-nullness of parseCh
+ to know when to pass the string to lex/flex */
+ parseCh = NULL;
#if defined(FLEX_SCANNER)
- if (YY_CURRENT_BUFFER)
- yy_flush_buffer(YY_CURRENT_BUFFER);
+ if (YY_CURRENT_BUFFER)
+ yy_flush_buffer(YY_CURRENT_BUFFER);
#endif /* FLEX_SCANNER */
- BEGIN INITIAL;
+ BEGIN INITIAL;
}
@@ -274,63 +274,63 @@ init_io()
int
input()
{
- if (parseCh == NULL) {
- parseCh = parseString;
- return(*parseCh++);
- } else if (*parseCh == '\0') {
- return(0);
- } else {
- return(*parseCh++);
- }
+ if (parseCh == NULL)
+ {
+ parseCh = parseString;
+ return(*parseCh++);
+ }
+ else if (*parseCh == '\0')
+ return(0);
+ else
+ return(*parseCh++);
}
/* undo lex input from a string instead of from stdin */
void
unput(char c)
{
- if (parseCh == NULL) {
- elog(FATAL, "Unput() failed.\n");
- } else if (c != 0) {
- *--parseCh = c;
- }
+ if (parseCh == NULL)
+ elog(FATAL, "Unput() failed.\n");
+ else if (c != 0)
+ *--parseCh = c;
}
int
CurScanPosition(void)
{
- return (parseCh - parseString - yyleng);
+ return (parseCh - parseString - yyleng);
}
#endif /* !defined(FLEX_SCANNER) */
#ifdef FLEX_SCANNER
/* input routine for flex to read input from a string instead of a file */
-int
+int
myinput(char* buf, int max)
{
- int len, copylen;
-
- if (parseCh == NULL) {
- len = strlen(parseString);
- if (len >= max)
- copylen = max - 1;
+ int len, copylen;
+
+ if (parseCh == NULL)
+ {
+ len = strlen(parseString);
+ if (len >= max)
+ copylen = max - 1;
+ else
+ copylen = len;
+ if (copylen > 0)
+ memcpy(buf, parseString, copylen);
+ buf[copylen] = '\0';
+ parseCh = parseString;
+ return copylen;
+ }
else
- copylen = len;
- if (copylen > 0)
- memcpy(buf, parseString, copylen);
- buf[copylen] = '\0';
- parseCh = parseString;
- return copylen;
- } else {
- return 0; /* end of string */
- }
+ return 0; /* end of string */
}
int
CurScanPosition(void)
{
-printf( "current position is %d\n", yy_c_buf_p - yy_current_buffer->yy_ch_buf - yyleng);
-
- return (yy_c_buf_p - yy_current_buffer->yy_ch_buf - yyleng);
+ printf( "current position is %d\n", yy_c_buf_p - yy_current_buffer->yy_ch_buf - yyleng);
+ return (yy_c_buf_p - yy_current_buffer->yy_ch_buf - yyleng);
}
#endif /* FLEX_SCANNER */
generated by cgit v1.2.3 (git 2.25.1) at 2025-07-18 03:12:01 +0000