Artifact 717fa080f2dbde9a70d7440707b877e335fa318d21de61cd6d596e7093e2ea0b:
- File wapptclsh.tcl — part of check-in [55e40e4c93] at 2017-12-15 21:43:02 on branch trunk — Add a Makefile and code to generate the stand-alone "wapptclsh" binary. (user: drh size: 334)
# 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 rb] set main_script [read $fd] close $fd set argv [lrange $argv 1 end] } } initialize_wapptclsh