# FILE: tclreadlineInit.tcl.in # $Id$ # --- # tclreadline -- gnu readline for tcl # http://www.zellner.org/tclreadline/ # Copyright (c) 1998 - 2014, Johannes Zellner # This software is copyright under the BSD license. # --- package provide tclreadline @VERSION@ 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 } } } } 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]]