tcl 入门学习.md

## 1 自定义命令 （1）编写自定义命令 > 1 编写自定义命令内容 > 2 注册指定命令 ```tcl /* *set up numbers sort command */ #include #include #include #include // numbers sort int NumSort(ClientData ClientData, Tcl_Interp *Interp, int objc, Tcl_Obj *const objv[]) { double arr[objc], tmp