1#!/bin/sh 2# -*- tcl -*- \ 3exec tclsh "$0" ${1+"$@"} 4lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules] 5 6#puts [join $auto_path \n] 7#exit 8 9set f [lindex $argv 0] 10set c [open $f r] 11set t [read $c] 12close $c 13 14package require term::ansi::send 15package require term::ansi::ctrl::unix 16package require term::interact::pager 17 18term::ansi::send::import vt 19vt::init 20vt::clear 21 22term::interact::pager p $t -line 2 -column 2 -height 30 23 24term::ansi::ctrl::unix::raw 25p interact 26term::ansi::ctrl::unix::cooked 27 28exit 29