Check-in [067d518401]
Not logged in
Overview
Comment: configure.in tclreadlineSetup.tcl.in
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:067d5184013745c8a1f207623fc4c60229593aa4
User & Date: johannes@zellner.org on 1999-09-06 09:30:22
Other Links: manifest | tags
Context
1999-09-06
12:08
tclreadlineSetup.tcl.in check-in: c4f34cdde5 user: johannes@zellner.org tags: trunk
09:30
configure.in tclreadlineSetup.tcl.in check-in: 067d518401 user: johannes@zellner.org tags: trunk
06:58
TODO tclreadlineSetup.tcl.in check-in: c7a9a1576d user: johannes@zellner.org tags: trunk, CVS
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified configure.in from [a0c47e134a] to [b31af07b35].

     1      1   # -*- autoconf -*-
     2      2   # FILE: "/diska/home/joze/src/tclreadline/configure.in"
     3         -# LAST MODIFICATION: "Mon Aug 30 11:04:20 1999 (joze)"
            3  +# LAST MODIFICATION: "Mon Sep  6 11:30:15 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   #
................................................................................
    33     33   
    34     34   AC_REVISION($Revision$)
    35     35   
    36     36   AC_INIT(tclreadline.c)
    37     37   
    38     38   TCLREADLINE_MAJOR_VERSION=0
    39     39   TCLREADLINE_MINOR_VERSION=9
    40         -TCLREADLINE_PATCHLEVEL=2
           40  +TCLREADLINE_PATCHLEVEL=3
    41     41   TCLREADLINE_VERSION=$TCLREADLINE_MAJOR_VERSION.$TCLREADLINE_MINOR_VERSION
    42     42   TCLREADLINE_PATCHLEVEL_STR=${TCLREADLINE_VERSION}.${TCLREADLINE_PATCHLEVEL}
    43     43   VERSION=$TCLREADLINE_VERSION
    44     44   
    45     45   
    46     46   AC_PREREQ(2.13)
    47     47   AC_CONFIG_AUX_DIR(./aux)

Modified tclreadlineSetup.tcl.in from [8724f1bf99] to [eb1ce940bb].

     1      1   #!/usr/locanl/bin/tclsh
     2      2   # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
     3         -# LAST MODIFICATION: "Mon Sep  6 08:50:52 1999 (joze)"
            3  +# LAST MODIFICATION: "Mon Sep  6 11:21:53 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   #
................................................................................
  1019   1019   proc InitTclCmds {} {
  1020   1020       variable known_cmds
  1021   1021       foreach line {
  1022   1022           "after option ?arg arg ...?"
  1023   1023           "append varName ?value value ...?"
  1024   1024           "array option arrayName ?arg ...?"
  1025   1025           "bgerror"
  1026         -        "binary option ?arg arg ...?"
  1027   1026           "break"
  1028   1027           "catch command ?varName?"
  1029   1028           "cd"
  1030   1029           "clock"
  1031   1030           "close <channelId>"
  1032   1031           "concat"
  1033   1032           "continue"
................................................................................
  1133   1132   #
  1134   1133   
  1135   1134   # -------------------------------------
  1136   1135   #                 TCL
  1137   1136   # -------------------------------------
  1138   1137   
  1139   1138   proc complete(append) {text start end line pos mod} {
  1140         -    if {1 == $pos} {
  1141         -        return [VarCompletion ${text}]
         1139  +    switch -- $pos {
         1140  +        1 { return [VarCompletion ${text}] }
         1141  +        default { return [Menu ?value?] }
  1142   1142       }
  1143         -    return ""
  1144   1143   }
  1145   1144   
  1146   1145   proc complete(if) {text start end line pos mod} {
  1147   1146       # TODO: this is not good yet.
  1148   1147       if {2 == $pos} {
  1149   1148           return [AttemptFromList $text {then}]
  1150   1149       } elseif {$pos > 2} {
................................................................................
  1225   1224               }
  1226   1225           }
  1227   1226       }
  1228   1227       return ""
  1229   1228   }
  1230   1229   
  1231   1230   proc complete(binary) {text start end line pos mod} {
  1232         -    if {1 == $pos} {
  1233         -        set cmds {
  1234         -            format scan
         1231  +    set cmd [lindex $line 1]
         1232  +    switch -- $pos {
         1233  +        1 {
         1234  +            return [AttemptFromList $text {format scan}]
  1235   1235           }
  1236         -        return [AttemptFromList $text $cmds]
  1237         -# 
  1238         -#     } elseif {2 == $pos} {
  1239         -#         set cmd [lindex $line 1]
  1240         -#         switch -- $cmd {
  1241         -#             format -
  1242         -#             scan -
  1243         -#         }
  1244         -# 
         1236  +        2 {
         1237  +            switch -- $cmd {
         1238  +                format - { return [Menu formatString] }
         1239  +                scan - { return [Menu string] }
         1240  +            }
         1241  +        }
         1242  +        3 {
         1243  +            switch -- $cmd {
         1244  +                format - { return [Menu ?arg?] }
         1245  +                scan - { return [Menu formatString] }
         1246  +            }
         1247  +        }
         1248  +        default {
         1249  +            switch -- $cmd {
         1250  +                format - { return [Menu ?arg?] }
         1251  +                scan - { return [Menu ?varName?] }
         1252  +            }
         1253  +        }
  1245   1254       }
  1246         -    return ""
  1247   1255   }
  1248   1256   
  1249   1257   proc complete(clock) {text start end line pos mod} {
  1250   1258       if {1 == $pos} {
  1251   1259           set cmds {clicks format scan seconds}
  1252   1260           return [AttemptFromList $text $cmds]
  1253   1261       } elseif {2 == $pos} {