1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/local/bin/tclsh
#
# FILE: "/krispc6/home/joze/src/tclreadline/sample.tclshrc"
# LAST MODIFICATION: "Sat May 8 14:02:19 1999 (joze)"
# (C) 1999 by Johannes Zellner
# johannes@zellner.org
# $Id$
if {$tcl_interactive} {
package require tclreadline
namespace import ::tclreadline::Print
# ::tclreadline::Print no
::tclreadline::Loop
|
|
<
|
|
|
<
|
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/bin/sh
# FILE: "/diska/home/joze/src/tclreadline/sample.tclshrc"
# LAST MODIFICATION: "Fri Aug 20 15:39:58 1999 (joze)"
# (C) 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# vim:set ft=tcl: \
exec tclsh "$0" "$@"
if {$tcl_interactive} {
package require tclreadline
namespace import ::tclreadline::Print
# ::tclreadline::Print no
::tclreadline::Loop
|