Hex Artifact Content
Not logged in

Artifact efbc741fe26439cfb5cfbd5306b24485f735c779:


0000: 23 21 2f 75 73 72 2f 6c 6f 63 61 6c 2f 62 69 6e  #!/usr/local/bin
0010: 2f 74 63 6c 73 68 0a 23 20 46 49 4c 45 3a 20 22  /tclsh.# FILE: "
0020: 2f 64 69 73 6b 61 2f 68 6f 6d 65 2f 6a 6f 7a 65  /diska/home/joze
0030: 2f 73 72 63 2f 74 63 6c 72 65 61 64 6c 69 6e 65  /src/tclreadline
0040: 2f 74 63 6c 72 65 61 64 6c 69 6e 65 53 65 74 75  /tclreadlineSetu
0050: 70 2e 74 63 6c 2e 69 6e 22 0a 23 20 4c 41 53 54  p.tcl.in".# LAST
0060: 20 4d 4f 44 49 46 49 43 41 54 49 4f 4e 3a 20 22   MODIFICATION: "
0070: 57 65 64 20 41 75 67 20 32 35 20 31 34 3a 34 39  Wed Aug 25 14:49
0080: 3a 33 37 20 31 39 39 39 20 28 6a 6f 7a 65 29 22  :37 1999 (joze)"
0090: 0a 23 20 28 43 29 20 31 39 39 38 2c 20 31 39 39  .# (C) 1998, 199
00a0: 39 20 62 79 20 4a 6f 68 61 6e 6e 65 73 20 5a 65  9 by Johannes Ze
00b0: 6c 6c 6e 65 72 2c 20 3c 6a 6f 68 61 6e 6e 65 73  llner, <johannes
00c0: 40 7a 65 6c 6c 6e 65 72 2e 6f 72 67 3e 0a 23 20  @zellner.org>.# 
00d0: 24 49 64 24 0a 23 20 2d 2d 2d 0a 23 0a 23 20 74  $Id$.# ---.#.# t
00e0: 63 6c 72 65 61 64 6c 69 6e 65 20 2d 2d 20 67 6e  clreadline -- gn
00f0: 75 20 72 65 61 64 6c 69 6e 65 20 66 6f 72 20 74  u readline for t
0100: 63 6c 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28  cl.# Copyright (
0110: 43 29 20 31 39 39 39 20 20 4a 6f 68 61 6e 6e 65  C) 1999  Johanne
0120: 73 20 5a 65 6c 6c 6e 65 72 0a 23 0a 23 20 54 68  s Zellner.#.# Th
0130: 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72  is program is fr
0140: 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75  ee software; you
0150: 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74   can redistribut
0160: 65 20 69 74 20 61 6e 64 2f 6f 72 0a 23 20 6d 6f  e it and/or.# mo
0170: 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 74 68  dify it under th
0180: 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47  e terms of the G
0190: 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69  NU General Publi
01a0: 63 20 4c 69 63 65 6e 73 65 0a 23 20 61 73 20 70  c License.# as p
01b0: 75 62 6c 69 73 68 65 64 20 62 79 20 74 68 65 20  ublished by the 
01c0: 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f  Free Software Fo
01d0: 75 6e 64 61 74 69 6f 6e 3b 20 65 69 74 68 65 72  undation; either
01e0: 20 76 65 72 73 69 6f 6e 20 32 0a 23 20 6f 66 20   version 2.# of 
01f0: 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 20  the License, or 
0200: 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29  (at your option)
0210: 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69   any later versi
0220: 6f 6e 2e 0a 23 0a 23 20 54 68 69 73 20 70 72 6f  on..#.# This pro
0230: 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75  gram is distribu
0240: 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20  ted in the hope 
0250: 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20  that it will be 
0260: 75 73 65 66 75 6c 2c 0a 23 20 62 75 74 20 57 49  useful,.# but WI
0270: 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e  THOUT ANY WARRAN
0280: 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e  TY; without even
0290: 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72   the implied war
02a0: 72 61 6e 74 79 20 6f 66 0a 23 20 4d 45 52 43 48  ranty of.# MERCH
02b0: 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49  ANTABILITY or FI
02c0: 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54  TNESS FOR A PART
02d0: 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20  ICULAR PURPOSE. 
02e0: 20 53 65 65 20 74 68 65 0a 23 20 47 4e 55 20 47   See the.# GNU G
02f0: 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69  eneral Public Li
0300: 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64  cense for more d
0310: 65 74 61 69 6c 73 2e 0a 23 0a 23 20 59 6f 75 20  etails..#.# You 
0320: 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65  should have rece
0330: 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74  ived a copy of t
0340: 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50  he GNU General P
0350: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 23 20  ublic License.# 
0360: 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20  along with this 
0370: 70 72 6f 67 72 61 6d 3b 20 69 66 20 6e 6f 74 2c  program; if not,
0380: 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 46 72   write to the Fr
0390: 65 65 20 53 6f 66 74 77 61 72 65 0a 23 20 46 6f  ee Software.# Fo
03a0: 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20  undation, Inc., 
03b0: 35 39 20 54 65 6d 70 6c 65 20 50 6c 61 63 65 20  59 Temple Place 
03c0: 2d 20 53 75 69 74 65 20 33 33 30 2c 20 42 6f 73  - Suite 330, Bos
03d0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31  ton, MA  02111-1
03e0: 33 30 37 2c 20 55 53 41 2e 0a 23 0a 23 20 6a 6f  307, USA..#.# jo
03f0: 68 61 6e 6e 65 73 40 7a 65 6c 6c 6e 65 72 2e 6f  hannes@zellner.o
0400: 72 67 0a 23 20 68 74 74 70 3a 2f 2f 77 77 77 2e  rg.# http://www.
0410: 7a 65 6c 6c 6e 65 72 2e 6f 72 67 2f 74 63 6c 72  zellner.org/tclr
0420: 65 61 64 6c 69 6e 65 2f 0a 23 0a 23 20 3d 3d 3d  eadline/.#.# ===
0430: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0440: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0450: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0460: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20  =============== 
0470: 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64  ..package provid
0480: 65 20 74 63 6c 72 65 61 64 6c 69 6e 65 20 40 54  e tclreadline @T
0490: 43 4c 52 45 41 44 4c 49 4e 45 5f 56 45 52 53 49  CLREADLINE_VERSI
04a0: 4f 4e 40 0a 0a 70 72 6f 63 20 75 6e 6b 6e 6f 77  ON@..proc unknow
04b0: 6e 20 61 72 67 73 20 7b 0a 0a 20 20 20 20 67 6c  n args {..    gl
04c0: 6f 62 61 6c 20 61 75 74 6f 5f 6e 6f 65 78 65 63  obal auto_noexec
04d0: 20 61 75 74 6f 5f 6e 6f 6c 6f 61 64 20 65 6e 76   auto_noload env
04e0: 20 75 6e 6b 6e 6f 77 6e 5f 70 65 6e 64 69 6e 67   unknown_pending
04f0: 20 74 63 6c 5f 69 6e 74 65 72 61 63 74 69 76 65   tcl_interactive
0500: 0a 20 20 20 20 67 6c 6f 62 61 6c 20 65 72 72 6f  .    global erro
0510: 72 43 6f 64 65 20 65 72 72 6f 72 49 6e 66 6f 0a  rCode errorInfo.
0520: 0a 20 20 20 20 23 20 53 61 76 65 20 74 68 65 20  .    # Save the 
0530: 76 61 6c 75 65 73 20 6f 66 20 65 72 72 6f 72 43  values of errorC
0540: 6f 64 65 20 61 6e 64 20 65 72 72 6f 72 49 6e 66  ode and errorInf
0550: 6f 20 76 61 72 69 61 62 6c 65 73 2c 20 73 69 6e  o variables, sin
0560: 63 65 20 74 68 65 79 0a 20 20 20 20 23 20 6d 61  ce they.    # ma
0570: 79 20 67 65 74 20 6d 6f 64 69 66 69 65 64 20 69  y get modified i
0580: 66 20 63 61 75 67 68 74 20 65 72 72 6f 72 73 20  f caught errors 
0590: 6f 63 63 75 72 20 62 65 6c 6f 77 2e 20 20 54 68  occur below.  Th
05a0: 65 20 76 61 72 69 61 62 6c 65 73 20 77 69 6c 6c  e variables will
05b0: 0a 20 20 20 20 23 20 62 65 20 72 65 73 74 6f 72  .    # be restor
05c0: 65 64 20 6a 75 73 74 20 62 65 66 6f 72 65 20 72  ed just before r
05d0: 65 2d 65 78 65 63 75 74 69 6e 67 20 74 68 65 20  e-executing the 
05e0: 6d 69 73 73 69 6e 67 20 63 6f 6d 6d 61 6e 64 2e  missing command.
05f0: 0a 0a 20 20 20 20 73 65 74 20 73 61 76 65 64 45  ..    set savedE
0600: 72 72 6f 72 43 6f 64 65 20 24 65 72 72 6f 72 43  rrorCode $errorC
0610: 6f 64 65 0a 20 20 20 20 73 65 74 20 73 61 76 65  ode.    set save
0620: 64 45 72 72 6f 72 49 6e 66 6f 20 24 65 72 72 6f  dErrorInfo $erro
0630: 72 49 6e 66 6f 0a 20 20 20 20 73 65 74 20 6e 61  rInfo.    set na
0640: 6d 65 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73  me [lindex $args
0650: 20 30 5d 0a 20 20 20 20 69 66 20 21 5b 69 6e 66   0].    if ![inf
0660: 6f 20 65 78 69 73 74 73 20 61 75 74 6f 5f 6e 6f  o exists auto_no
0670: 6c 6f 61 64 5d 20 7b 0a 20 20 20 20 20 20 20 20  load] {.        
0680: 23 0a 20 20 20 20 20 20 20 20 23 20 4d 61 6b 65  #.        # Make
0690: 20 73 75 72 65 20 77 65 27 72 65 20 6e 6f 74 20   sure we're not 
06a0: 74 72 79 69 6e 67 20 74 6f 20 6c 6f 61 64 20 74  trying to load t
06b0: 68 65 20 73 61 6d 65 20 70 72 6f 63 20 74 77 69  he same proc twi
06c0: 63 65 2e 0a 20 20 20 20 20 20 20 20 23 0a 20 20  ce..        #.  
06d0: 20 20 20 20 20 20 69 66 20 5b 69 6e 66 6f 20 65        if [info e
06e0: 78 69 73 74 73 20 75 6e 6b 6e 6f 77 6e 5f 70 65  xists unknown_pe
06f0: 6e 64 69 6e 67 28 24 6e 61 6d 65 29 5d 20 7b 0a  nding($name)] {.
0700: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
0710: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22  rn -code error "
0720: 73 65 6c 66 2d 72 65 66 65 72 65 6e 74 69 61 6c  self-referential
0730: 20 72 65 63 75 72 73 69 6f 6e 20 69 6e 20 5c 22   recursion in \"
0740: 75 6e 6b 6e 6f 77 6e 5c 22 20 66 6f 72 20 63 6f  unknown\" for co
0750: 6d 6d 61 6e 64 20 5c 22 24 6e 61 6d 65 5c 22 22  mmand \"$name\""
0760: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
0770: 20 20 20 73 65 74 20 75 6e 6b 6e 6f 77 6e 5f 70     set unknown_p
0780: 65 6e 64 69 6e 67 28 24 6e 61 6d 65 29 20 70 65  ending($name) pe
0790: 6e 64 69 6e 67 0a 20 20 20 20 20 20 20 20 73 65  nding.        se
07a0: 74 20 72 65 74 20 5b 63 61 74 63 68 20 7b 61 75  t ret [catch {au
07b0: 74 6f 5f 6c 6f 61 64 20 24 6e 61 6d 65 20 5b 75  to_load $name [u
07c0: 70 6c 65 76 65 6c 20 31 20 7b 6e 61 6d 65 73 70  plevel 1 {namesp
07d0: 61 63 65 20 63 75 72 72 65 6e 74 7d 5d 7d 20 6d  ace current}]} m
07e0: 73 67 5d 0a 20 20 20 20 20 20 20 20 75 6e 73 65  sg].        unse
07f0: 74 20 75 6e 6b 6e 6f 77 6e 5f 70 65 6e 64 69 6e  t unknown_pendin
0800: 67 28 24 6e 61 6d 65 29 0a 20 20 20 20 20 20 20  g($name).       
0810: 20 69 66 20 7b 24 72 65 74 20 21 3d 20 30 7d 20   if {$ret != 0} 
0820: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  {.            re
0830: 74 75 72 6e 20 2d 63 6f 64 65 20 24 72 65 74 20  turn -code $ret 
0840: 2d 65 72 72 6f 72 63 6f 64 65 20 24 65 72 72 6f  -errorcode $erro
0850: 72 43 6f 64 65 20 5c 0a 20 20 20 20 20 20 20 20  rCode \.        
0860: 20 20 20 20 20 20 20 20 22 65 72 72 6f 72 20 77          "error w
0870: 68 69 6c 65 20 61 75 74 6f 6c 6f 61 64 69 6e 67  hile autoloading
0880: 20 5c 22 24 6e 61 6d 65 5c 22 3a 20 24 6d 73 67   \"$name\": $msg
0890: 22 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ".        }.    
08a0: 20 20 20 20 69 66 20 21 5b 61 72 72 61 79 20 73      if ![array s
08b0: 69 7a 65 20 75 6e 6b 6e 6f 77 6e 5f 70 65 6e 64  ize unknown_pend
08c0: 69 6e 67 5d 20 7b 0a 20 20 20 20 20 20 20 20 20  ing] {.         
08d0: 20 20 20 75 6e 73 65 74 20 75 6e 6b 6e 6f 77 6e     unset unknown
08e0: 5f 70 65 6e 64 69 6e 67 0a 20 20 20 20 20 20 20  _pending.       
08f0: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20 24 6d   }.        if $m
0900: 73 67 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  sg {.           
0910: 20 73 65 74 20 65 72 72 6f 72 43 6f 64 65 20 24   set errorCode $
0920: 73 61 76 65 64 45 72 72 6f 72 43 6f 64 65 0a 20  savedErrorCode. 
0930: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 65             set e
0940: 72 72 6f 72 49 6e 66 6f 20 24 73 61 76 65 64 45  rrorInfo $savedE
0950: 72 72 6f 72 49 6e 66 6f 0a 20 20 20 20 20 20 20  rrorInfo.       
0960: 20 20 20 20 20 73 65 74 20 63 6f 64 65 20 5b 63       set code [c
0970: 61 74 63 68 20 7b 75 70 6c 65 76 65 6c 20 31 20  atch {uplevel 1 
0980: 24 61 72 67 73 7d 20 6d 73 67 5d 0a 20 20 20 20  $args} msg].    
0990: 20 20 20 20 20 20 20 20 69 66 20 7b 24 63 6f 64          if {$cod
09a0: 65 20 3d 3d 20 20 31 7d 20 7b 0a 20 20 20 20 20  e ==  1} {.     
09b0: 20 20 20 20 20 20 20 20 20 20 20 23 0a 20 20 20             #.   
09c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 53               # S
09d0: 74 72 69 70 20 74 68 65 20 6c 61 73 74 20 66 69  trip the last fi
09e0: 76 65 20 6c 69 6e 65 73 20 6f 66 66 20 74 68 65  ve lines off the
09f0: 20 65 72 72 6f 72 20 73 74 61 63 6b 20 28 74 68   error stack (th
0a00: 65 79 27 72 65 0a 20 20 20 20 20 20 20 20 20 20  ey're.          
0a10: 20 20 20 20 20 20 23 20 66 72 6f 6d 20 74 68 65        # from the
0a20: 20 22 75 70 6c 65 76 65 6c 22 20 63 6f 6d 6d 61   "uplevel" comma
0a30: 6e 64 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20  nd)..           
0a40: 20 20 20 20 20 23 0a 0a 20 20 20 20 20 20 20 20       #..        
0a50: 20 20 20 20 20 20 20 20 73 65 74 20 6e 65 77 20          set new 
0a60: 5b 73 70 6c 69 74 20 24 65 72 72 6f 72 49 6e 66  [split $errorInf
0a70: 6f 20 5c 6e 5d 0a 20 20 20 20 20 20 20 20 20 20  o \n].          
0a80: 20 20 20 20 20 20 73 65 74 20 6e 65 77 20 5b 6a        set new [j
0a90: 6f 69 6e 20 5b 6c 72 61 6e 67 65 20 24 6e 65 77  oin [lrange $new
0aa0: 20 30 20 5b 65 78 70 72 20 5b 6c 6c 65 6e 67 74   0 [expr [llengt
0ab0: 68 20 24 6e 65 77 5d 20 2d 20 36 5d 5d 20 5c 6e  h $new] - 6]] \n
0ac0: 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ].              
0ad0: 20 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65    return -code e
0ae0: 72 72 6f 72 20 2d 65 72 72 6f 72 63 6f 64 65 20  rror -errorcode 
0af0: 24 65 72 72 6f 72 43 6f 64 65 20 5c 0a 20 20 20  $errorCode \.   
0b00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b10: 20 20 20 20 20 2d 65 72 72 6f 72 69 6e 66 6f 20       -errorinfo 
0b20: 24 6e 65 77 20 24 6d 73 67 0a 20 20 20 20 20 20  $new $msg.      
0b30: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
0b40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72                 r
0b50: 65 74 75 72 6e 20 2d 63 6f 64 65 20 24 63 6f 64  eturn -code $cod
0b60: 65 20 24 6d 73 67 0a 20 20 20 20 20 20 20 20 20  e $msg.         
0b70: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20     }.        }. 
0b80: 20 20 20 7d 0a 0a 20 20 20 20 23 20 52 45 4d 4f     }..    # REMO
0b90: 56 45 44 20 54 48 45 20 5b 69 6e 66 6f 20 73 63  VED THE [info sc
0ba0: 72 69 70 74 5d 20 54 45 53 54 20 28 6a 6f 7a 65  ript] TEST (joze
0bb0: 2c 20 53 45 50 20 39 38 29 0a 20 20 20 20 69 66  , SEP 98).    if
0bc0: 20 7b 28 5b 69 6e 66 6f 20 6c 65 76 65 6c 5d 20   {([info level] 
0bd0: 3d 3d 20 31 29 20 5c 0a 20 20 20 20 20 20 20 20  == 1) \.        
0be0: 20 20 20 20 26 26 20 5b 69 6e 66 6f 20 65 78 69      && [info exi
0bf0: 73 74 73 20 74 63 6c 5f 69 6e 74 65 72 61 63 74  sts tcl_interact
0c00: 69 76 65 5d 20 26 26 20 24 74 63 6c 5f 69 6e 74  ive] && $tcl_int
0c10: 65 72 61 63 74 69 76 65 7d 20 7b 0a 20 20 20 20  eractive} {.    
0c20: 20 20 20 20 69 66 20 21 5b 69 6e 66 6f 20 65 78      if ![info ex
0c30: 69 73 74 73 20 61 75 74 6f 5f 6e 6f 65 78 65 63  ists auto_noexec
0c40: 5d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ] {.            
0c50: 73 65 74 20 6e 65 77 20 5b 61 75 74 6f 5f 65 78  set new [auto_ex
0c60: 65 63 6f 6b 20 24 6e 61 6d 65 5d 0a 20 20 20 20  ecok $name].    
0c70: 20 20 20 20 20 20 20 20 69 66 20 7b 24 6e 65 77          if {$new
0c80: 20 21 3d 20 22 22 7d 20 7b 0a 20 20 20 20 20 20   != ""} {.      
0c90: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 65 72            set er
0ca0: 72 6f 72 43 6f 64 65 20 24 73 61 76 65 64 45 72  rorCode $savedEr
0cb0: 72 6f 72 43 6f 64 65 0a 20 20 20 20 20 20 20 20  rorCode.        
0cc0: 20 20 20 20 20 20 20 20 73 65 74 20 65 72 72 6f          set erro
0cd0: 72 49 6e 66 6f 20 24 73 61 76 65 64 45 72 72 6f  rInfo $savedErro
0ce0: 72 49 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20  rInfo.          
0cf0: 20 20 20 20 20 20 73 65 74 20 72 65 64 69 72 20        set redir 
0d00: 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  "".             
0d10: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d     if {[info com
0d20: 6d 61 6e 64 73 20 63 6f 6e 73 6f 6c 65 5d 20 3d  mands console] =
0d30: 3d 20 22 22 7d 20 7b 0a 20 20 20 20 20 20 20 20  = ""} {.        
0d40: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
0d50: 72 65 64 69 72 20 22 3e 26 40 73 74 64 6f 75 74  redir ">&@stdout
0d60: 20 3c 40 73 74 64 69 6e 22 0a 20 20 20 20 20 20   <@stdin".      
0d70: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
0d80: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4c 4f              # LO
0d90: 4f 4b 20 46 4f 52 20 47 4c 4f 42 20 53 54 55 46  OK FOR GLOB STUF
0da0: 46 20 49 4e 20 24 41 52 47 53 20 28 6a 6f 7a 65  F IN $ARGS (joze
0db0: 2c 20 53 45 50 20 39 38 29 0a 20 20 20 20 20 20  , SEP 98).      
0dc0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
0dd0: 20 5b 75 70 6c 65 76 65 6c 20 65 76 61 6c 20 65   [uplevel eval e
0de0: 78 65 63 20 24 72 65 64 69 72 20 24 6e 65 77 20  xec $redir $new 
0df0: 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  \.              
0e00: 20 20 20 20 20 20 5b 3a 3a 74 63 6c 72 65 61 64        [::tclread
0e10: 6c 69 6e 65 3a 3a 47 6c 6f 62 20 5b 6c 72 61 6e  line::Glob [lran
0e20: 67 65 20 24 61 72 67 73 20 31 20 65 6e 64 5d 5d  ge $args 1 end]]
0e30: 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a  ].            }.
0e40: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
0e50: 20 20 73 65 74 20 65 72 72 6f 72 43 6f 64 65 20    set errorCode 
0e60: 24 73 61 76 65 64 45 72 72 6f 72 43 6f 64 65 0a  $savedErrorCode.
0e70: 20 20 20 20 20 20 20 20 73 65 74 20 65 72 72 6f          set erro
0e80: 72 49 6e 66 6f 20 24 73 61 76 65 64 45 72 72 6f  rInfo $savedErro
0e90: 72 49 6e 66 6f 0a 20 20 20 20 20 20 20 20 69 66  rInfo.        if
0ea0: 20 7b 24 6e 61 6d 65 20 3d 3d 20 22 21 21 22 7d   {$name == "!!"}
0eb0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73   {.            s
0ec0: 65 74 20 6e 65 77 63 6d 64 20 5b 68 69 73 74 6f  et newcmd [histo
0ed0: 72 79 20 65 76 65 6e 74 5d 0a 20 20 20 20 20 20  ry event].      
0ee0: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65 67    } elseif {[reg
0ef0: 65 78 70 20 7b 5e 21 28 2e 2b 29 24 7d 20 24 6e  exp {^!(.+)$} $n
0f00: 61 6d 65 20 64 75 6d 6d 79 20 65 76 65 6e 74 5d  ame dummy event]
0f10: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  } {.            
0f20: 73 65 74 20 6e 65 77 63 6d 64 20 5b 68 69 73 74  set newcmd [hist
0f30: 6f 72 79 20 65 76 65 6e 74 20 24 65 76 65 6e 74  ory event $event
0f40: 5d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65  ].        } else
0f50: 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 5c 5e  if {[regexp {^\^
0f60: 28 5b 5e 5e 5d 2a 29 5c 5e 28 5b 5e 5e 5d 2a 29  ([^^]*)\^([^^]*)
0f70: 5c 5e 3f 24 7d 20 24 6e 61 6d 65 20 64 75 6d 6d  \^?$} $name dumm
0f80: 79 20 6f 6c 64 20 6e 65 77 5d 7d 20 7b 0a 20 20  y old new]} {.  
0f90: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6e 65            set ne
0fa0: 77 63 6d 64 20 5b 68 69 73 74 6f 72 79 20 65 76  wcmd [history ev
0fb0: 65 6e 74 20 2d 31 5d 0a 20 20 20 20 20 20 20 20  ent -1].        
0fc0: 20 20 20 20 63 61 74 63 68 20 7b 72 65 67 73 75      catch {regsu
0fd0: 62 20 2d 61 6c 6c 20 2d 2d 20 24 6f 6c 64 20 24  b -all -- $old $
0fe0: 6e 65 77 63 6d 64 20 24 6e 65 77 20 6e 65 77 63  newcmd $new newc
0ff0: 6d 64 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  md}.        }.  
1000: 20 20 20 20 20 20 69 66 20 5b 69 6e 66 6f 20 65        if [info e
1010: 78 69 73 74 73 20 6e 65 77 63 6d 64 5d 20 7b 0a  xists newcmd] {.
1020: 20 20 20 20 20 20 20 20 20 20 20 20 74 63 6c 4c              tclL
1030: 6f 67 20 24 6e 65 77 63 6d 64 0a 20 20 20 20 20  og $newcmd.     
1040: 20 20 20 20 20 20 20 68 69 73 74 6f 72 79 20 63         history c
1050: 68 61 6e 67 65 20 24 6e 65 77 63 6d 64 20 30 0a  hange $newcmd 0.
1060: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
1070: 72 6e 20 5b 75 70 6c 65 76 65 6c 20 24 6e 65 77  rn [uplevel $new
1080: 63 6d 64 5d 0a 20 20 20 20 20 20 20 20 7d 0a 0a  cmd].        }..
1090: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 74 20          set ret 
10a0: 5b 63 61 74 63 68 20 7b 73 65 74 20 63 6d 64 73  [catch {set cmds
10b0: 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 73 20   [info commands 
10c0: 24 6e 61 6d 65 2a 5d 7d 20 6d 73 67 5d 0a 20 20  $name*]} msg].  
10d0: 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e        if {[strin
10e0: 67 20 63 6f 6d 70 61 72 65 20 24 6e 61 6d 65 20  g compare $name 
10f0: 22 3a 3a 22 5d 20 3d 3d 20 30 7d 20 7b 0a 20 20  "::"] == 0} {.  
1100: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6e 61            set na
1110: 6d 65 20 22 22 0a 20 20 20 20 20 20 20 20 7d 0a  me "".        }.
1120: 20 20 20 20 20 20 20 20 69 66 20 7b 24 72 65 74          if {$ret
1130: 20 21 3d 20 30 7d 20 7b 0a 20 20 20 20 20 20 20   != 0} {.       
1140: 20 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f 64       return -cod
1150: 65 20 24 72 65 74 20 2d 65 72 72 6f 72 63 6f 64  e $ret -errorcod
1160: 65 20 24 65 72 72 6f 72 43 6f 64 65 20 5c 0a 20  e $errorCode \. 
1170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
1180: 65 72 72 6f 72 20 69 6e 20 75 6e 6b 6e 6f 77 6e  error in unknown
1190: 20 77 68 69 6c 65 20 63 68 65 63 6b 69 6e 67 20   while checking 
11a0: 69 66 20 5c 22 24 6e 61 6d 65 5c 22 20 69 73 20  if \"$name\" is 
11b0: 61 20 75 6e 69 71 75 65 20 63 6f 6d 6d 61 6e 64  a unique command
11c0: 20 61 62 62 72 65 76 69 61 74 69 6f 6e 3a 20 24   abbreviation: $
11d0: 6d 73 67 22 0a 20 20 20 20 20 20 20 20 7d 0a 20  msg".        }. 
11e0: 20 20 20 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e         if {[llen
11f0: 67 74 68 20 24 63 6d 64 73 5d 20 3d 3d 20 31 7d  gth $cmds] == 1}
1200: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72   {.            r
1210: 65 74 75 72 6e 20 5b 75 70 6c 65 76 65 6c 20 5b  eturn [uplevel [
1220: 6c 72 65 70 6c 61 63 65 20 24 61 72 67 73 20 30  lreplace $args 0
1230: 20 30 20 24 63 6d 64 73 5d 5d 0a 20 20 20 20 20   0 $cmds]].     
1240: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20     }.        if 
1250: 7b 5b 6c 6c 65 6e 67 74 68 20 24 63 6d 64 73 5d  {[llength $cmds]
1260: 20 21 3d 20 30 7d 20 7b 0a 20 20 20 20 20 20 20   != 0} {.       
1270: 20 20 20 20 20 69 66 20 7b 24 6e 61 6d 65 20 3d       if {$name =
1280: 3d 20 22 22 7d 20 7b 0a 20 20 20 20 20 20 20 20  = ""} {.        
1290: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 2d          return -
12a0: 63 6f 64 65 20 65 72 72 6f 72 20 22 65 6d 70 74  code error "empt
12b0: 79 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 5c  y command name \
12c0: 22 5c 22 22 0a 20 20 20 20 20 20 20 20 20 20 20  "\"".           
12d0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
12e0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
12f0: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 5c 0a 20   -code error \. 
1300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1310: 20 20 20 20 20 20 20 22 61 6d 62 69 67 75 6f 75         "ambiguou
1320: 73 20 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 5c  s command name \
1330: 22 24 6e 61 6d 65 5c 22 3a 20 5b 6c 73 6f 72 74  "$name\": [lsort
1340: 20 24 63 6d 64 73 5d 22 0a 20 20 20 20 20 20 20   $cmds]".       
1350: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
1360: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
1370: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 69  n -code error "i
1380: 6e 76 61 6c 69 64 20 63 6f 6d 6d 61 6e 64 20 6e  nvalid command n
1390: 61 6d 65 20 5c 22 24 6e 61 6d 65 5c 22 22 0a 7d  ame \"$name\"".}
13a0: 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c  ..namespace eval
13b0: 20 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 20 7b   tclreadline:: {
13c0: 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65  .    namespace e
13d0: 78 70 6f 72 74 20 53 65 74 75 70 20 47 6c 6f 62  xport Setup Glob
13e0: 20 4c 6f 6f 70 20 49 6e 69 74 43 6d 64 73 20 49   Loop InitCmds I
13f0: 6e 69 74 54 63 6c 43 6d 64 73 20 49 6e 69 74 54  nitTclCmds InitT
1400: 6b 43 6d 64 73 20 50 72 69 6e 74 20 6c 73 0a 7d  kCmds Print ls.}
1410: 0a 0a 23 20 67 65 74 20 74 68 65 20 6c 6f 6e 67  ..# get the long
1420: 65 73 74 20 63 6f 6d 6d 6f 6e 20 63 6f 6d 70 6c  est common compl
1430: 65 74 69 6f 6e 0a 23 20 65 2e 67 2e 20 73 74 72  etion.# e.g. str
1440: 20 3d 3d 20 7b 74 63 6c 5f 76 65 72 73 69 6f 6e   == {tcl_version
1450: 20 74 63 6c 72 65 61 64 6c 69 6e 65 5f 76 65 72   tclreadline_ver
1460: 73 69 6f 6e 20 74 63 6c 72 65 61 64 6c 69 6e 65  sion tclreadline
1470: 5f 6c 69 62 72 61 72 79 7d 0a 23 20 2d 2d 3e 20  _library}.# --> 
1480: 5b 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 47 65  [tclreadline::Ge
1490: 74 43 6f 6d 6d 6f 6e 20 24 7b 73 74 72 7d 5d 20  tCommon ${str}] 
14a0: 3d 3d 20 22 74 63 6c 22 0a 23 0a 70 72 6f 63 20  == "tcl".#.proc 
14b0: 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 47 65 74  tclreadline::Get
14c0: 43 6f 6d 6d 6f 6e 20 7b 73 74 72 7d 20 7b 0a 20  Common {str} {. 
14d0: 20 20 20 23 20 70 75 74 73 20 73 74 64 65 72 72     # puts stderr
14e0: 20 73 74 72 3d 24 73 74 72 0a 20 20 20 20 73 65   str=$str.    se
14f0: 74 20 6d 61 74 63 68 30 20 5b 6c 69 6e 64 65 78  t match0 [lindex
1500: 20 24 7b 73 74 72 7d 20 30 5d 0a 20 20 20 20 73   ${str} 0].    s
1510: 65 74 20 6c 65 6e 30 20 5b 73 74 72 69 6e 67 20  et len0 [string 
1520: 6c 65 6e 67 74 68 20 24 6d 61 74 63 68 30 5d 0a  length $match0].
1530: 20 20 20 20 73 65 74 20 6e 6f 5f 6d 61 74 63 68      set no_match
1540: 65 73 20 5b 6c 6c 65 6e 67 74 68 20 24 7b 73 74  es [llength ${st
1550: 72 7d 5d 0a 20 20 20 20 73 65 74 20 70 61 72 74  r}].    set part
1560: 20 22 22 0a 20 20 20 20 66 6f 72 20 7b 73 65 74   "".    for {set
1570: 20 69 20 30 7d 20 7b 24 69 20 3c 20 24 6c 65 6e   i 0} {$i < $len
1580: 30 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20  0} {incr i} {.  
1590: 20 20 20 20 20 20 73 65 74 20 63 68 61 72 20 5b        set char [
15a0: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 6d 61  string index $ma
15b0: 74 63 68 30 20 24 69 5d 0a 20 20 20 20 20 20 20  tch0 $i].       
15c0: 20 66 6f 72 20 7b 73 65 74 20 6a 20 31 7d 20 7b   for {set j 1} {
15d0: 24 6a 20 3c 20 24 6e 6f 5f 6d 61 74 63 68 65 73  $j < $no_matches
15e0: 7d 20 7b 69 6e 63 72 20 6a 7d 20 7b 0a 20 20 20  } {incr j} {.   
15f0: 20 20 20 20 20 20 20 20 20 69 66 20 7b 24 63 68           if {$ch
1600: 61 72 20 21 3d 20 5b 73 74 72 69 6e 67 20 69 6e  ar != [string in
1610: 64 65 78 20 5b 6c 69 6e 64 65 78 20 24 7b 73 74  dex [lindex ${st
1620: 72 7d 20 24 6a 5d 20 24 69 5d 7d 20 7b 0a 20 20  r} $j] $i]} {.  
1630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72                br
1640: 65 61 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20  eak.            
1650: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
1660: 20 20 20 20 69 66 20 7b 24 6a 20 3c 20 24 6e 6f      if {$j < $no
1670: 5f 6d 61 74 63 68 65 73 7d 20 7b 0a 20 20 20 20  _matches} {.    
1680: 20 20 20 20 20 20 20 20 62 72 65 61 6b 0a 20 20          break.  
1690: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
16a0: 20 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e             appen
16b0: 64 20 70 61 72 74 20 24 63 68 61 72 0a 20 20 20  d part $char.   
16c0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
16d0: 20 23 20 70 75 74 73 20 73 74 64 65 72 72 20 70   # puts stderr p
16e0: 61 72 74 3d 24 70 61 72 74 0a 20 20 20 20 72 65  art=$part.    re
16f0: 74 75 72 6e 20 24 7b 70 61 72 74 7d 0a 7d 0a 0a  turn ${part}.}..
1700: 70 72 6f 63 20 74 63 6c 72 65 61 64 6c 69 6e 65  proc tclreadline
1710: 3a 3a 53 75 62 43 6d 64 20 7b 73 74 61 72 74 20  ::SubCmd {start 
1720: 6c 69 6e 65 7d 20 7b 0a 20 20 20 20 73 65 74 20  line} {.    set 
1730: 64 65 70 74 68 20 30 0a 20 20 20 20 66 6f 72 20  depth 0.    for 
1740: 7b 73 65 74 20 69 20 24 73 74 61 72 74 7d 20 7b  {set i $start} {
1750: 24 69 20 3e 20 30 7d 20 7b 69 6e 63 72 20 69 20  $i > 0} {incr i 
1760: 2d 31 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65  -1} {.        se
1770: 74 20 63 20 5b 73 74 72 69 6e 67 20 69 6e 64 65  t c [string inde
1780: 78 20 24 6c 69 6e 65 20 24 69 5d 0a 20 20 20 20  x $line $i].    
1790: 20 20 20 20 69 66 20 7b 7b 3b 7d 20 3d 3d 20 24      if {{;} == $
17a0: 63 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  c} {.           
17b0: 20 69 6e 63 72 20 69 3b 20 23 20 64 69 73 63 61   incr i; # disca
17c0: 72 64 20 63 6f 6d 6d 61 6e 64 20 62 72 65 61 6b  rd command break
17d0: 20 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20   character.     
17e0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6c         return [l
17f0: 69 73 74 20 5b 65 78 70 72 20 24 73 74 61 72 74  ist [expr $start
1800: 20 2d 20 24 69 5d 20 5b 73 74 72 69 6e 67 20 72   - $i] [string r
1810: 61 6e 67 65 20 24 6c 69 6e 65 20 24 69 20 65 6e  ange $line $i en
1820: 64 5d 5d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c  d]].        } el
1830: 73 65 69 66 20 7b 7b 5d 7d 20 3d 3d 20 24 63 7d  seif {{]} == $c}
1840: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69   {.            i
1850: 6e 63 72 20 64 65 70 74 68 0a 20 20 20 20 20 20  ncr depth.      
1860: 20 20 7d 20 65 6c 73 65 69 66 20 7b 7b 5b 7d 20    } elseif {{[} 
1870: 3d 3d 20 24 63 7d 20 7b 0a 20 20 20 20 20 20 20  == $c} {.       
1880: 20 20 20 20 20 69 6e 63 72 20 64 65 70 74 68 20       incr depth 
1890: 2d 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  -1.            i
18a0: 66 20 7b 24 64 65 70 74 68 20 3c 20 30 7d 20 7b  f {$depth < 0} {
18b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
18c0: 20 69 6e 63 72 20 69 3b 20 23 20 64 69 73 63 61   incr i; # disca
18d0: 72 64 20 63 6f 6d 6d 61 6e 64 20 62 72 65 61 6b  rd command break
18e0: 20 63 68 61 72 61 63 74 65 72 0a 20 20 20 20 20   character.     
18f0: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
1900: 6e 20 5b 6c 69 73 74 20 5b 65 78 70 72 20 24 73  n [list [expr $s
1910: 74 61 72 74 20 2d 20 24 69 5d 20 5b 73 74 72 69  tart - $i] [stri
1920: 6e 67 20 72 61 6e 67 65 20 24 6c 69 6e 65 20 24  ng range $line $
1930: 69 20 65 6e 64 5d 5d 0a 20 20 20 20 20 20 20 20  i end]].        
1940: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a      }.        }.
1950: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
1960: 20 22 22 0a 7d 0a 0a 23 20 25 20 70 3c 54 41 42   "".}..# % p<TAB
1970: 3e 0a 23 20 25 20 62 6c 61 20 70 75 74 3c 54 41  >.# % bla put<TA
1980: 42 3e 20 24 62 0a 23 20 25 20 70 75 74 3c 54 41  B> $b.# % put<TA
1990: 42 3e 20 24 62 0a 23 20 70 61 72 74 20 20 3d 3d  B> $b.# part  ==
19a0: 20 70 75 74 0a 23 20 73 74 61 72 74 20 3d 3d 20   put.# start == 
19b0: 30 0a 23 20 65 6e 64 20 20 20 3d 3d 20 33 0a 23  0.# end   == 3.#
19c0: 20 6c 69 6e 65 20 20 3d 3d 20 22 70 75 74 20 24   line  == "put $
19d0: 62 22 0a 23 20 5b 50 61 72 74 50 6f 73 69 74 69  b".# [PartPositi
19e0: 6f 6e 5d 20 73 68 6f 75 6c 64 20 72 65 74 75 72  on] should retur
19f0: 6e 20 30 0a 23 0a 70 72 6f 63 20 74 63 6c 72 65  n 0.#.proc tclre
1a00: 61 64 6c 69 6e 65 3a 3a 50 61 72 74 50 6f 73 69  adline::PartPosi
1a10: 74 69 6f 6e 20 7b 70 61 72 74 20 73 74 61 72 74  tion {part start
1a20: 20 65 6e 64 20 6c 69 6e 65 7d 20 7b 0a 20 20 20   end line} {.   
1a30: 20 69 6e 63 72 20 73 74 61 72 74 20 2d 31 0a 20   incr start -1. 
1a40: 20 20 20 23 20 70 75 74 73 20 73 74 64 65 72 72     # puts stderr
1a50: 20 22 28 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a   "(tclreadline::
1a60: 50 61 72 74 50 6f 73 69 74 69 6f 6e 29 20 6c 69  PartPosition) li
1a70: 6e 65 3d 7c 24 6c 69 6e 65 7c 22 20 0a 20 20 20  ne=|$line|" .   
1a80: 20 23 20 70 75 74 73 20 73 74 64 65 72 72 20 22   # puts stderr "
1a90: 28 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 50 61  (tclreadline::Pa
1aa0: 72 74 50 6f 73 69 74 69 6f 6e 29 20 73 74 61 72  rtPosition) star
1ab0: 74 3d 24 73 74 61 72 74 22 0a 20 20 20 20 73 65  t=$start".    se
1ac0: 74 20 6c 69 6e 65 20 5b 73 74 72 69 6e 67 20 72  t line [string r
1ad0: 61 6e 67 65 20 24 6c 69 6e 65 20 30 20 24 73 74  ange $line 0 $st
1ae0: 61 72 74 5d 0a 20 20 20 20 72 65 67 73 75 62 20  art].    regsub 
1af0: 2d 61 6c 6c 20 2d 2d 20 5c 22 20 24 6c 69 6e 65  -all -- \" $line
1b00: 20 7b 5c 22 7d 20 6c 69 6e 65 0a 20 20 20 20 23   {\"} line.    #
1b10: 20 70 75 74 73 20 73 74 64 65 72 72 20 22 28 74   puts stderr "(t
1b20: 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 50 61 72 74  clreadline::Part
1b30: 50 6f 73 69 74 69 6f 6e 29 20 6c 69 6e 65 3d 7c  Position) line=|
1b40: 24 6c 69 6e 65 7c 22 20 0a 20 20 20 20 73 65 74  $line|" .    set
1b50: 20 72 65 73 75 6c 74 20 5b 6c 6c 65 6e 67 74 68   result [llength
1b60: 20 24 6c 69 6e 65 5d 0a 20 20 20 20 23 20 70 75   $line].    # pu
1b70: 74 73 20 73 74 64 65 72 72 20 24 72 65 73 75 6c  ts stderr $resul
1b80: 74 0a 20 20 20 20 72 65 74 75 72 6e 20 24 72 65  t.    return $re
1b90: 73 75 6c 74 0a 7d 0a 0a 23 20 69 66 20 74 68 65  sult.}..# if the
1ba0: 20 6c 69 6e 65 20 65 6e 74 65 72 65 64 20 73 6f   line entered so
1bb0: 20 66 61 72 20 69 73 0a 23 20 25 20 70 75 74 73   far is.# % puts
1bc0: 20 24 62 3c 54 41 42 3e 0a 23 20 70 61 72 74 20   $b<TAB>.# part 
1bd0: 20 3d 3d 20 24 62 0a 23 20 73 74 61 72 74 20 3d   == $b.# start =
1be0: 3d 20 35 0a 23 20 65 6e 64 20 20 20 3d 3d 20 37  = 5.# end   == 7
1bf0: 0a 23 20 6c 69 6e 65 20 20 3d 3d 20 22 24 70 75  .# line  == "$pu
1c00: 74 73 20 24 62 22 0a 23 0a 70 72 6f 63 20 74 63  ts $b".#.proc tc
1c10: 6c 72 65 61 64 6c 69 6e 65 3a 3a 53 63 72 69 70  lreadline::Scrip
1c20: 74 43 6f 6d 70 6c 65 74 65 72 20 7b 70 61 72 74  tCompleter {part
1c30: 20 73 74 61 72 74 20 65 6e 64 20 6c 69 6e 65 7d   start end line}
1c40: 20 7b 0a 20 20 20 20 23 20 70 75 74 73 20 73 74   {.    # puts st
1c50: 64 65 72 72 20 22 28 53 63 72 69 70 74 43 6f 6d  derr "(ScriptCom
1c60: 70 6c 65 74 65 72 29 20 7c 24 70 61 72 74 7c 20  pleter) |$part| 
1c70: 24 73 74 61 72 74 20 24 65 6e 64 20 7c 24 6c 69  $start $end |$li
1c80: 6e 65 7c 22 0a 20 20 20 20 76 61 72 69 61 62 6c  ne|".    variabl
1c90: 65 20 6b 6e 6f 77 6e 5f 63 6d 64 73 0a 20 20 20  e known_cmds.   
1ca0: 20 69 66 20 7b 7b 24 7d 20 3d 3d 20 5b 73 74 72   if {{$} == [str
1cb0: 69 6e 67 20 69 6e 64 65 78 20 24 70 61 72 74 20  ing index $part 
1cc0: 30 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 23 20  0]} {.        # 
1cd0: 76 61 72 69 61 62 6c 65 20 63 6f 6d 70 6c 65 74  variable complet
1ce0: 69 6f 6e 2e 20 43 68 65 63 6b 20 66 69 72 73 74  ion. Check first
1cf0: 2c 20 69 66 20 74 68 65 0a 20 20 20 20 20 20 20  , if the.       
1d00: 20 23 20 76 61 72 69 61 62 6c 65 20 73 74 61 72   # variable star
1d10: 74 73 20 77 69 74 68 20 61 20 70 6c 61 69 6e 20  ts with a plain 
1d20: 60 24 27 20 6f 72 20 73 68 6f 75 6c 64 0a 20 20  `$' or should.  
1d30: 20 20 20 20 20 20 23 20 62 65 20 65 6e 63 6c 6f        # be enclo
1d40: 73 65 64 20 69 6e 20 62 72 61 63 65 73 2e 0a 20  sed in braces.. 
1d50: 20 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 20         #.       
1d60: 20 69 66 20 7b 22 5c 7b 22 20 3d 3d 20 5b 73 74   if {"\{" == [st
1d70: 72 69 6e 67 20 69 6e 64 65 78 20 24 70 61 72 74  ring index $part
1d80: 20 31 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20   1]} {.         
1d90: 20 20 20 73 65 74 20 76 61 72 20 5b 73 74 72 69     set var [stri
1da0: 6e 67 20 72 61 6e 67 65 20 24 70 61 72 74 20 32  ng range $part 2
1db0: 20 65 6e 64 5d 0a 20 20 20 20 20 20 20 20 20 20   end].          
1dc0: 20 20 73 65 74 20 6c 65 66 74 20 22 5c 24 5c 7b    set left "\$\{
1dd0: 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65  ".            se
1de0: 74 20 72 69 67 68 74 20 22 5c 7d 22 0a 20 20 20  t right "\}".   
1df0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20       } else {.  
1e00: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6c 65            set le
1e10: 66 74 20 22 5c 24 22 0a 20 20 20 20 20 20 20 20  ft "\$".        
1e20: 20 20 20 20 73 65 74 20 72 69 67 68 74 20 22 22      set right ""
1e30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  .            set
1e40: 20 76 61 72 20 5b 73 74 72 69 6e 67 20 72 61 6e   var [string ran
1e50: 67 65 20 24 70 61 72 74 20 31 20 65 6e 64 5d 0a  ge $part 1 end].
1e60: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
1e70: 20 20 23 20 63 68 65 63 6b 20 69 66 20 24 76 61    # check if $va
1e80: 72 20 69 73 20 61 6e 20 61 72 72 61 79 20 6e 61  r is an array na
1e90: 6d 65 2c 20 77 68 69 63 68 0a 20 20 20 20 20 20  me, which.      
1ea0: 20 20 23 20 61 6c 72 65 61 64 79 20 68 61 73 20    # already has 
1eb0: 61 6c 72 65 61 64 79 20 61 20 22 28 22 20 73 6f  already a "(" so
1ec0: 6d 65 77 68 65 72 65 20 69 6e 73 69 64 65 2e 0a  mewhere inside..
1ed0: 20 20 20 20 20 20 20 20 23 0a 20 20 20 20 20 20          #.      
1ee0: 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 28    if {[regexp {(
1ef0: 5b 5e 28 5d 2a 29 5c 28 28 2e 2a 29 7d 20 24 76  [^(]*)\((.*)} $v
1f00: 61 72 20 61 6c 6c 20 61 72 72 61 79 20 6e 61 6d  ar all array nam
1f10: 65 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  e]} {.          
1f20: 20 20 73 65 74 20 6d 61 74 63 68 65 73 20 5b 75    set matches [u
1f30: 70 6c 65 76 65 6c 20 61 72 72 61 79 20 6e 61 6d  plevel array nam
1f40: 65 73 20 24 7b 61 72 72 61 79 7d 20 24 7b 6e 61  es ${array} ${na
1f50: 6d 65 7d 2a 5d 0a 20 20 20 20 20 20 20 20 20 20  me}*].          
1f60: 20 20 69 66 20 7b 31 20 3d 3d 20 5b 6c 6c 65 6e    if {1 == [llen
1f70: 67 74 68 20 24 6d 61 74 63 68 65 73 5d 7d 20 7b  gth $matches]} {
1f80: 20 3b 20 23 20 75 6e 69 71 75 65 20 6d 61 74 63   ; # unique matc
1f90: 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  h.              
1fa0: 20 20 72 65 74 75 72 6e 20 22 5c 24 24 7b 61 72    return "\$${ar
1fb0: 72 61 79 7d 28 24 7b 6d 61 74 63 68 65 73 7d 29  ray}(${matches})
1fc0: 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20  ".            } 
1fd0: 65 6c 73 65 69 66 20 7b 22 22 20 21 3d 20 24 7b  elseif {"" != ${
1fe0: 6d 61 74 63 68 65 73 7d 7d 20 7b 0a 20 20 20 20  matches}} {.    
1ff0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
2000: 72 6e 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20  rn \.           
2010: 20 20 20 20 20 20 20 20 20 22 5c 24 24 7b 61 72           "\$${ar
2020: 72 61 79 7d 28 5b 74 63 6c 72 65 61 64 6c 69 6e  ray}([tclreadlin
2030: 65 3a 3a 47 65 74 43 6f 6d 6d 6f 6e 20 24 7b 6d  e::GetCommon ${m
2040: 61 74 63 68 65 73 7d 5d 20 24 7b 6d 61 74 63 68  atches}] ${match
2050: 65 73 7d 22 0a 20 20 20 20 20 20 20 20 20 20 20  es}".           
2060: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
2070: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
2080: 20 22 22 3b 20 23 20 6e 6f 74 68 69 6e 67 20 74   ""; # nothing t
2090: 6f 20 63 6f 6d 70 6c 65 74 65 0a 20 20 20 20 20  o complete.     
20a0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
20b0: 20 7d 0a 20 20 20 20 20 20 20 20 73 65 74 20 6d   }.        set m
20c0: 61 74 63 68 65 73 20 5b 75 70 6c 65 76 65 6c 20  atches [uplevel 
20d0: 69 6e 66 6f 20 76 61 72 73 20 22 24 7b 76 61 72  info vars "${var
20e0: 7d 2a 22 5d 0a 20 20 20 20 20 20 20 20 69 66 20  }*"].        if 
20f0: 7b 31 20 3d 3d 20 5b 6c 6c 65 6e 67 74 68 20 24  {1 == [llength $
2100: 6d 61 74 63 68 65 73 5d 7d 20 7b 20 3b 20 23 20  matches]} { ; # 
2110: 75 6e 69 71 75 65 20 6d 61 74 63 68 0a 20 20 20  unique match.   
2120: 20 20 20 20 20 20 20 20 20 23 20 63 68 65 63 6b           # check
2130: 20 69 66 20 74 68 69 73 20 75 6e 69 71 75 65 20   if this unique 
2140: 6d 61 74 63 68 20 69 73 20 61 6e 0a 20 20 20 20  match is an.    
2150: 20 20 20 20 20 20 20 20 23 20 61 72 72 61 79 20          # array 
2160: 6e 61 6d 65 2c 20 28 77 68 69 74 68 20 6e 6f 20  name, (whith no 
2170: 22 28 22 20 79 65 74 29 2e 0a 20 20 20 20 20 20  "(" yet)..      
2180: 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 20 20        #.        
2190: 20 20 20 20 69 66 20 7b 5b 75 70 6c 65 76 65 6c      if {[uplevel
21a0: 20 61 72 72 61 79 20 65 78 69 73 74 73 20 24 6d   array exists $m
21b0: 61 74 63 68 65 73 5d 7d 20 7b 0a 20 20 20 20 20  atches]} {.     
21c0: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
21d0: 6e 20 22 5c 24 24 7b 6d 61 74 63 68 65 73 7d 28  n "\$${matches}(
21e0: 20 5b 75 70 6c 65 76 65 6c 20 61 72 72 61 79 20   [uplevel array 
21f0: 6e 61 6d 65 73 20 24 6d 61 74 63 68 65 73 5d 22  names $matches]"
2200: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65  .            } e
2210: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20  lse {.          
2220: 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b 6a 6f        return [jo
2230: 69 6e 20 5b 6c 69 73 74 20 24 6c 65 66 74 20 24  in [list $left $
2240: 6d 61 74 63 68 65 73 20 24 72 69 67 68 74 5d 20  matches $right] 
2250: 22 22 5d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ""].            
2260: 7d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65  }.        } else
2270: 69 66 20 7b 22 22 20 21 3d 20 24 6d 61 74 63 68  if {"" != $match
2280: 65 73 7d 20 7b 20 3b 20 23 20 6d 6f 72 65 20 74  es} { ; # more t
2290: 68 61 6e 20 6f 6e 65 20 6d 61 74 63 68 65 73 0a  han one matches.
22a0: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
22b0: 72 6e 20 22 24 7b 6c 65 66 74 7d 5b 74 63 6c 72  rn "${left}[tclr
22c0: 65 61 64 6c 69 6e 65 3a 3a 47 65 74 43 6f 6d 6d  eadline::GetComm
22d0: 6f 6e 20 24 7b 6d 61 74 63 68 65 73 7d 5d 20 24  on ${matches}] $
22e0: 7b 6d 61 74 63 68 65 73 7d 22 0a 20 20 20 20 20  {matches}".     
22f0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
2300: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 22          return "
2310: 22 3b 20 23 20 6e 6f 74 68 69 6e 67 20 74 6f 20  "; # nothing to 
2320: 63 6f 6d 70 6c 65 74 65 0a 20 20 20 20 20 20 20  complete.       
2330: 20 7d 0a 20 20 20 20 23 20 53 43 45 4e 41 52 49   }.    # SCENARI
2340: 4f 3a 0a 20 20 20 20 23 0a 20 20 20 20 23 20 25  O:.    #.    # %
2350: 20 70 75 74 73 20 62 6c 61 3b 20 70 75 74 3c 54   puts bla; put<T
2360: 41 42 3e 20 24 62 0a 20 20 20 20 23 20 70 61 72  AB> $b.    # par
2370: 74 20 20 3d 3d 20 70 75 74 0a 20 20 20 20 23 20  t  == put.    # 
2380: 73 74 61 72 74 20 3d 3d 20 31 30 0a 20 20 20 20  start == 10.    
2390: 23 20 65 6e 64 20 20 20 3d 3d 20 31 33 0a 20 20  # end   == 13.  
23a0: 20 20 23 20 6c 69 6e 65 20 20 3d 3d 20 22 70 75    # line  == "pu
23b0: 74 73 20 62 6c 61 3b 20 70 75 74 20 24 62 22 0a  ts bla; put $b".
23c0: 20 20 20 20 23 20 5b 53 75 62 43 6d 64 5d 20 2d      # [SubCmd] -
23d0: 2d 3e 20 7b 31 20 22 20 70 75 74 20 24 62 22 7d  -> {1 " put $b"}
23e0: 20 3d 3d 20 73 75 62 0a 20 20 20 20 23 20 6e 65   == sub.    # ne
23f0: 77 5f 73 74 61 72 74 20 3d 20 5b 6c 69 6e 64 65  w_start = [linde
2400: 78 20 24 73 75 62 20 30 5d 20 3d 3d 20 31 0a 20  x $sub 0] == 1. 
2410: 20 20 20 23 20 6e 65 77 5f 65 6e 64 20 20 20 3d     # new_end   =
2420: 20 5b 65 78 70 72 20 24 65 6e 64 20 2d 20 28 24   [expr $end - ($
2430: 73 74 61 72 74 20 2d 20 24 6e 65 77 5f 73 74 61  start - $new_sta
2440: 72 74 29 5d 20 3d 3d 20 34 0a 20 20 20 20 23 20  rt)] == 4.    # 
2450: 6e 65 77 5f 70 61 72 74 20 20 3d 3d 20 24 70 61  new_part  == $pa
2460: 72 74 20 3d 3d 20 70 75 74 0a 20 20 20 20 23 20  rt == put.    # 
2470: 6e 65 77 5f 6c 69 6e 65 20 20 3d 20 5b 6c 69 6e  new_line  = [lin
2480: 64 65 78 20 24 73 75 62 20 31 5d 20 3d 3d 20 22  dex $sub 1] == "
2490: 20 70 75 74 20 24 62 22 0a 20 20 20 20 23 20 0a   put $b".    # .
24a0: 20 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 22 22      } elseif {""
24b0: 20 21 3d 20 5b 73 65 74 20 73 75 62 20 5b 74 63   != [set sub [tc
24c0: 6c 72 65 61 64 6c 69 6e 65 3a 3a 53 75 62 43 6d  lreadline::SubCm
24d0: 64 20 24 73 74 61 72 74 20 24 6c 69 6e 65 5d 5d  d $start $line]]
24e0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20  } {.        set 
24f0: 6e 65 77 5f 73 74 61 72 74 20 5b 6c 69 6e 64 65  new_start [linde
2500: 78 20 24 73 75 62 20 30 5d 0a 20 20 20 20 20 20  x $sub 0].      
2510: 20 20 73 65 74 20 6e 65 77 5f 65 6e 64 20 5b 65    set new_end [e
2520: 78 70 72 20 24 65 6e 64 20 2d 20 28 24 73 74 61  xpr $end - ($sta
2530: 72 74 20 2d 20 24 6e 65 77 5f 73 74 61 72 74 29  rt - $new_start)
2540: 5d 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e 65  ].        set ne
2550: 77 5f 6c 69 6e 65 20 5b 6c 69 6e 64 65 78 20 24  w_line [lindex $
2560: 73 75 62 20 31 5d 0a 20 20 20 20 20 20 20 20 23  sub 1].        #
2570: 20 70 75 74 73 20 73 74 64 65 72 72 20 22 28 53   puts stderr "(S
2580: 75 62 43 6d 64 29 20 24 6e 65 77 5f 73 74 61 72  ubCmd) $new_star
2590: 74 20 24 6e 65 77 5f 65 6e 64 20 24 6e 65 77 5f  t $new_end $new_
25a0: 6c 69 6e 65 22 0a 20 20 20 20 20 20 20 20 72 65  line".        re
25b0: 74 75 72 6e 20 5c 0a 20 20 20 20 20 20 20 20 20  turn \.         
25c0: 20 20 20 5b 74 63 6c 72 65 61 64 6c 69 6e 65 3a     [tclreadline:
25d0: 3a 53 63 72 69 70 74 43 6f 6d 70 6c 65 74 65 72  :ScriptCompleter
25e0: 20 24 70 61 72 74 20 24 6e 65 77 5f 73 74 61 72   $part $new_star
25f0: 74 20 24 6e 65 77 5f 65 6e 64 20 24 6e 65 77 5f  t $new_end $new_
2600: 6c 69 6e 65 5d 0a 20 20 20 20 7d 20 65 6c 73 65  line].    } else
2610: 69 66 20 7b 30 20 3d 3d 20 5b 73 65 74 20 70 6f  if {0 == [set po
2620: 73 20 5b 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a  s [tclreadline::
2630: 50 61 72 74 50 6f 73 69 74 69 6f 6e 20 24 70 61  PartPosition $pa
2640: 72 74 20 24 73 74 61 72 74 20 24 65 6e 64 20 24  rt $start $end $
2650: 6c 69 6e 65 5d 5d 7d 20 7b 0a 20 20 20 20 20 20  line]]} {.      
2660: 20 20 23 20 70 75 74 73 20 73 74 64 65 72 72 20    # puts stderr 
2670: 22 28 50 61 72 74 50 6f 73 69 74 69 6f 6e 29 20  "(PartPosition) 
2680: 24 70 61 72 74 20 24 73 74 61 72 74 20 24 65 6e  $part $start $en
2690: 64 20 24 6c 69 6e 65 22 0a 20 20 20 20 20 20 20  d $line".       
26a0: 20 23 20 73 65 74 20 6d 61 74 63 68 65 73 20 5b   # set matches [
26b0: 61 72 72 61 79 20 6e 61 6d 65 73 20 6b 6e 6f 77  array names know
26c0: 6e 5f 63 6d 64 73 20 22 5b 73 74 72 69 6e 67 20  n_cmds "[string 
26d0: 74 72 69 6d 20 24 7b 70 61 72 74 7d 5d 2a 22 5d  trim ${part}]*"]
26e0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6d 64  .        set cmd
26f0: 20 22 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24   "[string trim $
2700: 7b 70 61 72 74 7d 5d 2a 22 0a 20 20 20 20 20 20  {part}]*".      
2710: 20 20 73 65 74 20 6d 61 74 63 68 65 73 20 5b 73    set matches [s
2720: 74 72 69 6e 67 20 74 72 69 6d 20 22 5b 69 6e 66  tring trim "[inf
2730: 6f 20 63 6f 6d 6d 61 6e 64 73 20 24 63 6d 64 5d  o commands $cmd]
2740: 20 5b 69 6e 66 6f 20 70 72 6f 63 20 24 63 6d 64   [info proc $cmd
2750: 5d 22 5d 0a 20 20 20 20 20 20 20 20 23 20 70 75  ]"].        # pu
2760: 74 73 20 6d 61 74 63 68 65 73 3d 7c 24 6d 61 74  ts matches=|$mat
2770: 63 68 65 73 7c 0a 20 20 20 20 20 20 20 20 69 66  ches|.        if
2780: 20 7b 31 20 3d 3d 20 5b 6c 6c 65 6e 67 74 68 20   {1 == [llength 
2790: 24 6d 61 74 63 68 65 73 5d 7d 20 7b 20 3b 20 23  $matches]} { ; #
27a0: 20 75 6e 69 71 75 65 20 6d 61 74 63 68 0a 20 20   unique match.  
27b0: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
27c0: 20 24 6d 61 74 63 68 65 73 0a 20 20 20 20 20 20   $matches.      
27d0: 20 20 7d 20 65 6c 73 65 69 66 20 7b 22 22 20 21    } elseif {"" !
27e0: 3d 20 24 6d 61 74 63 68 65 73 7d 20 7b 0a 20 20  = $matches} {.  
27f0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6f            set co
2800: 6d 6d 6f 6e 20 5b 74 63 6c 72 65 61 64 6c 69 6e  mmon [tclreadlin
2810: 65 3a 3a 47 65 74 43 6f 6d 6d 6f 6e 20 24 7b 6d  e::GetCommon ${m
2820: 61 74 63 68 65 73 7d 5d 0a 20 20 20 20 20 20 20  atches}].       
2830: 20 20 20 20 20 23 20 70 75 74 73 20 73 74 64 65       # puts stde
2840: 72 72 20 63 6f 6d 6d 6f 6e 3d 7c 24 63 6f 6d 6d  rr common=|$comm
2850: 6f 6e 7c 0a 20 20 20 20 20 20 20 20 20 20 20 20  on|.            
2860: 69 66 20 7b 22 22 20 3d 3d 20 24 63 6f 6d 6d 6f  if {"" == $commo
2870: 6e 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  n} {.           
2880: 20 20 20 20 20 72 65 74 75 72 6e 20 22 5b 6c 69       return "[li
2890: 73 74 20 24 70 61 72 74 5d 20 24 7b 6d 61 74 63  st $part] ${matc
28a0: 68 65 73 7d 22 0a 20 20 20 20 20 20 20 20 20 20  hes}".          
28b0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
28c0: 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72             retur
28d0: 6e 20 22 24 63 6f 6d 6d 6f 6e 20 24 7b 6d 61 74  n "$common ${mat
28e0: 63 68 65 73 7d 22 0a 20 20 20 20 20 20 20 20 20  ches}".         
28f0: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 20 65     }.        } e
2900: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20  lse {.          
2910: 20 20 72 65 74 75 72 6e 20 22 22 3b 20 23 20 6e    return ""; # n
2920: 6f 74 68 69 6e 67 20 74 6f 20 63 6f 6d 70 6c 65  othing to comple
2930: 74 65 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  te.        }.   
2940: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20   } else {.      
2950: 20 20 23 20 74 72 79 20 74 6f 20 75 73 65 20 24    # try to use $
2960: 70 6f 73 20 66 75 72 74 68 65 72 20 2e 2e 2e 0a  pos further ....
2970: 20 20 20 20 20 20 20 20 72 65 67 73 75 62 20 2d          regsub -
2980: 61 6c 6c 20 2d 2d 20 5c 22 20 24 6c 69 6e 65 20  all -- \" $line 
2990: 7b 5c 22 7d 20 74 68 69 73 6c 69 6e 65 0a 20 20  {\"} thisline.  
29a0: 20 20 20 20 20 20 73 65 74 20 63 6d 64 20 5b 6c        set cmd [l
29b0: 69 6e 64 65 78 20 24 74 68 69 73 6c 69 6e 65 20  index $thisline 
29c0: 30 5d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 22  0].        if {"
29d0: 22 20 21 3d 20 5b 61 72 72 61 79 20 6e 61 6d 65  " != [array name
29e0: 73 20 6b 6e 6f 77 6e 5f 63 6d 64 73 20 24 63 6d  s known_cmds $cm
29f0: 64 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  d]} {.          
2a00: 20 20 73 65 74 20 63 75 72 72 65 6e 74 20 5b 6c    set current [l
2a10: 69 6e 64 65 78 20 24 6b 6e 6f 77 6e 5f 63 6d 64  index $known_cmd
2a20: 73 28 24 63 6d 64 29 20 24 70 6f 73 5d 0a 20 20  s($cmd) $pos].  
2a30: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 22 22            if {""
2a40: 20 21 3d 20 24 63 75 72 72 65 6e 74 20 26 26 20   != $current && 
2a50: 22 22 20 3d 3d 20 5b 73 74 72 69 6e 67 20 74 72  "" == [string tr
2a60: 69 6d 20 24 70 61 72 74 5d 7d 20 7b 0a 20 20 20  im $part]} {.   
2a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74               ret
2a80: 75 72 6e 20 24 63 75 72 72 65 6e 74 0a 20 20 20  urn $current.   
2a90: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
2aa0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
2ab0: 20 20 72 65 74 75 72 6e 20 22 22 0a 20 20 20 20    return "".    
2ac0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
2ad0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
2ae0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 22 22         return ""
2af0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  .        }.    }
2b00: 0a 20 20 20 20 72 65 74 75 72 6e 20 22 7b 4e 4f  .    return "{NO
2b10: 54 52 45 41 43 48 45 44 20 28 74 68 69 73 20 69  TREACHED (this i
2b20: 73 20 70 72 6f 62 61 62 6c 79 20 61 6e 20 65 72  s probably an er
2b30: 72 6f 72 29 7d 22 0a 7d 0a 0a 70 72 6f 63 20 74  ror)}".}..proc t
2b40: 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 6c 73 20 7b  clreadline::ls {
2b50: 61 72 67 73 7d 20 7b 0a 20 20 20 20 69 66 20 7b  args} {.    if {
2b60: 5b 65 78 65 63 20 75 6e 61 6d 65 20 2d 73 5d 20  [exec uname -s] 
2b70: 3d 3d 20 22 4c 69 6e 75 78 22 7d 20 7b 0a 20 20  == "Linux"} {.  
2b80: 20 20 20 20 20 20 65 76 61 6c 20 65 78 65 63 20        eval exec 
2b90: 6c 73 20 2d 2d 63 6f 6c 6f 72 20 2d 46 43 20 5b  ls --color -FC [
2ba0: 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 47  ::tclreadline::G
2bb0: 6c 6f 62 20 24 61 72 67 73 5d 0a 20 20 20 20 7d  lob $args].    }
2bc0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20   else {.        
2bd0: 65 76 61 6c 20 65 78 65 63 20 6c 73 20 2d 46 43  eval exec ls -FC
2be0: 20 5b 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a   [::tclreadline:
2bf0: 3a 47 6c 6f 62 20 24 61 72 67 73 5d 0a 20 20 20  :Glob $args].   
2c00: 20 7d 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 74 63 6c   }.}..proc ::tcl
2c10: 72 65 61 64 6c 69 6e 65 3a 3a 53 65 74 75 70 20  readline::Setup 
2c20: 7b 61 72 67 73 7d 20 7b 0a 0a 20 20 20 20 75 70  {args} {..    up
2c30: 6c 65 76 65 6c 20 23 30 20 7b 0a 0a 20 20 20 20  level #0 {..    
2c40: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 63 6f      if {[info co
2c50: 6d 6d 61 6e 64 73 20 3a 3a 74 63 6c 72 65 61 64  mmands ::tclread
2c60: 6c 69 6e 65 3a 3a 72 65 61 64 6c 69 6e 65 5d 20  line::readline] 
2c70: 3d 3d 20 22 22 7d 20 7b 0a 20 20 20 20 20 20 20  == ""} {.       
2c80: 20 20 20 20 20 3a 3a 74 63 6c 72 65 61 64 6c 69       ::tclreadli
2c90: 6e 65 3a 3a 49 6e 69 74 0a 20 20 20 20 20 20 20  ne::Init.       
2ca0: 20 7d 0a 20 20 20 20 20 20 20 20 74 63 6c 72 65   }.        tclre
2cb0: 61 64 6c 69 6e 65 3a 3a 72 65 61 64 6c 69 6e 65  adline::readline
2cc0: 20 63 75 73 74 6f 6d 63 6f 6d 70 6c 65 74 65 72   customcompleter
2cd0: 20 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 53 63   tclreadline::Sc
2ce0: 72 69 70 74 43 6f 6d 70 6c 65 74 65 72 0a 0a 20  riptCompleter.. 
2cf0: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63         if {[catc
2d00: 68 20 7b 73 65 74 20 61 20 5b 3a 3a 74 63 6c 72  h {set a [::tclr
2d10: 65 61 64 6c 69 6e 65 3a 3a 70 72 6f 6d 70 74 31  eadline::prompt1
2d20: 5d 7d 5d 20 5c 0a 20 20 20 20 20 20 20 20 20 20  ]}] \.          
2d30: 20 20 26 26 20 5b 69 6e 66 6f 20 6e 61 6d 65 6f    && [info nameo
2d40: 66 65 78 65 63 75 74 61 62 6c 65 5d 20 21 3d 20  fexecutable] != 
2d50: 22 22 7d 20 7b 0a 0a 20 20 20 20 20 20 20 20 20  ""} {..         
2d60: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61     namespace eva
2d70: 6c 20 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 20  l ::tclreadline 
2d80: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
2d90: 20 20 76 61 72 69 61 62 6c 65 20 70 72 6f 6d 70    variable promp
2da0: 74 5f 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20  t_string.       
2db0: 20 20 20 20 20 20 20 20 20 73 65 74 20 62 61 73           set bas
2dc0: 65 20 5b 66 69 6c 65 20 74 61 69 6c 20 5b 69 6e  e [file tail [in
2dd0: 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 61  fo nameofexecuta
2de0: 62 6c 65 5d 5d 0a 0a 20 20 20 20 20 20 20 20 20  ble]]..         
2df0: 20 20 20 20 20 20 20 69 66 20 7b 24 62 61 73 65         if {$base
2e00: 20 3d 3d 20 22 74 63 6c 73 68 22 20 26 26 20 5b   == "tclsh" && [
2e10: 69 6e 66 6f 20 65 78 69 73 74 73 20 74 63 6c 5f  info exists tcl_
2e20: 76 65 72 73 69 6f 6e 5d 7d 20 7b 0a 20 20 20 20  version]} {.    
2e30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2e40: 73 65 74 20 70 72 6f 6d 70 74 5f 73 74 72 69 6e  set prompt_strin
2e50: 67 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 20  g \.            
2e60: 20 20 20 20 20 20 20 20 20 20 20 20 22 01 1b 5c              "..\
2e70: 5b 30 3b 39 31 6d 02 24 62 61 73 65 24 74 63 6c  [0;91m.$base$tcl
2e80: 5f 76 65 72 73 69 6f 6e 01 1b 5c 5b 30 6d 02 22  _version..\[0m."
2e90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2ea0: 20 7d 20 65 6c 73 65 69 66 20 7b 24 62 61 73 65   } elseif {$base
2eb0: 20 3d 3d 20 22 77 69 73 68 22 20 26 26 20 5b 69   == "wish" && [i
2ec0: 6e 66 6f 20 65 78 69 73 74 73 20 74 6b 5f 76 65  nfo exists tk_ve
2ed0: 72 73 69 6f 6e 5d 7d 20 7b 0a 20 20 20 20 20 20  rsion]} {.      
2ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65                se
2ef0: 74 20 70 72 6f 6d 70 74 5f 73 74 72 69 6e 67 20  t prompt_string 
2f00: 22 01 1b 5c 5b 30 3b 39 34 6d 02 24 62 61 73 65  "..\[0;94m.$base
2f10: 24 74 6b 5f 76 65 72 73 69 6f 6e 01 1b 5c 5b 30  $tk_version..\[0
2f20: 6d 02 22 0a 20 20 20 20 20 20 20 20 20 20 20 20  m.".            
2f30: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
2f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2f50: 20 73 65 74 20 70 72 6f 6d 70 74 5f 73 74 72 69   set prompt_stri
2f60: 6e 67 20 22 01 1b 5c 5b 30 3b 39 31 6d 02 24 62  ng "..\[0;91m.$b
2f70: 61 73 65 01 1b 5c 5b 30 6d 02 22 0a 20 20 20 20  ase..\[0m.".    
2f80: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 0a 20              }.. 
2f90: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 0a 20 20             }..  
2fa0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 22 22            if {""
2fb0: 20 3d 3d 20 5b 69 6e 66 6f 20 70 72 6f 63 73 20   == [info procs 
2fc0: 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 70  ::tclreadline::p
2fd0: 72 6f 6d 70 74 31 5d 7d 20 7b 0a 20 20 20 20 20  rompt1]} {.     
2fe0: 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 63 20             proc 
2ff0: 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 70  ::tclreadline::p
3000: 72 6f 6d 70 74 31 20 7b 7d 20 7b 0a 20 20 20 20  rompt1 {} {.    
3010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3020: 76 61 72 69 61 62 6c 65 20 70 72 6f 6d 70 74 5f  variable prompt_
3030: 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20  string.         
3040: 20 20 20 20 20 20 20 20 20 20 20 67 6c 6f 62 61             globa
3050: 6c 20 65 6e 76 0a 20 20 20 20 20 20 20 20 20 20  l env.          
3060: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63            if {[c
3070: 61 74 63 68 20 7b 73 65 74 20 70 77 64 20 5b 70  atch {set pwd [p
3080: 77 64 5d 7d 20 74 6d 70 5d 7d 20 7b 0a 20 20 20  wd]} tmp]} {.   
3090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
30a0: 20 20 20 20 20 73 65 74 20 70 77 64 20 22 75 6e       set pwd "un
30b0: 61 62 6c 65 20 74 6f 20 67 65 74 20 70 77 64 22  able to get pwd"
30c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
30d0: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20       }..        
30e0: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 5b              if [
30f0: 69 6e 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28  info exists env(
3100: 48 4f 4d 45 29 5d 20 7b 0a 20 20 20 20 20 20 20  HOME)] {.       
3110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3120: 20 72 65 67 73 75 62 20 24 65 6e 76 28 48 4f 4d   regsub $env(HOM
3130: 45 29 20 24 70 77 64 20 22 7e 22 20 70 77 64 0a  E) $pwd "~" pwd.
3140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3150: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
3160: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
3170: 20 22 24 70 72 6f 6d 70 74 5f 73 74 72 69 6e 67   "$prompt_string
3180: 20 5c 5b 24 70 77 64 5c 5d 22 0a 20 20 20 20 20   \[$pwd\]".     
3190: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20             }.   
31a0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20           }.     
31b0: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 69 66     }..        if
31c0: 20 7b 5b 69 6e 66 6f 20 70 72 6f 63 73 20 65 78   {[info procs ex
31d0: 69 74 5d 20 3d 3d 20 22 22 7d 20 7b 0a 0a 20 20  it] == ""} {..  
31e0: 20 20 20 20 20 20 20 20 20 20 63 61 74 63 68 20            catch 
31f0: 7b 72 65 6e 61 6d 65 20 3a 3a 74 63 6c 72 65 61  {rename ::tclrea
3200: 64 6c 69 6e 65 3a 3a 45 78 69 74 20 22 22 7d 0a  dline::Exit ""}.
3210: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 6e 61              rena
3220: 6d 65 20 65 78 69 74 20 3a 3a 74 63 6c 72 65 61  me exit ::tclrea
3230: 64 6c 69 6e 65 3a 3a 45 78 69 74 0a 0a 20 20 20  dline::Exit..   
3240: 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 65 78           proc ex
3250: 69 74 20 7b 61 72 67 73 7d 20 7b 0a 0a 20 20 20  it {args} {..   
3260: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 74               cat
3270: 63 68 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  ch {.           
3280: 20 20 20 20 20 20 20 20 20 3a 3a 74 63 6c 72 65           ::tclre
3290: 61 64 6c 69 6e 65 3a 3a 72 65 61 64 6c 69 6e 65  adline::readline
32a0: 20 77 72 69 74 65 20 5c 0a 20 20 20 20 20 20 20   write \.       
32b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 3a 3a               [::
32c0: 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 48 69 73  tclreadline::His
32d0: 74 6f 72 79 46 69 6c 65 47 65 74 5d 0a 20 20 20  toryFileGet].   
32e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 0a               }..
32f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3300: 69 66 20 5b 63 61 74 63 68 20 22 65 76 61 6c 20  if [catch "eval 
3310: 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 45  ::tclreadline::E
3320: 78 69 74 20 24 61 72 67 73 22 20 6d 65 73 73 61  xit $args" messa
3330: 67 65 5d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  ge] {.          
3340: 20 20 20 20 20 20 20 20 20 20 70 75 74 73 20 73            puts s
3350: 74 64 65 72 72 20 22 65 72 72 6f 72 3a 22 0a 20  tderr "error:". 
3360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3370: 20 20 20 70 75 74 73 20 73 74 64 65 72 72 20 22     puts stderr "
3380: 24 6d 65 73 73 61 67 65 22 0a 20 20 20 20 20 20  $message".      
3390: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
33a0: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f              # NO
33b0: 54 52 45 41 43 48 45 44 0a 20 20 20 20 20 20 20  TREACHED.       
33c0: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
33d0: 0a 0a 20 20 20 20 7d 0a 0a 20 20 20 20 67 6c 6f  ..    }..    glo
33e0: 62 61 6c 20 65 6e 76 0a 20 20 20 20 76 61 72 69  bal env.    vari
33f0: 61 62 6c 65 20 68 69 73 74 6f 72 79 66 69 6c 65  able historyfile
3400: 0a 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e  ..    if {[strin
3410: 67 20 74 72 69 6d 20 5b 6c 6c 65 6e 67 74 68 20  g trim [llength 
3420: 24 7b 61 72 67 73 7d 5d 5d 7d 20 7b 0a 20 20 20  ${args}]]} {.   
3430: 20 20 20 20 20 73 65 74 20 68 69 73 74 6f 72 79       set history
3440: 66 69 6c 65 20 22 22 0a 20 20 20 20 20 20 20 20  file "".        
3450: 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20 20 20  catch {.        
3460: 20 20 20 20 73 65 74 20 68 69 73 74 6f 72 79 66      set historyf
3470: 69 6c 65 20 5b 66 69 6c 65 20 6e 61 74 69 76 65  ile [file native
3480: 6e 61 6d 65 20 5b 6c 69 6e 64 65 78 20 24 7b 61  name [lindex ${a
3490: 72 67 73 7d 20 30 5d 5d 0a 20 20 20 20 20 20 20  rgs} 0]].       
34a0: 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 22   }.        if {"
34b0: 22 20 3d 3d 20 5b 73 74 72 69 6e 67 20 74 72 69  " == [string tri
34c0: 6d 20 24 68 69 73 74 6f 72 79 66 69 6c 65 5d 7d  m $historyfile]}
34d0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73   {.            s
34e0: 65 74 20 68 69 73 74 6f 72 79 66 69 6c 65 20 5b  et historyfile [
34f0: 6c 69 6e 64 65 78 20 24 7b 61 72 67 73 7d 20 30  lindex ${args} 0
3500: 5d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ].        }.    
3510: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20  } else {.       
3520: 20 69 66 20 5b 69 6e 66 6f 20 65 78 69 73 74 73   if [info exists
3530: 20 65 6e 76 28 48 4f 4d 45 29 5d 20 7b 0a 20 20   env(HOME)] {.  
3540: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 68 69            set hi
3550: 73 74 6f 72 79 66 69 6c 65 20 20 24 65 6e 76 28  storyfile  $env(
3560: 48 4f 4d 45 29 2f 2e 74 63 6c 73 68 2d 68 69 73  HOME)/.tclsh-his
3570: 74 6f 72 79 0a 20 20 20 20 20 20 20 20 7d 20 65  tory.        } e
3580: 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20  lse {.          
3590: 20 20 73 65 74 20 68 69 73 74 6f 72 79 66 69 6c    set historyfil
35a0: 65 20 20 2e 74 63 6c 73 68 2d 68 69 73 74 6f 72  e  .tclsh-histor
35b0: 79 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  y.        }.    
35c0: 7d 0a 20 20 20 20 73 65 74 20 6d 73 67 20 5b 3a  }.    set msg [:
35d0: 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 72 65  :tclreadline::re
35e0: 61 64 6c 69 6e 65 20 69 6e 69 74 69 61 6c 69 7a  adline initializ
35f0: 65 20 24 68 69 73 74 6f 72 79 66 69 6c 65 5d 0a  e $historyfile].
3600: 20 20 20 20 69 66 20 7b 24 6d 73 67 20 21 3d 20      if {$msg != 
3610: 22 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 70 75  ""} {.        pu
3620: 74 73 20 73 74 64 65 72 72 20 22 24 6d 73 67 22  ts stderr "$msg"
3630: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 3a 3a 74 63  .    }..    ::tc
3640: 6c 72 65 61 64 6c 69 6e 65 3a 3a 49 6e 69 74 43  lreadline::InitC
3650: 6d 64 73 0a 0a 20 20 20 20 72 65 6e 61 6d 65 20  mds..    rename 
3660: 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 53  ::tclreadline::S
3670: 65 74 75 70 20 22 22 0a 7d 0a 0a 70 72 6f 63 20  etup "".}..proc 
3680: 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 48  ::tclreadline::H
3690: 69 73 74 6f 72 79 46 69 6c 65 47 65 74 20 7b 7d  istoryFileGet {}
36a0: 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20   {.    variable 
36b0: 68 69 73 74 6f 72 79 66 69 6c 65 0a 20 20 20 20  historyfile.    
36c0: 72 65 74 75 72 6e 20 24 68 69 73 74 6f 72 79 66  return $historyf
36d0: 69 6c 65 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 74 63  ile.}..proc ::tc
36e0: 6c 72 65 61 64 6c 69 6e 65 3a 3a 47 6c 6f 62 20  lreadline::Glob 
36f0: 7b 73 74 72 69 6e 67 7d 20 7b 0a 0a 20 20 20 20  {string} {..    
3700: 73 65 74 20 63 6f 6d 6d 61 6e 64 73 74 72 69 6e  set commandstrin
3710: 67 20 22 22 0a 20 20 20 20 66 6f 72 65 61 63 68  g "".    foreach
3720: 20 6e 61 6d 65 20 24 73 74 72 69 6e 67 20 7b 0a   name $string {.
3730: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 70 6c          set repl
3740: 61 63 65 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d  ace [glob -nocom
3750: 70 6c 61 69 6e 20 2d 2d 20 24 6e 61 6d 65 5d 0a  plain -- $name].
3760: 20 20 20 20 20 20 20 20 69 66 20 7b 24 72 65 70          if {$rep
3770: 6c 61 63 65 20 3d 3d 20 22 22 7d 20 7b 0a 20 20  lace == ""} {.  
3780: 20 20 20 20 20 20 20 20 20 20 6c 61 70 70 65 6e            lappen
3790: 64 20 63 6f 6d 6d 61 6e 64 73 74 72 69 6e 67 20  d commandstring 
37a0: 24 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 7d 20  $name.        } 
37b0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20  else {.         
37c0: 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61     lappend comma
37d0: 6e 64 73 74 72 69 6e 67 20 24 72 65 70 6c 61 63  ndstring $replac
37e0: 65 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  e.        }.    
37f0: 7d 0a 20 20 20 20 23 20 72 65 74 75 72 6e 20 24  }.    # return $
3800: 63 6f 6d 6d 61 6e 64 73 74 72 69 6e 67 0a 20 20  commandstring.  
3810: 20 20 23 20 43 68 72 69 73 74 69 61 6e 20 4b 72    # Christian Kr
3820: 6f 6e 65 20 3c 6b 72 69 73 63 68 61 6e 40 73 71  one <krischan@sq
3830: 6c 2e 64 65 3e 20 70 72 6f 70 6f 73 65 64 0a 20  l.de> proposed. 
3840: 20 20 20 72 65 74 75 72 6e 20 5b 65 76 61 6c 20     return [eval 
3850: 63 6f 6e 63 61 74 20 24 63 6f 6d 6d 61 6e 64 73  concat $commands
3860: 74 72 69 6e 67 5d 0a 7d 0a 0a 0a 0a 70 72 6f 63  tring].}....proc
3870: 20 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a   ::tclreadline::
3880: 4c 6f 6f 70 20 7b 61 72 67 73 7d 20 7b 0a 0a 20  Loop {args} {.. 
3890: 20 20 20 65 76 61 6c 20 3a 3a 74 63 6c 72 65 61     eval ::tclrea
38a0: 64 6c 69 6e 65 3a 3a 53 65 74 75 70 20 24 7b 61  dline::Setup ${a
38b0: 72 67 73 7d 0a 0a 20 20 20 20 75 70 6c 65 76 65  rgs}..    upleve
38c0: 6c 20 23 30 20 7b 0a 0a 20 20 20 20 20 20 20 20  l #0 {..        
38d0: 77 68 69 6c 65 20 7b 31 7d 20 7b 0a 0a 20 20 20  while {1} {..   
38e0: 20 20 20 20 20 20 20 20 20 69 66 20 5b 69 6e 66           if [inf
38f0: 6f 20 65 78 69 73 74 73 20 74 63 6c 5f 70 72 6f  o exists tcl_pro
3900: 6d 70 74 32 5d 20 7b 0a 20 20 20 20 20 20 20 20  mpt2] {.        
3910: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 74 63          set ::tc
3920: 6c 72 65 61 64 6c 69 6e 65 3a 3a 70 72 6f 6d 70  lreadline::promp
3930: 74 32 20 24 74 63 6c 5f 70 72 6f 6d 70 74 32 0a  t2 $tcl_prompt2.
3940: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c              } el
3950: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  se {.           
3960: 20 20 20 20 20 73 65 74 20 3a 3a 74 63 6c 72 65       set ::tclre
3970: 61 64 6c 69 6e 65 3a 3a 70 72 6f 6d 70 74 32 20  adline::prompt2 
3980: 22 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20  ">".            
3990: 7d 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  }..            i
39a0: 66 20 7b 5b 6e 61 6d 65 73 70 61 63 65 20 65 76  f {[namespace ev
39b0: 61 6c 20 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65  al ::tclreadline
39c0: 20 7b 5b 69 6e 66 6f 20 70 72 6f 63 73 20 70 72   {[info procs pr
39d0: 6f 6d 70 74 31 5d 7d 5d 20 21 3d 20 22 22 7d 20  ompt1]}] != ""} 
39e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
39f0: 20 20 73 65 74 20 3a 3a 74 63 6c 72 65 61 64 6c    set ::tclreadl
3a00: 69 6e 65 3a 3a 4c 49 4e 45 20 5b 3a 3a 74 63 6c  ine::LINE [::tcl
3a10: 72 65 61 64 6c 69 6e 65 3a 3a 72 65 61 64 6c 69  readline::readli
3a20: 6e 65 20 72 65 61 64 20 5c 0a 20 20 20 20 20 20  ne read \.      
3a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 3a                [:
3a40: 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 70 72  :tclreadline::pr
3a50: 6f 6d 70 74 31 5d 5d 0a 20 20 20 20 20 20 20 20  ompt1]].        
3a60: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
3a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74               set
3a80: 20 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a   ::tclreadline::
3a90: 4c 49 4e 45 20 5b 3a 3a 74 63 6c 72 65 61 64 6c  LINE [::tclreadl
3aa0: 69 6e 65 3a 3a 72 65 61 64 6c 69 6e 65 20 72 65  ine::readline re
3ab0: 61 64 20 25 5d 0a 20 20 20 20 20 20 20 20 20 20  ad %].          
3ac0: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
3ad0: 20 77 68 69 6c 65 20 7b 21 5b 3a 3a 74 63 6c 72   while {![::tclr
3ae0: 65 61 64 6c 69 6e 65 3a 3a 72 65 61 64 6c 69 6e  eadline::readlin
3af0: 65 20 63 6f 6d 70 6c 65 74 65 20 24 3a 3a 74 63  e complete $::tc
3b00: 6c 72 65 61 64 6c 69 6e 65 3a 3a 4c 49 4e 45 5d  lreadline::LINE]
3b10: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  } {.            
3b20: 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 74 63 6c      append ::tcl
3b30: 72 65 61 64 6c 69 6e 65 3a 3a 4c 49 4e 45 20 22  readline::LINE "
3b40: 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20  \n".            
3b50: 20 20 20 20 61 70 70 65 6e 64 20 3a 3a 74 63 6c      append ::tcl
3b60: 72 65 61 64 6c 69 6e 65 3a 3a 4c 49 4e 45 20 5b  readline::LINE [
3b70: 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 72  ::tclreadline::r
3b80: 65 61 64 6c 69 6e 65 20 72 65 61 64 20 5c 0a 20  eadline read \. 
3b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ba0: 20 20 20 24 7b 3a 3a 74 63 6c 72 65 61 64 6c 69     ${::tclreadli
3bb0: 6e 65 3a 3a 70 72 6f 6d 70 74 32 7d 5d 0a 20 20  ne::prompt2}].  
3bc0: 20 20 20 20 20 20 20 20 20 20 7d 0a 0a 20 20 20            }..   
3bd0: 20 20 20 20 20 20 20 20 20 23 20 4d 61 67 6e 75           # Magnu
3be0: 73 20 45 72 69 6b 73 73 6f 6e 20 3c 6d 61 67 6e  s Eriksson <magn
3bf0: 75 73 2e 65 72 69 6b 73 73 6f 6e 40 6e 65 74 69  us.eriksson@neti
3c00: 6e 73 69 67 68 74 2e 73 65 3e 20 70 72 6f 70 6f  nsight.se> propo
3c10: 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20  sed.            
3c20: 68 69 73 74 6f 72 79 20 61 64 64 20 24 3a 3a 74  history add $::t
3c30: 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 4c 49 4e 45  clreadline::LINE
3c40: 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  ..            if
3c50: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 20 20   [catch {.      
3c60: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65            set re
3c70: 73 75 6c 74 20 5b 65 76 61 6c 20 24 3a 3a 74 63  sult [eval $::tc
3c80: 6c 72 65 61 64 6c 69 6e 65 3a 3a 4c 49 4e 45 5d  lreadline::LINE]
3c90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3ca0: 20 69 66 20 7b 24 72 65 73 75 6c 74 20 21 3d 20   if {$result != 
3cb0: 22 22 20 26 26 20 5b 3a 3a 74 63 6c 72 65 61 64  "" && [::tclread
3cc0: 6c 69 6e 65 3a 3a 50 72 69 6e 74 5d 7d 20 7b 0a  line::Print]} {.
3cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ce0: 20 20 20 20 70 75 74 73 20 24 72 65 73 75 6c 74      puts $result
3cf0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3d00: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   }.             
3d10: 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 22 22     set result ""
3d20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 6d  .            } m
3d30: 73 67 5d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  sg] {.          
3d40: 20 20 20 20 20 20 70 75 74 73 20 73 74 64 65 72        puts stder
3d50: 72 20 24 6d 73 67 0a 20 20 20 20 20 20 20 20 20  r $msg.         
3d60: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 7d 0a     }..        }.
3d70: 20 20 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 3a 3a      }.}..proc ::
3d80: 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 50 72 69  tclreadline::Pri
3d90: 6e 74 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20 20  nt {args} {.    
3da0: 76 61 72 69 61 62 6c 65 20 50 52 49 4e 54 0a 20  variable PRINT. 
3db0: 20 20 20 69 66 20 21 5b 69 6e 66 6f 20 65 78 69     if ![info exi
3dc0: 73 74 73 20 50 52 49 4e 54 5d 20 7b 0a 20 20 20  sts PRINT] {.   
3dd0: 20 20 20 20 20 73 65 74 20 3a 3a 74 63 6c 72 65       set ::tclre
3de0: 61 64 6c 69 6e 65 3a 3a 50 52 49 4e 54 20 79 65  adline::PRINT ye
3df0: 73 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 5b  s.    }.    if [
3e00: 72 65 67 65 78 70 20 2d 6e 6f 63 61 73 65 20 5c  regexp -nocase \
3e10: 28 74 72 75 65 5c 7c 79 65 73 5c 7c 31 5c 29 20  (true\|yes\|1\) 
3e20: 24 61 72 67 73 5d 20 7b 0a 20 20 20 20 20 20 20  $args] {.       
3e30: 20 73 65 74 20 3a 3a 74 63 6c 72 65 61 64 6c 69   set ::tclreadli
3e40: 6e 65 3a 3a 50 52 49 4e 54 20 79 65 73 0a 20 20  ne::PRINT yes.  
3e50: 20 20 7d 20 65 6c 73 65 69 66 20 5b 72 65 67 65    } elseif [rege
3e60: 78 70 20 2d 6e 6f 63 61 73 65 20 5c 28 66 61 6c  xp -nocase \(fal
3e70: 73 65 5c 7c 6e 6f 5c 7c 30 5c 29 20 24 61 72 67  se\|no\|0\) $arg
3e80: 73 5d 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  s] {.        set
3e90: 20 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a   ::tclreadline::
3ea0: 50 52 49 4e 54 20 6e 6f 0a 20 20 20 20 7d 0a 20  PRINT no.    }. 
3eb0: 20 20 20 72 65 74 75 72 6e 20 24 50 52 49 4e 54     return $PRINT
3ec0: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 74 63 6c 72 65  .}..proc ::tclre
3ed0: 61 64 6c 69 6e 65 3a 3a 49 6e 69 74 43 6d 64 73  adline::InitCmds
3ee0: 20 7b 7d 20 7b 0a 20 20 20 20 67 6c 6f 62 61 6c   {} {.    global
3ef0: 20 74 63 6c 5f 76 65 72 73 69 6f 6e 20 74 6b 5f   tcl_version tk_
3f00: 76 65 72 73 69 6f 6e 0a 20 20 20 20 69 66 20 7b  version.    if {
3f10: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74 63 6c  [info exists tcl
3f20: 5f 76 65 72 73 69 6f 6e 5d 7d 20 7b 0a 20 20 20  _version]} {.   
3f30: 20 20 20 20 20 3a 3a 74 63 6c 72 65 61 64 6c 69       ::tclreadli
3f40: 6e 65 3a 3a 49 6e 69 74 54 63 6c 43 6d 64 73 0a  ne::InitTclCmds.
3f50: 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 5b 69      }.    if {[i
3f60: 6e 66 6f 20 65 78 69 73 74 73 20 74 6b 5f 76 65  nfo exists tk_ve
3f70: 72 73 69 6f 6e 5d 7d 20 7b 0a 20 20 20 20 20 20  rsion]} {.      
3f80: 20 20 3a 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a    ::tclreadline:
3f90: 3a 49 6e 69 74 54 6b 43 6d 64 73 0a 20 20 20 20  :InitTkCmds.    
3fa0: 7d 0a 20 20 20 20 72 65 6e 61 6d 65 20 74 63 6c  }.    rename tcl
3fb0: 72 65 61 64 6c 69 6e 65 3a 3a 49 6e 69 74 43 6d  readline::InitCm
3fc0: 64 73 20 22 22 0a 7d 0a 0a 70 72 6f 63 20 3a 3a  ds "".}..proc ::
3fd0: 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 49 6e 69  tclreadline::Ini
3fe0: 74 54 63 6c 43 6d 64 73 20 7b 7d 20 7b 0a 20 20  tTclCmds {} {.  
3ff0: 20 20 76 61 72 69 61 62 6c 65 20 6b 6e 6f 77 6e    variable known
4000: 5f 63 6d 64 73 0a 20 20 20 20 66 6f 72 65 61 63  _cmds.    foreac
4010: 68 20 6c 69 6e 65 20 7b 0a 20 20 20 20 20 20 20  h line {.       
4020: 20 22 61 66 74 65 72 20 6f 70 74 69 6f 6e 20 3f   "after option ?
4030: 61 72 67 20 61 72 67 20 2e 2e 2e 3f 22 0a 20 20  arg arg ...?".  
4040: 20 20 20 20 20 20 22 61 70 70 65 6e 64 20 76 61        "append va
4050: 72 4e 61 6d 65 20 3f 76 61 6c 75 65 20 76 61 6c  rName ?value val
4060: 75 65 20 2e 2e 2e 3f 22 0a 20 20 20 20 20 20 20  ue ...?".       
4070: 20 22 61 72 72 61 79 20 6f 70 74 69 6f 6e 20 61   "array option a
4080: 72 72 61 79 4e 61 6d 65 20 3f 61 72 67 20 2e 2e  rrayName ?arg ..
4090: 2e 3f 22 0a 20 20 20 20 20 20 20 20 22 62 69 6e  .?".        "bin
40a0: 61 72 79 20 6f 70 74 69 6f 6e 20 3f 61 72 67 20  ary option ?arg 
40b0: 61 72 67 20 2e 2e 2e 3f 22 0a 20 20 20 20 20 20  arg ...?".      
40c0: 20 20 22 63 61 74 63 68 20 63 6f 6d 6d 61 6e 64    "catch command
40d0: 20 3f 76 61 72 4e 61 6d 65 3f 22 0a 20 20 20 20   ?varName?".    
40e0: 20 20 20 20 22 63 6c 6f 63 6b 20 6f 70 74 69 6f      "clock optio
40f0: 6e 20 3f 61 72 67 20 2e 2e 2e 3f 22 0a 20 20 20  n ?arg ...?".   
4100: 20 20 20 20 20 22 63 6c 6f 73 65 20 63 68 61 6e       "close chan
4110: 6e 65 6c 49 64 22 0a 20 20 20 20 20 20 20 20 22  nelId".        "
4120: 65 6f 66 20 63 68 61 6e 6e 65 6c 49 64 22 0a 20  eof channelId". 
4130: 20 20 20 20 20 20 20 22 65 72 72 6f 72 20 6d 65         "error me
4140: 73 73 61 67 65 20 3f 65 72 72 6f 72 49 6e 66 6f  ssage ?errorInfo
4150: 3f 20 3f 65 72 72 6f 72 43 6f 64 65 3f 22 0a 20  ? ?errorCode?". 
4160: 20 20 20 20 20 20 20 22 65 76 61 6c 20 61 72 67         "eval arg
4170: 20 3f 61 72 67 20 2e 2e 2e 3f 22 0a 20 20 20 20   ?arg ...?".    
4180: 20 20 20 20 22 65 78 65 63 20 3f 73 77 69 74 63      "exec ?switc
4190: 68 65 73 3f 20 61 72 67 20 3f 61 72 67 20 2e 2e  hes? arg ?arg ..
41a0: 2e 3f 22 0a 20 20 20 20 20 20 20 20 22 65 78 70  .?".        "exp
41b0: 72 20 61 72 67 20 3f 61 72 67 20 2e 2e 2e 3f 22  r arg ?arg ...?"
41c0: 0a 20 20 20 20 20 20 20 20 22 66 62 6c 6f 63 6b  .        "fblock
41d0: 65 64 20 63 68 61 6e 6e 65 6c 49 64 22 0a 20 20  ed channelId".  
41e0: 20 20 20 20 20 20 22 66 63 6f 6e 66 69 67 75 72        "fconfigur
41f0: 65 20 63 68 61 6e 6e 65 6c 49 64 20 3f 6f 70 74  e channelId ?opt
4200: 69 6f 6e 4e 61 6d 65 3f 20 3f 76 61 6c 75 65 3f  ionName? ?value?
4210: 20 3f 6f 70 74 69 6f 6e 4e 61 6d 65 20 76 61 6c   ?optionName val
4220: 75 65 3f 2e 2e 2e 22 0a 20 20 20 20 20 20 20 20  ue?...".        
4230: 22 66 63 6f 70 79 20 69 6e 70 75 74 20 6f 75 74  "fcopy input out
4240: 70 75 74 20 3f 2d 73 69 7a 65 20 73 69 7a 65 3f  put ?-size size?
4250: 20 3f 2d 63 6f 6d 6d 61 6e 64 20 63 61 6c 6c 62   ?-command callb
4260: 61 63 6b 3f 22 0a 20 20 20 20 20 20 20 20 22 66  ack?".        "f
4270: 69 6c 65 20 6f 70 74 69 6f 6e 20 3f 61 72 67 20  ile option ?arg 
4280: 2e 2e 2e 3f 22 0a 20 20 20 20 20 20 20 20 22 66  ...?".        "f
4290: 69 6c 65 65 76 65 6e 74 20 63 68 61 6e 6e 65 6c  ileevent channel
42a0: 49 64 20 65 76 65 6e 74 20 3f 73 63 72 69 70 74  Id event ?script
42b0: 3f 22 0a 20 20 20 20 20 20 20 20 22 66 6c 75 73  ?".        "flus
42c0: 68 20 63 68 61 6e 6e 65 6c 49 64 22 0a 20 20 20  h channelId".   
42d0: 20 20 20 20 20 22 66 6f 72 20 73 74 61 72 74 20       "for start 
42e0: 74 65 73 74 20 6e 65 78 74 20 63 6f 6d 6d 61 6e  test next comman
42f0: 64 22 0a 20 20 20 20 20 20 20 20 22 66 6f 72 65  d".        "fore
4300: 61 63 68 20 76 61 72 4c 69 73 74 20 6c 69 73 74  ach varList list
4310: 20 3f 76 61 72 4c 69 73 74 20 6c 69 73 74 20 2e   ?varList list .
4320: 2e 2e 3f 20 63 6f 6d 6d 61 6e 64 22 0a 20 20 20  ..? command".   
4330: 20 20 20 20 20 22 66 6f 72 6d 61 74 20 66 6f 72       "format for
4340: 6d 61 74 53 74 72 69 6e 67 20 3f 61 72 67 20 61  matString ?arg a
4350: 72 67 20 2e 2e 2e 3f 22 0a 20 20 20 20 20 20 20  rg ...?".       
4360: 20 22 67 65 74 73 20 63 68 61 6e 6e 65 6c 49 64   "gets channelId
4370: 20 3f 76 61 72 4e 61 6d 65 3f 22 0a 20 20 20 20   ?varName?".    
4380: 20 20 20 20 22 67 6c 6f 62 20 3f 73 77 69 74 63      "glob ?switc
4390: 68 65 73 3f 20 6e 61 6d 65 20 3f 6e 61 6d 65 20  hes? name ?name 
43a0: 2e 2e 2e 3f 22 0a 20 20 20 20 20 20 20 20 22 67  ...?".        "g
43b0: 6c 6f 62 61 6c 20 76 61 72 4e 61 6d 65 20 3f 76  lobal varName ?v
43c0: 61 72 4e 61 6d 65 20 2e 2e 2e 3f 22 0a 20 20 20  arName ...?".   
43d0: 20 20 20 20 20 22 69 6e 63 72 20 76 61 72 4e 61       "incr varNa
43e0: 6d 65 20 3f 69 6e 63 72 65 6d 65 6e 74 3f 22 0a  me ?increment?".
43f0: 20 20 20 20 20 20 20 20 22 69 6e 66 6f 20 6f 70          "info op
4400: 74 69 6f 6e 20 3f 61 72 67 20 61 72 67 20 2e 2e  tion ?arg arg ..
4410: 2e 3f 22 0a 20 20 20 20 20 20 20 20 22 69 6e 74  .?".        "int
4420: 65 72 70 20 63 6d 64 20 3f 61 72 67 20 2e 2e 2e  erp cmd ?arg ...
4430: 3f 22 0a 20 20 20 20 20 20 20 20 22 6a 6f 69 6e  ?".        "join
4440: 20 6c 69 73 74 20 3f 6a 6f 69 6e 53 74 72 69 6e   list ?joinStrin
4450: 67 3f 22 0a 20 20 20 20 20 20 20 20 22 6c 61 70  g?".        "lap
4460: 70 65 6e 64 20 76 61 72 4e 61 6d 65 20 3f 76 61  pend varName ?va
4470: 6c 75 65 20 76 61 6c 75 65 20 2e 2e 2e 3f 22 0a  lue value ...?".
4480: 20 20 20 20 20 20 20 20 22 6c 69 6e 64 65 78 20          "lindex 
4490: 6c 69 73 74 20 69 6e 64 65 78 22 0a 20 20 20 20  list index".    
44a0: 20 20 20 20 22 6c 69 6e 73 65 72 74 20 6c 69 73      "linsert lis
44b0: 74 20 69 6e 64 65 78 20 65 6c 65 6d 65 6e 74 20  t index element 
44c0: 3f 65 6c 65 6d 65 6e 74 20 2e 2e 2e 3f 22 0a 20  ?element ...?". 
44d0: 20 20 20 20 20 20 20 22 6c 6c 65 6e 67 74 68 20         "llength 
44e0: 6c 69 73 74 22 0a 20 20 20 20 20 20 20 20 22 6c  list".        "l
44f0: 6f 61 64 20 66 69 6c 65 4e 61 6d 65 20 3f 70 61  oad fileName ?pa
4500: 63 6b 61 67 65 4e 61 6d 65 3f 20 3f 69 6e 74 65  ckageName? ?inte
4510: 72 70 3f 22 0a 20 20 20 20 20 20 20 20 22 6c 72  rp?".        "lr
4520: 61 6e 67 65 20 6c 69 73 74 20 66 69 72 73 74 20  ange list first 
4530: 6c 61 73 74 22 0a 20 20 20 20 20 20 20 20 22 6c  last".        "l
4540: 72 65 70 6c 61 63 65 20 6c 69 73 74 20 66 69 72  replace list fir
4550: 73 74 20 6c 61 73 74 20 3f 65 6c 65 6d 65 6e 74  st last ?element
4560: 20 65 6c 65 6d 65 6e 74 20 2e 2e 2e 3f 22 0a 20   element ...?". 
4570: 20 20 20 20 20 20 20 22 6c 73 65 61 72 63 68 20         "lsearch 
4580: 3f 6d 6f 64 65 3f 20 6c 69 73 74 20 70 61 74 74  ?mode? list patt
4590: 65 72 6e 22 0a 20 20 20 20 20 20 20 20 22 6c 73  ern".        "ls
45a0: 6f 72 74 20 3f 6f 70 74 69 6f 6e 73 3f 20 6c 69  ort ?options? li
45b0: 73 74 22 0a 20 20 20 20 20 20 20 20 22 6e 61 6d  st".        "nam
45c0: 65 73 70 61 63 65 20 73 75 62 63 6f 6d 6d 61 6e  espace subcomman
45d0: 64 20 3f 61 72 67 20 2e 2e 2e 3f 22 0a 20 20 20  d ?arg ...?".   
45e0: 20 20 20 20 20 22 6f 70 65 6e 20 66 69 6c 65 4e       "open fileN
45f0: 61 6d 65 20 3f 61 63 63 65 73 73 3f 20 3f 70 65  ame ?access? ?pe
4600: 72 6d 69 73 73 69 6f 6e 73 3f 22 0a 20 20 20 20  rmissions?".    
4610: 20 20 20 20 22 70 61 63 6b 61 67 65 20 6f 70 74      "package opt
4620: 69 6f 6e 20 3f 61 72 67 20 61 72 67 20 2e 2e 2e  ion ?arg arg ...
4630: 3f 22 0a 20 20 20 20 20 20 20 20 22 70 72 6f 63  ?".        "proc
4640: 20 6e 61 6d 65 20 61 72 67 73 20 62 6f 64 79 22   name args body"
4650: 0a 20 20 20 20 20 20 20 20 22 70 75 74 73 20 3f  .        "puts ?
4660: 2d 6e 6f 6e 65 77 6c 69 6e 65 3f 20 3f 63 68 61  -nonewline? ?cha
4670: 6e 6e 65 6c 49 64 3f 20 73 74 72 69 6e 67 22 0a  nnelId? string".
4680: 20 20 20 20 20 20 20 20 22 72 65 61 64 20 3f 2d          "read ?-
4690: 6e 6f 6e 65 77 6c 69 6e 65 3f 20 63 68 61 6e 6e  nonewline? chann
46a0: 65 6c 49 64 22 0a 20 20 20 20 20 20 20 20 22 72  elId".        "r
46b0: 65 67 65 78 70 20 3f 73 77 69 74 63 68 65 73 3f  egexp ?switches?
46c0: 20 65 78 70 20 73 74 72 69 6e 67 20 3f 6d 61 74   exp string ?mat
46d0: 63 68 56 61 72 3f 20 3f 73 75 62 4d 61 74 63 68  chVar? ?subMatch
46e0: 56 61 72 20 73 75 62 4d 61 74 63 68 56 61 72 20  Var subMatchVar 
46f0: 2e 2e 2e 3f 22 0a 20 20 20 20 20 20 20 20 22 72  ...?".        "r
4700: 65 67 73 75 62 20 3f 73 77 69 74 63 68 65 73 3f  egsub ?switches?
4710: 20 65 78 70 20 73 74 72 69 6e 67 20 73 75 62 53   exp string subS
4720: 70 65 63 20 76 61 72 4e 61 6d 65 22 0a 20 20 20  pec varName".   
4730: 20 20 20 20 20 22 72 65 6e 61 6d 65 20 6f 6c 64       "rename old
4740: 4e 61 6d 65 20 6e 65 77 4e 61 6d 65 22 0a 20 20  Name newName".  
4750: 20 20 20 20 20 20 22 73 63 61 6e 20 73 74 72 69        "scan stri
4760: 6e 67 20 66 6f 72 6d 61 74 20 3f 76 61 72 4e 61  ng format ?varNa
4770: 6d 65 20 76 61 72 4e 61 6d 65 20 2e 2e 2e 3f 22  me varName ...?"
4780: 0a 20 20 20 20 20 20 20 20 22 73 65 65 6b 20 63  .        "seek c
4790: 68 61 6e 6e 65 6c 49 64 20 6f 66 66 73 65 74 20  hannelId offset 
47a0: 3f 6f 72 69 67 69 6e 3f 22 0a 20 20 20 20 20 20  ?origin?".      
47b0: 20 20 22 73 65 74 20 76 61 72 4e 61 6d 65 20 3f    "set varName ?
47c0: 6e 65 77 56 61 6c 75 65 3f 22 0a 20 20 20 20 20  newValue?".     
47d0: 20 20 20 22 73 6f 63 6b 65 74 20 3f 2d 6d 79 61     "socket ?-mya
47e0: 64 64 72 20 61 64 64 72 3f 20 3f 2d 6d 79 70 6f  ddr addr? ?-mypo
47f0: 72 74 20 6d 79 70 6f 72 74 3f 20 3f 2d 61 73 79  rt myport? ?-asy
4800: 6e 63 3f 20 68 6f 73 74 20 70 6f 72 74 22 0a 20  nc? host port". 
4810: 20 20 20 20 20 20 20 22 73 6f 63 6b 65 74 20 2d         "socket -
4820: 73 65 72 76 65 72 20 63 6f 6d 6d 61 6e 64 20 3f  server command ?
4830: 2d 6d 79 61 64 64 72 20 61 64 64 72 3f 20 70 6f  -myaddr addr? po
4840: 72 74 22 0a 20 20 20 20 20 20 20 20 22 73 6f 75  rt".        "sou
4850: 72 63 65 20 66 69 6c 65 4e 61 6d 65 22 0a 20 20  rce fileName".  
4860: 20 20 20 20 20 20 22 73 70 6c 69 74 20 73 74 72        "split str
4870: 69 6e 67 20 3f 73 70 6c 69 74 43 68 61 72 73 3f  ing ?splitChars?
4880: 22 0a 20 20 20 20 20 20 20 20 22 73 74 72 69 6e  ".        "strin
4890: 67 20 6f 70 74 69 6f 6e 20 61 72 67 20 3f 61 72  g option arg ?ar
48a0: 67 20 2e 2e 2e 3f 22 0a 20 20 20 20 20 20 20 20  g ...?".        
48b0: 22 73 75 62 73 74 20 3f 2d 6e 6f 62 61 63 6b 73  "subst ?-nobacks
48c0: 6c 61 73 68 65 73 3f 20 3f 2d 6e 6f 63 6f 6d 6d  lashes? ?-nocomm
48d0: 61 6e 64 73 3f 20 3f 2d 6e 6f 76 61 72 69 61 62  ands? ?-novariab
48e0: 6c 65 73 3f 20 73 74 72 69 6e 67 22 0a 20 20 20  les? string".   
48f0: 20 20 20 20 20 22 73 77 69 74 63 68 20 3f 73 77       "switch ?sw
4900: 69 74 63 68 65 73 3f 20 73 74 72 69 6e 67 20 70  itches? string p
4910: 61 74 74 65 72 6e 20 62 6f 64 79 20 2e 2e 2e 20  attern body ... 
4920: 3f 64 65 66 61 75 6c 74 20 62 6f 64 79 3f 22 0a  ?default body?".
4930: 20 20 20 20 20 20 20 20 22 74 65 6c 6c 20 63 68          "tell ch
4940: 61 6e 6e 65 6c 49 64 22 0a 20 20 20 20 20 20 20  annelId".       
4950: 20 22 74 69 6d 65 20 63 6f 6d 6d 61 6e 64 20 3f   "time command ?
4960: 63 6f 75 6e 74 3f 22 0a 20 20 20 20 20 20 20 20  count?".        
4970: 22 74 72 61 63 65 20 6f 70 74 69 6f 6e 20 5c 5b  "trace option \[
4980: 61 72 67 20 61 72 67 20 2e 2e 2e 5c 5d 22 0a 20  arg arg ...\]". 
4990: 20 20 20 20 20 20 20 22 75 6e 73 65 74 20 76 61         "unset va
49a0: 72 4e 61 6d 65 20 3f 76 61 72 4e 61 6d 65 20 2e  rName ?varName .
49b0: 2e 2e 3f 22 0a 20 20 20 20 20 20 20 20 22 75 70  ..?".        "up
49c0: 6c 65 76 65 6c 20 3f 6c 65 76 65 6c 3f 20 63 6f  level ?level? co
49d0: 6d 6d 61 6e 64 20 3f 61 72 67 20 2e 2e 2e 3f 22  mmand ?arg ...?"
49e0: 0a 20 20 20 20 20 20 20 20 22 75 70 76 61 72 20  .        "upvar 
49f0: 3f 6c 65 76 65 6c 3f 20 6f 74 68 65 72 56 61 72  ?level? otherVar
4a00: 20 6c 6f 63 61 6c 56 61 72 20 3f 6f 74 68 65 72   localVar ?other
4a10: 56 61 72 20 6c 6f 63 61 6c 56 61 72 20 2e 2e 2e  Var localVar ...
4a20: 3f 22 0a 20 20 20 20 20 20 20 20 22 76 77 61 69  ?".        "vwai
4a30: 74 20 6e 61 6d 65 22 0a 20 20 20 20 20 20 20 20  t name".        
4a40: 22 77 68 69 6c 65 20 74 65 73 74 20 63 6f 6d 6d  "while test comm
4a50: 61 6e 64 22 0a 20 20 20 20 7d 20 7b 0a 20 20 20  and".    } {.   
4a60: 20 20 20 20 20 74 63 6c 72 65 61 64 6c 69 6e 65       tclreadline
4a70: 3a 3a 72 65 61 64 6c 69 6e 65 20 61 64 64 20 24  ::readline add $
4a80: 6c 69 6e 65 0a 20 20 20 20 20 20 20 20 73 65 74  line.        set
4a90: 20 6b 6e 6f 77 6e 5f 63 6d 64 73 28 5b 6c 69 6e   known_cmds([lin
4aa0: 64 65 78 20 24 6c 69 6e 65 20 30 5d 29 20 5b 6c  dex $line 0]) [l
4ab0: 72 61 6e 67 65 20 24 6c 69 6e 65 20 31 20 65 6e  range $line 1 en
4ac0: 64 5d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 6e  d].    }.    ren
4ad0: 61 6d 65 20 74 63 6c 72 65 61 64 6c 69 6e 65 3a  ame tclreadline:
4ae0: 3a 49 6e 69 74 54 63 6c 43 6d 64 73 20 22 22 0a  :InitTclCmds "".
4af0: 7d 0a 0a 70 72 6f 63 20 3a 3a 74 63 6c 72 65 61  }..proc ::tclrea
4b00: 64 6c 69 6e 65 3a 3a 49 6e 69 74 54 6b 43 6d 64  dline::InitTkCmd
4b10: 73 20 7b 7d 20 7b 0a 20 20 20 20 76 61 72 69 61  s {} {.    varia
4b20: 62 6c 65 20 6b 6e 6f 77 6e 5f 63 6d 64 73 0a 20  ble known_cmds. 
4b30: 20 20 20 66 6f 72 65 61 63 68 20 6c 69 6e 65 20     foreach line 
4b40: 7b 0a 20 20 20 20 20 20 20 20 22 62 69 6e 64 20  {.        "bind 
4b50: 77 69 6e 64 6f 77 20 3f 70 61 74 74 65 72 6e 3f  window ?pattern?
4b60: 20 3f 63 6f 6d 6d 61 6e 64 3f 22 0a 20 20 20 20   ?command?".    
4b70: 20 20 20 20 22 62 69 6e 64 74 61 67 73 20 77 69      "bindtags wi
4b80: 6e 64 6f 77 20 3f 74 61 67 73 3f 22 0a 20 20 20  ndow ?tags?".   
4b90: 20 20 20 20 20 22 62 75 74 74 6f 6e 20 70 61 74       "button pat
4ba0: 68 4e 61 6d 65 20 3f 6f 70 74 69 6f 6e 73 3f 22  hName ?options?"
4bb0: 0a 20 20 20 20 20 20 20 20 22 63 61 6e 76 61 73  .        "canvas
4bc0: 20 70 61 74 68 4e 61 6d 65 20 3f 6f 70 74 69 6f   pathName ?optio
4bd0: 6e 73 3f 22 0a 20 20 20 20 20 20 20 20 22 63 68  ns?".        "ch
4be0: 65 63 6b 62 75 74 74 6f 6e 20 70 61 74 68 4e 61  eckbutton pathNa
4bf0: 6d 65 20 3f 6f 70 74 69 6f 6e 73 3f 22 0a 20 20  me ?options?".  
4c00: 20 20 20 20 20 20 22 63 6c 69 70 62 6f 61 72 64        "clipboard
4c10: 20 6f 70 74 69 6f 6e 20 3f 61 72 67 20 61 72 67   option ?arg arg
4c20: 20 2e 2e 2e 3f 22 0a 20 20 20 20 20 20 20 20 22   ...?".        "
4c30: 65 6e 74 72 79 20 70 61 74 68 4e 61 6d 65 20 3f  entry pathName ?
4c40: 6f 70 74 69 6f 6e 73 3f 22 0a 20 20 20 20 20 20  options?".      
4c50: 20 20 22 65 76 65 6e 74 20 6f 70 74 69 6f 6e 20    "event option 
4c60: 3f 61 72 67 31 3f 22 0a 20 20 20 20 20 20 20 20  ?arg1?".        
4c70: 22 66 6f 6e 74 20 6f 70 74 69 6f 6e 20 3f 61 72  "font option ?ar
4c80: 67 3f 22 0a 20 20 20 20 20 20 20 20 22 66 72 61  g?".        "fra
4c90: 6d 65 20 70 61 74 68 4e 61 6d 65 20 3f 6f 70 74  me pathName ?opt
4ca0: 69 6f 6e 73 3f 22 0a 20 20 20 20 20 20 20 20 22  ions?".        "
4cb0: 67 72 61 62 20 6f 70 74 69 6f 6e 20 3f 61 72 67  grab option ?arg
4cc0: 20 61 72 67 20 2e 2e 2e 3f 22 0a 20 20 20 20 20   arg ...?".     
4cd0: 20 20 20 22 67 72 69 64 20 6f 70 74 69 6f 6e 20     "grid option 
4ce0: 61 72 67 20 3f 61 72 67 20 2e 2e 2e 3f 22 0a 20  arg ?arg ...?". 
4cf0: 20 20 20 20 20 20 20 22 69 6d 61 67 65 20 6f 70         "image op
4d00: 74 69 6f 6e 20 3f 61 72 67 73 3f 22 0a 20 20 20  tion ?args?".   
4d10: 20 20 20 20 20 22 6c 61 62 65 6c 20 70 61 74 68       "label path
4d20: 4e 61 6d 65 20 3f 6f 70 74 69 6f 6e 73 3f 22 0a  Name ?options?".
4d30: 20 20 20 20 20 20 20 20 22 6c 69 73 74 62 6f 78          "listbox
4d40: 20 70 61 74 68 4e 61 6d 65 20 3f 6f 70 74 69 6f   pathName ?optio
4d50: 6e 73 3f 22 0a 20 20 20 20 20 20 20 20 22 6c 6f  ns?".        "lo
4d60: 77 65 72 20 77 69 6e 64 6f 77 20 3f 62 65 6c 6f  wer window ?belo
4d70: 77 54 68 69 73 3f 22 0a 20 20 20 20 20 20 20 20  wThis?".        
4d80: 22 6d 65 6e 75 20 70 61 74 68 4e 61 6d 65 20 3f  "menu pathName ?
4d90: 6f 70 74 69 6f 6e 73 3f 22 0a 20 20 20 20 20 20  options?".      
4da0: 20 20 22 6d 65 6e 75 62 75 74 74 6f 6e 20 70 61    "menubutton pa
4db0: 74 68 4e 61 6d 65 20 3f 6f 70 74 69 6f 6e 73 3f  thName ?options?
4dc0: 22 0a 20 20 20 20 20 20 20 20 22 6d 65 73 73 61  ".        "messa
4dd0: 67 65 20 70 61 74 68 4e 61 6d 65 20 3f 6f 70 74  ge pathName ?opt
4de0: 69 6f 6e 73 3f 22 0a 20 20 20 20 20 20 20 20 22  ions?".        "
4df0: 6f 70 74 69 6f 6e 20 63 6d 64 20 61 72 67 20 3f  option cmd arg ?
4e00: 61 72 67 20 2e 2e 2e 3f 22 0a 20 20 20 20 20 20  arg ...?".      
4e10: 20 20 22 70 61 63 6b 20 6f 70 74 69 6f 6e 20 61    "pack option a
4e20: 72 67 20 3f 61 72 67 20 2e 2e 2e 3f 22 0a 20 20  rg ?arg ...?".  
4e30: 20 20 20 20 20 20 22 72 61 64 69 6f 62 75 74 74        "radiobutt
4e40: 6f 6e 20 70 61 74 68 4e 61 6d 65 20 3f 6f 70 74  on pathName ?opt
4e50: 69 6f 6e 73 3f 22 0a 20 20 20 20 20 20 20 20 22  ions?".        "
4e60: 72 61 69 73 65 20 77 69 6e 64 6f 77 20 3f 61 62  raise window ?ab
4e70: 6f 76 65 54 68 69 73 3f 22 0a 20 20 20 20 20 20  oveThis?".      
4e80: 20 20 22 73 63 61 6c 65 20 70 61 74 68 4e 61 6d    "scale pathNam
4e90: 65 20 3f 6f 70 74 69 6f 6e 73 3f 22 0a 20 20 20  e ?options?".   
4ea0: 20 20 20 20 20 22 73 63 72 6f 6c 6c 62 61 72 20       "scrollbar 
4eb0: 70 61 74 68 4e 61 6d 65 20 3f 6f 70 74 69 6f 6e  pathName ?option
4ec0: 73 3f 22 0a 20 20 20 20 20 20 20 20 22 73 65 6c  s?".        "sel
4ed0: 65 63 74 69 6f 6e 20 6f 70 74 69 6f 6e 20 3f 61  ection option ?a
4ee0: 72 67 20 61 72 67 20 2e 2e 2e 3f 22 0a 20 20 20  rg arg ...?".   
4ef0: 20 20 20 20 20 22 73 65 6e 64 20 3f 6f 70 74 69       "send ?opti
4f00: 6f 6e 73 3f 20 69 6e 74 65 72 70 4e 61 6d 65 20  ons? interpName 
4f10: 61 72 67 20 3f 61 72 67 20 2e 2e 2e 3f 22 0a 20  arg ?arg ...?". 
4f20: 20 20 20 20 20 20 20 22 74 65 78 74 20 70 61 74         "text pat
4f30: 68 4e 61 6d 65 20 3f 6f 70 74 69 6f 6e 73 3f 22  hName ?options?"
4f40: 0a 20 20 20 20 20 20 20 20 22 74 6b 20 6f 70 74  .        "tk opt
4f50: 69 6f 6e 20 3f 61 72 67 3f 22 0a 20 20 20 20 20  ion ?arg?".     
4f60: 20 20 20 22 74 6b 77 61 69 74 20 76 61 72 69 61     "tkwait varia
4f70: 62 6c 65 7c 76 69 73 69 62 69 6c 69 74 79 7c 77  ble|visibility|w
4f80: 69 6e 64 6f 77 20 6e 61 6d 65 22 0a 20 20 20 20  indow name".    
4f90: 20 20 20 20 22 74 6f 70 6c 65 76 65 6c 20 70 61      "toplevel pa
4fa0: 74 68 4e 61 6d 65 20 3f 6f 70 74 69 6f 6e 73 3f  thName ?options?
4fb0: 22 0a 20 20 20 20 20 20 20 20 22 77 69 6e 66 6f  ".        "winfo
4fc0: 20 6f 70 74 69 6f 6e 20 3f 61 72 67 3f 22 0a 20   option ?arg?". 
4fd0: 20 20 20 20 20 20 20 22 77 6d 20 6f 70 74 69 6f         "wm optio
4fe0: 6e 20 77 69 6e 64 6f 77 20 3f 61 72 67 20 2e 2e  n window ?arg ..
4ff0: 2e 3f 22 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20  .?".    } {.    
5000: 20 20 20 20 74 63 6c 72 65 61 64 6c 69 6e 65 3a      tclreadline:
5010: 3a 72 65 61 64 6c 69 6e 65 20 61 64 64 20 24 6c  :readline add $l
5020: 69 6e 65 0a 20 20 20 20 20 20 20 20 73 65 74 20  ine.        set 
5030: 6b 6e 6f 77 6e 5f 63 6d 64 73 28 5b 6c 69 6e 64  known_cmds([lind
5040: 65 78 20 24 6c 69 6e 65 20 30 5d 29 20 5b 6c 72  ex $line 0]) [lr
5050: 61 6e 67 65 20 24 6c 69 6e 65 20 31 20 65 6e 64  ange $line 1 end
5060: 5d 0a 20 20 20 20 7d 0a 72 65 6e 61 6d 65 20 74  ].    }.rename t
5070: 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 49 6e 69 74  clreadline::Init
5080: 54 6b 43 6d 64 73 20 22 22 0a 7d 0a 0a           TkCmds "".}..