Browse Source

track tclrhrc

master
Jonathan Tremesaygues 11 months ago
parent
commit
c9762f52c0
1 changed files with 70 additions and 0 deletions
  1. +70
    -0
      dot_tclshrc

+ 70
- 0
dot_tclshrc View File

@ -0,0 +1,70 @@
#!/bin/sh
# FILE: sample.tclshrc
# $Id$
# ---
# tclreadline -- gnu readline for tcl
# https://github.com/flightaware/tclreadline/
# Copyright (c) 1998 - 2014, Johannes Zellner <johannes@zellner.org>
# This software is copyright under the BSD license.
# ---
# exec with tclsh \
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 ""
# automatically save the history after every
# command (instead of when cleanly exiting)
set tclreadline::autosave 1
# go to tclrealdine's main loop.
#
tclreadline::Loop
}
# vim:set ft=tcl:

Loading…
Cancel
Save