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