rem: int   intag; int	  intspec; char *ip; char *op;
add: int   intag;      int	  intspec;    char *inString;   char *inPtr;      char *outPtr;
context: NsTclStripHtmlCmd(ClientData dummy, Tcl_Interp *interp, int argc, char **argv){    int   intag;    int	  intspec;    char *ip;    char *op;    if (argc != 2) {        Tcl_AppendResult(interp, "wrong # of args:  should be \"",                         argv[0], " page\"", NULL);        return TCL_ERROR;    }    ip = argv[1];    op = ip;    intag = 0;    intspec = 0;    while (*ip != '\0') {        if (*ip == '<') {            intag = 1;        } else if (intag && (*ip == '>')) {            intag = 0;        } else if (intspec && (*ip == ';')) {            intspec = 0;		        } else if (!intag && !intspec) {            if (*ip == '&') {                intspec=WordEndsInSemi(ip);	    }            if (!intspec) {                *op++ = *ip;	    }        }        ++ip;    }    *op = '\0';    Tcl_SetResult(interp, argv[1], TCL_VOLATILE);        return TCL_OK;}