Diff of /tclreadlineInit.tcl.in [07f96d] .. [ebfe07] Maximize Restore

  Switch to side-by-side view

--- a/tclreadlineInit.tcl.in
+++ b/tclreadlineInit.tcl.in
@@ -1,35 +1,23 @@
 #!/usr/local/bin/tclsh
-# FILE: "/home/joze/src/tclreadline/tclreadlineInit.tcl.in"
-# LAST MODIFICATION: "Mit, 10 Jan 2001 06:29:33 +0100 (joze)"
-# (C) 1998 - 2001 by Johannes Zellner, <johannes@zellner.org>
+# ==================================================================
+# FILE: "/home/joze/tmp/tclreadline/tclreadlineInit.tcl.in"
+# LAST MODIFIED: "Sat Oct 03 02:31:48 1998 (joze)"
+# (c) 1998 by Johannes Zellner
+# Johannes.Zellner@physik.uni-karlsruhe.de
 # $Id$
-# ---
-# tclreadline -- gnu readline for tcl
-# http://www.zellner.org/tclreadline/
-# Copyright (c) 1998 - 2001, Johannes Zellner <johannes@zellner.org>
-# This software is copyright under the BSD license.
+# ==================================================================
 
-package provide tclreadline @VERSION@
+package provide tclreadline @TCLREADLINE_VERSION@
 
 namespace eval tclreadline:: {
-    namespace export Init
+
+    proc Init {} {
+        catch {load @TERMCAP_LOAD_PATH@}
+        catch {load @READLINE_LOAD_PATH@}
+        if {[catch {load @TCLREADLINE_LIB_FILE@} msg]} {
+            puts stderr $msg
+            exit 2
+        }
+    }
+
 }
-
-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]]