Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | rename configure.in to configure.ac. re-generate "configure" with latest TEA. Remove various end-of-line spacings |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
e02913c1fa2f7de488237919e05fa8b1 |
User & Date: | jan.nijtmans 2015-10-05 12:11:21.050 |
Context
2015-10-19
| ||
15:04 | Update `make dist` to account for configure.in -> configure.ac check-in: 0925ffe2b4 user: dgp tags: trunk | |
2015-10-05
| ||
12:11 | rename configure.in to configure.ac. re-generate "configure" with latest TEA. Remove various end-of-line spacings check-in: e02913c1fa user: jan.nijtmans tags: trunk | |
2015-05-08
| ||
14:20 | TEA update check-in: 0c01743448 user: dgp tags: trunk | |
Changes
Added .fossil-settings/crnl-glob.
> | 1 | win/*.vc |
Added .fossil-settings/ignore-glob.
> > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | config.log config.status Makefile pkgIndex.tcl win/Release_* win/Debug_* win/versions.vc *.a *.dll *.dylib *.exe *.o *.obj *.so |
Changes to ChangeLog.
︙ | ︙ | |||
191 192 193 194 195 196 197 | * tests/tdbcsqlite3.test: Changed the 'invalid path name' to a path name that is more likely actually to be invalid. Changed the tests for inappropriate access to an array variable not to expect failure. * doc/tdbc_sqlite3.n: Made changes so that NROFF formatting matches the Tcl standard. | | | | | | | | | | | | | | | | 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 | * tests/tdbcsqlite3.test: Changed the 'invalid path name' to a path name that is more likely actually to be invalid. Changed the tests for inappropriate access to an array variable not to expect failure. * doc/tdbc_sqlite3.n: Made changes so that NROFF formatting matches the Tcl standard. 2008-04-16 Kevin B. Kenny <[email protected]> * README: Advanced version number to 1.0b10 * configure.in: * library/tdbcsqlite3.tcl: * configure: autoconf-2.59 2008-02-16 Kevin B. Kenny <[email protected]> * README: Advanced version number to 1.0b9 * configure.in: * library/tdbcsqlite3.tcl: * configure: autoconf-2.59 2008-01-31 Kevin B. Kenny <[email protected]> * README: Advanced version number to 1.0b7 * configure.in: * configure: autoconf-2.59 * library/tdbcsqlite3.tcl: Changed ::errorCode returns to follow TDBC [try]-friendly convention TDBC errorClass sqlState driver detail 2008-01-05 Kevin B. Kenny <[email protected]> * README: Advanced version number to 1.0b6 * configure.in: * library/tdbcsqlite3.tcl: * configure: autoconf-2.59 2008-01-04 Kevin B. Kenny <[email protected]> * Makefile.in: Changes to make 'make dist' work * README: Advanced version number to 1.0b5 * configure.in: * library/tdbcsqlite3.tcl: * configure: autoconf-2.59 2008-12-30 Kevin B. Kenny <[email protected]> * README: Advanced version number to 1.0b4 * configure.in: * library/tdbcsqlite3.tcl: * configure: autoconf-2.59 2008-12-08 Kevin B. Kenny <[email protected]> * doc/tdbcsqlite3.n: Added a man page for the driver. * library/tdbcsqlite3.tcl (configure): Added a configurator for * tests/tdbcsqlite3.test (tdbc::sqlite3-19.*): SQLite3 connections and rudimentary test cases for connection configuration. 2008-12-07 Kevin B. Kenny <[email protected]> * Makefile.in: * aclocal.m4: * configure.in: * library/tdbcsqlite3.tcl: * license.terms: * pkgIndex.tcl.in: * tclconfig/*: * tests/all.tcl: * tests/tdbcsqlite3.test: Added infrastructure needed to make tdbc::sqlite3 a TEA-compliant module. Advanced revision number to 1.0b1 in preparation for release. 2008-06-11 Kevin B. Kenny <[email protected]> * library/tdbcsqlite3.tcl: Split [$resultset nextrow] into two primitive methods: [$resultset nextlist] and [$resultset nextdict]. 2008-05-13 Kevin B. Kenny <[email protected]> * tests/tdbcsqlite3.test: Added cleanup for the test for failing to open a database, in case we actually open it successfully. 2008-05-10 Kevin B. Kenny <[email protected]> * ChangeLog: Added a change log. * library/tdbcsqlite3.tcl: Added the 'columns' and 'tables' methods for schema introspection. * tests/tdbcsqlite3.test: Removed some superfluous debugging print. Renumbered tdbcsqlite3-9.9. Corrected the tests for column |
︙ | ︙ |
Changes to Makefile.in.
︙ | ︙ | |||
10 11 12 13 14 15 16 | # Copyright (c) 2002-2005 ActiveState Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # RCS: @(#) $Id: Makefile.in,v 1.64 2007/10/23 22:08:06 hobbs Exp $ | < < < < < < < | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | # Copyright (c) 2002-2005 ActiveState Corporation. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # RCS: @(#) $Id: Makefile.in,v 1.64 2007/10/23 22:08:06 hobbs Exp $ #======================================================================== # Nothing of the variables below this line should need to be changed. # Please check the TARGETS section below to make sure the make targets # are correct. #======================================================================== #======================================================================== |
︙ | ︙ | |||
261 262 263 264 265 266 267 | #======================================================================== #======================================================================== # Don't modify the file to clean here. Instead, set the "CLEANFILES" # variable in configure.in #======================================================================== | | | | 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 | #======================================================================== #======================================================================== # Don't modify the file to clean here. Instead, set the "CLEANFILES" # variable in configure.in #======================================================================== clean: -rm -f *.core *.core -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean: clean -rm -f *.tab.c -rm -f $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log config.status #======================================================================== # Install binary object libraries. On Windows this includes both .dll and # .lib files. Because the .lib files are not explicitly listed anywhere, # we need to deduce their existence from the .dll file of the same name. # Library files go into the lib directory. # In addition, this will generate the pkgIndex.tcl # file in the install location (assuming it can find a usable tclsh shell) # # You should not have to modify this target. #======================================================================== install-lib-binaries: @$(INSTALL_DATA_DIR) $(DESTDIR)$(pkgtmdir) $(INSTALL_DATA) $(srcdir)/library/tdbcsqlite3.tcl \ $(DESTDIR)$(pkgtmfile) Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status cd $(top_builddir) \ && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status |
︙ | ︙ |
Changes to README.
1 2 3 4 5 | README: tdbcsqlite3 This is the 1.0.3 source distribution of the bridge between Tcl Database Connectivity (TDBC) and SQLite3, an open-source SQL database with an in-process server. | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 | README: tdbcsqlite3 This is the 1.0.3 source distribution of the bridge between Tcl Database Connectivity (TDBC) and SQLite3, an open-source SQL database with an in-process server. TDBC and its drivers are available from a Fossil version control repository at http://tdbc.tcl.tk/ SQLite3 is available from http://sqlite.org/ RCS: @(#) $Id: $ |
︙ | ︙ |
Changes to aclocal.m4.
︙ | ︙ | |||
50 51 52 53 54 55 56 | TEAX_FOREACH(i, $@, [ # check for existence, be strict because it should be present! AS_IF([test ! -f "${srcdir}/$i"], [ AC_MSG_ERROR([could not find header file '${srcdir}/$i'])]) TEAX_LAPPEND(PKG_PRIVATE_HEADERS, $i)]) AC_SUBST(PKG_PRIVATE_HEADERS)]) | < < < < < < < < < < < < < | 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | TEAX_FOREACH(i, $@, [ # check for existence, be strict because it should be present! AS_IF([test ! -f "${srcdir}/$i"], [ AC_MSG_ERROR([could not find header file '${srcdir}/$i'])]) TEAX_LAPPEND(PKG_PRIVATE_HEADERS, $i)]) AC_SUBST(PKG_PRIVATE_HEADERS)]) AC_DEFUN([TEAX_SDX], [ AC_PATH_PROG(SDX, sdx, none) TEAX_IFEQ($SDX, none, [ AC_PATH_PROG(SDX_KIT, sdx.kit, none) TEAX_IFNEQ($SDX_KIT, none, [ # We assume that sdx.kit is on the path, and that the default # tclsh is activetcl |
︙ | ︙ |
Changes to configure.
︙ | ︙ | |||
1821 1822 1823 1824 1825 1826 1827 | as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then | | | 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 | as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CYGPATH="cygpath -m" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS |
︙ | ︙ | |||
1846 1847 1848 1849 1850 1851 1852 | fi EXEEXT=".exe" TEA_PLATFORM="windows" ;; *CYGWIN_*) | < | | 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 | fi EXEEXT=".exe" TEA_PLATFORM="windows" ;; *CYGWIN_*) EXEEXT=".exe" # CYGPATH and TEA_PLATFORM are determined later in LOAD_TCLCONFIG ;; *) CYGPATH=echo # Maybe we are cross-compiling.... case ${host_alias} in *mingw32*) EXEEXT=".exe" |
︙ | ︙ | |||
2955 2956 2957 2958 2959 2960 2961 | #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : | > | > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 | #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : TEA_PLATFORM="unix" CYGPATH=echo else TEA_PLATFORM="windows" # Extract the first word of "cygpath", so it can be a program name with args. set dummy cygpath; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CYGPATH+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CYGPATH"; then ac_cv_prog_CYGPATH="$CYGPATH" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CYGPATH="cygpath -m" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS test -z "$ac_cv_prog_CYGPATH" && ac_cv_prog_CYGPATH="echo" fi fi CYGPATH=$ac_cv_prog_CYGPATH if test -n "$CYGPATH"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CYGPATH" >&5 $as_echo "$CYGPATH" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext CC=$hold_cc { $as_echo "$as_me:${as_lineno-$LINENO}: result: $TEA_PLATFORM" >&5 $as_echo "$TEA_PLATFORM" >&6; } |
︙ | ︙ |
Name change from configure.in to configure.ac.
︙ | ︙ | |||
94 95 96 97 98 99 100 | # Finally, substitute all of the various values into the Makefile. # You may alternatively have a special pkgIndex.tcl.in or other files # which require substituting th AC variables in. Include these here. #-------------------------------------------------------------------- AC_OUTPUT([Makefile pkgIndex.tcl]) | | | 94 95 96 97 98 99 100 101 102 | # Finally, substitute all of the various values into the Makefile. # You may alternatively have a special pkgIndex.tcl.in or other files # which require substituting th AC variables in. Include these here. #-------------------------------------------------------------------- AC_OUTPUT([Makefile pkgIndex.tcl]) # This is a comment added to force the 'execute' permission to update # in the Fossil repository. |
Changes to library/tdbcsqlite3.tcl.
︙ | ︙ | |||
66 67 68 69 70 71 72 | set result {-encoding utf-8} lappend result -isolation if {[db onecolumn {PRAGMA read_uncommitted}]} { lappend result readuncommitted } else { lappend result serializable } | | | | 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | set result {-encoding utf-8} lappend result -isolation if {[db onecolumn {PRAGMA read_uncommitted}]} { lappend result readuncommitted } else { lappend result serializable } lappend result -readonly 0 lappend result -timeout $timeout return $result } elseif {[llength $args] == 1} { # Query a single option set option [lindex $args 0] switch -exact -- $option { -e - -en - -enc - -enco - -encod - -encodi - -encodin - -encoding { return utf-8 } -i - -is - -iso - -isol - -isola - -isolat - -isolati - -isolatio - -isolation { if {[db onecolumn {PRAGMA read_uncommitted}]} { return readuncommitted |
︙ | ︙ | |||
101 102 103 104 105 106 107 | } default { return -code error \ -errorcode [list TDBC GENERAL_ERROR HY000 SQLITE3 \ BADOPTION $option] \ "bad option \"$option\": must be\ -encoding, -isolation, -readonly or -timeout" | | | | | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | } default { return -code error \ -errorcode [list TDBC GENERAL_ERROR HY000 SQLITE3 \ BADOPTION $option] \ "bad option \"$option\": must be\ -encoding, -isolation, -readonly or -timeout" } } } elseif {[llength $args] % 2 != 0} { # Syntax error set cmd [lrange [info level 0] 0 end-[llength $args]] return -code error \ -errorcode [list TDBC GENERAL_ERROR HY000 \ SQLITE3 WRONGNUMARGS] \ "wrong # args, should be \" $cmd ?-option value?...\"" } # Set one or more options foreach {option value} $args { switch -exact -- $option { -e - -en - -enc - -enco - -encod - -encodi - -encodin - -encoding { if {$value ne {utf-8}} { return -code error \ -errorcode [list TDBC FEATURE_NOT_SUPPORTED 0A000 \ SQLITE3 ENCODING] \ "-encoding not supported. SQLite3 is always \ Unicode." } } -i - -is - -iso - -isol - -isola - -isolat - -isolati - -isolatio - -isolation { switch -exact -- $value { readu - readun - readunc - readunco - readuncom - readuncomm - readuncommi - readuncommit - readuncommitt - readuncommitte - readuncommitted { db eval {PRAGMA read_uncommitted = 1} } readc - readco - readcom - readcomm - readcommi - readcommit - readcommitt - readcommitte - readcommitted - rep - repe - repea - repeat - repeata - repeatab - |
︙ | ︙ | |||
328 329 330 331 332 333 334 | # # Parameters: # # foreignTable - Name of the table containing foreign keys. # argdict - Dictionary that may or may not contain a key, # 'primary', whose value is the name of a table that # must hold the primary key corresponding to the foreign | | | | 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 | # # Parameters: # # foreignTable - Name of the table containing foreign keys. # argdict - Dictionary that may or may not contain a key, # 'primary', whose value is the name of a table that # must hold the primary key corresponding to the foreign # key. If the 'primary' key is absent, all tables are # candidates. # Results: # # Returns the list of foreign keys that meed the specified # conditions, as a list of dictionaries, each containing the # keys, foreignConstraintName, foreignTable, foreignColumn, # primaryTable, primaryColumn, and ordinalPosition. Note that the # foreign constraint name is constructed arbitrarily, since SQLite3 # does not report this information. method ForeignKeysForTable {foreignTable argdict} { set result {} set n 0 # Go through the foreign keys in the given table, looking for # ones that refer to the primary table (if one is given), or # for any primary keys if none is given. my foreach row "PRAGMA foreign_key_list($foreignTable)" { if {(![dict exists $argdict primary]) || ([string tolower [dict get $row table]] eq [dict get $argdict primary])} { |
︙ | ︙ | |||
374 375 376 377 378 379 380 | deleteAction on_delete updateAction on_update } { if {[dict exists $row $from]} { dict set rrow $to [dict get $row $from] } } | | | 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 | deleteAction on_delete updateAction on_update } { if {[dict exists $row $from]} { dict set rrow $to [dict get $row $from] } } # Add the newly-constucted dictionary to the result list lappend result $rrow } } return $result |
︙ | ︙ | |||
416 417 418 419 420 421 422 | method rollback {} { db eval {ROLLBACK} } # The 'transaction' method executes a script as a single transaction. # We override the 'transaction' method of the base class, since SQLite3 # has a faster implementation of the same thing. (The base class's generic | | | | 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 | method rollback {} { db eval {ROLLBACK} } # The 'transaction' method executes a script as a single transaction. # We override the 'transaction' method of the base class, since SQLite3 # has a faster implementation of the same thing. (The base class's generic # method should also work.) # (Don't overload the base class method, because 'break', 'continue' # and 'return' in the transaction body don't work!) #method transaction {script} { # uplevel 1 [list {*}[namespace code db] transaction $script] #} method prepare {sqlCode} { set result [next $sqlCode] return $result } method getDBhandle {} { return [namespace which db] } } #------------------------------------------------------------------------------ # |
︙ | ︙ | |||
450 451 452 453 454 455 456 | superclass ::tdbc::statement variable Params db sql # The constructor accepts the handle to the connection and the SQL # code for the statement to prepare. All that it does is to parse the | | | 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 | superclass ::tdbc::statement variable Params db sql # The constructor accepts the handle to the connection and the SQL # code for the statement to prepare. All that it does is to parse the # statement and store it. The parse is used to support the # 'params' and 'paramtype' methods. constructor {connection sqlcode} { next set Params {} set db [$connection getDBhandle] set sql $sqlcode |
︙ | ︙ |
Changes to license.terms.
︙ | ︙ | |||
23 24 25 26 27 28 29 | FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" | | | | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" in the software and related documentation as defined in the Federal Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you are acquiring the software on behalf of the Department of Defense, the software shall be classified as "Commercial Computer Software" and the Government shall have only "Restricted Rights" as defined in Clause 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the authors grant the U.S. Government and others acting in its behalf permission to use and distribute the software in accordance with the terms specified in this license. |
Changes to tests/all.tcl.
1 2 3 4 5 6 7 8 | # all.tcl -- # # This file contains a top-level script to run all of the Tcl # tests. Execute it by invoking "source all.test" when running tcltest # in this directory. # # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | # all.tcl -- # # This file contains a top-level script to run all of the Tcl # tests. Execute it by invoking "source all.test" when running tcltest # in this directory. # # Copyright (c) 1998-2000 by Scriptics Corporation. # All rights reserved. # # RCS: @(#) $Id: all.tcl,v 1.4 2004/07/04 22:04:20 patthoyts Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import ::tcltest::* } |
︙ | ︙ |
Changes to tests/tdbcsqlite3.test.
︙ | ︙ | |||
83 84 85 86 87 88 89 | -returnCodes error -match glob -result {wrong # args*} } test tdbc::sqlite3-2.2 {don't make a statement without a connection} {*}{ -body { | | | | 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | -returnCodes error -match glob -result {wrong # args*} } test tdbc::sqlite3-2.2 {don't make a statement without a connection} {*}{ -body { tdbc::sqlite3::statement create stmt rubbish moreRubbish } -returnCodes error -match glob -result {invalid command name*} } test tdbc::sqlite3-2.3 {don't make a statement without a connection} {*}{ -body { tdbc::sqlite3::statement create stmt oo::class moreRubbish } -returnCodes error -match glob -result {unknown method*} } test tdbc::sqlite3-3.0 {prepare a valid statement} {*}{ |
︙ | ︙ | |||
457 458 459 460 461 462 463 | -cleanup { rename $stmt {} } -returnCodes error -match glob -result {wrong # args*} } | | | 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 | -cleanup { rename $stmt {} } -returnCodes error -match glob -result {wrong # args*} } test tdbc::sqlite3-5.3 {paramtype - bad type} {*}{ -setup { set stmt [::db prepare { INSERT INTO people(idnum, name, info) values(:idnum, :name, 0) }] } -body { |
︙ | ︙ | |||
635 636 637 638 639 640 641 | } -cleanup { rename $rs {} rename $stmt {} } -result {fred wilma pebbles barney betty bam-bam} } | | | 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 | } -cleanup { rename $rs {} rename $stmt {} } -result {fred wilma pebbles barney betty bam-bam} } test tdbc::sqlite3-8.2 {nextrow - as lists} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people ORDER BY idnum }] set rs [$stmt execute] } |
︙ | ︙ | |||
750 751 752 753 754 755 756 | list [$rs nextrow -as lists -- row] $row [$rs nextrow -as lists -- row] } -cleanup { $stmt close } -result {1 {1 fred {}} 0} } | | | 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 | list [$rs nextrow -as lists -- row] $row [$rs nextrow -as lists -- row] } -cleanup { $stmt close } -result {1 {1 fred {}} 0} } test tdbc::sqlite3-9.1 {rs foreach var script} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people WHERE name LIKE 'b%' }] set rs [$stmt execute] } |
︙ | ︙ | |||
1483 1484 1485 1486 1487 1488 1489 | $rs foreach row } -cleanup { $rs close $stmt close } -returnCodes error | | | | | | | | | 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 | $rs foreach row } -cleanup { $rs close $stmt close } -returnCodes error -result {wrong # args*} -match glob } test tdbc::sqlite3-9.38 {stmt foreach - too few args} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people }] } -body { $stmt foreach row } -cleanup { $stmt close } -returnCodes error -result {wrong # args*} -match glob } test tdbc::sqlite3-9.39 {db foreach - too few args} {*}{ -body { db foreach row { SELECT idnum, name FROM people } } -returnCodes error -result {wrong # args*} -match glob } test tdbc::sqlite3-9.40 {rs foreach - too many args} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people }] set rs [$stmt execute] } -body { $rs foreach row do something } -cleanup { $rs close $stmt close } -returnCodes error -result {wrong # args*} -match glob } test tdbc::sqlite3-9.41 {stmt foreach - too many args} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people }] } -body { $stmt foreach row do something else } -cleanup { $stmt close } -returnCodes error -result {wrong # args*} -match glob } test tdbc::sqlite3-9.42 {db foreach - too many args} {*}{ -body { db foreach row { SELECT idnum, name FROM people } {} do something } -returnCodes error -result {wrong # args*} -match glob } test tdbc::sqlite3-10.1 {allrows - no args} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people WHERE name LIKE 'b%' |
︙ | ︙ | |||
1642 1643 1644 1645 1646 1647 1648 | test tdbc::sqlite3-10.6 {allrows --} {*}{ -body { db allrows -- { SELECT idnum, name FROM people WHERE name LIKE 'b%' } } -result {{idnum 4 name barney} {idnum 5 name betty} {idnum 6 name bam-bam}} | | | 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 | test tdbc::sqlite3-10.6 {allrows --} {*}{ -body { db allrows -- { SELECT idnum, name FROM people WHERE name LIKE 'b%' } } -result {{idnum 4 name barney} {idnum 5 name betty} {idnum 6 name bam-bam}} } test tdbc::sqlite3-10.7 {allrows -as lists} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people WHERE name LIKE 'b%' }] set rs [$stmt execute] |
︙ | ︙ | |||
1684 1685 1686 1687 1688 1689 1690 | -body { db allrows -as lists { SELECT idnum, name FROM people WHERE name LIKE 'b%' } } -result {{4 barney} {5 betty} {6 bam-bam}} } | | | 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 | -body { db allrows -as lists { SELECT idnum, name FROM people WHERE name LIKE 'b%' } } -result {{4 barney} {5 betty} {6 bam-bam}} } test tdbc::sqlite3-10.10 {allrows -as lists --} {*}{ -setup { set stmt [::db prepare { SELECT idnum, name FROM people WHERE name LIKE 'b%' }] set rs [$stmt execute] } |
︙ | ︙ | |||
1841 1842 1843 1844 1845 1846 1847 | -body { $stmt allrows {} rubbish } -cleanup { $stmt close } -returnCodes error | | | 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 | -body { $stmt allrows {} rubbish } -cleanup { $stmt close } -returnCodes error -result {wrong # args*} -match glob } test tdbc::sqlite3-10.21 {bad -as} {*}{ -body { db allrows -as trash { SELECT idnum, name FROM people |
︙ | ︙ | |||
2040 2041 2042 2043 2044 2045 2046 | -result {{name fred name#2 wilma name#3 pebbles}} } test tdbc::sqlite3-13.4 {duplicate column names} {*}{ -constraints knownBug -body { ::db allrows -as dicts -- { | | | 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 | -result {{name fred name#2 wilma name#3 pebbles}} } test tdbc::sqlite3-13.4 {duplicate column names} {*}{ -constraints knownBug -body { ::db allrows -as dicts -- { select a.name, b.name, c.name as "name#2" from people a, people b, people c where a.idnum = 1 and b.idnum = a.idnum + 1 and c.idnum = a.idnum + 2 } } -result {{name fred name#2 wilma name#2#1 pebbles}} |
︙ | ︙ | |||
2433 2434 2435 2436 2437 2438 2439 | -result {} } test tdbc::sqlite3-16.3 {enumerate database tables} {*}{ -body { set dict [::db tables] list [dict exists $dict people] [dict exists $dict property] | | | | 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 | -result {} } test tdbc::sqlite3-16.3 {enumerate database tables} {*}{ -body { set dict [::db tables] list [dict exists $dict people] [dict exists $dict property] } -result {1 0} } test tdbc::sqlite3-16.4 {enumerate database tables} {*}{ -body { set dict [::db tables p%] list [dict exists $dict people] [dict exists $dict property] } -result {1 0} } test tdbc::sqlite3-17.1 {database columns - wrong # args} {*}{ -body { set dict [::db columns people % rubbish] } |
︙ | ︙ | |||
2500 2501 2502 2503 2504 2505 2506 | } -result {idnum integer 0 0 1 info integer 0 0 1} } test tdbc::sqlite3-18.1 {$statement params - excess arg} {*}{ -setup { set s [::db prepare { | | | | | | | | 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 2562 2563 2564 2565 2566 2567 | } -result {idnum integer 0 0 1 info integer 0 0 1} } test tdbc::sqlite3-18.1 {$statement params - excess arg} {*}{ -setup { set s [::db prepare { SELECT name FROM people WHERE name LIKE :pattern AND idnum >= :minid }] $s paramtype minid numeric 10 0 $s paramtype pattern varchar 40 } -body { $s params excess } -cleanup { rename $s {} } -returnCodes error -match glob -result {wrong # args*} } test tdbc::sqlite3-18.2 {$statement params - no params} {*}{ -setup { set s [::db prepare { SELECT name FROM people }] } -body { $s params } -cleanup { rename $s {} } -result {} } test tdbc::sqlite3-18.3 {$statement params - excess arg} {*}{ -setup { set s [::db prepare { SELECT name FROM people WHERE name LIKE :pattern AND idnum >= :minid }] $s paramtype minid numeric 10 0 $s paramtype pattern varchar 40 } -body { set d [$s params] list \ [dict get $d minid direction] \ [dict get $d minid type] \ [dict get $d minid precision] \ [dict get $d minid scale] \ [dict get $d pattern direction] \ [dict get $d pattern type] \ [dict get $d pattern precision] } -cleanup { rename $s {} } -result {in Tcl_Obj 0 0 in Tcl_Obj 0} } test tdbc::sqlite3-19.1 {$connection configure - no args} \ |
︙ | ︙ | |||
2707 2708 2709 2710 2711 2712 2713 | test tdbc::sqlite3-23.1 {Primary keys - no arg} {*}{ -body { ::db primarykeys } -returnCodes error -match glob -result {wrong # args*} | | | 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 | test tdbc::sqlite3-23.1 {Primary keys - no arg} {*}{ -body { ::db primarykeys } -returnCodes error -match glob -result {wrong # args*} } test tdbc::sqlite3-23.2 {Primary keys - no primary key} {*}{ -body { ::db primarykeys d } -result {} } test tdbc::sqlite3-23.3 {Primary keys - simple primary key} {*}{ |
︙ | ︙ |
Changes to win/makefile.vc.
1 2 3 4 5 | #------------------------------------------------------------- -*- makefile -*- # makefile.vc -- # # Microsoft Visual C++ makefile for use with nmake.exe v1.62+ (VC++ 5.0+) # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 | #------------------------------------------------------------- -*- makefile -*- # makefile.vc -- # # Microsoft Visual C++ makefile for use with nmake.exe v1.62+ (VC++ 5.0+) # # This makefile is based upon the Tcl 8.6 Makefile.vc and modified to # make it suitable as a general package makefile. Look for the word EDIT # which marks sections that may need modification. As a minumum you will # need to change the PROJECT, DOTVERSION and DLLOBJS variables to values # relevant to your package. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
︙ | ︙ |
Changes to win/rules.vc.
︙ | ︙ |