Dear patchers,
Please find attached my first attempt at providing a localisation
information on the client side for syntax errors in "psql". Basically, one
function is added which takes care of the burden. I put a lot of
comments in the function to try make it clear what is going on.
It validates for me against current cvs head.
I've also added new regression tests in "errors.sql".
Although I have taken great and painful care to deal with multi-byte
encodings, I'm not sure how I can validate that, as I don't have some
japanese terminal to play with.
Have a nice day,
--
Fabien Coelho - [EMAIL PROTECTED]
*** ./src/bin/psql/common.c.orig Thu Mar 11 15:42:17 2004
--- ./src/bin/psql/common.c Thu Mar 11 15:59:50 2004
***************
*** 345,350 ****
--- 345,491 ----
}
+ #define DISPLAY_SIZE (60)
+ #define MIN_RIGHT_CUT (10)
+
+ /* on errors, print localisation information if available.
+ * the query is expected to be in the client encoding.
+ */
+ static void
+ ReportLocalisation(const PGresult *result, const char *query)
+ {
+ int loc = 0;
+ char * sp = PQresultErrorField(result, PG_DIAG_STATEMENT_POSITION);
+
+ if (sp && sscanf(sp, "%d", &loc)!=1)
+ {
+ psql_error("INTERNAL ERROR: unexpected statement position '%s'\n", sp);
+ return;
+ }
+
+ /* do we have something to show? */
+ if (query!=NULL && loc>0)
+ {
+ int clen, slen, i, * qidx, ibeg, iend, last_nl, loc_line;
+ char *wquery, *cursor;
+
+ /* (1) let us first compute a character index for the query. */
+
+ /* we need a safe allocation size... */
+ slen = strlen(query);
+
+ /* the last one is needed to store last char mb length */
+ qidx = (int*) palloc(sizeof(int)*(slen+1));
+
+ qidx[0] = 0;
+ for (i=1; query[qidx[i-1]]!='\0' && i<slen+1; i++)
+ qidx[i] = qidx[i-1] + PQmblen(&query[qidx[i-1]],
pset.encoding);
+
+ clen = i-1;
+
+ /* we must be at the end! */
+ psql_assert(query[qidx[clen]] == '\0');
+
+ /* our localisation index start at 0! it must be in the query! */
+ loc--;
+ psql_assert(loc>=0 && loc<clen);
+
+ /* (2) now we build a working copy of the query. */
+ wquery = (char*) palloc(sizeof(char)*(strlen(query)+1));
+ strcpy(wquery, query);
+
+ /* the character number of the previous newline. */
+ last_nl = -1;
+ /* input line number of our syntax error. */
+ loc_line = 1;
+ /* first included char of extract. */
+ ibeg = 0;
+ /* last not-included char of extract. */
+ iend = clen;
+
+ /* (3) we clean wquery string from tabs, carriage return and new lines.
+ * extract error line number and begin and end indexes.
+ */
+ for (i=0; i<clen; i++)
+ {
+ /* how to find a '\t', a '\r' or a '\n'?
+ * I assume here that all encodings must be ascii compatible...
+ */
+ if ((qidx[i+1]-qidx[i]) == 1)
+ {
+ if (wquery[qidx[i]] == '\t')
+ wquery[qidx[i]] = ' ';
+ if (wquery[qidx[i]] == '\r' || wquery[qidx[i]] == '\n')
+ {
+ /* count lines */
+ if (wquery[qidx[i]]=='\n' && i<loc)
+ loc_line++;
+
+ /* set extract end. */
+ if (iend==clen && i>loc)
+ iend = i;
+
+ wquery[qidx[i]] = ' ';
+ last_nl = i;
+ }
+ }
+ /* set extract beginning. */
+ if (i==loc && last_nl!=-1)
+ ibeg = last_nl+1;
+ }
+
+ /* (4) if the extract is too long, we truncate it. */
+ if (iend-ibeg>DISPLAY_SIZE)
+ {
+ /* we first truncate right if it is enough. */
+ if (ibeg+DISPLAY_SIZE>loc+MIN_RIGHT_CUT)
+ iend = ibeg+DISPLAY_SIZE;
+ else
+ {
+ /* we truncate right. */
+ if (loc+MIN_RIGHT_CUT<iend)
+ iend = loc+MIN_RIGHT_CUT;
+
+ /* still too long?
+ * we know that loc is at the end
+ * (loc+MIN_RIGHT_CUT>=iend from above)
+ * now we truncate left.
+ */
+ if (iend-ibeg>DISPLAY_SIZE)
+ ibeg = iend-DISPLAY_SIZE;
+ }
+ }
+
+ /* (5) if the line is too short, we could fix it here. */
+
+ /* the extract MUST contain the localisation! */
+ psql_assert(ibeg<=loc && iend>loc);
+
+ /* (6) string to show cursor position under the extract. */
+ cursor = (char *) palloc(loc-ibeg+2);
+ for (i=0; i<loc-ibeg; i++)
+ cursor[i] = ' ';
+ cursor[i++] = '^';
+ cursor[i++] = '\0';
+
+ /* (7) now we show the resulting message. */
+
+ /* fix extract length for fprintf. */
+ wquery[qidx[iend]] = '\0';
+
+ /* translator: %s is a query extract as ' id INTEGER NOT NUL,' */
+ psql_error("QUERY: %s\n", &wquery[qidx[ibeg]]);
+
+ /* translator: %s is a cursor such as ' ^' */
+ psql_error("QUERY: %s on line %d\n", cursor, loc_line);
+
+ /* clean */
+ pfree(wquery);
+ pfree(qidx);
+ pfree(cursor);
+ }
+ }
+
/*
* AcceptResult
*
***************
*** 355,361 ****
* Returns true for valid result, false for error state.
*/
static bool
! AcceptResult(const PGresult *result)
{
bool OK = true;
--- 496,502 ----
* Returns true for valid result, false for error state.
*/
static bool
! AcceptResult(const PGresult *result, const char * query)
{
bool OK = true;
***************
*** 386,391 ****
--- 527,533 ----
if (!OK)
{
psql_error("%s", PQerrorMessage(pset.db));
+ ReportLocalisation(result, query);
CheckConnection();
}
***************
*** 449,455 ****
res = PQexec(pset.db, query);
! if (!AcceptResult(res) && res)
{
PQclear(res);
res = NULL;
--- 591,597 ----
res = PQexec(pset.db, query);
! if (!AcceptResult(res, query) && res)
{
PQclear(res);
res = NULL;
***************
*** 695,701 ****
results = PQexec(pset.db, query);
/* these operations are included in the timing result: */
! OK = (AcceptResult(results) && ProcessCopyResult(results));
if (pset.timing)
GETTIMEOFDAY(&after);
--- 837,843 ----
results = PQexec(pset.db, query);
/* these operations are included in the timing result: */
! OK = (AcceptResult(results, query) && ProcessCopyResult(results));
if (pset.timing)
GETTIMEOFDAY(&after);
*** ./src/test/regress/expected/constraints.out.orig Thu Mar 11 16:08:12 2004
--- ./src/test/regress/expected/constraints.out Thu Mar 11 16:08:20 2004
***************
*** 46,56 ****
--- 46,60 ----
-- test for extraneous comma
CREATE TABLE error_tbl (i int DEFAULT (100, ));
ERROR: syntax error at or near "," at character 43
+ QUERY: CREATE TABLE error_tbl (i int DEFAULT (100, ));
+ QUERY: ^ on line 1
-- this will fail because gram.y uses b_expr not a_expr for defaults,
-- to avoid a shift/reduce conflict that arises from NOT NULL being
-- part of the column definition syntax:
CREATE TABLE error_tbl (b1 bool DEFAULT 1 IN (1, 2));
ERROR: syntax error at or near "IN" at character 43
+ QUERY: CREATE TABLE error_tbl (b1 bool DEFAULT 1 IN (1, 2));
+ QUERY: ^ on line 1
-- this should work, however:
CREATE TABLE error_tbl (b1 bool DEFAULT (1 IN (1, 2)));
DROP TABLE error_tbl;
*** ./src/test/regress/expected/errors.out.orig Thu Mar 11 16:08:29 2004
--- ./src/test/regress/expected/errors.out Thu Mar 11 16:08:38 2004
***************
*** 23,34 ****
--- 23,38 ----
-- missing relation name
select;
ERROR: syntax error at or near ";" at character 7
+ QUERY: select;
+ QUERY: ^ on line 1
-- no such relation
select * from nonesuch;
ERROR: relation "nonesuch" does not exist
-- missing target list
select from pg_database;
ERROR: syntax error at or near "from" at character 8
+ QUERY: select from pg_database;
+ QUERY: ^ on line 1
-- bad name in target list
select nonesuch from pg_database;
ERROR: column "nonesuch" does not exist
***************
*** 41,46 ****
--- 45,52 ----
-- bad select distinct on syntax, distinct attribute missing
select distinct on (foobar) from pg_database;
ERROR: syntax error at or near "from" at character 29
+ QUERY: select distinct on (foobar) from pg_database;
+ QUERY: ^ on line 1
-- bad select distinct on syntax, distinct attribute not in target list
select distinct on (foobar) * from pg_database;
ERROR: column "foobar" does not exist
***************
*** 50,55 ****
--- 56,63 ----
-- missing relation name (this had better not wildcard!)
delete from;
ERROR: syntax error at or near ";" at character 12
+ QUERY: delete from;
+ QUERY: ^ on line 1
-- no such relation
delete from nonesuch;
ERROR: relation "nonesuch" does not exist
***************
*** 59,64 ****
--- 67,74 ----
-- missing relation name (this had better not wildcard!)
drop table;
ERROR: syntax error at or near ";" at character 11
+ QUERY: drop table;
+ QUERY: ^ on line 1
-- no such relation
drop table nonesuch;
ERROR: table "nonesuch" does not exist
***************
*** 69,74 ****
--- 79,86 ----
-- missing relation name
alter table rename;
ERROR: syntax error at or near ";" at character 19
+ QUERY: alter table rename;
+ QUERY: ^ on line 1
-- no such relation
alter table nonesuch rename to newnonesuch;
ERROR: relation "nonesuch" does not exist
***************
*** 123,131 ****
--- 135,147 ----
-- missing index name
drop index;
ERROR: syntax error at or near ";" at character 11
+ QUERY: drop index;
+ QUERY: ^ on line 1
-- bad index name
drop index 314159;
ERROR: syntax error at or near "314159" at character 12
+ QUERY: drop index 314159;
+ QUERY: ^ on line 1
-- no such index
drop index nonesuch;
ERROR: index "nonesuch" does not exist
***************
*** 135,146 ****
--- 151,168 ----
-- missing aggregate name
drop aggregate;
ERROR: syntax error at or near ";" at character 15
+ QUERY: drop aggregate;
+ QUERY: ^ on line 1
-- missing aggregate type
drop aggregate newcnt1;
ERROR: syntax error at or near ";" at character 23
+ QUERY: drop aggregate newcnt1;
+ QUERY: ^ on line 1
-- bad aggregate name
drop aggregate 314159 (int);
ERROR: syntax error at or near "314159" at character 16
+ QUERY: drop aggregate 314159 (int);
+ QUERY: ^ on line 1
-- bad aggregate type
drop aggregate newcnt (nonesuch);
ERROR: type "nonesuch" does not exist
***************
*** 156,164 ****
--- 178,190 ----
-- missing function name
drop function ();
ERROR: syntax error at or near "(" at character 15
+ QUERY: drop function ();
+ QUERY: ^ on line 1
-- bad function name
drop function 314159();
ERROR: syntax error at or near "314159" at character 15
+ QUERY: drop function 314159();
+ QUERY: ^ on line 1
-- no such function
drop function nonesuch();
ERROR: function nonesuch() does not exist
***************
*** 168,176 ****
--- 194,206 ----
-- missing type name
drop type;
ERROR: syntax error at or near ";" at character 10
+ QUERY: drop type;
+ QUERY: ^ on line 1
-- bad type name
drop type 314159;
ERROR: syntax error at or near "314159" at character 11
+ QUERY: drop type 314159;
+ QUERY: ^ on line 1
-- no such type
drop type nonesuch;
ERROR: type "nonesuch" does not exist
***************
*** 180,200 ****
--- 210,242 ----
-- missing everything
drop operator;
ERROR: syntax error at or near ";" at character 14
+ QUERY: drop operator;
+ QUERY: ^ on line 1
-- bad operator name
drop operator equals;
ERROR: syntax error at or near ";" at character 21
+ QUERY: drop operator equals;
+ QUERY: ^ on line 1
-- missing type list
drop operator ===;
ERROR: syntax error at or near ";" at character 18
+ QUERY: drop operator ===;
+ QUERY: ^ on line 1
-- missing parentheses
drop operator int4, int4;
ERROR: syntax error at or near "," at character 19
+ QUERY: drop operator int4, int4;
+ QUERY: ^ on line 1
-- missing operator name
drop operator (int4, int4);
ERROR: syntax error at or near "(" at character 15
+ QUERY: drop operator (int4, int4);
+ QUERY: ^ on line 1
-- missing type list contents
drop operator === ();
ERROR: syntax error at or near ")" at character 20
+ QUERY: drop operator === ();
+ QUERY: ^ on line 1
-- no such operator
drop operator === (int4);
ERROR: missing argument
***************
*** 209,214 ****
--- 251,258 ----
-- no such type1
drop operator = ( , int4);
ERROR: syntax error at or near "," at character 19
+ QUERY: drop operator = ( , int4);
+ QUERY: ^ on line 1
-- no such type1
drop operator = (nonesuch, int4);
ERROR: type nonesuch does not exist
***************
*** 218,244 ****
--- 262,300 ----
-- no such type2
drop operator = (int4, );
ERROR: syntax error at or near ")" at character 24
+ QUERY: drop operator = (int4, );
+ QUERY: ^ on line 1
--
-- DROP RULE
-- missing rule name
drop rule;
ERROR: syntax error at or near ";" at character 10
+ QUERY: drop rule;
+ QUERY: ^ on line 1
-- bad rule name
drop rule 314159;
ERROR: syntax error at or near "314159" at character 11
+ QUERY: drop rule 314159;
+ QUERY: ^ on line 1
-- no such rule
drop rule nonesuch on noplace;
ERROR: relation "noplace" does not exist
-- bad keyword
drop tuple rule nonesuch;
ERROR: syntax error at or near "tuple" at character 6
+ QUERY: drop tuple rule nonesuch;
+ QUERY: ^ on line 1
-- no such rule
drop instance rule nonesuch on noplace;
ERROR: syntax error at or near "instance" at character 6
+ QUERY: drop instance rule nonesuch on noplace;
+ QUERY: ^ on line 1
-- no such rule
drop rewrite rule nonesuch;
ERROR: syntax error at or near "rewrite" at character 6
+ QUERY: drop rewrite rule nonesuch;
+ QUERY: ^ on line 1
--
-- Check that division-by-zero is properly caught.
--
***************
*** 264,266 ****
--- 320,378 ----
ERROR: division by zero
select 1/0::float4;
ERROR: division by zero
+ --
+ -- Error Localisation
+ --
+ ;
+ xxx;
+ ERROR: syntax error at or near "xxx" at character 1
+ QUERY: xxx;
+ QUERY: ^ on line 1
+ CREATE foo;
+ ERROR: syntax error at or near "foo" at character 8
+ QUERY: CREATE foo;
+ QUERY: ^ on line 1
+ CREATE TABLE ;
+ ERROR: syntax error at or near ";" at character 14
+ QUERY: CREATE TABLE ;
+ QUERY: ^ on line 1
+ INSERT INTO foo VALUES(123) foo;
+ ERROR: syntax error at or near "foo" at character 29
+ QUERY: INSERT INTO foo VALUES(123) foo;
+ QUERY: ^ on line 1
+ INSERT INTO 123
+ VALUES(123);
+ ERROR: syntax error at or near "123" at character 13
+ QUERY: INSERT INTO 123
+ QUERY: ^ on line 1
+ INSERT INTO foo
+ VALUES(123) 123
+ ;
+ ERROR: syntax error at or near "123" at character 30
+ QUERY: VALUES(123) 123
+ QUERY: ^ on line 2
+ -- with a tab
+ CREATE TABLE foo
+ (id INT4 UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY,
+ id3 INTEGER NOT NUL,
+ id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL);
+ ERROR: syntax error at or near "NUL" at character 94
+ QUERY: id3 INTEGER NOT NUL,
+ QUERY: ^ on line 3
+ -- long line to be truncated on the left
+ CREATE TABLE foo(id INT4 UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY, id3 INTEGER
NOT NUL,
+ id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL);
+ ERROR: syntax error at or near "NUL" at character 90
+ QUERY: T NULL, id2 TEXT NOT NULL PRIMARY KEY, id3 INTEGER NOT NUL,
+ QUERY: ^ on line 1
+ -- long line to be truncated on the right
+ CREATE TABLE foo(
+ id3 INTEGER NOT NUL, id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL, id INT4
UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY);
+ ERROR: syntax error at or near "NUL" at character 35
+ QUERY: id3 INTEGER NOT NUL, id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQ
+ QUERY: ^ on line 2
+ -- long line to be truncated both ways
+ CREATE TABLE foo(id INT4 UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY, id3 INTEGER
NOT NUL, id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL);
+ ERROR: syntax error at or near "NUL" at character 90
+ QUERY: L, id2 TEXT NOT NULL PRIMARY KEY, id3 INTEGER NOT NUL, id4 I
+ QUERY: ^ on line 1
*** ./src/test/regress/expected/strings.out.orig Thu Mar 11 16:01:29 2004
--- ./src/test/regress/expected/strings.out Thu Mar 11 16:01:43 2004
***************
*** 19,24 ****
--- 19,26 ----
' - third line'
AS "Illegal comment within continuation";
ERROR: syntax error at or near "' - third line'" at character 75
+ QUERY: ' - third line'
+ QUERY: ^ on line 3
--
-- test conversions between various string types
-- E021-10 implicit casting among the character data types
*** ./src/test/regress/output/create_function_1.source.orig Mon Jul 28 02:09:16
2003
--- ./src/test/regress/output/create_function_1.source Thu Mar 11 16:07:03 2004
***************
*** 55,60 ****
--- 55,62 ----
CREATE FUNCTION test1 (int) RETURNS int LANGUAGE sql
AS 'not even SQL';
ERROR: syntax error at or near "not" at character 1
+ QUERY: CREATE FUNCTION test1 (int) RETURNS int LANGUAGE sql
+ QUERY: ^ on line 1
CREATE FUNCTION test1 (int) RETURNS int LANGUAGE sql
AS 'SELECT 1, 2, 3;';
ERROR: return type mismatch in function declared to return integer
*** ./src/test/regress/sql/errors.sql.orig Thu Mar 11 15:45:47 2004
--- ./src/test/regress/sql/errors.sql Thu Mar 11 15:46:59 2004
***************
*** 276,278 ****
--- 276,316 ----
select 1::float4/0;
select 1/0::float4;
+
+
+ --
+ -- Error Localisation
+ --
+ ;
+
+ xxx;
+
+ CREATE foo;
+
+ CREATE TABLE ;
+
+ INSERT INTO foo VALUES(123) foo;
+
+ INSERT INTO 123
+ VALUES(123);
+
+ INSERT INTO foo
+ VALUES(123) 123
+ ;
+
+ -- with a tab
+ CREATE TABLE foo
+ (id INT4 UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY,
+ id3 INTEGER NOT NUL,
+ id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL);
+
+ -- long line to be truncated on the left
+ CREATE TABLE foo(id INT4 UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY, id3 INTEGER
NOT NUL,
+ id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL);
+
+ -- long line to be truncated on the right
+ CREATE TABLE foo(
+ id3 INTEGER NOT NUL, id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL, id INT4
UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY);
+
+ -- long line to be truncated both ways
+ CREATE TABLE foo(id INT4 UNIQUE NOT NULL, id2 TEXT NOT NULL PRIMARY KEY, id3 INTEGER
NOT NUL, id4 INT4 UNIQUE NOT NULL, id5 TEXT UNIQUE NOT NULL);
---------------------------(end of broadcast)---------------------------
TIP 9: the planner will ignore your desire to choose an index scan if your
joining column's datatypes do not match