数学建模社区-数学中国»论坛 › 【编程区】语言讨论 › Forcal程序设计 › C/C++调用MLu的入门程序

查看: 7306|回复: 0

C/C++调用MLu的入门程序

[复制链接]

字体大小: 正常放大

forcal

45 主题	3 听众	282 积分

升级 91%

TA的每日心情

	难过 2012-8-27 18:22

签到天数: 1 天

[LV.1]初来乍到

电梯直达

1^#

发表于 2011-10-30 20:17 |只看该作者 |正序浏览

|招呼Ta 关注Ta

C/C++调用MLu的入门程序

MLu是程序和Lu核心库之间的一个接口库，MLu会自动加载Lu核心库和动态加载多个Lu扩展库，简化了Lu系统的使用；MLu可对Lu源程序进行模块化编译，能够编译运行具有固定格式的源程序（字符串表达式），源程序中可以使用C++风格的注释。此外，MLu还提供了多个线程互斥地访问Lu资源的功能；提供了Lu运行**器，以退出耗时较长的程序；提供在脚本中动态编译函数的功能；提供错误处理函数，实现错误（异常）处理的恢复模型等等。

1 隐式加载例子

该例子需要以下支持文件：

（1）头文件lu32.h。
（2）导入库lu32.lib及mlu32.lib。
（3）核心库lu32.dll和模块化编译运行库mlu32.dll。

#include <windows.h>1 ~) v: C7 Y. x
#include <iostream> v1 k5 N. v* l
#include "lu32.h" //Lu头文件
\\" I% `\\" T5 P5 K' g# `0 n
#pragma comment( lib, "lu32.lib" )0 x. x4 F f* e
#pragma comment( lib, "mlu32.lib" )
2 s! R2 I5 y/ K& k) E$ y
using namespace std;
* N, _9 A& F+ ?) y4 E: o
void main(void)\\" P- D' J4 `. {# \( |# F! G
{/ e# T$ I+ ?. c/ l
void *hModule; //模块句柄: B* F5 d5 L. ]7 X, z6 x0 T. R
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
! P\\" R2 u8 J5 `: v0 X+ X
int i; //错误代码: B( u3 M9 u6 e+ w& D
void *hFor; //表达式句柄4 X) b: K1 }, V1 m/ a/ \; G P
luVOID nModule=0; //表达式所在模块9 F+ Q! P3 B* h\\" o
void *vPara; //存放输入自变量的数组指针; B- K+ V+ ]* Y# w& b6 T
LuData *pPara; //存放输入自变量的数组指针
9 C1 ]' }) F/ E( O8 ?' e- S9 M
luINT nPara; //存放表达式的自变量个数1 `# Q% n2 d0 `1 ]1 m# f
LuData Val; //存放表达式的值
$ j+ H* [+ t4 j\\" I
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序0 a) B( L+ l+ y' L
if(!InitMLu()) return; //初始化MLu
* ?2 ]) H+ q4 j9 q
if(!UseLu(2)) //申请使用Lu资源
' [( ~7 i( U6 Q
{. m2 M8 ]* T5 J0 ~$ \
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
0 H, q; z6 B! g
if(i)
: A9 j$ J\\" \% F- K% _ @6 d
{$ w; |/ B7 i, K5 J. N0 d\\" q+ G3 H
cout<<"Lu源程序有错误！错误代码："<<i<<endl;7 k\\" o# H' U0 f3 |
}% v t. E$ P0 b\\" k% t8 B
else
. m# ~ |0 b1 V# B$ D6 B) @% `( l
{6 r: }& w8 ~2 ~9 |, w5 p
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数' W8 X/ I. N0 K6 V- o9 Z
{2 h* I) h/ T1 L+ E! F: h
pPara=(LuData *)vPara;
3 g; [6 c c. z$ U
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1( |, ^\\" M9 {& T/ C) S2 \3 d
{
: L\\" p6 m# z. u
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;$ f O7 z0 n9 v
}
; h: u2 p. w# \+ Z( x, m
Val=LuCal(hFor,pPara); //计算表达式的值
+ B% w, P* D\\" Z
cout<<Val.x<<endl;) S6 z8 M) l+ ~* B
}
& a# t) q0 H5 C; a
else
4 U* {% `( O0 A0 J. B2 K
{4 {7 B1 m: A' O8 C) _
cout<<"找不到指定的函数！"<<endl;* g9 H3 a: K- _1 b: m
}( E8 ]$ _\\" v* \
}, \% ]5 }% p! T
UseLu(0); //归还Lu的使用权) e0 ~: @: h4 \6 o9 Q
}
5 w7 p4 l/ h! Q7 n/ F
FreeMLu(); //释放MLu
( t$ L. {8 k8 Q6 s7 p4 {
}

#include <windows.h>1 ~) v: C7 Y. x

#include <iostream>  v1 k5 N. v* l

#include "lu32.h"                        //Lu头文件 
\\" I% `\\" T5 P5 K' g# `0 n
#pragma comment( lib, "lu32.lib" )0 x. x4 F  f* e

#pragma comment( lib, "mlu32.lib" ) 
2 s! R2 I5 y/ K& k) E$ y
using namespace std; 
* N, _9 A& F+ ?) y4 E: o
void main(void)\\" P- D' J4 `. {# \( |# F! G

{/ e# T$ I+ ?. c/ l

void *hModule;                //模块句柄: B* F5 d5 L. ]7 X, z6 x0 T. R

luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
! P\\" R2 u8 J5 `: v0 X+ X
        int i;                        //错误代码: B( u3 M9 u6 e+ w& D

void *hFor;                //表达式句柄4 X) b: K1 }, V1 m/ a/ \; G  P

luVOID nModule=0;                //表达式所在模块9 F+ Q! P3 B* h\\" o

void *vPara;                //存放输入自变量的数组指针; B- K+ V+ ]* Y# w& b6 T

LuData *pPara;                //存放输入自变量的数组指针 
9 C1 ]' }) F/ E( O8 ?' e- S9 M
        luINT nPara;                //存放表达式的自变量个数1 `# Q% n2 d0 `1 ]1 m# f

LuData Val;                //存放表达式的值 
$ j+ H* [+ t4 j\\" I
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序0 a) B( L+ l+ y' L

if(!InitMLu()) return;        //初始化MLu 
* ?2 ]) H+ q4 j9 q
        if(!UseLu(2))                //申请使用Lu资源 
' [( ~7 i( U6 Q
        {. m2 M8 ]* T5 J0 ~$ \

i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
0 H, q; z6 B! g
                if(i) 
: A9 j$ J\\" \% F- K% _  @6 d
                {$ w; |/ B7 i, K5 J. N0 d\\" q+ G3 H

cout<<"Lu源程序有错误！错误代码："<<i<<endl;7 k\\" o# H' U0 f3 |

}% v  t. E$ P0 b\\" k% t8 B

else 
. m# ~  |0 b1 V# B$ D6 B) @% `( l
                {6 r: }& w8 ~2 ~9 |, w5 p

if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数' W8 X/ I. N0 K6 V- o9 Z

{2 h* I) h/ T1 L+ E! F: h

pPara=(LuData *)vPara; 
3 g; [6 c  c. z$ U
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1( |, ^\\" M9 {& T/ C) S2 \3 d

{ 
: L\\" p6 m# z. u
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;$ f  O7 z0 n9 v

} 
; h: u2 p. w# \+ Z( x, m
                                Val=LuCal(hFor,pPara);        //计算表达式的值 
+ B% w, P* D\\" Z
                                cout<<Val.x<<endl;) S6 z8 M) l+ ~* B

} 
& a# t) q0 H5 C; a
                        else 
4 U* {% `( O0 A0 J. B2 K
                        {4 {7 B1 m: A' O8 C) _

cout<<"找不到指定的函数！"<<endl;* g9 H3 a: K- _1 b: m

}( E8 ]$ _\\" v* \

}, \% ]5 }% p! T

UseLu(0);                //归还Lu的使用权) e0 ~: @: h4 \6 o9 Q

} 
5 w7 p4 l/ h! Q7 n/ F
        FreeMLu();                //释放MLu 
( t$ L. {8 k8 Q6 s7 p4 {
}

结果：

3& @- G* k9 ]2 h5 c, M& V5 O; r. J9 S
请按任意键继续. . .

复制代码

2 显式加载例子

该例子需要以下支持文件：

（1）头文件lu32.h。
（2）核心库lu32.dll和模块化编译运行库mlu32.dll。

#include <windows.h>
5 _8 n( U0 K- L- ]: Q
#include <iostream>1 i/ L ~0 B, ^' [5 a5 g) b
#include "Lu32.h"5 D- t5 R; T\\" F* p& Q1 [ \; b
using namespace std;6 v8 a: M5 P5 M% L- }& h6 u7 |
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄! _7 s+ c# p0 k
- `/ {$ \1 L; |) T9 U+ I4 @
//MLu输出函数5 v0 j9 L0 U0 v: C, x# P: c
mluInitMLu pInitMLu;- S e8 O. p; u u( W, m+ r1 [' E
mluFreeMLu pFreeMLu;6 y! Y+ P/ a7 Y& N6 K6 U: `
mluGetLuProc pGetLuProc;9 v1 P) G4 ^7 b/ u- j {6 @
mluUseLu pUseLu;
# m) e: Z2 ]3 p/ e) A( k
mluComModule pComModule;
& b. p+ W5 V; ?5 W& ~* D4 m
//Lu输出函数\\" N0 i% G& D3 h3 ?7 U
luGetFor pGetFor;
\\" m( z# B ?8 H, o& `! Z0 P: P
luLuCal pLuCal;
: j K. ^* K! g\\" @
bool theInitMLu(void) //初始化MLu' k5 ]: o# L/ W8 ~& d8 l
{
3 I6 N& f: i! Y. z
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll6 R0 N, Y, j6 n
if(!hMLu)
\\" _0 h$ L6 o$ I5 N* J! R5 A
{9 T4 O5 R( ^( }& R( H# B
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";0 f. d: u+ m+ N8 y$ H
return false;) O# q% b$ D S
}
3 m- D. R! v1 z\\" `
//以下几个语句获取MLu32.dll的输出函数 K/ I* D* i\\" M( I9 d\\" R) d) h- b
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");
2 g\\" t2 V0 u& s+ T
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");1 b\\" e9 o! w9 i! o
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");* X5 C6 m# L) P
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");
+ f |! |: R/ C. G: ~% F+ v. \- n- C
if(!pInitMLu()) //初始化MLu32.dll
& \& R! u6 x: x
{. O' K- b( O; U% y5 N8 Z( R
FreeLibrary(hMLu); //释放动态库
( s6 M( U! `\\" [
cout<<"MLu初始化失败！";
# H1 W2 U4 T, T; J( X
return false;
) k3 L: a$ m5 F
}
& F; n& l( d4 B) x
//以下几个语句获取Lu32.dll的输出函数1 Z3 r( w* e2 E
pGetFor=(luGetFor) pGetLuProc("GetFor");
9 s# d6 k* ?% X& [' o
pLuCal=(luLuCal) pGetLuProc("LuCal");( G. Y- D; X* o8 R0 I; U4 w
return true;
3 V9 f! L8 C\\" p, V+ H# n
}* z0 f, M% E- e- } v
void theFreeMLu(void) //释放MLu# e5 z; J; f5 a
{9 L\\" e, |; L1 K
pFreeMLu(); //释放MLu申请的空间0 W( |% x+ ?! x0 W, v1 O2 `
FreeLibrary(hMLu); //释放动态库
h: R! d |, _* ?7 G
}
# Q( v6 R3 Z6 e
void main(void)
3 C% G* \, H- ^4 }
{* c\\" W; j7 c2 ]2 y# K( o. b2 _
void *hModule; //模块句柄& W% p7 S% M1 z, n: ^* @
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
+ M, P6 B8 p$ a) z' M
int i; //错误代码
5 v* b; ]; k) e, P+ D
void *hFor; //表达式句柄/ S1 ?5 e. |& a. Q
luVOID nModule=0; //表达式所在模块
0 S/ [; \! Y1 {8 \' `+ g0 L, Z0 t
void *vPara; //存放输入自变量的数组指针( Z\\" i# N, J+ S% A; j# w
LuData *pPara; //存放输入自变量的数组指针, v' [+ k. ]% S& _
luINT nPara; //存放表达式的自变量个数
, {/ N! n. ~+ v7 [
LuData Val; //存放表达式的值, q6 d7 k: ^+ u u/ H
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序
5 M- v6 f7 [\\" F6 H5 Z
if(!theInitMLu()) return; //初始化MLu& N% G! | J6 Y( y
if(!pUseLu(2)) //申请使用Lu资源& B! B# ?4 \: {7 q; U5 \! D
{
3 _2 G* i. k2 c, |( a# k\\" ?& a
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序5 D\\" C* E$ K/ X/ u2 ^$ V
if(i)
+ \8 B; F W# t
{$ d' B( d3 n2 |4 ^7 }# C v0 q
cout<<"Lu源程序有错误！错误代码："<<i<<endl;) V+ v$ y% ]& F4 O7 U
}
\\" J/ w! }: k# E1 p4 g
else
! ]- X9 E4 e, e/ M3 [# e
{
% X6 Z0 Q8 K4 S
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))
6 H7 l) |+ ~' M- @8 e2 j
{0 U, i _ V8 ` J$ C8 o
pPara=(LuData *)vPara;# t) y: Q0 y9 g! L
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为16 m- Y. Q& [ N/ @ S `' @
{
( c* G( Q8 C* A9 w$ ~; Y# ~8 C: G5 h
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
3 \. `' X1 {\\" r' j! j
}
, Q2 K, ~: C( Y
Val=pLuCal(hFor,pPara); //计算表达式的值\\" B2 P. x7 U9 A
cout<<Val.x<<endl;
3 z6 l6 q# D9 v) o& T8 U( x
}* d) H0 e* I; ?! b% U p8 f& C
else% u! j$ S- N1 I\\" q' H% Z8 q% \
{
cout<<"找不到指定的函数！"<<endl;
4 |: V& t* S3 Y7 J5 H
}
! X) P5 K' i* x. j$ L, `7 y
}
- ^. y/ x) Z8 X# T
pUseLu(0); //归还Lu的使用权2 I+ e3 @# Q9 K+ G# N
}
, K5 j$ K. E, Z8 s$ F* F3 B
theFreeMLu(); //释放MLu$ E7 @& F& N5 X
}

#include <windows.h> 
5 _8 n( U0 K- L- ]: Q
#include <iostream>1 i/ L  ~0 B, ^' [5 a5 g) b

#include "Lu32.h"5 D- t5 R; T\\" F* p& Q1 [  \; b

using namespace std;6 v8 a: M5 P5 M% L- }& h6 u7 |

HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄! _7 s+ c# p0 k

- `/ {$ \1 L; |) T9 U+ I4 @

//MLu输出函数5 v0 j9 L0 U0 v: C, x# P: c

mluInitMLu pInitMLu;- S  e8 O. p; u  u( W, m+ r1 [' E

mluFreeMLu pFreeMLu;6 y! Y+ P/ a7 Y& N6 K6 U: `

mluGetLuProc pGetLuProc;9 v1 P) G4 ^7 b/ u- j  {6 @

mluUseLu pUseLu; 
# m) e: Z2 ]3 p/ e) A( k
mluComModule pComModule; 
& b. p+ W5 V; ?5 W& ~* D4 m
//Lu输出函数\\" N0 i% G& D3 h3 ?7 U

luGetFor pGetFor; 
\\" m( z# B  ?8 H, o& `! Z0 P: P
luLuCal pLuCal; 
: j  K. ^* K! g\\" @
bool theInitMLu(void)        //初始化MLu' k5 ]: o# L/ W8 ~& d8 l

{ 
3 I6 N& f: i! Y. z
        hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll6 R0 N, Y, j6 n

if(!hMLu) 
\\" _0 h$ L6 o$ I5 N* J! R5 A
        {9 T4 O5 R( ^( }& R( H# B

cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";0 f. d: u+ m+ N8 y$ H

return false;) O# q% b$ D  S

} 
3 m- D. R! v1 z\\" `
        //以下几个语句获取MLu32.dll的输出函数  K/ I* D* i\\" M( I9 d\\" R) d) h- b

pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu"); 
2 g\\" t2 V0 u& s+ T
        pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu"); 
& j- G' W) {; d8 K) I  u( x, F2 [5 U' a
        pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");1 b\\" e9 o! w9 i! o

pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");* X5 C6 m# L) P

pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule"); 
+ f  |! |: R/ C. G: ~% F+ v. \- n- C
        if(!pInitMLu())        //初始化MLu32.dll 
& \& R! u6 x: x
        {. O' K- b( O; U% y5 N8 Z( R

FreeLibrary(hMLu);        //释放动态库 
( s6 M( U! `\\" [
                cout<<"MLu初始化失败！"; 
# H1 W2 U4 T, T; J( X
                return false; 
) k3 L: a$ m5 F
        } 
& F; n& l( d4 B) x
        //以下几个语句获取Lu32.dll的输出函数1 Z3 r( w* e2 E

pGetFor=(luGetFor) pGetLuProc("GetFor"); 
9 s# d6 k* ?% X& [' o
        pLuCal=(luLuCal) pGetLuProc("LuCal");( G. Y- D; X* o8 R0 I; U4 w

return true; 
3 V9 f! L8 C\\" p, V+ H# n
}* z0 f, M% E- e- }  v

void theFreeMLu(void)        //释放MLu# e5 z; J; f5 a

{9 L\\" e, |; L1 K

pFreeMLu();        //释放MLu申请的空间0 W( |% x+ ?! x0 W, v1 O2 `

FreeLibrary(hMLu);        //释放动态库 
  h: R! d  |, _* ?7 G
} 
# Q( v6 R3 Z6 e
void main(void) 
3 C% G* \, H- ^4 }
{* c\\" W; j7 c2 ]2 y# K( o. b2 _

void *hModule;                //模块句柄& W% p7 S% M1 z, n: ^* @

luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
+ M, P6 B8 p$ a) z' M
        int i;                        //错误代码 
5 v* b; ]; k) e, P+ D
        void *hFor;                //表达式句柄/ S1 ?5 e. |& a. Q

luVOID nModule=0;                //表达式所在模块 
0 S/ [; \! Y1 {8 \' `+ g0 L, Z0 t
        void *vPara;                //存放输入自变量的数组指针( Z\\" i# N, J+ S% A; j# w

LuData *pPara;                //存放输入自变量的数组指针, v' [+ k. ]% S& _

luINT nPara;                //存放表达式的自变量个数 
, {/ N! n. ~+ v7 [
        LuData Val;                //存放表达式的值, q6 d7 k: ^+ u  u/ H

wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序 
5 M- v6 f7 [\\" F6 H5 Z
        if(!theInitMLu()) return;        //初始化MLu& N% G! |  J6 Y( y

if(!pUseLu(2))                //申请使用Lu资源& B! B# ?4 \: {7 q; U5 \! D

{ 
3 _2 G* i. k2 c, |( a# k\\" ?& a
                i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序5 D\\" C* E$ K/ X/ u2 ^$ V

if(i) 
+ \8 B; F  W# t
                {$ d' B( d3 n2 |4 ^7 }# C  v0 q

cout<<"Lu源程序有错误！错误代码："<<i<<endl;) V+ v$ y% ]& F4 O7 U

} 
\\" J/ w! }: k# E1 p4 g
                else 
! ]- X9 E4 e, e/ M3 [# e
                { 
% X6 Z0 Q8 K4 S
                        if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) 
6 H7 l) |+ ~' M- @8 e2 j
                        {0 U, i  _  V8 `  J$ C8 o

pPara=(LuData *)vPara;# t) y: Q0 y9 g! L

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为16 m- Y. Q& [  N/ @  S  `' @

{ 
( c* G( Q8 C* A9 w$ ~; Y# ~8 C: G5 h
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
3 \. `' X1 {\\" r' j! j
                                } 
, Q2 K, ~: C( Y
                                Val=pLuCal(hFor,pPara);        //计算表达式的值\\" B2 P. x7 U9 A

cout<<Val.x<<endl; 
3 z6 l6 q# D9 v) o& T8 U( x
                        }* d) H0 e* I; ?! b% U  p8 f& C

else% u! j$ S- N1 I\\" q' H% Z8 q% \

{ 
, V# W' o, G2 F7 b1 m1 B. N2 ?& Q  |: r
                                cout<<"找不到指定的函数！"<<endl; 
4 |: V& t* S3 Y7 J5 H
                        } 
! X) P5 K' i* x. j$ L, `7 y
                } 
- ^. y/ x) Z8 X# T
                pUseLu(0);        //归还Lu的使用权2 I+ e3 @# Q9 K+ G# N

} 
, K5 j$ K. E, Z8 s$ F* F3 B
        theFreeMLu();                //释放MLu$ E7 @& F& N5 X

}

结果：