From f12f8990e45f7564fb348b0d7a5afc0fe0aa660f Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Tue, 17 Jun 2003 04:35:03 +0000 Subject: [PATCH] Fix error line numbers reported for errors in plpgsql_parse_word and siblings. --- src/pl/plpgsql/src/scan.l | 70 +++++++++++++++++++++++++++++---------- 1 file changed, 52 insertions(+), 18 deletions(-) diff --git a/src/pl/plpgsql/src/scan.l b/src/pl/plpgsql/src/scan.l index e6614bf810..27dcdc2590 100644 --- a/src/pl/plpgsql/src/scan.l +++ b/src/pl/plpgsql/src/scan.l @@ -4,7 +4,7 @@ * procedural language * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/Attic/scan.l,v 1.26 2003/05/29 22:30:02 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/Attic/scan.l,v 1.27 2003/06/17 04:35:03 tgl Exp $ * * This software is copyrighted by Jan Wieck - Hamburg. * @@ -168,25 +168,59 @@ dump { return O_DUMP; } /* ---------- * Special word rules + * + * We set plpgsql_error_lineno in each rule so that errors reported + * in the pl_comp.c subroutines will point to the right place. * ---------- */ -{identifier} { return plpgsql_parse_word(yytext); } -{identifier}{space}*\.{space}*{identifier} { return plpgsql_parse_dblword(yytext); } -{identifier}{space}*\.{space}*{identifier}{space}*\.{space}*{identifier} { return plpgsql_parse_tripword(yytext); } -{identifier}{space}*%TYPE { return plpgsql_parse_wordtype(yytext); } -{identifier}{space}*\.{space}*{identifier}{space}*%TYPE { return plpgsql_parse_dblwordtype(yytext); } -{identifier}{space}*\.{space}*{identifier}{space}*\.{space}*{identifier}{space}*%TYPE { return plpgsql_parse_tripwordtype(yytext); } -{identifier}{space}*%ROWTYPE { return plpgsql_parse_wordrowtype(yytext); } -{identifier}{space}*\.{space}*{identifier}{space}*%ROWTYPE { return plpgsql_parse_dblwordrowtype(yytext); } - -\${digit}+ { return plpgsql_parse_word(yytext); } -\${digit}+{space}*\.{space}*{identifier} { return plpgsql_parse_dblword(yytext); } -\${digit}+{space}*\.{space}*{identifier}{space}*\.{space}*{identifier} { return plpgsql_parse_tripword(yytext); } -\${digit}+{space}*%TYPE { return plpgsql_parse_wordtype(yytext); } -\${digit}+{space}*\.{space}*{identifier}{space}*%TYPE { return plpgsql_parse_dblwordtype(yytext); } -\${digit}+{space}*\.{space}*{identifier}{space}*\.{space}*{identifier}{space}*%TYPE { return plpgsql_parse_tripwordtype(yytext); } -\${digit}+{space}*%ROWTYPE { return plpgsql_parse_wordrowtype(yytext); } -\${digit}+{space}*\.{space}*{identifier}{space}*%ROWTYPE { return plpgsql_parse_dblwordrowtype(yytext); } +{identifier} { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_word(yytext); } +{identifier}{space}*\.{space}*{identifier} { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_dblword(yytext); } +{identifier}{space}*\.{space}*{identifier}{space}*\.{space}*{identifier} { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_tripword(yytext); } +{identifier}{space}*%TYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_wordtype(yytext); } +{identifier}{space}*\.{space}*{identifier}{space}*%TYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_dblwordtype(yytext); } +{identifier}{space}*\.{space}*{identifier}{space}*\.{space}*{identifier}{space}*%TYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_tripwordtype(yytext); } +{identifier}{space}*%ROWTYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_wordrowtype(yytext); } +{identifier}{space}*\.{space}*{identifier}{space}*%ROWTYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_dblwordrowtype(yytext); } +\${digit}+ { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_word(yytext); } +\${digit}+{space}*\.{space}*{identifier} { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_dblword(yytext); } +\${digit}+{space}*\.{space}*{identifier}{space}*\.{space}*{identifier} { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_tripword(yytext); } +\${digit}+{space}*%TYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_wordtype(yytext); } +\${digit}+{space}*\.{space}*{identifier}{space}*%TYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_dblwordtype(yytext); } +\${digit}+{space}*\.{space}*{identifier}{space}*\.{space}*{identifier}{space}*%TYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_tripwordtype(yytext); } +\${digit}+{space}*%ROWTYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_wordrowtype(yytext); } +\${digit}+{space}*\.{space}*{identifier}{space}*%ROWTYPE { + plpgsql_error_lineno = plpgsql_scanner_lineno(); + return plpgsql_parse_dblwordrowtype(yytext); } {digit}+ { return T_NUMBER; }