Check-in [1f6689ebb8]
Not logged in
Overview
Comment: Modified Files: src/tclcrystal/.tclcrystalrc src/tclcrystal/Makefile.in src/tclcrystal/configure.in src/tclcrystal/crystal.cc src/tclreadline/README src/tclreadline/tclreadlineCompleter.tcl src/tclreadline/tclreadlineSetup.tcl.in
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1f6689ebb83bffbf088529fc75d030008c92ac0c
User & Date: johannes@zellner.org on 1999-09-17 00:44:16
Other Links: manifest | tags
Context
1999-09-17
16:42
.login .tclshrc tcl_ft.vim vim_ft.vim tclreadlineCompleter.tcl check-in: d67d766fd4 user: johannes@zellner.org tags: trunk
00:44
Modified Files: src/tclcrystal/.tclcrystalrc src/tclcrystal/Makefile.in src/tclcrystal/configure.in src/tclcrystal/crystal.cc src/tclreadline/README src/tclreadline/tclreadlineCompleter.tcl src/tclreadline/tclreadlineSetup.tcl.in check-in: 1f6689ebb8 user: johannes@zellner.org tags: trunk
1999-09-16
17:38
Modified Files: .login Added Files: .tclcrystalrc Removed Files: .csymrc ---------------------------------------------------------------------- tcl_ft.vim tclreadline.c tclreadline.n.in tclreadlineCompleter.tcl tclreadlineSetup.tcl.in check-in: a8f8df8300 user: johannes@zellner.org tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified README from [e5dd1715dc] to [526d06c650].

     1      1   
     2      2       FILE: "/home/joze/src/tclreadline/README"
     3         -    LAST MODIFICATION: "Tue Aug 31 03:31:39 1999 (joze)"
            3  +    LAST MODIFICATION: "Thu Sep 16 20:02:57 1999 (joze)"
     4      4       (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     5      5       $Id$
     6      6       ---
     7      7   
     8      8       tclreadline -- gnu readline for tcl
     9      9       Copyright (C) 1999  Johannes Zellner
    10     10   
................................................................................
    72     72   installed tclreadline properly, you are just ready to start:
    73     73   start your favorite interpreter. The tclreadlineSetup.tcl script
    74     74   does the rest.
    75     75   
    76     76   
    77     77   4. History and Changes.
    78     78   -----------------------
           79  +
           80  +
           81  +tclreadline-0.9.3: (Sep 1999)
           82  +
           83  +    changes:
           84  +	    - tk completion.
           85  +		- multiple fallback completion routines for unknown
           86  +		  commands.
           87  +		- readline reset-terminal sub-function.
           88  +
           89  +    fixes:
           90  +	    - another revision of procession events and macros.
           91  +
    79     92   
    80     93   tclreadline-0.9.2: (Aug 1999)
    81     94   
    82     95       changes:
    83     96           - history event `!' expansion on <Tab>
    84     97           - if tclreadline::historyLength >= 0,
    85     98             tclreadline::write will truncate the historyfile

Modified tclreadlineCompleter.tcl from [66fd51af9c] to [cb20dd6778].

     1      1   # -*- tclsh -*-
     2         -# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
     3         -# LAST MODIFICATION: "Thu Sep 16 16:24:46 1999 (joze)"
            2  +# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl"
            3  +# LAST MODIFICATION: "Thu Sep 16 22:17:38 1999 (joze)"
     4      4   # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     5      5   # $Id$
     6      6   # ---
     7      7   #
     8      8   # tclreadline -- gnu readline for tcl
     9      9   # Copyright (C) 1999  Johannes Zellner
    10     10   #
................................................................................
  1005   1005   			# strip leading ::'s.
  1006   1006   			#
  1007   1007   			regsub -all {^::} $alias {} alias
  1008   1008   			set namespc [namespace qualifiers $alias]
  1009   1009   			set alias [namespace tail $alias]
  1010   1010   		}
  1011   1011   
         1012  +		# try first a specific completer, then, and only then
         1013  +		# the tclreadline_complete_unknown.
         1014  +		#
  1012   1015   		foreach cmd [list ${alias} tclreadline_complete_unknown] {
  1013   1016   			# puts stderr ${namespc}complete(${cmd})
  1014   1017   			if {"" != [namespace eval ::tclreadline::${namespc} \
  1015   1018   				[list info procs complete(${cmd})]]
  1016   1019   			} {
  1017   1020   				# puts found=|complete($cmd)|
  1018   1021   				# to be more error-proof, we check here,
................................................................................
  1035   1038   					[namespace eval ::tclreadline::${namespc} \
  1036   1039   					[list complete(${cmd}) $part $start $end $line $pos $mod]]]\
  1037   1040   					::tclreadline::errorMsg]
  1038   1041   				} {
  1039   1042   					error [list error during evaluation of `complete(${cmd})']
  1040   1043   				}
  1041   1044   				# puts stderr \nscript_result=|${script_result}|
  1042         -				if {[string length ${script_result}] || \
         1045  +				if {![string length ${script_result}] && \
  1043   1046   					"tclreadline_complete_unknown" == ${cmd}
  1044   1047   				} {
         1048  +					# as we're here, the tclreadline_complete_unknown
         1049  +					# returned an empty string. Fall thru and try
         1050  +					# further fallback completers.
         1051  +					#
         1052  +				} else {
         1053  +					# return also empty strings, if
         1054  +					# they're from a specific completer.
         1055  +					#
  1045   1056   					return ${script_result}
  1046   1057   				}
  1047   1058   			}
  1048   1059   			# set namespc ""; # no qualifiers for tclreadline_complete_unknown
  1049   1060   		}
  1050   1061   
  1051   1062   		# as we've reached here no valid specific completer
................................................................................
  3012   3023   		1 { return [ChannelId ${text}] }
  3013   3024   	}
  3014   3025   	return ""
  3015   3026   }
  3016   3027   
  3017   3028   proc complete(time) {text start end line pos mod} {
  3018   3029   	switch -- $pos {
  3019         -		1 { return [DisplayHints <script>] }
         3030  +		1 { return [BraceOrCommand $text $start $end $line $pos $mod] }
  3020   3031   		2 { return [DisplayHints ?count?] }
  3021   3032   	}
  3022   3033   	return ""
  3023   3034   }
  3024   3035   
  3025   3036   proc complete(trace) {text start end line pos mod} {
  3026   3037   	set cmd [Lindex ${line} 1]

Modified tclreadlineSetup.tcl.in from [4d1fefee5e] to [d62d0c5c0c].

     1      1   #!/usr/locanl/bin/tclsh
     2         -# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
     3         -# LAST MODIFICATION: "Thu Sep 16 18:06:23 1999 (joze)"
            2  +# FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
            3  +# LAST MODIFICATION: "Thu Sep 16 20:36:37 1999 (joze)"
     4      4   # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
     5      5   # $Id$
     6      6   # ---
     7      7   #
     8      8   # tclreadline -- gnu readline for tcl
     9      9   # Copyright (C) 1999  Johannes Zellner
    10     10   #