|
|
本帖最后由 FreeBlues 于 2012-6-19 16:36 编辑
教你在C程序里调用TI-BASIC程序，看看是否有人对这个感兴趣
昨天翻TIGCC的文档，先瞅了瞅FAQ，话说我看文档有个习惯，就是先看目录，再看FAQ，因为FAQ汇集了很多人曾经遇到过的问题、犯过的错误，而且涵盖各种不同难度，非常值得一看。
在FAQ中看到教人用C程序调用TI-BASIC程序的示范代码，正好我最近在研究TI-BASIC，就想试试，原来的例程如下，我加了一下注释，你会发现C语言的特点是从右往左执行：
// 在C中定义一个函数，参数是TI-BASIC的程序名称
void progrun(const char *name)
{
// 定义字符串变量
char fname[25];
// 定义一个HANDLE型指针变量 h，h 将来使用时会按照HANDLE结构动态分配一个内存块，把内存块入口地址关联到 h ，h 实际是一个HANDLE结构型的内存指针变量
HANDLE h;
// 把TI-BASIC程序名称拷贝到我们定义的字符串变量 fname 中
strcpy (fname, name);
// 在 fname 追加"()"，假设fname里原来的数据是"myprgm"，执行strcat后就变成"myprgm()"
strcat (fname, "()");
// 解析字符串fname里的表达式，并且把tokenized（标识化）的表达式内容全部压入到表达式栈中
push_parse_text (fname);
// 这个语句要从后往前分析：HS_popEStack () 做的是分配一个内存区域，然后把刚才压栈的表达式出栈，并且把出栈的内容拷贝到新分配的内存块里，最后把这个内存块的地址当做一个结构指针变量返回给 h
h = HS_popEStack ();
TRY
// 调用 NG_execute 来执行 h ，也就是执行 TI-BASIC 程序
NG_execute (h, FALSE);
FINALLY
// 最终执行完毕，释放 h 使用的内存空间
HeapFree (h);
ENDFINAL
}
最后在你的 main 函数里调用 progrun 就可以了，这里假设你已经在计算器上准备好了一个名为 testprog 的TI-BASIC 程序
progrun ("testprog");
我用TIGCC在PC上编译了一次，OK，又在计算器上用GTC编译了一次，也OK，下面是我稍作修改后的代码，因为例子里没有让TI-BASIC程序带参数，我改写了一个带参数版本的，其实简单，就是把你的PRGM的内容全部传到 progrun 里就可以了，然后把追加括号的语句注释掉即可。不过这个带参数的功能不完全，因为TIGCC的 main函数没有 argc 和 argv，所以我还没搞清楚如何在主程序中带参数，因此这里默认的PRGM程序名称为 apic(1,2) ，有两个参数，所以你需要事先在计算器上创建一个名称为apic的PRGM程序，这个程序带两个参数。
下面是代码：
#define USE_TI89
#define OPTIMIZE_ROM_CALLS
#define MIN_AMS 101
#include <tigcclib.h>
void progrun(const char *name)
{
char fname[25];
HANDLE h;
strcpy (fname, name);
//strcat (fname, "()");
push_parse_text (fname);
h = HS_popEStack ();
TRY
NG_execute (h, FALSE);
FINALLY
HeapFree (h);
ENDFINAL
}
// Main Function
void _main(void)
{
progrun ("apic(0,0)");
//progrun ("apic(0,100)");
ngetchx();
}
这里是编译好的程序，用法就是直接在home界面执行：
cb()
cb.89z
(450 Bytes, 下载次数: 109)
|
|
发表于 2012-6-19 16:26:22
沉默卡
变色卡
千斤顶
显身卡
楼主
发表于 2012-6-20 08:17:24