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

查看: 8280|回复: 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>
4 U3 k- s/ U2 q1 ^9 J4 V
#include <iostream>
7 G6 Q' R& b& S# O
#include "lu32.h" //Lu头文件
, Z& Y% i% A( k# G+ x, ]
#pragma comment( lib, "lu32.lib" )
u: J* X4 a# r- S! N/ z' h: p1 v
#pragma comment( lib, "mlu32.lib" )
( Q0 G' M( ]' D) j+ P
using namespace std;
9 U7 u& ^: r5 @6 j0 L
void main(void)
1 x2 h9 A( c& C1 L\\" [+ ^
{! y+ Q) x0 o% e) e2 @3 K
void *hModule; //模块句柄
\\" s8 [4 B% ^+ P8 N9 ^
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置: V W* x: Y) t1 u; y5 O: J' T
int i; //错误代码, Q4 f# \/ m) F9 A
void *hFor; //表达式句柄2 n& {4 I2 n% ^7 R
luVOID nModule=0; //表达式所在模块: G# N. V6 X; S9 v! {* N* B
void *vPara; //存放输入自变量的数组指针
: ]% c- g6 h- t J
LuData *pPara; //存放输入自变量的数组指针6 p# k' ^7 g5 V2 E) _0 K- {$ K
luINT nPara; //存放表达式的自变量个数4 _\\" ?+ D; O' V0 b
LuData Val; //存放表达式的值7 K( O. {1 A1 J& f
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序0 e* k b/ x. ], L0 W3 {2 u
if(!InitMLu()) return; //初始化MLu
/ W* |7 F& K7 w6 g5 G
if(!UseLu(2)) //申请使用Lu资源
$ C- ?6 B) m, ^
{
/ B) F% Q4 X, m9 ?
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序# J. h9 o4 f/ ?( y( d, r
if(i)5 W% ^8 m/ t2 s0 ^8 U. Y5 i2 G
{- [7 p# i2 d! a% }! v# D
cout<<"Lu源程序有错误！错误代码："<<i<<endl;
z# @1 `6 ~4 B8 Q3 {* Q d
}
; N' K& Q' I. s0 Z) {
else4 E5 l4 E3 c/ Q$ p% d
{
! [. i( O2 d: ~, ]1 F
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数) ?0 f- `* Z* x$ ^9 V! R) H
{
/ V% s# u6 }$ k8 u- O
pPara=(LuData *)vPara;
0 d5 g' H* m+ M& h8 T4 Z g
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1# m& ?) P' ]3 y& U* ^: L3 M, }
{$ D( D% ?/ N5 d3 M
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
3 J% I0 {- b6 g* Z
}
, j3 K$ D; o- R5 |/ B# ]' ^\\" M
Val=LuCal(hFor,pPara); //计算表达式的值
& Z+ M/ w6 X6 y$ @
cout<<Val.x<<endl;
( p3 j8 l! M\\" k' G( S\\" T# ^8 M& M
}& D/ V\\" Q$ k) G1 `
else1 k! G2 l; i k( t\\" ?) b. _
{
\\" ~' V0 A8 E# X. Z
cout<<"找不到指定的函数！"<<endl;1 j4 {1 r5 E& g
}% V* D, z( ]. V. K% |
}* B9 A# X; d/ {- E8 P7 L
UseLu(0); //归还Lu的使用权
+ z9 Z3 s4 n6 G% X\\" |! p
}
/ R* b1 X& A$ w2 o( k6 m
FreeMLu(); //释放MLu\\" v; V! z4 \$ j! V! Q0 i
}

#include <windows.h> 
4 U3 k- s/ U2 q1 ^9 J4 V
#include <iostream> 
7 G6 Q' R& b& S# O
#include "lu32.h"                        //Lu头文件 
, Z& Y% i% A( k# G+ x, ]
#pragma comment( lib, "lu32.lib" ) 
  u: J* X4 a# r- S! N/ z' h: p1 v
#pragma comment( lib, "mlu32.lib" ) 
( Q0 G' M( ]' D) j+ P
using namespace std; 
9 U7 u& ^: r5 @6 j0 L
void main(void) 
1 x2 h9 A( c& C1 L\\" [+ ^
{! y+ Q) x0 o% e) e2 @3 K

void *hModule;                //模块句柄 
\\" s8 [4 B% ^+ P8 N9 ^
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置: V  W* x: Y) t1 u; y5 O: J' T

int i;                        //错误代码, Q4 f# \/ m) F9 A

void *hFor;                //表达式句柄2 n& {4 I2 n% ^7 R

luVOID nModule=0;                //表达式所在模块: G# N. V6 X; S9 v! {* N* B

void *vPara;                //存放输入自变量的数组指针 
: ]% c- g6 h- t  J
        LuData *pPara;                //存放输入自变量的数组指针6 p# k' ^7 g5 V2 E) _0 K- {$ K

luINT nPara;                //存放表达式的自变量个数4 _\\" ?+ D; O' V0 b

LuData Val;                //存放表达式的值7 K( O. {1 A1 J& f

wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序0 e* k  b/ x. ], L0 W3 {2 u

if(!InitMLu()) return;        //初始化MLu 
/ W* |7 F& K7 w6 g5 G
        if(!UseLu(2))                //申请使用Lu资源 
$ C- ?6 B) m, ^
        { 
/ B) F% Q4 X, m9 ?
                i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序# J. h9 o4 f/ ?( y( d, r

if(i)5 W% ^8 m/ t2 s0 ^8 U. Y5 i2 G

{- [7 p# i2 d! a% }! v# D

cout<<"Lu源程序有错误！错误代码："<<i<<endl; 
  z# @1 `6 ~4 B8 Q3 {* Q  d
                } 
; N' K& Q' I. s0 Z) {
                else4 E5 l4 E3 c/ Q$ p% d

{ 
! [. i( O2 d: ~, ]1 F
                        if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数) ?0 f- `* Z* x$ ^9 V! R) H

{ 
/ V% s# u6 }$ k8 u- O
                                pPara=(LuData *)vPara; 
0 d5 g' H* m+ M& h8 T4 Z  g
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1# m& ?) P' ]3 y& U* ^: L3 M, }

{$ D( D% ?/ N5 d3 M

pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
3 J% I0 {- b6 g* Z
                                } 
, j3 K$ D; o- R5 |/ B# ]' ^\\" M
                                Val=LuCal(hFor,pPara);        //计算表达式的值 
& Z+ M/ w6 X6 y$ @
                                cout<<Val.x<<endl; 
( p3 j8 l! M\\" k' G( S\\" T# ^8 M& M
                        }& D/ V\\" Q$ k) G1 `

else1 k! G2 l; i  k( t\\" ?) b. _

{ 
\\" ~' V0 A8 E# X. Z
                                cout<<"找不到指定的函数！"<<endl;1 j4 {1 r5 E& g

}% V* D, z( ]. V. K% |

}* B9 A# X; d/ {- E8 P7 L

UseLu(0);                //归还Lu的使用权 
+ z9 Z3 s4 n6 G% X\\" |! p
        } 
/ R* b1 X& A$ w2 o( k6 m
        FreeMLu();                //释放MLu\\" v; V! z4 \$ j! V! Q0 i

}

结果：

35 O: @! i8 C( b% d6 i4 G
请按任意键继续. . .

复制代码

2 显式加载例子

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

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

#include <windows.h>& b3 `1 d1 J( G9 K! v
#include <iostream>
5 h* i, v4 `0 ]0 j
#include "Lu32.h") B$ O+ b% h X. a$ i! [
using namespace std;
! ~ Z$ G) `. V2 |2 j. d# q L. g
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄 v8 h# C4 W* P8 D! V
//MLu输出函数
1 u0 e8 s0 E) g
mluInitMLu pInitMLu;
$ O9 w2 l9 b5 p9 J0 F* r+ o' I
mluFreeMLu pFreeMLu;. `( ^' w4 U5 \
mluGetLuProc pGetLuProc;
, Y% Q M* Q! h3 z
mluUseLu pUseLu;
, s% n8 a, S4 A, {
mluComModule pComModule;+ _9 R* C' j/ c- W6 W! ]
//Lu输出函数
0 J& m6 o% w9 a% r6 \
luGetFor pGetFor;
; C6 G) q5 ]6 y7 z% H$ [: S
luLuCal pLuCal;
9 y7 [3 D: F7 Z\\" F% {! x
bool theInitMLu(void) //初始化MLu) E, e( W |0 K8 s/ I- ?9 L
{% L6 T! J8 H* V7 M8 B
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll# }5 {% m) @3 a% y' S; C
if(!hMLu), A: x1 k\\" z& D8 G) a
{
) y% T9 a V* q8 { ~
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";# Y- Q; T, m: Z E& J6 H
return false;( B1 J U4 m/ j+ ~* `$ ]
}
8 z8 r: S# f4 l
//以下几个语句获取MLu32.dll的输出函数
/ I0 `5 ]3 i2 N9 G
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");. }% J- V }/ T) B3 P* P# S
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");* t+ e% Y# F8 u% ]
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");
; P6 J% U; J9 o\\" Z- r; ^
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");
! M; Z& h+ b9 L2 X, E
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");9 G ^& u7 y9 Q2 s
if(!pInitMLu()) //初始化MLu32.dll3 B1 ?( z) A8 E; Q
{& h\\" |: E- m+ u
FreeLibrary(hMLu); //释放动态库
+ E/ {5 w0 P, o1 b3 W/ |
cout<<"MLu初始化失败！";( h9 }, J1 B p* \
return false;' L, W$ y8 j$ I0 \, V
}% o$ C% ^( t% U4 K& c
//以下几个语句获取Lu32.dll的输出函数
+ O( r+ V4 i) h$ |0 \2 F
pGetFor=(luGetFor) pGetLuProc("GetFor");# g4 t; ^\\" i: m' f& {
pLuCal=(luLuCal) pGetLuProc("LuCal");\\" y2 \, D/ u, `8 O* U0 d& |& o
return true;
' v+ ]' @\\" [! g4 [: B$ O _
}. m+ ]! d7 a+ X/ b3 j: p
void theFreeMLu(void) //释放MLu
1 Z5 s1 a2 q: P# D
{
% t4 x+ W; [, D' ~; b6 M! U- p
pFreeMLu(); //释放MLu申请的空间7 B2 `9 a+ ~0 N) T1 {3 ~\\" \+ x. ^
FreeLibrary(hMLu); //释放动态库2 r$ G! Q9 n Y7 m6 m5 J, ]* L
}+ e: B, G1 h\\" ?# D& _5 W- }* Q; [6 {9 _7 e
void main(void)
; T# M5 q' ~, N4 {5 G3 ?
{
( T) Q4 A& x3 C& T8 I
void *hModule; //模块句柄
4 k( O\\" \2 q' B/ `# N
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置 ^$ T& N# z; Z\\" b. n
int i; //错误代码
4 }5 ?+ F0 ? g& @
void *hFor; //表达式句柄$ G, k' t8 @: _
luVOID nModule=0; //表达式所在模块
~# {( | H9 `% e7 o0 g
void *vPara; //存放输入自变量的数组指针) k& D* u0 _- Y! y, Z2 n! c
LuData *pPara; //存放输入自变量的数组指针# G: `( ?; K9 u$ s) M
luINT nPara; //存放表达式的自变量个数
' B$ h. Q. P$ d7 A
LuData Val; //存放表达式的值2 @( z' U5 z% R$ n
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序4 h# j, @0 W# b
if(!theInitMLu()) return; //初始化MLu- v: S8 U\\" J/ |
if(!pUseLu(2)) //申请使用Lu资源3 u, P) V. {% l\\" ^3 v
{: ^/ E4 S, n1 Z; @' W5 m8 @
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序2 _( p g. @' L z* b, W' q
if(i): ^3 u. {( }- E
{
9 W& e7 V% Z4 y/ a$ |7 w
cout<<"Lu源程序有错误！错误代码："<<i<<endl;
3 V9 j* J, {* q, M
}7 n2 H5 x3 Q/ Z
else
9 p6 {) x; K7 M0 ?3 K
{
0 v; A\\" s( A: L, }- p$ A
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))4 e$ F; z: }( u( S, V
{' j1 k5 N3 H' O% Q$ z
pPara=(LuData *)vPara;; U3 P' j1 `/ {- h; g: U
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
* W s/ L\\" _\\" p* q4 L' v7 j' ^: y
{
( J: t$ H% ^8 \# k
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;9 _# U\\" c; l9 v6 P. _5 i
}
( Y0 k6 A5 t; C, a: v
Val=pLuCal(hFor,pPara); //计算表达式的值
9 a' C) a. c E# s
cout<<Val.x<<endl;0 J7 G/ \8 e( u
}
Z! D( b( h* N' \# c. F
else. a9 V/ b) J# d
{( F# z1 t1 M% h1 ~2 z
cout<<"找不到指定的函数！"<<endl;% @# I8 |+ v9 O$ C! |- \; v* d
}9 @; H# _: N, @9 f( }! j
}, Z, A8 }1 Q2 Z( d, C7 t3 q* ]
pUseLu(0); //归还Lu的使用权
0 }\\" D% a, J6 Q1 ]7 T
}/ V- ]: J3 w# ^( A% ]( Q* f
theFreeMLu(); //释放MLu! j% t2 C3 d3 ^) D A& K
}

#include <windows.h>& b3 `1 d1 J( G9 K! v

#include <iostream> 
5 h* i, v4 `0 ]0 j
#include "Lu32.h") B$ O+ b% h  X. a$ i! [

using namespace std; 
! ~  Z$ G) `. V2 |2 j. d# q  L. g
HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄  v8 h# C4 W* P8 D! V

& n, u# }\\" z$ E5 [( o9 V- T) Q/ k6 K- Y
//MLu输出函数 
1 u0 e8 s0 E) g
mluInitMLu pInitMLu; 
$ O9 w2 l9 b5 p9 J0 F* r+ o' I
mluFreeMLu pFreeMLu;. `( ^' w4 U5 \

mluGetLuProc pGetLuProc; 
, Y% Q  M* Q! h3 z
mluUseLu pUseLu; 
, s% n8 a, S4 A, {
mluComModule pComModule;+ _9 R* C' j/ c- W6 W! ]

//Lu输出函数 
0 J& m6 o% w9 a% r6 \
luGetFor pGetFor; 
; C6 G) q5 ]6 y7 z% H$ [: S
luLuCal pLuCal; 
9 y7 [3 D: F7 Z\\" F% {! x
bool theInitMLu(void)        //初始化MLu) E, e( W  |0 K8 s/ I- ?9 L

{% L6 T! J8 H* V7 M8 B

hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll# }5 {% m) @3 a% y' S; C

if(!hMLu), A: x1 k\\" z& D8 G) a

{ 
) y% T9 a  V* q8 {  ~
                cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";# Y- Q; T, m: Z  E& J6 H

return false;( B1 J  U4 m/ j+ ~* `$ ]

} 
8 z8 r: S# f4 l
        //以下几个语句获取MLu32.dll的输出函数 
/ I0 `5 ]3 i2 N9 G
        pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");. }% J- V  }/ T) B3 P* P# S

pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");* t+ e% Y# F8 u% ]

pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc"); 
; P6 J% U; J9 o\\" Z- r; ^
        pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu"); 
! M; Z& h+ b9 L2 X, E
        pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");9 G  ^& u7 y9 Q2 s

if(!pInitMLu())        //初始化MLu32.dll3 B1 ?( z) A8 E; Q

{& h\\" |: E- m+ u

FreeLibrary(hMLu);        //释放动态库 
+ E/ {5 w0 P, o1 b3 W/ |
                cout<<"MLu初始化失败！";( h9 }, J1 B  p* \

return false;' L, W$ y8 j$ I0 \, V

}% o$ C% ^( t% U4 K& c

//以下几个语句获取Lu32.dll的输出函数 
+ O( r+ V4 i) h$ |0 \2 F
        pGetFor=(luGetFor) pGetLuProc("GetFor");# g4 t; ^\\" i: m' f& {

pLuCal=(luLuCal) pGetLuProc("LuCal");\\" y2 \, D/ u, `8 O* U0 d& |& o

return true; 
' v+ ]' @\\" [! g4 [: B$ O  _
}. m+ ]! d7 a+ X/ b3 j: p

void theFreeMLu(void)        //释放MLu 
1 Z5 s1 a2 q: P# D
{ 
% t4 x+ W; [, D' ~; b6 M! U- p
        pFreeMLu();        //释放MLu申请的空间7 B2 `9 a+ ~0 N) T1 {3 ~\\" \+ x. ^

FreeLibrary(hMLu);        //释放动态库2 r$ G! Q9 n  Y7 m6 m5 J, ]* L

}+ e: B, G1 h\\" ?# D& _5 W- }* Q; [6 {9 _7 e

void main(void) 
; T# M5 q' ~, N4 {5 G3 ?
{ 
( T) Q4 A& x3 C& T8 I
        void *hModule;                //模块句柄 
4 k( O\\" \2 q' B/ `# N
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置  ^$ T& N# z; Z\\" b. n

int i;                        //错误代码 
4 }5 ?+ F0 ?  g& @
        void *hFor;                //表达式句柄$ G, k' t8 @: _

luVOID nModule=0;                //表达式所在模块 
  ~# {( |  H9 `% e7 o0 g
        void *vPara;                //存放输入自变量的数组指针) k& D* u0 _- Y! y, Z2 n! c

LuData *pPara;                //存放输入自变量的数组指针# G: `( ?; K9 u$ s) M

luINT nPara;                //存放表达式的自变量个数 
' B$ h. Q. P$ d7 A
        LuData Val;                //存放表达式的值2 @( z' U5 z% R$ n

wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序4 h# j, @0 W# b

if(!theInitMLu()) return;        //初始化MLu- v: S8 U\\" J/ |

if(!pUseLu(2))                //申请使用Lu资源3 u, P) V. {% l\\" ^3 v

{: ^/ E4 S, n1 Z; @' W5 m8 @

i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序2 _( p  g. @' L  z* b, W' q

if(i): ^3 u. {( }- E

{ 
9 W& e7 V% Z4 y/ a$ |7 w
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl; 
3 V9 j* J, {* q, M
                }7 n2 H5 x3 Q/ Z

else 
9 p6 {) x; K7 M0 ?3 K
                { 
0 v; A\\" s( A: L, }- p$ A
                        if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))4 e$ F; z: }( u( S, V

{' j1 k5 N3 H' O% Q$ z

pPara=(LuData *)vPara;; U3 P' j1 `/ {- h; g: U

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
* W  s/ L\\" _\\" p* q4 L' v7 j' ^: y
                                { 
( J: t$ H% ^8 \# k
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;9 _# U\\" c; l9 v6 P. _5 i

} 
( Y0 k6 A5 t; C, a: v
                                Val=pLuCal(hFor,pPara);        //计算表达式的值 
9 a' C) a. c  E# s
                                cout<<Val.x<<endl;0 J7 G/ \8 e( u

} 
  Z! D( b( h* N' \# c. F
                        else. a9 V/ b) J# d

{( F# z1 t1 M% h1 ~2 z

cout<<"找不到指定的函数！"<<endl;% @# I8 |+ v9 O$ C! |- \; v* d

}9 @; H# _: N, @9 f( }! j

}, Z, A8 }1 Q2 Z( d, C7 t3 q* ]

pUseLu(0);        //归还Lu的使用权 
0 }\\" D% a, J6 Q1 ]7 T
        }/ V- ]: J3 w# ^( A% ]( Q* f

theFreeMLu();                //释放MLu! j% t2 C3 d3 ^) D  A& K

}

结果：