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

查看: 7222|回复: 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>) U# W+ {\\" D$ h; U$ D
#include <iostream>
+ b3 g8 {% Y# U8 T$ d
#include "lu32.h" //Lu头文件$ E0 c& w! X' X/ j1 C
#pragma comment( lib, "lu32.lib" )
2 B7 w1 j5 E$ X6 T1 y
#pragma comment( lib, "mlu32.lib" )7 b+ E# \6 m. v4 i
using namespace std;* p( x9 h0 r: h
void main(void)
2 E. o+ o9 g( U2 f- L
{) n. y0 v9 t- l% }
void *hModule; //模块句柄
. i/ M8 L0 I ?# K
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置' X: e, K/ E/ m3 x- K( ]
int i; //错误代码/ X- \6 W3 A. a/ K2 _
void *hFor; //表达式句柄 F; n# l! _; ]- Y
luVOID nModule=0; //表达式所在模块5 p% n: h2 K% Y
void *vPara; //存放输入自变量的数组指针0 t( H* E ^4 P# r
LuData *pPara; //存放输入自变量的数组指针
# I% n+ j; Q# \8 C: P
luINT nPara; //存放表达式的自变量个数; G5 u6 ^- L( Y, @4 i
LuData Val; //存放表达式的值
* M c3 ]& x6 a$ c
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序1 X6 E0 O- g( q( S; A( ^
if(!InitMLu()) return; //初始化MLu\\" n. X3 x: s* Y5 T7 { K6 X
if(!UseLu(2)) //申请使用Lu资源
7 ~/ x. X, \0 W\\" Q1 t1 r9 I
{+ E. \' D+ s+ q2 n$ g
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
% N0 z& a, c8 C, I) _3 y. B
if(i)
6 }2 A5 [' U# f5 s# D/ {* P$ L
{6 N; T2 R# {\\" Z* R& H# }& l
cout<<"Lu源程序有错误！错误代码："<<i<<endl;: A' x9 a/ A! ]3 H
}
7 J8 x3 z6 @ c' w1 b: H: u
else$ ]0 x# P; U# x' C
{3 ^0 I V\\" s/ O* T# S
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数 A5 \5 Z# B$ `# ?6 N/ T
{- h; Z7 ^- ]7 K3 C4 R9 L; d2 [1 g
pPara=(LuData *)vPara;5 w( \& j- s( v# [6 W
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1! ?& s& @7 \! v\\" B: ]' @
{/ `: R% z6 u) @1 ~% C. K3 D
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;7 z0 } @8 y& E6 a; t
}* I8 v$ }7 R+ c8 f
Val=LuCal(hFor,pPara); //计算表达式的值2 W! w; R. R' O$ N2 w u) x; _: L
cout<<Val.x<<endl;
+ k% j# c7 n7 f/ g; j; m) ]: \
}
1 C7 X9 l5 j5 {/ F: b6 B. ^
else8 z, H/ v5 Q4 v! _# G3 z0 t
{9 i# v3 l8 J) ]& t6 x: e\\" e
cout<<"找不到指定的函数！"<<endl;/ b4 w3 N& b+ l9 [& l# D8 v
}5 ]: o0 l% t\\" r1 O- `
}
& F( X6 d/ e9 E
UseLu(0); //归还Lu的使用权: k0 v' G& T! M' c0 w# g
}
- u. |5 P. q9 m9 R( q. B3 a
FreeMLu(); //释放MLu
; B4 _: z# z& \2 j0 z* k/ L6 E
}

#include <windows.h>) U# W+ {\\" D$ h; U$ D

#include <iostream> 
+ b3 g8 {% Y# U8 T$ d
#include "lu32.h"                        //Lu头文件$ E0 c& w! X' X/ j1 C

#pragma comment( lib, "lu32.lib" ) 
2 B7 w1 j5 E$ X6 T1 y
#pragma comment( lib, "mlu32.lib" )7 b+ E# \6 m. v4 i

using namespace std;* p( x9 h0 r: h

void main(void) 
2 E. o+ o9 g( U2 f- L
{) n. y0 v9 t- l% }

void *hModule;                //模块句柄 
. i/ M8 L0 I  ?# K
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置' X: e, K/ E/ m3 x- K( ]

int i;                        //错误代码/ X- \6 W3 A. a/ K2 _

void *hFor;                //表达式句柄  F; n# l! _; ]- Y

luVOID nModule=0;                //表达式所在模块5 p% n: h2 K% Y

void *vPara;                //存放输入自变量的数组指针0 t( H* E  ^4 P# r

LuData *pPara;                //存放输入自变量的数组指针 
# I% n+ j; Q# \8 C: P
        luINT nPara;                //存放表达式的自变量个数; G5 u6 ^- L( Y, @4 i

LuData Val;                //存放表达式的值 
* M  c3 ]& x6 a$ c
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序1 X6 E0 O- g( q( S; A( ^

if(!InitMLu()) return;        //初始化MLu\\" n. X3 x: s* Y5 T7 {  K6 X

if(!UseLu(2))                //申请使用Lu资源 
7 ~/ x. X, \0 W\\" Q1 t1 r9 I
        {+ E. \' D+ s+ q2 n$ g

i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
% N0 z& a, c8 C, I) _3 y. B
                if(i) 
6 }2 A5 [' U# f5 s# D/ {* P$ L
                {6 N; T2 R# {\\" Z* R& H# }& l

cout<<"Lu源程序有错误！错误代码："<<i<<endl;: A' x9 a/ A! ]3 H

} 
7 J8 x3 z6 @  c' w1 b: H: u
                else$ ]0 x# P; U# x' C

{3 ^0 I  V\\" s/ O* T# S

if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数  A5 \5 Z# B$ `# ?6 N/ T

{- h; Z7 ^- ]7 K3 C4 R9 L; d2 [1 g

pPara=(LuData *)vPara;5 w( \& j- s( v# [6 W

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1! ?& s& @7 \! v\\" B: ]' @

{/ `: R% z6 u) @1 ~% C. K3 D

pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;7 z0 }  @8 y& E6 a; t

}* I8 v$ }7 R+ c8 f

Val=LuCal(hFor,pPara);        //计算表达式的值2 W! w; R. R' O$ N2 w  u) x; _: L

cout<<Val.x<<endl; 
+ k% j# c7 n7 f/ g; j; m) ]: \
                        } 
1 C7 X9 l5 j5 {/ F: b6 B. ^
                        else8 z, H/ v5 Q4 v! _# G3 z0 t

{9 i# v3 l8 J) ]& t6 x: e\\" e

cout<<"找不到指定的函数！"<<endl;/ b4 w3 N& b+ l9 [& l# D8 v

}5 ]: o0 l% t\\" r1 O- `

} 
& F( X6 d/ e9 E
                UseLu(0);                //归还Lu的使用权: k0 v' G& T! M' c0 w# g

} 
- u. |5 P. q9 m9 R( q. B3 a
        FreeMLu();                //释放MLu 
; B4 _: z# z& \2 j0 z* k/ L6 E
}

结果：

3
- U) T$ z7 ` Q! {7 U
请按任意键继续. . .

复制代码

2 显式加载例子

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

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

#include <windows.h>
7 u2 P. V, k) a# w4 y
#include <iostream>
' P% v$ {! }/ R5 ~2 s
#include "Lu32.h"* [+ ~4 i6 U) l+ {% _
using namespace std;
- L, |& r- Q\\" ~5 a
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄
) X# v, y\\" w6 A$ A
: ?9 e3 _/ A+ M4 B2 G _
//MLu输出函数
+ A) a: } j& F* W4 o
mluInitMLu pInitMLu;+ r0 n! M6 B9 f- R0 c9 M
mluFreeMLu pFreeMLu;
( g2 u/ {5 Z/ x! f9 z# {( w; m
mluGetLuProc pGetLuProc;7 p8 J) F3 K) |- t8 S9 E
mluUseLu pUseLu;
& H1 V$ N2 F/ ]) {) K. v
mluComModule pComModule;/ y; d% ]) ^+ e8 C0 X7 t
//Lu输出函数8 _/ O# Z( a1 e) W( ^+ X6 b) h
luGetFor pGetFor;
# p# j1 Z) b% r1 m( x! e* Q+ u% o
luLuCal pLuCal;
/ t+ l8 w( x6 S* d6 c) {* }4 d2 L
bool theInitMLu(void) //初始化MLu/ F& P. T4 ?- n, s
{
5 \# K ?' A! w
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll
) b% l8 b% e* l3 {3 Y' G) t
if(!hMLu)
! i4 {0 p; A1 L) u
{
7 [# S, N& s$ U2 Z' Z
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";# _0 P0 N+ b1 a2 n4 Z& D
return false;
- l; P9 ^1 ~5 A- U/ U! \% j
}5 f y+ J, ?; F- _7 T
//以下几个语句获取MLu32.dll的输出函数% @- a3 M! [\\" Z
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");1 ~8 f$ A: c+ o( W, S& v, P
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");
8 N2 `( y\\" `) p7 j( b3 Y& N+ N
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");) k/ s: X4 C- S7 w/ Z6 R% ?
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");
/ E% |3 a! n, A
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");
: d/ H! K+ [( O. a/ y
if(!pInitMLu()) //初始化MLu32.dll
* ^; m/ g3 |\\" n( A. z
{
: F! ~; A/ f r- ]# l
FreeLibrary(hMLu); //释放动态库/ a: R, [& D- ?
cout<<"MLu初始化失败！";8 v: m: N [2 j7 J/ V; T5 _
return false;
& t/ M/ ]7 e6 ]9 _
}
//以下几个语句获取Lu32.dll的输出函数7 o6 {, z4 }9 ^' C) v
pGetFor=(luGetFor) pGetLuProc("GetFor");1 _# k2 w! v7 x0 j6 d
pLuCal=(luLuCal) pGetLuProc("LuCal");! Q( t6 m1 V# J- W
return true;
\\" C2 n# h/ P5 h7 c( _( b
}5 J7 s( V5 c; Y9 s0 G' W' d( p\\" {
void theFreeMLu(void) //释放MLu6 v1 B$ R4 z7 |, h
{5 @. K6 `4 ^, v3 b* I/ I: t3 o b
pFreeMLu(); //释放MLu申请的空间) k1 F y7 R\\" z3 J% l, J$ G
FreeLibrary(hMLu); //释放动态库
& X9 \6 K0 V9 ]$ d) U
}4 y3 w7 {4 G( V. Z
void main(void)3 [( u! u- D; ]- g L$ I
{
: l\\" M+ E. k4 N* g+ N
void *hModule; //模块句柄
' B: V4 |+ z1 X& ^; s8 D
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置) L4 h% X1 b! }( b3 `0 K
int i; //错误代码5 y) \3 Z$ b+ |- Y
void *hFor; //表达式句柄
& T9 ?' R( T3 U
luVOID nModule=0; //表达式所在模块
: b# E: {6 _! }
void *vPara; //存放输入自变量的数组指针/ f+ V* c\\" Q/ D B
LuData *pPara; //存放输入自变量的数组指针( m: D5 r3 E. N! N+ V
luINT nPara; //存放表达式的自变量个数
% `) C& z! j& D0 ^, B6 s
LuData Val; //存放表达式的值
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序# o& I+ b4 q7 C1 m
if(!theInitMLu()) return; //初始化MLu
. p$ p, I' J+ j7 @ F
if(!pUseLu(2)) //申请使用Lu资源
( K3 O* R9 I* W3 N
{7 E3 C% `8 {. R3 ]! n% x$ i
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序. s! J' o+ ]+ Z
if(i); [- Z/ h% ?3 M2 I: J i
{
+ u# J9 L# M h4 {( k$ V1 _0 D
cout<<"Lu源程序有错误！错误代码："<<i<<endl;
^$ S2 p, |: A: t! b9 w
}9 q8 ~! C9 R! p8 S
else
5 w1 r5 e: E9 G! I& V
{/ N( I4 _% C( a2 M\\" @/ y5 P$ C
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))\\" d! k5 Y U% W, d9 B
{/ a( h: j2 O; e8 A
pPara=(LuData *)vPara;' j, E: |0 z* ]6 E1 ^* f0 N6 J
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
9 Q1 N- F, A& J3 I% b; v, v1 v
{
* S) e4 j$ H7 j; l
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;1 \4 j0 ?. |5 O% @5 i
}
( t, q+ a9 P/ x\\" D4 N1 e
Val=pLuCal(hFor,pPara); //计算表达式的值5 U+ T2 h c6 ^2 B\\" M8 d, e& m# J
cout<<Val.x<<endl;% N; w+ s8 ?% r! z! j
} e2 V K3 O7 H3 ]5 ^5 ^4 Z6 W
else
) F4 |2 |# h8 e+ ^ Z' A0 a0 _
{
J& g0 p3 B% U( V% f$ \
cout<<"找不到指定的函数！"<<endl;' ?\\" d5 ~5 N4 g; U8 r
}3 [7 R# ?3 c2 l8 J3 q& ]
}2 _# U7 {7 [4 { {/ ?, G! B1 s S% }
pUseLu(0); //归还Lu的使用权, K' A\\" L7 T) B
}
7 I6 y/ R. B1 ?2 O
theFreeMLu(); //释放MLu3 @$ D/ j2 v3 E# V: x% I
}

#include <windows.h> 
7 u2 P. V, k) a# w4 y
#include <iostream> 
' P% v$ {! }/ R5 ~2 s
#include "Lu32.h"* [+ ~4 i6 U) l+ {% _

using namespace std; 
- L, |& r- Q\\" ~5 a
HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄 
) X# v, y\\" w6 A$ A
: ?9 e3 _/ A+ M4 B2 G  _

//MLu输出函数 
+ A) a: }  j& F* W4 o
mluInitMLu pInitMLu;+ r0 n! M6 B9 f- R0 c9 M

mluFreeMLu pFreeMLu; 
( g2 u/ {5 Z/ x! f9 z# {( w; m
mluGetLuProc pGetLuProc;7 p8 J) F3 K) |- t8 S9 E

mluUseLu pUseLu; 
& H1 V$ N2 F/ ]) {) K. v
mluComModule pComModule;/ y; d% ]) ^+ e8 C0 X7 t

//Lu输出函数8 _/ O# Z( a1 e) W( ^+ X6 b) h

luGetFor pGetFor; 
# p# j1 Z) b% r1 m( x! e* Q+ u% o
luLuCal pLuCal; 
/ t+ l8 w( x6 S* d6 c) {* }4 d2 L
bool theInitMLu(void)        //初始化MLu/ F& P. T4 ?- n, s

{ 
5 \# K  ?' A! w
        hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll 
) b% l8 b% e* l3 {3 Y' G) t
        if(!hMLu) 
! i4 {0 p; A1 L) u
        { 
7 [# S, N& s$ U2 Z' Z
                cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";# _0 P0 N+ b1 a2 n4 Z& D

return false; 
- l; P9 ^1 ~5 A- U/ U! \% j
        }5 f  y+ J, ?; F- _7 T

//以下几个语句获取MLu32.dll的输出函数% @- a3 M! [\\" Z

pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");1 ~8 f$ A: c+ o( W, S& v, P

pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu"); 
8 N2 `( y\\" `) p7 j( b3 Y& N+ N
        pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");) k/ s: X4 C- S7 w/ Z6 R% ?

pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu"); 
/ E% |3 a! n, A
        pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule"); 
: d/ H! K+ [( O. a/ y
        if(!pInitMLu())        //初始化MLu32.dll 
* ^; m/ g3 |\\" n( A. z
        { 
: F! ~; A/ f  r- ]# l
                FreeLibrary(hMLu);        //释放动态库/ a: R, [& D- ?

cout<<"MLu初始化失败！";8 v: m: N  [2 j7 J/ V; T5 _

return false; 
& t/ M/ ]7 e6 ]9 _
        } 
, ]. i9 ]% D- I  v3 l  F; {5 ^/ ^+ H
        //以下几个语句获取Lu32.dll的输出函数7 o6 {, z4 }9 ^' C) v

pGetFor=(luGetFor) pGetLuProc("GetFor");1 _# k2 w! v7 x0 j6 d

pLuCal=(luLuCal) pGetLuProc("LuCal");! Q( t6 m1 V# J- W

return true; 
\\" C2 n# h/ P5 h7 c( _( b
}5 J7 s( V5 c; Y9 s0 G' W' d( p\\" {

void theFreeMLu(void)        //释放MLu6 v1 B$ R4 z7 |, h

{5 @. K6 `4 ^, v3 b* I/ I: t3 o  b

pFreeMLu();        //释放MLu申请的空间) k1 F  y7 R\\" z3 J% l, J$ G

FreeLibrary(hMLu);        //释放动态库 
& X9 \6 K0 V9 ]$ d) U
}4 y3 w7 {4 G( V. Z

void main(void)3 [( u! u- D; ]- g  L$ I

{ 
: l\\" M+ E. k4 N* g+ N
        void *hModule;                //模块句柄 
' B: V4 |+ z1 X& ^; s8 D
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置) L4 h% X1 b! }( b3 `0 K

int i;                        //错误代码5 y) \3 Z$ b+ |- Y

void *hFor;                //表达式句柄 
& T9 ?' R( T3 U
        luVOID nModule=0;                //表达式所在模块 
: b# E: {6 _! }
        void *vPara;                //存放输入自变量的数组指针/ f+ V* c\\" Q/ D  B

LuData *pPara;                //存放输入自变量的数组指针( m: D5 r3 E. N! N+ V

luINT nPara;                //存放表达式的自变量个数 
% `) C& z! j& D0 ^, B6 s
        LuData Val;                //存放表达式的值 
* l1 \- a( ~  |5 @, W& o! \! J\\" m, c
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序# o& I+ b4 q7 C1 m

if(!theInitMLu()) return;        //初始化MLu 
. p$ p, I' J+ j7 @  F
        if(!pUseLu(2))                //申请使用Lu资源 
( K3 O* R9 I* W3 N
        {7 E3 C% `8 {. R3 ]! n% x$ i

i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序. s! J' o+ ]+ Z

if(i); [- Z/ h% ?3 M2 I: J  i

{ 
+ u# J9 L# M  h4 {( k$ V1 _0 D
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl; 
  ^$ S2 p, |: A: t! b9 w
                }9 q8 ~! C9 R! p8 S

else 
5 w1 r5 e: E9 G! I& V
                {/ N( I4 _% C( a2 M\\" @/ y5 P$ C

if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))\\" d! k5 Y  U% W, d9 B

{/ a( h: j2 O; e8 A

pPara=(LuData *)vPara;' j, E: |0 z* ]6 E1 ^* f0 N6 J

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
9 Q1 N- F, A& J3 I% b; v, v1 v
                                { 
* S) e4 j$ H7 j; l
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;1 \4 j0 ?. |5 O% @5 i

} 
( t, q+ a9 P/ x\\" D4 N1 e
                                Val=pLuCal(hFor,pPara);        //计算表达式的值5 U+ T2 h  c6 ^2 B\\" M8 d, e& m# J

cout<<Val.x<<endl;% N; w+ s8 ?% r! z! j

}  e2 V  K3 O7 H3 ]5 ^5 ^4 Z6 W

else 
) F4 |2 |# h8 e+ ^  Z' A0 a0 _
                        { 
  J& g0 p3 B% U( V% f$ \
                                cout<<"找不到指定的函数！"<<endl;' ?\\" d5 ~5 N4 g; U8 r

}3 [7 R# ?3 c2 l8 J3 q& ]

}2 _# U7 {7 [4 {  {/ ?, G! B1 s  S% }

pUseLu(0);        //归还Lu的使用权, K' A\\" L7 T) B

} 
7 I6 y/ R. B1 ?2 O
        theFreeMLu();                //释放MLu3 @$ D/ j2 v3 E# V: x% I

}

结果：