Hex Artifact Content

Artifact 3d239d88d7fd8f9f82673bca1c8b926016b41800:


0000: 23 69 6e 63 6c 75 64 65 20 3c 74 63 6c 2e 68 3e  #include <tcl.h>
0010: 0a 0a 23 69 66 64 65 66 20 48 41 56 45 5f 53 54  ..#ifdef HAVE_ST
0020: 44 4c 49 42 5f 48 0a 23 20 20 69 6e 63 6c 75 64  DLIB_H.#  includ
0030: 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 65 6e  e <stdlib.h>.#en
0040: 64 69 66 0a 0a 74 79 70 65 64 65 66 20 73 74 72  dif..typedef str
0050: 75 63 74 20 6b 69 74 64 6c 6c 5f 64 61 74 61 20  uct kitdll_data 
0060: 2a 28 63 6d 64 5f 67 65 74 44 61 74 61 5f 74 29  *(cmd_getData_t)
0070: 28 63 6f 6e 73 74 20 63 68 61 72 20 2a 2c 20 75  (const char *, u
0080: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 29 3b 0a 74  nsigned long);.t
0090: 79 70 65 64 65 66 20 75 6e 73 69 67 6e 65 64 20  ypedef unsigned 
00a0: 6c 6f 6e 67 20 28 63 6d 64 5f 67 65 74 43 68 69  long (cmd_getChi
00b0: 6c 64 72 65 6e 5f 74 29 28 63 6f 6e 73 74 20 63  ldren_t)(const c
00c0: 68 61 72 20 2a 2c 20 75 6e 73 69 67 6e 65 64 20  har *, unsigned 
00d0: 6c 6f 6e 67 20 2a 2c 20 75 6e 73 69 67 6e 65 64  long *, unsigned
00e0: 20 6c 6f 6e 67 29 3b 0a 0a 2f 2a 20 59 6f 75 72   long);../* Your
00f0: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   implementation 
0100: 6d 75 73 74 20 70 72 6f 76 69 64 65 20 74 68 65  must provide the
0110: 73 65 20 2a 2f 0a 73 74 61 74 69 63 20 63 6d 64  se */.static cmd
0120: 5f 67 65 74 44 61 74 61 5f 74 20 2a 67 65 74 43  _getData_t *getC
0130: 6d 64 44 61 74 61 28 63 6f 6e 73 74 20 63 68 61  mdData(const cha
0140: 72 20 2a 68 61 73 68 6b 65 79 29 3b 0a 73 74 61  r *hashkey);.sta
0150: 74 69 63 20 63 6d 64 5f 67 65 74 43 68 69 6c 64  tic cmd_getChild
0160: 72 65 6e 5f 74 20 2a 67 65 74 43 6d 64 43 68 69  ren_t *getCmdChi
0170: 6c 64 72 65 6e 28 63 6f 6e 73 74 20 63 68 61 72  ldren(const char
0180: 20 2a 68 61 73 68 6b 65 79 29 3b 0a 0a 2f 2a 20   *hashkey);../* 
0190: 54 63 6c 20 43 6f 6d 6d 61 6e 64 73 20 2a 2f 0a  Tcl Commands */.
01a0: 73 74 61 74 69 63 20 69 6e 74 20 67 65 74 4d 65  static int getMe
01b0: 74 61 64 61 74 61 28 43 6c 69 65 6e 74 44 61 74  tadata(ClientDat
01c0: 61 20 63 64 2c 20 54 63 6c 5f 49 6e 74 65 72 70  a cd, Tcl_Interp
01d0: 20 2a 69 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62   *interp, int ob
01e0: 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e  jc, Tcl_Obj *CON
01f0: 53 54 20 6f 62 6a 76 5b 5d 29 20 7b 0a 09 63 6d  ST objv[]) {..cm
0200: 64 5f 67 65 74 44 61 74 61 5f 74 20 2a 63 6d 64  d_getData_t *cmd
0210: 5f 67 65 74 44 61 74 61 3b 0a 09 63 6d 64 5f 67  _getData;..cmd_g
0220: 65 74 43 68 69 6c 64 72 65 6e 5f 74 20 2a 63 6d  etChildren_t *cm
0230: 64 5f 67 65 74 43 68 69 6c 64 72 65 6e 3b 0a 09  d_getChildren;..
0240: 73 74 72 75 63 74 20 6b 69 74 64 6c 6c 5f 64 61  struct kitdll_da
0250: 74 61 20 2a 66 69 6e 66 6f 20 3d 20 4e 55 4c 4c  ta *finfo = NULL
0260: 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 65 74 5f  ;..Tcl_Obj *ret_
0270: 6c 69 73 74 2c 20 2a 72 65 74 5f 6c 69 73 74 5f  list, *ret_list_
0280: 69 74 65 6d 73 5b 32 30 5d 3b 0a 09 75 6e 73 69  items[20];..unsi
0290: 67 6e 65 64 20 6c 6f 6e 67 20 6e 75 6d 5f 63 68  gned long num_ch
02a0: 69 6c 64 72 65 6e 3b 0a 09 63 6f 6e 73 74 20 63  ildren;..const c
02b0: 68 61 72 20 2a 68 61 73 68 6b 65 79 3b 0a 09 63  har *hashkey;..c
02c0: 6f 6e 73 74 20 63 68 61 72 20 2a 66 69 6c 65 3b  onst char *file;
02d0: 0a 0a 09 69 66 20 28 6f 62 6a 63 20 21 3d 20 33  ...if (objc != 3
02e0: 29 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73  ) {...Tcl_SetRes
02f0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f  ult(interp, "wro
0300: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
0310: 64 20 62 65 20 5c 22 67 65 74 4d 65 74 61 64 61  d be \"getMetada
0320: 74 61 20 68 61 73 68 4b 65 79 20 66 69 6c 65 4e  ta hashKey fileN
0330: 61 6d 65 5c 22 22 2c 20 54 43 4c 5f 53 54 41 54  ame\"", TCL_STAT
0340: 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54  IC);....return(T
0350: 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09  CL_ERROR);..}...
0360: 68 61 73 68 6b 65 79 20 3d 20 54 63 6c 5f 47 65  hashkey = Tcl_Ge
0370: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29  tString(objv[1])
0380: 3b 0a 09 66 69 6c 65 20 3d 20 54 63 6c 5f 47 65  ;..file = Tcl_Ge
0390: 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29  tString(objv[2])
03a0: 3b 0a 0a 09 63 6d 64 5f 67 65 74 44 61 74 61 20  ;...cmd_getData 
03b0: 3d 20 67 65 74 43 6d 64 44 61 74 61 28 68 61 73  = getCmdData(has
03c0: 68 6b 65 79 29 3b 0a 09 63 6d 64 5f 67 65 74 43  hkey);..cmd_getC
03d0: 68 69 6c 64 72 65 6e 20 3d 20 67 65 74 43 6d 64  hildren = getCmd
03e0: 43 68 69 6c 64 72 65 6e 28 68 61 73 68 6b 65 79  Children(hashkey
03f0: 29 3b 0a 0a 09 69 66 20 28 63 6d 64 5f 67 65 74  );...if (cmd_get
0400: 44 61 74 61 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20  Data == NULL || 
0410: 63 6d 64 5f 67 65 74 43 68 69 6c 64 72 65 6e 20  cmd_getChildren 
0420: 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 54 63 6c  == NULL) {...Tcl
0430: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
0440: 70 2c 20 22 4e 6f 20 73 75 63 68 20 68 61 73 68  p, "No such hash
0450: 6b 65 79 22 2c 20 54 43 4c 5f 53 54 41 54 49 43  key", TCL_STATIC
0460: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54 43 4c  );....return(TCL
0470: 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 66 69  _ERROR);..}...fi
0480: 6e 66 6f 20 3d 20 63 6d 64 5f 67 65 74 44 61 74  nfo = cmd_getDat
0490: 61 28 66 69 6c 65 2c 20 30 29 3b 0a 0a 09 69 66  a(file, 0);...if
04a0: 20 28 66 69 6e 66 6f 20 3d 3d 20 4e 55 4c 4c 29   (finfo == NULL)
04b0: 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75   {...Tcl_SetResu
04c0: 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 73  lt(interp, "No s
04d0: 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72 65  uch file or dire
04e0: 63 74 6f 72 79 22 2c 20 54 43 4c 5f 53 54 41 54  ctory", TCL_STAT
04f0: 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54  IC);....return(T
0500: 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09  CL_ERROR);..}...
0510: 2f 2a 20 56 61 6c 75 65 73 20 74 68 61 74 20 63  /* Values that c
0520: 61 6e 20 62 65 20 64 65 72 69 76 65 64 20 66 72  an be derived fr
0530: 6f 6d 20 22 66 69 6e 66 6f 22 20 2a 2f 0a 09 72  om "finfo" */..r
0540: 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 30 5d  et_list_items[0]
0550: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
0560: 4f 62 6a 28 22 74 79 70 65 22 2c 20 34 29 3b 0a  Obj("type", 4);.
0570: 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b  .ret_list_items[
0580: 32 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  2] = Tcl_NewStri
0590: 6e 67 4f 62 6a 28 22 6d 6f 64 65 22 2c 20 34 29  ngObj("mode", 4)
05a0: 3b 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d  ;..ret_list_item
05b0: 73 5b 34 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74  s[4] = Tcl_NewSt
05c0: 72 69 6e 67 4f 62 6a 28 22 6e 6c 69 6e 6b 22 2c  ringObj("nlink",
05d0: 20 35 29 3b 0a 0a 09 69 66 20 28 66 69 6e 66 6f   5);...if (finfo
05e0: 2d 3e 74 79 70 65 20 3d 3d 20 4b 49 54 44 4c 4c  ->type == KITDLL
05f0: 5f 46 49 4c 45 54 59 50 45 5f 44 49 52 29 20 7b  _FILETYPE_DIR) {
0600: 0a 09 09 6e 75 6d 5f 63 68 69 6c 64 72 65 6e 20  ...num_children 
0610: 3d 20 63 6d 64 5f 67 65 74 43 68 69 6c 64 72 65  = cmd_getChildre
0620: 6e 28 66 69 6c 65 2c 20 4e 55 4c 4c 2c 20 30 29  n(file, NULL, 0)
0630: 3b 0a 0a 09 09 72 65 74 5f 6c 69 73 74 5f 69 74  ;....ret_list_it
0640: 65 6d 73 5b 31 5d 20 3d 20 54 63 6c 5f 4e 65 77  ems[1] = Tcl_New
0650: 53 74 72 69 6e 67 4f 62 6a 28 22 64 69 72 65 63  StringObj("direc
0660: 74 6f 72 79 22 2c 20 39 29 3b 0a 09 09 72 65 74  tory", 9);...ret
0670: 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 33 5d 20 3d  _list_items[3] =
0680: 20 54 63 6c 5f 4e 65 77 4c 6f 6e 67 4f 62 6a 28   Tcl_NewLongObj(
0690: 30 34 30 35 35 35 29 3b 0a 09 09 72 65 74 5f 6c  040555);...ret_l
06a0: 69 73 74 5f 69 74 65 6d 73 5b 35 5d 20 3d 20 54  ist_items[5] = T
06b0: 63 6c 5f 4e 65 77 4c 6f 6e 67 4f 62 6a 28 6e 75  cl_NewLongObj(nu
06c0: 6d 5f 63 68 69 6c 64 72 65 6e 29 3b 0a 09 7d 20  m_children);..} 
06d0: 65 6c 73 65 20 7b 0a 09 09 72 65 74 5f 6c 69 73  else {...ret_lis
06e0: 74 5f 69 74 65 6d 73 5b 31 5d 20 3d 20 54 63 6c  t_items[1] = Tcl
06f0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 66  _NewStringObj("f
0700: 69 6c 65 22 2c 20 34 29 3b 0a 09 09 72 65 74 5f  ile", 4);...ret_
0710: 6c 69 73 74 5f 69 74 65 6d 73 5b 33 5d 20 3d 20  list_items[3] = 
0720: 54 63 6c 5f 4e 65 77 4c 6f 6e 67 4f 62 6a 28 30  Tcl_NewLongObj(0
0730: 34 34 34 29 3b 0a 09 09 72 65 74 5f 6c 69 73 74  444);...ret_list
0740: 5f 69 74 65 6d 73 5b 35 5d 20 3d 20 54 63 6c 5f  _items[5] = Tcl_
0750: 4e 65 77 4c 6f 6e 67 4f 62 6a 28 31 29 3b 0a 09  NewLongObj(1);..
0760: 7d 0a 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65  }...ret_list_ite
0770: 6d 73 5b 36 5d 20 3d 20 54 63 6c 5f 4e 65 77 53  ms[6] = Tcl_NewS
0780: 74 72 69 6e 67 4f 62 6a 28 22 69 6e 6f 22 2c 20  tringObj("ino", 
0790: 33 29 3b 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74  3);..ret_list_it
07a0: 65 6d 73 5b 37 5d 20 3d 20 54 63 6c 5f 4e 65 77  ems[7] = Tcl_New
07b0: 4c 6f 6e 67 4f 62 6a 28 66 69 6e 66 6f 2d 3e 69  LongObj(finfo->i
07c0: 6e 64 65 78 29 3b 0a 0a 09 72 65 74 5f 6c 69 73  ndex);...ret_lis
07d0: 74 5f 69 74 65 6d 73 5b 38 5d 20 3d 20 54 63 6c  t_items[8] = Tcl
07e0: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 73  _NewStringObj("s
07f0: 69 7a 65 22 2c 20 34 29 3b 0a 09 72 65 74 5f 6c  ize", 4);..ret_l
0800: 69 73 74 5f 69 74 65 6d 73 5b 39 5d 20 3d 20 54  ist_items[9] = T
0810: 63 6c 5f 4e 65 77 4c 6f 6e 67 4f 62 6a 28 66 69  cl_NewLongObj(fi
0820: 6e 66 6f 2d 3e 73 69 7a 65 29 3b 0a 0a 09 2f 2a  nfo->size);.../*
0830: 20 44 75 6d 6d 79 20 76 61 6c 75 65 73 20 2a 2f   Dummy values */
0840: 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73  ..ret_list_items
0850: 5b 31 30 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74  [10] = Tcl_NewSt
0860: 72 69 6e 67 4f 62 6a 28 22 75 69 64 22 2c 20 33  ringObj("uid", 3
0870: 29 3b 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65  );..ret_list_ite
0880: 6d 73 5b 31 31 5d 20 3d 20 54 63 6c 5f 4e 65 77  ms[11] = Tcl_New
0890: 53 74 72 69 6e 67 4f 62 6a 28 22 30 22 2c 20 31  StringObj("0", 1
08a0: 29 3b 0a 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74  );...ret_list_it
08b0: 65 6d 73 5b 31 32 5d 20 3d 20 54 63 6c 5f 4e 65  ems[12] = Tcl_Ne
08c0: 77 53 74 72 69 6e 67 4f 62 6a 28 22 67 69 64 22  wStringObj("gid"
08d0: 2c 20 33 29 3b 0a 09 72 65 74 5f 6c 69 73 74 5f  , 3);..ret_list_
08e0: 69 74 65 6d 73 5b 31 33 5d 20 3d 20 54 63 6c 5f  items[13] = Tcl_
08f0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 30 22  NewStringObj("0"
0900: 2c 20 31 29 3b 0a 0a 09 72 65 74 5f 6c 69 73 74  , 1);...ret_list
0910: 5f 69 74 65 6d 73 5b 31 34 5d 20 3d 20 54 63 6c  _items[14] = Tcl
0920: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 61  _NewStringObj("a
0930: 74 69 6d 65 22 2c 20 35 29 3b 0a 09 72 65 74 5f  time", 5);..ret_
0940: 6c 69 73 74 5f 69 74 65 6d 73 5b 31 35 5d 20 3d  list_items[15] =
0950: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
0960: 6a 28 22 30 22 2c 20 31 29 3b 0a 0a 09 72 65 74  j("0", 1);...ret
0970: 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 31 36 5d 20  _list_items[16] 
0980: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  = Tcl_NewStringO
0990: 62 6a 28 22 6d 74 69 6d 65 22 2c 20 35 29 3b 0a  bj("mtime", 5);.
09a0: 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b  .ret_list_items[
09b0: 31 37 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72  17] = Tcl_NewStr
09c0: 69 6e 67 4f 62 6a 28 22 30 22 2c 20 31 29 3b 0a  ingObj("0", 1);.
09d0: 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73  ..ret_list_items
09e0: 5b 31 38 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74  [18] = Tcl_NewSt
09f0: 72 69 6e 67 4f 62 6a 28 22 63 74 69 6d 65 22 2c  ringObj("ctime",
0a00: 20 35 29 3b 0a 09 72 65 74 5f 6c 69 73 74 5f 69   5);..ret_list_i
0a10: 74 65 6d 73 5b 31 39 5d 20 3d 20 54 63 6c 5f 4e  tems[19] = Tcl_N
0a20: 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 30 22 2c  ewStringObj("0",
0a30: 20 31 29 3b 0a 0a 09 72 65 74 5f 6c 69 73 74 20   1);...ret_list 
0a40: 3d 20 54 63 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a  = Tcl_NewListObj
0a50: 28 73 69 7a 65 6f 66 28 72 65 74 5f 6c 69 73 74  (sizeof(ret_list
0a60: 5f 69 74 65 6d 73 29 20 2f 20 73 69 7a 65 6f 66  _items) / sizeof
0a70: 28 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b  (ret_list_items[
0a80: 30 5d 29 2c 20 72 65 74 5f 6c 69 73 74 5f 69 74  0]), ret_list_it
0a90: 65 6d 73 29 3b 0a 0a 09 54 63 6c 5f 53 65 74 4f  ems);...Tcl_SetO
0aa0: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
0ab0: 20 72 65 74 5f 6c 69 73 74 29 3b 0a 0a 09 72 65   ret_list);...re
0ac0: 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 7d 0a  turn(TCL_OK);.}.
0ad0: 0a 73 74 61 74 69 63 20 69 6e 74 20 67 65 74 44  .static int getD
0ae0: 61 74 61 28 43 6c 69 65 6e 74 44 61 74 61 20 63  ata(ClientData c
0af0: 64 2c 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  d, Tcl_Interp *i
0b00: 6e 74 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c  nterp, int objc,
0b10: 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20   Tcl_Obj *CONST 
0b20: 6f 62 6a 76 5b 5d 29 20 7b 0a 09 73 74 72 75 63  objv[]) {..struc
0b30: 74 20 6b 69 74 64 6c 6c 5f 64 61 74 61 20 2a 66  t kitdll_data *f
0b40: 69 6e 66 6f 20 3d 20 4e 55 4c 4c 3b 0a 09 63 6d  info = NULL;..cm
0b50: 64 5f 67 65 74 44 61 74 61 5f 74 20 2a 63 6d 64  d_getData_t *cmd
0b60: 5f 67 65 74 44 61 74 61 3b 0a 09 63 6f 6e 73 74  _getData;..const
0b70: 20 63 68 61 72 20 2a 68 61 73 68 6b 65 79 3b 0a   char *hashkey;.
0b80: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 69 6c  .const char *fil
0b90: 65 3b 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a  e;..const char *
0ba0: 65 6e 64 5f 73 74 72 3b 0a 09 54 63 6c 5f 4f 62  end_str;..Tcl_Ob
0bb0: 6a 20 2a 72 65 74 5f 73 74 72 3b 0a 09 6c 6f 6e  j *ret_str;..lon
0bc0: 67 20 73 74 61 72 74 20 3d 20 30 3b 0a 09 6c 6f  g start = 0;..lo
0bd0: 6e 67 20 65 6e 64 20 3d 20 2d 31 3b 0a 09 69 6e  ng end = -1;..in
0be0: 74 20 74 63 6c 47 65 74 4c 46 4f 5f 72 65 74 3b  t tclGetLFO_ret;
0bf0: 0a 0a 09 69 66 20 28 6f 62 6a 63 20 3c 20 33 20  ...if (objc < 3 
0c00: 7c 7c 20 6f 62 6a 63 20 3e 20 35 29 20 7b 0a 09  || objc > 5) {..
0c10: 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69  .Tcl_SetResult(i
0c20: 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20  nterp, "wrong # 
0c30: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20  args: should be 
0c40: 5c 22 67 65 74 44 61 74 61 20 68 61 73 68 4b 65  \"getData hashKe
0c50: 79 20 66 69 6c 65 4e 61 6d 65 20 3f 73 74 61 72  y fileName ?star
0c60: 74 3f 20 3f 65 6e 64 3f 5c 22 22 2c 20 54 43 4c  t? ?end?\"", TCL
0c70: 5f 53 54 41 54 49 43 29 3b 0a 0a 09 09 72 65 74  _STATIC);....ret
0c80: 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a  urn(TCL_ERROR);.
0c90: 09 7d 0a 0a 09 68 61 73 68 6b 65 79 20 3d 20 54  .}...hashkey = T
0ca0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
0cb0: 76 5b 31 5d 29 3b 0a 09 66 69 6c 65 20 3d 20 54  v[1]);..file = T
0cc0: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
0cd0: 76 5b 32 5d 29 3b 0a 0a 09 69 66 20 28 6f 62 6a  v[2]);...if (obj
0ce0: 63 20 3e 20 33 29 20 7b 0a 09 09 74 63 6c 47 65  c > 3) {...tclGe
0cf0: 74 4c 46 4f 5f 72 65 74 20 3d 20 54 63 6c 5f 47  tLFO_ret = Tcl_G
0d00: 65 74 4c 6f 6e 67 46 72 6f 6d 4f 62 6a 28 69 6e  etLongFromObj(in
0d10: 74 65 72 70 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26  terp, objv[3], &
0d20: 73 74 61 72 74 29 3b 0a 0a 09 09 69 66 20 28 74  start);....if (t
0d30: 63 6c 47 65 74 4c 46 4f 5f 72 65 74 20 21 3d 20  clGetLFO_ret != 
0d40: 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 09 72 65 74  TCL_OK) {....ret
0d50: 75 72 6e 28 74 63 6c 47 65 74 4c 46 4f 5f 72 65  urn(tclGetLFO_re
0d60: 74 29 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 69 66 20  t);...}..}...if 
0d70: 28 6f 62 6a 63 20 3e 20 34 29 20 7b 0a 09 09 65  (objc > 4) {...e
0d80: 6e 64 5f 73 74 72 20 3d 20 54 63 6c 5f 47 65 74  nd_str = Tcl_Get
0d90: 53 74 72 69 6e 67 28 6f 62 6a 76 5b 34 5d 29 3b  String(objv[4]);
0da0: 0a 09 09 69 66 20 28 73 74 72 63 6d 70 28 65 6e  ...if (strcmp(en
0db0: 64 5f 73 74 72 2c 20 22 65 6e 64 22 29 20 3d 3d  d_str, "end") ==
0dc0: 20 30 29 20 7b 0a 09 09 09 65 6e 64 20 3d 20 2d   0) {....end = -
0dd0: 31 3b 0a 09 09 7d 20 65 6c 73 65 20 7b 0a 09 09  1;...} else {...
0de0: 09 74 63 6c 47 65 74 4c 46 4f 5f 72 65 74 20 3d  .tclGetLFO_ret =
0df0: 20 54 63 6c 5f 47 65 74 4c 6f 6e 67 46 72 6f 6d   Tcl_GetLongFrom
0e00: 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76  Obj(interp, objv
0e10: 5b 34 5d 2c 20 26 65 6e 64 29 3b 0a 0a 09 09 09  [4], &end);.....
0e20: 69 66 20 28 74 63 6c 47 65 74 4c 46 4f 5f 72 65  if (tclGetLFO_re
0e30: 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09  t != TCL_OK) {..
0e40: 09 09 09 72 65 74 75 72 6e 28 74 63 6c 47 65 74  ...return(tclGet
0e50: 4c 46 4f 5f 72 65 74 29 3b 0a 09 09 09 7d 0a 09  LFO_ret);....}..
0e60: 09 7d 0a 09 7d 0a 0a 09 63 6d 64 5f 67 65 74 44  .}..}...cmd_getD
0e70: 61 74 61 20 3d 20 67 65 74 43 6d 64 44 61 74 61  ata = getCmdData
0e80: 28 68 61 73 68 6b 65 79 29 3b 0a 0a 09 69 66 20  (hashkey);...if 
0e90: 28 63 6d 64 5f 67 65 74 44 61 74 61 20 3d 3d 20  (cmd_getData == 
0ea0: 4e 55 4c 4c 29 20 7b 0a 09 09 54 63 6c 5f 53 65  NULL) {...Tcl_Se
0eb0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
0ec0: 22 4e 6f 20 73 75 63 68 20 68 61 73 68 6b 65 79  "No such hashkey
0ed0: 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a  ", TCL_STATIC);.
0ee0: 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52  ...return(TCL_ER
0ef0: 52 4f 52 29 3b 0a 09 7d 0a 0a 09 66 69 6e 66 6f  ROR);..}...finfo
0f00: 20 3d 20 63 6d 64 5f 67 65 74 44 61 74 61 28 66   = cmd_getData(f
0f10: 69 6c 65 2c 20 30 29 3b 0a 0a 09 69 66 20 28 66  ile, 0);...if (f
0f20: 69 6e 66 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  info == NULL) {.
0f30: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28  ..Tcl_SetResult(
0f40: 69 6e 74 65 72 70 2c 20 22 4e 6f 20 73 75 63 68  interp, "No such
0f50: 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f   file or directo
0f60: 72 79 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29  ry", TCL_STATIC)
0f70: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f  ;....return(TCL_
0f80: 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69 66 20  ERROR);..}...if 
0f90: 28 66 69 6e 66 6f 2d 3e 74 79 70 65 20 21 3d 20  (finfo->type != 
0fa0: 4b 49 54 44 4c 4c 5f 46 49 4c 45 54 59 50 45 5f  KITDLL_FILETYPE_
0fb0: 46 49 4c 45 29 20 7b 0a 09 09 54 63 6c 5f 53 65  FILE) {...Tcl_Se
0fc0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
0fd0: 22 4e 6f 74 20 61 20 66 69 6c 65 22 2c 20 54 43  "Not a file", TC
0fe0: 4c 5f 53 54 41 54 49 43 29 3b 0a 0a 09 09 72 65  L_STATIC);....re
0ff0: 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b  turn(TCL_ERROR);
1000: 0a 09 7d 0a 0a 09 69 66 20 28 65 6e 64 20 3d 3d  ..}...if (end ==
1010: 20 2d 31 29 20 7b 0a 09 09 65 6e 64 20 3d 20 66   -1) {...end = f
1020: 69 6e 66 6f 2d 3e 73 69 7a 65 3b 0a 09 7d 0a 0a  info->size;..}..
1030: 09 69 66 20 28 65 6e 64 20 3e 20 66 69 6e 66 6f  .if (end > finfo
1040: 2d 3e 73 69 7a 65 29 20 7b 0a 09 09 65 6e 64 20  ->size) {...end 
1050: 3d 20 66 69 6e 66 6f 2d 3e 73 69 7a 65 3b 0a 09  = finfo->size;..
1060: 7d 0a 0a 09 69 66 20 28 73 74 61 72 74 20 3c 20  }...if (start < 
1070: 30 29 20 7b 0a 09 09 73 74 61 72 74 20 3d 20 30  0) {...start = 0
1080: 3b 0a 09 7d 0a 0a 09 69 66 20 28 65 6e 64 20 3c  ;..}...if (end <
1090: 20 30 29 20 7b 0a 09 09 65 6e 64 20 3d 20 30 3b   0) {...end = 0;
10a0: 0a 09 7d 0a 0a 09 69 66 20 28 65 6e 64 20 3c 20  ..}...if (end < 
10b0: 73 74 61 72 74 29 20 7b 0a 09 09 54 63 6c 5f 53  start) {...Tcl_S
10c0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  etResult(interp,
10d0: 20 22 49 6e 76 61 6c 69 64 20 61 72 67 75 6d 65   "Invalid argume
10e0: 6e 74 73 2c 20 73 74 61 72 74 20 6d 75 73 74 20  nts, start must 
10f0: 62 65 20 6c 65 73 73 20 74 68 61 6e 20 65 6e 64  be less than end
1100: 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a  ", TCL_STATIC);.
1110: 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52  ...return(TCL_ER
1120: 52 4f 52 29 3b 0a 09 7d 0a 0a 09 72 65 74 5f 73  ROR);..}...ret_s
1130: 74 72 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  tr = Tcl_NewStri
1140: 6e 67 4f 62 6a 28 28 63 6f 6e 73 74 20 63 68 61  ngObj((const cha
1150: 72 20 2a 29 20 66 69 6e 66 6f 2d 3e 64 61 74 61  r *) finfo->data
1160: 20 2b 20 73 74 61 72 74 2c 20 28 65 6e 64 20 2d   + start, (end -
1170: 20 73 74 61 72 74 29 29 3b 0a 0a 09 54 63 6c 5f   start));...Tcl_
1180: 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 69 6e 74  SetObjResult(int
1190: 65 72 70 2c 20 72 65 74 5f 73 74 72 29 3b 0a 0a  erp, ret_str);..
11a0: 09 72 65 74 75 72 6e 28 54 43 4c 5f 4f 4b 29 3b  .return(TCL_OK);
11b0: 0a 7d 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 67  .}..static int g
11c0: 65 74 43 68 69 6c 64 72 65 6e 28 43 6c 69 65 6e  etChildren(Clien
11d0: 74 44 61 74 61 20 63 64 2c 20 54 63 6c 5f 49 6e  tData cd, Tcl_In
11e0: 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69 6e  terp *interp, in
11f0: 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a 20  t objc, Tcl_Obj 
1200: 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 20 7b  *CONST objv[]) {
1210: 0a 09 73 74 72 75 63 74 20 6b 69 74 64 6c 6c 5f  ..struct kitdll_
1220: 64 61 74 61 20 2a 66 69 6e 66 6f 20 3d 20 4e 55  data *finfo = NU
1230: 4c 4c 3b 0a 09 63 6d 64 5f 67 65 74 43 68 69 6c  LL;..cmd_getChil
1240: 64 72 65 6e 5f 74 20 2a 63 6d 64 5f 67 65 74 43  dren_t *cmd_getC
1250: 68 69 6c 64 72 65 6e 3b 0a 09 63 6d 64 5f 67 65  hildren;..cmd_ge
1260: 74 44 61 74 61 5f 74 20 2a 63 6d 64 5f 67 65 74  tData_t *cmd_get
1270: 44 61 74 61 3b 0a 09 75 6e 73 69 67 6e 65 64 20  Data;..unsigned 
1280: 6c 6f 6e 67 20 6e 75 6d 5f 63 68 69 6c 64 72 65  long num_childre
1290: 6e 2c 20 69 64 78 3b 0a 09 75 6e 73 69 67 6e 65  n, idx;..unsigne
12a0: 64 20 6c 6f 6e 67 20 2a 63 68 69 6c 64 72 65 6e  d long *children
12b0: 3b 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 68  ;..const char *h
12c0: 61 73 68 6b 65 79 3b 0a 09 63 6f 6e 73 74 20 63  ashkey;..const c
12d0: 68 61 72 20 2a 66 69 6c 65 3b 0a 09 63 6f 6e 73  har *file;..cons
12e0: 74 20 63 68 61 72 20 2a 63 68 69 6c 64 3b 0a 09  t char *child;..
12f0: 54 63 6c 5f 4f 62 6a 20 2a 72 65 74 5f 6c 69 73  Tcl_Obj *ret_lis
1300: 74 2c 20 2a 72 65 74 5f 63 75 72 72 5f 6f 62 6a  t, *ret_curr_obj
1310: 3b 0a 0a 09 69 66 20 28 6f 62 6a 63 20 21 3d 20  ;...if (objc != 
1320: 33 29 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65  3) {...Tcl_SetRe
1330: 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 77 72  sult(interp, "wr
1340: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75  ong # args: shou
1350: 6c 64 20 62 65 20 5c 22 67 65 74 43 68 69 6c 64  ld be \"getChild
1360: 72 65 6e 20 68 61 73 68 4b 65 79 20 66 69 6c 65  ren hashKey file
1370: 4e 61 6d 65 5c 22 22 2c 20 54 43 4c 5f 53 54 41  Name\"", TCL_STA
1380: 54 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  TIC);....return(
1390: 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a  TCL_ERROR);..}..
13a0: 09 68 61 73 68 6b 65 79 20 3d 20 54 63 6c 5f 47  .hashkey = Tcl_G
13b0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d  etString(objv[1]
13c0: 29 3b 0a 09 66 69 6c 65 20 3d 20 54 63 6c 5f 47  );..file = Tcl_G
13d0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d  etString(objv[2]
13e0: 29 3b 0a 0a 09 63 6d 64 5f 67 65 74 44 61 74 61  );...cmd_getData
13f0: 20 3d 20 67 65 74 43 6d 64 44 61 74 61 28 68 61   = getCmdData(ha
1400: 73 68 6b 65 79 29 3b 0a 09 63 6d 64 5f 67 65 74  shkey);..cmd_get
1410: 43 68 69 6c 64 72 65 6e 20 3d 20 67 65 74 43 6d  Children = getCm
1420: 64 43 68 69 6c 64 72 65 6e 28 68 61 73 68 6b 65  dChildren(hashke
1430: 79 29 3b 0a 0a 09 69 66 20 28 63 6d 64 5f 67 65  y);...if (cmd_ge
1440: 74 44 61 74 61 20 3d 3d 20 4e 55 4c 4c 20 7c 7c  tData == NULL ||
1450: 20 63 6d 64 5f 67 65 74 43 68 69 6c 64 72 65 6e   cmd_getChildren
1460: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 54 63   == NULL) {...Tc
1470: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
1480: 72 70 2c 20 22 4e 6f 20 73 75 63 68 20 68 61 73  rp, "No such has
1490: 68 6b 65 79 22 2c 20 54 43 4c 5f 53 54 41 54 49  hkey", TCL_STATI
14a0: 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54 43  C);....return(TC
14b0: 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 66  L_ERROR);..}...f
14c0: 69 6e 66 6f 20 3d 20 63 6d 64 5f 67 65 74 44 61  info = cmd_getDa
14d0: 74 61 28 66 69 6c 65 2c 20 30 29 3b 0a 0a 09 69  ta(file, 0);...i
14e0: 66 20 28 66 69 6e 66 6f 20 3d 3d 20 4e 55 4c 4c  f (finfo == NULL
14f0: 29 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73  ) {...Tcl_SetRes
1500: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20  ult(interp, "No 
1510: 73 75 63 68 20 66 69 6c 65 20 6f 72 20 64 69 72  such file or dir
1520: 65 63 74 6f 72 79 22 2c 20 54 43 4c 5f 53 54 41  ectory", TCL_STA
1530: 54 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  TIC);....return(
1540: 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a  TCL_ERROR);..}..
1550: 09 69 66 20 28 66 69 6e 66 6f 2d 3e 74 79 70 65  .if (finfo->type
1560: 20 21 3d 20 4b 49 54 44 4c 4c 5f 46 49 4c 45 54   != KITDLL_FILET
1570: 59 50 45 5f 44 49 52 29 20 7b 0a 09 09 54 63 6c  YPE_DIR) {...Tcl
1580: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
1590: 70 2c 20 22 4e 6f 74 20 61 20 64 69 72 65 63 74  p, "Not a direct
15a0: 6f 72 79 22 2c 20 54 43 4c 5f 53 54 41 54 49 43  ory", TCL_STATIC
15b0: 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54 43 4c  );....return(TCL
15c0: 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 6e 75  _ERROR);..}...nu
15d0: 6d 5f 63 68 69 6c 64 72 65 6e 20 3d 20 63 6d 64  m_children = cmd
15e0: 5f 67 65 74 43 68 69 6c 64 72 65 6e 28 66 69 6c  _getChildren(fil
15f0: 65 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 09 69  e, NULL, 0);...i
1600: 66 20 28 6e 75 6d 5f 63 68 69 6c 64 72 65 6e 20  f (num_children 
1610: 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20 52 65 74  == 0) {.../* Ret
1620: 75 72 6e 20 69 6d 6d 65 64 69 61 74 65 6c 79 20  urn immediately 
1630: 69 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 20  if there are no 
1640: 63 68 69 6c 64 72 65 6e 20 2a 2f 0a 09 09 54 63  children */...Tc
1650: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
1660: 72 70 2c 20 22 22 2c 20 54 43 4c 5f 53 54 41 54  rp, "", TCL_STAT
1670: 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54  IC);....return(T
1680: 43 4c 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09 72 65 74  CL_OK);..}...ret
1690: 5f 6c 69 73 74 20 3d 20 54 63 6c 5f 4e 65 77 4f  _list = Tcl_NewO
16a0: 62 6a 28 29 3b 0a 09 69 66 20 28 72 65 74 5f 6c  bj();..if (ret_l
16b0: 69 73 74 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09  ist == NULL) {..
16c0: 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69  .Tcl_SetResult(i
16d0: 6e 74 65 72 70 2c 20 22 46 61 69 6c 65 64 20 74  nterp, "Failed t
16e0: 6f 20 61 6c 6c 6f 63 61 74 65 20 6e 65 77 20 6f  o allocate new o
16f0: 62 6a 65 63 74 22 2c 20 54 43 4c 5f 53 54 41 54  bject", TCL_STAT
1700: 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54  IC);....return(T
1710: 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09  CL_ERROR);..}...
1720: 63 68 69 6c 64 72 65 6e 20 3d 20 6d 61 6c 6c 6f  children = mallo
1730: 63 28 73 69 7a 65 6f 66 28 2a 63 68 69 6c 64 72  c(sizeof(*childr
1740: 65 6e 29 20 2a 20 6e 75 6d 5f 63 68 69 6c 64 72  en) * num_childr
1750: 65 6e 29 3b 0a 0a 09 6e 75 6d 5f 63 68 69 6c 64  en);...num_child
1760: 72 65 6e 20 3d 20 63 6d 64 5f 67 65 74 43 68 69  ren = cmd_getChi
1770: 6c 64 72 65 6e 28 66 69 6c 65 2c 20 63 68 69 6c  ldren(file, chil
1780: 64 72 65 6e 2c 20 6e 75 6d 5f 63 68 69 6c 64 72  dren, num_childr
1790: 65 6e 29 3b 0a 0a 09 66 6f 72 20 28 69 64 78 20  en);...for (idx 
17a0: 3d 20 30 3b 20 69 64 78 20 3c 20 6e 75 6d 5f 63  = 0; idx < num_c
17b0: 68 69 6c 64 72 65 6e 3b 20 69 64 78 2b 2b 29 20  hildren; idx++) 
17c0: 7b 0a 09 09 66 69 6e 66 6f 20 3d 20 63 6d 64 5f  {...finfo = cmd_
17d0: 67 65 74 44 61 74 61 28 4e 55 4c 4c 2c 20 63 68  getData(NULL, ch
17e0: 69 6c 64 72 65 6e 5b 69 64 78 5d 29 3b 0a 0a 09  ildren[idx]);...
17f0: 09 69 66 20 28 66 69 6e 66 6f 20 3d 3d 20 4e 55  .if (finfo == NU
1800: 4c 4c 20 7c 7c 20 66 69 6e 66 6f 2d 3e 6e 61 6d  LL || finfo->nam
1810: 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 09  e == NULL) {....
1820: 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 7d 0a 0a 09  continue;...}...
1830: 09 63 68 69 6c 64 20 3d 20 66 69 6e 66 6f 2d 3e  .child = finfo->
1840: 6e 61 6d 65 3b 0a 0a 09 09 72 65 74 5f 63 75 72  name;....ret_cur
1850: 72 5f 6f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77 53  r_obj = Tcl_NewS
1860: 74 72 69 6e 67 4f 62 6a 28 63 68 69 6c 64 2c 20  tringObj(child, 
1870: 73 74 72 6c 65 6e 28 63 68 69 6c 64 29 29 3b 0a  strlen(child));.
1880: 0a 09 09 54 63 6c 5f 4c 69 73 74 4f 62 6a 41 70  ...Tcl_ListObjAp
1890: 70 65 6e 64 4c 69 73 74 28 69 6e 74 65 72 70 2c  pendList(interp,
18a0: 20 72 65 74 5f 6c 69 73 74 2c 20 72 65 74 5f 63   ret_list, ret_c
18b0: 75 72 72 5f 6f 62 6a 29 3b 0a 09 7d 0a 0a 09 66  urr_obj);..}...f
18c0: 72 65 65 28 63 68 69 6c 64 72 65 6e 29 3b 0a 0a  ree(children);..
18d0: 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c  .Tcl_SetObjResul
18e0: 74 28 69 6e 74 65 72 70 2c 20 72 65 74 5f 6c 69  t(interp, ret_li
18f0: 73 74 29 3b 0a 0a 09 72 65 74 75 72 6e 28 54 43  st);...return(TC
1900: 4c 5f 4f 4b 29 3b 0a 7d 0a                       L_OK);.}.