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

查看: 8577|回复: 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>
9 `/ D0 R7 ^5 j/ @/ Y3 J
#include <iostream>) E* `$ O9 L: k% \\\" R- G
#include "lu32.h" //Lu头文件
9 E; A7 U1 N d& W+ m: ?\\" |2 f- [
#pragma comment( lib, "lu32.lib" ). @) c5 P( L- H$ O* E- R1 \
#pragma comment( lib, "mlu32.lib" )2 v! P' P: V; K; D9 @. ^4 [
using namespace std;
, g: E: M! O4 c$ z$ G0 R0 J
void main(void)' \: u# j8 R7 L* |& M2 }% @
{
2 R+ ^5 C( a5 T6 }/ @. \2 j
void *hModule; //模块句柄\\" h7 N+ O+ ]' X
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置# U! v$ {9 H, I8 }9 {
int i; //错误代码
: Z' @8 j4 l, x% a
void *hFor; //表达式句柄
\\" s! C8 I0 ?/ P9 X
luVOID nModule=0; //表达式所在模块, z( b0 E\\" j9 S8 l h
void *vPara; //存放输入自变量的数组指针( N! l5 Z$ I w) N( J
LuData *pPara; //存放输入自变量的数组指针
4 |/ z, e& e- b% r1 k: Z
luINT nPara; //存放表达式的自变量个数. s4 j. @: U, H9 M- R
LuData Val; //存放表达式的值
$ I; t1 q; W6 x$ v
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序
( U) p! [* g+ S% i1 m! H! V9 G
if(!InitMLu()) return; //初始化MLu ]\\" U- [6 ?9 f/ D
if(!UseLu(2)) //申请使用Lu资源
7 H/ n0 q3 _9 o( @
{
: \\\" d1 x/ v6 [5 c
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序4 y! d: j: L7 ^1 W/ e
if(i)
; _: p0 \( @' h1 x* e8 y
{
& {/ f' x* U( }2 i; N6 }
cout<<"Lu源程序有错误！错误代码："<<i<<endl;+ X1 ?+ n0 @( O+ \, r4 O& e
}
) D+ y6 ?* C* ^# O; z- _+ O+ T5 s
else
- ]8 g( u7 A2 n4 m6 f! R5 p
{7 `4 _: r6 C. B9 \) O! v
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数
9 g. S( P3 g1 A W! k$ V6 t% F
{& Z8 ?2 B4 `. \. {) W! }+ M
pPara=(LuData *)vPara;
% s' J1 \) b+ i* Z$ W
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
; X1 s2 ?1 L r) ^ ]& S
{3 @2 E2 n- q$ S
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
# {: g; l1 E3 ]) c+ x
} A& l# M. ~: m; O. l! [
Val=LuCal(hFor,pPara); //计算表达式的值
4 p7 [6 P( K8 @5 v
cout<<Val.x<<endl;
5 U4 N6 {2 @. l) G
}
! P1 `5 }# i0 G3 A! ~) U
else+ }# n0 _% M9 D; n; K1 f ~: U
{
- K\\" j2 J. t/ e0 h' i# x
cout<<"找不到指定的函数！"<<endl;
5 b+ Q: Q1 m. S: j\\" ~
}6 l+ t5 l- M/ d3 t( {% N
}
. X! {* A. u+ d! U: F: t
UseLu(0); //归还Lu的使用权( @( N; z! A- x' [2 U- U: T1 g
}
5 A4 K% C0 F% g0 V/ y
FreeMLu(); //释放MLu8 l. l7 F0 ]\\" G9 d5 H6 h
}

#include <windows.h> 
9 `/ D0 R7 ^5 j/ @/ Y3 J
#include <iostream>) E* `$ O9 L: k% \\\" R- G

#include "lu32.h"                        //Lu头文件 
9 E; A7 U1 N  d& W+ m: ?\\" |2 f- [
#pragma comment( lib, "lu32.lib" ). @) c5 P( L- H$ O* E- R1 \

#pragma comment( lib, "mlu32.lib" )2 v! P' P: V; K; D9 @. ^4 [

using namespace std; 
, g: E: M! O4 c$ z$ G0 R0 J
void main(void)' \: u# j8 R7 L* |& M2 }% @

{ 
2 R+ ^5 C( a5 T6 }/ @. \2 j
        void *hModule;                //模块句柄\\" h7 N+ O+ ]' X

luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置# U! v$ {9 H, I8 }9 {

int i;                        //错误代码 
: Z' @8 j4 l, x% a
        void *hFor;                //表达式句柄 
\\" s! C8 I0 ?/ P9 X
        luVOID nModule=0;                //表达式所在模块, z( b0 E\\" j9 S8 l  h

void *vPara;                //存放输入自变量的数组指针( N! l5 Z$ I  w) N( J

LuData *pPara;                //存放输入自变量的数组指针 
4 |/ z, e& e- b% r1 k: Z
        luINT nPara;                //存放表达式的自变量个数. s4 j. @: U, H9 M- R

LuData Val;                //存放表达式的值 
$ I; t1 q; W6 x$ v
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序 
( U) p! [* g+ S% i1 m! H! V9 G
        if(!InitMLu()) return;        //初始化MLu  ]\\" U- [6 ?9 f/ D

if(!UseLu(2))                //申请使用Lu资源 
7 H/ n0 q3 _9 o( @
        { 
: \\\" d1 x/ v6 [5 c
                i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序4 y! d: j: L7 ^1 W/ e

if(i) 
; _: p0 \( @' h1 x* e8 y
                { 
& {/ f' x* U( }2 i; N6 }
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl;+ X1 ?+ n0 @( O+ \, r4 O& e

} 
) D+ y6 ?* C* ^# O; z- _+ O+ T5 s
                else 
- ]8 g( u7 A2 n4 m6 f! R5 p
                {7 `4 _: r6 C. B9 \) O! v

if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数 
9 g. S( P3 g1 A  W! k$ V6 t% F
                        {& Z8 ?2 B4 `. \. {) W! }+ M

pPara=(LuData *)vPara; 
% s' J1 \) b+ i* Z$ W
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
; X1 s2 ?1 L  r) ^  ]& S
                                {3 @2 E2 n- q$ S

pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
# {: g; l1 E3 ]) c+ x
                                }  A& l# M. ~: m; O. l! [

Val=LuCal(hFor,pPara);        //计算表达式的值 
4 p7 [6 P( K8 @5 v
                                cout<<Val.x<<endl; 
5 U4 N6 {2 @. l) G
                        } 
! P1 `5 }# i0 G3 A! ~) U
                        else+ }# n0 _% M9 D; n; K1 f  ~: U

{ 
- K\\" j2 J. t/ e0 h' i# x
                                cout<<"找不到指定的函数！"<<endl; 
5 b+ Q: Q1 m. S: j\\" ~
                        }6 l+ t5 l- M/ d3 t( {% N

} 
. X! {* A. u+ d! U: F: t
                UseLu(0);                //归还Lu的使用权( @( N; z! A- x' [2 U- U: T1 g

} 
5 A4 K% C0 F% g0 V/ y
        FreeMLu();                //释放MLu8 l. l7 F0 ]\\" G9 d5 H6 h

}

结果：

3\" d3 m& ~\" l6 `; ^' l& e, O7 {
请按任意键继续. . .

复制代码

2 显式加载例子

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

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

#include <windows.h>
#include <iostream>
9 O4 |( Q+ }- ~% x6 \
#include "Lu32.h"
; W1 L$ \: ?9 w5 t
using namespace std; G/ B5 a N! J
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄
d& G5 J' {/ `; h
$ g% y- B* }5 u
//MLu输出函数) p$ D) t5 g x$ F. i8 @
mluInitMLu pInitMLu;
/ x0 H) m6 o( a. D* P
mluFreeMLu pFreeMLu;+ H9 \. {$ q9 T9 I7 D
mluGetLuProc pGetLuProc;
z: d% D5 x$ T
mluUseLu pUseLu;4 q& Q/ o4 Z- H- K
mluComModule pComModule;
) u9 v, _! J* }4 v\\" I& s! q
//Lu输出函数8 J% ~# ?. j) Z: c' ]0 Q\\" N E7 H2 |
luGetFor pGetFor;
$ D! [ m7 F# ^* a\\" a% b
luLuCal pLuCal;
L; e) f6 v, e6 t. g
bool theInitMLu(void) //初始化MLu
' X. `6 {% T; n
{: T6 R$ T5 G5 k b& g/ b
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll
+ S' {% a\\" z4 m- T
if(!hMLu)
* d! x5 P; A0 \# X
{! [0 b' u6 c e& j
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";3 z& ^3 v$ S$ v, c
return false;/ ~5 ?# k( s3 Q7 }
}$ V! \8 b0 O4 D. x' k& E
//以下几个语句获取MLu32.dll的输出函数# T8 W$ k. O8 m1 H1 s
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");+ N' G' ?9 H, e7 m7 }
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");
- n1 Z# r6 x, M, A
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");
. I+ w/ l2 P' D, }/ m\\" _6 k- I' q
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");
+ r% x; L. |$ E4 o( X/ Q% ~( S
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");
* S. r) Q! _, |; i
if(!pInitMLu()) //初始化MLu32.dll
0 |6 b2 H) X% S( m
{4 H+ [) s9 r w$ i
FreeLibrary(hMLu); //释放动态库
, N: R4 B4 D3 L( T3 p
cout<<"MLu初始化失败！";# Y\\" \, R6 |: [& f4 h: D
return false;$ p& R) J Y$ k8 q1 h\\" I4 m/ o# b
}
8 `# q$ I\\" q- {$ P5 D6 V! C# q
//以下几个语句获取Lu32.dll的输出函数
1 b' u& |6 a: H; B7 R3 V K
pGetFor=(luGetFor) pGetLuProc("GetFor");6 s ]! b6 ~% [4 N, d1 [1 s
pLuCal=(luLuCal) pGetLuProc("LuCal");
* e* y# F3 J$ |! B* B- N s# F
return true;
( E. e% h, q8 s9 m+ s
}+ A3 G x2 J! S( U7 G2 I J
void theFreeMLu(void) //释放MLu
: O& d7 J9 j% k
{: t$ k: o/ Z* |) x# [
pFreeMLu(); //释放MLu申请的空间
! ?. g$ O q- w* q
FreeLibrary(hMLu); //释放动态库( t0 h; H$ o2 l\\" Y* y5 d
}
1 J5 T3 [, @) [) N
void main(void)
\\" a& e% a3 Y$ e, \: [- s- `/ h/ W
{
$ o0 }\\" \1 b8 {! r* s
void *hModule; //模块句柄
% p1 l, T- F* j3 s; W1 U
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
' T: Z# k4 C; W5 M( @
int i; //错误代码
, E# f* `& ?( S! [3 r
void *hFor; //表达式句柄
# ?6 b3 S6 I+ A+ b
luVOID nModule=0; //表达式所在模块, A6 |, T+ [$ s: z5 c
void *vPara; //存放输入自变量的数组指针+ X/ }% @+ X6 ~, W0 n4 L
LuData *pPara; //存放输入自变量的数组指针1 [\\" [' y; [0 z
luINT nPara; //存放表达式的自变量个数
0 [% ? q5 q# k\\" e4 N; M
LuData Val; //存放表达式的值8 g* A* D! b, I& @9 i
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序3 B3 ?& }* p& K8 [% Q6 _\\" a* C1 A, E
if(!theInitMLu()) return; //初始化MLu2 T9 i\\" z' i6 s
if(!pUseLu(2)) //申请使用Lu资源
2 h- w0 g( b3 C6 w9 Y
{
2 u v\\" x' v0 p' M5 k9 U6 K' B4 j
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
0 J- W+ O5 z) P. T/ P0 U
if(i)4 T [# }/ U9 o, s6 v' J
{
+ a0 v3 A# ? R [' t9 t: [
cout<<"Lu源程序有错误！错误代码："<<i<<endl;
9 K5 L3 h j) j8 Z3 |. d
}
( X) v& b3 h; H9 P
else3 \) q' x7 g7 D
{0 w+ w F( o; p: K p% e1 X; e7 k. K; G! {
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))
8 f# o5 K& e; ~! b6 }7 i
{0 F0 x/ y% Y* W) ]' r
pPara=(LuData *)vPara;/ o8 {$ J5 r( j5 I' u/ Q
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
5 l) Y: ^8 U, \6 \2 O
{( q3 G- v5 i E% o
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
; y3 X/ e1 g1 a
}
( O5 |% ?8 Y+ o) E) B' ]
Val=pLuCal(hFor,pPara); //计算表达式的值! F; m* M\\" h- j- ?6 S' ]
cout<<Val.x<<endl;
7 U\\" d( t8 b2 H( }- T' F
}
- N9 g) R! |( W# N& c7 ]6 N
else
_) r* k+ y. P( N1 A1 F
{) `4 d2 p K1 q/ H
cout<<"找不到指定的函数！"<<endl;% S1 @3 _% P$ b# D- [5 a8 N5 k
}
0 g( Z& k5 ?0 S, A+ b$ e6 ~\\" L
}, e( O& g$ G2 g! y% G7 e/ E
pUseLu(0); //归还Lu的使用权
J9 {0 I6 T4 v+ {
}
% N5 C5 r6 t5 j* x4 |
theFreeMLu(); //释放MLu
9 _( @' c% c! S
}

#include <windows.h> 
% g) y; a1 s+ M9 A- O' @! z/ e\\" |2 C3 f
#include <iostream> 
9 O4 |( Q+ }- ~% x6 \
#include "Lu32.h" 
; W1 L$ \: ?9 w5 t
using namespace std;  G/ B5 a  N! J

HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄 
  d& G5 J' {/ `; h
$ g% y- B* }5 u

//MLu输出函数) p$ D) t5 g  x$ F. i8 @

mluInitMLu pInitMLu; 
/ x0 H) m6 o( a. D* P
mluFreeMLu pFreeMLu;+ H9 \. {$ q9 T9 I7 D

mluGetLuProc pGetLuProc; 
  z: d% D5 x$ T
mluUseLu pUseLu;4 q& Q/ o4 Z- H- K

mluComModule pComModule; 
) u9 v, _! J* }4 v\\" I& s! q
//Lu输出函数8 J% ~# ?. j) Z: c' ]0 Q\\" N  E7 H2 |

luGetFor pGetFor; 
$ D! [  m7 F# ^* a\\" a% b
luLuCal pLuCal; 
  L; e) f6 v, e6 t. g
bool theInitMLu(void)        //初始化MLu 
' X. `6 {% T; n
{: T6 R$ T5 G5 k  b& g/ b

hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll 
+ S' {% a\\" z4 m- T
        if(!hMLu) 
* d! x5 P; A0 \# X
        {! [0 b' u6 c  e& j

cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";3 z& ^3 v$ S$ v, c

return false;/ ~5 ?# k( s3 Q7 }

}$ V! \8 b0 O4 D. x' k& E

//以下几个语句获取MLu32.dll的输出函数# T8 W$ k. O8 m1 H1 s

pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");+ N' G' ?9 H, e7 m7 }

pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu"); 
- n1 Z# r6 x, M, A
        pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc"); 
. I+ w/ l2 P' D, }/ m\\" _6 k- I' q
        pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu"); 
+ r% x; L. |$ E4 o( X/ Q% ~( S
        pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule"); 
* S. r) Q! _, |; i
        if(!pInitMLu())        //初始化MLu32.dll 
0 |6 b2 H) X% S( m
        {4 H+ [) s9 r  w$ i

FreeLibrary(hMLu);        //释放动态库 
, N: R4 B4 D3 L( T3 p
                cout<<"MLu初始化失败！";# Y\\" \, R6 |: [& f4 h: D

return false;$ p& R) J  Y$ k8 q1 h\\" I4 m/ o# b

} 
8 `# q$ I\\" q- {$ P5 D6 V! C# q
        //以下几个语句获取Lu32.dll的输出函数 
1 b' u& |6 a: H; B7 R3 V  K
        pGetFor=(luGetFor) pGetLuProc("GetFor");6 s  ]! b6 ~% [4 N, d1 [1 s

pLuCal=(luLuCal) pGetLuProc("LuCal"); 
* e* y# F3 J$ |! B* B- N  s# F
        return true; 
( E. e% h, q8 s9 m+ s
}+ A3 G  x2 J! S( U7 G2 I  J

void theFreeMLu(void)        //释放MLu 
: O& d7 J9 j% k
{: t$ k: o/ Z* |) x# [

pFreeMLu();        //释放MLu申请的空间 
! ?. g$ O  q- w* q
        FreeLibrary(hMLu);        //释放动态库( t0 h; H$ o2 l\\" Y* y5 d

} 
1 J5 T3 [, @) [) N
void main(void) 
\\" a& e% a3 Y$ e, \: [- s- `/ h/ W
{ 
$ o0 }\\" \1 b8 {! r* s
        void *hModule;                //模块句柄 
% p1 l, T- F* j3 s; W1 U
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
' T: Z# k4 C; W5 M( @
        int i;                        //错误代码 
, E# f* `& ?( S! [3 r
        void *hFor;                //表达式句柄 
# ?6 b3 S6 I+ A+ b
        luVOID nModule=0;                //表达式所在模块, A6 |, T+ [$ s: z5 c

void *vPara;                //存放输入自变量的数组指针+ X/ }% @+ X6 ~, W0 n4 L

LuData *pPara;                //存放输入自变量的数组指针1 [\\" [' y; [0 z

luINT nPara;                //存放表达式的自变量个数 
0 [% ?  q5 q# k\\" e4 N; M
        LuData Val;                //存放表达式的值8 g* A* D! b, I& @9 i

wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序3 B3 ?& }* p& K8 [% Q6 _\\" a* C1 A, E

if(!theInitMLu()) return;        //初始化MLu2 T9 i\\" z' i6 s

if(!pUseLu(2))                //申请使用Lu资源 
2 h- w0 g( b3 C6 w9 Y
        { 
2 u  v\\" x' v0 p' M5 k9 U6 K' B4 j
                i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
0 J- W+ O5 z) P. T/ P0 U
                if(i)4 T  [# }/ U9 o, s6 v' J

{ 
+ a0 v3 A# ?  R  [' t9 t: [
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl; 
9 K5 L3 h  j) j8 Z3 |. d
                } 
( X) v& b3 h; H9 P
                else3 \) q' x7 g7 D

{0 w+ w  F( o; p: K  p% e1 X; e7 k. K; G! {

if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) 
8 f# o5 K& e; ~! b6 }7 i
                        {0 F0 x/ y% Y* W) ]' r

pPara=(LuData *)vPara;/ o8 {$ J5 r( j5 I' u/ Q

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
5 l) Y: ^8 U, \6 \2 O
                                {( q3 G- v5 i  E% o

pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
; y3 X/ e1 g1 a
                                } 
( O5 |% ?8 Y+ o) E) B' ]
                                Val=pLuCal(hFor,pPara);        //计算表达式的值! F; m* M\\" h- j- ?6 S' ]

cout<<Val.x<<endl; 
7 U\\" d( t8 b2 H( }- T' F
                        } 
- N9 g) R! |( W# N& c7 ]6 N
                        else 
  _) r* k+ y. P( N1 A1 F
                        {) `4 d2 p  K1 q/ H

cout<<"找不到指定的函数！"<<endl;% S1 @3 _% P$ b# D- [5 a8 N5 k

} 
0 g( Z& k5 ?0 S, A+ b$ e6 ~\\" L
                }, e( O& g$ G2 g! y% G7 e/ E

pUseLu(0);        //归还Lu的使用权 
  J9 {0 I6 T4 v+ {
        } 
% N5 C5 r6 t5 j* x4 |
        theFreeMLu();                //释放MLu 
9 _( @' c% c! S
}

结果：