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: |
1f6689ebb83bffbf088529fc75d03000 |
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
Modified README from [e5dd1715dc] to [526d06c650].
1
2
3
4
5
6
7
8
9
10
..
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
FILE: "/home/joze/src/tclreadline/README" LAST MODIFICATION: "Tue Aug 31 03:31:39 1999 (joze)" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> $Id$ --- tclreadline -- gnu readline for tcl Copyright (C) 1999 Johannes Zellner ................................................................................ installed tclreadline properly, you are just ready to start: start your favorite interpreter. The tclreadlineSetup.tcl script does the rest. 4. History and Changes. ----------------------- tclreadline-0.9.2: (Aug 1999) changes: - history event `!' expansion on <Tab> - if tclreadline::historyLength >= 0, tclreadline::write will truncate the historyfile |
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
..
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
FILE: "/home/joze/src/tclreadline/README" LAST MODIFICATION: "Thu Sep 16 20:02:57 1999 (joze)" (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> $Id$ --- tclreadline -- gnu readline for tcl Copyright (C) 1999 Johannes Zellner ................................................................................ installed tclreadline properly, you are just ready to start: start your favorite interpreter. The tclreadlineSetup.tcl script does the rest. 4. History and Changes. ----------------------- tclreadline-0.9.3: (Sep 1999) changes: - tk completion. - multiple fallback completion routines for unknown commands. - readline reset-terminal sub-function. fixes: - another revision of procession events and macros. tclreadline-0.9.2: (Aug 1999) changes: - history event `!' expansion on <Tab> - if tclreadline::historyLength >= 0, tclreadline::write will truncate the historyfile |
Modified tclreadlineCompleter.tcl from [66fd51af9c] to [cb20dd6778].
1 2 3 4 5 6 7 8 9 10 .... 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 .... 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 .... 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 |
# -*- tclsh -*- # FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl" # LAST MODIFICATION: "Thu Sep 16 16:24:46 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # ................................................................................ # strip leading ::'s. # regsub -all {^::} $alias {} alias set namespc [namespace qualifiers $alias] set alias [namespace tail $alias] } foreach cmd [list ${alias} tclreadline_complete_unknown] { # puts stderr ${namespc}complete(${cmd}) if {"" != [namespace eval ::tclreadline::${namespc} \ [list info procs complete(${cmd})]] } { # puts found=|complete($cmd)| # to be more error-proof, we check here, ................................................................................ [namespace eval ::tclreadline::${namespc} \ [list complete(${cmd}) $part $start $end $line $pos $mod]]]\ ::tclreadline::errorMsg] } { error [list error during evaluation of `complete(${cmd})'] } # puts stderr \nscript_result=|${script_result}| if {[string length ${script_result}] || \ "tclreadline_complete_unknown" == ${cmd} } { return ${script_result} } } # set namespc ""; # no qualifiers for tclreadline_complete_unknown } # as we've reached here no valid specific completer ................................................................................ 1 { return [ChannelId ${text}] } } return "" } proc complete(time) {text start end line pos mod} { switch -- $pos { 1 { return [DisplayHints <script>] } 2 { return [DisplayHints ?count?] } } return "" } proc complete(trace) {text start end line pos mod} { set cmd [Lindex ${line} 1] |
| | > > > | > > > > > > > > | |
1 2 3 4 5 6 7 8 9 10 .... 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 .... 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 .... 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 |
# -*- tclsh -*- # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" # LAST MODIFICATION: "Thu Sep 16 22:17:38 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # ................................................................................ # strip leading ::'s. # regsub -all {^::} $alias {} alias set namespc [namespace qualifiers $alias] set alias [namespace tail $alias] } # try first a specific completer, then, and only then # the tclreadline_complete_unknown. # foreach cmd [list ${alias} tclreadline_complete_unknown] { # puts stderr ${namespc}complete(${cmd}) if {"" != [namespace eval ::tclreadline::${namespc} \ [list info procs complete(${cmd})]] } { # puts found=|complete($cmd)| # to be more error-proof, we check here, ................................................................................ [namespace eval ::tclreadline::${namespc} \ [list complete(${cmd}) $part $start $end $line $pos $mod]]]\ ::tclreadline::errorMsg] } { error [list error during evaluation of `complete(${cmd})'] } # puts stderr \nscript_result=|${script_result}| if {![string length ${script_result}] && \ "tclreadline_complete_unknown" == ${cmd} } { # as we're here, the tclreadline_complete_unknown # returned an empty string. Fall thru and try # further fallback completers. # } else { # return also empty strings, if # they're from a specific completer. # return ${script_result} } } # set namespc ""; # no qualifiers for tclreadline_complete_unknown } # as we've reached here no valid specific completer ................................................................................ 1 { return [ChannelId ${text}] } } return "" } proc complete(time) {text start end line pos mod} { switch -- $pos { 1 { return [BraceOrCommand $text $start $end $line $pos $mod] } 2 { return [DisplayHints ?count?] } } return "" } proc complete(trace) {text start end line pos mod} { set cmd [Lindex ${line} 1] |
Modified tclreadlineSetup.tcl.in from [4d1fefee5e] to [d62d0c5c0c].
1 2 3 4 5 6 7 8 9 10 |
#!/usr/locanl/bin/tclsh # FILE: "/disk01/home/joze/src/tclreadline/tclreadlineSetup.tcl.in" # LAST MODIFICATION: "Thu Sep 16 18:06:23 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org> # $Id$ # --- # # tclreadline -- gnu readline for tcl # Copyright (C) 1999 Johannes Zellner # |
| | |
1 2 3 4 5 6 7 8 9 10 |
#!/usr/locanl/bin/tclsh
# FILE: "/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
# LAST MODIFICATION: "Thu Sep 16 20:36:37 1999 (joze)"
# (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
# $Id$
# ---
#
# tclreadline -- gnu readline for tcl
# Copyright (C) 1999 Johannes Zellner
#
|