int argIndexOfKey()

in src/generic/args.c [29:55]

• 23 lines of code
• 8 McCabe index (conditional complexity)

int argIndexOfKey(int objc, Tcl_Obj * CONST objv[], char *key)
{

    int pos = 1;

    if ((objv != NULL) && (key != NULL)) {

	while (pos < objc) {

	    if (objv[pos] != NULL) {
		switch (argOptionType(objv[pos])) {
		case OPTION_TYPE_DASHDASH:
		    return -1;
		    break;
		case OPTION_TYPE_PARAM:
		    if (strcmp(Tcl_GetString(objv[pos]), key) == 0)
			return pos;
		    break;
		default:
		    break;
		}
	    }
	    pos++;
	}
    }
    return -1;
}