Diff
Not logged in

Differences From Artifact [79de25f768]:

To Artifact [7e7f1c5e92]:


     1      1   #!/bin/sh
     2         -# FILE: "/diska/home/joze/src/tclreadline/sample.tclshrc"
     3         -# LAST MODIFICATION: "Fri Aug 20 15:39:58 1999 (joze)"
            2  +# FILE: "/home/joze/src/tclreadline/sample.tclshrc"
            3  +# LAST MODIFICATION: "Mon Aug 23 00:00:23 1999 (joze)"
     4      4   # (C) 1999 by Johannes Zellner, <johannes@zellner.org>
     5      5   # $Id$
     6      6   # vim:set ft=tcl: \
     7      7   exec tclsh "$0" "$@"
     8      8   
     9      9   
    10     10   if {$tcl_interactive} {
           11  +
    11     12       package require tclreadline
    12         -    namespace import ::tclreadline::Print
    13         -#    ::tclreadline::Print no
           13  +
           14  +    # uncomment the following if block, if you
           15  +    # want `ls' executed after every `cd'. (This was
           16  +    # the default up to 0.8 == tclreadline_version.)
           17  +    #
           18  +    # if {"" == [info procs cd]} {
           19  +    #     catch {rename ::tclreadline::Cd ""}
           20  +    #     rename cd ::tclreadline::Cd
           21  +    #     proc cd {args} {
           22  +    #         if {[catch {eval ::tclreadline::Cd $args} message]} {
           23  +    #             puts stderr "$message"
           24  +    #         }
           25  +    #         ls
           26  +    #     }
           27  +    # }
           28  +
           29  +    # uncomment the following line to use
           30  +    # tclreadline's fancy ls proc.
           31  +    #
           32  +    # namespace import ::tclreadline::ls
           33  +
           34  +    # tclreadline::Print is on (`yes') by default.
           35  +    # This mimics the command echoing like in the
           36  +    # non-readline interactive tclsh.
           37  +    # If you don't like this, uncomment the following
           38  +    # line.
           39  +    #
           40  +    # ::tclreadline::Print no
           41  +
           42  +    # uncomment the folling line, if you want
           43  +    # to change tclreadline's print behaviour
           44  +    # frequently with less typing.
           45  +    #
           46  +    # namespace import ::tclreadline::Print
           47  +
           48  +    # go to tclrealdine's main loop.
    14     49       ::tclreadline::Loop
    15     50   }
    16     51