808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
|
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
|
-
+
|
*/
static int
ExpandedOptions(
Tcl_Interp *interp, /* Current interpreter. */
Tcl_Obj **keys, /* Built-in keys (per thread) */
Tcl_Obj *returnOpts, /* Options dict we are building */
int objc, /* Number of arguments. */
Tcl_Size objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
for (; objc > 1; objv += 2, objc -= 2) {
const char *opt = TclGetString(objv[0]);
const char *compare = TclGetString(keys[KEY_OPTIONS]);
if ((objv[0]->length == keys[KEY_OPTIONS]->length)
|