TCC研究(2) 把C语言当作脚本，解释执行，并嵌入各类程序

int main(int argc, char *argv[]) {
int i;
printf("Hello, world
");

for(i=1; i<argc; i++)
printf("argv[%d]=%s
", i, argv[i]);
}

int main(int argc, char *argv[]) {
printf("Hello, world
");

}

/* 运行1个脚本, 启动脚本中指定的函数，返回该函数的运行结果值
* 脚本中的启动函数原型必须为： int func(int param)
* program是脚本全部内容, function_name是启动函数名称，param是传递给函数的参数
* tcc_path用于指定tcc所在目录，tcc_path设为时NULL表示不指定tcc目录
*/
int run_script(char *program, char *function_name, int param, char *tcc_path)
{
TCCState *s; //TCC编译引擎
int (*func)(int); //1个函数指针， 函数原型为: int func(int param)
int result; //运行结果

s = tcc_new(); //初始化TCC编译引擎
if (!s) return ⑴; //初始化失败

//tcc_path指定tcc所在的目录
if (tcc_path!=NULL) tcc_set_lib_path(s, tcc_path);

//指明编译结果写入内存，而不是存为文件
tcc_set_output_type(s, TCC_OUTPUT_MEMORY);

//如果编译失败，则退出
if (tcc_compile_string(s, program) == ⑴) {
tcc_delete(s); return ⑵;
}

//如果程序重定位失败，退出
if (tcc_relocate(s, TCC_RELOCATE_AUTO) < 0) {
tcc_delete(s); return ⑶;
}

//寻觅名为function_name的入口函数
func = tcc_get_symbol(s, function_name);
if (!func) { //找不到入口函数，则退出
tcc_delete(s); return ⑷;
}

//运行入口函数,取得运行结果
result = func(param);

//结束TCC编译引擎
tcc_delete(s);

return result;
}

#ifdef __cplusplus
extern "C" {
#endif

/** 运行1个脚本, 启动脚本中指定的函数，返回该函数的运行结果值
* 脚本中的启动函数原型必须为： int func(int param)
* programe是脚本程序, function_name是启动函数，param是传递给函数的参数
* tcc_path用于指定tcc所在目录，tcc_path设为NULL时表示不指定tcc目录
*/
extern int run_script(char *program, char *function_name, int param, char *tcc_path);

#ifdef __cplusplus
}
#endif

#endif

int main(int argc, char *argv[])
{
char *program = NULL; //脚本内容
char *function_name = "script_main"; //启动函数名为script_main
int param = 888; //传入参数
char *tcc_path = NULL;
int file_size;
int result; //返回结果
FILE *fp;

if (argc<=1) {
printf("Usage: cscript <script_file>
");
return ⑴;
}

//第1个命令行参数是脚本文件名，打开它
if ((fp=fopen(argv[1],"rb"))==NULL) {
printf("Error open file %s
", argv[1]);
return ⑴;
}

//测出文件长度
fseek(fp, 0L, SEEK_END);
file_size = ftell(fp);
//申请1个内存用于寄存文件内容
program = (char *)malloc(file_size+1);
if (program==NULL) return ⑴;
//将文件内容全部读入到 program中
fseek(fp, 0L, SEEK_SET);
if (fread(program, file_size, 1, fp)>0) {
program[file_size]=0;
result = run_script(program, function_name, param, tcc_path);//运行
printf("result = %d
", result);
}
free(program);
fclose(fp);
}

int script_main(int param)
{
printf("it's in script main, param =%d
", param);
return param;
}