Overview
| Comment: | Wed Sep 29 20:24:01 MEST 1999 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
79656128ef0d9abab25ab8730249a684 |
| User & Date: | johannes@zellner.org on 1999-09-29 18:24:01.000 |
| Other Links: | manifest | tags |
Context
|
1999-09-30
| ||
| 01:26 | Thu Sep 30 03:25:19 CEST 1999 check-in: 702e7f3410 user: johannes@zellner.org tags: trunk | |
|
1999-09-29
| ||
| 18:24 | Wed Sep 29 20:24:01 MEST 1999 check-in: 79656128ef user: johannes@zellner.org tags: trunk | |
|
1999-09-28
| ||
| 21:19 | Tue Sep 28 23:19:25 CEST 1999 check-in: 3b8130f969 user: johannes@zellner.org tags: trunk | |
Changes
Modified Makefile.in
from [3db6e33c87]
to [eef7262ac3].
1 2 | # -*- make -*- # FILE: "/disk01/home/joze/src/tclreadline/Makefile.in" | | | 1 2 3 4 5 6 7 8 9 10 | # -*- make -*- # FILE: "/disk01/home/joze/src/tclreadline/Makefile.in" # LAST MODIFICATION: "Wed Sep 29 10:57:20 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
77 78 79 80 81 82 83 | # Directory in which to install the archive libitk.a: LIB_INSTALL_DIR = $(INSTALL_ROOT)$(exec_prefix)/lib # Path to use at runtime to refer to LIB_INSTALL_DIR: LIB_RUNTIME_DIR = $(exec_prefix)/lib # Top-level directory for manual entries: | | > | 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | # Directory in which to install the archive libitk.a: LIB_INSTALL_DIR = $(INSTALL_ROOT)$(exec_prefix)/lib # Path to use at runtime to refer to LIB_INSTALL_DIR: LIB_RUNTIME_DIR = $(exec_prefix)/lib # Top-level directory for manual entries: # MAN_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/man MAN_INSTALL_DIR = $(INSTALL_ROOT)@mandir@ # Directory in which to install manual entries for the built-in # Tcl commands implemented by Tk: MANN_INSTALL_DIR = $(MAN_INSTALL_DIR)/mann # To change the compiler switches, for example to change from -O |
| ︙ | ︙ | |||
243 244 245 246 247 248 249 | $(SHELL) config.status clean: rm -f *.a *.o core errs *~ \#* tags* *.E a.out errors so_locations distclean: clean rm -f \ | | | | | 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 | $(SHELL) config.status clean: rm -f *.a *.o core errs *~ \#* tags* *.E a.out errors so_locations distclean: clean rm -f \ Makefile *.so.* *.sl pkgIndex.tcl tclreadlineInit.tcl \ tclreadlineSetup.tcl config.h tclreadline.h tclreadline.n \ tclreadlineConfig.sh config.status config.log config.cache depend: makedepend -- $(CC_SWITCHES) -- $(CSRCS) configure: configure.in autoconf |
| ︙ | ︙ | |||
282 283 284 285 286 287 288 289 290 291 | dist: distribution distribution: $(SOURCES) configure $(AUXILIARY) tclreadline.n.html - mkdir -p dist/tclreadline-$(PATCHLEVEL)/aux - cp $(SOURCES) configure tclreadline.n.html dist/tclreadline-$(PATCHLEVEL) - cp $(AUXILIARY) dist/tclreadline-$(PATCHLEVEL)/aux (cd dist; tar zcvf tclreadline-$(PATCHLEVEL).tar.gz tclreadline-$(PATCHLEVEL); rm -rf tclreadline-$(PATCHLEVEL)) # DO NOT DELETE THIS LINE -- make depend depends on it. | > > | 283 284 285 286 287 288 289 290 291 292 293 294 | dist: distribution distribution: $(SOURCES) configure $(AUXILIARY) tclreadline.n.html - mkdir -p dist/tclreadline-$(PATCHLEVEL)/aux - cp $(SOURCES) configure tclreadline.n.html dist/tclreadline-$(PATCHLEVEL) - cp $(AUXILIARY) dist/tclreadline-$(PATCHLEVEL)/aux (cd dist; tar zcvf tclreadline-$(PATCHLEVEL).tar.gz tclreadline-$(PATCHLEVEL); rm -rf tclreadline-$(PATCHLEVEL)) - cp README dist/tclreadline-$(PATCHLEVEL).README - echo AddDescription '"<font size=+2 color=red><b>most recent version</b></font>"' tclreadline-$(PATCHLEVEL).tar.gz > dist/.htaccess # DO NOT DELETE THIS LINE -- make depend depends on it. |
Modified tclreadlineCompleter.tcl
from [6a77834ee1]
to [dc01fb3b61].
1 | # -*- tclsh -*- | | | | 1 2 3 4 5 6 7 8 9 10 | # -*- tclsh -*- # FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl" # LAST MODIFICATION: "Wed Sep 29 18:00:58 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
614 615 616 617 618 619 620 |
set cmd [Lindex ${line} 0]
if {"." == [string index ${line} 0]} {
# it's a widget. Try to get it's class name.
#
if {![catch [list set class [winfo class [Lindex ${line} 0]]]]} {
if {[string length [info proc ${class}Obj]]} {
set result [${class}Obj ${text} ${start} ${end} ${line} ${pos}]
| | | 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 |
set cmd [Lindex ${line} 0]
if {"." == [string index ${line} 0]} {
# it's a widget. Try to get it's class name.
#
if {![catch [list set class [winfo class [Lindex ${line} 0]]]]} {
if {[string length [info proc ${class}Obj]]} {
set result [${class}Obj ${text} ${start} ${end} ${line} ${pos}]
return 0
} else {
return 0
}
}
}
if {![catch [list set type [image type ${cmd}]]]} {
switch -- ${type} {
|
| ︙ | ︙ | |||
2006 2007 2008 2009 2010 2011 2012 |
return ""
}
proc complete(file) {text start end line pos mod} {
switch -- $pos {
1 {
set cmds {
| | > | 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 |
return ""
}
proc complete(file) {text start end line pos mod} {
switch -- $pos {
1 {
set cmds {
atime attributes channels copy delete dirname executable exists
extension isdirectory isfile join lstat mkdir mtime
nativename owned pathtype readable readlink rename
rootname size split stat tail type volumes writable
}
return [TryFromList $text $cmds]
}
2 {
set cmd [Lindex $line 1]
switch -- $cmd {
atime -
attributes -
channels -
dirname -
executable -
exists -
extension -
isdirectory -
isfile -
join -
|
| ︙ | ︙ |