rem: } opt;
add: } _nsmayalias opt;
context: NsTclServerObjCmd(ClientData arg, Tcl_Interp *interp, int objc,		  Tcl_Obj **objv){    Pool *poolPtr;    char buf[100], *pool;    Tcl_DString ds;    static CONST char *opts[] = {	 "active", "all", "connections", "keepalive", "pools", "queued",	 "threads", "waiting", NULL,     };    enum {	 SActiveIdx, SAllIdx, SConnectionsIdx, SKeepaliveIdx, SPoolsIdx,	 SQueuedIdx, SThreadsIdx, SWaitingIdx,    } opt;    if (objc != 2 && objc != 3) {	Tcl_WrongNumArgs(interp, 1, objv, "option ?pool?");        return TCL_ERROR;    }    if (Tcl_GetIndexFromObj(interp, objv[1], opts, "option", 0,			    (int *) &opt) != TCL_OK) {	return TCL_ERROR;    }    if (opt == SPoolsIdx) {	return NsTclListPoolsObjCmd(arg, interp, objc, objv);    }    if (objc == 2) {        pool = "default";    } else {	pool = Tcl_GetString(objv[2]);    }    if (NsTclGetPool(interp, pool, &poolPtr) != TCL_OK) {	return TCL_ERROR;    }    Ns_MutexLock(&poolPtr->lock);    switch (opt) {    case SPoolsIdx:	/* NB: Silence compiler. */	break;	      case SWaitingIdx:        Tcl_SetObjResult(interp, Tcl_NewIntObj(poolPtr->queue.wait.num));	break;    case SKeepaliveIdx:        Tcl_SetObjResult(interp, Tcl_NewIntObj(0/*nsconf.keepalive.npending*/));	break;    case SConnectionsIdx:        Tcl_SetObjResult(interp, Tcl_NewIntObj((int) poolPtr->threads.nextid));	break;    case SThreadsIdx:        sprintf(buf, "min %d", poolPtr->threads.min);        Tcl_AppendElement(interp, buf);        sprintf(buf, "max %d", poolPtr->threads.max);        Tcl_AppendElement(interp, buf);        sprintf(buf, "current %d", poolPtr->threads.current);        Tcl_AppendElement(interp, buf);        sprintf(buf, "idle %d", poolPtr->threads.idle);        Tcl_AppendElement(interp, buf);        sprintf(buf, "stopping 0");        Tcl_AppendElement(interp, buf);	break;    case SActiveIdx:    case SQueuedIdx:    case SAllIdx:    	Tcl_DStringInit(&ds);	if (opt != SQueuedIdx) {	    AppendConnList(&ds, poolPtr->queue.active.firstPtr, "running");	}	if (opt != SActiveIdx) {	    AppendConnList(&ds, poolPtr->queue.wait.firstPtr, "queued");	}        Tcl_DStringResult(interp, &ds);    }    Ns_MutexUnlock(&poolPtr->lock);    return TCL_OK;}