Diff
Not logged in

Differences From Artifact [554b1c74c7]:

To Artifact [339306884c]:


11
12
13
14
15
16
17
18
19
20
21
22
23






24
25
26
27
28
29
30
31
32
33

11
12
13
14
15
16
17






18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

33







-
-
-
-
-
-
+
+
+
+
+
+









-
+

namespace eval tclreadline:: {
    namespace export Init
}

proc ::tclreadline::Init {} {
    uplevel #0 {
    if ![info exists tclreadline::library] {
        if [catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} msg] {
        puts stderr $msg
        exit 2
        }
    }
        if {![info exists tclreadline::library]} {
            if {[catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} msg]} {
                puts stderr $msg
                exit 2
            }
        }
    }
}

tclreadline::Init
::tclreadline::readline customcompleter ::tclreadline::ScriptCompleter

source [file join [file dirname [info script]] tclreadlineSetup.tcl]

set auto_index(::tclreadline::ScriptCompleter) \
[list source [file join [file dirname [info script]] tclreadlineCompleter.tcl]]
    [list source [file join [file dirname [info script]] tclreadlineCompleter.tcl]]