Index: tclreadlineSetup.tcl.in ================================================================== --- tclreadlineSetup.tcl.in +++ tclreadlineSetup.tcl.in @@ -1,8 +1,8 @@ #!/usr/locanl/bin/tclsh # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" -# LAST MODIFICATION: "Wed Sep 1 19:24:22 1999 (joze)" +# LAST MODIFICATION: "Fri Sep 3 10:21:15 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, # $Id$ # --- # # tclreadline -- gnu readline for tcl @@ -93,10 +93,11 @@ # - (resource is on mac only) # - return # - scan # TODO # - seek # - socket +# - source # - split # TODO # - string # - subst # - switch # - tell @@ -1018,11 +1019,10 @@ "read ?-nonewline? channelId" "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?" "rename oldName newName" "scan ?varName varName ...?" "set varName ?newValue?" - "source " "split ?splitChars?" "subst ?-nobackslashes? ?-nocommands? ?-novariables? string" "switch ?switches? string pattern body ... ?default body?" "time ?count?" "unknown ?arg? ?...?" @@ -1990,10 +1990,14 @@ } 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