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

查看: 8451|回复: 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>
\\" t8 H3 }5 X$ k' x! h( K4 z
#include <iostream>
5 M+ |\\" i3 c/ `) C4 k
#include "lu32.h" //Lu头文件$ ]5 Z- `3 g! m) q+ f+ ~. o
#pragma comment( lib, "lu32.lib" )
5 O4 w, C8 ^# `/ S. z
#pragma comment( lib, "mlu32.lib" )
1 S- W* o J3 U
using namespace std;
0 k( d% j3 W& a' n6 V
void main(void)
1 E; L! r* m, z\\" y, s
{
/ d) n; X- H% K2 ?) w
void *hModule; //模块句柄5 [* L! w\\" Z. o
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置8 p# \- y8 I% Z4 a6 u/ [
int i; //错误代码 p/ j8 T3 L ~% F4 J
void *hFor; //表达式句柄. ^\\" ]( t t& [% p. Y5 [
luVOID nModule=0; //表达式所在模块
/ e- o! v$ U9 r3 v, J9 |
void *vPara; //存放输入自变量的数组指针/ ^2 d6 M/ [3 s
LuData *pPara; //存放输入自变量的数组指针
# g9 e8 `$ ^' x: e: G& Z
luINT nPara; //存放表达式的自变量个数% N8 q5 H, a8 l3 x
LuData Val; //存放表达式的值! W% D* s( `) u% u
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序
8 s1 ]0 P\\" ^6 B9 A& ~* @$ v\\" a
if(!InitMLu()) return; //初始化MLu
, Z6 O, g$ k- J5 t0 e# X ] B
if(!UseLu(2)) //申请使用Lu资源
; L _8 ~, |3 B' p% ^+ u- o
{! t7 S6 e0 ?6 L4 S
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
8 A( H6 J- Y) [* [4 n: g
if(i); }7 r$ R7 l8 L' b8 R
{& @0 s/ W' f: J! v
cout<<"Lu源程序有错误！错误代码："<<i<<endl;( R( h+ ]& u. J# N8 C\\" `
}4 I( }, ~ a7 r o
else- g7 ^/ q9 q) a1 _
{
4 L9 A/ A# Y# E
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数
& ~\\" @& b! B& N
{! K- ~# J) i0 }+ y
pPara=(LuData *)vPara;
# y3 \8 f\\" g! K, N. M: X
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为13 z$ W8 i- s1 i
{) Z6 R3 [\\" l* E8 Z S. P2 `
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
\\" A) [. e! c- }9 I; L8 \' V: o# J
}6 t3 D/ S, O# y& m4 I# K\\" X
Val=LuCal(hFor,pPara); //计算表达式的值
2 r6 _& W! z5 O1 y& q1 v
cout<<Val.x<<endl;. m% N) M) g6 G7 v
}
' Z! e, F9 Z# |: Q, |: o3 i0 z
else
5 s2 S! u; f& } |$ A+ X1 o( I$ e+ s
{
\\" W( s% p- P) s
cout<<"找不到指定的函数！"<<endl;
1 P& G3 l5 A$ u; _3 B
}
+ ^! O3 Y$ [1 r' f: N# A/ g# F
}
6 I$ i. E6 {4 j/ p
UseLu(0); //归还Lu的使用权
& Y! Z- {, D3 p; F' r- Y9 i: N! J
}
% a( v3 c. u4 ?* \) M6 z. Z
FreeMLu(); //释放MLu\\" `% {& k% c3 E* h: D G A- e. d* c
}

#include <windows.h> 
\\" t8 H3 }5 X$ k' x! h( K4 z
#include <iostream> 
5 M+ |\\" i3 c/ `) C4 k
#include "lu32.h"                        //Lu头文件$ ]5 Z- `3 g! m) q+ f+ ~. o

#pragma comment( lib, "lu32.lib" ) 
5 O4 w, C8 ^# `/ S. z
#pragma comment( lib, "mlu32.lib" ) 
1 S- W* o  J3 U
using namespace std; 
0 k( d% j3 W& a' n6 V
void main(void) 
1 E; L! r* m, z\\" y, s
{ 
/ d) n; X- H% K2 ?) w
        void *hModule;                //模块句柄5 [* L! w\\" Z. o

luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置8 p# \- y8 I% Z4 a6 u/ [

int i;                        //错误代码  p/ j8 T3 L  ~% F4 J

void *hFor;                //表达式句柄. ^\\" ]( t  t& [% p. Y5 [

luVOID nModule=0;                //表达式所在模块 
/ e- o! v$ U9 r3 v, J9 |
        void *vPara;                //存放输入自变量的数组指针/ ^2 d6 M/ [3 s

LuData *pPara;                //存放输入自变量的数组指针 
# g9 e8 `$ ^' x: e: G& Z
        luINT nPara;                //存放表达式的自变量个数% N8 q5 H, a8 l3 x

LuData Val;                //存放表达式的值! W% D* s( `) u% u

wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序 
8 s1 ]0 P\\" ^6 B9 A& ~* @$ v\\" a
        if(!InitMLu()) return;        //初始化MLu 
, Z6 O, g$ k- J5 t0 e# X  ]  B
        if(!UseLu(2))                //申请使用Lu资源 
; L  _8 ~, |3 B' p% ^+ u- o
        {! t7 S6 e0 ?6 L4 S

i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
8 A( H6 J- Y) [* [4 n: g
                if(i); }7 r$ R7 l8 L' b8 R

{& @0 s/ W' f: J! v

cout<<"Lu源程序有错误！错误代码："<<i<<endl;( R( h+ ]& u. J# N8 C\\" `

}4 I( }, ~  a7 r  o

else- g7 ^/ q9 q) a1 _

{ 
4 L9 A/ A# Y# E
                        if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数 
& ~\\" @& b! B& N
                        {! K- ~# J) i0 }+ y

pPara=(LuData *)vPara; 
# y3 \8 f\\" g! K, N. M: X
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为13 z$ W8 i- s1 i

{) Z6 R3 [\\" l* E8 Z  S. P2 `

pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
\\" A) [. e! c- }9 I; L8 \' V: o# J
                                }6 t3 D/ S, O# y& m4 I# K\\" X

Val=LuCal(hFor,pPara);        //计算表达式的值 
2 r6 _& W! z5 O1 y& q1 v
                                cout<<Val.x<<endl;. m% N) M) g6 G7 v

} 
' Z! e, F9 Z# |: Q, |: o3 i0 z
                        else 
5 s2 S! u; f& }  |$ A+ X1 o( I$ e+ s
                        { 
\\" W( s% p- P) s
                                cout<<"找不到指定的函数！"<<endl; 
1 P& G3 l5 A$ u; _3 B
                        } 
+ ^! O3 Y$ [1 r' f: N# A/ g# F
                } 
6 I$ i. E6 {4 j/ p
                UseLu(0);                //归还Lu的使用权 
& Y! Z- {, D3 p; F' r- Y9 i: N! J
        } 
% a( v3 c. u4 ?* \) M6 z. Z
        FreeMLu();                //释放MLu\\" `% {& k% c3 E* h: D  G  A- e. d* c

}

结果：

3% |2 G# \\" ~0 ?# K
请按任意键继续. . .

复制代码

2 显式加载例子

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

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

#include <windows.h>0 l1 w4 v/ p; D j
#include <iostream>\\" ], M {' ~6 @9 k
#include "Lu32.h"9 F3 ]2 s `( N3 ^7 |4 ^) x, E$ p
using namespace std;! I% ]: d1 P, R0 b; t
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄
2 j7 V8 u& Z: \
1 k( o! f; E) {! T0 U
//MLu输出函数
3 v& q* m1 P) p1 k3 W* m0 w! u7 v
mluInitMLu pInitMLu;, ?7 n* u+ f\\" w\\" c
mluFreeMLu pFreeMLu;
# P, c2 _- q2 ]+ F
mluGetLuProc pGetLuProc;. `8 }) v0 W' I2 E* ?
mluUseLu pUseLu;
& c; {, W* Y3 Z/ y9 C
mluComModule pComModule;( F' q& M4 n/ m! m6 ?% G
//Lu输出函数
6 G$ H; u: C) \. H
luGetFor pGetFor;
8 h/ V- K; {9 z9 M( A* R/ U! ?+ a$ Q
luLuCal pLuCal;
; |, k* S$ a ?- x' \0 ?
bool theInitMLu(void) //初始化MLu
& i- J) |- w, b7 Q) ~4 b0 J
{8 ]' P. e$ \8 r+ q7 ]# ~) [2 g! b
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll
# f3 u6 q: I/ z
if(!hMLu)
* a- q8 v- |* O3 B# D6 K
{
4 k# ]# M6 K5 _- s
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";
. C: r2 K* G9 l0 C* _
return false;
- H. d6 o% a$ m+ n/ n
}- U3 B1 B1 P4 ]; ^
//以下几个语句获取MLu32.dll的输出函数$ D0 v\\" B; i6 q& c\\" e; A
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");( }2 |6 l/ h) h
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");% s9 F/ T2 K/ t2 N% _ R
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");
t: t$ d5 \5 P0 H
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");+ n1 O, ]$ \) U. A
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");\\" ^# O2 F( M E4 y: \# \
if(!pInitMLu()) //初始化MLu32.dll
- Z1 B; @! e6 a. e\\" L- r8 V
{$ s& Y\\" O9 ^( Y
FreeLibrary(hMLu); //释放动态库- N' Z7 Y; |9 Y- @% A% s: y
cout<<"MLu初始化失败！";
$ m3 _8 B5 l\\" y! z- b3 f% E
return false;7 {: }$ s5 ?& ]7 [\\" }/ ]( S+ Q3 \9 U
}$ }' d, U& g3 M, \; a
//以下几个语句获取Lu32.dll的输出函数
0 M: k$ F( k ^
pGetFor=(luGetFor) pGetLuProc("GetFor");0 B8 i0 T Q5 R ?3 w\\" m4 U5 P
pLuCal=(luLuCal) pGetLuProc("LuCal");
% w+ L5 y$ X/ f: o% |
return true; h* f2 ?+ n% b9 s
} d. B1 y; m. f3 e* c
void theFreeMLu(void) //释放MLu: ` E0 p, ]\\" |: |! G9 s1 O1 \+ {
{
% F# u) X6 k0 N4 F
pFreeMLu(); //释放MLu申请的空间8 h, k C7 X\\" ~
FreeLibrary(hMLu); //释放动态库8 \3 V6 W) a0 }/ v' o
}
% e3 V4 H1 ]* R) F
void main(void)
\\" p3 k, l4 E$ K; u2 u: u) k
{8 d/ o; F* V6 z2 n) ~4 ~, ^2 r2 p
void *hModule; //模块句柄
$ P, ~7 M\\" E N1 P1 }
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
! f8 ]/ o9 {8 d4 c6 Q
int i; //错误代码
! r% @- @( q5 q W
void *hFor; //表达式句柄
% S, q- L V/ [\\" s: }6 ~: `
luVOID nModule=0; //表达式所在模块
' G) U# S' P6 v' i1 Y0 t
void *vPara; //存放输入自变量的数组指针
) M. t* h& ?& i! x9 q& ]
LuData *pPara; //存放输入自变量的数组指针
/ R& q% K9 s3 e4 O: h. N\\" f- P' V) \
luINT nPara; //存放表达式的自变量个数
/ e% y3 V: f7 S/ |
LuData Val; //存放表达式的值
5 ?7 l$ I# W& p# d1 A
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序; }4 W. k6 i% }: O! Z n
if(!theInitMLu()) return; //初始化MLu
/ {1 _+ n$ T0 f( r n8 s3 [2 y
if(!pUseLu(2)) //申请使用Lu资源
* U/ R/ K9 q) x A9 Z
{
|5 A/ s# h3 O1 a% F
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
) D7 f' h\\" R+ o: }: d2 C
if(i)
5 y u: W2 i& @8 e- _, w
{7 O2 ~0 F# D T+ B
cout<<"Lu源程序有错误！错误代码："<<i<<endl;
0 r0 h# b# X! g* n) [: h
}9 z6 J- I0 ^% c
else z) j% C9 P\\" Q
{
. ]/ i3 O: t3 a' P8 t& A' Y. b3 I
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))
, i+ x# [3 C x- I9 @
{0 D1 S) `+ x) q. d- g
pPara=(LuData *)vPara;; _3 e; i0 k, o
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1; s' Y x* O3 K& n' ]5 n% {
{
& v- r( @$ M: V7 a6 d& o: U
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;) N, J* L/ }/ ?! P- v
}
1 n4 h9 _/ P, P q0 ^# l
Val=pLuCal(hFor,pPara); //计算表达式的值, d- m' S* l3 [8 _+ ~
cout<<Val.x<<endl;
% N# w _9 ^& A' u
}8 C( }+ }/ y! C
else9 M( k8 D& l$ I O* x/ w' Q
{
# r; {4 ?1 \& Q! q$ p
cout<<"找不到指定的函数！"<<endl;
: V\\" C& `+ n- \( B5 i
}6 ` F% ~+ d: o2 N
}
1 E* T0 s& i4 m; H9 b9 y
pUseLu(0); //归还Lu的使用权
0 {% G ~8 E9 _& }
}% M# y8 j0 y- H. I' u
theFreeMLu(); //释放MLu
5 F# a& _\\" L [( l
}

#include <windows.h>0 l1 w4 v/ p; D  j

#include <iostream>\\" ], M  {' ~6 @9 k

#include "Lu32.h"9 F3 ]2 s  `( N3 ^7 |4 ^) x, E$ p

using namespace std;! I% ]: d1 P, R0 b; t

HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄 
2 j7 V8 u& Z: \
1 k( o! f; E) {! T0 U

//MLu输出函数 
3 v& q* m1 P) p1 k3 W* m0 w! u7 v
mluInitMLu pInitMLu;, ?7 n* u+ f\\" w\\" c

mluFreeMLu pFreeMLu; 
# P, c2 _- q2 ]+ F
mluGetLuProc pGetLuProc;. `8 }) v0 W' I2 E* ?

mluUseLu pUseLu; 
& c; {, W* Y3 Z/ y9 C
mluComModule pComModule;( F' q& M4 n/ m! m6 ?% G

//Lu输出函数 
6 G$ H; u: C) \. H
luGetFor pGetFor; 
8 h/ V- K; {9 z9 M( A* R/ U! ?+ a$ Q
luLuCal pLuCal; 
; |, k* S$ a  ?- x' \0 ?
bool theInitMLu(void)        //初始化MLu 
& i- J) |- w, b7 Q) ~4 b0 J
{8 ]' P. e$ \8 r+ q7 ]# ~) [2 g! b

hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll 
# f3 u6 q: I/ z
        if(!hMLu) 
* a- q8 v- |* O3 B# D6 K
        { 
4 k# ]# M6 K5 _- s
                cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！"; 
. C: r2 K* G9 l0 C* _
                return false; 
- H. d6 o% a$ m+ n/ n
        }- U3 B1 B1 P4 ]; ^

//以下几个语句获取MLu32.dll的输出函数$ D0 v\\" B; i6 q& c\\" e; A

pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");( }2 |6 l/ h) h

pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");% s9 F/ T2 K/ t2 N% _  R

pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc"); 
  t: t$ d5 \5 P0 H
        pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");+ n1 O, ]$ \) U. A

pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");\\" ^# O2 F( M  E4 y: \# \

if(!pInitMLu())        //初始化MLu32.dll 
- Z1 B; @! e6 a. e\\" L- r8 V
        {$ s& Y\\" O9 ^( Y

FreeLibrary(hMLu);        //释放动态库- N' Z7 Y; |9 Y- @% A% s: y

cout<<"MLu初始化失败！"; 
$ m3 _8 B5 l\\" y! z- b3 f% E
                return false;7 {: }$ s5 ?& ]7 [\\" }/ ]( S+ Q3 \9 U

}$ }' d, U& g3 M, \; a

//以下几个语句获取Lu32.dll的输出函数 
0 M: k$ F( k  ^
        pGetFor=(luGetFor) pGetLuProc("GetFor");0 B8 i0 T  Q5 R  ?3 w\\" m4 U5 P

pLuCal=(luLuCal) pGetLuProc("LuCal"); 
% w+ L5 y$ X/ f: o% |
        return true;  h* f2 ?+ n% b9 s

}  d. B1 y; m. f3 e* c

void theFreeMLu(void)        //释放MLu: `  E0 p, ]\\" |: |! G9 s1 O1 \+ {

{ 
% F# u) X6 k0 N4 F
        pFreeMLu();        //释放MLu申请的空间8 h, k  C7 X\\" ~

FreeLibrary(hMLu);        //释放动态库8 \3 V6 W) a0 }/ v' o

} 
% e3 V4 H1 ]* R) F
void main(void) 
\\" p3 k, l4 E$ K; u2 u: u) k
{8 d/ o; F* V6 z2 n) ~4 ~, ^2 r2 p

void *hModule;                //模块句柄 
$ P, ~7 M\\" E  N1 P1 }
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
! f8 ]/ o9 {8 d4 c6 Q
        int i;                        //错误代码 
! r% @- @( q5 q  W
        void *hFor;                //表达式句柄 
% S, q- L  V/ [\\" s: }6 ~: `
        luVOID nModule=0;                //表达式所在模块 
' G) U# S' P6 v' i1 Y0 t
        void *vPara;                //存放输入自变量的数组指针 
) M. t* h& ?& i! x9 q& ]
        LuData *pPara;                //存放输入自变量的数组指针 
/ R& q% K9 s3 e4 O: h. N\\" f- P' V) \
        luINT nPara;                //存放表达式的自变量个数 
/ e% y3 V: f7 S/ |
        LuData Val;                //存放表达式的值 
5 ?7 l$ I# W& p# d1 A
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序; }4 W. k6 i% }: O! Z  n

if(!theInitMLu()) return;        //初始化MLu 
/ {1 _+ n$ T0 f( r  n8 s3 [2 y
        if(!pUseLu(2))                //申请使用Lu资源 
* U/ R/ K9 q) x  A9 Z
        { 
  |5 A/ s# h3 O1 a% F
                i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
) D7 f' h\\" R+ o: }: d2 C
                if(i) 
5 y  u: W2 i& @8 e- _, w
                {7 O2 ~0 F# D  T+ B

cout<<"Lu源程序有错误！错误代码："<<i<<endl; 
0 r0 h# b# X! g* n) [: h
                }9 z6 J- I0 ^% c

else  z) j% C9 P\\" Q

{ 
. ]/ i3 O: t3 a' P8 t& A' Y. b3 I
                        if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) 
, i+ x# [3 C  x- I9 @
                        {0 D1 S) `+ x) q. d- g

pPara=(LuData *)vPara;; _3 e; i0 k, o

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1; s' Y  x* O3 K& n' ]5 n% {

{ 
& v- r( @$ M: V7 a6 d& o: U
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;) N, J* L/ }/ ?! P- v

} 
1 n4 h9 _/ P, P  q0 ^# l
                                Val=pLuCal(hFor,pPara);        //计算表达式的值, d- m' S* l3 [8 _+ ~

cout<<Val.x<<endl; 
% N# w  _9 ^& A' u
                        }8 C( }+ }/ y! C

else9 M( k8 D& l$ I  O* x/ w' Q

{ 
# r; {4 ?1 \& Q! q$ p
                                cout<<"找不到指定的函数！"<<endl; 
: V\\" C& `+ n- \( B5 i
                        }6 `  F% ~+ d: o2 N

} 
1 E* T0 s& i4 m; H9 b9 y
                pUseLu(0);        //归还Lu的使用权 
0 {% G  ~8 E9 _& }
        }% M# y8 j0 y- H. I' u

theFreeMLu();                //释放MLu 
5 F# a& _\\" L  [( l
}

结果：