数学建模社区-数学中国

标题: C/C++调用MLu的入门程序 [打印本页]

---

作者: forcal    时间: 2011-10-30 20:17
标题: C/C++调用MLu的入门程序

C/C++调用MLu的入门程序

    MLu是程序和Lu核心库之间的一个接口库，MLu会自动加载Lu核心库和动态加载多个Lu扩展库，简化了Lu系统的使用；MLu可对Lu源程序进行模块化编译，能够编译运行具有固定格式的源程序（字符串表达式），源程序中可以使用C++风格的注释。此外，MLu还提供了多个线程互斥地访问Lu资源的功能；提供了Lu运行**器，以退出耗时较长的程序；提供在脚本中动态编译函数的功能；提供错误处理函数，实现错误（异常）处理的恢复模型等等。

1 隐式加载例子

    该例子需要以下支持文件：
% q) N3 t* J9 R0 x% @1 ^
  I# V# H1 |* p+ g    （1）头文件lu32.h。
) |) O/ n% B; H$ R) e8 P& Q, b    （2）导入库lu32.lib及mlu32.lib。
& P7 Z+ N$ r5 t( O# ?) p    （3）核心库lu32.dll和模块化编译运行库mlu32.dll。

1. #include <windows.h>
   
2. #include <iostream>
   - {( T. P' R& s" s' n7 F2 a
3. #include "lu32.h"                        //Lu头文件
   # f7 o# T$ M2 y2 K, D
4. #pragma comment( lib, "lu32.lib" )
   ' ~. w. s* l6 j: L2 j; o3 H
5. #pragma comment( lib, "mlu32.lib" )
   
6. using namespace std;
   
7. void main(void)
   
8. {
   
9.         void *hModule;                //模块句柄
   * J& k/ k) ^; M% G
10.         luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置
    
11.         int i;                        //错误代码
    5 g: I5 P, H, N
12.         void *hFor;                //表达式句柄
    
13.         luVOID nModule=0;                //表达式所在模块
    
14.         void *vPara;                //存放输入自变量的数组指针
    8 {. q+ B5 w2 `) M  p" O, C
15.         LuData *pPara;                //存放输入自变量的数组指针
    0 |) j$ N* _" Z, ~/ m9 a
16.         luINT nPara;                //存放表达式的自变量个数
    
17.         LuData Val;                //存放表达式的值
    & t7 |! r8 ^! X6 C& @  U1 J
18.         wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序
    # @, D( d, m1 e! Y: H
19.         if(!InitMLu()) return;        //初始化MLu
    
20.         if(!UseLu(2))                //申请使用Lu资源
    
21.         {
    
22.                 i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序
    
23.                 if(i)
    
24.                 {
    
25.                         cout<<"Lu源程序有错误！错误代码："<<i<<endl;
    
26.                 }
    2 f$ c9 Q% R. M. N2 C1 }' r. I4 Z
27.                 else
    , O: w( X$ j( y- E) q
28.                 {
    
29.                         if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数
    4 s& V- \4 G; `4 ?4 [. @$ n! N
30.                         {
    
31.                                 pPara=(LuData *)vPara;
    ) ?; N, l8 A/ G
32.                                 for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1
    8 `6 C, T" t7 u! Z& Y% ?( d6 \" l! E
33.                                 {
    
34.                                         pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
    
35.                                 }
    0 \; v) t6 l- |. i( Z
36.                                 Val=LuCal(hFor,pPara);        //计算表达式的值
    
37.                                 cout<<Val.x<<endl;
    
38.                         }
    * p# t5 {1 U+ R
39.                         else
    
40.                         {
    
41.                                 cout<<"找不到指定的函数！"<<endl;
    ' c6 H& e( z# g7 |! o
42.                         }
    
43.                 }
    
44.                 UseLu(0);                //归还Lu的使用权
    
45.         }
    # k* A, t" q. w9 w# q0 u3 _" \. ~3 r) F
46.         FreeMLu();                //释放MLu
    
47. }

复制代码

结果：

1. 3
   + R3 e8 G4 [; _1 n! i
2. 请按任意键继续. . .

复制代码

2 显式加载例子
+ e* f/ [/ J! N& p: n
    该例子需要以下支持文件：

    （1）头文件lu32.h。
; U! T" A7 V3 U4 H4 B    （2）核心库lu32.dll和模块化编译运行库mlu32.dll。

1. #include <windows.h>
   
2. #include <iostream>
   
3. #include "Lu32.h"
   
4. using namespace std;
   4 t; F0 N7 A6 N
5. HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄
   3 \1 |& x9 N' Q# C) a/ g( k
6. 
   
7. //MLu输出函数
   & m! [. D; I2 _
8. mluInitMLu pInitMLu;
   
9. mluFreeMLu pFreeMLu;
   
10. mluGetLuProc pGetLuProc;
    : t* Y; }0 S( R2 A' O3 t2 {
11. mluUseLu pUseLu;
    + d+ {5 r5 O$ T2 Y* S: k
12. mluComModule pComModule;
    3 Y  m1 f4 ~8 B- I, p0 i( T3 I/ T$ {
13. //Lu输出函数
    
14. luGetFor pGetFor;
    2 }- |6 ^$ x  ]
15. luLuCal pLuCal;
    
16. bool theInitMLu(void)        //初始化MLu
    3 C0 N5 }5 j. F( D7 m4 h
17. {
    
18.         hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll
    
19.         if(!hMLu)
    0 ^& s* p5 y1 x
20.         {
    ; d0 e* |0 v9 h& {
21.                 cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";
    
22.                 return false;
    
23.         }
    $ y2 k7 c  a: [) P* w% H
24.         //以下几个语句获取MLu32.dll的输出函数
    
25.         pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");
    
26.         pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");
    6 U- ]- B; W6 {* S: H& q! Z
27.         pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");
    
28.         pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");
    
29.         pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");
    3 P/ j5 Q) B9 _
30.         if(!pInitMLu())        //初始化MLu32.dll
    4 T& u! h6 \! \3 S# E3 J
31.         {
    
32.                 FreeLibrary(hMLu);        //释放动态库
    
33.                 cout<<"MLu初始化失败！";
    # e2 Y( Y2 n) i' ~6 h
34.                 return false;
    
35.         }
    
36.         //以下几个语句获取Lu32.dll的输出函数
    
37.         pGetFor=(luGetFor) pGetLuProc("GetFor");
    
38.         pLuCal=(luLuCal) pGetLuProc("LuCal");
    
39.         return true;
    ) M) i+ c4 q3 Q; X4 K
40. }
    ( I  I: V! D4 I$ W, D+ W5 x4 H7 j
41. void theFreeMLu(void)        //释放MLu
    
42. {
    # n4 w3 _! z, a
43.         pFreeMLu();        //释放MLu申请的空间
    
44.         FreeLibrary(hMLu);        //释放动态库
    
45. }
    
46. void main(void)
    # h$ G2 R& _5 L9 I
47. {
    : U. ~4 b' `2 s
48.         void *hModule;                //模块句柄
    : S! K1 C$ @2 q( C8 I
49.         luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置
    ! K0 t' [$ Z! E: u: g; B
50.         int i;                        //错误代码
    " t. |3 _: O/ n$ W4 s
51.         void *hFor;                //表达式句柄
    . _" e6 S2 K$ ~5 B4 J; M* `$ u
52.         luVOID nModule=0;                //表达式所在模块
    # U# {' |5 u& v+ X, O& V
53.         void *vPara;                //存放输入自变量的数组指针
    / }8 v1 C7 o4 l8 a) P
54.         LuData *pPara;                //存放输入自变量的数组指针
    
55.         luINT nPara;                //存放表达式的自变量个数
    ! ~9 B$ {* W8 j  l. J  |
56.         LuData Val;                //存放表达式的值
    3 M8 K* F' ]' J
57.         wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序
    
58.         if(!theInitMLu()) return;        //初始化MLu
    
59.         if(!pUseLu(2))                //申请使用Lu资源
    . {* m% n3 Y; ^) {1 |1 _/ |" U
60.         {
    
61.                 i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序
    
62.                 if(i)
    0 Y" U' E) ~4 u& V" M0 k
63.                 {
    ' J/ W  ^, ^" }0 A, U; |) y$ N
64.                         cout<<"Lu源程序有错误！错误代码："<<i<<endl;
    : O; j7 [/ v! _: u
65.                 }
    
66.                 else
    # H* M, s0 P  l' x" ?
67.                 {
    
68.                         if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))
    ) Z4 S1 C* y1 R) n0 T
69.                         {
    
70.                                 pPara=(LuData *)vPara;
    
71.                                 for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1
    5 l& @; R% ]4 t+ \0 V) H8 \' [# U
72.                                 {
    ) ]  ^- Q: u* i1 f! f' z
73.                                         pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
    5 e5 x! v. }4 J! B$ v- o
74.                                 }
    
75.                                 Val=pLuCal(hFor,pPara);        //计算表达式的值
    
76.                                 cout<<Val.x<<endl;
    5 y8 n7 \1 `2 N8 ]# `1 ~
77.                         }
    
78.                         else
    
79.                         {
    
80.                                 cout<<"找不到指定的函数！"<<endl;
    % F7 s, u, @1 S2 K0 @
81.                         }
    
82.                 }
    / ^& H6 U7 g* W9 c! g
83.                 pUseLu(0);        //归还Lu的使用权
    
84.         }
    0 D+ L, K' L0 j! J
85.         theFreeMLu();                //释放MLu
    $ a& E/ z( Q. y3 `9 H# m8 K0 s0 x0 z
86. }

复制代码

结果：

1. 3
   
2. 请按任意键继续. . .

复制代码

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5