Patch to run wapptclsh shell in CLI
(1.2) By ufko.org on 2025-02-04 06:18:08 edited from 1.1 [source]
Mini patch allowing wapptclsh to run as a shell in the CLI instead of tclsh when no file name is provided as an argument:
--- wapptclsh.tcl.orig Tue Feb 4 06:52:32 2025
+++ wapp/wapptclsh.tcl Tue Feb 4 06:49:20 2025
@@ -3,7 +3,9 @@
proc initialize_wapptclsh {} {
global argv argv0 main_script
if {[llength $argv]==0} {
- set script --help
+ puts stdout "Wapp 1.0 shell using SQLite version [sqlite3 -version]\
+ and TCL $::tcl_version"
+ return
} else {
set script [lindex $argv 0]
}
Output:
$: ./wapptclsh
Wapp 1.0 shell using SQLite version 3.48.0 and TCL 9.0
%