Artifact bec2591d1cac3347747812740467bd1a1376b7dcb4b5b895cb8929b7b9f073ad:
- File wapptclsh.tcl — part of check-in [a1fe55379f] at 2017-12-21 05:22:41 on branch trunk — Use the "r" flag instead of "rb" in order to pick up the correct encoding. (user: drh size: 333)
# This script runs to initialize wapptclsh. # proc initialize_wapptclsh {} { global argv main_script if {[llength $argv]==0} return set script [lindex $argv 0] if {[file readable $script]} { set fd [open $script r] set main_script [read $fd] close $fd set argv [lrange $argv 1 end] } } initialize_wapptclsh