int argOptionType()

in src/generic/args.c [60:86]

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

int argOptionType(Tcl_Obj * in)
{

    char *tmp = NULL;
    int tmpLen = -1;

    if (in == NULL)
	return 0;

    tmp = Tcl_GetStringFromObj(in, &tmpLen);

    if (tmp[0] == '-') {

	if (tmpLen > 1) {
	    if (tmp[1] != '-') {
		if (isdigit((int)tmp[1]))
		    return OPTION_TYPE_NUMBER;
		return OPTION_TYPE_PARAM;
	    }
	    else {
		if ((tmp[1] == '-') && (tmpLen == 2))
		    return OPTION_TYPE_DASHDASH;
	    }
	}
    }
    return OPTION_TYPE_NONE;
}