in tcl_cmds.c [2072:2083]
int cmd_ap_method_number_of(ClientData cd, Tcl_Interp *ixx, int objc, Tcl_Obj *CONST objv[])
{
if (objc != 2) {
Tcl_WrongNumArgs(interp, 1, objv, "method");
return TCL_ERROR;
}
Tcl_SetObjResult(interp, Tcl_NewIntObj(ap_method_number_of(Tcl_GetString(objv[1]))));
return TCL_OK;
}