讨论一下，C语言脚本怎么传入参数和返回结果。

[mmcanyu]

如题，vc写的C语言解释程序，怎么给脚本传入参数，怎么让脚本运行完返回解释运算结果。
是从网上下载的BC版本改过来的。

class CWinC
{
public:
CWinC();
virtual ~CWinC();

private:
stCODE_BUF CodeBuf;
CInit hbInit;
CError Error;
protected:
CRunFUN runFun;
public:
char *error(void) { return Error.getErrorMsg();}

void SetEnv(void) { Destructor(); }
void SetCodeBuf(char *Buf);
bool Constructor(void);
bool Run(char *CodeBuf);
void Destructor(void);
};
这是解释语言的主类，调用时
CWinC winc;
CEdit *edit = (CEdit *)GetDlgItem(IDC_CODE);//脚本内容
CString temp;
edit->GetWindowText(temp);
winc.Run(temp.GetBuffer(temp.GetLength()));

这片代码不能说明什么，有经验的朋友能不能说一下大致的研究方向。

[ToperRay]

你这个c语言解释程序是个什么概念？

[mmcanyu]

回楼上，
就是脚本是用C语言写的，然后用C++写程序解释这段脚本。

[hityct1]

楼主先看看《编译原理》？

[mmcanyu]

回楼上，看过了。
目前基本可以解释执行了，只能解释它啊，没有交流和沟通。

[jameshooo]

从这个类可以看出，它根本没提供任何跟返回值有关的方法或者成员变量。

[MoXiaoRab]

？？？C语言脚本？？

[mmcanyu]

再顶一下.

一个脚本需要给它传入参数，结果要返回给运用程序。

[onlykobe]

我也和楼主有同样的问题。来看看学习学习

[mmcanyu]

现在我的脚本就像
金山快译把一篇英文文章翻译成中文(假设翻译地很准确)，
但是到底这篇英文讲的什么内容呢，金山快译并不清楚。

[hityct1]

结果应该是传到temp中了吧？

楼主9楼的比喻，难道是要做“文摘”？

[o_yale_o]

1。你可以参考Perl嵌入VC的例子：
#include "stdafx.h"
#include <EXTERN.h>
#include <perl.h>

static PerlInterpreter *my_perl;
void main (int argc, char **argv, char **env)
{
STRLEN n_a;
char *embedding[] = { "", "-e", "0" };
PERL_SYS_INIT3(&argc,&argv,&env);
my_perl = perl_alloc();

perl_construct( my_perl );
perl_parse(my_perl, NULL, 3, embedding, NULL);
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
perl_run(my_perl);

// eval_pv(" $a = 3; $a **= 2", TRUE);
eval_pv(" $a = 3; $a **= 2", TRUE);
printf("a = %d\n", SvIV(get_sv("a", FALSE)));
eval_pv("$a = 3.14; $a **= 2", TRUE);
printf("a = %f\n", SvNV(get_sv("a", FALSE)));
eval_pv(" {$a = '1'; $a = reverse($a);}", TRUE);
printf("a = %s\n", SvPV(get_sv("a", FALSE), n_a));

eval_pv("print 'Please enter first number:';\
$number1 = <STDIN>;\
chomp $number1;\
$number2 = <STDIN>;\
chomp $number2;\
$sum = $number1 + $number2;",
TRUE
);
printf("sum = %f\n", SvNV(get_sv("sum", FALSE)));
eval_pv("print 'hello'", TRUE);
// eval_pv("my $today = new Date;$today->setDate( 7, 14, 2000 );print( $today->month() );print( '\n' );$today->print();print( '\n' );", TRUE);

//eval_pv("use strict; $a = 'rekcaH lreP rehtonA tsuJ'; $a = reverse($a);", TRUE);
//printf("a = %s\n", SvPV(get_sv("a", FALSE), n_a));

perl_destruct(my_perl);
perl_free(my_perl);
PERL_SYS_TERM();
int i;
scanf("%d",&i);
}

2。Pyoth脚本嵌入VC例子：
#include "stdafx.h"
#include "d:\Python25\include\Python.h"

int main(int argc, char* argv[])
{
Py_Initialize();
PyRun_SimpleString("print '---Begin---'\n"
"from time import time,ctime\n"
"print '3+5=',3+5 \n"
"print 'Today is',ctime(time())\n"
"print '---End---'\n");
Py_Finalize();
return 0;
}

[mmcanyu]

SvNV(get_sv("a", FALSE))
SvPV(get_sv("a", FALSE), n_a)
SvIV(get_sv("a", FALSE)

谢谢楼上，看来可以建个库函数，把这个库函数返回内容保存到主类成员变量。