Overview
| Comment: | tclreadlineSetup.tcl.in |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d3a98947935e2e4526b3b8d7757b4c63 |
| User & Date: | johannes@zellner.org on 1999-09-03 08:21:28.000 |
| Other Links: | manifest | tags |
Context
|
1999-09-03
| ||
| 18:00 | Modified Files: .csymrc include/zellner/StdVector.h src/csym/.csymrc src/csym/csym.cc src/tclreadline/tclreadlineSetup.tcl.in Added Files: src/csym/version src/tclreadline/Makefile.in src/tclreadline/tclreadline.c src/tclreadline/tclreadlineConfig.sh.in src/tclreadline/tclreadlineInit.tcl.in check-in: 99d8d2b9c5 user: johannes@zellner.org tags: trunk | |
| 08:21 | tclreadlineSetup.tcl.in check-in: d3a9894793 user: johannes@zellner.org tags: trunk | |
| 00:14 | .csymrc .tclshrc .vimrc tcltags StdOper.h StdVector.h vimrc Modified Files: .csymrc Containers.h HKLlink.h TclVector.h config.h.in configure.in csym.cc hkl.h misc.cc string.priv.h TODO tclreadline.c tclreadlineSetup.tcl.in check-in: 0db7d87bfc user: johannes@zellner.org tags: trunk | |
Changes
Modified tclreadlineSetup.tcl.in
from [29408eb47d]
to [a3e6927009].
1 2 | #!/usr/locanl/bin/tclsh # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" | | | 1 2 3 4 5 6 7 8 9 10 | #!/usr/locanl/bin/tclsh # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" # LAST MODIFICATION: "Fri Sep 3 10:21:15 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| ︙ | ︙ | |||
91 92 93 94 95 96 97 98 99 100 101 102 103 104 | # - regsub # - rename # - (resource is on mac only) # - return # - scan # TODO # - seek # - socket # - split # TODO # - string # - subst # - switch # - tell # - time # TODO ?? # - trace | > | 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | # - regsub # - rename # - (resource is on mac only) # - return # - scan # TODO # - seek # - socket # - source # - split # TODO # - string # - subst # - switch # - tell # - time # TODO ?? # - trace |
| ︙ | ︙ | |||
1016 1017 1018 1019 1020 1021 1022 |
"package option ?arg arg ...?"
"proc name args body"
"read ?-nonewline? channelId"
"regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"
"rename oldName newName"
"scan <string> <format> ?varName varName ...?"
"set varName ?newValue?"
| < | 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 |
"package option ?arg arg ...?"
"proc name args body"
"read ?-nonewline? channelId"
"regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"
"rename oldName newName"
"scan <string> <format> ?varName varName ...?"
"set varName ?newValue?"
"split <string> ?splitChars?"
"subst ?-nobackslashes? ?-nocommands? ?-novariables? string"
"switch ?switches? string pattern body ... ?default body?"
"time <command> ?count?"
"unknown <cmdName> ?arg? ?...?"
"uplevel ?level? command ?arg ...?"
"vwait name"
|
| ︙ | ︙ | |||
1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 |
if {$pos <= 1} {
lappend cmds -server
}
return [AttemptFromList ${mod} [concat ${cmds} ${hosts}]]
}
return ""
}
proc complete(string) {text start end line pos mod} {
set cmd [lindex ${line} 1]
set cmds {
compare first index last length match range tolower
totitle toupper trim trimleft trimright wordend wordstart}
if {1 == $pos} {
| > > > > | 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 |
if {$pos <= 1} {
lappend cmds -server
}
return [AttemptFromList ${mod} [concat ${cmds} ${hosts}]]
}
return ""
}
proc complete(source) {text start end line pos mod} {
return ""; # force file name completion
}
proc complete(string) {text start end line pos mod} {
set cmd [lindex ${line} 1]
set cmds {
compare first index last length match range tolower
totitle toupper trim trimleft trimright wordend wordstart}
if {1 == $pos} {
|
| ︙ | ︙ |