Artifact 3d239d88d7fd8f9f82673bca1c8b926016b41800:
- File
kitdll/buildsrc/kitdll-0.0/vfs_kitdll_data.c
— part of check-in
[b11b735302]
at
2010-09-29 23:15:37
on branch trunk
— Created GNU autoconf script for KitDLL
Made KitDLL build a shared object
Added test driver (user: rkeene, size: 6409) [annotate] [blame] [check-ins using]
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);.}.