61 lines
1.6 KiB
Bash
61 lines
1.6 KiB
Bash
#!/bin/sh
|
|
# FILE: "/home/joze/src/tclreadline/sample.tclshrc"
|
|
# LAST MODIFICATION: "Thu, 23 Mar 2000 21:13:08 +0100 (joze)"
|
|
# (C) 1998 - 2000 by Johannes Zellner, <johannes@zellner.org>
|
|
# $Id: sample.tclshrc,v 2.2 2000/03/23 22:51:28 joze Exp $
|
|
# vim:set ft=tcl: \
|
|
exec tclsh "$0" "$@"
|
|
|
|
|
|
if {$tcl_interactive} {
|
|
|
|
package require tclreadline
|
|
|
|
# uncomment the following if block, if you
|
|
# want `ls' executed after every `cd'. (This was
|
|
# the default up to 0.8 == tclreadline_version.)
|
|
#
|
|
# if {"" == [info procs cd]} {
|
|
# catch {rename ::tclreadline::Cd ""}
|
|
# rename cd ::tclreadline::Cd
|
|
# proc cd {args} {
|
|
# if {[catch {eval ::tclreadline::Cd $args} message]} {
|
|
# puts stderr "$message"
|
|
# }
|
|
# tclreadline::ls
|
|
# }
|
|
# }
|
|
|
|
# uncomment the following line to use
|
|
# tclreadline's fancy ls proc.
|
|
#
|
|
# namespace import tclreadline::ls
|
|
|
|
# tclreadline::Print is on (`yes') by default.
|
|
# This mimics the command echoing like in the
|
|
# non-readline interactive tclsh.
|
|
# If you don't like this, uncomment the following
|
|
# line.
|
|
#
|
|
# tclreadline::Print no
|
|
|
|
# uncomment the folling line, if you want
|
|
# to change tclreadline's print behaviour
|
|
# frequently with less typing.
|
|
#
|
|
# namespace import tclreadline::Print
|
|
|
|
# store maximal this much lines in the history file
|
|
#
|
|
set tclreadline::historyLength 200
|
|
|
|
# disable tclreadline's script completer
|
|
#
|
|
# ::tclreadline::readline customcompleter ""
|
|
|
|
# go to tclrealdine's main loop.
|
|
#
|
|
tclreadline::Loop
|
|
}
|
|
|