Wapp

Check-in [a1fe55379f]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Use the "r" flag instead of "rb" in order to pick up the correct encoding.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: a1fe55379f560b2598b9dd12472db022daee7974884074307fc75ba4162230f6
User & Date: drh 2017-12-21 05:22:41.736
Context
2018-01-02
13:32
Updates to the README file. (check-in: 1b2d69541a user: drh tags: trunk)
2017-12-21
05:22
Use the "r" flag instead of "rb" in order to pick up the correct encoding. (check-in: a1fe55379f user: drh tags: trunk)
2017-12-17
00:15
Add the missing mkccode.tcl script needed to build wapptclsh. (check-in: 268e501a94 user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to wapptclsh.tcl. 
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