Fossil SCM
|
1
|
<th1> |
|
2
|
# |
|
3
|
# This is a "TH1 fragment" used to test the Tcl integration features of TH1. |
|
4
|
# The corresponding test file executes this file using the test-th-render |
|
5
|
# Fossil command. |
|
6
|
# |
|
7
|
set channel stdout; tclInvoke set channel $channel |
|
8
|
tclEval {puts $channel [list [file tail $argv0] $argc $argv]} |
|
9
|
</th1> |
|
10
|
|