C/C++程序使用lu对象作为配置文件

欢迎访问Lu程序设计

C/C++程序使用lu对象作为配置文件

1 说明

    要演示本文的例子，你必须下载Lu32脚本系统。本文的例子需要lu32.dll、lu32.lib、C格式的头文件lu32.h，相信你会找到并正确使用这几个文件。

    用C/C++编译器创建一个控制台应用程序，复制本文的例子代码直接编译运行即可。

2 使用lu对象作为配置文件的格式

    通常应用程序会有一些可调控的参数，简单的控制可以通过命令行参数来实现，然而复杂一些的则一般会使用配置文件的形式。本文讨论使用lu对象作为配置文件的格式及实现。关于lu对象，参考Lu用户指南；lu对象的数据结构参考Lu编程指南。

    lu对象中的基本数据格式采取“键 : 值”的方式，键是以#开头的字符串，而值可为任意数据（本文代码支持的数据类型有lu对象、编译符#、逻辑值、nil、字符串、整数、实数）。例如：

(:static)= global(true), static=lu{    ... ... ,    #name : "王刚",    #age : 21,    ... ...}

    这是个无名函数，可以避免函数重名问题；函数 global(true)使得lu对象成为全局对象，故通常要使用该函数；static是一个静态变量，将全局的lu对象保存在静态变量中可以避免被垃圾收集器回收。

    lu对象可以嵌套，故可存储类似“键1 : 键2 : 键3 : 值”的数据，第1个键在第1层lu对象中，第2个键在第2层lu对象中，依此类推。例如：

(:static)= global(true), static=lu{    "--- 使用字符串进行注释 ---" ,    ... ... ,    #生产部 : lu{        #staff : lu{            #王刚 : lu{                #age : 21,                #性别 : "男",                #工作量 : lu{11, 15},                #e_mail : "[e-mail]"            },            #李军 : lu{                #age : 25,                #性别 : "男",                #工作量 : lu{17, 1.2, 1.8},                #website : "http://www.lijun.net/"            }        }    },    ... ...}

    本例中李军的年龄可表示为“#生产部 : #staff : #李军 : #age : 25”，而李军的工作量是一个lu对象“#生产部 : #staff : #李军 : #工作量 : lu{17, 1.2, 1.8}”。

    另外，Lu核心库支持的表达式中不能有注释，不过可以使用字符串作为注释，如上例。使用字符串作为注释的好处是：当我们重建配置文件时，注释仍然存在。

    程序对配置文件的操作有三种：读配置文件，修改配置文件，写配置文件。在本文的例子中，读配置文件即编译一个返回lu对象（包含配置信息）的字符串表达式；修改配置文件即对该lu对象的成员进行存取；写配置文件即根据该lu对象生成相应的字符串表达式。

    本文的代码中提供了3个实用的函数lu2str、getlumember、setlumember以更方便地操作lu对象，包含了完整的错误检查，故代码较长。

3 代码

#include <stdio.h>#include <string.h>#include <locale.h>#include "lu32.h"#pragma comment( lib, "lu32.lib" )//输出lu对象到一个字符串，支持lu对象、编译符#、逻辑值、nil、字符串、整数、实数int lu2str(LuData *pVal,wchar_t *luStr,int luStrMax,int *luStrNow){luLu *plu;//lu对象指针static luLu *pmainlu=NULL;//记住最初的lu对象，避免该函数无穷递归调用static int kkk;int j;luVOID i,StrMax;luINT k;wchar_t *pStr;char str32[32];int bBlank = 1, bKeyLu = 0;if(pVal->BType!=luDynData_lu) return 1;//无效的lu对象//验证lu对象是否有效plu=(luLu *)SearchKey((char *)&(pVal->x), sizeof(luVOID), luDynData_lu);if(NULL==plu) return 1;//无效的lu对象指针if(plu==pmainlu) return 2;//递归嵌套的lu对象if(pmainlu==NULL){pmainlu=plu;  //记住最初的lu对象if(luStrMax<40) return 3;//缓冲区太小wcscpy_s(luStr,luStrMax,L"(:static)= global(true), static=\r\nlu{\r\n");*luStrNow=39;}kkk++;for(i=0;i<plu->Len;i++){if(plu->Lu[i].BType==luStaData_struniint || plu->Lu[i].BType==luDynData_lu) bKeyLu=1;}if(bKeyLu==0){if(luStr[*luStrNow-1]=='\n') (*luStrNow)--;if(luStr[*luStrNow-1]=='\r') (*luStrNow)--;if(luStr[*luStrNow]) luStr[*luStrNow]='\0';}for(i=0;i<plu->Len;i++){if(bKeyLu==0){bBlank = 0;if(luStr[*luStrNow-1]=='\n') (*luStrNow)--;if(luStr[*luStrNow-1]=='\r') (*luStrNow)--;if(luStr[*luStrNow]) luStr[*luStrNow]='\0';}if(bBlank){if(luStrMax-(*luStrNow)<kkk*4){kkk--; return 3;//缓冲区太小}for(j=0;j<kkk*4;j++) luStr[(*luStrNow)++]=' ';luStr[*luStrNow]='\0';}else{bBlank = 1;}switch(plu->Lu[i].BType){case luStaData_nil ://nilif(luStrMax-(*luStrNow)<5){kkk--; return 3;//缓冲区太小}wcscat_s(luStr,luStrMax,L"nil");*luStrNow=*luStrNow+3;break;case luStaData_int64 ://整数j=sprintf_s(str32,32,"%I64d",plu->Lu[i].x);if(j<0){kkk--; return 4;//数据转换错误}if(luStrMax-(*luStrNow)<j){kkk--; return 3;//缓冲区太小}for(j=0;str32[j];j++) luStr[(*luStrNow)++]=str32[j];luStr[*luStrNow]='\0';break;case luStaData_double ://实数j=sprintf_s(str32,32,"%f",*(double *)&(plu->Lu[i].x));if(j<0){kkk--; return 4;//数据转换错误}if(luStrMax-(*luStrNow)<j){kkk--; return 3;//缓冲区太小}for(j=0;str32[j];j++) luStr[(*luStrNow)++]=str32[j];luStr[*luStrNow]='\0';break;case luStaData_logical ://逻辑值if(luStrMax-(*luStrNow)<8){kkk--; return 3;//缓冲区太小}if(plu->Lu[i].x){wcscat_s(luStr,luStrMax,L"true");*luStrNow=*luStrNow+4;}else{wcscat_s(luStr,luStrMax,L"false");*luStrNow=*luStrNow+5;}break;case luStaData_struniint ://由字符串决定的唯一整数pStr=(wchar_t *)UniIntToStr((luVOID)plu->Lu[i].x,&k);if(!pStr){kkk--; return 4;//数据转换错误}k=k/2;if(luStrMax-(*luStrNow)<=k){kkk--; return 3;//缓冲区太小}luStr[(*luStrNow)++]='#';for(j=0;j<(int)k;j++) luStr[(*luStrNow)++]=pStr[j];luStr[*luStrNow]='\0';break;case luStaData_string ://静态字符串case luDynData_string ://动态字符串pStr=GetStr(plu->Lu+i,NULL,&StrMax);if(!pStr){kkk--; return 4;//数据转换错误}if(luStrMax-(*luStrNow)<2){kkk--; return 3;//缓冲区太小}luStr[(*luStrNow)++]='\"';for(j=0;j<pStr[j];j++){if(luStrMax-(*luStrNow)<=3){kkk--; return 3;//缓冲区太小}switch(pStr[j]){case '\\' :case '\"' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]=pStr[j];break;case '\a' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]='a';break;case '\b' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]='b';break;case '\f' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]='f';break;case '\n' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]='n';break;case '\r' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]='r';break;case '\t' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]='t';break;case '\v' :luStr[(*luStrNow)++]='\\'; luStr[(*luStrNow)++]='v';break;default:luStr[(*luStrNow)++]=pStr[j];}}luStr[(*luStrNow)++]='\"'; luStr[*luStrNow]='\0';break;case luDynData_lu ://lu对象if(luStrMax-(*luStrNow)<5){kkk--; return 3;//缓冲区太小}wcscat_s(luStr,luStrMax,L"lu{\r\n");*luStrNow=*luStrNow+5;j=lu2str(plu->Lu+i,luStr,luStrMax,luStrNow);  //递归调用if(j){kkk--; return j;//错误}if(luStr[*luStrNow-1]=='\n'){if(luStrMax-(*luStrNow)<kkk*4+3){kkk--; return 3;//缓冲区太小}for(j=0;j<kkk*4;j++) luStr[(*luStrNow)++]=' ';}luStr[(*luStrNow)++]='}'; luStr[*luStrNow]='\0';break;default :j=sprintf_s(str32,32,"%I64d",plu->Lu[i].x);if(j<0){kkk--; return 4;//数据转换错误}if(luStrMax-(*luStrNow)<j+20){kkk--; return 3;//缓冲区太小}wcscat_s(luStr,luStrMax,L"\"不可识别对象 ");*luStrNow=*luStrNow+8;for(j=0;str32[j];j++) luStr[(*luStrNow)++]=str32[j];luStr[(*luStrNow)++]='\"'; luStr[*luStrNow]='\0';}if(luStrMax-(*luStrNow)<10){kkk--; return 3;//缓冲区太小}if(i+1!=plu->Len){if(plu->Lu[i].BType==luStaData_struniint) bBlank = 0;if(i){if(plu->Lu[i-1].BType==luStaData_struniint) bBlank = 1;}if(bBlank){wcscat_s(luStr,luStrMax,L", \r\n");*luStrNow=*luStrNow+4;}else{wcscat_s(luStr,luStrMax,L" : ");*luStrNow=*luStrNow+3;}}else{if(bKeyLu==1){wcscat_s(luStr,luStrMax,L"\r\n");*luStrNow=*luStrNow+2;}}}kkk--;if(kkk==0){pmainlu=NULL;wcscat_s(luStr,luStrMax,L"}\r\n");*luStrNow=*luStrNow+3;}return 0;}//获得lu对象成员的值，通过pme返回//luMember存放以#开头的成员列表，0表示结束int getlumember(LuData *pVal,luVOID *luMember,LuData **pme){luLu *plu;//lu对象指针luVOID i,j,k;for(i=0;luMember[i];i++){if(pVal->BType!=luDynData_lu) return 1;//无效的lu对象//验证lu对象是否有效plu=(luLu *)SearchKey((char *)&(pVal->x), sizeof(luVOID), luDynData_lu);if(NULL==plu) return 1;//无效的lu对象指针for(j=0;j<plu->Len;j++){if(plu->Lu[j].BType==luStaData_struniint){if((luVOID)plu->Lu[j].x==luMember[i]){k=j+1;if(k<plu->Len){pVal=plu->Lu+k;break;}}}}if(j==plu->Len) return 2;//没有找到对象成员}*pme=pVal;return 0;}//设置lu对象成员的值//luMember存放以#开头的成员列表，0表示结束；如果从luMember找到的成员是一个lu对象，一般index表示该lu对象成员的序号；index的意义取决于mode。//mode表示工作模式。//mode=0表示删除对象成员（键 : 值）。index、key_me和me被忽略。//mode=1时，index=0表示用新的键值（键key_me : 值me）更新对象成员键值；index<0表示在对象成员前插入键值；index>0表示在对象成员后插入键值。//mode=2表示直接用me更新对象成员的值。index和key_me被忽略。//mode=3，从luMember找到的成员应是一个lu对象，更新该lu对象第index个成员。key_me被忽略。//mode=4，从luMember找到的成员应是一个lu对象，从该lu对象第index个成员前插入me，若index<0或者大于原lu对象长度，从末尾插入me。key_me被忽略。int setlumember(LuData *pVal,luVOID *luMember,int index,luVOID key_me,LuData *me,int mode){luLu *plu,*plup;//lu对象指针LuData *old;int kk;luVOID i,j,k;if(mode==0 || mode==1)//删除、更新、插入键值（键 : 值）{old=NULL;for(i=0;luMember[i];i++){if(pVal->BType!=luDynData_lu) return 1;//无效的lu对象//验证lu对象是否有效plu=(luLu *)SearchKey((char *)&(pVal->x), sizeof(luVOID), luDynData_lu);if(NULL==plu) return 1;//无效的lu对象指针for(j=0;j<plu->Len;j++){if(plu->Lu[j].BType==luStaData_struniint){if((luVOID)plu->Lu[j].x==luMember[i]){k=j+1;if(k<plu->Len){old=pVal; pVal=plu->Lu+k;break;}}}}if(j==plu->Len) return 2;//没有找到对象成员}if(!old) return 2;//没有找到对象成员if(mode==0){plup=(luLu *)NewSysObj(luDynData_lu,plu->Len-2,0);if(!plup) return 3;//内存错误for(i=0;i<j;i++) plup->Lu[i]=plu->Lu[i];for(j=i+2;i<plup->Len;i++,j++) plup->Lu[i]=plu->Lu[j];*(luVOID *)&(old->x)=(luVOID)plup;//更新lu对象DeleteKey((char *)&plu,sizeof(luVOID),luDynData_lu,NULL,1);//销毁以前的lu对象return 0;}if(index==0){plu->Lu[j].x=key_me; *pVal=*me; return 0;}plup=(luLu *)NewSysObj(luDynData_lu,plu->Len+2,0);if(!plup) return 3;//内存错误index = (index<0) ? j : k+1;for(i=0;i<index;i++) plup->Lu[i]=plu->Lu[i];j=i; plup->Lu[i].BType=luStaData_struniint; plup->Lu[i].VType=luStaData_struniint; plup->Lu[i++].x=key_me; plup->Lu[i++]=*me;for(;i<plup->Len;i++,j++) plup->Lu[i]=plu->Lu[j];*(luVOID *)&(old->x)=(luVOID)plup;//更新lu对象DeleteKey((char *)&plu,sizeof(luVOID),luDynData_lu,NULL,1);//销毁以前的lu对象return 0;}kk=getlumember(pVal,luMember,&old);if(kk) return kk;if(mode==2)//直接更新键值{*old=*me; return 0;}if(old->BType!=luDynData_lu) return 1;//无效的lu对象//验证lu对象是否有效plu=(luLu *)SearchKey((char *)&(old->x), sizeof(luVOID), luDynData_lu);if(NULL==plu) return 1;//无效的lu对象指针if(mode==3)//更新键值的成员{if(index<0 || index>=plu->Len) return 2;//没有找到对象成员plu->Lu[index]=*me; return 0;}else if(mode==4)//插入键值的成员{plup=(luLu *)NewSysObj(luDynData_lu,plu->Len+1,0);if(!plup) return 3;//内存错误if(index<0 || index>plu->Len) index=plu->Len;for(i=0;i<index;i++) plup->Lu[i]=plu->Lu[i];j=i; plup->Lu[i++]=*me;for(;i<plup->Len;i++,j++) plup->Lu[i]=plu->Lu[j];*(luVOID *)&(old->x)=(luVOID)plup;//更新lu对象DeleteKey((char *)&plu,sizeof(luVOID),luDynData_lu,NULL,1);//销毁以前的lu对象return 0;}else{return 4;//不正确的工作模式}}void main(void){void *hFor;//表达式句柄luINT nPara;//存放表达式的自变量个数LuData *pPara;//存放输入自变量的数组指针luINT ErrBegin,ErrEnd;//表达式编译出错的初始位置和结束位置int ErrCode;//错误代码LuData Val;//Lu基本数据类型wchar_t luStr[1000];//保存由lu对象转换来的字符串表达式int luStrNow;//接收luStr中的字符个数luString *pString;//Lu动态字符串指针wchar_t ForStr[]=L"(:static)= global(true), static=lu{\"--- 使用字符串进行注释 ---\" , #生产部 : lu{ #staff : lu{ #王刚 : lu{ #age : 21, #性别 : \"男\", #工作量 : lu{ 11, 15}, #e_mail : \"[e-mail]\"}, #李军 : lu{ #age : 25, #性别 : \"男\", #工作量 : lu{ 17,1.2,1.8}, #website : \"http://www.lijun.net/\"}}}}";//由字符串获得一个唯一的整数luVOID ui_PD;//#生产部luVOID ui_staff;//#staffluVOID ui_wanggang;//#王刚luVOID ui_lijun;//#李军luVOID ui_age;//#ageluVOID ui_gender;//#性别luVOID ui_workload;//#工作量luVOID ui_e_mail;//#e_mailluVOID ui_website;//#websiteluVOID ui_addr;//#家庭地址luVOID luMember[10];//用以查找替换lu对象成员LuData *pme;//Lu基本数据类型指针，用来返回lu对象LuData me;//Lu基本数据类型，用来更新lu对象键值setlocale(LC_ALL, "chs");//设置可以输出中文if(!InitLu()) return;//初始化Luui_PD=StrToUniInt((char *)L"生产部",6);//由字符串获得一个唯一的整数，下同ui_staff=StrToUniInt((char *)L"staff",10);ui_wanggang=StrToUniInt((char *)L"王刚",4);ui_lijun=StrToUniInt((char *)L"李军",4);ui_age=StrToUniInt((char *)L"age",6);ui_gender=StrToUniInt((char *)L"性别",4);ui_workload=StrToUniInt((char *)L"工作量",6);ui_e_mail=StrToUniInt((char *)L"e_mail",12);ui_website=StrToUniInt((char *)L"website",14);ui_addr=StrToUniInt((char *)L"家庭地址",8);ErrCode=LuCom(ForStr,0,0,0,&hFor,&nPara,&pPara,&ErrBegin,&ErrEnd);  //编译表达式if(ErrCode){printf("表达式有错误！错误代码： %d \n",ErrCode);}else{Val=LuCal(hFor,pPara);//计算表达式的值if(Val.BType==luDynData_lu){if(0==lu2str(&Val,luStr,1000,&luStrNow))//输出lu对象的值{wprintf(L"%s",luStr);}//luMember中存放键的位置“#生产部 : #staff : #王刚 : #age”luMember[0]=ui_PD; luMember[1]=ui_staff; luMember[2]=ui_wanggang; luMember[3]=ui_age;  luMember[4]=0;if(0==getlumember(&Val,luMember,&pme)){wprintf(L"\r\n查找到 #生产部 : #staff : #王刚 : #age : %I64d\r\n\r\n",pme->x);}//luMember中存放键的位置“#生产部 : #staff : #李军 : #工作量”luMember[0]=ui_PD; luMember[1]=ui_staff; luMember[2]=ui_lijun; luMember[3]=ui_workload;  luMember[4]=0;pString=(luString *)NewSysObj(luDynData_string,80,0);if(pString) wcscpy_s(pString->Str,80,L"XX省XX市XX区XX路100号大院60#7楼 邮政编码:123456");me.BType=luDynData_string; me.VType=luDynData_string; me.x=0; *(luVOID *)&(me.x)=(luVOID)pString;setlumember(&Val,luMember,-1,ui_addr,&me,1);//在李军工作量前面增加家庭地址//luMember中存放键的位置“#生产部 : #staff : #李军 : #工作量”luMember[0]=ui_PD; luMember[1]=ui_staff; luMember[2]=ui_lijun; luMember[3]=ui_workload;  luMember[4]=0;me.BType=luStaData_double; me.VType=luStaData_double; *(double *)&(me.x)=12.3;setlumember(&Val,luMember,-1,0,&me,4);//李军的工作量增加12.3，添加到末尾if(0==lu2str(&Val,luStr,1000,&luStrNow))//输出lu对象的值{wprintf(L"%s",luStr);}}}FreeLu();//释放Lu}

运行结果：

(:static)= global(true), static=lu{    "--- 使用字符串进行注释 ---",    #生产部 : lu{        #staff : lu{            #王刚 : lu{                #age : 21,                #性别 : "男",                #工作量 : lu{11, 15},                #e_mail : "[e-mail]"            },            #李军 : lu{                #age : 25,                #性别 : "男",                #工作量 : lu{17, 1.200000, 1.800000},                #website : "http://www.lijun.net/"            }        }    }}查找到 #生产部 : #staff : #王刚 : #age : 21(:static)= global(true), static=lu{    "--- 使用字符串进行注释 ---",    #生产部 : lu{        #staff : lu{            #王刚 : lu{                #age : 21,                #性别 : "男",                #工作量 : lu{11, 15},                #e_mail : "[e-mail]"            },            #李军 : lu{                #age : 25,                #性别 : "男",                #家庭地址 : "XX省XX市XX区XX路100号大院60#7楼 邮政编码:123456",                #工作量 : lu{17, 1.200000, 1.800000, 12.300000},                #website : "http://www.lijun.net/"            }        }    }}

4 函数说明

    本例用到了Lu的10个输出函数：初始化Lu的函数InitLu，释放Lu的函数FreeLu，编译表达式的函数LuCom、计算表达式的函数LuCal、申请系统内置动态对象函数NewSysObj、查找键值函数SearchKey、 删除键值函数DeleteKey、由字符串获得一个唯一的整数StrToUniInt、由一个唯一的整数获得字符串UniIntToStr、获得字符串函数GetStr、。从这里查看这些函数的说明：Lu编程指南。

5 难点分析

    代码中提供了3个实用的函数lu2str、getlumember、setlumember以更方便地操作lu对象。

lu2str：输出lu对象到一个字符串，该字符串用LuCom编译后运行，可重新得到该lu对象。

getlumember：获得lu对象成员的值。输入参数是类似“键1 : 键2 : 键3 : 0”的整数数组，每一个键是由字符串（Lu脚本中，键以#开头）获得的一个唯一的整数（用StrToUniInt转换）。

setlumember： 设置lu对象成员的值。可对lu对象的键值进行重置、插入、删除等操作。

    程序主要操作步骤如下：

    （1）对返回lu对象（包含了配置信息）的字符串表达式ForStr进行编译运行；

    （2）用函数lu2str将lu对象转换为字符串表达式并输出；

    （3）从lu对象中查询键“#生产部 : #staff : #王刚 : #age”并输出结果；

    （4）在lu对象中“#生产部 : #staff : #李军 : #工作量”位置前插入键（#家庭地址 : "XX省XX市XX区XX路100号大院60#7楼 邮政编码:123456"）；

    （5）在lu对象中“#生产部 : #staff : #李军 : #工作量”位置添加键成员（即将lu{17, 1.2, 1.8}修改为lu{17, 1.2, 1.8, 12.3}）；

    （6）用函数lu2str将lu对象转换为字符串表达式并输出。

6 其他

    你可能注意到了，我的联系方式就在下面，如有不明之处或有什么建议，可随时与我进行联系。

---

版权所有© Lu程序设计 2002-2013，保留所有权利
E-mail: [e-mail]  QQ：630715621
最近更新: 2014年01月12日