Check-in [d451e5e397]
Not logged in
Overview
Comment: Modified Files: tclreadlineSetup.tcl.in
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: d451e5e39788d6fe5a8ca88a6922dd88f345f935
User & Date: johannes@zellner.org on 1999-08-25 09:13:32
Other Links: manifest | tags
Context
1999-08-25
14:43
Modified Files: Makefile.in configure.in tclreadline.h.in tclreadline.n.in tclreadlineConfig.sh.in tclreadlineInit.tcl.in tclreadlineSetup.tcl.in check-in: 405bab1b22 user: johannes@zellner.org tags: trunk
09:13
Modified Files: tclreadlineSetup.tcl.in check-in: d451e5e397 user: johannes@zellner.org tags: trunk
01:03
Modified Files: .tclshrc bin/script/pkgMkIndex share/vim/functions/selectBuffer.vim src/evim/evimrc src/tclreadline/tclreadlineSetup.tcl.in Added Files: Tag: 0.4 src/csym/version No tag src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in check-in: a3ee053e89 user: johannes@zellner.org tags: trunk
Changes

Modified tclreadlineSetup.tcl.in from [66de68b4b7] to [d37da43a66].

1
2
3


4
5
6
7
8
9
10
1


2
3
4
5
6
7
8
9
10

-
-
+
+







#!/usr/local/bin/tclsh
# FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
# LAST MODIFICATION: "Wed Aug 25 02:00:47 1999 (joze)"
# FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
# LAST MODIFICATION: "Wed Aug 25 11:12:19 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999  Johannes Zellner
#
279
280
281
282
283
284
285
286

287
288
289
290
291
292
293
279
280
281
282
283
284
285

286
287
288
289
290
291
292
293







-
+







        # puts stderr "(SubCmd) $new_start $new_end $new_line"
        return \
            [tclreadline::ScriptCompleter $part $new_start $new_end $new_line]
    } elseif {0 == [set pos [tclreadline::PartPosition $part $start $end $line]]} {
        # puts stderr "(PartPosition) $part $start $end $line"
        # set matches [array names known_cmds "[string trim ${part}]*"]
        set cmd "[string trim ${part}]*"
        set matches "[info commands $cmd] [info proc $cmd]"
        set matches [string trim "[info commands $cmd] [info proc $cmd]"]
        # puts matches=|$matches|
        if {1 == [llength $matches]} { ; # unique match
            return $matches
        } elseif {"" != $matches} {
            set common [tclreadline::GetCommon ${matches}]
            # puts stderr common=|$common|
            if {"" == $common} {