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);.}.