教你在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()