Wapp

Differences From Artifact [717fa080f2]:

• 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)

To Artifact [bec2591d1c]:

• 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)

1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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

|

1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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