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