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

查看: 8313|回复: 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>
+ `+ B: t8 E4 M' o$ l) X% x
#include <iostream>
2 H8 e* l: ^( p\\" X- X j: _
#include "lu32.h" //Lu头文件. Z1 v, H; X8 a/ U
#pragma comment( lib, "lu32.lib" )
& C$ ~- S. _# n- w/ f* y7 ?: w' d
#pragma comment( lib, "mlu32.lib" )9 u u4 o- g3 v6 s# P# K9 Y
using namespace std;
! ^. M) R6 u% _! b/ V% H\\" S
void main(void)/ E5 Z: y% r: z# H/ e$ f5 E
{, u; C6 m\\" w& Z. t
void *hModule; //模块句柄
: R( y0 S/ z0 a6 c9 w% i
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置' o* K, T3 ?2 S7 l
int i; //错误代码- {: A' y% t K u& H
void *hFor; //表达式句柄* a4 k7 l: m0 P A3 u! }2 a* X
luVOID nModule=0; //表达式所在模块
: p* i9 Q\\" u1 }0 U
void *vPara; //存放输入自变量的数组指针- F, W, u' j y: M! e
LuData *pPara; //存放输入自变量的数组指针
- a( Z7 C/ G2 D* A( f+ x: _! |- G
luINT nPara; //存放表达式的自变量个数: S. J+ H& F1 \1 q' Z
LuData Val; //存放表达式的值
% N# W% |1 c* @
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序
, f7 \0 m% P( u2 a$ @6 J
if(!InitMLu()) return; //初始化MLu
% L9 Q2 o' U+ O6 {
if(!UseLu(2)) //申请使用Lu资源9 e4 X! f: S& X
{' @! F1 V m+ Y7 b8 m4 R8 R
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序8 a7 t- _* F+ H' ?
if(i)
0 _/ N. I8 L1 o D( Y8 A& o! K! t
{
, y. _4 B- {& `5 I. e/ ~
cout<<"Lu源程序有错误！错误代码："<<i<<endl;0 A7 S5 z! w* Z# x- l- s* x
}
( n: p+ S# `8 L' U+ q/ u
else
( L' W9 ~% K1 L\\" _! n+ p
{
- b. o' U2 r0 a
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数! R- h& b# p B0 W: ]: ]+ l
{' U- B4 u8 q+ X/ T1 e
pPara=(LuData *)vPara;9 A6 ?2 _0 R5 Q9 j) c5 o
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1. q7 D( w. o: I- l% ]) D6 |/ z
{
$ Z' i9 ^& d/ `. o. Y) d1 ~
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;$ X* Y. \4 X! t/ X7 b+ ~% t: q
}
9 _: U' W) z0 y: ]' B0 G
Val=LuCal(hFor,pPara); //计算表达式的值
. y& c) Z' x* Q4 p Q\\" X
cout<<Val.x<<endl;: O J: z m- Q
}
: s9 ~* Y' v, Z5 ]9 ~
else
5 z1 C\\" @7 t) `$ P5 f
{; o1 b$ A3 d7 S. O% e/ N8 V: C, W( O
cout<<"找不到指定的函数！"<<endl;
3 J3 }- H* A$ C
} K/ y( z0 n7 h7 _, ^
}
s2 `5 O& D* _% t+ d
UseLu(0); //归还Lu的使用权, V' k9 j/ M% w7 k6 Z
}: {1 m3 c3 m( l. V ^! e
FreeMLu(); //释放MLu
% O- ^3 s5 m4 r9 Z
}

#include <windows.h> 
+ `+ B: t8 E4 M' o$ l) X% x
#include <iostream> 
2 H8 e* l: ^( p\\" X- X  j: _
#include "lu32.h"                        //Lu头文件. Z1 v, H; X8 a/ U

#pragma comment( lib, "lu32.lib" ) 
& C$ ~- S. _# n- w/ f* y7 ?: w' d
#pragma comment( lib, "mlu32.lib" )9 u  u4 o- g3 v6 s# P# K9 Y

using namespace std; 
! ^. M) R6 u% _! b/ V% H\\" S
void main(void)/ E5 Z: y% r: z# H/ e$ f5 E

{, u; C6 m\\" w& Z. t

void *hModule;                //模块句柄 
: R( y0 S/ z0 a6 c9 w% i
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置' o* K, T3 ?2 S7 l

int i;                        //错误代码- {: A' y% t  K  u& H

void *hFor;                //表达式句柄* a4 k7 l: m0 P  A3 u! }2 a* X

luVOID nModule=0;                //表达式所在模块 
: p* i9 Q\\" u1 }0 U
        void *vPara;                //存放输入自变量的数组指针- F, W, u' j  y: M! e

LuData *pPara;                //存放输入自变量的数组指针 
- a( Z7 C/ G2 D* A( f+ x: _! |- G
        luINT nPara;                //存放表达式的自变量个数: S. J+ H& F1 \1 q' Z

LuData Val;                //存放表达式的值 
% N# W% |1 c* @
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序 
, f7 \0 m% P( u2 a$ @6 J
        if(!InitMLu()) return;        //初始化MLu 
% L9 Q2 o' U+ O6 {
        if(!UseLu(2))                //申请使用Lu资源9 e4 X! f: S& X

{' @! F1 V  m+ Y7 b8 m4 R8 R

i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序8 a7 t- _* F+ H' ?

if(i) 
0 _/ N. I8 L1 o  D( Y8 A& o! K! t
                { 
, y. _4 B- {& `5 I. e/ ~
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl;0 A7 S5 z! w* Z# x- l- s* x

} 
( n: p+ S# `8 L' U+ q/ u
                else 
( L' W9 ~% K1 L\\" _! n+ p
                { 
- b. o' U2 r0 a
                        if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数! R- h& b# p  B0 W: ]: ]+ l

{' U- B4 u8 q+ X/ T1 e

pPara=(LuData *)vPara;9 A6 ?2 _0 R5 Q9 j) c5 o

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1. q7 D( w. o: I- l% ]) D6 |/ z

{ 
$ Z' i9 ^& d/ `. o. Y) d1 ~
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;$ X* Y. \4 X! t/ X7 b+ ~% t: q

} 
9 _: U' W) z0 y: ]' B0 G
                                Val=LuCal(hFor,pPara);        //计算表达式的值 
. y& c) Z' x* Q4 p  Q\\" X
                                cout<<Val.x<<endl;: O  J: z  m- Q

} 
: s9 ~* Y' v, Z5 ]9 ~
                        else 
5 z1 C\\" @7 t) `$ P5 f
                        {; o1 b$ A3 d7 S. O% e/ N8 V: C, W( O

cout<<"找不到指定的函数！"<<endl; 
3 J3 }- H* A$ C
                        }  K/ y( z0 n7 h7 _, ^

} 
  s2 `5 O& D* _% t+ d
                UseLu(0);                //归还Lu的使用权, V' k9 j/ M% w7 k6 Z

}: {1 m3 c3 m( l. V  ^! e

FreeMLu();                //释放MLu 
% O- ^3 s5 m4 r9 Z
}

结果：

3( B9 a( ~9 u7 k; k# G9 @' i
请按任意键继续. . .

复制代码

2 显式加载例子

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

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

#include <windows.h>
Y4 Z9 {9 C1 p/ h. u
#include <iostream>
# {\\" k( [- _* A
#include "Lu32.h"
8 b; l( w9 {6 i' `
using namespace std;
, ^0 Q A' `! z3 I0 h
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄
- O8 u; X7 D& e0 t. T
: j- `& x, h ]
//MLu输出函数
1 j; V8 I& x\\" u3 x2 c2 m7 `! F/ K
mluInitMLu pInitMLu;
, u4 t( S2 g8 D- d0 [9 `
mluFreeMLu pFreeMLu;
& v2 c+ P! {: _! l8 i5 Q; o
mluGetLuProc pGetLuProc;
' Y3 `7 a9 G, ^9 u R
mluUseLu pUseLu;
2 m' {7 ` U1 ~
mluComModule pComModule;
4 F* ^' G+ d% b\\" @
//Lu输出函数
& @' Z2 t' F$ x# K8 j3 u1 z
luGetFor pGetFor;6 T3 [$ u; u8 V! B# F: }. ^
luLuCal pLuCal;. T& R# ?0 c) K
bool theInitMLu(void) //初始化MLu
/ O: O0 c- D! ?- ^: F5 {$ x
{
. K& N9 N% [2 J5 ]% ]+ C5 z1 b
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll
( f: L4 v# ^& z! j& n
if(!hMLu)
* k$ T1 i$ I% E
{% z3 J\\" M5 ~$ e; x- ^
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";
# n; n& y8 w. _: D2 ~, L\\" I; r' _
return false;, K\\" t0 u. i# m/ O' F
}) E) R* [5 z) L, M
//以下几个语句获取MLu32.dll的输出函数 H1 g. }8 m, m& A
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");\\" a$ @% B- v8 c6 T
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");
8 b# B+ M# p, L$ t5 t# i3 b. j
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");( D, R7 K6 w' @* x6 T6 l% z2 L; ^
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");$ m9 A9 w4 ]* ~' N7 i
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");\\" f8 E7 D3 L4 q
if(!pInitMLu()) //初始化MLu32.dll1 S+ e% Z( P6 `/ ~7 c6 N
{5 F1 y1 w0 U2 t$ ~
FreeLibrary(hMLu); //释放动态库
; Z3 A: K3 U9 s; P8 J& r
cout<<"MLu初始化失败！";* I A+ k5 K Q c9 w
return false;! `& c# z( l* d3 Q l
}
9 W7 _; L6 L( s
//以下几个语句获取Lu32.dll的输出函数
8 Q1 ]% s9 K3 U
pGetFor=(luGetFor) pGetLuProc("GetFor");
D5 w% V/ J ]8 T
pLuCal=(luLuCal) pGetLuProc("LuCal");
/ ~- a! v1 r7 @5 w6 |
return true;$ ~, _, P- k* }
}* k. h, ~! X8 t- }3 Z: Q. G5 w
void theFreeMLu(void) //释放MLu
2 Q0 s. E3 f; h0 B) J
{. Y% K# I$ }6 {
pFreeMLu(); //释放MLu申请的空间
$ s0 D \+ O- l! \
FreeLibrary(hMLu); //释放动态库\\" H- v. r. i; a0 d* {+ F5 X
}
- d$ d( P$ c& ~8 D6 m
void main(void)
8 Z+ Q# U' s( t3 \# q- x
{
w3 f5 T) L$ b5 R& I6 C! l
void *hModule; //模块句柄
5 `) s7 q# P% K
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
\\" F0 D! h- `* V5 L# S* R
int i; //错误代码7 `$ D8 Z\\" ^# f4 G) \
void *hFor; //表达式句柄
& a2 Q: a0 f5 C9 R0 L4 j
luVOID nModule=0; //表达式所在模块- b1 S ]2 [, q( ], d
void *vPara; //存放输入自变量的数组指针
/ x* K$ h5 X7 ?/ m1 X: \7 v4 o
LuData *pPara; //存放输入自变量的数组指针1 y4 K. ], x! y
luINT nPara; //存放表达式的自变量个数$ q q& T! J* I3 w% x/ w8 v V9 ^
LuData Val; //存放表达式的值
+ Q' \1 `- h* G6 K
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序
. [9 ?2 T( ]: f
if(!theInitMLu()) return; //初始化MLu6 n' l7 ?' B+ U; j/ {. e' P
if(!pUseLu(2)) //申请使用Lu资源8 }' t9 N% E8 X* y: ?+ y2 L
{, | T& ? [/ L\\" i3 p7 J& y5 f
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序0 K% p4 a. N6 W. S. _/ I# V+ D
if(i)$ G' m. s: j8 q, Y& T
{
$ L. R4 _0 ^3 k! K3 [2 f
cout<<"Lu源程序有错误！错误代码："<<i<<endl;, L' W* x2 \8 z2 R
}
+ L1 g; @7 g- \- N; G
else
9 B/ D3 y* j1 y
{
9 i6 R4 m+ V& l$ _: P- b9 p
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))
2 y @/ v( i2 Z5 E( H) N
{) t( P: |, m0 U6 o% k- k' Y
pPara=(LuData *)vPara;) T0 k\\" Y\\" ~1 y3 H; ~
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
# R3 k! O, G U- B
{
* ^\\" S1 r1 w, |) I
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;7 u3 F) n) e$ e9 {
}/ j3 G }( k+ d( Y
Val=pLuCal(hFor,pPara); //计算表达式的值, d3 ^4 I O% M2 s3 o\\" I7 _
cout<<Val.x<<endl;
?* B/ Q- {: S
}
6 ?3 W\\" J3 C( y, }/ I# }# J\\" ?. q
else
0 [+ m7 n$ O: ^/ c
{$ s; i: h7 _# }
cout<<"找不到指定的函数！"<<endl;
0 [+ X7 Y. _9 d& V3 V\\" k
}2 y# h+ @) P4 [. B, g2 B$ U) _, X
}
% t$ p. v' D. ~- g% _
pUseLu(0); //归还Lu的使用权. ]' I; n. n& N- S% N0 ]( n! x
}- h3 g' g7 x# A7 m
theFreeMLu(); //释放MLu1 G# w: R( u/ j3 A2 M3 B, }: @( ~# k
}

#include <windows.h> 
  Y4 Z9 {9 C1 p/ h. u
#include <iostream> 
# {\\" k( [- _* A
#include "Lu32.h" 
8 b; l( w9 {6 i' `
using namespace std; 
, ^0 Q  A' `! z3 I0 h
HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄 
- O8 u; X7 D& e0 t. T
 
: j- `& x, h  ]
//MLu输出函数 
1 j; V8 I& x\\" u3 x2 c2 m7 `! F/ K
mluInitMLu pInitMLu; 
, u4 t( S2 g8 D- d0 [9 `
mluFreeMLu pFreeMLu; 
& v2 c+ P! {: _! l8 i5 Q; o
mluGetLuProc pGetLuProc; 
' Y3 `7 a9 G, ^9 u  R
mluUseLu pUseLu; 
2 m' {7 `  U1 ~
mluComModule pComModule; 
4 F* ^' G+ d% b\\" @
//Lu输出函数 
& @' Z2 t' F$ x# K8 j3 u1 z
luGetFor pGetFor;6 T3 [$ u; u8 V! B# F: }. ^

luLuCal pLuCal;. T& R# ?0 c) K

bool theInitMLu(void)        //初始化MLu 
/ O: O0 c- D! ?- ^: F5 {$ x
{ 
. K& N9 N% [2 J5 ]% ]+ C5 z1 b
        hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll 
( f: L4 v# ^& z! j& n
        if(!hMLu) 
* k$ T1 i$ I% E
        {% z3 J\\" M5 ~$ e; x- ^

cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！"; 
# n; n& y8 w. _: D2 ~, L\\" I; r' _
                return false;, K\\" t0 u. i# m/ O' F

}) E) R* [5 z) L, M

//以下几个语句获取MLu32.dll的输出函数  H1 g. }8 m, m& A

pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");\\" a$ @% B- v8 c6 T

pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu"); 
8 b# B+ M# p, L$ t5 t# i3 b. j
        pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");( D, R7 K6 w' @* x6 T6 l% z2 L; ^

pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");$ m9 A9 w4 ]* ~' N7 i

pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");\\" f8 E7 D3 L4 q

if(!pInitMLu())        //初始化MLu32.dll1 S+ e% Z( P6 `/ ~7 c6 N

{5 F1 y1 w0 U2 t$ ~

FreeLibrary(hMLu);        //释放动态库 
; Z3 A: K3 U9 s; P8 J& r
                cout<<"MLu初始化失败！";* I  A+ k5 K  Q  c9 w

return false;! `& c# z( l* d3 Q  l

} 
9 W7 _; L6 L( s
        //以下几个语句获取Lu32.dll的输出函数 
8 Q1 ]% s9 K3 U
        pGetFor=(luGetFor) pGetLuProc("GetFor"); 
  D5 w% V/ J  ]8 T
        pLuCal=(luLuCal) pGetLuProc("LuCal"); 
/ ~- a! v1 r7 @5 w6 |
        return true;$ ~, _, P- k* }

}* k. h, ~! X8 t- }3 Z: Q. G5 w

void theFreeMLu(void)        //释放MLu 
2 Q0 s. E3 f; h0 B) J
{. Y% K# I$ }6 {

pFreeMLu();        //释放MLu申请的空间 
$ s0 D  \+ O- l! \
        FreeLibrary(hMLu);        //释放动态库\\" H- v. r. i; a0 d* {+ F5 X

} 
- d$ d( P$ c& ~8 D6 m
void main(void) 
8 Z+ Q# U' s( t3 \# q- x
{ 
  w3 f5 T) L$ b5 R& I6 C! l
        void *hModule;                //模块句柄 
5 `) s7 q# P% K
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
\\" F0 D! h- `* V5 L# S* R
        int i;                        //错误代码7 `$ D8 Z\\" ^# f4 G) \

void *hFor;                //表达式句柄 
& a2 Q: a0 f5 C9 R0 L4 j
        luVOID nModule=0;                //表达式所在模块- b1 S  ]2 [, q( ], d

void *vPara;                //存放输入自变量的数组指针 
/ x* K$ h5 X7 ?/ m1 X: \7 v4 o
        LuData *pPara;                //存放输入自变量的数组指针1 y4 K. ], x! y

luINT nPara;                //存放表达式的自变量个数$ q  q& T! J* I3 w% x/ w8 v  V9 ^

LuData Val;                //存放表达式的值 
+ Q' \1 `- h* G6 K
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序 
. [9 ?2 T( ]: f
        if(!theInitMLu()) return;        //初始化MLu6 n' l7 ?' B+ U; j/ {. e' P

if(!pUseLu(2))                //申请使用Lu资源8 }' t9 N% E8 X* y: ?+ y2 L

{, |  T& ?  [/ L\\" i3 p7 J& y5 f

i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序0 K% p4 a. N6 W. S. _/ I# V+ D

if(i)$ G' m. s: j8 q, Y& T

{ 
$ L. R4 _0 ^3 k! K3 [2 f
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl;, L' W* x2 \8 z2 R

} 
+ L1 g; @7 g- \- N; G
                else 
9 B/ D3 y* j1 y
                { 
9 i6 R4 m+ V& l$ _: P- b9 p
                        if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) 
2 y  @/ v( i2 Z5 E( H) N
                        {) t( P: |, m0 U6 o% k- k' Y

pPara=(LuData *)vPara;) T0 k\\" Y\\" ~1 y3 H; ~

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
# R3 k! O, G  U- B
                                { 
* ^\\" S1 r1 w, |) I
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;7 u3 F) n) e$ e9 {

}/ j3 G  }( k+ d( Y

Val=pLuCal(hFor,pPara);        //计算表达式的值, d3 ^4 I  O% M2 s3 o\\" I7 _

cout<<Val.x<<endl; 
  ?* B/ Q- {: S
                        } 
6 ?3 W\\" J3 C( y, }/ I# }# J\\" ?. q
                        else 
0 [+ m7 n$ O: ^/ c
                        {$ s; i: h7 _# }

cout<<"找不到指定的函数！"<<endl; 
0 [+ X7 Y. _9 d& V3 V\\" k
                        }2 y# h+ @) P4 [. B, g2 B$ U) _, X

} 
% t$ p. v' D. ~- g% _
                pUseLu(0);        //归还Lu的使用权. ]' I; n. n& N- S% N0 ]( n! x

}- h3 g' g7 x# A7 m

theFreeMLu();                //释放MLu1 G# w: R( u/ j3 A2 M3 B, }: @( ~# k

}

结果：