Check-in [29f47e8987]
Not logged in
Overview
Comment:Thu Sep 23 02:54:34 CEST 1999
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 29f47e8987021b08dd861b4d9256e7a830221fbd
User & Date: johannes@zellner.org on 1999-09-23 00:56:49
Other Links: manifest | tags
Context
1999-09-27
07:50
Mon Sep 27 09:51:14 CEST 1999 check-in: 1be14666f7 user: johannes@zellner.org tags: trunk
1999-09-23
00:56
Thu Sep 23 02:54:34 CEST 1999 check-in: 29f47e8987 user: johannes@zellner.org tags: trunk
1999-09-22
00:09
Wed Sep 22 02:07:23 CEST 1999 check-in: 9e3c1d7364 user: johannes@zellner.org tags: trunk
Changes

Modified tclreadlineCompleter.tcl from [a0a878b98b] to [ab4dede732].

1
2
3

4
5
6
7
8
9
10
1
2

3
4
5
6
7
8
9
10


-
+







# -*- tclsh -*-
# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
# LAST MODIFICATION: "Tue Sep 21 21:19:07 1999 (joze)"
# LAST MODIFICATION: "Thu Sep 23 02:16:55 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999  Johannes Zellner
#
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
















1541
1542
1543
1544
1545
1546
1547
1523
1524
1525
1526
1527
1528
1529











1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552







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







		# was found. Check, if it's a proc and return the
		# arguments.
		#
		if {![string length ${namespc}]} {
			set namespc ::
		}
		if {[string length [uplevel [info level] \
			namespace eval ${namespc} [list ::info proc $alias]]]} {
			set args [uplevel [info level] \
			namespace eval ${namespc} [list info args $alias]]
			set arg [lindex $args [expr $pos - 1]]
			if {"" != $arg && "args" != $arg} {
				if {[uplevel [info level] namespace eval \
					${namespc} [list info default $alias $arg junk]]} {
					return [DisplayHints ?$arg?]
				} else {
					return [DisplayHints <$arg>]
				}
			namespace eval ${namespc} [list ::info proc $alias]]]
		} {
			if ![string length [string trim $part]] {
				set args [uplevel [info level] \
				namespace eval ${namespc} [list info args $alias]]
				set arg [lindex $args [expr $pos - 1]]
				if {"" != $arg && "args" != $arg} {
					if {[uplevel [info level] namespace eval \
						${namespc} [list info default $alias $arg junk]]} {
							return [DisplayHints ?$arg?]
						} else {
							return [DisplayHints <$arg>]
						}
				}
			} else {
				return ""; # enable file name completion
			}
		}

		# check if the command is an object of known class.
		# 
		if [ObjectClassCompleter ${part} ${start} ${end} ${line} ${pos} res] {
			return ${res}