.tclshrc
author Oleksandr Gavenko <gavenkoa@gmail.com>
Fri, 30 Aug 2013 00:31:19 +0300
changeset 635 799341bb0ea7
parent 634 89a1a77ad559
permissions -rw-r--r--
Add prompt2 style.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
632
500dcbf3445d Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff changeset
     1
# -*- mode: tcl -*-
500dcbf3445d Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff changeset
     2
500dcbf3445d Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff changeset
     3
if {$tcl_interactive} {
634
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
     4
    catch {
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
     5
        package require tclreadline
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
     6
        namespace eval tclreadline {
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
     7
            if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) {
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
     8
                proc prompt1 {} { return "\[0;31m\[1mtcl>\[0m " }
635
799341bb0ea7 Add prompt2 style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 634
diff changeset
     9
                proc prompt2 {} { return "\[0;31m...> \[0m" }
634
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
    10
            } {
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
    11
                proc prompt1 {} { return "tcl> " }
635
799341bb0ea7 Add prompt2 style.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 634
diff changeset
    12
                proc prompt2 {} { return "...> " }
634
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
    13
            }
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
    14
        }
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
    15
        ::tclreadline::Loop
89a1a77ad559 Add check for tclreadline package and terminal color support.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents: 632
diff changeset
    16
    }
632
500dcbf3445d Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff changeset
    17
}