Wapp

Patch to run wapptclsh shell in CLI
Login

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
%