Check-in [32bab3b327]
Not logged in
Overview
Comment: Modified Files: .tclshrc src/tclreadline/sample.tclshrc src/tclreadline/tclreadlineSetup.tcl.in Added Files: src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 32bab3b32773eba5de9042a4709e89ab634ca5f7
User & Date: johannes@zellner.org on 1999-08-22 23:09:39
Other Links: manifest | tags
Context
1999-08-23
09:17
configure.in check-in: e356777f67 user: johannes@zellner.org tags: trunk
1999-08-22
23:09
Modified Files: .tclshrc src/tclreadline/sample.tclshrc src/tclreadline/tclreadlineSetup.tcl.in Added Files: src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in check-in: 32bab3b327 user: johannes@zellner.org tags: trunk
22:34
tclreadlineSetup.tcl.in check-in: 66eb0d332d user: johannes@zellner.org tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sample.tclshrc from [7e7f1c5e92] to [75407d3132].

     1      1   #!/bin/sh
     2      2   # FILE: "/home/joze/src/tclreadline/sample.tclshrc"
     3         -# LAST MODIFICATION: "Mon Aug 23 00:00:23 1999 (joze)"
            3  +# LAST MODIFICATION: "Mon Aug 23 00:55:51 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} {
................................................................................
    18     18       # if {"" == [info procs cd]} {
    19     19       #     catch {rename ::tclreadline::Cd ""}
    20     20       #     rename cd ::tclreadline::Cd
    21     21       #     proc cd {args} {
    22     22       #         if {[catch {eval ::tclreadline::Cd $args} message]} {
    23     23       #             puts stderr "$message"
    24     24       #         }
    25         -    #         ls
           25  +    #         tclreadline::ls
    26     26       #     }
    27     27       # }
    28     28   
    29     29       # uncomment the following line to use
    30     30       # tclreadline's fancy ls proc.
    31     31       #
    32     32       # namespace import ::tclreadline::ls

Modified tclreadlineSetup.tcl.in from [ed5f78e2d8] to [2a8fdfa53f].

     1      1   #!/usr/local/bin/tclsh
     2         -# FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
     3         -# LAST MODIFICATION: "Mon Aug 23 00:34:14 1999 (joze)"
            2  +# FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
            3  +# LAST MODIFICATION: "Mon Aug 23 00:54:01 1999 (joze)"
     4      4   # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     5      5   # $Id$
     6      6   # ---
     7      7   #
     8      8   # tclreadline -- gnu readline for tcl
     9      9   # Copyright (C) 1999  Johannes Zellner
    10     10   #
................................................................................
   218    218               return ""; # nothing to complete
   219    219           }
   220    220       } else {
   221    221           return ""
   222    222       }
   223    223       return "NOTREACHED (this is probably an error)"
   224    224   }
          225  +
          226  +proc tclreadline::ls {args} {
          227  +    if {[exec uname -s] == "Linux"} {
          228  +        eval exec ls --color -FC [::tclreadline::Glob $args]
          229  +    } else {
          230  +        eval exec ls -FC [::tclreadline::Glob $args]
          231  +    }
          232  +}
   225    233   
   226    234   proc ::tclreadline::Setup {} {
   227    235   
   228    236       uplevel #0 {
   229    237   
   230    238           if {[info commands ::tclreadline::readline] == ""} {
   231    239               ::tclreadline::Init
................................................................................
   262    270                           regsub $env(HOME) $pwd "~" pwd
   263    271                       }
   264    272                       return "$prompt_string \[$pwd\]"
   265    273                   }
   266    274               }
   267    275           }
   268    276   
   269         -        proc ls {args} {
   270         -            if {[exec uname -s] == "Linux"} {
   271         -                eval exec ls --color -FC [::tclreadline::Glob $args]
   272         -            } else {
   273         -                eval exec ls -FC [::tclreadline::Glob $args]
   274         -            }
   275         -        }
   276         -
   277         -        if {[info procs cd] == ""} {
   278         -            catch {rename ::tclreadline::Cd ""}
   279         -            rename cd ::tclreadline::Cd
   280         -            proc cd {args} {
   281         -                if {[catch {eval ::tclreadline::Cd $args} message]} {
   282         -                    puts stderr "$message"
   283         -                }
   284         -                ls
   285         -            }
   286         -        }
   287         -
   288    277           if {[info procs exit] == ""} {
   289    278   
   290    279               catch {rename ::tclreadline::Exit ""}
   291    280               rename exit ::tclreadline::Exit
   292    281   
   293    282               proc exit {args} {
   294    283