1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#! /usr/bin/env tclsh
lappend auto_path [pwd]
lappend auto_path /opt/appfs/rkeene.org/tcllib/platform/latest/lib
lappend auto_path /opt/appfs/rkeene.org/tclreadline/platform/latest/lib
lappend auto_path [file join [pwd] lib]
package require nano
## Set defaults
set url {http://[::1]:55000/}
## Process
if {[llength $argv] % 2 != 0} {
|
<
<
<
<
<
|
1
2
3
4
5
6
7
8
9
|
#! /usr/bin/env tclsh
package require nano
## Set defaults
set url {http://[::1]:55000/}
## Process
if {[llength $argv] % 2 != 0} {
|