int argHasOnlyAccepted()

in src/generic/args.c [305:338]

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

int argHasOnlyAccepted(int objc, Tcl_Obj * CONST objv[],
		       TCLCONST char *params[], int scanc)
{

    int i;
    char *tmp = NULL;

    if (scanc < 0)
	scanc = objc;
    if (scanc > objc)
	scanc = objc;

    for (i = 1; i < scanc; i++) {

	if (objv[i] != NULL) {

	    /* fprintf(stdout,"DBG argHasOnlyAccepted: '%s'\n",Tcl_GetString(objv[i])); fflush(stdout); */

	    switch (argOptionType(objv[i])) {
	    case OPTION_TYPE_PARAM:
		tmp = Tcl_GetString(objv[i]);
		if (argPosParam(params, tmp) == -1)
		    return i;
		break;
	    case OPTION_TYPE_DASHDASH:
		return 0;
		break;
	    default:
		break;
	    }
	}
    }
    return 0;
}