Wapp

Check-in [719ed9a20d]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Show both the SQLite version number and the TCL version number with the -v option to wapptclsh.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 719ed9a20dcb051443b2c828037229b16da1781f6cdc7da08f8a3d5160101e90
User & Date: drh 2024-11-06 16:24:49.930
Context
2024-11-06
17:09
If a command named "wapp-crash-handler" exists and an application error occurs, invoke the wapp-crash-handler command to generate the error message. (check-in: f7b5b7566a user: drh tags: trunk)
16:24
Show both the SQLite version number and the TCL version number with the -v option to wapptclsh. (check-in: 719ed9a20d user: drh tags: trunk)
2024-10-18
16:07
Update the built-in SQLite to the latest 3.47.0 beta. (check-in: ba52964f32 user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to wapptclsh.tcl. 
1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17
18
19
20

# This script runs to initialize wapptclsh.
#
proc initialize_wapptclsh {} {
  global argv argv0 main_script
  if {[llength $argv]==0} {
    set script --help
  } else {
    set script [lindex $argv 0]
  }
  if {[string index $script 0]=="-"} {
    set opt [string trim $script -]
    if {$opt=="v"} {
      puts stderr "Wapp using SQLite version [sqlite3 -version]"

    } else {
      puts stderr "Usage: $argv0 FILENAME"
      puts stderr "Options:"
      puts stderr "   -v      Show version information"
    }
    exit 1
  } elseif {[file readable $script]} {













|
>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

# This script runs to initialize wapptclsh.
#
proc initialize_wapptclsh {} {
  global argv argv0 main_script
  if {[llength $argv]==0} {
    set script --help
  } else {
    set script [lindex $argv 0]
  }
  if {[string index $script 0]=="-"} {
    set opt [string trim $script -]
    if {$opt=="v"} {
      puts stderr "Wapp using SQLite version [sqlite3 -version]\
                   and TCL $::tcl_version"
    } else {
      puts stderr "Usage: $argv0 FILENAME"
      puts stderr "Options:"
      puts stderr "   -v      Show version information"
    }
    exit 1
  } elseif {[file readable $script]} {
︙︙