#!/usr/bin/env tclsh8.6

set thisdir [file dirname [file normalize [info script]]]
set topdir [file dirname [file dirname $thisdir]]
lappend auto_path $thisdir \
    [file join $topdir Utilities]\
    [file dirname [info script]]\
    [file join $topdir extensions]

package require stx2html
Debug define STX 100
stx2html init script 0
set text [read stdin]

puts {<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <title></title>
    <link rel="stylesheet" type="text/css" href="stx.css" media="screen" title="screen">
    </head>
    <body>}
puts [stx2html::translate $text]
puts {
    </body>
    </html>
}
