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

查看: 8465|回复: 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>/ y' t! w6 g u; O1 E+ V. @
#include <iostream>
9 Z9 B L. w/ ^# P! w* c! d
#include "lu32.h" //Lu头文件
- U& Z9 `# Y- E; m# j; S) S
#pragma comment( lib, "lu32.lib" )
# R0 i/ T4 f* p6 U4 a6 |) h$ P
#pragma comment( lib, "mlu32.lib" )) M# ]/ M; C! w4 C: w% E% c6 X- C
using namespace std;
5 x* M9 D& {0 h( k9 W( z r9 K
void main(void), ~) M1 O% d: i+ ?
{
6 v, j2 n# L5 ~' p
void *hModule; //模块句柄6 g K/ d, I& g7 a% ~$ G
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
$ E9 I3 p) M5 L8 w+ I$ F0 A* S: r
int i; //错误代码, c8 h' B: }/ o0 c9 F$ H% J; i5 \
void *hFor; //表达式句柄\\" \1 k) Y, b0 ~
luVOID nModule=0; //表达式所在模块
5 Y, Z7 l% N3 f) V6 K; F8 {\\" A
void *vPara; //存放输入自变量的数组指针
. v( Z\\" }6 ?' g0 \2 A g/ f8 X
LuData *pPara; //存放输入自变量的数组指针
: N* o# V: U, K5 A R' y J$ B6 \
luINT nPara; //存放表达式的自变量个数/ M; b, X2 J) a8 S7 {( P
LuData Val; //存放表达式的值
/ s X! E$ N& {) d0 c
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序0 P V% T: u0 V# s% h
if(!InitMLu()) return; //初始化MLu8 r/ A! i3 z, y3 j
if(!UseLu(2)) //申请使用Lu资源
$ z: f3 \' h* H
{
/ w: s7 F- q; o
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
[. r# [+ |; s
if(i)& i# R5 _4 G+ L$ T- j; @
{2 T$ N9 Q! U) Y# b0 i6 r3 l
cout<<"Lu源程序有错误！错误代码："<<i<<endl;\\" |- q5 d! T1 u2 J2 A! E
}\\" A! M0 |. L8 `3 s
else8 _6 X: `2 L7 U4 _ P/ V, \/ `5 f0 k
{8 G- j) }' h$ T' }/ f4 [* D
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数/ e# j) V) o7 ]; z& N
{
% G1 M# [5 Y7 o) B2 f\\" P
pPara=(LuData *)vPara;
7 Y1 k' l3 R2 [
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为16 k9 y+ H l: e; x
{
, U0 |2 C+ i3 ]% A
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
: E& i; b4 a8 K1 U$ M0 n
}
L9 K, a3 F% ^% D/ _' F
Val=LuCal(hFor,pPara); //计算表达式的值
8 j1 N3 V- u9 D- O
cout<<Val.x<<endl;! A: k9 u7 M( H, w }- f+ ?
}! I% N\\" m% x: p( z/ V
else
; q; ]8 @1 L! [$ W
{
, W/ O1 t/ B8 }\\" {( V: k9 o
cout<<"找不到指定的函数！"<<endl;$ t4 @% p1 W' g8 D* n4 ~\\" K
}% c8 `8 [' b$ d
}
: H1 b* J0 c! ~, c% y/ K: X
UseLu(0); //归还Lu的使用权
( f, d\\" w) e! Z6 y( M/ s( j1 H
}
k2 ^' T: q\\" \7 s; T1 K
FreeMLu(); //释放MLu
. q3 p( u5 F; {7 B
}

#include <windows.h>/ y' t! w6 g  u; O1 E+ V. @

#include <iostream> 
9 Z9 B  L. w/ ^# P! w* c! d
#include "lu32.h"                        //Lu头文件 
- U& Z9 `# Y- E; m# j; S) S
#pragma comment( lib, "lu32.lib" ) 
# R0 i/ T4 f* p6 U4 a6 |) h$ P
#pragma comment( lib, "mlu32.lib" )) M# ]/ M; C! w4 C: w% E% c6 X- C

using namespace std; 
5 x* M9 D& {0 h( k9 W( z  r9 K
void main(void), ~) M1 O% d: i+ ?

{ 
6 v, j2 n# L5 ~' p
        void *hModule;                //模块句柄6 g  K/ d, I& g7 a% ~$ G

luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
$ E9 I3 p) M5 L8 w+ I$ F0 A* S: r
        int i;                        //错误代码, c8 h' B: }/ o0 c9 F$ H% J; i5 \

void *hFor;                //表达式句柄\\" \1 k) Y, b0 ~

luVOID nModule=0;                //表达式所在模块 
5 Y, Z7 l% N3 f) V6 K; F8 {\\" A
        void *vPara;                //存放输入自变量的数组指针 
. v( Z\\" }6 ?' g0 \2 A  g/ f8 X
        LuData *pPara;                //存放输入自变量的数组指针 
: N* o# V: U, K5 A  R' y  J$ B6 \
        luINT nPara;                //存放表达式的自变量个数/ M; b, X2 J) a8 S7 {( P

LuData Val;                //存放表达式的值 
/ s  X! E$ N& {) d0 c
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序0 P  V% T: u0 V# s% h

if(!InitMLu()) return;        //初始化MLu8 r/ A! i3 z, y3 j

if(!UseLu(2))                //申请使用Lu资源 
$ z: f3 \' h* H
        { 
/ w: s7 F- q; o
                i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
  [. r# [+ |; s
                if(i)& i# R5 _4 G+ L$ T- j; @

{2 T$ N9 Q! U) Y# b0 i6 r3 l

cout<<"Lu源程序有错误！错误代码："<<i<<endl;\\" |- q5 d! T1 u2 J2 A! E

}\\" A! M0 |. L8 `3 s

else8 _6 X: `2 L7 U4 _  P/ V, \/ `5 f0 k

{8 G- j) }' h$ T' }/ f4 [* D

if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数/ e# j) V) o7 ]; z& N

{ 
% G1 M# [5 Y7 o) B2 f\\" P
                                pPara=(LuData *)vPara; 
7 Y1 k' l3 R2 [
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为16 k9 y+ H  l: e; x

{ 
, U0 |2 C+ i3 ]% A
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
: E& i; b4 a8 K1 U$ M0 n
                                } 
  L9 K, a3 F% ^% D/ _' F
                                Val=LuCal(hFor,pPara);        //计算表达式的值 
8 j1 N3 V- u9 D- O
                                cout<<Val.x<<endl;! A: k9 u7 M( H, w  }- f+ ?

}! I% N\\" m% x: p( z/ V

else 
; q; ]8 @1 L! [$ W
                        { 
, W/ O1 t/ B8 }\\" {( V: k9 o
                                cout<<"找不到指定的函数！"<<endl;$ t4 @% p1 W' g8 D* n4 ~\\" K

}% c8 `8 [' b$ d

} 
: H1 b* J0 c! ~, c% y/ K: X
                UseLu(0);                //归还Lu的使用权 
( f, d\\" w) e! Z6 y( M/ s( j1 H
        } 
  k2 ^' T: q\\" \7 s; T1 K
        FreeMLu();                //释放MLu 
. q3 p( u5 F; {7 B
}

结果：

3
* N6 \& S; K3 ` l8 O; F
请按任意键继续. . .

复制代码

2 显式加载例子

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

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

#include <windows.h>3 F4 U3 Y5 e' R$ d
#include <iostream>
) {$ }: i2 S7 O0 ]# U( v
#include "Lu32.h"
& _2 f2 o/ [* i) p\\" j3 c
using namespace std;\\" v% y0 @; j( `3 K1 H! V6 |& K
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄$ l, J8 V8 P k( O
1 D! r% H; U! D( [
//MLu输出函数0 F) }% q# u* k0 a* I3 P0 s
mluInitMLu pInitMLu;
% y5 k\\" J4 w' K\\" {0 p( ~
mluFreeMLu pFreeMLu;8 |/ T u5 b, _: f0 k/ C9 Z. f# I6 j! x
mluGetLuProc pGetLuProc;* r- t, i+ \6 |) f4 x# _. ~: p
mluUseLu pUseLu;
1 n) O/ c X1 X) Z7 @* B
mluComModule pComModule;; X4 a; K8 P: i% m ~
//Lu输出函数4 ] }9 j% B\\" K/ ^0 C% ^
luGetFor pGetFor;
& t$ ?5 V# c- A f/ w' I
luLuCal pLuCal;
* w0 q9 [! _# d+ C! l$ i
bool theInitMLu(void) //初始化MLu: n# o/ U8 }/ }
{
6 ^; o5 q! x9 x: H4 p# S0 U r
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll\\" I7 J8 C1 s* k5 u) A3 |4 ~3 j
if(!hMLu)
7 I) K) M1 H. `6 \
{/ }4 |0 y# C0 H/ g0 n
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";
& P9 r2 R, n) c\\" F
return false;' W: u1 C4 z* D( r, Y- C) C
}; u: j+ y1 N, U8 M\\" }/ P- f) e; ?/ \
//以下几个语句获取MLu32.dll的输出函数
2 y1 ?! f! Y3 \ W
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");
; b4 d1 @( d! R5 |
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");2 a. B. B/ h6 }
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");* y- e% t$ J. U
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");
b4 R. b2 g! i- ?, D/ O) V7 r
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");: m0 T. y\\" I! ~8 y' ]
if(!pInitMLu()) //初始化MLu32.dll+ b\\" K' d) C E6 T) I
{
6 G6 s8 P5 t; k' R4 z
FreeLibrary(hMLu); //释放动态库\\" m; I+ W# K$ Q) o
cout<<"MLu初始化失败！";0 H/ J W2 R3 a, T+ a, A! L
return false;) F7 H* V0 o1 h/ ^. y
}: v7 t4 a9 `# q; K% x# ]8 n\\" P5 U
//以下几个语句获取Lu32.dll的输出函数5 Q8 M( S' A) A
pGetFor=(luGetFor) pGetLuProc("GetFor");; ^( L6 ~- U0 A0 B9 J8 m
pLuCal=(luLuCal) pGetLuProc("LuCal");+ o P! o# i! {
return true;! O( D( k% m+ `: u2 M- q$ x
}
6 u$ S2 v! t! s: ^
void theFreeMLu(void) //释放MLu6 p- j4 V/ q L1 i1 L- I
{' W {; D* z2 o$ p: ~# S$ S! E
pFreeMLu(); //释放MLu申请的空间
% h$ y; n2 q\\" o% `- N! u
FreeLibrary(hMLu); //释放动态库
: } `0 [, T H
}
0 X2 e; _) m% C/ b! B/ K
void main(void)6 b8 c6 t! w7 K$ G$ P: m
{6 _6 @5 v% b [, ]
void *hModule; //模块句柄
7 p3 B5 J7 l; D. e9 L# _# P
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
5 ?/ G3 U4 ?1 T' }- s
int i; //错误代码0 U {# m5 g4 C0 x
void *hFor; //表达式句柄
% W. n/ {0 a' P L
luVOID nModule=0; //表达式所在模块
! U7 w' k, u( H v! ^: L; w9 s
void *vPara; //存放输入自变量的数组指针+ @9 Y/ l. P5 D9 @
LuData *pPara; //存放输入自变量的数组指针
* l, e- i+ ]\\" R
luINT nPara; //存放表达式的自变量个数
\\" r! P* K6 E7 c
LuData Val; //存放表达式的值! Q4 C0 W( `6 u8 q2 X
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序) \, u! t+ d1 \. a: G
if(!theInitMLu()) return; //初始化MLu. ?7 ^, X4 |( l% n
if(!pUseLu(2)) //申请使用Lu资源1 _/ p: m: A1 X/ t
{
$ v( c' s. U3 b, }. p0 {
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序, a% X2 a! ]# g
if(i)
/ h, s& H. B9 X& c0 H% j2 ^+ u
{ N4 _* i! [1 ^3 g- g7 Z
cout<<"Lu源程序有错误！错误代码："<<i<<endl;( _$ s3 E9 E, ~$ r& N5 m
}8 p% G; N! w' j9 o0 T% Y
else
3 p- U! C' R* `3 d2 R6 J* E1 d A6 H
{
6 h7 z3 I! C3 P3 ~
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))2 R6 O+ z- o' r# Y
{
; q) g# _8 [6 t4 z, B$ K+ h8 ]
pPara=(LuData *)vPara;
7 K4 i$ E1 u& j7 U9 ]
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1# \% ]& |( B; y/ X' J! s; g
{
/ D% W7 B+ y3 X' {; E
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
3 w. H5 @: T4 A% t! `) P
}
{/ |( H5 N\\" j8 t4 T
Val=pLuCal(hFor,pPara); //计算表达式的值
\\" b0 O. F. P6 N& |' `1 q! U9 i
cout<<Val.x<<endl;3 R2 e# ~4 E, O r9 J8 ~) u; l
}
4 J' f( U& d\\" c! D
else# q/ u0 T& @8 z! R
{
! } w3 X/ l/ a% ~; } _
cout<<"找不到指定的函数！"<<endl;! _) K, c3 }' }' R1 J7 q& I9 X
}
1 Q# x9 }1 V, k3 r
}
3 `# U( Q) N: K* X
pUseLu(0); //归还Lu的使用权\\" F# C1 p* E$ m. h3 o
}5 W# ^: B& m3 F9 X# b$ t$ i
theFreeMLu(); //释放MLu
p$ P) X, w! K9 }* }
}

#include <windows.h>3 F4 U3 Y5 e' R$ d

#include <iostream> 
) {$ }: i2 S7 O0 ]# U( v
#include "Lu32.h" 
& _2 f2 o/ [* i) p\\" j3 c
using namespace std;\\" v% y0 @; j( `3 K1 H! V6 |& K

HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄$ l, J8 V8 P  k( O

1 D! r% H; U! D( [

//MLu输出函数0 F) }% q# u* k0 a* I3 P0 s

mluInitMLu pInitMLu; 
% y5 k\\" J4 w' K\\" {0 p( ~
mluFreeMLu pFreeMLu;8 |/ T  u5 b, _: f0 k/ C9 Z. f# I6 j! x

mluGetLuProc pGetLuProc;* r- t, i+ \6 |) f4 x# _. ~: p

mluUseLu pUseLu; 
1 n) O/ c  X1 X) Z7 @* B
mluComModule pComModule;; X4 a; K8 P: i% m  ~

//Lu输出函数4 ]  }9 j% B\\" K/ ^0 C% ^

luGetFor pGetFor; 
& t$ ?5 V# c- A  f/ w' I
luLuCal pLuCal; 
* w0 q9 [! _# d+ C! l$ i
bool theInitMLu(void)        //初始化MLu: n# o/ U8 }/ }

{ 
6 ^; o5 q! x9 x: H4 p# S0 U  r
        hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll\\" I7 J8 C1 s* k5 u) A3 |4 ~3 j

if(!hMLu) 
7 I) K) M1 H. `6 \
        {/ }4 |0 y# C0 H/ g0 n

cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！"; 
& P9 r2 R, n) c\\" F
                return false;' W: u1 C4 z* D( r, Y- C) C

}; u: j+ y1 N, U8 M\\" }/ P- f) e; ?/ \

//以下几个语句获取MLu32.dll的输出函数 
2 y1 ?! f! Y3 \  W
        pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu"); 
; b4 d1 @( d! R5 |
        pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");2 a. B. B/ h6 }

pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");* y- e% t$ J. U

pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu"); 
  b4 R. b2 g! i- ?, D/ O) V7 r
        pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");: m0 T. y\\" I! ~8 y' ]

if(!pInitMLu())        //初始化MLu32.dll+ b\\" K' d) C  E6 T) I

{ 
6 G6 s8 P5 t; k' R4 z
                FreeLibrary(hMLu);        //释放动态库\\" m; I+ W# K$ Q) o

cout<<"MLu初始化失败！";0 H/ J  W2 R3 a, T+ a, A! L

return false;) F7 H* V0 o1 h/ ^. y

}: v7 t4 a9 `# q; K% x# ]8 n\\" P5 U

//以下几个语句获取Lu32.dll的输出函数5 Q8 M( S' A) A

pGetFor=(luGetFor) pGetLuProc("GetFor");; ^( L6 ~- U0 A0 B9 J8 m

pLuCal=(luLuCal) pGetLuProc("LuCal");+ o  P! o# i! {

return true;! O( D( k% m+ `: u2 M- q$ x

} 
6 u$ S2 v! t! s: ^
void theFreeMLu(void)        //释放MLu6 p- j4 V/ q  L1 i1 L- I

{' W  {; D* z2 o$ p: ~# S$ S! E

pFreeMLu();        //释放MLu申请的空间 
% h$ y; n2 q\\" o% `- N! u
        FreeLibrary(hMLu);        //释放动态库 
: }  `0 [, T  H
} 
0 X2 e; _) m% C/ b! B/ K
void main(void)6 b8 c6 t! w7 K$ G$ P: m

{6 _6 @5 v% b  [, ]

void *hModule;                //模块句柄 
7 p3 B5 J7 l; D. e9 L# _# P
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
5 ?/ G3 U4 ?1 T' }- s
        int i;                        //错误代码0 U  {# m5 g4 C0 x

void *hFor;                //表达式句柄 
% W. n/ {0 a' P  L
        luVOID nModule=0;                //表达式所在模块 
! U7 w' k, u( H  v! ^: L; w9 s
        void *vPara;                //存放输入自变量的数组指针+ @9 Y/ l. P5 D9 @

LuData *pPara;                //存放输入自变量的数组指针 
* l, e- i+ ]\\" R
        luINT nPara;                //存放表达式的自变量个数 
\\" r! P* K6 E7 c
        LuData Val;                //存放表达式的值! Q4 C0 W( `6 u8 q2 X

wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序) \, u! t+ d1 \. a: G

if(!theInitMLu()) return;        //初始化MLu. ?7 ^, X4 |( l% n

if(!pUseLu(2))                //申请使用Lu资源1 _/ p: m: A1 X/ t

{ 
$ v( c' s. U3 b, }. p0 {
                i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序, a% X2 a! ]# g

if(i) 
/ h, s& H. B9 X& c0 H% j2 ^+ u
                {  N4 _* i! [1 ^3 g- g7 Z

cout<<"Lu源程序有错误！错误代码："<<i<<endl;( _$ s3 E9 E, ~$ r& N5 m

}8 p% G; N! w' j9 o0 T% Y

else 
3 p- U! C' R* `3 d2 R6 J* E1 d  A6 H
                { 
6 h7 z3 I! C3 P3 ~
                        if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))2 R6 O+ z- o' r# Y

{ 
; q) g# _8 [6 t4 z, B$ K+ h8 ]
                                pPara=(LuData *)vPara; 
7 K4 i$ E1 u& j7 U9 ]
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1# \% ]& |( B; y/ X' J! s; g

{ 
/ D% W7 B+ y3 X' {; E
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
3 w. H5 @: T4 A% t! `) P
                                } 
  {/ |( H5 N\\" j8 t4 T
                                Val=pLuCal(hFor,pPara);        //计算表达式的值 
\\" b0 O. F. P6 N& |' `1 q! U9 i
                                cout<<Val.x<<endl;3 R2 e# ~4 E, O  r9 J8 ~) u; l

} 
4 J' f( U& d\\" c! D
                        else# q/ u0 T& @8 z! R

{ 
! }  w3 X/ l/ a% ~; }  _
                                cout<<"找不到指定的函数！"<<endl;! _) K, c3 }' }' R1 J7 q& I9 X

} 
1 Q# x9 }1 V, k3 r
                } 
3 `# U( Q) N: K* X
                pUseLu(0);        //归还Lu的使用权\\" F# C1 p* E$ m. h3 o

}5 W# ^: B& m3 F9 X# b$ t$ i

theFreeMLu();                //释放MLu 
  p$ P) X, w! K9 }* }
}

结果：