diff --git a/manifest b/manifest index c1cc5833ee..233fc3ffe5 100644 --- a/manifest +++ b/manifest @@ -1,5 +1,5 @@ -C :-)\s(CVS\s81) -D 2000-06-08T15:10:47 +C :-)\s(CVS\s82) +D 2000-06-08T16:26:24 F COPYRIGHT 74a8a6531a42e124df07ab5599aad63870fa0bd4 F Makefile.in 17ba1ccf8d2d40c627796bba8f72952365d6d644 F README 51f6a4e7408b34afa5bc1c0485f61b6a4efb6958 @@ -13,38 +13,38 @@ F src/delete.c c267b93f7ccb5493b677fa18201880267c699aa8 F src/expr.c 5790665132658362f1416755cc4060215c781e90 F src/insert.c ac4edfff474589c00b2490f206317dc5822122e5 F src/main.c e3297835b8e38ca726ac73f2c2bdb7cf08103197 -F src/parse.y 389687d20f2ac914205ebbd58cef72b8c70322b2 +F src/parse.y 03d246c261296ec85a72225ae3be999db1663e6d F src/select.c 3a12d76074fa57d7c39c4436bdeb8d7e1eb6fdf4 F src/shell.c 3f4afc39a36e4824e8aa262623fd03568874799e F src/sqlite.h 58da0a8590133777b741f9836beaef3d58f40268 F src/sqliteInt.h 0aac58ed2e9fe46f24411e2e012fe85cd3457129 F src/tclsqlite.c 9f358618ae803bedf4fb96da5154fd45023bc1f7 -F src/tokenize.c cb9eacd12548ee1ae7089eb3177b38851d7f0a1f +F src/tokenize.c 344754f81b55da5b19ea9504dfa16a9de68cd5ba F src/update.c d8d90df714bac99c68446a0c49f3d957ca6fc3c8 F src/util.c 38e4bb5edf6fa92e677698c45785bf73c69b9e9f -F src/vdbe.c 8a92c95cf66ff67e8fc122d6892b08b0e7801d9c +F src/vdbe.c cc5598c00935ec9ec349467487182ddce9c00bce F src/vdbe.h 8f79f57c66ce1030f6371ff067b326d627a52c6d F src/where.c c9b90e7672f4662a83ef9a27a193020d69fe034c F test/all.test 0950c135cab7e60c07bd745ccfad1476211e5bd7 F test/copy.test b77a1214bd7756f2849d5c4fa6e715c0ff0c34eb F test/dbbe.test 0a8e4293cf816e590dcbb01be4cd4e8f7f95bdc8 F test/delete.test 30edd2c7484274fb2e7dbc4a1ac769bb330b322e -F test/expr.test 7d017f1aa64c981b161408a015424cd90592bc16 +F test/expr.test 2209a2b06ea10ebb844b2c4ae08fe8345e5b87b2 F test/in.test 962a605b6a3a619214f84d1950dfc44fcf0d8b8f F test/index.test 9f99dca2d904b8de330863a978587f136e2df65a F test/insert.test 66f4c3bd600fec8eb1e733b928cbe6fa885eff0c F test/insert2.test 732405e30331635af8d159fccabe835eea5cd0c6 -F test/main.test cf1e9035aca55da9ef6d3b73ab36c54b7514b83f +F test/main.test a6c92ebc66b990b601a2f67bbd02404310a820e4 F test/select1.test 64703852af34c85bb31b0a74bd73b340e8267f42 F test/select2.test 3cd3c0f9d67e98b1b54af5853679b4a111224410 F test/select3.test a9234b8424b6c6d71de534f43b91ade9be68e9cc F test/select4.test cb5374d7c87680e294ac749307459a5cc547609d -F test/select5.test b6f8b6bef467764a3edaea4e7cb9b0eb8f02ccd8 +F test/select5.test 80ea257ce35e736c559bc6cd342361974e60a979 F test/sort.test d582086c4bb7df3fbf50aa72e69d7e235e9f8e31 F test/subselect.test bf8b251a92fb091973c1c469ce499dc9648a41d5 F test/table.test d3e01e4916a99ade7d8f1d534ee1b36d57c00490 F test/tester.tcl 95b286791e6256bb6db0165f9342c70fff549a62 -F test/update.test 69459302ea75cafac1479e60b0e36efb88123c0e +F test/update.test b3f45984cd2b3aea6f24b6d77dc1e721ccaba244 F test/vacuum.test 8becf5cfeb897108b35cdd996793e7f1df2f28fd F tool/gdbmdump.c 529e67c78d920606ba196326ea55b57b75fcc82b F tool/lemon.c 1f0e96515c12e9e413f5b8fdebc79ddcf18ddc9d @@ -57,7 +57,7 @@ F www/c_interface.tcl 9ac800854272db5fe439e07b7435b243a5422293 F www/changes.tcl 04e66b4257589ff78a7e1de93e9dda4725fb03d6 F www/index.tcl 52e29a4eeda8d59e91af43c61fef177c5f2ffd53 F www/sqlite.tcl 2f933ce18cffd34a0a020a82435ab937137970fd -P bf98cf82a73c54c4eced04994bb1a019844dfc03 -R 147a3f5a92c9643c1c974e90b0fb5f44 +P 61c381e7e6c85619b7b494417956fc209c5b7b84 +R f79443a31154f60b0063b7fad1afe1ae U drh -Z 583fb9f51c189b28ce13ee596d8aedf2 +Z a7a98045f3e2dce83769476787f9e43e diff --git a/manifest.uuid b/manifest.uuid index 4d60e0e2ad..18cd5ce85d 100644 --- a/manifest.uuid +++ b/manifest.uuid @@ -1 +1 @@ -61c381e7e6c85619b7b494417956fc209c5b7b84 \ No newline at end of file +33355b2d8d23b51e917961b7fb336bc1d454497f \ No newline at end of file diff --git a/src/parse.y b/src/parse.y index 69f75e9525..2cb4c2ea7d 100644 --- a/src/parse.y +++ b/src/parse.y @@ -26,14 +26,13 @@ ** the parser. Lemon will also generate a header file containing ** numeric codes for all of the tokens. ** -** @(#) $Id: parse.y,v 1.18 2000/06/08 15:10:47 drh Exp $ +** @(#) $Id: parse.y,v 1.19 2000/06/08 16:26:24 drh Exp $ */ %token_prefix TK_ %token_type {Token} %extra_argument {Parse *pParse} %syntax_error { - sqliteSetNString(&pParse->zErrMsg,"syntax error near \"",0,TOKEN.z,TOKEN.n, - "\"", 1, 0); + sqliteSetString(&pParse->zErrMsg,"syntax error",0); pParse->sErrToken = TOKEN; } %name sqliteParser diff --git a/src/tokenize.c b/src/tokenize.c index b0f197efae..c583930dde 100644 --- a/src/tokenize.c +++ b/src/tokenize.c @@ -27,7 +27,7 @@ ** individual tokens and sends those tokens one-by-one over to the ** parser for analysis. ** -** $Id: tokenize.c,v 1.10 2000/06/08 13:36:40 drh Exp $ +** $Id: tokenize.c,v 1.11 2000/06/08 16:26:24 drh Exp $ */ #include "sqliteInt.h" #include @@ -211,7 +211,7 @@ int sqliteGetToken(const char *z, int *tokenType){ case '!': { if( z[1]!='=' ){ *tokenType = TK_ILLEGAL; - return 1; + return 2; }else{ *tokenType = TK_NE; return 2; @@ -245,23 +245,23 @@ int sqliteGetToken(const char *z, int *tokenType){ } case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': { + *tokenType = TK_INTEGER; for(i=1; z[i] && isdigit(z[i]); i++){} if( z[i]=='.' ){ i++; while( z[i] && isdigit(z[i]) ){ i++; } - if( (z[i]=='e' || z[i]=='E') && + *tokenType = TK_FLOAT; + } + if( (z[i]=='e' || z[i]=='E') && ( isdigit(z[i+1]) || ((z[i+1]=='+' || z[i+1]=='-') && isdigit(z[i+2])) ) - ){ - i += 2; - while( z[i] && isdigit(z[i]) ){ i++; } - } + ){ + i += 2; + while( z[i] && isdigit(z[i]) ){ i++; } *tokenType = TK_FLOAT; }else if( z[0]=='.' ){ *tokenType = TK_FLOAT; - }else{ - *tokenType = TK_INTEGER; } return i; } @@ -363,8 +363,8 @@ int sqliteRunParser(Parse *pParse, char *zSql, char **pzErrMsg){ break; } case TK_ILLEGAL: - sqliteSetNString(pzErrMsg, "illegal token: \"", -1, - pParse->sLastToken.z, pParse->sLastToken.n, 0); + sqliteSetNString(pzErrMsg, "unrecognized token: \"", -1, + pParse->sLastToken.z, pParse->sLastToken.n, "\"", 1, 0); nErr++; break; default: diff --git a/src/vdbe.c b/src/vdbe.c index 332eb0b9f5..b6b0759274 100644 --- a/src/vdbe.c +++ b/src/vdbe.c @@ -41,7 +41,7 @@ ** But other routines are also provided to help in building up ** a program instruction by instruction. ** -** $Id: vdbe.c,v 1.29 2000/06/08 15:10:48 drh Exp $ +** $Id: vdbe.c,v 1.30 2000/06/08 16:26:25 drh Exp $ */ #include "sqliteInt.h" #include @@ -426,7 +426,7 @@ static int AggInsert(Agg *p, char *zKey){ AggElem *pElem; int i; if( p->nHash <= p->nElem*2 ){ - AggRehash(p, p->nElem*2 + 103); + AggRehash(p, p->nElem*2 + 19); } if( p->nHash==0 ) return 1; pElem = sqliteMalloc( sizeof(AggElem) + strlen(zKey) + 1 + diff --git a/test/expr.test b/test/expr.test index 56744cd0a7..d6341958a2 100644 --- a/test/expr.test +++ b/test/expr.test @@ -23,7 +23,7 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing expressions. # -# $Id: expr.test,v 1.6 2000/06/07 15:23:56 drh Exp $ +# $Id: expr.test,v 1.7 2000/06/08 16:26:25 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -144,6 +144,7 @@ test_expr expr-5.5b {t1='ac', t2='A%C'} {t1 LIKE t2} 1 test_expr expr-5.6 {t1='abxyzzyc', t2='A%C'} {t1 LIKE t2} 1 test_expr expr-5.7 {t1='abxyzzy', t2='A%C'} {t1 LIKE t2} 0 test_expr expr-5.8 {t1='abxyzzycx', t2='A%C'} {t1 LIKE t2} 0 +test_expr expr-5.8b {t1='abxyzzycy', t2='A%CX'} {t1 LIKE t2} 0 test_expr expr-5.9 {t1='abc', t2='A%_C'} {t1 LIKE t2} 1 test_expr expr-5.9b {t1='ac', t2='A%_C'} {t1 LIKE t2} 0 test_expr expr-5.10 {t1='abxyzzyc', t2='A%_C'} {t1 LIKE t2} 1 @@ -161,7 +162,20 @@ test_expr expr-6.8 {t1='abxyzzyc', t2='a*c'} {t1 GLOB t2} 1 test_expr expr-6.9 {t1='abxyzzy', t2='a*c'} {t1 GLOB t2} 0 test_expr expr-6.10 {t1='abxyzzycx', t2='a*c'} {t1 GLOB t2} 0 test_expr expr-6.11 {t1='abc', t2='xyz'} {t1 NOT GLOB t2} 1 -test_expr expr-6.12 {t1='abc', t2='a?c'} {t1 NOT GLOB t2} 0 +test_expr expr-6.12 {t1='abc', t2='abc'} {t1 NOT GLOB t2} 0 +test_expr expr-6.13 {t1='abc', t2='a[bx]c'} {t1 GLOB t2} 1 +test_expr expr-6.14 {t1='abc', t2='a[cx]c'} {t1 GLOB t2} 0 +test_expr expr-6.15 {t1='abc', t2='a[a-d]c'} {t1 GLOB t2} 1 +test_expr expr-6.16 {t1='abc', t2='a[^a-d]c'} {t1 GLOB t2} 0 +test_expr expr-6.17 {t1='abc', t2='a[A-Dc]c'} {t1 GLOB t2} 0 +test_expr expr-6.18 {t1='abc', t2='a[^A-Dc]c'} {t1 GLOB t2} 1 +test_expr expr-6.19 {t1='abc', t2='a[]b]c'} {t1 GLOB t2} 1 +test_expr expr-6.20 {t1='abc', t2='a[^]b]c'} {t1 GLOB t2} 0 +test_expr expr-6.21 {t1='abcdefg', t2='a*[de]g'} {t1 GLOB t2} 0 +test_expr expr-6.22 {t1='abcdefg', t2='a*[^de]g'} {t1 GLOB t2} 1 +test_expr expr-6.23 {t1='abcdefg', t2='a*?g'} {t1 GLOB t2} 1 +test_expr expr-6.24 {t1='ac', t2='a*c'} {t1 GLOB t2} 1 +test_expr expr-6.25 {t1='ac', t2='a*?c'} {t1 GLOB t2} 0 # The sqliteExprIfFalse and sqliteExprIfTrue routines are only # executed as part of a WHERE clause. Create a table suitable diff --git a/test/main.test b/test/main.test index 0052921ca1..07763e6a29 100644 --- a/test/main.test +++ b/test/main.test @@ -23,7 +23,7 @@ # This file implements regression tests for SQLite library. The # focus of this file is exercising the code in main.c. # -# $Id: main.test,v 1.1 2000/06/07 15:11:27 drh Exp $ +# $Id: main.test,v 1.2 2000/06/08 16:26:25 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -62,4 +62,49 @@ do_test main-2.0 { lappend v $msg } {0 {}} +# Here are some tests for tokenize.c. +# +do_test main-3.1 { + catch {db close} + file delete -force testdb + sqlite db testdb + set v [catch {execsql {SELECT * from T1 where x!!5}} msg] + lappend v $msg +} {1 {unrecognized token: "!!"}} +do_test main-3.2 { + catch {db close} + file delete -force testdb + sqlite db testdb + set v [catch {execsql {SELECT * from T1 where ~x}} msg] + lappend v $msg +} {1 {unrecognized token: "~"}} + +do_test main-3.3 { + catch {db close} + file delete -force testdb + sqlite db testdb + execsql { + create table T1(X REAL); + insert into T1 values(.5); + insert into T1 values(0.5e2); + insert into T1 values(0.5e-002); + insert into T1 values(5e-002); + insert into T1 values(-5.0e-2); + insert into T1 values(-5.1e-2); + insert into T1 values(.5e2); + insert into T1 values(.5E+02); + insert into T1 values(5E+02); + insert into T1 values(5.E+03); + select x*10 from T1 order by x*5; + } +} {-0.51 -0.5 0.05 0.5 5 500 500 500 5000 50000} +do_test main-3.4 { + set v [catch {execsql {create bogus}} msg] + lappend v $msg +} {1 {near "bogus": syntax error}} +do_test main-3.5 { + set v [catch {execsql {create}} msg] + lappend v $msg +} {1 {near "create": syntax error}} + finish_test diff --git a/test/select5.test b/test/select5.test index 0fa0850d81..f6bd150979 100644 --- a/test/select5.test +++ b/test/select5.test @@ -24,7 +24,7 @@ # focus of this file is testing aggregate functions and the # GROUP BY and HAVING clauses of SELECT statements. # -# $Id: select5.test,v 1.2 2000/06/08 11:25:01 drh Exp $ +# $Id: select5.test,v 1.3 2000/06/08 16:26:25 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -59,4 +59,53 @@ do_test select5-1.3 { execsql {SELECT count(*), y FROM t1 GROUP BY y ORDER BY count(*), y} } {1 9 1 10 2 8 4 7 8 6 15 5} +# Some error messages associated with aggregates and GROUP BY +# +do_test select5-2.1 { + set v [catch {execsql { + SELECT y, count(*) FROM t1 GROUP BY z ORDER BY y + }} msg] + lappend v $msg +} {1 {no such field: z}} +do_test select5-2.2 { + set v [catch {execsql { + SELECT y, count(*) FROM t1 GROUP BY z(y) ORDER BY y + }} msg] + lappend v $msg +} {1 {no such function: z}} +do_test select5-2.3 { + set v [catch {execsql { + SELECT y, count(*) FROM t1 GROUP BY y HAVING count(*)<3 ORDER BY y + }} msg] + lappend v $msg +} {0 {8 2 9 1 10 1}} +do_test select5-2.4 { + set v [catch {execsql { + SELECT y, count(*) FROM t1 GROUP BY y HAVING z(y)<3 ORDER BY y + }} msg] + lappend v $msg +} {1 {no such function: z}} +do_test select5-2.5 { + set v [catch {execsql { + SELECT y, count(*) FROM t1 GROUP BY y HAVING count(*)100 + } +} {} + finish_test diff --git a/test/update.test b/test/update.test index cd0a2047d8..94e24205c8 100644 --- a/test/update.test +++ b/test/update.test @@ -23,7 +23,7 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing the UPDATE statement. # -# $Id: update.test,v 1.1 2000/05/30 03:12:22 drh Exp $ +# $Id: update.test,v 1.2 2000/06/08 16:26:25 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -110,6 +110,32 @@ do_test update-3.12 { execsql {SELECT * FROM test1 WHERE f1=1025} } {1025 11} +# Error messages +# +do_test update-4.1 { + set v [catch {execsql { + UPDATE test1 SET x=11 WHERE f1=1025 + }} msg] + lappend v $msg +} {1 {no such field: x}} +do_test update-4.2 { + set v [catch {execsql { + UPDATE test1 SET f1=x(11) WHERE f1=1025 + }} msg] + lappend v $msg +} {1 {no such function: x}} +do_test update-4.3 { + set v [catch {execsql { + UPDATE test1 SET f1=11 WHERE x=1025 + }} msg] + lappend v $msg +} {1 {no such field: x}} +do_test update-4.4 { + set v [catch {execsql { + UPDATE test1 SET f1=11 WHERE x(f1)=1025 + }} msg] + lappend v $msg +} {1 {no such function: x}}