hl_tcl

Artifact b46ea9c7d330079e8133af4b9230208f8d6b65658f3f46fb6535265b04289c36:

• File tcl_html.tcl — part of check-in [38703da2f8] at 2020-10-18 10:27:36 on branch trunk — v0.7: command list revised; tcl_html mod. (user: apl size: 596)

#! /usr/bin/env tclsh
# ________________________ highlight tcl in html ________________________ #
#
# Highlights Tcl code snippets in html files.
#
# Runs from CLI as follows:
#   tclsh tcl_html.tcl file1.html [file2.html [...]]
#
# Scripted by Alex Plotnikov.
# License: MIT.
# _______________________________________________________________________ #

source [file join [file dirname [info script]] hl_tcl_html.tcl]
foreach ghtml $::argv {
  foreach fhtml [glob $ghtml] {
    ::hl_tcl_html::highlight $fhtml no \
      {<code class="tcl">} {</code>} \
      {<pre class="code">} {</pre>}
  }
}