//扩展命令的实现
int TclEx_Counter(ClientData clientdata,Tcl_Interp *interp,int argc,char *argv[])
{
int aRet; //空行行实际输出
int bRet; //注释行实际输出
int cRet; //代码行实际输出
int dRet; //总行数实际输出
int aExceptedRet; //期望空行输出
int bExceptedRet; //期望注释行输出
int cExceptedRet; //期望代码行输出
int dExceptedRet; //期望总行输出