track tclrhrc

dot_tclshrc

@@ -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: