-
Notifications
You must be signed in to change notification settings - Fork 31
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Better detection of tcl runtime environment and better error handling. …
…Closes #24.
- Loading branch information
Showing
15 changed files
with
157 additions
and
21 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,8 @@ | ||
#!/bin/bash | ||
for f in examples/example_*.tcl | ||
do | ||
jtcl "$f" | ||
if [ 'tclsh' == "$1" ] ; then tclsh "$f"; | ||
elif [ 'jtcl' == "$1" ] ; then jtcl "$f"; | ||
else echo "Usage: ./examples.sh [jtcl|tclsh]"; exit 1; | ||
fi | ||
done |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package require -exact testcl 1.0.2 | ||
package require -exact testcl 1.0.3 | ||
namespace import ::testcl::* | ||
|
||
## | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package require -exact testcl 1.0.2 | ||
package require -exact testcl 1.0.3 | ||
namespace import ::testcl::* | ||
|
||
## | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package require -exact testcl 1.0.2 | ||
package require -exact testcl 1.0.3 | ||
namespace import ::testcl::* | ||
|
||
## | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package provide testcl 1.0.2 | ||
package provide testcl 1.0.3 | ||
package require log | ||
|
||
namespace eval ::testcl { | ||
|
File renamed without changes.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,85 @@ | ||
# The following web-page documents which Tcl commands are disabled in iRules | ||
# https://devcentral.f5.com/wiki/iRules.DisabledTclCommands.ashx | ||
|
||
proc saferename {from to} { | ||
if {[info procs $from] eq $from || [info commands $from] eq $from} { | ||
rename $from $to | ||
} | ||
} | ||
|
||
# Consider disabling if running old version | ||
# after (enabled in 10.x) | ||
# saferename after ::tcl::after | ||
|
||
# Commands not found in tclsh | ||
################################################ | ||
|
||
|
||
# Commnands used by tclsh internally | ||
################################################ | ||
|
||
#saferename dict ::tcl::dict | ||
#saferename exit ::tcl::exit | ||
#saferename file ::tcl::file | ||
#saferename interp ::tcl::interp | ||
|
||
# Commands used by TesTcl | ||
################################################ | ||
|
||
#saferename namespace ::tcl::namespace | ||
#saferename package ::tcl::package | ||
#saferename proc ::tcl::proc | ||
#saferename source ::tcl::source | ||
#saferename unknown ::tcl::unknown | ||
#saferename rename ::tcl::rename | ||
|
||
# Commands used by log package | ||
################################################ | ||
|
||
#saferename flush ::tcl::flush | ||
|
||
# Disabled commands | ||
################################################ | ||
|
||
saferename auto_execok ::tcl::auto_execok | ||
saferename auto_import ::tcl::auto_import | ||
saferename auto_load ::tcl::auto_load | ||
saferename auto_qualify ::tcl::auto_qualify | ||
saferename cd ::tcl::cd | ||
saferename close ::tcl::close | ||
saferename eof ::tcl::eof | ||
saferename encoding ::tcl::encoding | ||
saferename exec ::tcl::exec | ||
saferename fblocked ::tcl::fblocked | ||
saferename fconfigure ::tcl::fconfigure | ||
saferename fcopy ::tcl::fcopy | ||
saferename fileevent ::tcl::fileevent | ||
saferename gets ::tcl::gets | ||
saferename glob ::tcl::glob | ||
saferename lrepeat ::tcl::lrepeat | ||
saferename lreverse ::tcl::lreverse | ||
saferename open ::tcl::open | ||
saferename pid ::tcl::pid | ||
saferename pwd ::tcl::pwd | ||
saferename seek ::tcl::seek | ||
saferename socket ::tcl::socket | ||
saferename tell ::tcl::tell | ||
saferename time ::tcl::time | ||
saferename update ::tcl::update | ||
saferename uplevel ::tcl::uplevel | ||
saferename upvar ::tcl::upvar | ||
saferename vwait ::tcl::vwait | ||
|
||
saferename auto_mkindex ::tcl::auto_mkindex | ||
saferename auto_mkindex_old ::tcl::auto_mkindex_old | ||
saferename auto_reset ::tcl::auto_reset | ||
saferename bgerror ::tcl::bgerror | ||
saferename http ::tcl::http | ||
saferename load ::tcl::load | ||
saferename memory ::tcl::memory | ||
saferename pkg::create ::tcl::pkg::create | ||
saferename pkg_mkIndex ::tcl::pkg_mkIndex | ||
saferename tcl_findLibrary ::tcl::tcl_findLibrary | ||
saferename filename ::tcl::filename | ||
|
||
rename saferename {} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package provide testcl 1.0.2 | ||
package provide testcl 1.0.3 | ||
package require log | ||
|
||
package require base64 | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package provide testcl 1.0.2 | ||
package provide testcl 1.0.3 | ||
package require log | ||
|
||
namespace eval ::testcl { | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package provide testcl 1.0.2 | ||
package provide testcl 1.0.3 | ||
package require log | ||
|
||
namespace eval ::testcl { | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
package provide testcl 1.0.2 | ||
package provide testcl 1.0.3 | ||
package require log | ||
|
||
namespace eval ::testcl { | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,8 @@ | ||
#!/bin/bash | ||
for f in test/test_*.tcl | ||
do | ||
jtcl "$f" | ||
if [ 'tclsh' == "$1" ] ; then tclsh "$f"; | ||
elif [ 'jtcl' == "$1" ] ; then jtcl "$f"; | ||
else echo "Usage: ./tests.sh [jtcl|tclsh]"; exit 1; | ||
fi | ||
done |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters