Hex Artifact Content

Artifact 981ef568297dd87a7aa2d3936554308ddb3cb4b9:


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 63 76 66 73 5f 64 61 74 61 20 2a 28  uct cvfs_data *(
0060: 63 6d 64 5f 67 65 74 44 61 74 61 5f 74 29 28 63  cmd_getData_t)(c
0070: 6f 6e 73 74 20 63 68 61 72 20 2a 2c 20 75 6e 73  onst char *, uns
0080: 69 67 6e 65 64 20 6c 6f 6e 67 29 3b 0a 74 79 70  igned long);.typ
0090: 65 64 65 66 20 75 6e 73 69 67 6e 65 64 20 6c 6f  edef unsigned lo
00a0: 6e 67 20 28 63 6d 64 5f 67 65 74 43 68 69 6c 64  ng (cmd_getChild
00b0: 72 65 6e 5f 74 29 28 63 6f 6e 73 74 20 63 68 61  ren_t)(const cha
00c0: 72 20 2a 2c 20 75 6e 73 69 67 6e 65 64 20 6c 6f  r *, unsigned lo
00d0: 6e 67 20 2a 2c 20 75 6e 73 69 67 6e 65 64 20 6c  ng *, unsigned l
00e0: 6f 6e 67 29 3b 0a 74 79 70 65 64 65 66 20 76 6f  ong);.typedef vo
00f0: 69 64 20 28 63 6d 64 5f 64 65 63 72 79 70 74 46  id (cmd_decryptF
0100: 69 6c 65 5f 74 29 28 63 6f 6e 73 74 20 63 68 61  ile_t)(const cha
0110: 72 20 2a 2c 20 73 74 72 75 63 74 20 63 76 66 73  r *, struct cvfs
0120: 5f 64 61 74 61 20 2a 29 3b 20 0a 0a 2f 2a 20 59  _data *); ../* Y
0130: 6f 75 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69  our implementati
0140: 6f 6e 20 6d 75 73 74 20 70 72 6f 76 69 64 65 20  on must provide 
0150: 74 68 65 73 65 20 2a 2f 0a 73 74 61 74 69 63 20  these */.static 
0160: 63 6d 64 5f 67 65 74 44 61 74 61 5f 74 20 2a 67  cmd_getData_t *g
0170: 65 74 43 6d 64 44 61 74 61 28 63 6f 6e 73 74 20  etCmdData(const 
0180: 63 68 61 72 20 2a 68 61 73 68 6b 65 79 29 3b 0a  char *hashkey);.
0190: 73 74 61 74 69 63 20 63 6d 64 5f 67 65 74 43 68  static cmd_getCh
01a0: 69 6c 64 72 65 6e 5f 74 20 2a 67 65 74 43 6d 64  ildren_t *getCmd
01b0: 43 68 69 6c 64 72 65 6e 28 63 6f 6e 73 74 20 63  Children(const c
01c0: 68 61 72 20 2a 68 61 73 68 6b 65 79 29 3b 0a 73  har *hashkey);.s
01d0: 74 61 74 69 63 20 63 6d 64 5f 64 65 63 72 79 70  tatic cmd_decryp
01e0: 74 46 69 6c 65 5f 74 20 2a 67 65 74 43 6d 64 44  tFile_t *getCmdD
01f0: 65 63 72 79 70 74 46 69 6c 65 28 63 6f 6e 73 74  ecryptFile(const
0200: 20 63 68 61 72 20 2a 68 61 73 68 6b 65 79 29 3b   char *hashkey);
0210: 0a 0a 2f 2a 20 54 63 6c 20 43 6f 6d 6d 61 6e 64  ../* Tcl Command
0220: 73 20 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20  s */.static int 
0230: 67 65 74 4d 65 74 61 64 61 74 61 28 43 6c 69 65  getMetadata(Clie
0240: 6e 74 44 61 74 61 20 63 64 2c 20 54 63 6c 5f 49  ntData cd, Tcl_I
0250: 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 69  nterp *interp, i
0260: 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62 6a  nt objc, Tcl_Obj
0270: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29 20   *CONST objv[]) 
0280: 7b 0a 09 63 6d 64 5f 67 65 74 44 61 74 61 5f 74  {..cmd_getData_t
0290: 20 2a 63 6d 64 5f 67 65 74 44 61 74 61 3b 0a 09   *cmd_getData;..
02a0: 63 6d 64 5f 67 65 74 43 68 69 6c 64 72 65 6e 5f  cmd_getChildren_
02b0: 74 20 2a 63 6d 64 5f 67 65 74 43 68 69 6c 64 72  t *cmd_getChildr
02c0: 65 6e 3b 0a 09 73 74 72 75 63 74 20 63 76 66 73  en;..struct cvfs
02d0: 5f 64 61 74 61 20 2a 66 69 6e 66 6f 20 3d 20 4e  _data *finfo = N
02e0: 55 4c 4c 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72  ULL;..Tcl_Obj *r
02f0: 65 74 5f 6c 69 73 74 2c 20 2a 72 65 74 5f 6c 69  et_list, *ret_li
0300: 73 74 5f 69 74 65 6d 73 5b 32 30 5d 3b 0a 09 75  st_items[20];..u
0310: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6e 75 6d  nsigned long num
0320: 5f 63 68 69 6c 64 72 65 6e 3b 0a 09 63 6f 6e 73  _children;..cons
0330: 74 20 63 68 61 72 20 2a 68 61 73 68 6b 65 79 3b  t char *hashkey;
0340: 0a 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 66 69  ..const char *fi
0350: 6c 65 3b 0a 09 69 6e 74 20 69 64 78 3b 0a 0a 09  le;..int idx;...
0360: 69 66 20 28 6f 62 6a 63 20 21 3d 20 33 29 20 7b  if (objc != 3) {
0370: 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74  ...Tcl_SetResult
0380: 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67 20  (interp, "wrong 
0390: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
03a0: 65 20 5c 22 67 65 74 4d 65 74 61 64 61 74 61 20  e \"getMetadata 
03b0: 68 61 73 68 4b 65 79 20 66 69 6c 65 4e 61 6d 65  hashKey fileName
03c0: 5c 22 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29  \"", TCL_STATIC)
03d0: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f  ;....return(TCL_
03e0: 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 68 61 73  ERROR);..}...has
03f0: 68 6b 65 79 20 3d 20 54 63 6c 5f 47 65 74 53 74  hkey = Tcl_GetSt
0400: 72 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 3b 0a 09  ring(objv[1]);..
0410: 66 69 6c 65 20 3d 20 54 63 6c 5f 47 65 74 53 74  file = Tcl_GetSt
0420: 72 69 6e 67 28 6f 62 6a 76 5b 32 5d 29 3b 0a 0a  ring(objv[2]);..
0430: 09 63 6d 64 5f 67 65 74 44 61 74 61 20 3d 20 67  .cmd_getData = g
0440: 65 74 43 6d 64 44 61 74 61 28 68 61 73 68 6b 65  etCmdData(hashke
0450: 79 29 3b 0a 09 63 6d 64 5f 67 65 74 43 68 69 6c  y);..cmd_getChil
0460: 64 72 65 6e 20 3d 20 67 65 74 43 6d 64 43 68 69  dren = getCmdChi
0470: 6c 64 72 65 6e 28 68 61 73 68 6b 65 79 29 3b 0a  ldren(hashkey);.
0480: 0a 09 69 66 20 28 63 6d 64 5f 67 65 74 44 61 74  ..if (cmd_getDat
0490: 61 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 63 6d 64  a == NULL || cmd
04a0: 5f 67 65 74 43 68 69 6c 64 72 65 6e 20 3d 3d 20  _getChildren == 
04b0: 4e 55 4c 4c 29 20 7b 0a 09 09 54 63 6c 5f 53 65  NULL) {...Tcl_Se
04c0: 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20  tResult(interp, 
04d0: 22 4e 6f 20 73 75 63 68 20 68 61 73 68 6b 65 79  "No such hashkey
04e0: 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a  ", TCL_STATIC);.
04f0: 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52  ...return(TCL_ER
0500: 52 4f 52 29 3b 0a 09 7d 0a 0a 09 66 69 6e 66 6f  ROR);..}...finfo
0510: 20 3d 20 63 6d 64 5f 67 65 74 44 61 74 61 28 66   = cmd_getData(f
0520: 69 6c 65 2c 20 30 29 3b 0a 0a 09 69 66 20 28 66  ile, 0);...if (f
0530: 69 6e 66 6f 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a  info == NULL) {.
0540: 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28  ..Tcl_SetResult(
0550: 69 6e 74 65 72 70 2c 20 22 4e 6f 20 73 75 63 68  interp, "No such
0560: 20 66 69 6c 65 20 6f 72 20 64 69 72 65 63 74 6f   file or directo
0570: 72 79 22 2c 20 54 43 4c 5f 53 54 41 54 49 43 29  ry", TCL_STATIC)
0580: 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54 43 4c 5f  ;....return(TCL_
0590: 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 2f 2a 20  ERROR);..}.../* 
05a0: 56 61 6c 75 65 73 20 74 68 61 74 20 63 61 6e 20  Values that can 
05b0: 62 65 20 64 65 72 69 76 65 64 20 66 72 6f 6d 20  be derived from 
05c0: 22 66 69 6e 66 6f 22 20 2a 2f 0a 09 72 65 74 5f  "finfo" */..ret_
05d0: 6c 69 73 74 5f 69 74 65 6d 73 5b 30 5d 20 3d 20  list_items[0] = 
05e0: 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a  Tcl_NewStringObj
05f0: 28 22 74 79 70 65 22 2c 20 34 29 3b 0a 09 72 65  ("type", 4);..re
0600: 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 32 5d 20  t_list_items[2] 
0610: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  = Tcl_NewStringO
0620: 62 6a 28 22 6d 6f 64 65 22 2c 20 34 29 3b 0a 09  bj("mode", 4);..
0630: 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 34  ret_list_items[4
0640: 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  ] = Tcl_NewStrin
0650: 67 4f 62 6a 28 22 6e 6c 69 6e 6b 22 2c 20 35 29  gObj("nlink", 5)
0660: 3b 0a 0a 09 69 66 20 28 66 69 6e 66 6f 2d 3e 74  ;...if (finfo->t
0670: 79 70 65 20 3d 3d 20 43 56 46 53 5f 46 49 4c 45  ype == CVFS_FILE
0680: 54 59 50 45 5f 44 49 52 29 20 7b 0a 09 09 6e 75  TYPE_DIR) {...nu
0690: 6d 5f 63 68 69 6c 64 72 65 6e 20 3d 20 63 6d 64  m_children = cmd
06a0: 5f 67 65 74 43 68 69 6c 64 72 65 6e 28 66 69 6c  _getChildren(fil
06b0: 65 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a 0a 09 09  e, NULL, 0);....
06c0: 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 31  ret_list_items[1
06d0: 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  ] = Tcl_NewStrin
06e0: 67 4f 62 6a 28 22 64 69 72 65 63 74 6f 72 79 22  gObj("directory"
06f0: 2c 20 39 29 3b 0a 09 09 72 65 74 5f 6c 69 73 74  , 9);...ret_list
0700: 5f 69 74 65 6d 73 5b 33 5d 20 3d 20 54 63 6c 5f  _items[3] = Tcl_
0710: 4e 65 77 4c 6f 6e 67 4f 62 6a 28 30 34 30 35 35  NewLongObj(04055
0720: 35 29 3b 0a 09 09 72 65 74 5f 6c 69 73 74 5f 69  5);...ret_list_i
0730: 74 65 6d 73 5b 35 5d 20 3d 20 54 63 6c 5f 4e 65  tems[5] = Tcl_Ne
0740: 77 4c 6f 6e 67 4f 62 6a 28 6e 75 6d 5f 63 68 69  wLongObj(num_chi
0750: 6c 64 72 65 6e 29 3b 0a 09 7d 20 65 6c 73 65 20  ldren);..} else 
0760: 7b 0a 09 09 72 65 74 5f 6c 69 73 74 5f 69 74 65  {...ret_list_ite
0770: 6d 73 5b 31 5d 20 3d 20 54 63 6c 5f 4e 65 77 53  ms[1] = Tcl_NewS
0780: 74 72 69 6e 67 4f 62 6a 28 22 66 69 6c 65 22 2c  tringObj("file",
0790: 20 34 29 3b 0a 09 09 72 65 74 5f 6c 69 73 74 5f   4);...ret_list_
07a0: 69 74 65 6d 73 5b 33 5d 20 3d 20 54 63 6c 5f 4e  items[3] = Tcl_N
07b0: 65 77 4c 6f 6e 67 4f 62 6a 28 30 34 34 34 29 3b  ewLongObj(0444);
07c0: 0a 09 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d  ...ret_list_item
07d0: 73 5b 35 5d 20 3d 20 54 63 6c 5f 4e 65 77 4c 6f  s[5] = Tcl_NewLo
07e0: 6e 67 4f 62 6a 28 31 29 3b 0a 09 7d 0a 0a 09 72  ngObj(1);..}...r
07f0: 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 36 5d  et_list_items[6]
0800: 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67   = Tcl_NewString
0810: 4f 62 6a 28 22 69 6e 6f 22 2c 20 33 29 3b 0a 09  Obj("ino", 3);..
0820: 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 37  ret_list_items[7
0830: 5d 20 3d 20 54 63 6c 5f 4e 65 77 4c 6f 6e 67 4f  ] = Tcl_NewLongO
0840: 62 6a 28 66 69 6e 66 6f 2d 3e 69 6e 64 65 78 29  bj(finfo->index)
0850: 3b 0a 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65  ;...ret_list_ite
0860: 6d 73 5b 38 5d 20 3d 20 54 63 6c 5f 4e 65 77 53  ms[8] = Tcl_NewS
0870: 74 72 69 6e 67 4f 62 6a 28 22 73 69 7a 65 22 2c  tringObj("size",
0880: 20 34 29 3b 0a 09 72 65 74 5f 6c 69 73 74 5f 69   4);..ret_list_i
0890: 74 65 6d 73 5b 39 5d 20 3d 20 54 63 6c 5f 4e 65  tems[9] = Tcl_Ne
08a0: 77 4c 6f 6e 67 4f 62 6a 28 66 69 6e 66 6f 2d 3e  wLongObj(finfo->
08b0: 73 69 7a 65 29 3b 0a 0a 09 2f 2a 20 44 75 6d 6d  size);.../* Dumm
08c0: 79 20 76 61 6c 75 65 73 20 2a 2f 0a 09 72 65 74  y values */..ret
08d0: 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 31 30 5d 20  _list_items[10] 
08e0: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  = Tcl_NewStringO
08f0: 62 6a 28 22 75 69 64 22 2c 20 33 29 3b 0a 09 72  bj("uid", 3);..r
0900: 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 31 31  et_list_items[11
0910: 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e  ] = Tcl_NewStrin
0920: 67 4f 62 6a 28 22 30 22 2c 20 31 29 3b 0a 0a 09  gObj("0", 1);...
0930: 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 31  ret_list_items[1
0940: 32 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69  2] = Tcl_NewStri
0950: 6e 67 4f 62 6a 28 22 67 69 64 22 2c 20 33 29 3b  ngObj("gid", 3);
0960: 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73  ..ret_list_items
0970: 5b 31 33 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74  [13] = Tcl_NewSt
0980: 72 69 6e 67 4f 62 6a 28 22 30 22 2c 20 31 29 3b  ringObj("0", 1);
0990: 0a 0a 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d  ...ret_list_item
09a0: 73 5b 31 34 5d 20 3d 20 54 63 6c 5f 4e 65 77 53  s[14] = Tcl_NewS
09b0: 74 72 69 6e 67 4f 62 6a 28 22 61 74 69 6d 65 22  tringObj("atime"
09c0: 2c 20 35 29 3b 0a 09 72 65 74 5f 6c 69 73 74 5f  , 5);..ret_list_
09d0: 69 74 65 6d 73 5b 31 35 5d 20 3d 20 54 63 6c 5f  items[15] = Tcl_
09e0: 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 30 22  NewStringObj("0"
09f0: 2c 20 31 29 3b 0a 0a 09 72 65 74 5f 6c 69 73 74  , 1);...ret_list
0a00: 5f 69 74 65 6d 73 5b 31 36 5d 20 3d 20 54 63 6c  _items[16] = Tcl
0a10: 5f 4e 65 77 53 74 72 69 6e 67 4f 62 6a 28 22 6d  _NewStringObj("m
0a20: 74 69 6d 65 22 2c 20 35 29 3b 0a 09 72 65 74 5f  time", 5);..ret_
0a30: 6c 69 73 74 5f 69 74 65 6d 73 5b 31 37 5d 20 3d  list_items[17] =
0a40: 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f 62   Tcl_NewStringOb
0a50: 6a 28 22 30 22 2c 20 31 29 3b 0a 0a 09 72 65 74  j("0", 1);...ret
0a60: 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 31 38 5d 20  _list_items[18] 
0a70: 3d 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67 4f  = Tcl_NewStringO
0a80: 62 6a 28 22 63 74 69 6d 65 22 2c 20 35 29 3b 0a  bj("ctime", 5);.
0a90: 09 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 5b  .ret_list_items[
0aa0: 31 39 5d 20 3d 20 54 63 6c 5f 4e 65 77 53 74 72  19] = Tcl_NewStr
0ab0: 69 6e 67 4f 62 6a 28 22 30 22 2c 20 31 29 3b 0a  ingObj("0", 1);.
0ac0: 0a 09 66 6f 72 20 28 69 64 78 20 3d 20 30 3b 20  ..for (idx = 0; 
0ad0: 69 64 78 20 3c 20 28 73 69 7a 65 6f 66 28 72 65  idx < (sizeof(re
0ae0: 74 5f 6c 69 73 74 5f 69 74 65 6d 73 29 20 2f 20  t_list_items) / 
0af0: 73 69 7a 65 6f 66 28 72 65 74 5f 6c 69 73 74 5f  sizeof(ret_list_
0b00: 69 74 65 6d 73 5b 30 5d 29 29 3b 20 69 64 78 2b  items[0])); idx+
0b10: 2b 29 20 7b 0a 09 09 54 63 6c 5f 49 6e 63 72 52  +) {...Tcl_IncrR
0b20: 65 66 43 6f 75 6e 74 28 72 65 74 5f 6c 69 73 74  efCount(ret_list
0b30: 5f 69 74 65 6d 73 5b 69 64 78 5d 29 3b 0a 09 7d  _items[idx]);..}
0b40: 0a 0a 09 72 65 74 5f 6c 69 73 74 20 3d 20 54 63  ...ret_list = Tc
0b50: 6c 5f 4e 65 77 4c 69 73 74 4f 62 6a 28 73 69 7a  l_NewListObj(siz
0b60: 65 6f 66 28 72 65 74 5f 6c 69 73 74 5f 69 74 65  eof(ret_list_ite
0b70: 6d 73 29 20 2f 20 73 69 7a 65 6f 66 28 72 65 74  ms) / sizeof(ret
0b80: 5f 6c 69 73 74 5f 69 74 65 6d 73 5b 30 5d 29 2c  _list_items[0]),
0b90: 20 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73 29   ret_list_items)
0ba0: 3b 0a 0a 09 54 63 6c 5f 49 6e 63 72 52 65 66 43  ;...Tcl_IncrRefC
0bb0: 6f 75 6e 74 28 72 65 74 5f 6c 69 73 74 29 3b 0a  ount(ret_list);.
0bc0: 0a 09 54 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75  ..Tcl_SetObjResu
0bd0: 6c 74 28 69 6e 74 65 72 70 2c 20 72 65 74 5f 6c  lt(interp, ret_l
0be0: 69 73 74 29 3b 0a 0a 09 54 63 6c 5f 44 65 63 72  ist);...Tcl_Decr
0bf0: 52 65 66 43 6f 75 6e 74 28 72 65 74 5f 6c 69 73  RefCount(ret_lis
0c00: 74 29 3b 0a 0a 09 66 6f 72 20 28 69 64 78 20 3d  t);...for (idx =
0c10: 20 30 3b 20 69 64 78 20 3c 20 28 73 69 7a 65 6f   0; idx < (sizeo
0c20: 66 28 72 65 74 5f 6c 69 73 74 5f 69 74 65 6d 73  f(ret_list_items
0c30: 29 20 2f 20 73 69 7a 65 6f 66 28 72 65 74 5f 6c  ) / sizeof(ret_l
0c40: 69 73 74 5f 69 74 65 6d 73 5b 30 5d 29 29 3b 20  ist_items[0])); 
0c50: 69 64 78 2b 2b 29 20 7b 0a 09 09 54 63 6c 5f 44  idx++) {...Tcl_D
0c60: 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 74 5f  ecrRefCount(ret_
0c70: 6c 69 73 74 5f 69 74 65 6d 73 5b 69 64 78 5d 29  list_items[idx])
0c80: 3b 0a 09 7d 0a 0a 09 72 65 74 75 72 6e 28 54 43  ;..}...return(TC
0c90: 4c 5f 4f 4b 29 3b 0a 7d 0a 0a 73 74 61 74 69 63  L_OK);.}..static
0ca0: 20 69 6e 74 20 67 65 74 44 61 74 61 28 43 6c 69   int getData(Cli
0cb0: 65 6e 74 44 61 74 61 20 63 64 2c 20 54 63 6c 5f  entData cd, Tcl_
0cc0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 20  Interp *interp, 
0cd0: 69 6e 74 20 6f 62 6a 63 2c 20 54 63 6c 5f 4f 62  int objc, Tcl_Ob
0ce0: 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 29  j *CONST objv[])
0cf0: 20 7b 0a 09 73 74 72 75 63 74 20 63 76 66 73 5f   {..struct cvfs_
0d00: 64 61 74 61 20 2a 66 69 6e 66 6f 20 3d 20 4e 55  data *finfo = NU
0d10: 4c 4c 3b 0a 09 63 6d 64 5f 67 65 74 44 61 74 61  LL;..cmd_getData
0d20: 5f 74 20 2a 63 6d 64 5f 67 65 74 44 61 74 61 3b  _t *cmd_getData;
0d30: 0a 09 63 6d 64 5f 64 65 63 72 79 70 74 46 69 6c  ..cmd_decryptFil
0d40: 65 5f 74 20 2a 63 6d 64 5f 64 65 63 72 79 70 74  e_t *cmd_decrypt
0d50: 46 69 6c 65 3b 0a 09 63 6f 6e 73 74 20 63 68 61  File;..const cha
0d60: 72 20 2a 68 61 73 68 6b 65 79 3b 0a 09 63 6f 6e  r *hashkey;..con
0d70: 73 74 20 63 68 61 72 20 2a 66 69 6c 65 3b 0a 09  st char *file;..
0d80: 63 6f 6e 73 74 20 63 68 61 72 20 2a 65 6e 64 5f  const char *end_
0d90: 73 74 72 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72  str;..Tcl_Obj *r
0da0: 65 74 5f 73 74 72 3b 0a 09 6c 6f 6e 67 20 73 74  et_str;..long st
0db0: 61 72 74 20 3d 20 30 3b 0a 09 6c 6f 6e 67 20 65  art = 0;..long e
0dc0: 6e 64 20 3d 20 2d 31 3b 0a 09 69 6e 74 20 74 63  nd = -1;..int tc
0dd0: 6c 47 65 74 4c 46 4f 5f 72 65 74 3b 0a 0a 09 69  lGetLFO_ret;...i
0de0: 66 20 28 6f 62 6a 63 20 3c 20 33 20 7c 7c 20 6f  f (objc < 3 || o
0df0: 62 6a 63 20 3e 20 35 29 20 7b 0a 09 09 54 63 6c  bjc > 5) {...Tcl
0e00: 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  _SetResult(inter
0e10: 70 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73  p, "wrong # args
0e20: 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 67 65  : should be \"ge
0e30: 74 44 61 74 61 20 68 61 73 68 4b 65 79 20 66 69  tData hashKey fi
0e40: 6c 65 4e 61 6d 65 20 3f 73 74 61 72 74 3f 20 3f  leName ?start? ?
0e50: 65 6e 64 3f 5c 22 22 2c 20 54 43 4c 5f 53 54 41  end?\"", TCL_STA
0e60: 54 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  TIC);....return(
0e70: 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a  TCL_ERROR);..}..
0e80: 09 68 61 73 68 6b 65 79 20 3d 20 54 63 6c 5f 47  .hashkey = Tcl_G
0e90: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 31 5d  etString(objv[1]
0ea0: 29 3b 0a 09 66 69 6c 65 20 3d 20 54 63 6c 5f 47  );..file = Tcl_G
0eb0: 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b 32 5d  etString(objv[2]
0ec0: 29 3b 0a 0a 09 69 66 20 28 6f 62 6a 63 20 3e 20  );...if (objc > 
0ed0: 33 29 20 7b 0a 09 09 74 63 6c 47 65 74 4c 46 4f  3) {...tclGetLFO
0ee0: 5f 72 65 74 20 3d 20 54 63 6c 5f 47 65 74 4c 6f  _ret = Tcl_GetLo
0ef0: 6e 67 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70  ngFromObj(interp
0f00: 2c 20 6f 62 6a 76 5b 33 5d 2c 20 26 73 74 61 72  , objv[3], &star
0f10: 74 29 3b 0a 0a 09 09 69 66 20 28 74 63 6c 47 65  t);....if (tclGe
0f20: 74 4c 46 4f 5f 72 65 74 20 21 3d 20 54 43 4c 5f  tLFO_ret != TCL_
0f30: 4f 4b 29 20 7b 0a 09 09 09 72 65 74 75 72 6e 28  OK) {....return(
0f40: 74 63 6c 47 65 74 4c 46 4f 5f 72 65 74 29 3b 0a  tclGetLFO_ret);.
0f50: 09 09 7d 0a 09 7d 0a 0a 09 69 66 20 28 6f 62 6a  ..}..}...if (obj
0f60: 63 20 3e 20 34 29 20 7b 0a 09 09 65 6e 64 5f 73  c > 4) {...end_s
0f70: 74 72 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69  tr = Tcl_GetStri
0f80: 6e 67 28 6f 62 6a 76 5b 34 5d 29 3b 0a 09 09 69  ng(objv[4]);...i
0f90: 66 20 28 73 74 72 63 6d 70 28 65 6e 64 5f 73 74  f (strcmp(end_st
0fa0: 72 2c 20 22 65 6e 64 22 29 20 3d 3d 20 30 29 20  r, "end") == 0) 
0fb0: 7b 0a 09 09 09 65 6e 64 20 3d 20 2d 31 3b 0a 09  {....end = -1;..
0fc0: 09 7d 20 65 6c 73 65 20 7b 0a 09 09 09 74 63 6c  .} else {....tcl
0fd0: 47 65 74 4c 46 4f 5f 72 65 74 20 3d 20 54 63 6c  GetLFO_ret = Tcl
0fe0: 5f 47 65 74 4c 6f 6e 67 46 72 6f 6d 4f 62 6a 28  _GetLongFromObj(
0ff0: 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b 34 5d 2c  interp, objv[4],
1000: 20 26 65 6e 64 29 3b 0a 0a 09 09 09 69 66 20 28   &end);.....if (
1010: 74 63 6c 47 65 74 4c 46 4f 5f 72 65 74 20 21 3d  tclGetLFO_ret !=
1020: 20 54 43 4c 5f 4f 4b 29 20 7b 0a 09 09 09 09 72   TCL_OK) {.....r
1030: 65 74 75 72 6e 28 74 63 6c 47 65 74 4c 46 4f 5f  eturn(tclGetLFO_
1040: 72 65 74 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09  ret);....}...}..
1050: 7d 0a 0a 09 63 6d 64 5f 67 65 74 44 61 74 61 20  }...cmd_getData 
1060: 3d 20 67 65 74 43 6d 64 44 61 74 61 28 68 61 73  = getCmdData(has
1070: 68 6b 65 79 29 3b 0a 0a 09 69 66 20 28 63 6d 64  hkey);...if (cmd
1080: 5f 67 65 74 44 61 74 61 20 3d 3d 20 4e 55 4c 4c  _getData == NULL
1090: 29 20 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73  ) {...Tcl_SetRes
10a0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20  ult(interp, "No 
10b0: 73 75 63 68 20 68 61 73 68 6b 65 79 22 2c 20 54  such hashkey", T
10c0: 43 4c 5f 53 54 41 54 49 43 29 3b 0a 0a 09 09 72  CL_STATIC);....r
10d0: 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29  eturn(TCL_ERROR)
10e0: 3b 0a 09 7d 0a 0a 09 66 69 6e 66 6f 20 3d 20 63  ;..}...finfo = c
10f0: 6d 64 5f 67 65 74 44 61 74 61 28 66 69 6c 65 2c  md_getData(file,
1100: 20 30 29 3b 0a 0a 09 69 66 20 28 66 69 6e 66 6f   0);...if (finfo
1110: 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09 54 63   == NULL) {...Tc
1120: 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65  l_SetResult(inte
1130: 72 70 2c 20 22 4e 6f 20 73 75 63 68 20 66 69 6c  rp, "No such fil
1140: 65 20 6f 72 20 64 69 72 65 63 74 6f 72 79 22 2c  e or directory",
1150: 20 54 43 4c 5f 53 54 41 54 49 43 29 3b 0a 0a 09   TCL_STATIC);...
1160: 09 72 65 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f  .return(TCL_ERRO
1170: 52 29 3b 0a 09 7d 0a 0a 09 69 66 20 28 66 69 6e  R);..}...if (fin
1180: 66 6f 2d 3e 74 79 70 65 20 3d 3d 20 43 56 46 53  fo->type == CVFS
1190: 5f 46 49 4c 45 54 59 50 45 5f 4f 42 53 46 55 43  _FILETYPE_OBSFUC
11a0: 41 54 45 44 5f 46 49 4c 45 20 7c 7c 20 66 69 6e  ATED_FILE || fin
11b0: 66 6f 2d 3e 74 79 70 65 20 3d 3d 20 43 56 46 53  fo->type == CVFS
11c0: 5f 46 49 4c 45 54 59 50 45 5f 45 4e 43 52 59 50  _FILETYPE_ENCRYP
11d0: 54 45 44 5f 46 49 4c 45 29 20 7b 0a 09 09 63 6d  TED_FILE) {...cm
11e0: 64 5f 64 65 63 72 79 70 74 46 69 6c 65 20 3d 20  d_decryptFile = 
11f0: 67 65 74 43 6d 64 44 65 63 72 79 70 74 46 69 6c  getCmdDecryptFil
1200: 65 28 68 61 73 68 6b 65 79 29 3b 0a 0a 09 09 69  e(hashkey);....i
1210: 66 20 28 63 6d 64 5f 64 65 63 72 79 70 74 46 69  f (cmd_decryptFi
1220: 6c 65 20 21 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  le != NULL) {...
1230: 09 63 6d 64 5f 64 65 63 72 79 70 74 46 69 6c 65  .cmd_decryptFile
1240: 28 66 69 6c 65 2c 20 66 69 6e 66 6f 29 3b 0a 09  (file, finfo);..
1250: 09 7d 0a 09 7d 0a 0a 09 69 66 20 28 66 69 6e 66  .}..}...if (finf
1260: 6f 2d 3e 74 79 70 65 20 21 3d 20 43 56 46 53 5f  o->type != CVFS_
1270: 46 49 4c 45 54 59 50 45 5f 46 49 4c 45 29 20 7b  FILETYPE_FILE) {
1280: 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74  ...Tcl_SetResult
1290: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 74 20 61 20  (interp, "Not a 
12a0: 66 69 6c 65 22 2c 20 54 43 4c 5f 53 54 41 54 49  file", TCL_STATI
12b0: 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28 54 43  C);....return(TC
12c0: 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a 09 69  L_ERROR);..}...i
12d0: 66 20 28 65 6e 64 20 3d 3d 20 2d 31 29 20 7b 0a  f (end == -1) {.
12e0: 09 09 65 6e 64 20 3d 20 66 69 6e 66 6f 2d 3e 73  ..end = finfo->s
12f0: 69 7a 65 3b 0a 09 7d 0a 0a 09 69 66 20 28 65 6e  ize;..}...if (en
1300: 64 20 3e 20 66 69 6e 66 6f 2d 3e 73 69 7a 65 29  d > finfo->size)
1310: 20 7b 0a 09 09 65 6e 64 20 3d 20 66 69 6e 66 6f   {...end = finfo
1320: 2d 3e 73 69 7a 65 3b 0a 09 7d 0a 0a 09 69 66 20  ->size;..}...if 
1330: 28 73 74 61 72 74 20 3c 20 30 29 20 7b 0a 09 09  (start < 0) {...
1340: 73 74 61 72 74 20 3d 20 30 3b 0a 09 7d 0a 0a 09  start = 0;..}...
1350: 69 66 20 28 65 6e 64 20 3c 20 30 29 20 7b 0a 09  if (end < 0) {..
1360: 09 65 6e 64 20 3d 20 30 3b 0a 09 7d 0a 0a 09 69  .end = 0;..}...i
1370: 66 20 28 65 6e 64 20 3c 20 73 74 61 72 74 29 20  f (end < start) 
1380: 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c  {...Tcl_SetResul
1390: 74 28 69 6e 74 65 72 70 2c 20 22 49 6e 76 61 6c  t(interp, "Inval
13a0: 69 64 20 61 72 67 75 6d 65 6e 74 73 2c 20 73 74  id arguments, st
13b0: 61 72 74 20 6d 75 73 74 20 62 65 20 6c 65 73 73  art must be less
13c0: 20 74 68 61 6e 20 65 6e 64 22 2c 20 54 43 4c 5f   than end", TCL_
13d0: 53 54 41 54 49 43 29 3b 0a 0a 09 09 72 65 74 75  STATIC);....retu
13e0: 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09  rn(TCL_ERROR);..
13f0: 7d 0a 0a 09 72 65 74 5f 73 74 72 20 3d 20 54 63  }...ret_str = Tc
1400: 6c 5f 4e 65 77 42 79 74 65 41 72 72 61 79 4f 62  l_NewByteArrayOb
1410: 6a 28 66 69 6e 66 6f 2d 3e 64 61 74 61 20 2b 20  j(finfo->data + 
1420: 73 74 61 72 74 2c 20 28 65 6e 64 20 2d 20 73 74  start, (end - st
1430: 61 72 74 29 29 3b 0a 0a 09 54 63 6c 5f 49 6e 63  art));...Tcl_Inc
1440: 72 52 65 66 43 6f 75 6e 74 28 72 65 74 5f 73 74  rRefCount(ret_st
1450: 72 29 3b 0a 0a 09 54 63 6c 5f 53 65 74 4f 62 6a  r);...Tcl_SetObj
1460: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 72  Result(interp, r
1470: 65 74 5f 73 74 72 29 3b 0a 0a 09 54 63 6c 5f 44  et_str);...Tcl_D
1480: 65 63 72 52 65 66 43 6f 75 6e 74 28 72 65 74 5f  ecrRefCount(ret_
1490: 73 74 72 29 3b 0a 0a 09 72 65 74 75 72 6e 28 54  str);...return(T
14a0: 43 4c 5f 4f 4b 29 3b 0a 7d 0a 0a 73 74 61 74 69  CL_OK);.}..stati
14b0: 63 20 69 6e 74 20 67 65 74 43 68 69 6c 64 72 65  c int getChildre
14c0: 6e 28 43 6c 69 65 6e 74 44 61 74 61 20 63 64 2c  n(ClientData cd,
14d0: 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74   Tcl_Interp *int
14e0: 65 72 70 2c 20 69 6e 74 20 6f 62 6a 63 2c 20 54  erp, int objc, T
14f0: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
1500: 6a 76 5b 5d 29 20 7b 0a 09 73 74 72 75 63 74 20  jv[]) {..struct 
1510: 63 76 66 73 5f 64 61 74 61 20 2a 66 69 6e 66 6f  cvfs_data *finfo
1520: 20 3d 20 4e 55 4c 4c 3b 0a 09 63 6d 64 5f 67 65   = NULL;..cmd_ge
1530: 74 43 68 69 6c 64 72 65 6e 5f 74 20 2a 63 6d 64  tChildren_t *cmd
1540: 5f 67 65 74 43 68 69 6c 64 72 65 6e 3b 0a 09 63  _getChildren;..c
1550: 6d 64 5f 67 65 74 44 61 74 61 5f 74 20 2a 63 6d  md_getData_t *cm
1560: 64 5f 67 65 74 44 61 74 61 3b 0a 09 75 6e 73 69  d_getData;..unsi
1570: 67 6e 65 64 20 6c 6f 6e 67 20 6e 75 6d 5f 63 68  gned long num_ch
1580: 69 6c 64 72 65 6e 2c 20 69 64 78 3b 0a 09 75 6e  ildren, idx;..un
1590: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 2a 63 68 69  signed long *chi
15a0: 6c 64 72 65 6e 3b 0a 09 63 6f 6e 73 74 20 63 68  ldren;..const ch
15b0: 61 72 20 2a 68 61 73 68 6b 65 79 3b 0a 09 63 6f  ar *hashkey;..co
15c0: 6e 73 74 20 63 68 61 72 20 2a 66 69 6c 65 3b 0a  nst char *file;.
15d0: 09 63 6f 6e 73 74 20 63 68 61 72 20 2a 63 68 69  .const char *chi
15e0: 6c 64 3b 0a 09 54 63 6c 5f 4f 62 6a 20 2a 72 65  ld;..Tcl_Obj *re
15f0: 74 5f 6c 69 73 74 2c 20 2a 72 65 74 5f 63 75 72  t_list, *ret_cur
1600: 72 5f 6f 62 6a 3b 0a 0a 09 69 66 20 28 6f 62 6a  r_obj;...if (obj
1610: 63 20 21 3d 20 33 29 20 7b 0a 09 09 54 63 6c 5f  c != 3) {...Tcl_
1620: 53 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70  SetResult(interp
1630: 2c 20 22 77 72 6f 6e 67 20 23 20 61 72 67 73 3a  , "wrong # args:
1640: 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 67 65 74   should be \"get
1650: 43 68 69 6c 64 72 65 6e 20 68 61 73 68 4b 65 79  Children hashKey
1660: 20 66 69 6c 65 4e 61 6d 65 5c 22 22 2c 20 54 43   fileName\"", TC
1670: 4c 5f 53 54 41 54 49 43 29 3b 0a 0a 09 09 72 65  L_STATIC);....re
1680: 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b  turn(TCL_ERROR);
1690: 0a 09 7d 0a 0a 09 68 61 73 68 6b 65 79 20 3d 20  ..}...hashkey = 
16a0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
16b0: 6a 76 5b 31 5d 29 3b 0a 09 66 69 6c 65 20 3d 20  jv[1]);..file = 
16c0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62  Tcl_GetString(ob
16d0: 6a 76 5b 32 5d 29 3b 0a 0a 09 63 6d 64 5f 67 65  jv[2]);...cmd_ge
16e0: 74 44 61 74 61 20 3d 20 67 65 74 43 6d 64 44 61  tData = getCmdDa
16f0: 74 61 28 68 61 73 68 6b 65 79 29 3b 0a 09 63 6d  ta(hashkey);..cm
1700: 64 5f 67 65 74 43 68 69 6c 64 72 65 6e 20 3d 20  d_getChildren = 
1710: 67 65 74 43 6d 64 43 68 69 6c 64 72 65 6e 28 68  getCmdChildren(h
1720: 61 73 68 6b 65 79 29 3b 0a 0a 09 69 66 20 28 63  ashkey);...if (c
1730: 6d 64 5f 67 65 74 44 61 74 61 20 3d 3d 20 4e 55  md_getData == NU
1740: 4c 4c 20 7c 7c 20 63 6d 64 5f 67 65 74 43 68 69  LL || cmd_getChi
1750: 6c 64 72 65 6e 20 3d 3d 20 4e 55 4c 4c 29 20 7b  ldren == NULL) {
1760: 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74  ...Tcl_SetResult
1770: 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20 73 75 63  (interp, "No suc
1780: 68 20 68 61 73 68 6b 65 79 22 2c 20 54 43 4c 5f  h hashkey", TCL_
1790: 53 54 41 54 49 43 29 3b 0a 0a 09 09 72 65 74 75  STATIC);....retu
17a0: 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09  rn(TCL_ERROR);..
17b0: 7d 0a 0a 09 66 69 6e 66 6f 20 3d 20 63 6d 64 5f  }...finfo = cmd_
17c0: 67 65 74 44 61 74 61 28 66 69 6c 65 2c 20 30 29  getData(file, 0)
17d0: 3b 0a 0a 09 69 66 20 28 66 69 6e 66 6f 20 3d 3d  ;...if (finfo ==
17e0: 20 4e 55 4c 4c 29 20 7b 0a 09 09 54 63 6c 5f 53   NULL) {...Tcl_S
17f0: 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  etResult(interp,
1800: 20 22 4e 6f 20 73 75 63 68 20 66 69 6c 65 20 6f   "No such file o
1810: 72 20 64 69 72 65 63 74 6f 72 79 22 2c 20 54 43  r directory", TC
1820: 4c 5f 53 54 41 54 49 43 29 3b 0a 0a 09 09 72 65  L_STATIC);....re
1830: 74 75 72 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b  turn(TCL_ERROR);
1840: 0a 09 7d 0a 0a 09 69 66 20 28 66 69 6e 66 6f 2d  ..}...if (finfo-
1850: 3e 74 79 70 65 20 21 3d 20 43 56 46 53 5f 46 49  >type != CVFS_FI
1860: 4c 45 54 59 50 45 5f 44 49 52 29 20 7b 0a 09 09  LETYPE_DIR) {...
1870: 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69 6e  Tcl_SetResult(in
1880: 74 65 72 70 2c 20 22 4e 6f 74 20 61 20 64 69 72  terp, "Not a dir
1890: 65 63 74 6f 72 79 22 2c 20 54 43 4c 5f 53 54 41  ectory", TCL_STA
18a0: 54 49 43 29 3b 0a 0a 09 09 72 65 74 75 72 6e 28  TIC);....return(
18b0: 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d 0a 0a  TCL_ERROR);..}..
18c0: 09 6e 75 6d 5f 63 68 69 6c 64 72 65 6e 20 3d 20  .num_children = 
18d0: 63 6d 64 5f 67 65 74 43 68 69 6c 64 72 65 6e 28  cmd_getChildren(
18e0: 66 69 6c 65 2c 20 4e 55 4c 4c 2c 20 30 29 3b 0a  file, NULL, 0);.
18f0: 0a 09 69 66 20 28 6e 75 6d 5f 63 68 69 6c 64 72  ..if (num_childr
1900: 65 6e 20 3d 3d 20 30 29 20 7b 0a 09 09 2f 2a 20  en == 0) {.../* 
1910: 52 65 74 75 72 6e 20 69 6d 6d 65 64 69 61 74 65  Return immediate
1920: 6c 79 20 69 66 20 74 68 65 72 65 20 61 72 65 20  ly if there are 
1930: 6e 6f 20 63 68 69 6c 64 72 65 6e 20 2a 2f 0a 09  no children */..
1940: 09 54 63 6c 5f 53 65 74 52 65 73 75 6c 74 28 69  .Tcl_SetResult(i
1950: 6e 74 65 72 70 2c 20 22 22 2c 20 54 43 4c 5f 53  nterp, "", TCL_S
1960: 54 41 54 49 43 29 3b 0a 0a 09 09 72 65 74 75 72  TATIC);....retur
1970: 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 09 7d 0a 0a 09  n(TCL_OK);..}...
1980: 72 65 74 5f 6c 69 73 74 20 3d 20 54 63 6c 5f 4e  ret_list = Tcl_N
1990: 65 77 4f 62 6a 28 29 3b 0a 09 69 66 20 28 72 65  ewObj();..if (re
19a0: 74 5f 6c 69 73 74 20 3d 3d 20 4e 55 4c 4c 29 20  t_list == NULL) 
19b0: 7b 0a 09 09 54 63 6c 5f 53 65 74 52 65 73 75 6c  {...Tcl_SetResul
19c0: 74 28 69 6e 74 65 72 70 2c 20 22 46 61 69 6c 65  t(interp, "Faile
19d0: 64 20 74 6f 20 61 6c 6c 6f 63 61 74 65 20 6e 65  d to allocate ne
19e0: 77 20 6f 62 6a 65 63 74 22 2c 20 54 43 4c 5f 53  w object", TCL_S
19f0: 54 41 54 49 43 29 3b 0a 0a 09 09 72 65 74 75 72  TATIC);....retur
1a00: 6e 28 54 43 4c 5f 45 52 52 4f 52 29 3b 0a 09 7d  n(TCL_ERROR);..}
1a10: 0a 0a 09 54 63 6c 5f 49 6e 63 72 52 65 66 43 6f  ...Tcl_IncrRefCo
1a20: 75 6e 74 28 72 65 74 5f 6c 69 73 74 29 3b 0a 0a  unt(ret_list);..
1a30: 09 63 68 69 6c 64 72 65 6e 20 3d 20 6d 61 6c 6c  .children = mall
1a40: 6f 63 28 73 69 7a 65 6f 66 28 2a 63 68 69 6c 64  oc(sizeof(*child
1a50: 72 65 6e 29 20 2a 20 6e 75 6d 5f 63 68 69 6c 64  ren) * num_child
1a60: 72 65 6e 29 3b 0a 0a 09 6e 75 6d 5f 63 68 69 6c  ren);...num_chil
1a70: 64 72 65 6e 20 3d 20 63 6d 64 5f 67 65 74 43 68  dren = cmd_getCh
1a80: 69 6c 64 72 65 6e 28 66 69 6c 65 2c 20 63 68 69  ildren(file, chi
1a90: 6c 64 72 65 6e 2c 20 6e 75 6d 5f 63 68 69 6c 64  ldren, num_child
1aa0: 72 65 6e 29 3b 0a 0a 09 66 6f 72 20 28 69 64 78  ren);...for (idx
1ab0: 20 3d 20 30 3b 20 69 64 78 20 3c 20 6e 75 6d 5f   = 0; idx < num_
1ac0: 63 68 69 6c 64 72 65 6e 3b 20 69 64 78 2b 2b 29  children; idx++)
1ad0: 20 7b 0a 09 09 66 69 6e 66 6f 20 3d 20 63 6d 64   {...finfo = cmd
1ae0: 5f 67 65 74 44 61 74 61 28 4e 55 4c 4c 2c 20 63  _getData(NULL, c
1af0: 68 69 6c 64 72 65 6e 5b 69 64 78 5d 29 3b 0a 0a  hildren[idx]);..
1b00: 09 09 69 66 20 28 66 69 6e 66 6f 20 3d 3d 20 4e  ..if (finfo == N
1b10: 55 4c 4c 20 7c 7c 20 66 69 6e 66 6f 2d 3e 6e 61  ULL || finfo->na
1b20: 6d 65 20 3d 3d 20 4e 55 4c 4c 29 20 7b 0a 09 09  me == NULL) {...
1b30: 09 63 6f 6e 74 69 6e 75 65 3b 0a 09 09 7d 0a 0a  .continue;...}..
1b40: 09 09 63 68 69 6c 64 20 3d 20 66 69 6e 66 6f 2d  ..child = finfo-
1b50: 3e 6e 61 6d 65 3b 0a 0a 09 09 72 65 74 5f 63 75  >name;....ret_cu
1b60: 72 72 5f 6f 62 6a 20 3d 20 54 63 6c 5f 4e 65 77  rr_obj = Tcl_New
1b70: 53 74 72 69 6e 67 4f 62 6a 28 63 68 69 6c 64 2c  StringObj(child,
1b80: 20 73 74 72 6c 65 6e 28 63 68 69 6c 64 29 29 3b   strlen(child));
1b90: 0a 0a 09 09 54 63 6c 5f 49 6e 63 72 52 65 66 43  ....Tcl_IncrRefC
1ba0: 6f 75 6e 74 28 72 65 74 5f 63 75 72 72 5f 6f 62  ount(ret_curr_ob
1bb0: 6a 29 3b 0a 0a 09 09 54 63 6c 5f 4c 69 73 74 4f  j);....Tcl_ListO
1bc0: 62 6a 41 70 70 65 6e 64 4c 69 73 74 28 69 6e 74  bjAppendList(int
1bd0: 65 72 70 2c 20 72 65 74 5f 6c 69 73 74 2c 20 72  erp, ret_list, r
1be0: 65 74 5f 63 75 72 72 5f 6f 62 6a 29 3b 0a 0a 09  et_curr_obj);...
1bf0: 09 54 63 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e  .Tcl_DecrRefCoun
1c00: 74 28 72 65 74 5f 63 75 72 72 5f 6f 62 6a 29 3b  t(ret_curr_obj);
1c10: 0a 09 7d 0a 0a 09 66 72 65 65 28 63 68 69 6c 64  ..}...free(child
1c20: 72 65 6e 29 3b 0a 0a 09 54 63 6c 5f 53 65 74 4f  ren);...Tcl_SetO
1c30: 62 6a 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c  bjResult(interp,
1c40: 20 72 65 74 5f 6c 69 73 74 29 3b 0a 0a 09 54 63   ret_list);...Tc
1c50: 6c 5f 44 65 63 72 52 65 66 43 6f 75 6e 74 28 72  l_DecrRefCount(r
1c60: 65 74 5f 6c 69 73 74 29 3b 0a 0a 09 72 65 74 75  et_list);...retu
1c70: 72 6e 28 54 43 4c 5f 4f 4b 29 3b 0a 7d 0a        rn(TCL_OK);.}.