02 C/C++创建tcl自定义命令

最新推荐文章于 2024-12-25 01:14:10 发布

风翼世纪

最新推荐文章于 2024-12-25 01:14:10 发布

阅读量1.4k

点赞数

分类专栏： tcl 文章标签： tcl

本文链接：https://blog.youkuaiyun.com/qq_43352441/article/details/107307886

版权

本文详细介绍了如何使用C/C++创建TCL自定义命令，包括编写自定义命令内容、编译生成动态库、加载动态库以及调用自定义命令的步骤。在编译过程中需要注意初始化函数的命名规则，并且提到了可能出现的tcl.h文件缺失的问题及其解决方案，即编译安装TCL源码包。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1 自定义命令

（1）编写自定义命令

1 编写自定义命令内容
2 注册指定命令

/*
 *set up numbers sort command
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <tcl.h>
// numbers sort
int NumSort(ClientData ClientData, Tcl_Interp *Interp,
			int objc, Tcl_Obj *const objv[]) {
	double arr[objc], tmp;
	char *pstr, *pstr2;
	char buf[100];
	int cnt = 1, cnt2 = 0, i = 0;
	
	//1. string convert number,numbers sort
	for(cnt = 1; cnt < objc; ++cnt) {
		//1.1 string convert number
		tmp = atof(Tcl_GetString(objv[cnt]));
		
		//1.2 numbers sort
		if(cnt == 1) arr[0] = tmp;
		else {
			for(cnt2 = cnt-1; cnt2 > 0; --cnt2) {
				if(tmp >= arr[cnt2 -1]) {
					arr[cnt2] = tmp;
					break;
				}
				else arr[cnt2] = arr[cnt2 -1];
			}
		}
	}	
	//2. numbers convert string and return
	for(cnt2 = 0