Hex Artifact Content
Not logged in

Artifact 97bafdb0ed8fb76883edb22717e22b2d67b903b3:


0000: 0a 20 2f 2a 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  . /* ===========
0010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0040: 3d 3d 3d 3d 3d 3d 3d 0a 0a 20 20 20 20 46 49 4c  =======..    FIL
0050: 45 3a 20 22 2f 64 69 73 6b 61 2f 68 6f 6d 65 2f  E: "/diska/home/
0060: 6a 6f 7a 65 2f 73 72 63 2f 74 63 6c 72 65 61 64  joze/src/tclread
0070: 6c 69 6e 65 2f 74 63 6c 72 65 61 64 6c 69 6e 65  line/tclreadline
0080: 2e 63 22 0a 20 20 20 20 4c 41 53 54 20 4d 4f 44  .c".    LAST MOD
0090: 49 46 49 43 41 54 49 4f 4e 3a 20 22 57 65 64 20  IFICATION: "Wed 
00a0: 53 65 70 20 20 38 20 32 30 3a 35 33 3a 32 33 20  Sep  8 20:53:23 
00b0: 31 39 39 39 20 28 6a 6f 7a 65 29 22 0a 20 20 20  1999 (joze)".   
00c0: 20 28 43 29 20 31 39 39 38 2c 20 31 39 39 39 20   (C) 1998, 1999 
00d0: 62 79 20 4a 6f 68 61 6e 6e 65 73 20 5a 65 6c 6c  by Johannes Zell
00e0: 6e 65 72 2c 20 3c 6a 6f 68 61 6e 6e 65 73 40 7a  ner, <johannes@z
00f0: 65 6c 6c 6e 65 72 2e 6f 72 67 3e 0a 20 20 20 20  ellner.org>.    
0100: 24 49 64 24 0a 20 20 20 20 2d 2d 2d 0a 0a 20 20  $Id$.    ---..  
0110: 20 20 74 63 6c 72 65 61 64 6c 69 6e 65 20 2d 2d    tclreadline --
0120: 20 67 6e 75 20 72 65 61 64 6c 69 6e 65 20 66 6f   gnu readline fo
0130: 72 20 74 63 6c 0a 20 20 20 20 43 6f 70 79 72 69  r tcl.    Copyri
0140: 67 68 74 20 28 43 29 20 31 39 39 39 20 20 4a 6f  ght (C) 1999  Jo
0150: 68 61 6e 6e 65 73 20 5a 65 6c 6c 6e 65 72 0a 0a  hannes Zellner..
0160: 20 20 20 20 54 68 69 73 20 70 72 6f 67 72 61 6d      This program
0170: 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72   is free softwar
0180: 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73  e; you can redis
0190: 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f  tribute it and/o
01a0: 72 0a 20 20 20 20 6d 6f 64 69 66 79 20 69 74 20  r.    modify it 
01b0: 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20  under the terms 
01c0: 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72  of the GNU Gener
01d0: 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73  al Public Licens
01e0: 65 0a 20 20 20 20 61 73 20 70 75 62 6c 69 73 68  e.    as publish
01f0: 65 64 20 62 79 20 74 68 65 20 46 72 65 65 20 53  ed by the Free S
0200: 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69  oftware Foundati
0210: 6f 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69  on; either versi
0220: 6f 6e 20 32 0a 20 20 20 20 6f 66 20 74 68 65 20  on 2.    of the 
0230: 4c 69 63 65 6e 73 65 2c 20 6f 72 20 28 61 74 20  License, or (at 
0240: 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79  your option) any
0250: 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a   later version..
0260: 0a 20 20 20 20 54 68 69 73 20 70 72 6f 67 72 61  .    This progra
0270: 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64  m is distributed
0280: 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61   in the hope tha
0290: 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65  t it will be use
02a0: 66 75 6c 2c 0a 20 20 20 20 62 75 74 20 57 49 54  ful,.    but WIT
02b0: 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54  HOUT ANY WARRANT
02c0: 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20  Y; without even 
02d0: 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72  the implied warr
02e0: 61 6e 74 79 20 6f 66 0a 20 20 20 20 4d 45 52 43  anty of.    MERC
02f0: 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46  HANTABILITY or F
0300: 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52  ITNESS FOR A PAR
0310: 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e  TICULAR PURPOSE.
0320: 20 20 53 65 65 20 74 68 65 0a 20 20 20 20 47 4e    See the.    GN
0330: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63  U General Public
0340: 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72   License for mor
0350: 65 20 64 65 74 61 69 6c 73 2e 0a 0a 20 20 20 20  e details...    
0360: 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20  You should have 
0370: 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20  received a copy 
0380: 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72  of the GNU Gener
0390: 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73  al Public Licens
03a0: 65 0a 20 20 20 20 61 6c 6f 6e 67 20 77 69 74 68  e.    along with
03b0: 20 74 68 69 73 20 70 72 6f 67 72 61 6d 3b 20 69   this program; i
03c0: 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20  f not, write to 
03d0: 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72  the Free Softwar
03e0: 65 0a 20 20 20 20 46 6f 75 6e 64 61 74 69 6f 6e  e.    Foundation
03f0: 2c 20 49 6e 63 2e 2c 20 35 39 20 54 65 6d 70 6c  , Inc., 59 Templ
0400: 65 20 50 6c 61 63 65 20 2d 20 53 75 69 74 65 20  e Place - Suite 
0410: 33 33 30 2c 20 42 6f 73 74 6f 6e 2c 20 4d 41 20  330, Boston, MA 
0420: 20 30 32 31 31 31 2d 31 33 30 37 2c 20 55 53 41   02111-1307, USA
0430: 2e 0a 0a 20 20 20 20 3c 6a 6f 68 61 6e 6e 65 73  ...    <johannes
0440: 40 7a 65 6c 6c 6e 65 72 2e 6f 72 67 3e 2c 20 68  @zellner.org>, h
0450: 74 74 70 3a 2f 2f 77 77 77 2e 7a 65 6c 6c 6e 65  ttp://www.zellne
0460: 72 2e 6f 72 67 2f 74 63 6c 72 65 61 64 6c 69 6e  r.org/tclreadlin
0470: 65 2f 0a 0a 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d  e/..    ========
0480: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0490: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
04a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
04b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 2a 2f 20 20 0a  ========== */  .
04c0: 0a 23 69 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68  .#include <tcl.h
04d0: 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 69  >.#include <stdi
04e0: 6f 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73  o.h>.#include <s
04f0: 74 64 6c 69 62 2e 68 3e 0a 23 69 6e 63 6c 75 64  tdlib.h>.#includ
0500: 65 20 3c 73 74 72 69 6e 67 2e 68 3e 0a 23 64 65  e <string.h>.#de
0510: 66 69 6e 65 20 52 45 41 44 4c 49 4e 45 5f 4c 49  fine READLINE_LI
0520: 42 52 41 52 59 0a 23 69 6e 63 6c 75 64 65 20 3c  BRARY.#include <
0530: 72 65 61 64 6c 69 6e 65 2e 68 3e 0a 23 69 6e 63  readline.h>.#inc
0540: 6c 75 64 65 20 3c 68 69 73 74 6f 72 79 2e 68 3e  lude <history.h>
0550: 0a 0a 2f 2a 2a 0a 20 2a 20 74 68 69 73 20 70 72  ../**. * this pr
0560: 6f 74 6f 74 79 70 65 20 69 73 20 6d 69 73 73 69  ototype is missi
0570: 6e 67 0a 20 2a 20 69 6e 20 72 65 61 64 6c 69 6e  ng. * in readlin
0580: 65 2e 68 0a 20 2a 2f 0a 76 6f 69 64 20 72 6c 5f  e.h. */.void rl_
0590: 65 78 74 65 6e 64 5f 6c 69 6e 65 5f 62 75 66 66  extend_line_buff
05a0: 65 72 28 69 6e 74 20 6c 65 6e 29 3b 0a 0a 23 69  er(int len);..#i
05b0: 6e 63 6c 75 64 65 20 22 74 63 6c 72 65 61 64 6c  nclude "tclreadl
05c0: 69 6e 65 2e 68 22 0a 0a 23 64 65 66 69 6e 65 20  ine.h"..#define 
05d0: 4d 41 4c 4c 4f 43 28 73 69 7a 65 29 20 54 63 6c  MALLOC(size) Tcl
05e0: 5f 41 6c 6c 6f 63 28 28 69 6e 74 29 20 73 69 7a  _Alloc((int) siz
05f0: 65 29 0a 23 64 65 66 69 6e 65 20 46 52 45 45 28  e).#define FREE(
0600: 70 74 72 29 20 69 66 20 28 70 74 72 29 20 7b 20  ptr) if (ptr) { 
0610: 54 63 6c 5f 46 72 65 65 28 28 63 68 61 72 2a 29  Tcl_Free((char*)
0620: 20 70 74 72 29 3b 20 70 74 72 20 3d 20 30 3b 20   ptr); ptr = 0; 
0630: 7d 0a 0a 65 6e 75 6d 20 7b 0a 20 20 20 20 5f 43  }..enum {.    _C
0640: 4d 44 5f 53 45 54 20 20 20 20 20 3d 20 28 31 20  MD_SET     = (1 
0650: 3c 3c 20 30 29 2c 0a 20 20 20 20 5f 43 4d 44 5f  << 0),.    _CMD_
0660: 47 45 54 20 20 20 20 20 3d 20 28 31 20 3c 3c 20  GET     = (1 << 
0670: 31 29 0a 7d 3b 0a 0a 0a 74 79 70 65 64 65 66 20  1).};...typedef 
0680: 73 74 72 75 63 74 20 63 6d 64 73 5f 74 20 7b 0a  struct cmds_t {.
0690: 20 20 20 20 73 74 72 75 63 74 20 63 6d 64 73 5f      struct cmds_
06a0: 74 2a 20 70 72 65 76 3b 0a 20 20 20 20 63 68 61  t* prev;.    cha
06b0: 72 2a 2a 20 20 20 20 20 20 20 20 20 63 6d 64 3b  r**         cmd;
06c0: 0a 20 20 20 20 73 74 72 75 63 74 20 63 6d 64 73  .    struct cmds
06d0: 5f 74 2a 20 6e 65 78 74 3b 0a 7d 20 63 6d 64 73  _t* next;.} cmds
06e0: 5f 74 3b 0a 0a 0a 23 64 65 66 69 6e 65 20 49 53  _t;...#define IS
06f0: 57 48 49 54 45 28 63 29 20 28 28 27 20 27 20 3d  WHITE(c) ((' ' =
0700: 3d 20 63 29 20 7c 7c 20 28 27 5c 74 27 20 3d 3d  = c) || ('\t' ==
0710: 20 63 29 20 7c 7c 20 28 27 5c 6e 27 20 3d 3d 20   c) || ('\n' == 
0720: 63 29 29 0a 0a 2f 2a 0a 20 2a 20 66 6f 72 77 61  c))../*. * forwa
0730: 72 64 20 64 65 63 6c 61 72 61 74 69 6f 6e 73 2e  rd declarations.
0740: 0a 20 2a 2f 0a 63 68 61 72 2a 20 73 74 72 69 70  . */.char* strip
0750: 6c 65 66 74 28 63 68 61 72 2a 20 69 6e 29 3b 0a  left(char* in);.
0760: 63 68 61 72 2a 20 73 74 72 69 70 72 69 67 68 74  char* stripright
0770: 28 63 68 61 72 2a 20 69 6e 29 3b 0a 63 68 61 72  (char* in);.char
0780: 2a 20 73 74 72 69 70 77 68 69 74 65 28 63 68 61  * stripwhite(cha
0790: 72 2a 20 69 6e 29 3b 0a 63 68 61 72 2a 20 54 63  r* in);.char* Tc
07a0: 6c 52 65 61 64 6c 69 6e 65 51 75 6f 74 65 28 63  lReadlineQuote(c
07b0: 68 61 72 2a 20 74 65 78 74 2c 20 63 68 61 72 2a  har* text, char*
07c0: 20 71 75 6f 74 65 63 68 61 72 73 29 3b 0a 69 6e   quotechars);.in
07d0: 74 20 54 63 6c 52 65 61 64 6c 69 6e 65 43 6d 64  t TclReadlineCmd
07e0: 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65  (ClientData clie
07f0: 6e 74 44 61 74 61 2c 20 54 63 6c 5f 49 6e 74 65  ntData, Tcl_Inte
0800: 72 70 2a 20 69 6e 74 65 72 70 2c 0a 20 20 20 20  rp* interp,.    
0810: 69 6e 74 20 61 72 67 63 2c 20 63 68 61 72 2a 2a  int argc, char**
0820: 20 61 72 67 76 29 3b 0a 69 6e 74 20 54 63 6c 52   argv);.int TclR
0830: 65 61 64 6c 69 6e 65 45 76 65 6e 74 48 6f 6f 6b  eadlineEventHook
0840: 28 76 6f 69 64 29 3b 0a 76 6f 69 64 20 54 63 6c  (void);.void Tcl
0850: 52 65 61 64 6c 69 6e 65 52 65 61 64 48 61 6e 64  ReadlineReadHand
0860: 6c 65 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63  ler(ClientData c
0870: 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d  lientData, int m
0880: 61 73 6b 29 3b 0a 76 6f 69 64 20 54 63 6c 52 65  ask);.void TclRe
0890: 61 64 6c 69 6e 65 57 72 69 74 65 48 61 6e 64 6c  adlineWriteHandl
08a0: 65 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  er(ClientData cl
08b0: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 61  ientData, int ma
08c0: 73 6b 29 3b 0a 76 6f 69 64 20 54 63 6c 52 65 61  sk);.void TclRea
08d0: 64 6c 69 6e 65 4c 69 6e 65 43 6f 6d 70 6c 65 74  dlineLineComplet
08e0: 65 48 61 6e 64 6c 65 72 28 63 68 61 72 2a 20 70  eHandler(char* p
08f0: 74 72 29 3b 0a 69 6e 74 20 54 63 6c 72 65 61 64  tr);.int Tclread
0900: 6c 69 6e 65 5f 53 61 66 65 49 6e 69 74 28 54 63  line_SafeInit(Tc
0910: 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70  l_Interp* interp
0920: 29 3b 0a 69 6e 74 20 54 63 6c 72 65 61 64 6c 69  );.int Tclreadli
0930: 6e 65 5f 49 6e 69 74 28 54 63 6c 5f 49 6e 74 65  ne_Init(Tcl_Inte
0940: 72 70 2a 20 69 6e 74 65 72 70 29 3b 0a 63 68 61  rp* interp);.cha
0950: 72 20 2a 54 63 6c 52 65 61 64 6c 69 6e 65 46 69  r *TclReadlineFi
0960: 6c 65 6e 61 6d 65 51 75 6f 74 69 6e 67 46 75 6e  lenameQuotingFun
0970: 63 74 69 6f 6e 28 0a 20 20 20 20 63 68 61 72 20  ction(.    char 
0980: 2a 74 65 78 74 2c 20 69 6e 74 20 6d 61 74 63 68  *text, int match
0990: 5f 74 79 70 65 2c 20 63 68 61 72 2a 20 71 75 6f  _type, char* quo
09a0: 74 65 5f 70 74 72 29 3b 0a 69 6e 74 20 54 63 6c  te_ptr);.int Tcl
09b0: 52 65 61 64 6c 69 6e 65 49 6e 69 74 69 61 6c 69  ReadlineInitiali
09c0: 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69  ze(Tcl_Interp* i
09d0: 6e 74 65 72 70 2c 20 63 68 61 72 2a 20 68 69 73  nterp, char* his
09e0: 74 6f 72 79 66 69 6c 65 29 3b 0a 69 6e 74 20 62  toryfile);.int b
09f0: 6c 61 6e 6b 5f 6c 69 6e 65 28 63 68 61 72 2a 20  lank_line(char* 
0a00: 73 74 72 29 3b 0a 63 68 61 72 2a 2a 20 54 63 6c  str);.char** Tcl
0a10: 52 65 61 64 6c 69 6e 65 43 6f 6d 70 6c 65 74 69  ReadlineCompleti
0a20: 6f 6e 28 63 68 61 72 2a 20 74 65 78 74 2c 20 69  on(char* text, i
0a30: 6e 74 20 73 74 61 72 74 2c 20 69 6e 74 20 65 6e  nt start, int en
0a40: 64 29 3b 0a 63 68 61 72 2a 20 54 63 6c 52 65 61  d);.char* TclRea
0a50: 64 6c 69 6e 65 30 67 65 6e 65 72 61 74 6f 72 28  dline0generator(
0a60: 63 68 61 72 2a 20 74 65 78 74 2c 20 69 6e 74 20  char* text, int 
0a70: 73 74 61 74 65 29 3b 0a 63 68 61 72 2a 20 54 63  state);.char* Tc
0a80: 6c 52 65 61 64 6c 69 6e 65 4b 6e 6f 77 6e 43 6f  lReadlineKnownCo
0a90: 6d 6d 61 6e 64 73 28 63 68 61 72 2a 20 74 65 78  mmands(char* tex
0aa0: 74 2c 20 69 6e 74 20 73 74 61 74 65 2c 20 69 6e  t, int state, in
0ab0: 74 20 6d 6f 64 65 29 3b 0a 69 6e 74 20 54 63 6c  t mode);.int Tcl
0ac0: 52 65 61 64 6c 69 6e 65 50 61 72 73 65 28 63 68  ReadlineParse(ch
0ad0: 61 72 2a 2a 20 61 72 67 73 2c 20 69 6e 74 20 6d  ar** args, int m
0ae0: 61 78 61 72 67 73 2c 20 63 68 61 72 2a 20 62 75  axargs, char* bu
0af0: 66 29 3b 0a 0a 65 6e 75 6d 20 7b 20 0a 20 20 20  f);..enum { .   
0b00: 20 4c 49 4e 45 5f 50 45 4e 44 49 4e 47 2c 0a 20   LINE_PENDING,. 
0b10: 20 20 20 4c 49 4e 45 5f 45 4f 46 2c 0a 20 20 20     LINE_EOF,.   
0b20: 20 4c 49 4e 45 5f 43 4f 4d 50 4c 45 54 45 0a 7d   LINE_COMPLETE.}
0b30: 3b 0a 0a 2f 2a 2a 0a 20 2a 20 67 6c 6f 62 61 6c  ;../**. * global
0b40: 20 76 61 72 69 61 62 6c 65 73 0a 20 2a 2f 0a 73   variables. */.s
0b50: 74 61 74 69 63 20 69 6e 74 20 74 63 6c 72 6c 5f  tatic int tclrl_
0b60: 6c 69 6e 65 5f 63 6f 6d 70 6c 65 74 65 20 3d 20  line_complete = 
0b70: 4c 49 4e 45 5f 50 45 4e 44 49 4e 47 3b 0a 73 74  LINE_PENDING;.st
0b80: 61 74 69 63 20 69 6e 74 20 74 63 6c 72 6c 5f 73  atic int tclrl_s
0b90: 74 61 74 65 20 3d 20 54 43 4c 5f 4f 4b 3b 0a 73  tate = TCL_OK;.s
0ba0: 74 61 74 69 63 20 63 68 61 72 2a 20 74 63 6c 72  tatic char* tclr
0bb0: 6c 5f 65 6f 66 5f 73 74 72 69 6e 67 20 3d 20 28  l_eof_string = (
0bc0: 63 68 61 72 2a 29 20 4e 55 4c 4c 3b 0a 73 74 61  char*) NULL;.sta
0bd0: 74 69 63 20 63 68 61 72 2a 20 74 63 6c 72 6c 5f  tic char* tclrl_
0be0: 6c 69 6e 65 20 3d 20 28 63 68 61 72 2a 29 20 4e  line = (char*) N
0bf0: 55 4c 4c 3b 0a 73 74 61 74 69 63 20 63 68 61 72  ULL;.static char
0c00: 2a 20 74 63 6c 72 6c 5f 63 75 73 74 6f 6d 5f 63  * tclrl_custom_c
0c10: 6f 6d 70 6c 65 74 65 72 20 3d 20 28 63 68 61 72  ompleter = (char
0c20: 2a 29 20 4e 55 4c 4c 3b 0a 73 74 61 74 69 63 20  *) NULL;.static 
0c30: 69 6e 74 20 74 63 6c 72 6c 5f 75 73 65 5f 62 75  int tclrl_use_bu
0c40: 69 6c 74 69 6e 5f 63 6f 6d 70 6c 65 74 65 72 20  iltin_completer 
0c50: 3d 20 31 3b 0a 73 74 61 74 69 63 20 69 6e 74 20  = 1;.static int 
0c60: 74 63 6c 72 6c 5f 68 69 73 74 6f 72 79 5f 6c 65  tclrl_history_le
0c70: 6e 67 74 68 20 3d 20 2d 31 3b 0a 54 63 6c 5f 49  ngth = -1;.Tcl_I
0c80: 6e 74 65 72 70 2a 20 74 63 6c 72 6c 5f 69 6e 74  nterp* tclrl_int
0c90: 65 72 70 20 3d 20 28 54 63 6c 5f 49 6e 74 65 72  erp = (Tcl_Inter
0ca0: 70 2a 29 20 4e 55 4c 4c 3b 0a 0a 0a 63 68 61 72  p*) NULL;...char
0cb0: 2a 0a 73 74 72 69 70 6c 65 66 74 28 63 68 61 72  *.stripleft(char
0cc0: 2a 20 69 6e 29 0a 7b 0a 20 20 20 20 63 68 61 72  * in).{.    char
0cd0: 2a 20 70 74 72 20 3d 20 69 6e 3b 0a 20 20 20 20  * ptr = in;.    
0ce0: 77 68 69 6c 65 20 28 2a 70 74 72 20 26 26 20 2a  while (*ptr && *
0cf0: 70 74 72 20 3c 3d 20 27 20 27 29 0a 20 20 20 20  ptr <= ' ').    
0d00: 20 20 20 20 70 74 72 2b 2b 3b 0a 20 20 20 20 69      ptr++;.    i
0d10: 66 20 28 69 6e 20 21 3d 20 70 74 72 29 0a 20 20  f (in != ptr).  
0d20: 20 20 20 20 20 20 6d 65 6d 6d 6f 76 65 28 69 6e        memmove(in
0d30: 2c 20 70 74 72 2c 20 73 74 72 6c 65 6e 28 70 74  , ptr, strlen(pt
0d40: 72 29 20 2b 20 31 29 3b 0a 20 20 20 20 72 65 74  r) + 1);.    ret
0d50: 75 72 6e 20 69 6e 3b 0a 7d 0a 0a 63 68 61 72 2a  urn in;.}..char*
0d60: 0a 73 74 72 69 70 72 69 67 68 74 28 63 68 61 72  .stripright(char
0d70: 2a 20 69 6e 29 0a 7b 0a 20 20 20 20 63 68 61 72  * in).{.    char
0d80: 2a 20 70 74 72 3b 0a 20 20 20 20 66 6f 72 20 28  * ptr;.    for (
0d90: 70 74 72 20 3d 20 73 74 72 63 68 72 28 69 6e 2c  ptr = strchr(in,
0da0: 20 27 5c 30 27 29 20 2d 20 31 3b 20 70 74 72 20   '\0') - 1; ptr 
0db0: 3e 3d 20 69 6e 20 26 26 20 2a 70 74 72 20 3c 3d  >= in && *ptr <=
0dc0: 20 27 20 27 3b 20 70 74 72 2d 2d 29 0a 20 20 20   ' '; ptr--).   
0dd0: 20 20 20 20 20 2a 70 74 72 20 3d 20 27 5c 30 27       *ptr = '\0'
0de0: 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 69 6e 3b  ;.    return in;
0df0: 0a 7d 0a 0a 63 68 61 72 2a 0a 73 74 72 69 70 77  .}..char*.stripw
0e00: 68 69 74 65 28 63 68 61 72 2a 20 69 6e 29 0a 7b  hite(char* in).{
0e10: 0a 20 20 20 20 73 74 72 69 70 6c 65 66 74 28 69  .    stripleft(i
0e20: 6e 29 3b 0a 20 20 20 20 73 74 72 69 70 72 69 67  n);.    striprig
0e30: 68 74 28 69 6e 29 3b 0a 20 20 20 20 72 65 74 75  ht(in);.    retu
0e40: 72 6e 20 69 6e 3b 0a 7d 0a 0a 63 68 61 72 2a 0a  rn in;.}..char*.
0e50: 54 63 6c 52 65 61 64 6c 69 6e 65 51 75 6f 74 65  TclReadlineQuote
0e60: 28 63 68 61 72 2a 20 74 65 78 74 2c 20 63 68 61  (char* text, cha
0e70: 72 2a 20 71 75 6f 74 65 63 68 61 72 73 29 0a 7b  r* quotechars).{
0e80: 0a 20 20 20 20 63 68 61 72 2a 20 70 74 72 3b 0a  .    char* ptr;.
0e90: 20 20 20 20 63 68 61 72 2a 20 72 65 73 75 6c 74      char* result
0ea0: 5f 63 3b 0a 20 20 20 20 69 6e 74 20 69 2c 20 6c  _c;.    int i, l
0eb0: 65 6e 20 3d 20 73 74 72 6c 65 6e 28 71 75 6f 74  en = strlen(quot
0ec0: 65 63 68 61 72 73 29 3b 0a 20 20 20 20 54 63 6c  echars);.    Tcl
0ed0: 5f 44 53 74 72 69 6e 67 20 72 65 73 75 6c 74 3b  _DString result;
0ee0: 0a 0a 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e  ..    Tcl_DStrin
0ef0: 67 49 6e 69 74 28 26 72 65 73 75 6c 74 29 3b 0a  gInit(&result);.
0f00: 20 20 20 20 66 6f 72 20 28 70 74 72 20 3d 20 74      for (ptr = t
0f10: 65 78 74 3b 20 70 74 72 20 26 26 20 2a 70 74 72  ext; ptr && *ptr
0f20: 3b 20 70 74 72 2b 2b 29 20 7b 0a 20 20 20 20 20  ; ptr++) {.     
0f30: 20 20 20 66 6f 72 20 28 69 20 3d 20 30 3b 20 69     for (i = 0; i
0f40: 20 3c 20 6c 65 6e 3b 20 69 2b 2b 29 20 7b 0a 20   < len; i++) {. 
0f50: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 71             if (q
0f60: 75 6f 74 65 63 68 61 72 73 5b 69 5d 20 3d 3d 20  uotechars[i] == 
0f70: 2a 70 74 72 29 20 7b 0a 20 20 20 20 20 20 20 20  *ptr) {.        
0f80: 20 20 20 20 20 20 20 20 54 63 6c 5f 44 53 74 72          Tcl_DStr
0f90: 69 6e 67 41 70 70 65 6e 64 28 26 72 65 73 75 6c  ingAppend(&resul
0fa0: 74 2c 20 22 5c 5c 22 2c 20 31 29 3b 0a 20 20 20  t, "\\", 1);.   
0fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65               bre
0fc0: 61 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ak;.            
0fd0: 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  }.        }.    
0fe0: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 41      Tcl_DStringA
0ff0: 70 70 65 6e 64 28 26 72 65 73 75 6c 74 2c 20 70  ppend(&result, p
1000: 74 72 2c 20 31 29 3b 0a 20 20 20 20 7d 0a 20 20  tr, 1);.    }.  
1010: 20 20 72 65 73 75 6c 74 5f 63 20 3d 20 73 74 72    result_c = str
1020: 64 75 70 28 54 63 6c 5f 44 53 74 72 69 6e 67 56  dup(Tcl_DStringV
1030: 61 6c 75 65 28 26 72 65 73 75 6c 74 29 29 3b 0a  alue(&result));.
1040: 20 20 20 20 72 65 74 75 72 6e 20 72 65 73 75 6c      return resul
1050: 74 5f 63 3b 0a 7d 0a 0a 69 6e 74 0a 54 63 6c 52  t_c;.}..int.TclR
1060: 65 61 64 6c 69 6e 65 43 6d 64 28 0a 20 20 20 20  eadlineCmd(.    
1070: 43 6c 69 65 6e 74 44 61 74 61 20 20 63 6c 69 65  ClientData  clie
1080: 6e 74 44 61 74 61 2c 20 2f 2a 20 4d 61 69 6e 20  ntData, /* Main 
1090: 77 69 6e 64 6f 77 20 61 73 73 6f 63 69 61 74 65  window associate
10a0: 64 20 77 69 74 68 20 69 6e 74 65 72 70 72 65 74  d with interpret
10b0: 65 72 20 20 2a 2f 0a 20 20 20 20 54 63 6c 5f 49  er  */.    Tcl_I
10c0: 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 2c 20 20  nterp* interp,  
10d0: 20 20 20 2f 2a 20 43 75 72 72 65 6e 74 20 69 6e     /* Current in
10e0: 74 65 72 70 72 65 74 65 72 20 20 20 20 20 20 20  terpreter       
10f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a                 *
1100: 2f 0a 20 20 20 20 69 6e 74 20 20 20 20 20 20 20  /.    int       
1110: 20 20 61 72 67 63 2c 20 20 20 20 20 20 20 2f 2a    argc,       /*
1120: 20 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d   Number of argum
1130: 65 6e 74 73 20 20 20 20 20 20 20 20 20 20 20 20  ents            
1140: 20 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20            */.   
1150: 20 63 68 61 72 2a 2a 20 20 20 20 20 20 61 72 67   char**      arg
1160: 76 20 20 20 20 20 20 20 20 2f 2a 20 41 72 67 75  v        /* Argu
1170: 6d 65 6e 74 20 73 74 72 69 6e 67 73 20 20 20 20  ment strings    
1180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1190: 20 20 20 20 20 2a 2f 0a 29 0a 7b 0a 20 20 20 20       */.).{.    
11a0: 69 6e 74 09 09 63 2c 20 6c 65 6e 67 74 68 3b 0a  int..c, length;.
11b0: 20 20 20 20 0a 20 20 20 20 69 66 20 28 61 72 67      .    if (arg
11c0: 63 20 3c 20 32 29 0a 20 20 20 20 20 20 20 20 67  c < 2).        g
11d0: 6f 74 6f 20 42 41 44 5f 43 4f 4d 4d 41 4e 44 3b  oto BAD_COMMAND;
11e0: 0a 0a 20 20 20 20 63 20 3d 20 61 72 67 76 5b 31  ..    c = argv[1
11f0: 5d 5b 30 5d 3b 0a 20 20 20 20 6c 65 6e 67 74 68  ][0];.    length
1200: 20 3d 20 73 74 72 6c 65 6e 28 61 72 67 76 5b 31   = strlen(argv[1
1210: 5d 29 3b 0a 0a 20 20 20 20 69 66 20 28 63 20 3d  ]);..    if (c =
1220: 3d 20 27 72 27 20 20 26 26 20 73 74 72 6e 63 6d  = 'r'  && strncm
1230: 70 28 61 72 67 76 5b 31 5d 2c 20 22 72 65 61 64  p(argv[1], "read
1240: 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29  ", length) == 0)
1250: 20 7b 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20   {.        .    
1260: 20 20 20 20 63 68 61 72 2a 20 65 78 70 61 6e 73      char* expans
1270: 69 6f 6e 20 3d 20 28 63 68 61 72 2a 29 20 4e 55  ion = (char*) NU
1280: 4c 4c 3b 0a 20 20 20 20 20 20 20 20 69 6e 74 20  LL;.        int 
1290: 73 74 61 74 75 73 3b 0a 20 20 20 20 20 20 20 20  status;.        
12a0: 0a 23 69 66 20 31 0a 20 20 20 20 20 20 20 20 74  .#if 1.        t
12b0: 63 6c 72 6c 5f 6c 69 6e 65 5f 63 6f 6d 70 6c 65  clrl_line_comple
12c0: 74 65 20 3d 20 4c 49 4e 45 5f 50 45 4e 44 49 4e  te = LINE_PENDIN
12d0: 47 3b 0a 20 20 20 20 20 20 20 20 74 63 6c 72 6c  G;.        tclrl
12e0: 5f 73 74 61 74 65 20 3d 20 54 43 4c 5f 4f 4b 3b  _state = TCL_OK;
12f0: 0a 20 20 20 20 20 20 20 20 72 6c 5f 63 61 6c 6c  .        rl_call
1300: 62 61 63 6b 5f 68 61 6e 64 6c 65 72 5f 69 6e 73  back_handler_ins
1310: 74 61 6c 6c 28 61 72 67 63 20 3d 3d 20 33 20 3f  tall(argc == 3 ?
1320: 20 61 72 67 76 5b 32 5d 20 3a 20 22 25 22 2c 0a   argv[2] : "%",.
1330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1340: 54 63 6c 52 65 61 64 6c 69 6e 65 4c 69 6e 65 43  TclReadlineLineC
1350: 6f 6d 70 6c 65 74 65 48 61 6e 64 6c 65 72 29 3b  ompleteHandler);
1360: 0a 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 43 72  ..        Tcl_Cr
1370: 65 61 74 65 46 69 6c 65 48 61 6e 64 6c 65 72 28  eateFileHandler(
1380: 30 2c 20 54 43 4c 5f 52 45 41 44 41 42 4c 45 2c  0, TCL_READABLE,
1390: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
13a0: 20 54 63 6c 52 65 61 64 6c 69 6e 65 52 65 61 64   TclReadlineRead
13b0: 48 61 6e 64 6c 65 72 2c 20 28 43 6c 69 65 6e 74  Handler, (Client
13c0: 44 61 74 61 29 20 4e 55 4c 4c 29 3b 0a 20 20 20  Data) NULL);.   
13d0: 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 20       /*.        
13e0: 54 63 6c 5f 43 72 65 61 74 65 46 69 6c 65 48 61  Tcl_CreateFileHa
13f0: 6e 64 6c 65 72 28 31 2c 20 54 43 4c 5f 57 52 49  ndler(1, TCL_WRI
1400: 54 41 42 4c 45 2c 0a 20 20 20 20 20 20 20 20 20  TABLE,.         
1410: 20 20 20 20 20 20 20 54 63 6c 52 65 61 64 6c 69         TclReadli
1420: 6e 65 57 72 69 74 65 48 61 6e 64 6c 65 72 2c 20  neWriteHandler, 
1430: 28 43 6c 69 65 6e 74 44 61 74 61 29 20 4e 55 4c  (ClientData) NUL
1440: 4c 29 3b 0a 20 20 20 20 20 20 20 20 2a 2f 0a 0a  L);.        */..
1450: 20 20 20 20 20 20 20 20 2f 2a 2a 0a 20 20 20 20          /**.    
1460: 20 20 20 20 20 2a 20 4d 61 69 6e 20 4c 6f 6f 70       * Main Loop
1470: 2e 0a 20 20 20 20 20 20 20 20 20 2a 20 58 58 58  ..         * XXX
1480: 20 65 61 63 68 20 6d 6f 64 69 66 69 63 61 74 69   each modificati
1490: 6f 6e 20 6f 66 20 74 68 65 20 67 6c 6f 62 61 6c  on of the global
14a0: 20 76 61 72 69 61 62 6c 65 73 0a 20 20 20 20 20   variables.     
14b0: 20 20 20 20 2a 20 20 20 20 20 77 68 69 63 68 20      *     which 
14c0: 74 65 72 6d 69 6e 61 74 65 73 20 74 68 65 20 6d  terminates the m
14d0: 61 69 6e 20 6c 6f 6f 70 20 6d 75 73 74 20 63 61  ain loop must ca
14e0: 6c 6c 0a 20 20 20 20 20 20 20 20 20 2a 20 20 20  ll.         *   
14f0: 20 20 72 6c 5f 63 61 6c 6c 62 61 63 6b 5f 68 61    rl_callback_ha
1500: 6e 64 6c 65 72 5f 72 65 6d 6f 76 65 28 29 20 74  ndler_remove() t
1510: 6f 20 6c 65 61 76 65 0a 20 20 20 20 20 20 20 20  o leave.        
1520: 20 2a 20 20 20 20 20 72 65 61 64 6c 69 6e 65 20   *     readline 
1530: 69 6e 20 61 20 64 65 66 69 6e 65 64 20 73 74 61  in a defined sta
1540: 74 65 2e 20 20 20 20 20 20 20 20 20 20 58 58 58  te.          XXX
1550: 0a 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20  .         */.   
1560: 20 20 20 20 20 77 68 69 6c 65 20 28 4c 49 4e 45       while (LINE
1570: 5f 50 45 4e 44 49 4e 47 20 3d 3d 20 74 63 6c 72  _PENDING == tclr
1580: 6c 5f 6c 69 6e 65 5f 63 6f 6d 70 6c 65 74 65 0a  l_line_complete.
1590: 20 20 20 20 20 20 20 20 20 20 20 20 26 26 20 54              && T
15a0: 43 4c 5f 4f 4b 20 3d 3d 20 74 63 6c 72 6c 5f 73  CL_OK == tclrl_s
15b0: 74 61 74 65 20 26 26 20 21 72 6c 5f 64 6f 6e 65  tate && !rl_done
15c0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) {.            
15d0: 54 63 6c 5f 44 6f 4f 6e 65 45 76 65 6e 74 28 54  Tcl_DoOneEvent(T
15e0: 43 4c 5f 41 4c 4c 5f 45 56 45 4e 54 53 29 3b 0a  CL_ALL_EVENTS);.
15f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 0a 20              /*. 
1600: 20 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 44             Tcl_D
1610: 6f 4f 6e 65 45 76 65 6e 74 28 30 29 3b 0a 20 20  oOneEvent(0);.  
1620: 20 20 20 20 20 20 20 20 20 20 66 70 72 69 6e 74            fprint
1630: 66 20 28 73 74 64 65 72 72 2c 20 22 28 54 63 6c  f (stderr, "(Tcl
1640: 52 65 61 64 6c 69 6e 65 43 6d 64 29 20 5c 6e 22  ReadlineCmd) \n"
1650: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72  );.            r
1660: 6c 5f 69 6e 68 69 62 69 74 5f 63 6f 6d 70 6c 65  l_inhibit_comple
1670: 74 69 6f 6e 20 3d 20 30 3b 0a 20 20 20 20 20 20  tion = 0;.      
1680: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 20        */.       
1690: 20 7d 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 44   }.        Tcl_D
16a0: 65 6c 65 74 65 46 69 6c 65 48 61 6e 64 6c 65 72  eleteFileHandler
16b0: 28 30 29 3b 0a 0a 20 20 20 20 20 20 20 20 69 66  (0);..        if
16c0: 20 28 54 43 4c 5f 4f 4b 20 21 3d 20 74 63 6c 72   (TCL_OK != tclr
16d0: 6c 5f 73 74 61 74 65 29 0a 20 20 20 20 20 20 20  l_state).       
16e0: 20 20 20 20 20 72 65 74 75 72 6e 20 74 63 6c 72       return tclr
16f0: 6c 5f 73 74 61 74 65 3b 20 2f 2a 20 21 21 20 2a  l_state; /* !! *
1700: 2f 0a 0a 09 69 66 20 28 28 4c 49 4e 45 5f 45 4f  /...if ((LINE_EO
1710: 46 20 3d 3d 20 74 63 6c 72 6c 5f 6c 69 6e 65 5f  F == tclrl_line_
1720: 63 6f 6d 70 6c 65 74 65 29 20 26 26 20 74 63 6c  complete) && tcl
1730: 72 6c 5f 65 6f 66 5f 73 74 72 69 6e 67 29 20 7b  rl_eof_string) {
1740: 0a 09 20 20 20 20 54 63 6c 5f 45 76 61 6c 28 69  ..    Tcl_Eval(i
1750: 6e 74 65 72 70 2c 20 74 63 6c 72 6c 5f 65 6f 66  nterp, tclrl_eof
1760: 5f 73 74 72 69 6e 67 29 3b 0a 20 20 20 20 20 20  _string);.      
1770: 20 20 20 20 20 20 72 65 74 75 72 6e 20 74 63 6c        return tcl
1780: 72 6c 5f 73 74 61 74 65 3b 0a 09 7d 0a 23 65 6c  rl_state;..}.#el
1790: 73 65 0a 20 20 20 20 20 20 20 20 72 6c 5f 65 76  se.        rl_ev
17a0: 65 6e 74 5f 68 6f 6f 6b 20 3d 20 54 63 6c 52 65  ent_hook = TclRe
17b0: 61 64 6c 69 6e 65 45 76 65 6e 74 48 6f 6f 6b 3b  adlineEventHook;
17c0: 0a 20 20 20 20 20 20 20 20 74 63 6c 72 6c 5f 6c  .        tclrl_l
17d0: 69 6e 65 20 3d 20 72 65 61 64 6c 69 6e 65 28 61  ine = readline(a
17e0: 72 67 63 20 3d 3d 20 33 20 3f 20 61 72 67 76 5b  rgc == 3 ? argv[
17f0: 32 5d 20 3a 20 22 25 22 29 3b 0a 23 65 6e 64 69  2] : "%");.#endi
1800: 66 0a 0a 20 20 20 20 20 20 20 20 73 74 61 74 75  f..        statu
1810: 73 20 3d 20 68 69 73 74 6f 72 79 5f 65 78 70 61  s = history_expa
1820: 6e 64 28 74 63 6c 72 6c 5f 6c 69 6e 65 2c 20 26  nd(tclrl_line, &
1830: 65 78 70 61 6e 73 69 6f 6e 29 3b 0a 20 20 20 20  expansion);.    
1840: 20 20 20 20 69 66 20 28 73 74 61 74 75 73 20 3e      if (status >
1850: 3d 20 31 29 20 7b 0a 23 69 66 20 30 0a 20 20 20  = 1) {.#if 0.   
1860: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 43 68 61           Tcl_Cha
1870: 6e 6e 65 6c 20 63 68 61 6e 6e 65 6c 20 3d 20 54  nnel channel = T
1880: 63 6c 5f 4d 61 6b 65 46 69 6c 65 43 68 61 6e 6e  cl_MakeFileChann
1890: 65 6c 28 73 74 64 6f 75 74 2c 20 54 43 4c 5f 57  el(stdout, TCL_W
18a0: 52 49 54 41 42 4c 45 29 3b 0a 20 20 20 20 20 20  RITABLE);.      
18b0: 20 20 20 20 20 20 2f 2a 20 54 63 6c 5f 52 65 67        /* Tcl_Reg
18c0: 69 73 74 65 72 43 68 61 6e 6e 65 6c 28 69 6e 74  isterChannel(int
18d0: 65 72 70 2c 20 63 68 61 6e 6e 65 6c 29 3b 20 2a  erp, channel); *
18e0: 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 76  /.            (v
18f0: 6f 69 64 29 20 54 63 6c 5f 57 72 69 74 65 43 68  oid) Tcl_WriteCh
1900: 61 72 73 28 63 68 61 6e 6e 65 6c 2c 20 65 78 70  ars(channel, exp
1910: 61 6e 73 69 6f 6e 2c 20 2d 31 29 3b 0a 20 20 20  ansion, -1);.   
1920: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 46 6c 75           Tcl_Flu
1930: 73 68 28 63 68 61 6e 6e 65 6c 29 3b 0a 20 20 20  sh(channel);.   
1940: 20 20 20 20 20 20 20 20 20 54 63 6c 5f 43 6c 6f           Tcl_Clo
1950: 73 65 28 69 6e 74 65 72 70 2c 20 63 68 61 6e 6e  se(interp, chann
1960: 65 6c 29 3b 0a 23 65 6c 73 65 0a 20 20 20 20 20  el);.#else.     
1970: 20 20 20 20 20 20 20 70 72 69 6e 74 66 28 22 25         printf("%
1980: 73 5c 6e 22 2c 20 65 78 70 61 6e 73 69 6f 6e 29  s\n", expansion)
1990: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20  ;.#endif.       
19a0: 20 7d 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20   }.        else 
19b0: 69 66 20 28 73 74 61 74 75 73 20 3d 3d 20 2d 31  if (status == -1
19c0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) {.            
19d0: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
19e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
19f0: 20 28 69 6e 74 65 72 70 2c 20 22 65 72 72 6f 72   (interp, "error
1a00: 20 69 6e 20 68 69 73 74 6f 72 79 20 65 78 70 61   in history expa
1a10: 6e 73 69 6f 6e 5c 6e 22 2c 20 28 63 68 61 72 2a  nsion\n", (char*
1a20: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 20 20 20  ) NULL);.       
1a30: 20 20 20 20 20 72 65 74 75 72 6e 20 74 63 6c 72       return tclr
1a40: 6c 5f 73 74 61 74 65 3b 0a 20 20 20 20 20 20 20  l_state;.       
1a50: 20 7d 0a 20 20 20 20 20 20 20 20 2f 2a 2a 0a 20   }.        /**. 
1a60: 20 20 20 20 20 20 20 20 2a 20 54 4f 44 4f 3a 20          * TODO: 
1a70: 73 74 61 74 75 73 20 3d 3d 20 32 20 2e 2e 2e 0a  status == 2 ....
1a80: 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20           */.    
1a90: 20 20 20 20 0a 20 20 20 20 20 20 20 20 69 66 20      .        if 
1aa0: 28 65 78 70 61 6e 73 69 6f 6e 20 26 26 20 2a 65  (expansion && *e
1ab0: 78 70 61 6e 73 69 6f 6e 29 0a 20 20 20 20 20 20  xpansion).      
1ac0: 20 20 20 20 20 20 61 64 64 5f 68 69 73 74 6f 72        add_histor
1ad0: 79 28 65 78 70 61 6e 73 69 6f 6e 29 3b 0a 0a 20  y(expansion);.. 
1ae0: 20 20 20 20 20 20 20 54 63 6c 5f 53 65 74 52 65         Tcl_SetRe
1af0: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 65 78 70  sult(interp, exp
1b00: 61 6e 73 69 6f 6e 2c 20 54 43 4c 5f 56 4f 4c 41  ansion, TCL_VOLA
1b10: 54 49 4c 45 29 3b 0a 0a 20 20 20 20 20 20 20 20  TILE);..        
1b20: 46 52 45 45 28 74 63 6c 72 6c 5f 6c 69 6e 65 29  FREE(tclrl_line)
1b30: 3b 0a 20 20 20 20 20 20 20 20 46 52 45 45 28 65  ;.        FREE(e
1b40: 78 70 61 6e 73 69 6f 6e 29 3b 0a 20 20 20 20 20  xpansion);.     
1b50: 20 20 20 72 65 74 75 72 6e 20 74 63 6c 72 6c 5f     return tclrl_
1b60: 73 74 61 74 65 3b 0a 20 20 20 20 7d 20 65 6c 73  state;.    } els
1b70: 65 20 69 66 20 28 63 20 3d 3d 20 27 69 27 20 20  e if (c == 'i'  
1b80: 26 26 20 73 74 72 6e 63 6d 70 28 61 72 67 76 5b  && strncmp(argv[
1b90: 31 5d 2c 20 22 69 6e 69 74 69 61 6c 69 7a 65 22  1], "initialize"
1ba0: 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30 29 20  , length) == 0) 
1bb0: 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 33 20  {.        if (3 
1bc0: 21 3d 20 61 72 67 63 29 0a 20 20 20 20 20 20 20  != argc).       
1bd0: 20 20 20 20 20 67 6f 74 6f 20 42 41 44 5f 43 4f       goto BAD_CO
1be0: 4d 4d 41 4e 44 3b 0a 20 20 20 20 20 20 20 20 65  MMAND;.        e
1bf0: 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20  lse.            
1c00: 72 65 74 75 72 6e 20 54 63 6c 52 65 61 64 6c 69  return TclReadli
1c10: 6e 65 49 6e 69 74 69 61 6c 69 7a 65 28 69 6e 74  neInitialize(int
1c20: 65 72 70 2c 20 61 72 67 76 5b 32 5d 29 3b 0a 20  erp, argv[2]);. 
1c30: 20 20 20 7d 20 65 6c 73 65 20 69 66 20 28 63 20     } else if (c 
1c40: 3d 3d 20 27 77 27 20 20 26 26 20 73 74 72 6e 63  == 'w'  && strnc
1c50: 6d 70 28 61 72 67 76 5b 31 5d 2c 20 22 77 72 69  mp(argv[1], "wri
1c60: 74 65 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20  te", length) == 
1c70: 30 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20  0) {.        if 
1c80: 28 33 20 21 3d 20 61 72 67 63 29 20 7b 0a 20 20  (3 != argc) {.  
1c90: 20 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 42            goto B
1ca0: 41 44 5f 43 4f 4d 4d 41 4e 44 3b 0a 20 20 20 20  AD_COMMAND;.    
1cb0: 20 20 20 20 7d 20 20 65 6c 73 65 20 69 66 20 28      }  else if (
1cc0: 77 72 69 74 65 5f 68 69 73 74 6f 72 79 28 61 72  write_history(ar
1cd0: 67 76 5b 32 5d 29 29 20 7b 0a 20 20 20 20 20 20  gv[2])) {.      
1ce0: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64        Tcl_Append
1cf0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
1d00: 75 6e 61 62 6c 65 20 74 6f 20 77 72 69 74 65 20  unable to write 
1d10: 68 69 73 74 6f 72 79 20 74 6f 20 60 22 2c 0a 20  history to `",. 
1d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d30: 20 20 20 61 72 67 76 5b 32 5d 2c 20 22 27 5c 6e     argv[2], "'\n
1d40: 22 2c 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29  ", (char*) NULL)
1d50: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65  ;.            re
1d60: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
1d70: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
1d80: 20 20 69 66 20 28 74 63 6c 72 6c 5f 68 69 73 74    if (tclrl_hist
1d90: 6f 72 79 5f 6c 65 6e 67 74 68 20 3e 3d 20 30 29  ory_length >= 0)
1da0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 68   {.            h
1db0: 69 73 74 6f 72 79 5f 74 72 75 6e 63 61 74 65 5f  istory_truncate_
1dc0: 66 69 6c 65 28 61 72 67 76 5b 32 5d 2c 20 74 63  file(argv[2], tc
1dd0: 6c 72 6c 5f 68 69 73 74 6f 72 79 5f 6c 65 6e 67  lrl_history_leng
1de0: 74 68 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  th);.        }. 
1df0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 54 43         return TC
1e00: 4c 5f 4f 4b 3b 0a 20 20 20 20 7d 20 65 6c 73 65  L_OK;.    } else
1e10: 20 69 66 20 28 63 20 3d 3d 20 27 61 27 20 20 26   if (c == 'a'  &
1e20: 26 20 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31  & strncmp(argv[1
1e30: 5d 2c 20 22 61 64 64 22 2c 20 6c 65 6e 67 74 68  ], "add", length
1e40: 29 20 3d 3d 20 30 29 20 7b 0a 20 20 20 20 20 20  ) == 0) {.      
1e50: 20 20 69 66 20 28 33 20 21 3d 20 61 72 67 63 29    if (3 != argc)
1e60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f 74  .            got
1e70: 6f 20 42 41 44 5f 43 4f 4d 4d 41 4e 44 3b 0a 20  o BAD_COMMAND;. 
1e80: 20 20 20 20 20 20 20 65 6c 73 65 20 69 66 20 28         else if (
1e90: 54 63 6c 52 65 61 64 6c 69 6e 65 4b 6e 6f 77 6e  TclReadlineKnown
1ea0: 43 6f 6d 6d 61 6e 64 73 28 61 72 67 76 5b 32 5d  Commands(argv[2]
1eb0: 2c 20 28 69 6e 74 29 20 30 2c 20 5f 43 4d 44 5f  , (int) 0, _CMD_
1ec0: 53 45 54 29 29 0a 20 20 20 20 20 20 20 20 20 20  SET)).          
1ed0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
1ee0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 75 6e 61 62  lt(interp, "unab
1ef0: 6c 65 20 74 6f 20 61 64 64 20 63 6f 6d 6d 61 6e  le to add comman
1f00: 64 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20 20  d \"",.         
1f10: 20 20 20 20 20 20 20 20 20 20 20 61 72 67 76 5b             argv[
1f20: 32 5d 2c 20 22 5c 22 5c 6e 22 2c 20 28 63 68 61  2], "\"\n", (cha
1f30: 72 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d  r*) NULL);.    }
1f40: 20 65 6c 73 65 20 69 66 20 28 63 20 3d 3d 20 27   else if (c == '
1f50: 63 27 20 20 26 26 20 73 74 72 6e 63 6d 70 28 61  c'  && strncmp(a
1f60: 72 67 76 5b 31 5d 2c 20 22 63 6f 6d 70 6c 65 74  rgv[1], "complet
1f70: 65 22 2c 20 6c 65 6e 67 74 68 29 20 3d 3d 20 30  e", length) == 0
1f80: 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28  ) {.        if (
1f90: 33 20 21 3d 20 61 72 67 63 29 0a 20 20 20 20 20  3 != argc).     
1fa0: 20 20 20 20 20 20 20 67 6f 74 6f 20 42 41 44 5f         goto BAD_
1fb0: 43 4f 4d 4d 41 4e 44 3b 0a 20 20 20 20 20 20 20  COMMAND;.       
1fc0: 20 65 6c 73 65 20 69 66 20 28 54 63 6c 5f 43 6f   else if (Tcl_Co
1fd0: 6d 6d 61 6e 64 43 6f 6d 70 6c 65 74 65 28 61 72  mmandComplete(ar
1fe0: 67 76 5b 32 5d 29 29 0a 20 20 20 20 20 20 20 20  gv[2])).        
1ff0: 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65      Tcl_AppendRe
2000: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 31 22  sult(interp, "1"
2010: 2c 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c 29 3b  , (char*) NULL);
2020: 0a 20 20 20 20 20 20 20 20 65 6c 73 65 0a 20 20  .        else.  
2030: 20 20 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70            Tcl_Ap
2040: 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72  pendResult(inter
2050: 70 2c 20 22 30 22 2c 20 28 63 68 61 72 2a 29 20  p, "0", (char*) 
2060: 4e 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73  NULL);.    } els
2070: 65 20 69 66 20 28 63 20 3d 3d 20 27 63 27 20 20  e if (c == 'c'  
2080: 26 26 20 73 74 72 6e 63 6d 70 28 61 72 67 76 5b  && strncmp(argv[
2090: 31 5d 2c 20 22 63 75 73 74 6f 6d 63 6f 6d 70 6c  1], "customcompl
20a0: 65 74 65 72 22 2c 20 6c 65 6e 67 74 68 29 20 3d  eter", length) =
20b0: 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 20 20 69  = 0) {.        i
20c0: 66 20 28 33 20 21 3d 20 61 72 67 63 20 26 26 20  f (3 != argc && 
20d0: 32 20 21 3d 20 61 72 67 63 29 0a 20 20 20 20 20  2 != argc).     
20e0: 20 20 20 20 20 20 20 67 6f 74 6f 20 42 41 44 5f         goto BAD_
20f0: 43 4f 4d 4d 41 4e 44 3b 0a 20 20 20 20 20 20 20  COMMAND;.       
2100: 20 69 66 20 28 33 20 3d 3d 20 61 72 67 63 29 20   if (3 == argc) 
2110: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  {.            if
2120: 20 28 74 63 6c 72 6c 5f 63 75 73 74 6f 6d 5f 63   (tclrl_custom_c
2130: 6f 6d 70 6c 65 74 65 72 29 0a 20 20 20 20 20 20  ompleter).      
2140: 20 20 20 20 20 20 20 20 20 20 46 52 45 45 28 74            FREE(t
2150: 63 6c 72 6c 5f 63 75 73 74 6f 6d 5f 63 6f 6d 70  clrl_custom_comp
2160: 6c 65 74 65 72 29 3b 0a 20 20 20 20 20 20 20 20  leter);.        
2170: 20 20 20 20 69 66 20 28 21 62 6c 61 6e 6b 5f 6c      if (!blank_l
2180: 69 6e 65 28 61 72 67 76 5b 32 5d 29 29 0a 20 20  ine(argv[2])).  
2190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 63                tc
21a0: 6c 72 6c 5f 63 75 73 74 6f 6d 5f 63 6f 6d 70 6c  lrl_custom_compl
21b0: 65 74 65 72 20 3d 20 73 74 72 69 70 77 68 69 74  eter = stripwhit
21c0: 65 28 73 74 72 64 75 70 28 61 72 67 76 5b 32 5d  e(strdup(argv[2]
21d0: 29 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  ));.        }.  
21e0: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64        Tcl_Append
21f0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 74  Result(interp, t
2200: 63 6c 72 6c 5f 63 75 73 74 6f 6d 5f 63 6f 6d 70  clrl_custom_comp
2210: 6c 65 74 65 72 2c 20 28 63 68 61 72 2a 29 20 4e  leter, (char*) N
2220: 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65  ULL);.    } else
2230: 20 69 66 20 28 63 20 3d 3d 20 27 62 27 20 20 26   if (c == 'b'  &
2240: 26 20 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31  & strncmp(argv[1
2250: 5d 2c 20 22 62 75 69 6c 74 69 6e 63 6f 6d 70 6c  ], "builtincompl
2260: 65 74 65 72 22 2c 20 6c 65 6e 67 74 68 29 20 3d  eter", length) =
2270: 3d 20 30 29 20 7b 0a 20 20 20 20 20 20 20 20 69  = 0) {.        i
2280: 6e 74 20 62 6f 6f 6c 20 3d 20 74 63 6c 72 6c 5f  nt bool = tclrl_
2290: 75 73 65 5f 62 75 69 6c 74 69 6e 5f 63 6f 6d 70  use_builtin_comp
22a0: 6c 65 74 65 72 3b 0a 20 20 20 20 20 20 20 20 69  leter;.        i
22b0: 66 20 28 33 20 21 3d 20 61 72 67 63 20 26 26 20  f (3 != argc && 
22c0: 32 20 21 3d 20 61 72 67 63 29 0a 20 20 20 20 20  2 != argc).     
22d0: 20 20 20 20 20 20 20 67 6f 74 6f 20 42 41 44 5f         goto BAD_
22e0: 43 4f 4d 4d 41 4e 44 3b 0a 20 20 20 20 20 20 20  COMMAND;.       
22f0: 20 69 66 20 28 33 20 3d 3d 20 61 72 67 63 29 20   if (3 == argc) 
2300: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  {.            if
2310: 20 28 54 43 4c 5f 4f 4b 20 21 3d 20 54 63 6c 5f   (TCL_OK != Tcl_
2320: 47 65 74 42 6f 6f 6c 65 61 6e 28 69 6e 74 65 72  GetBoolean(inter
2330: 70 2c 20 61 72 67 76 5b 32 5d 2c 20 26 62 6f 6f  p, argv[2], &boo
2340: 6c 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  l)) {.          
2350: 20 20 20 20 20 20 54 63 6c 5f 41 70 70 65 6e 64        Tcl_Append
2360: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 0a 20  Result(interp,. 
2370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2380: 20 20 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73     "wrong # args
2390: 3a 20 73 68 6f 75 6c 64 20 62 65 20 61 20 62 6f  : should be a bo
23a0: 6f 6c 65 61 6e 20 76 61 6c 75 65 2e 22 2c 20 28  olean value.", (
23b0: 63 68 61 72 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20  char*) NULL);.  
23c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
23d0: 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a  turn TCL_ERROR;.
23e0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c              } el
23f0: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  se {.           
2400: 20 20 20 20 20 74 63 6c 72 6c 5f 75 73 65 5f 62       tclrl_use_b
2410: 75 69 6c 74 69 6e 5f 63 6f 6d 70 6c 65 74 65 72  uiltin_completer
2420: 20 3d 20 62 6f 6f 6c 3b 0a 20 20 20 20 20 20 20   = bool;.       
2430: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
2440: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41 70 70  .        Tcl_App
2450: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
2460: 2c 20 74 63 6c 72 6c 5f 75 73 65 5f 62 75 69 6c  , tclrl_use_buil
2470: 74 69 6e 5f 63 6f 6d 70 6c 65 74 65 72 20 3f 20  tin_completer ? 
2480: 22 31 22 20 3a 20 22 30 22 2c 0a 20 20 20 20 20  "1" : "0",.     
2490: 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 20 4e         (char*) N
24a0: 55 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65  ULL);.    } else
24b0: 20 69 66 20 28 63 20 3d 3d 20 27 65 27 20 20 26   if (c == 'e'  &
24c0: 26 20 73 74 72 6e 63 6d 70 28 61 72 67 76 5b 31  & strncmp(argv[1
24d0: 5d 2c 20 22 65 6f 66 63 68 61 72 22 2c 20 6c 65  ], "eofchar", le
24e0: 6e 67 74 68 29 20 3d 3d 20 30 29 20 7b 0a 20 20  ngth) == 0) {.  
24f0: 20 20 20 20 20 20 69 66 20 28 33 20 21 3d 20 61        if (3 != a
2500: 72 67 63 20 26 26 20 32 20 21 3d 20 61 72 67 63  rgc && 2 != argc
2510: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 67 6f  ).            go
2520: 74 6f 20 42 41 44 5f 43 4f 4d 4d 41 4e 44 3b 0a  to BAD_COMMAND;.
2530: 20 20 20 20 20 20 20 20 69 66 20 28 33 20 3d 3d          if (3 ==
2540: 20 61 72 67 63 29 20 7b 0a 20 20 20 20 20 20 20   argc) {.       
2550: 20 20 20 20 20 69 66 20 28 74 63 6c 72 6c 5f 65       if (tclrl_e
2560: 6f 66 5f 73 74 72 69 6e 67 29 0a 20 20 20 20 20  of_string).     
2570: 20 20 20 20 20 20 20 20 20 20 20 46 52 45 45 28             FREE(
2580: 74 63 6c 72 6c 5f 65 6f 66 5f 73 74 72 69 6e 67  tclrl_eof_string
2590: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  );.            i
25a0: 66 20 28 21 62 6c 61 6e 6b 5f 6c 69 6e 65 28 61  f (!blank_line(a
25b0: 72 67 76 5b 32 5d 29 29 0a 20 20 20 20 20 20 20  rgv[2])).       
25c0: 20 20 20 20 20 20 20 20 20 74 63 6c 72 6c 5f 65           tclrl_e
25d0: 6f 66 5f 73 74 72 69 6e 67 20 3d 20 73 74 72 69  of_string = stri
25e0: 70 77 68 69 74 65 28 73 74 72 64 75 70 28 61 72  pwhite(strdup(ar
25f0: 67 76 5b 32 5d 29 29 3b 0a 20 20 20 20 20 20 20  gv[2]));.       
2600: 20 7d 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 41   }.        Tcl_A
2610: 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65  ppendResult(inte
2620: 72 70 2c 20 74 63 6c 72 6c 5f 65 6f 66 5f 73 74  rp, tclrl_eof_st
2630: 72 69 6e 67 2c 20 28 63 68 61 72 2a 29 20 4e 55  ring, (char*) NU
2640: 4c 4c 29 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20  LL);.    } else 
2650: 7b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 42  {.        goto B
2660: 41 44 5f 43 4f 4d 4d 41 4e 44 3b 0a 20 20 20 20  AD_COMMAND;.    
2670: 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 54 43  }..    return TC
2680: 4c 5f 4f 4b 3b 0a 0a 42 41 44 5f 43 4f 4d 4d 41  L_OK;..BAD_COMMA
2690: 4e 44 3a 0a 20 20 20 20 54 63 6c 5f 41 70 70 65  ND:.    Tcl_Appe
26a0: 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  ndResult(interp,
26b0: 0a 20 20 20 20 20 20 20 20 22 77 72 6f 6e 67 20  .        "wrong 
26c0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
26d0: 65 20 5c 22 72 65 61 64 6c 69 6e 65 20 6f 70 74  e \"readline opt
26e0: 69 6f 6e 20 3f 61 72 67 20 2e 2e 2e 3f 5c 22 22  ion ?arg ...?\""
26f0: 2c 0a 20 20 20 20 20 20 20 20 28 63 68 61 72 2a  ,.        (char*
2700: 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20 72 65 74  ) NULL);.    ret
2710: 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 0a  urn TCL_ERROR;..
2720: 7d 0a 0a 69 6e 74 20 54 63 6c 52 65 61 64 6c 69  }..int TclReadli
2730: 6e 65 45 76 65 6e 74 48 6f 6f 6b 28 76 6f 69 64  neEventHook(void
2740: 29 0a 7b 0a 20 20 20 20 54 63 6c 5f 44 6f 4f 6e  ).{.    Tcl_DoOn
2750: 65 45 76 65 6e 74 28 54 43 4c 5f 41 4c 4c 5f 45  eEvent(TCL_ALL_E
2760: 56 45 4e 54 53 20 7c 20 54 43 4c 5f 44 4f 4e 54  VENTS | TCL_DONT
2770: 5f 57 41 49 54 29 3b 0a 20 20 20 20 2f 2a 0a 20  _WAIT);.    /*. 
2780: 20 20 20 20 20 20 20 54 43 4c 5f 44 4f 4e 54 5f         TCL_DONT_
2790: 57 41 49 54 0a 20 20 20 20 20 20 20 20 54 43 4c  WAIT.        TCL
27a0: 5f 57 49 4e 44 4f 57 5f 45 56 45 4e 54 53 0a 20  _WINDOW_EVENTS. 
27b0: 20 20 20 20 20 20 20 54 43 4c 5f 46 49 4c 45 5f         TCL_FILE_
27c0: 45 56 45 4e 54 53 0a 20 20 20 20 20 20 20 20 54  EVENTS.        T
27d0: 43 4c 5f 54 49 4d 45 52 5f 45 56 45 4e 54 53 0a  CL_TIMER_EVENTS.
27e0: 20 20 20 20 20 20 20 20 54 43 4c 5f 49 44 4c 45          TCL_IDLE
27f0: 5f 45 56 45 4e 54 53 0a 20 20 20 20 20 20 20 20  _EVENTS.        
2800: 54 43 4c 5f 41 4c 4c 5f 45 56 45 4e 54 53 0a 20  TCL_ALL_EVENTS. 
2810: 20 20 20 2a 2f 0a 20 20 20 20 72 65 74 75 72 6e     */.    return
2820: 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 76 6f 69 64 0a   TCL_OK;.}.void.
2830: 54 63 6c 52 65 61 64 6c 69 6e 65 52 65 61 64 48  TclReadlineReadH
2840: 61 6e 64 6c 65 72 28 43 6c 69 65 6e 74 44 61 74  andler(ClientDat
2850: 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20 69 6e  a clientData, in
2860: 74 20 6d 61 73 6b 29 0a 7b 0a 23 69 66 20 30 0a  t mask).{.#if 0.
2870: 20 20 20 20 66 70 72 69 6e 74 66 28 73 74 64 65      fprintf(stde
2880: 72 72 2c 20 22 28 54 63 6c 52 65 61 64 6c 69 6e  rr, "(TclReadlin
2890: 65 52 65 61 64 48 61 6e 64 6c 65 72 29 20 6d 61  eReadHandler) ma
28a0: 73 6b 20 3d 20 25 64 5c 6e 22 2c 20 20 6d 61 73  sk = %d\n",  mas
28b0: 6b 29 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 69  k);.#endif.    i
28c0: 66 20 28 6d 61 73 6b 20 26 20 54 43 4c 5f 52 45  f (mask & TCL_RE
28d0: 41 44 41 42 4c 45 29 20 7b 0a 20 20 20 20 20 20  ADABLE) {.      
28e0: 20 20 2f 2a 0a 20 20 20 20 20 20 20 20 66 70 72    /*.        fpr
28f0: 69 6e 74 66 28 73 74 64 65 72 72 2c 20 22 28 54  intf(stderr, "(T
2900: 63 6c 52 65 61 64 6c 69 6e 65 52 65 61 64 48 61  clReadlineReadHa
2910: 6e 64 6c 65 72 29 20 6d 61 73 6b 20 3d 20 72 65  ndler) mask = re
2920: 61 64 61 62 6c 65 5c 6e 22 29 3b 0a 20 20 20 20  adable\n");.    
2930: 20 20 20 20 72 6c 5f 65 76 65 6e 74 5f 68 6f 6f      rl_event_hoo
2940: 6b 20 3d 20 54 63 6c 52 65 61 64 6c 69 6e 65 45  k = TclReadlineE
2950: 76 65 6e 74 48 6f 6f 6b 3b 0a 20 20 20 20 20 20  ventHook;.      
2960: 20 20 77 68 69 6c 65 20 28 21 72 6c 5f 64 6f 6e    while (!rl_don
2970: 65 29 20 7b 0a 20 20 20 20 20 20 20 20 2a 2f 0a  e) {.        */.
2980: 20 20 20 20 20 20 20 20 20 20 20 20 72 6c 5f 63              rl_c
2990: 61 6c 6c 62 61 63 6b 5f 72 65 61 64 5f 63 68 61  allback_read_cha
29a0: 72 28 29 3b 0a 20 20 20 20 20 20 20 20 2f 2a 0a  r();.        /*.
29b0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
29c0: 20 20 66 66 6c 75 73 68 28 73 74 64 69 6e 29 3b    fflush(stdin);
29d0: 0a 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20  .        */.    
29e0: 7d 0a 7d 0a 0a 76 6f 69 64 0a 54 63 6c 52 65 61  }.}..void.TclRea
29f0: 64 6c 69 6e 65 57 72 69 74 65 48 61 6e 64 6c 65  dlineWriteHandle
2a00: 72 28 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69  r(ClientData cli
2a10: 65 6e 74 44 61 74 61 2c 20 69 6e 74 20 6d 61 73  entData, int mas
2a20: 6b 29 0a 7b 0a 20 20 20 20 69 66 20 28 6d 61 73  k).{.    if (mas
2a30: 6b 20 26 20 54 43 4c 5f 57 52 49 54 41 42 4c 45  k & TCL_WRITABLE
2a40: 29 20 7b 0a 20 20 20 20 20 20 20 20 2f 2a 0a 20  ) {.        /*. 
2a50: 20 20 20 20 20 20 20 66 70 72 69 6e 74 66 28 73         fprintf(s
2a60: 74 64 65 72 72 2c 20 22 28 54 63 6c 52 65 61 64  tderr, "(TclRead
2a70: 6c 69 6e 65 52 65 61 64 48 61 6e 64 6c 65 72 29  lineReadHandler)
2a80: 20 6d 61 73 6b 20 3d 20 77 72 69 74 61 62 6c 65   mask = writable
2a90: 5c 6e 22 29 3b 0a 20 20 20 20 20 20 20 20 2a 2f  \n");.        */
2aa0: 0a 20 20 20 20 20 20 20 20 66 66 6c 75 73 68 28  .        fflush(
2ab0: 73 74 64 6f 75 74 29 3b 0a 20 20 20 20 20 20 20  stdout);.       
2ac0: 20 72 6c 5f 72 65 64 69 73 70 6c 61 79 28 29 3b   rl_redisplay();
2ad0: 0a 20 20 20 20 7d 0a 7d 0a 0a 76 6f 69 64 0a 54  .    }.}..void.T
2ae0: 63 6c 52 65 61 64 6c 69 6e 65 4c 69 6e 65 43 6f  clReadlineLineCo
2af0: 6d 70 6c 65 74 65 48 61 6e 64 6c 65 72 28 63 68  mpleteHandler(ch
2b00: 61 72 2a 20 70 74 72 29 0a 7b 0a 23 69 66 20 31  ar* ptr).{.#if 1
2b10: 0a 20 20 20 20 69 66 20 28 21 70 74 72 29 20 7b  .    if (!ptr) {
2b20: 20 2f 2a 20 3c 63 2d 64 3e 20 2a 2f 0a 20 20 20   /* <c-d> */.   
2b30: 20 20 20 20 20 74 63 6c 72 6c 5f 6c 69 6e 65 5f       tclrl_line_
2b40: 63 6f 6d 70 6c 65 74 65 20 3d 20 4c 49 4e 45 5f  complete = LINE_
2b50: 45 4f 46 3b 0a 20 20 20 20 20 20 20 20 72 6c 5f  EOF;.        rl_
2b60: 63 61 6c 6c 62 61 63 6b 5f 68 61 6e 64 6c 65 72  callback_handler
2b70: 5f 72 65 6d 6f 76 65 28 29 3b 0a 20 20 20 20 7d  _remove();.    }
2b80: 20 65 6c 73 65 20 69 66 20 28 2a 70 74 72 29 20   else if (*ptr) 
2b90: 7b 0a 20 20 20 20 20 20 20 20 74 63 6c 72 6c 5f  {.        tclrl_
2ba0: 6c 69 6e 65 5f 63 6f 6d 70 6c 65 74 65 20 3d 20  line_complete = 
2bb0: 4c 49 4e 45 5f 43 4f 4d 50 4c 45 54 45 3b 0a 20  LINE_COMPLETE;. 
2bc0: 20 20 20 20 20 20 20 72 6c 5f 63 61 6c 6c 62 61         rl_callba
2bd0: 63 6b 5f 68 61 6e 64 6c 65 72 5f 72 65 6d 6f 76  ck_handler_remov
2be0: 65 28 29 3b 0a 20 20 20 20 20 20 20 20 74 63 6c  e();.        tcl
2bf0: 72 6c 5f 6c 69 6e 65 20 3d 20 70 74 72 3b 0a 20  rl_line = ptr;. 
2c00: 20 20 20 7d 0a 23 65 6c 73 65 0a 20 20 20 20 69     }.#else.    i
2c10: 66 20 28 70 74 72 20 26 26 20 2a 70 74 72 29 20  f (ptr && *ptr) 
2c20: 7b 0a 20 20 20 20 20 20 20 20 74 63 6c 72 6c 5f  {.        tclrl_
2c30: 6c 69 6e 65 5f 63 6f 6d 70 6c 65 74 65 20 3d 20  line_complete = 
2c40: 31 3b 0a 20 20 20 20 20 20 20 20 72 6c 5f 63 61  1;.        rl_ca
2c50: 6c 6c 62 61 63 6b 5f 68 61 6e 64 6c 65 72 5f 72  llback_handler_r
2c60: 65 6d 6f 76 65 28 29 3b 0a 20 20 20 20 20 20 20  emove();.       
2c70: 20 74 63 6c 72 6c 5f 6c 69 6e 65 20 3d 20 70 74   tclrl_line = pt
2c80: 72 3b 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a  r;.    }.#endif.
2c90: 7d 0a 0a 69 6e 74 0a 54 63 6c 72 65 61 64 6c 69  }..int.Tclreadli
2ca0: 6e 65 5f 53 61 66 65 49 6e 69 74 28 54 63 6c 5f  ne_SafeInit(Tcl_
2cb0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 29 0a  Interp *interp).
2cc0: 7b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63 6c  {.    return Tcl
2cd0: 72 65 61 64 6c 69 6e 65 5f 49 6e 69 74 28 69 6e  readline_Init(in
2ce0: 74 65 72 70 29 3b 0a 7d 0a 0a 69 6e 74 0a 54 63  terp);.}..int.Tc
2cf0: 6c 72 65 61 64 6c 69 6e 65 5f 49 6e 69 74 28 54  lreadline_Init(T
2d00: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
2d10: 70 29 0a 7b 0a 20 20 20 20 69 6e 74 20 73 74 61  p).{.    int sta
2d20: 74 75 73 3b 0a 20 20 20 20 54 63 6c 5f 43 72 65  tus;.    Tcl_Cre
2d30: 61 74 65 43 6f 6d 6d 61 6e 64 28 69 6e 74 65 72  ateCommand(inter
2d40: 70 2c 20 22 3a 3a 74 63 6c 72 65 61 64 6c 69 6e  p, "::tclreadlin
2d50: 65 3a 3a 72 65 61 64 6c 69 6e 65 22 2c 20 54 63  e::readline", Tc
2d60: 6c 52 65 61 64 6c 69 6e 65 43 6d 64 2c 0a 09 20  lReadlineCmd,.. 
2d70: 20 20 20 28 43 6c 69 65 6e 74 44 61 74 61 29 20     (ClientData) 
2d80: 4e 55 4c 4c 2c 20 28 54 63 6c 5f 43 6d 64 44 65  NULL, (Tcl_CmdDe
2d90: 6c 65 74 65 50 72 6f 63 20 2a 29 20 4e 55 4c 4c  leteProc *) NULL
2da0: 29 3b 0a 20 20 20 20 74 63 6c 72 6c 5f 69 6e 74  );.    tclrl_int
2db0: 65 72 70 20 3d 20 69 6e 74 65 72 70 3b 0a 20 20  erp = interp;.  
2dc0: 20 20 69 66 20 28 54 43 4c 5f 4f 4b 20 21 3d 20    if (TCL_OK != 
2dd0: 28 73 74 61 74 75 73 20 3d 20 54 63 6c 5f 4c 69  (status = Tcl_Li
2de0: 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 3a  nkVar(interp, ":
2df0: 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 68 69  :tclreadline::hi
2e00: 73 74 6f 72 79 4c 65 6e 67 74 68 22 2c 0a 20 20  storyLength",.  
2e10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63                (c
2e20: 68 61 72 2a 29 20 26 74 63 6c 72 6c 5f 68 69 73  har*) &tclrl_his
2e30: 74 6f 72 79 5f 6c 65 6e 67 74 68 2c 20 54 43 4c  tory_length, TCL
2e40: 5f 4c 49 4e 4b 5f 49 4e 54 29 29 29 0a 20 20 20  _LINK_INT))).   
2e50: 20 20 20 20 20 72 65 74 75 72 6e 20 73 74 61 74       return stat
2e60: 75 73 3b 0a 20 20 20 20 69 66 20 28 54 43 4c 5f  us;.    if (TCL_
2e70: 4f 4b 20 21 3d 20 28 73 74 61 74 75 73 20 3d 20  OK != (status = 
2e80: 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e 74 65  Tcl_LinkVar(inte
2e90: 72 70 2c 20 22 3a 3a 74 63 6c 72 65 61 64 6c 69  rp, "::tclreadli
2ea0: 6e 65 3a 3a 6c 69 62 72 61 72 79 22 2c 0a 20 20  ne::library",.  
2eb0: 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 20 26         (char*) &
2ec0: 54 43 4c 52 4c 5f 4c 49 42 52 41 52 59 2c 20 54  TCLRL_LIBRARY, T
2ed0: 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 20 7c  CL_LINK_STRING |
2ee0: 20 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f 4f   TCL_LINK_READ_O
2ef0: 4e 4c 59 29 29 29 0a 20 20 20 20 20 20 20 20 72  NLY))).        r
2f00: 65 74 75 72 6e 20 73 74 61 74 75 73 3b 0a 20 20  eturn status;.  
2f10: 20 20 69 66 20 28 54 43 4c 5f 4f 4b 20 21 3d 20    if (TCL_OK != 
2f20: 28 73 74 61 74 75 73 20 3d 20 54 63 6c 5f 4c 69  (status = Tcl_Li
2f30: 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22 3a  nkVar(interp, ":
2f40: 3a 74 63 6c 72 65 61 64 6c 69 6e 65 3a 3a 76 65  :tclreadline::ve
2f50: 72 73 69 6f 6e 22 2c 0a 20 20 20 20 20 20 20 20  rsion",.        
2f60: 20 28 63 68 61 72 2a 29 20 26 54 43 4c 52 4c 5f   (char*) &TCLRL_
2f70: 56 45 52 53 49 4f 4e 2c 20 54 43 4c 5f 4c 49 4e  VERSION, TCL_LIN
2f80: 4b 5f 53 54 52 49 4e 47 20 7c 20 54 43 4c 5f 4c  K_STRING | TCL_L
2f90: 49 4e 4b 5f 52 45 41 44 5f 4f 4e 4c 59 29 29 29  INK_READ_ONLY)))
2fa0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
2fb0: 73 74 61 74 75 73 3b 0a 20 20 20 20 69 66 20 28  status;.    if (
2fc0: 54 43 4c 5f 4f 4b 20 21 3d 20 28 73 74 61 74 75  TCL_OK != (statu
2fd0: 73 20 3d 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28  s = Tcl_LinkVar(
2fe0: 69 6e 74 65 72 70 2c 20 22 3a 3a 74 63 6c 72 65  interp, "::tclre
2ff0: 61 64 6c 69 6e 65 3a 3a 70 61 74 63 68 4c 65 76  adline::patchLev
3000: 65 6c 22 2c 0a 20 20 20 20 20 20 20 20 20 28 63  el",.         (c
3010: 68 61 72 2a 29 20 26 54 43 4c 52 4c 5f 50 41 54  har*) &TCLRL_PAT
3020: 43 48 4c 45 56 45 4c 2c 20 54 43 4c 5f 4c 49 4e  CHLEVEL, TCL_LIN
3030: 4b 5f 53 54 52 49 4e 47 20 7c 20 54 43 4c 5f 4c  K_STRING | TCL_L
3040: 49 4e 4b 5f 52 45 41 44 5f 4f 4e 4c 59 29 29 29  INK_READ_ONLY)))
3050: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
3060: 73 74 61 74 75 73 3b 0a 20 20 20 20 69 66 20 28  status;.    if (
3070: 54 43 4c 5f 4f 4b 20 21 3d 20 28 73 74 61 74 75  TCL_OK != (statu
3080: 73 20 3d 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28  s = Tcl_LinkVar(
3090: 69 6e 74 65 72 70 2c 20 22 74 63 6c 72 65 61 64  interp, "tclread
30a0: 6c 69 6e 65 5f 6c 69 62 72 61 72 79 22 2c 0a 20  line_library",. 
30b0: 20 20 20 20 20 20 20 20 28 63 68 61 72 2a 29 20          (char*) 
30c0: 26 54 43 4c 52 4c 5f 4c 49 42 52 41 52 59 2c 20  &TCLRL_LIBRARY, 
30d0: 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52 49 4e 47 20  TCL_LINK_STRING 
30e0: 7c 20 54 43 4c 5f 4c 49 4e 4b 5f 52 45 41 44 5f  | TCL_LINK_READ_
30f0: 4f 4e 4c 59 29 29 29 0a 20 20 20 20 20 20 20 20  ONLY))).        
3100: 72 65 74 75 72 6e 20 73 74 61 74 75 73 3b 0a 20  return status;. 
3110: 20 20 20 69 66 20 28 54 43 4c 5f 4f 4b 20 21 3d     if (TCL_OK !=
3120: 20 28 73 74 61 74 75 73 20 3d 20 54 63 6c 5f 4c   (status = Tcl_L
3130: 69 6e 6b 56 61 72 28 69 6e 74 65 72 70 2c 20 22  inkVar(interp, "
3140: 74 63 6c 72 65 61 64 6c 69 6e 65 5f 76 65 72 73  tclreadline_vers
3150: 69 6f 6e 22 2c 0a 20 20 20 20 20 20 20 20 20 28  ion",.         (
3160: 63 68 61 72 2a 29 20 26 54 43 4c 52 4c 5f 56 45  char*) &TCLRL_VE
3170: 52 53 49 4f 4e 2c 20 54 43 4c 5f 4c 49 4e 4b 5f  RSION, TCL_LINK_
3180: 53 54 52 49 4e 47 20 7c 20 54 43 4c 5f 4c 49 4e  STRING | TCL_LIN
3190: 4b 5f 52 45 41 44 5f 4f 4e 4c 59 29 29 29 0a 20  K_READ_ONLY))). 
31a0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 73 74         return st
31b0: 61 74 75 73 3b 0a 20 20 20 20 69 66 20 28 54 43  atus;.    if (TC
31c0: 4c 5f 4f 4b 20 21 3d 20 28 73 74 61 74 75 73 20  L_OK != (status 
31d0: 3d 20 54 63 6c 5f 4c 69 6e 6b 56 61 72 28 69 6e  = Tcl_LinkVar(in
31e0: 74 65 72 70 2c 20 22 74 63 6c 72 65 61 64 6c 69  terp, "tclreadli
31f0: 6e 65 5f 70 61 74 63 68 4c 65 76 65 6c 22 2c 0a  ne_patchLevel",.
3200: 20 20 20 20 20 20 20 20 20 28 63 68 61 72 2a 29           (char*)
3210: 20 26 54 43 4c 52 4c 5f 50 41 54 43 48 4c 45 56   &TCLRL_PATCHLEV
3220: 45 4c 2c 20 54 43 4c 5f 4c 49 4e 4b 5f 53 54 52  EL, TCL_LINK_STR
3230: 49 4e 47 20 7c 20 54 43 4c 5f 4c 49 4e 4b 5f 52  ING | TCL_LINK_R
3240: 45 41 44 5f 4f 4e 4c 59 29 29 29 0a 20 20 20 20  EAD_ONLY))).    
3250: 20 20 20 20 72 65 74 75 72 6e 20 73 74 61 74 75      return statu
3260: 73 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54 63  s;.    return Tc
3270: 6c 5f 50 6b 67 50 72 6f 76 69 64 65 28 69 6e 74  l_PkgProvide(int
3280: 65 72 70 2c 20 22 74 63 6c 72 65 61 64 6c 69 6e  erp, "tclreadlin
3290: 65 22 2c 20 54 43 4c 52 4c 5f 56 45 52 53 49 4f  e", TCLRL_VERSIO
32a0: 4e 29 3b 0a 7d 0a 0a 23 69 66 20 30 0a 63 68 61  N);.}..#if 0.cha
32b0: 72 20 2a 0a 54 63 6c 52 65 61 64 6c 69 6e 65 46  r *.TclReadlineF
32c0: 69 6c 65 6e 61 6d 65 51 75 6f 74 69 6e 67 46 75  ilenameQuotingFu
32d0: 6e 63 74 69 6f 6e 0a 28 63 68 61 72 20 2a 66 69  nction.(char *fi
32e0: 6c 65 6e 61 6d 65 2c 20 69 6e 74 20 6d 61 74 63  lename, int matc
32f0: 68 5f 74 79 70 65 2c 20 63 68 61 72 2a 20 71 75  h_type, char* qu
3300: 6f 74 65 5f 70 74 72 29 0a 7b 0a 20 20 20 20 63  ote_ptr).{.    c
3310: 68 61 72 20 2a 72 65 73 20 3d 20 28 63 68 61 72  har *res = (char
3320: 2a 29 20 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66  *) malloc(sizeof
3330: 28 63 68 61 72 29 20 2a 20 28 73 74 72 6c 65 6e  (char) * (strlen
3340: 28 66 69 6c 65 6e 61 6d 65 29 20 2b 20 32 29 29  (filename) + 2))
3350: 3b 0a 20 20 20 20 69 6e 74 20 69 20 3d 20 30 3b  ;.    int i = 0;
3360: 0a 20 20 20 20 66 70 72 69 6e 74 66 20 28 73 74  .    fprintf (st
3370: 64 65 72 72 2c 20 22 28 54 63 6c 52 65 61 64 6c  derr, "(TclReadl
3380: 69 6e 65 46 69 6c 65 6e 61 6d 65 51 75 6f 74 69  ineFilenameQuoti
3390: 6e 67 46 75 6e 63 74 69 6f 6e 29 20 5c 6e 22 29  ngFunction) \n")
33a0: 3b 0a 20 20 20 20 69 66 20 28 71 75 6f 74 65 5f  ;.    if (quote_
33b0: 70 74 72 20 26 26 20 2a 71 75 6f 74 65 5f 70 74  ptr && *quote_pt
33c0: 72 29 20 7b 0a 20 20 20 20 20 20 20 20 2a 72 65  r) {.        *re
33d0: 73 20 3d 20 2a 71 75 6f 74 65 5f 70 74 72 3b 20  s = *quote_ptr; 
33e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33f0: 20 20 20 20 2f 2a 20 6c 65 61 64 69 6e 67 20 71      /* leading q
3400: 75 6f 74 65 20 2a 2f 0a 20 20 20 20 20 20 20 20  uote */.        
3410: 69 2b 2b 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73  i++;.    }.    s
3420: 74 72 63 70 79 20 28 72 65 73 20 2b 20 69 2c 20  trcpy (res + i, 
3430: 66 69 6c 65 6e 61 6d 65 29 3b 20 20 20 20 20 20  filename);      
3440: 20 20 20 20 20 20 20 20 2f 2a 20 6e 61 6d 65 20          /* name 
3450: 20 20 20 20 20 20 20 20 20 2a 2f 0a 23 69 66 20           */.#if 
3460: 30 0a 20 20 20 20 66 70 72 69 6e 74 66 20 28 73  0.    fprintf (s
3470: 74 64 65 72 72 2c 20 22 28 54 63 6c 72 65 61 64  tderr, "(Tclread
3480: 6c 69 6e 65 5f 49 6e 69 74 29 20 66 69 6c 65 6e  line_Init) filen
3490: 61 6d 65 3d 7c 25 73 7c 5c 6e 22 2c 20 66 69 6c  ame=|%s|\n", fil
34a0: 65 6e 61 6d 65 29 3b 0a 20 20 20 20 66 70 72 69  ename);.    fpri
34b0: 6e 74 66 20 28 73 74 64 65 72 72 2c 20 22 28 54  ntf (stderr, "(T
34c0: 63 6c 72 65 61 64 6c 69 6e 65 5f 49 6e 69 74 29  clreadline_Init)
34d0: 20 2a 71 75 6f 74 65 5f 70 74 72 3d 7c 25 63 7c   *quote_ptr=|%c|
34e0: 5c 6e 22 2c 20 2a 71 75 6f 74 65 5f 70 74 72 29  \n", *quote_ptr)
34f0: 3b 0a 23 65 6e 64 69 66 0a 20 20 20 20 69 66 20  ;.#endif.    if 
3500: 28 71 75 6f 74 65 5f 70 74 72 20 26 26 20 27 7b  (quote_ptr && '{
3510: 27 20 3d 3d 20 2a 71 75 6f 74 65 5f 70 74 72 29  ' == *quote_ptr)
3520: 20 7b 0a 20 20 20 20 20 20 20 20 2a 71 75 6f 74   {.        *quot
3530: 65 5f 70 74 72 20 3d 20 27 7d 27 3b 0a 20 20 20  e_ptr = '}';.   
3540: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 72 65   }.    return re
3550: 73 3b 0a 0a 23 69 66 20 30 0a 20 20 20 20 73 77  s;..#if 0.    sw
3560: 69 74 63 68 20 28 6d 61 74 63 68 5f 74 79 70 65  itch (match_type
3570: 29 20 7b 0a 20 20 20 20 20 20 20 20 63 61 73 65  ) {.        case
3580: 20 53 49 4e 47 4c 45 5f 4d 41 54 43 48 3a 0a 20   SINGLE_MATCH:. 
3590: 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b             break
35a0: 3b 0a 20 20 20 20 20 20 20 20 64 65 66 61 75 6c  ;.        defaul
35b0: 74 3a 0a 20 20 20 20 7d 0a 23 65 6e 64 69 66 0a  t:.    }.#endif.
35c0: 7d 0a 23 65 6e 64 69 66 0a 0a 69 6e 74 0a 54 63  }.#endif..int.Tc
35d0: 6c 52 65 61 64 6c 69 6e 65 49 6e 69 74 69 61 6c  lReadlineInitial
35e0: 69 7a 65 28 54 63 6c 5f 49 6e 74 65 72 70 2a 20  ize(Tcl_Interp* 
35f0: 69 6e 74 65 72 70 2c 20 63 68 61 72 2a 20 68 69  interp, char* hi
3600: 73 74 6f 72 79 66 69 6c 65 29 0a 7b 0a 20 20 20  storyfile).{.   
3610: 20 72 6c 5f 72 65 61 64 6c 69 6e 65 5f 6e 61 6d   rl_readline_nam
3620: 65 20 3d 20 22 74 63 6c 72 65 61 64 6c 69 6e 65  e = "tclreadline
3630: 22 3b 0a 20 20 20 20 72 6c 5f 73 70 65 63 69 61  ";.    rl_specia
3640: 6c 5f 70 72 65 66 69 78 65 73 20 3d 20 22 24 7b  l_prefixes = "${
3650: 5c 22 22 3b 0a 20 20 20 20 2f 2a 2a 0a 20 20 20  \"";.    /**.   
3660: 20 20 2a 20 64 65 66 61 75 6c 74 20 69 73 20 22    * default is "
3670: 20 5c 74 5c 6e 5c 22 5c 5c 27 60 40 24 3e 3c 3d   \t\n\"\\'`@$><=
3680: 3b 7c 26 7b 28 22 0a 20 20 20 20 20 2a 20 72 65  ;|&{(".     * re
3690: 6d 6f 76 65 64 20 22 28 22 20 3c 2d 2d 20 61 72  moved "(" <-- ar
36a0: 72 61 79 73 0a 20 20 20 20 20 2a 20 72 65 6d 6f  rays.     * remo
36b0: 76 65 64 20 22 7b 22 20 3c 2d 2d 20 60 24 7b 27  ved "{" <-- `${'
36c0: 20 76 61 72 69 61 62 6c 65 73 20 0a 20 20 20 20   variables .    
36d0: 20 2a 20 61 64 64 65 64 20 22 5b 5d 22 0a 20 20   * added "[]".  
36e0: 20 20 20 2a 2f 0a 20 20 20 20 72 6c 5f 62 61 73     */.    rl_bas
36f0: 69 63 5f 77 6f 72 64 5f 62 72 65 61 6b 5f 63 68  ic_word_break_ch
3700: 61 72 61 63 74 65 72 73 20 3d 20 22 20 5c 74 5c  aracters = " \t\
3710: 6e 5c 22 5c 5c 27 60 40 24 3e 3c 3d 3b 7c 26 5b  n\"\\'`@$><=;|&[
3720: 5d 22 3b 0a 20 20 20 20 72 6c 5f 63 6f 6d 70 6c  ]";.    rl_compl
3730: 65 74 65 72 5f 71 75 6f 74 65 5f 63 68 61 72 61  eter_quote_chara
3740: 63 74 65 72 73 20 3d 20 22 5c 22 22 3b 0a 20 20  cters = "\"";.  
3750: 20 20 2f 2a 0a 20 20 20 20 72 6c 5f 66 69 6c 65    /*.    rl_file
3760: 6e 61 6d 65 5f 71 75 6f 74 65 5f 63 68 61 72 61  name_quote_chara
3770: 63 74 65 72 73 0a 20 20 20 20 3d 20 22 61 62 63  cters.    = "abc
3780: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73  defghijklmnopqrs
3790: 74 75 76 77 78 79 7a 41 42 43 44 45 46 47 48 49  tuvwxyzABCDEFGHI
37a0: 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59  JKLMNOPQRSTUVWXY
37b0: 5a 22 3b 0a 0a 20 20 20 20 72 6c 5f 66 69 6c 65  Z";..    rl_file
37c0: 6e 61 6d 65 5f 71 75 6f 74 69 6e 67 5f 66 75 6e  name_quoting_fun
37d0: 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 3d 20  ction.        = 
37e0: 28 43 50 46 75 6e 63 74 69 6f 6e 2a 29 20 54 63  (CPFunction*) Tc
37f0: 6c 52 65 61 64 6c 69 6e 65 46 69 6c 65 6e 61 6d  lReadlineFilenam
3800: 65 51 75 6f 74 69 6e 67 46 75 6e 63 74 69 6f 6e  eQuotingFunction
3810: 3b 0a 20 20 20 20 2a 2f 0a 20 20 20 20 2f 2a 0a  ;.    */.    /*.
3820: 20 20 20 20 72 6c 5f 66 69 6c 65 6e 61 6d 65 5f      rl_filename_
3830: 71 75 6f 74 69 6e 67 5f 64 65 73 69 72 65 64 20  quoting_desired 
3840: 3d 20 31 3b 0a 20 20 20 20 2a 2f 0a 0a 20 20 20  = 1;.    */..   
3850: 20 75 73 69 6e 67 5f 68 69 73 74 6f 72 79 28 29   using_history()
3860: 3b 0a 20 20 20 20 69 66 20 28 21 74 63 6c 72 6c  ;.    if (!tclrl
3870: 5f 65 6f 66 5f 73 74 72 69 6e 67 29 0a 20 20 20  _eof_string).   
3880: 20 20 20 20 20 74 63 6c 72 6c 5f 65 6f 66 5f 73       tclrl_eof_s
3890: 74 72 69 6e 67 20 3d 20 73 74 72 64 75 70 28 22  tring = strdup("
38a0: 70 75 74 73 20 7b 7d 3b 20 65 78 69 74 22 29 3b  puts {}; exit");
38b0: 0a 0a 20 20 20 20 2f 2a 0a 20 20 20 20 20 2a 20  ..    /*.     * 
38c0: 74 72 79 20 74 6f 20 72 65 61 64 20 68 69 73 74  try to read hist
38d0: 6f 72 79 66 69 6c 65 20 69 6e 20 68 6f 6d 65 0a  oryfile in home.
38e0: 20 20 20 20 20 2a 20 64 69 72 65 63 74 6f 72 79       * directory
38f0: 2e 20 49 66 20 74 68 69 73 20 66 61 69 6c 65 73  . If this failes
3900: 2c 20 74 68 69 73 0a 20 20 20 20 20 2a 20 69 73  , this.     * is
3910: 20 2a 6e 6f 74 2a 20 61 6e 20 65 72 72 6f 72 2e   *not* an error.
3920: 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 72 6c 5f  .     */.    rl_
3930: 61 74 74 65 6d 70 74 65 64 5f 63 6f 6d 70 6c 65  attempted_comple
3940: 74 69 6f 6e 5f 66 75 6e 63 74 69 6f 6e 20 3d 20  tion_function = 
3950: 28 43 50 50 46 75 6e 63 74 69 6f 6e 20 2a 29 20  (CPPFunction *) 
3960: 54 63 6c 52 65 61 64 6c 69 6e 65 43 6f 6d 70 6c  TclReadlineCompl
3970: 65 74 69 6f 6e 3b 0a 20 20 20 20 69 66 20 28 72  etion;.    if (r
3980: 65 61 64 5f 68 69 73 74 6f 72 79 28 68 69 73 74  ead_history(hist
3990: 6f 72 79 66 69 6c 65 29 29 20 7b 0a 20 20 20 20  oryfile)) {.    
39a0: 20 20 20 20 69 66 20 28 77 72 69 74 65 5f 68 69      if (write_hi
39b0: 73 74 6f 72 79 28 68 69 73 74 6f 72 79 66 69 6c  story(historyfil
39c0: 65 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  e)) {.          
39d0: 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75    Tcl_AppendResu
39e0: 6c 74 20 28 69 6e 74 65 72 70 2c 20 22 77 61 72  lt (interp, "war
39f0: 6e 69 6e 67 3a 20 60 22 2c 0a 20 20 20 20 20 20  ning: `",.      
3a00: 20 20 20 20 20 20 20 20 20 20 68 69 73 74 6f 72            histor
3a10: 79 66 69 6c 65 2c 20 22 27 20 69 73 20 6e 6f 74  yfile, "' is not
3a20: 20 77 72 69 74 61 62 6c 65 2e 22 2c 20 28 63 68   writable.", (ch
3a30: 61 72 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 20  ar*) NULL);.    
3a40: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20      }.    }.    
3a50: 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d  return TCL_OK;.}
3a60: 0a 0a 69 6e 74 0a 62 6c 61 6e 6b 5f 6c 69 6e 65  ..int.blank_line
3a70: 28 63 68 61 72 2a 20 73 74 72 29 0a 7b 0a 20 20  (char* str).{.  
3a80: 20 20 63 68 61 72 2a 20 70 74 72 3b 0a 20 20 20    char* ptr;.   
3a90: 20 66 6f 72 20 28 70 74 72 20 3d 20 73 74 72 3b   for (ptr = str;
3aa0: 20 70 74 72 20 26 26 20 2a 70 74 72 3b 20 70 74   ptr && *ptr; pt
3ab0: 72 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 69  r++) {.        i
3ac0: 66 20 28 21 49 53 57 48 49 54 45 28 2a 70 74 72  f (!ISWHITE(*ptr
3ad0: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 72  )).            r
3ae0: 65 74 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 20  eturn 0;.    }. 
3af0: 20 20 20 72 65 74 75 72 6e 20 31 3b 0a 7d 0a 0a     return 1;.}..
3b00: 63 68 61 72 2a 2a 0a 54 63 6c 52 65 61 64 6c 69  char**.TclReadli
3b10: 6e 65 43 6f 6d 70 6c 65 74 69 6f 6e 28 63 68 61  neCompletion(cha
3b20: 72 2a 20 74 65 78 74 2c 20 69 6e 74 20 73 74 61  r* text, int sta
3b30: 72 74 2c 20 69 6e 74 20 65 6e 64 29 0a 7b 0a 20  rt, int end).{. 
3b40: 20 20 20 63 68 61 72 2a 2a 20 6d 61 74 63 68 65     char** matche
3b50: 73 20 3d 20 28 63 68 61 72 2a 2a 29 20 4e 55 4c  s = (char**) NUL
3b60: 4c 3b 0a 20 20 20 20 72 6c 5f 61 74 74 65 6d 70  L;.    rl_attemp
3b70: 74 65 64 5f 63 6f 6d 70 6c 65 74 69 6f 6e 5f 6f  ted_completion_o
3b80: 76 65 72 20 3d 20 30 3b 0a 0a 23 69 66 20 30 0a  ver = 0;..#if 0.
3b90: 20 20 20 20 66 70 72 69 6e 74 66 28 73 74 64 65      fprintf(stde
3ba0: 72 72 2c 20 22 44 45 42 55 47 3e 20 54 63 6c 52  rr, "DEBUG> TclR
3bb0: 65 61 64 6c 69 6e 65 43 6f 6d 70 6c 65 74 69 6f  eadlineCompletio
3bc0: 6e 3a 20 74 65 78 74 3d 7c 25 73 7c 5c 6e 22 2c  n: text=|%s|\n",
3bd0: 20 74 65 78 74 29 3b 0a 20 20 20 20 66 70 72 69   text);.    fpri
3be0: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 44 45 42  ntf(stderr, "DEB
3bf0: 55 47 3e 20 54 63 6c 52 65 61 64 6c 69 6e 65 43  UG> TclReadlineC
3c00: 6f 6d 70 6c 65 74 69 6f 6e 3a 20 73 74 61 72 74  ompletion: start
3c10: 3d 7c 25 64 7c 5c 6e 22 2c 20 73 74 61 72 74 29  =|%d|\n", start)
3c20: 3b 0a 20 20 20 20 66 70 72 69 6e 74 66 28 73 74  ;.    fprintf(st
3c30: 64 65 72 72 2c 20 22 44 45 42 55 47 3e 20 54 63  derr, "DEBUG> Tc
3c40: 6c 52 65 61 64 6c 69 6e 65 43 6f 6d 70 6c 65 74  lReadlineComplet
3c50: 69 6f 6e 3a 20 65 6e 64 3d 7c 25 64 7c 5c 6e 22  ion: end=|%d|\n"
3c60: 2c 20 65 6e 64 29 3b 0a 23 65 6e 64 69 66 0a 0a  , end);.#endif..
3c70: 23 69 66 20 30 0a 20 20 20 20 63 68 61 72 2a 20  #if 0.    char* 
3c80: 68 69 73 74 6f 72 79 5f 65 76 65 6e 74 20 3d 20  history_event = 
3c90: 28 63 68 61 72 2a 29 20 4e 55 4c 4c 3b 0a 20 20  (char*) NULL;.  
3ca0: 20 20 69 66 20 28 74 65 78 74 29 20 7b 0a 20 20    if (text) {.  
3cb0: 20 20 20 20 20 20 69 66 20 28 27 21 27 20 3d 3d        if ('!' ==
3cc0: 20 74 65 78 74 5b 30 5d 29 0a 20 20 20 20 20 20   text[0]).      
3cd0: 20 20 20 20 20 20 68 69 73 74 6f 72 79 5f 65 76        history_ev
3ce0: 65 6e 74 20 3d 20 73 74 72 64 75 70 28 74 65 78  ent = strdup(tex
3cf0: 74 29 3b 0a 20 20 20 20 20 20 20 20 65 6c 73 65  t);.        else
3d00: 20 69 66 20 28 73 74 61 72 74 20 26 26 20 72 6c   if (start && rl
3d10: 5f 6c 69 6e 65 5f 62 75 66 66 65 72 5b 73 74 61  _line_buffer[sta
3d20: 72 74 20 2d 20 31 5d 20 3d 3d 20 27 21 27 20 2f  rt - 1] == '!' /
3d30: 2a 20 66 6f 72 20 27 24 27 20 2a 2f 29 20 7b 0a  * for '$' */) {.
3d40: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 20              int 
3d50: 6c 65 6e 20 3d 20 73 74 72 6c 65 6e 28 74 65 78  len = strlen(tex
3d60: 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  t);.            
3d70: 68 69 73 74 6f 72 79 5f 65 76 65 6e 74 20 3d 20  history_event = 
3d80: 73 74 72 6e 63 70 79 28 28 63 68 61 72 2a 29 20  strncpy((char*) 
3d90: 6d 61 6c 6c 6f 63 28 73 69 7a 65 6f 66 28 63 68  malloc(sizeof(ch
3da0: 61 72 29 20 2a 20 28 6c 65 6e 20 2b 20 31 29 29  ar) * (len + 1))
3db0: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ,.              
3dc0: 20 20 72 6c 5f 6c 69 6e 65 5f 62 75 66 66 65 72    rl_line_buffer
3dd0: 5b 73 74 61 72 74 20 2d 20 31 5d 2c 20 6c 65 6e  [start - 1], len
3de0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 68  );.            h
3df0: 69 73 74 6f 72 79 5f 65 76 65 6e 74 5b 6c 65 6e  istory_event[len
3e00: 5d 20 3d 20 27 5c 30 27 3b 20 2f 2a 20 74 65 72  ] = '\0'; /* ter
3e10: 6d 69 6e 61 74 65 20 2a 2f 0a 20 20 20 20 20 20  minate */.      
3e20: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 66    }.    }.    if
3e30: 20 28 68 69 73 74 6f 72 79 5f 65 76 65 6e 74 29   (history_event)
3e40: 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 66 20  .#endif..    if 
3e50: 28 74 65 78 74 20 26 26 20 28 27 21 27 20 3d 3d  (text && ('!' ==
3e60: 20 74 65 78 74 5b 30 5d 0a 20 20 20 20 20 20 20   text[0].       
3e70: 20 20 20 20 20 7c 7c 20 28 73 74 61 72 74 20 26       || (start &
3e80: 26 20 72 6c 5f 6c 69 6e 65 5f 62 75 66 66 65 72  & rl_line_buffer
3e90: 5b 73 74 61 72 74 20 2d 20 31 5d 20 3d 3d 20 27  [start - 1] == '
3ea0: 21 27 20 2f 2a 20 66 6f 72 20 27 24 27 20 2a 2f  !' /* for '$' */
3eb0: 29 29 29 20 7b 0a 20 20 20 20 20 20 20 20 63 68  ))) {.        ch
3ec0: 61 72 2a 20 65 78 70 61 6e 73 69 6f 6e 20 3d 20  ar* expansion = 
3ed0: 28 63 68 61 72 2a 29 20 4e 55 4c 4c 3b 0a 20 20  (char*) NULL;.  
3ee0: 20 20 20 20 20 20 69 6e 74 20 6f 6c 64 6c 65 6e        int oldlen
3ef0: 20 3d 20 73 74 72 6c 65 6e 28 72 6c 5f 6c 69 6e   = strlen(rl_lin
3f00: 65 5f 62 75 66 66 65 72 29 3b 0a 20 20 20 20 20  e_buffer);.     
3f10: 20 20 20 69 6e 74 20 73 74 61 74 75 73 20 3d 20     int status = 
3f20: 68 69 73 74 6f 72 79 5f 65 78 70 61 6e 64 28 72  history_expand(r
3f30: 6c 5f 6c 69 6e 65 5f 62 75 66 66 65 72 2c 20 26  l_line_buffer, &
3f40: 65 78 70 61 6e 73 69 6f 6e 29 3b 0a 20 20 20 20  expansion);.    
3f50: 20 20 20 20 69 66 20 28 73 74 61 74 75 73 20 3e      if (status >
3f60: 3d 20 31 29 20 7b 0a 20 20 20 20 20 20 20 20 20  = 1) {.         
3f70: 20 20 20 72 6c 5f 65 78 74 65 6e 64 5f 6c 69 6e     rl_extend_lin
3f80: 65 5f 62 75 66 66 65 72 28 73 74 72 6c 65 6e 28  e_buffer(strlen(
3f90: 65 78 70 61 6e 73 69 6f 6e 29 20 2b 20 31 29 3b  expansion) + 1);
3fa0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72  .            str
3fb0: 63 70 79 28 72 6c 5f 6c 69 6e 65 5f 62 75 66 66  cpy(rl_line_buff
3fc0: 65 72 2c 20 65 78 70 61 6e 73 69 6f 6e 29 3b 0a  er, expansion);.
3fd0: 20 20 20 20 20 20 20 20 20 20 20 20 72 6c 5f 65              rl_e
3fe0: 6e 64 20 3d 20 73 74 72 6c 65 6e 28 65 78 70 61  nd = strlen(expa
3ff0: 6e 73 69 6f 6e 29 3b 0a 20 20 20 20 20 20 20 20  nsion);.        
4000: 20 20 20 20 72 6c 5f 70 6f 69 6e 74 20 2b 3d 20      rl_point += 
4010: 73 74 72 6c 65 6e 28 65 78 70 61 6e 73 69 6f 6e  strlen(expansion
4020: 29 20 2d 20 6f 6c 64 6c 65 6e 3b 0a 20 20 20 20  ) - oldlen;.    
4030: 20 20 20 20 20 20 20 20 46 52 45 45 28 65 78 70          FREE(exp
4040: 61 6e 73 69 6f 6e 29 3b 0a 20 20 20 20 20 20 20  ansion);.       
4050: 20 20 20 20 20 2f 2a 20 72 6c 5f 72 65 64 69 73       /* rl_redis
4060: 70 6c 61 79 28 29 3b 20 2a 2f 0a 20 20 20 20 20  play(); */.     
4070: 20 20 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20         /*.      
4080: 20 20 20 20 20 20 20 2a 20 54 4f 44 4f 3a 0a 20         * TODO:. 
4090: 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 62 65              * be
40a0: 63 61 75 73 65 20 77 65 20 72 65 74 75 72 6e 20  cause we return 
40b0: 30 20 3d 3d 20 6d 61 74 63 68 65 73 2c 0a 20 20  0 == matches,.  
40c0: 20 20 20 20 20 20 20 20 20 20 20 2a 20 74 68 65             * the
40d0: 20 66 69 6c 65 6e 61 6d 65 20 63 6f 6d 70 6c 65   filename comple
40e0: 74 65 72 20 77 69 6c 6c 20 73 74 69 6c 6c 20 62  ter will still b
40f0: 65 65 70 2e 0a 20 20 20 20 20 20 20 20 20 20 20  eep..           
4100: 20 72 6c 5f 69 6e 68 69 62 69 74 5f 63 6f 6d 70   rl_inhibit_comp
4110: 6c 65 74 69 6f 6e 20 3d 20 31 3b 0a 20 20 20 20  letion = 1;.    
4120: 20 20 20 20 20 20 20 20 20 2a 2f 0a 20 20 20 20           */.    
4130: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 6d          return m
4140: 61 74 63 68 65 73 3b 0a 20 20 20 20 20 20 20 20  atches;.        
4150: 7d 0a 20 20 20 20 20 20 20 20 46 52 45 45 28 65  }.        FREE(e
4160: 78 70 61 6e 73 69 6f 6e 29 3b 0a 20 20 20 20 7d  xpansion);.    }
4170: 0a 0a 20 20 20 20 69 66 20 28 74 63 6c 72 6c 5f  ..    if (tclrl_
4180: 63 75 73 74 6f 6d 5f 63 6f 6d 70 6c 65 74 65 72  custom_completer
4190: 29 20 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72  ) {.        char
41a0: 20 73 74 61 72 74 5f 73 5b 42 55 46 53 49 5a 5d   start_s[BUFSIZ]
41b0: 2c 20 65 6e 64 5f 73 5b 42 55 46 53 49 5a 5d 3b  , end_s[BUFSIZ];
41c0: 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 4f 62 6a  .        Tcl_Obj
41d0: 2a 20 6f 62 6a 3b 0a 20 20 20 20 20 20 20 20 54  * obj;.        T
41e0: 63 6c 5f 4f 62 6a 2a 2a 20 6f 62 6a 76 3b 0a 20  cl_Obj** objv;. 
41f0: 20 20 20 20 20 20 20 69 6e 74 20 6f 62 6a 63 3b         int objc;
4200: 0a 20 20 20 20 20 20 20 20 63 68 61 72 2a 20 71  .        char* q
4210: 75 6f 74 65 64 5f 74 65 78 74 20 3d 20 54 63 6c  uoted_text = Tcl
4220: 52 65 61 64 6c 69 6e 65 51 75 6f 74 65 28 74 65  ReadlineQuote(te
4230: 78 74 2c 20 22 24 5b 5d 7b 7d 5c 22 22 29 3b 0a  xt, "$[]{}\"");.
4240: 20 20 20 20 20 20 20 20 63 68 61 72 2a 20 71 75          char* qu
4250: 6f 74 65 64 5f 72 6c 5f 6c 69 6e 65 5f 62 75 66  oted_rl_line_buf
4260: 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20  fer.            
4270: 3d 20 54 63 6c 52 65 61 64 6c 69 6e 65 51 75 6f  = TclReadlineQuo
4280: 74 65 28 72 6c 5f 6c 69 6e 65 5f 62 75 66 66 65  te(rl_line_buffe
4290: 72 2c 20 22 24 5b 5d 7b 7d 5c 22 22 29 3b 0a 23  r, "$[]{}\"");.#
42a0: 69 66 20 30 0a 20 20 20 20 20 20 20 20 66 70 72  if 0.        fpr
42b0: 69 6e 74 66 20 28 73 74 64 65 72 72 2c 20 22 28  intf (stderr, "(
42c0: 54 63 6c 52 65 61 64 6c 69 6e 65 43 6f 6d 70 6c  TclReadlineCompl
42d0: 65 74 69 6f 6e 29 20 72 6c 5f 6c 69 6e 65 5f 62  etion) rl_line_b
42e0: 75 66 66 65 72 20 3d 20 7c 25 73 7c 5c 6e 22 2c  uffer = |%s|\n",
42f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 6c 5f  .            rl_
4300: 6c 69 6e 65 5f 62 75 66 66 65 72 29 3b 0a 20 20  line_buffer);.  
4310: 20 20 20 20 20 20 66 70 72 69 6e 74 66 20 28 73        fprintf (s
4320: 74 64 65 72 72 2c 20 22 28 54 63 6c 52 65 61 64  tderr, "(TclRead
4330: 6c 69 6e 65 43 6f 6d 70 6c 65 74 69 6f 6e 29 20  lineCompletion) 
4340: 71 75 6f 74 65 64 5f 72 6c 5f 6c 69 6e 65 5f 62  quoted_rl_line_b
4350: 75 66 66 65 72 20 3d 20 7c 25 73 7c 5c 6e 22 2c  uffer = |%s|\n",
4360: 0a 20 20 20 20 20 20 20 20 20 20 20 20 71 75 6f  .            quo
4370: 74 65 64 5f 72 6c 5f 6c 69 6e 65 5f 62 75 66 66  ted_rl_line_buff
4380: 65 72 29 3b 0a 20 20 20 20 20 20 20 20 66 70 72  er);.        fpr
4390: 69 6e 74 66 20 28 73 74 64 65 72 72 2c 20 22 28  intf (stderr, "(
43a0: 54 63 6c 52 65 61 64 6c 69 6e 65 43 6f 6d 70 6c  TclReadlineCompl
43b0: 65 74 69 6f 6e 29 20 74 65 78 74 20 3d 20 7c 25  etion) text = |%
43c0: 73 7c 5c 6e 22 2c 20 74 65 78 74 29 3b 0a 20 20  s|\n", text);.  
43d0: 20 20 20 20 20 20 66 70 72 69 6e 74 66 20 28 73        fprintf (s
43e0: 74 64 65 72 72 2c 20 22 28 54 63 6c 52 65 61 64  tderr, "(TclRead
43f0: 6c 69 6e 65 43 6f 6d 70 6c 65 74 69 6f 6e 29 20  lineCompletion) 
4400: 71 75 6f 74 65 64 5f 74 65 78 74 20 3d 20 7c 25  quoted_text = |%
4410: 73 7c 5c 6e 22 2c 0a 20 20 20 20 20 20 20 20 20  s|\n",.         
4420: 20 20 20 71 75 6f 74 65 64 5f 74 65 78 74 29 3b     quoted_text);
4430: 0a 23 65 6e 64 69 66 0a 20 20 20 20 20 20 20 20  .#endif.        
4440: 73 70 72 69 6e 74 66 28 73 74 61 72 74 5f 73 2c  sprintf(start_s,
4450: 20 22 25 64 22 2c 20 73 74 61 72 74 29 3b 0a 20   "%d", start);. 
4460: 20 20 20 20 20 20 20 73 70 72 69 6e 74 66 28 65         sprintf(e
4470: 6e 64 5f 73 2c 20 22 25 64 22 2c 20 65 6e 64 29  nd_s, "%d", end)
4480: 3b 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 52 65  ;.        Tcl_Re
4490: 73 65 74 52 65 73 75 6c 74 28 74 63 6c 72 6c 5f  setResult(tclrl_
44a0: 69 6e 74 65 72 70 29 3b 20 2f 2a 20 63 6c 65 61  interp); /* clea
44b0: 72 20 72 65 73 75 6c 74 20 73 70 61 63 65 20 2a  r result space *
44c0: 2f 0a 20 20 20 20 20 20 20 20 74 63 6c 72 6c 5f  /.        tclrl_
44d0: 73 74 61 74 65 20 3d 20 54 63 6c 5f 56 61 72 45  state = Tcl_VarE
44e0: 76 61 6c 28 74 63 6c 72 6c 5f 69 6e 74 65 72 70  val(tclrl_interp
44f0: 2c 20 74 63 6c 72 6c 5f 63 75 73 74 6f 6d 5f 63  , tclrl_custom_c
4500: 6f 6d 70 6c 65 74 65 72 2c 0a 20 20 20 20 20 20  ompleter,.      
4510: 20 20 20 20 20 20 22 20 5c 22 22 2c 20 71 75 6f        " \"", quo
4520: 74 65 64 5f 74 65 78 74 2c 20 22 5c 22 20 22 2c  ted_text, "\" ",
4530: 20 73 74 61 72 74 5f 73 2c 20 22 20 22 2c 20 65   start_s, " ", e
4540: 6e 64 5f 73 2c 0a 20 20 20 20 20 20 20 20 20 20  nd_s,.          
4550: 20 20 22 20 5c 22 22 2c 20 71 75 6f 74 65 64 5f    " \"", quoted_
4560: 72 6c 5f 6c 69 6e 65 5f 62 75 66 66 65 72 2c 20  rl_line_buffer, 
4570: 22 5c 22 22 2c 20 28 63 68 61 72 2a 29 20 4e 55  "\"", (char*) NU
4580: 4c 4c 29 3b 0a 20 20 20 20 20 20 20 20 46 52 45  LL);.        FRE
4590: 45 28 71 75 6f 74 65 64 5f 74 65 78 74 29 3b 0a  E(quoted_text);.
45a0: 20 20 20 20 20 20 20 20 46 52 45 45 28 71 75 6f          FREE(quo
45b0: 74 65 64 5f 72 6c 5f 6c 69 6e 65 5f 62 75 66 66  ted_rl_line_buff
45c0: 65 72 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20  er);.        if 
45d0: 28 54 43 4c 5f 4f 4b 20 21 3d 20 74 63 6c 72 6c  (TCL_OK != tclrl
45e0: 5f 73 74 61 74 65 29 20 7b 0a 20 20 20 20 20 20  _state) {.      
45f0: 20 20 20 20 20 20 72 6c 5f 63 61 6c 6c 62 61 63        rl_callbac
4600: 6b 5f 68 61 6e 64 6c 65 72 5f 72 65 6d 6f 76 65  k_handler_remove
4610: 28 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ();.            
4620: 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74  Tcl_AppendResult
4630: 20 28 74 63 6c 72 6c 5f 69 6e 74 65 72 70 2c 20   (tclrl_interp, 
4640: 22 20 60 22 2c 20 74 63 6c 72 6c 5f 63 75 73 74  " `", tclrl_cust
4650: 6f 6d 5f 63 6f 6d 70 6c 65 74 65 72 2c 0a 20 20  om_completer,.  
4660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20                " 
4670: 5c 22 22 2c 20 71 75 6f 74 65 64 5f 74 65 78 74  \"", quoted_text
4680: 2c 20 22 5c 22 20 22 2c 20 73 74 61 72 74 5f 73  , "\" ", start_s
4690: 2c 20 22 20 22 2c 20 65 6e 64 5f 73 2c 0a 20 20  , " ", end_s,.  
46a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20                " 
46b0: 5c 22 22 2c 20 71 75 6f 74 65 64 5f 72 6c 5f 6c  \"", quoted_rl_l
46c0: 69 6e 65 5f 62 75 66 66 65 72 2c 20 22 5c 22 27  ine_buffer, "\"'
46d0: 20 66 61 69 6c 65 64 2e 22 2c 20 28 63 68 61 72   failed.", (char
46e0: 2a 29 20 4e 55 4c 4c 29 3b 0a 23 69 66 20 30 0a  *) NULL);.#if 0.
46f0: 20 20 20 20 20 20 20 20 20 20 20 20 66 70 72 69              fpri
4700: 6e 74 66 28 73 74 64 65 72 72 2c 20 22 5c 6e 7c  ntf(stderr, "\n|
4710: 25 73 7c 5c 6e 22 2c 20 54 63 6c 5f 47 65 74 53  %s|\n", Tcl_GetS
4720: 74 72 69 6e 67 52 65 73 75 6c 74 28 74 63 6c 72  tringResult(tclr
4730: 6c 5f 69 6e 74 65 72 70 29 29 3b 0a 23 65 6e 64  l_interp));.#end
4740: 69 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 72  if.            r
4750: 65 74 75 72 6e 20 6d 61 74 63 68 65 73 3b 0a 20  eturn matches;. 
4760: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
4770: 20 6f 62 6a 20 3d 20 54 63 6c 5f 47 65 74 4f 62   obj = Tcl_GetOb
4780: 6a 52 65 73 75 6c 74 28 74 63 6c 72 6c 5f 69 6e  jResult(tclrl_in
4790: 74 65 72 70 29 3b 0a 20 20 20 20 20 20 20 20 54  terp);.        T
47a0: 63 6c 5f 4c 69 73 74 4f 62 6a 47 65 74 45 6c 65  cl_ListObjGetEle
47b0: 6d 65 6e 74 73 28 74 63 6c 72 6c 5f 69 6e 74 65  ments(tclrl_inte
47c0: 72 70 2c 20 6f 62 6a 2c 20 26 6f 62 6a 63 2c 20  rp, obj, &objc, 
47d0: 26 6f 62 6a 76 29 3b 0a 20 20 20 20 20 20 20 20  &objv);.        
47e0: 2f 2a 20 66 70 72 69 6e 74 66 20 28 73 74 64 65  /* fprintf (stde
47f0: 72 72 2c 20 22 28 54 63 6c 52 65 61 64 6c 69 6e  rr, "(TclReadlin
4800: 65 43 6f 6d 70 6c 65 74 69 6f 6e 29 20 6f 62 6a  eCompletion) obj
4810: 63 20 3d 20 25 64 5c 6e 22 2c 20 6f 62 6a 63 29  c = %d\n", objc)
4820: 3b 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 20  ; */.        if 
4830: 28 6f 62 6a 63 29 20 7b 0a 20 20 20 20 20 20 20  (objc) {.       
4840: 20 20 20 20 20 69 6e 74 20 69 2c 20 6c 65 6e 67       int i, leng
4850: 74 68 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  th;.            
4860: 6d 61 74 63 68 65 73 20 3d 20 28 63 68 61 72 2a  matches = (char*
4870: 2a 29 20 4d 41 4c 4c 4f 43 28 73 69 7a 65 6f 66  *) MALLOC(sizeof
4880: 28 63 68 61 72 2a 29 20 2a 20 28 6f 62 6a 63 20  (char*) * (objc 
4890: 2b 20 31 29 29 3b 0a 20 20 20 20 20 20 20 20 20  + 1));.         
48a0: 20 20 20 66 6f 72 20 28 69 20 3d 20 30 3b 20 69     for (i = 0; i
48b0: 20 3c 20 6f 62 6a 63 3b 20 69 2b 2b 29 20 7b 0a   < objc; i++) {.
48c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
48d0: 6d 61 74 63 68 65 73 5b 69 5d 20 3d 20 73 74 72  matches[i] = str
48e0: 64 75 70 28 54 63 6c 5f 47 65 74 53 74 72 69 6e  dup(Tcl_GetStrin
48f0: 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 69 5d  gFromObj(objv[i]
4900: 2c 20 26 6c 65 6e 67 74 68 29 29 3b 0a 20 20 20  , &length));.   
4910: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20               if 
4920: 28 31 20 3d 3d 20 6f 62 6a 63 20 26 26 20 21 73  (1 == objc && !s
4930: 74 72 6c 65 6e 28 6d 61 74 63 68 65 73 5b 69 5d  trlen(matches[i]
4940: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  )) {.           
4950: 20 20 20 20 20 20 20 20 20 72 6c 5f 61 74 74 65           rl_atte
4960: 6d 70 74 65 64 5f 63 6f 6d 70 6c 65 74 69 6f 6e  mpted_completion
4970: 5f 6f 76 65 72 20 3d 20 31 3b 0a 20 20 20 20 20  _over = 1;.     
4980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46                 F
4990: 52 45 45 28 6d 61 74 63 68 65 73 5b 69 5d 29 3b  REE(matches[i]);
49a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
49b0: 20 20 20 20 20 46 52 45 45 28 6d 61 74 63 68 65       FREE(matche
49c0: 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  s);.            
49d0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28          return (
49e0: 63 68 61 72 2a 2a 29 20 4e 55 4c 4c 3b 0a 20 20  char**) NULL;.  
49f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a                }.
4a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a10: 2f 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  /*.             
4a20: 20 20 20 66 70 72 69 6e 74 66 20 28 73 74 64 65     fprintf (stde
4a30: 72 72 2c 20 22 28 54 63 6c 52 65 61 64 6c 69 6e  rr, "(TclReadlin
4a40: 65 43 6f 6d 70 6c 65 74 69 6f 6e 29 20 6c 65 6e  eCompletion) len
4a50: 5b 25 73 5d 3d 25 64 5c 6e 22 2c 0a 20 20 20 20  [%s]=%d\n",.    
4a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a70: 6d 61 74 63 68 65 73 5b 69 5d 2c 20 73 74 72 6c  matches[i], strl
4a80: 65 6e 28 6d 61 74 63 68 65 73 5b 69 5d 29 29 3b  en(matches[i]));
4a90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4aa0: 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20   */.            
4ab0: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6d 61  }.            ma
4ac0: 74 63 68 65 73 5b 69 5d 20 3d 20 28 63 68 61 72  tches[i] = (char
4ad0: 2a 29 20 4e 55 4c 4c 3b 20 2f 2a 20 74 65 72 6d  *) NULL; /* term
4ae0: 69 6e 61 74 65 20 2a 2f 0a 20 20 20 20 20 20 20  inate */.       
4af0: 20 7d 0a 20 20 20 20 20 20 20 20 54 63 6c 5f 52   }.        Tcl_R
4b00: 65 73 65 74 52 65 73 75 6c 74 28 74 63 6c 72 6c  esetResult(tclrl
4b10: 5f 69 6e 74 65 72 70 29 3b 20 2f 2a 20 63 6c 65  _interp); /* cle
4b20: 61 72 20 72 65 73 75 6c 74 20 73 70 61 63 65 20  ar result space 
4b30: 2a 2f 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66  */.    }..    if
4b40: 20 28 21 6d 61 74 63 68 65 73 20 26 26 20 74 63   (!matches && tc
4b50: 6c 72 6c 5f 75 73 65 5f 62 75 69 6c 74 69 6e 5f  lrl_use_builtin_
4b60: 63 6f 6d 70 6c 65 74 65 72 29 20 7b 0a 20 20 20  completer) {.   
4b70: 20 20 20 20 20 6d 61 74 63 68 65 73 20 3d 20 63       matches = c
4b80: 6f 6d 70 6c 65 74 69 6f 6e 5f 6d 61 74 63 68 65  ompletion_matche
4b90: 73 28 74 65 78 74 2c 20 54 63 6c 52 65 61 64 6c  s(text, TclReadl
4ba0: 69 6e 65 30 67 65 6e 65 72 61 74 6f 72 29 3b 0a  ine0generator);.
4bb0: 20 20 20 20 7d 0a 23 69 66 20 30 0a 20 20 20 20      }.#if 0.    
4bc0: 7b 0a 20 20 20 20 20 20 20 20 63 68 61 72 20 2a  {.        char *
4bd0: 2a 70 74 72 3b 0a 20 20 20 20 20 20 20 20 66 6f  *ptr;.        fo
4be0: 72 20 28 70 74 72 20 3d 20 6d 61 74 63 68 65 73  r (ptr = matches
4bf0: 3b 20 70 74 72 20 26 26 20 2a 70 74 72 3b 20 70  ; ptr && *ptr; p
4c00: 74 72 2b 2b 29 0a 20 20 20 20 20 20 20 20 20 20  tr++).          
4c10: 20 20 66 70 72 69 6e 74 66 20 28 73 74 64 65 72    fprintf (stder
4c20: 72 2c 20 22 28 54 63 6c 52 65 61 64 6c 69 6e 65  r, "(TclReadline
4c30: 43 6f 6d 70 6c 65 74 69 6f 6e 29 20 7c 25 73 7c  Completion) |%s|
4c40: 5c 6e 22 2c 20 2a 70 74 72 29 3b 0a 20 20 20 20  \n", *ptr);.    
4c50: 7d 0a 23 65 6e 64 69 66 0a 20 20 20 20 0a 20 20  }.#endif.    .  
4c60: 20 20 72 65 74 75 72 6e 20 6d 61 74 63 68 65 73    return matches
4c70: 3b 0a 7d 0a 0a 63 68 61 72 2a 0a 54 63 6c 52 65  ;.}..char*.TclRe
4c80: 61 64 6c 69 6e 65 30 67 65 6e 65 72 61 74 6f 72  adline0generator
4c90: 28 63 68 61 72 2a 20 74 65 78 74 2c 20 69 6e 74  (char* text, int
4ca0: 20 73 74 61 74 65 29 0a 7b 0a 20 20 20 20 72 65   state).{.    re
4cb0: 74 75 72 6e 20 54 63 6c 52 65 61 64 6c 69 6e 65  turn TclReadline
4cc0: 4b 6e 6f 77 6e 43 6f 6d 6d 61 6e 64 73 28 74 65  KnownCommands(te
4cd0: 78 74 2c 20 73 74 61 74 65 2c 20 5f 43 4d 44 5f  xt, state, _CMD_
4ce0: 47 45 54 29 3b 0a 7d 0a 0a 63 68 61 72 2a 0a 54  GET);.}..char*.T
4cf0: 63 6c 52 65 61 64 6c 69 6e 65 4b 6e 6f 77 6e 43  clReadlineKnownC
4d00: 6f 6d 6d 61 6e 64 73 28 63 68 61 72 2a 20 74 65  ommands(char* te
4d10: 78 74 2c 20 69 6e 74 20 73 74 61 74 65 2c 20 69  xt, int state, i
4d20: 6e 74 20 6d 6f 64 65 29 0a 7b 0a 20 20 20 20 73  nt mode).{.    s
4d30: 74 61 74 69 63 20 69 6e 74 20 6c 65 6e 3b 0a 20  tatic int len;. 
4d40: 20 20 20 73 74 61 74 69 63 20 63 6d 64 73 5f 74     static cmds_t
4d50: 20 2a 63 6d 64 73 20 3d 20 28 63 6d 64 73 5f 74   *cmds = (cmds_t
4d60: 20 2a 29 20 4e 55 4c 4c 2c 20 2a 6e 65 77 3b 0a   *) NULL, *new;.
4d70: 20 20 20 20 63 68 61 72 2a 20 74 6d 70 3b 0a 20      char* tmp;. 
4d80: 20 20 20 63 68 61 72 2a 20 61 72 67 73 5b 32 35     char* args[25
4d90: 36 5d 3b 0a 20 20 20 20 69 6e 74 20 69 2c 20 61  6];.    int i, a
4da0: 72 67 63 3b 0a 20 20 20 20 63 68 61 72 2a 2a 20  rgc;.    char** 
4db0: 6e 61 6d 65 3b 0a 0a 20 20 20 20 63 68 61 72 2a  name;..    char*
4dc0: 20 6c 6f 63 61 6c 5f 6c 69 6e 65 20 3d 20 28 63   local_line = (c
4dd0: 68 61 72 2a 29 20 4e 55 4c 4c 3b 0a 20 20 20 20  har*) NULL;.    
4de0: 69 6e 74 20 73 75 62 3b 0a 0a 20 20 20 20 0a 20  int sub;..    . 
4df0: 20 20 20 73 77 69 74 63 68 20 28 6d 6f 64 65 29     switch (mode)
4e00: 20 7b 0a 20 20 20 20 20 20 20 20 0a 20 20 20 20   {.        .    
4e10: 20 20 20 20 63 61 73 65 20 5f 43 4d 44 5f 53 45      case _CMD_SE
4e20: 54 3a 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20  T:..            
4e30: 6e 65 77 20 3d 20 28 63 6d 64 73 5f 74 20 2a 29  new = (cmds_t *)
4e40: 20 4d 41 4c 4c 4f 43 28 73 69 7a 65 6f 66 28 63   MALLOC(sizeof(c
4e50: 6d 64 73 5f 74 29 29 3b 0a 20 20 20 20 20 20 20  mds_t));.       
4e60: 20 20 20 20 20 6e 65 77 2d 3e 6e 65 78 74 20 3d       new->next =
4e70: 20 28 63 6d 64 73 5f 74 20 2a 29 20 4e 55 4c 4c   (cmds_t *) NULL
4e80: 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 69  ;..            i
4e90: 66 20 28 21 63 6d 64 73 29 20 7b 0a 20 20 20 20  f (!cmds) {.    
4ea0: 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 73              cmds
4eb0: 20 3d 20 6e 65 77 3b 0a 20 20 20 20 20 20 20 20   = new;.        
4ec0: 20 20 20 20 20 20 20 20 63 6d 64 73 2d 3e 70 72          cmds->pr
4ed0: 65 76 20 3d 20 6e 65 77 3b 0a 20 20 20 20 20 20  ev = new;.      
4ee0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
4ef0: 20 20 20 20 65 6c 73 65 20 7b 0a 20 20 20 20 20      else {.     
4f00: 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 73 2d             cmds-
4f10: 3e 70 72 65 76 2d 3e 6e 65 78 74 20 3d 20 6e 65  >prev->next = ne
4f20: 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  w;.             
4f30: 20 20 20 63 6d 64 73 2d 3e 70 72 65 76 20 3d 20     cmds->prev = 
4f40: 6e 65 77 3b 0a 20 20 20 20 20 20 20 20 20 20 20  new;.           
4f50: 20 7d 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20   }..            
4f60: 74 6d 70 20 3d 20 73 74 72 64 75 70 28 74 65 78  tmp = strdup(tex
4f70: 74 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  t);.            
4f80: 61 72 67 63 20 3d 20 54 63 6c 52 65 61 64 6c 69  argc = TclReadli
4f90: 6e 65 50 61 72 73 65 28 61 72 67 73 2c 20 73 69  neParse(args, si
4fa0: 7a 65 6f 66 28 61 72 67 73 29 2c 20 74 6d 70 29  zeof(args), tmp)
4fb0: 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e  ;..            n
4fc0: 65 77 2d 3e 63 6d 64 20 3d 20 28 63 68 61 72 2a  ew->cmd = (char*
4fd0: 2a 29 20 4d 41 4c 4c 4f 43 28 73 69 7a 65 6f 66  *) MALLOC(sizeof
4fe0: 28 63 68 61 72 2a 29 20 2a 20 28 61 72 67 63 20  (char*) * (argc 
4ff0: 2b 20 31 29 29 3b 0a 0a 20 20 20 20 20 20 20 20  + 1));..        
5000: 20 20 20 20 66 6f 72 20 28 69 20 3d 20 30 3b 20      for (i = 0; 
5010: 69 20 3c 20 61 72 67 63 3b 20 69 2b 2b 29 0a 20  i < argc; i++). 
5020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e                 n
5030: 65 77 2d 3e 63 6d 64 5b 69 5d 20 3d 20 61 72 67  ew->cmd[i] = arg
5040: 73 5b 69 5d 3b 0a 0a 20 20 20 20 20 20 20 20 20  s[i];..         
5050: 20 20 20 6e 65 77 2d 3e 63 6d 64 5b 61 72 67 63     new->cmd[argc
5060: 5d 20 3d 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c  ] = (char*) NULL
5070: 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 72  ;..            r
5080: 65 74 75 72 6e 20 28 63 68 61 72 2a 29 20 4e 55  eturn (char*) NU
5090: 4c 4c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  LL;.            
50a0: 62 72 65 61 6b 3b 0a 0a 0a 20 20 20 20 20 20 20  break;...       
50b0: 20 63 61 73 65 20 5f 43 4d 44 5f 47 45 54 3a 0a   case _CMD_GET:.
50c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 63  .            loc
50d0: 61 6c 5f 6c 69 6e 65 20 3d 20 73 74 72 64 75 70  al_line = strdup
50e0: 28 72 6c 5f 6c 69 6e 65 5f 62 75 66 66 65 72 29  (rl_line_buffer)
50f0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 75  ;.            su
5100: 62 20 3d 20 54 63 6c 52 65 61 64 6c 69 6e 65 50  b = TclReadlineP
5110: 61 72 73 65 28 61 72 67 73 2c 20 73 69 7a 65 6f  arse(args, sizeo
5120: 66 28 61 72 67 73 29 2c 20 6c 6f 63 61 6c 5f 6c  f(args), local_l
5130: 69 6e 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20  ine);.          
5140: 20 20 2f 2a 0a 20 20 20 20 20 20 20 20 20 20 20    /*.           
5150: 20 20 2a 20 66 70 72 69 6e 74 66 20 28 73 74 64    * fprintf (std
5160: 65 72 72 2c 20 22 28 54 63 6c 52 65 61 64 6c 69  err, "(TclReadli
5170: 6e 65 4b 6e 6f 77 6e 43 6f 6d 6d 61 6e 64 73 29  neKnownCommands)
5180: 20 73 74 61 74 65 3d 25 64 5c 6e 22 2c 20 73 74   state=%d\n", st
5190: 61 74 65 29 3b 0a 20 20 20 20 20 20 20 20 20 20  ate);.          
51a0: 20 20 20 2a 20 66 70 72 69 6e 74 66 20 28 73 74     * fprintf (st
51b0: 64 65 72 72 2c 20 22 28 54 63 6c 52 65 61 64 6c  derr, "(TclReadl
51c0: 69 6e 65 4b 6e 6f 77 6e 43 6f 6d 6d 61 6e 64 73  ineKnownCommands
51d0: 29 20 74 65 78 74 20 3d 20 7c 25 73 7c 5c 6e 22  ) text = |%s|\n"
51e0: 2c 20 74 65 78 74 29 3b 0a 20 20 20 20 20 20 20  , text);.       
51f0: 20 20 20 20 20 20 2a 2f 0a 0a 20 20 20 20 20 20        */..      
5200: 20 20 20 20 20 20 69 66 20 28 30 20 3d 3d 20 73        if (0 == s
5210: 75 62 20 7c 7c 20 28 31 20 3d 3d 20 73 75 62 20  ub || (1 == sub 
5220: 26 26 20 27 5c 30 27 20 21 3d 20 74 65 78 74 5b  && '\0' != text[
5230: 30 5d 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20  0])) {.         
5240: 20 20 20 20 20 20 20 69 66 20 28 21 73 74 61 74         if (!stat
5250: 65 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  e) {.           
5260: 20 20 20 20 20 20 20 20 20 6e 65 77 20 3d 20 63           new = c
5270: 6d 64 73 3b 0a 20 20 20 20 20 20 20 20 20 20 20  mds;.           
5280: 20 20 20 20 20 20 20 20 20 6c 65 6e 20 3d 20 73           len = s
5290: 74 72 6c 65 6e 28 74 65 78 74 29 3b 0a 20 20 20  trlen(text);.   
52a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20               }. 
52b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77                 w
52c0: 68 69 6c 65 20 28 6e 65 77 20 26 26 20 28 6e 61  hile (new && (na
52d0: 6d 65 20 3d 20 6e 65 77 2d 3e 63 6d 64 29 29 20  me = new->cmd)) 
52e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  {.              
52f0: 20 20 20 20 20 20 6e 65 77 20 3d 20 6e 65 77 2d        new = new-
5300: 3e 6e 65 78 74 3b 0a 20 20 20 20 20 20 20 20 20  >next;.         
5310: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 21             if (!
5320: 73 74 72 6e 63 6d 70 28 6e 61 6d 65 5b 30 5d 2c  strncmp(name[0],
5330: 20 74 65 78 74 2c 20 6c 65 6e 29 29 0a 20 20 20   text, len)).   
5340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5350: 20 20 20 20 20 72 65 74 75 72 6e 20 73 74 72 64       return strd
5360: 75 70 28 6e 61 6d 65 5b 30 5d 29 3b 0a 20 20 20  up(name[0]);.   
5370: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20               }. 
5380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72                 r
5390: 65 74 75 72 6e 20 28 63 68 61 72 2a 29 20 4e 55  eturn (char*) NU
53a0: 4c 4c 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  LL;.            
53b0: 7d 20 65 6c 73 65 20 7b 0a 0a 20 20 20 20 20 20  } else {..      
53c0: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 21 73            if (!s
53d0: 74 61 74 65 29 20 7b 0a 0a 20 20 20 20 20 20 20  tate) {..       
53e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77               new
53f0: 20 3d 20 63 6d 64 73 3b 0a 20 20 20 20 20 20 20   = cmds;.       
5400: 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 6e               len
5410: 20 3d 20 73 74 72 6c 65 6e 28 74 65 78 74 29 3b   = strlen(text);
5420: 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
5430: 20 20 20 20 20 20 77 68 69 6c 65 20 28 6e 65 77        while (new
5440: 20 26 26 20 28 6e 61 6d 65 20 3d 20 6e 65 77 2d   && (name = new-
5450: 3e 63 6d 64 29 29 20 7b 0a 20 20 20 20 20 20 20  >cmd)) {.       
5460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5470: 20 69 66 20 28 21 73 74 72 63 6d 70 28 6e 61 6d   if (!strcmp(nam
5480: 65 5b 30 5d 2c 20 61 72 67 73 5b 30 5d 29 29 0a  e[0], args[0])).
5490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
54a0: 20 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61              brea
54b0: 6b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  k;.             
54c0: 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 20 3d             new =
54d0: 20 6e 65 77 2d 3e 6e 65 78 74 3b 0a 20 20 20 20   new->next;.    
54e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
54f0: 7d 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
5500: 20 20 20 20 20 20 20 69 66 20 28 21 6e 65 77 29         if (!new)
5510: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
5520: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
5530: 28 63 68 61 72 2a 29 20 4e 55 4c 4c 3b 0a 0a 20  (char*) NULL;.. 
5540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5550: 20 20 20 66 6f 72 20 28 69 20 3d 20 30 3b 20 6e     for (i = 0; n
5560: 65 77 2d 3e 63 6d 64 5b 69 5d 3b 20 69 2b 2b 29  ew->cmd[i]; i++)
5570: 20 2f 2a 20 45 4d 50 54 59 20 2a 2f 3b 0a 0a 20   /* EMPTY */;.. 
5580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5590: 20 20 20 69 66 20 28 73 75 62 20 3c 20 69 20 26     if (sub < i &
55a0: 26 20 21 73 74 72 6e 63 6d 70 28 6e 65 77 2d 3e  & !strncmp(new->
55b0: 63 6d 64 5b 73 75 62 5d 2c 20 74 65 78 74 2c 20  cmd[sub], text, 
55c0: 6c 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20  len)).          
55d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
55e0: 74 75 72 6e 20 73 74 72 64 75 70 28 6e 65 77 2d  turn strdup(new-
55f0: 3e 63 6d 64 5b 73 75 62 5d 29 3b 0a 20 20 20 20  >cmd[sub]);.    
5600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5610: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20  else.           
5620: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74               ret
5630: 75 72 6e 20 28 63 68 61 72 2a 29 20 4e 55 4c 4c  urn (char*) NULL
5640: 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
5650: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20     }.           
5660: 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20       else.      
5670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
5680: 74 75 72 6e 20 28 63 68 61 72 2a 29 20 4e 55 4c  turn (char*) NUL
5690: 4c 3b 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20  L;..            
56a0: 20 20 20 20 2f 2a 20 4e 4f 54 52 45 41 43 48 45      /* NOTREACHE
56b0: 44 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 20  D */.           
56c0: 20 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 20 20       break;.    
56d0: 20 20 20 20 20 20 20 20 7d 0a 0a 0a 20 20 20 20          }...    
56e0: 20 20 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 20      default:.   
56f0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
5700: 28 63 68 61 72 2a 29 20 4e 55 4c 4c 3b 0a 20 20  (char*) NULL;.  
5710: 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b 3b            break;
5720: 0a 0a 20 20 20 20 7d 0a 20 20 20 20 2f 2a 20 4e  ..    }.    /* N
5730: 4f 54 52 45 41 43 48 45 44 20 2a 2f 0a 7d 0a 0a  OTREACHED */.}..
5740: 69 6e 74 0a 54 63 6c 52 65 61 64 6c 69 6e 65 50  int.TclReadlineP
5750: 61 72 73 65 28 63 68 61 72 2a 2a 20 61 72 67 73  arse(char** args
5760: 2c 20 69 6e 74 20 6d 61 78 61 72 67 73 2c 20 63  , int maxargs, c
5770: 68 61 72 2a 20 62 75 66 29 0a 7b 0a 20 20 20 20  har* buf).{.    
5780: 69 6e 74 20 6e 72 20 3d 20 30 3b 0a 0a 20 20 20  int nr = 0;..   
5790: 20 77 68 69 6c 65 20 28 2a 62 75 66 20 21 3d 20   while (*buf != 
57a0: 27 5c 30 27 20 26 26 20 6e 72 20 3c 20 6d 61 78  '\0' && nr < max
57b0: 61 72 67 73 29 20 7b 0a 20 20 20 20 20 20 20 20  args) {.        
57c0: 2f 2a 0a 20 20 20 20 20 20 20 20 20 2a 20 53 74  /*.         * St
57d0: 72 69 70 20 77 68 69 74 65 73 70 61 63 65 2e 20  rip whitespace. 
57e0: 20 55 73 65 20 6e 75 6c 6c 73 2c 20 73 6f 0a 20   Use nulls, so. 
57f0: 20 20 20 20 20 20 20 20 2a 20 74 68 61 74 20 74          * that t
5800: 68 65 20 70 72 65 76 69 6f 75 73 20 61 72 67 75  he previous argu
5810: 6d 65 6e 74 20 69 73 20 74 65 72 6d 69 6e 61 74  ment is terminat
5820: 65 64 0a 20 20 20 20 20 20 20 20 20 2a 20 61 75  ed.         * au
5830: 74 6f 6d 61 74 69 63 61 6c 6c 79 2e 0a 20 20 20  tomatically..   
5840: 20 20 20 20 20 20 2a 2f 0a 20 20 20 20 20 20 20        */.       
5850: 20 77 68 69 6c 65 20 28 49 53 57 48 49 54 45 28   while (ISWHITE(
5860: 2a 62 75 66 29 29 0a 20 20 20 20 20 20 20 20 20  *buf)).         
5870: 20 20 20 2a 62 75 66 2b 2b 20 3d 20 27 5c 30 27     *buf++ = '\0'
5880: 3b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 28 21  ;..        if (!
5890: 28 2a 62 75 66 29 29 20 2f 2a 20 64 6f 6e 27 74  (*buf)) /* don't
58a0: 20 63 6f 75 6e 74 20 74 68 65 20 74 65 72 6d 69   count the termi
58b0: 6e 61 74 69 6e 67 20 4e 55 4c 4c 20 2a 2f 0a 20  nating NULL */. 
58c0: 20 20 20 20 20 20 20 20 20 20 20 62 72 65 61 6b             break
58d0: 3b 0a 0a 20 20 20 20 20 20 20 20 2a 61 72 67 73  ;..        *args
58e0: 2b 2b 20 3d 20 62 75 66 3b 0a 20 20 20 20 20 20  ++ = buf;.      
58f0: 20 20 6e 72 2b 2b 3b 0a 0a 20 20 20 20 20 20 20    nr++;..       
5900: 20 77 68 69 6c 65 20 28 28 27 5c 30 27 20 21 3d   while (('\0' !=
5910: 20 2a 62 75 66 29 20 26 26 20 21 49 53 57 48 49   *buf) && !ISWHI
5920: 54 45 28 2a 62 75 66 29 29 0a 20 20 20 20 20 20  TE(*buf)).      
5930: 20 20 20 20 20 20 62 75 66 2b 2b 3b 0a 20 20 20        buf++;.   
5940: 20 7d 0a 0a 20 20 20 20 2a 61 72 67 73 20 3d 20   }..    *args = 
5950: 27 5c 30 27 3b 0a 20 20 20 20 72 65 74 75 72 6e  '\0';.    return
5960: 20 6e 72 3b 0a 7d 0a                              nr;.}.