Wapp

Artifact 768eabee4a11a8ffecf66d641270c3ffa0051038eb22af4f5ef6274a1431c416:

• File wapptclsh.tcl — part of check-in [719ed9a20d] at 2024-11-06 16:24:49 on branch trunk — Show both the SQLite version number and the TCL version number with the -v option to wapptclsh. (user: drh size: 852)

# 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]} {
    set fd [open $script r]
    set main_script [read $fd]
    close $fd
    set argv [lrange $argv 1 end]
    set argv0 $script
  } else {
    puts stderr "unknown option: \"$script\"\nthe --help option is available"
  }
}
initialize_wapptclsh