开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 模拟服务器 > 查看源码
KLubCmpl_Blocker.cpp
资源名称：SwordOnline.rar　[点击查看]
上传用户：dzyhzl
上传日期：2019-04-29
资源大小：56270k
文件大小：14k
源码类别：

模拟服务器

开发平台：

C/C++

KLubCmpl_Blocker.cpp：源码内容
  1. #include "KWin32.h"
  2. #include "string.h"
  3. #include "KLubCmpl_Blocker.h"
  4. #ifndef __linux
  5. #include "conio.h"
  6. #endif
  8. #define d 0
  9. void KLubCmpl_Blocker::ScanIf(KLineNode * pFirstNode)
  10. {
  11. KLineNode * pNode = pFirstNode;
  12. KLineNode * pFirstIfNode = NULL;
  14. while(pNode)
  15. {
  16. char * pLine;
  17. pLine = (char *)pNode->m_pLineMem->GetMemPtr();
  18. int i = 0;
  19.     while(pLine[i] != '')
  20. {
  21. if (pLine[i] == ' '|| pLine[i] == 't')
  22. {
  23. i++;
  24. continue;
  25. }
  27. char * pIf;
  28. char * pElseIf;
  29. char * pElse;
  30. char * pEnd;
  32. if ((pIf = strstr(pLine, "if") )== pLine + i)
  33. {
  34. //为if语句的头
  35. if (*(pIf + 2) == '(' || *(pIf + 2) == ' ' || *(pIf+2) == 't')
  36. { 
  37.   char * pIfEnd;
  39.   //是否为单一连续一行的if 语句
  40.   if (pIfEnd = strstr(pLine, "end"))
  41.   {
  42. //是的话，结束该行扫描
  43.   if (*(pIfEnd - 1) == ')' ||  *(pIfEnd - 1) == ' '||*(pIfEnd - 1) == 't') 
  44. break;
  45.   }
  46.   else
  47.   {
  48. KStackNode * pStackNode = new KStackNode;
  49. pStackNode->m_pLine = pNode;
  50. pStackNode->nKey = KEYIF;
  51. PushKey(pStackNode);
  52. break;
  53.   }
  54. }
  55. else
  56. break;
  57. }
  58. else if((pElseIf = strstr(pLine,"elseif")) == pLine + i)
  59. {
  61. //为elseif语句的头
  62. if (*(pElseIf + 6) == '(' || *(pElseIf + 6) == ' ' || *(pElseIf + 6) == 't')
  63. { 
  64.   
  65. KStackNode * pStackNode = new KStackNode;
  66. pStackNode->m_pLine = pNode;
  67. pStackNode->nKey = KEYELSEIF;
  68. PushKey(pStackNode);
  69. break;
  70. }
  71. else
  72. break;
  74. }
  75. else if ((pElse = strstr(pLine, "else") )== pLine + i )
  76. {
  77. //为elseif语句的头
  78. if (*(pElse + 4) == '(' || *(pElse + 4) == ' ' || *(pElse + 4) == 'n'|| *(pElse + 4) == 't')
  79. { 
  80.   
  81. KStackNode * pStackNode = new KStackNode;
  82. pStackNode->m_pLine = pNode;
  83. pStackNode->nKey = KEYELSE;
  84. PushKey(pStackNode);
  85. break;
  86. }
  87. else
  88. break;
  89. }
  90. else if ((pEnd = strstr(pLine, "end")) == pLine + i)
  91. {
  92. if (*(pEnd + 3) == ';' || *(pEnd + 3) == ' ' || *(pEnd + 3) == 10 || *(pEnd + 3) == 't')
  93. { 
  94. KStackNode * pStackNode = NULL;
  95. KStackNode * pEndStack = new KStackNode;
  96. pEndStack->m_pLine = pNode;
  97. pEndStack->nKey = KEYEND;
  98. PushKey(pEndStack);
  100. do
  101.   {
  102. pStackNode = PopKey();
  103. UnitsList.AddHead((KNode *)pStackNode);
  104.   }
  105. while(pStackNode->nKey != KEYIF);
  106. }
  108. //该为最先if语句，首先转换！
  109. if (m_StackList.GetNodeCount() == 0)
  110. {
  111. KLineNode * pReturnNode = ((KStackNode*)UnitsList.GetHead())->m_pLine;
  112. this->ExchangeCurLines();
  113. if (pReturnNode)
  114.   ScanIf(pReturnNode);
  115. return;
  116. }
  117. else
  118. {
  119. int num = UnitsList.GetNodeCount();
  120. for(int i = 0 ; i < num;i ++)
  121. UnitsList.RemoveHead();
  122. }
  123. }
  124. else
  125. {
  126. break;
  127. }
  128. break;
  129. }
  130. pNode = (KLineNode *)pNode->GetNext();
  131. }
  132. }
  136. BOOL KLubCmpl_Blocker::ExchangeCurLines()
  137. {
  138. static int nLabelNum = 0;
  139. static int nReturnLabelNum = 0;
  140. int nCount = 0;
  141. char szNewLine[100];
  142. nCount = UnitsList.GetNodeCount() ;
  143. if (nCount== 0)
  144. return FALSE;
  145. int i = 1;
  146. char szNewLabel[30];
  147. char szNewReturnLabel[30];
  149. // if (s1) then 
  150. // .....
  151. // ....
  152. // end;
  154. KStackNode * pIfEndNode = (KStackNode *)UnitsList.GetTail();
  155. int nEndLabelNum = nCount + nLabelNum ;
  157. //当前的组合应为if end;
  158. if (nCount == 2)
  159. {
  160. KStackNode * pNode = (KStackNode*)UnitsList.RemoveHead();
  161. KStackNode * pEndNode = (KStackNode*)UnitsList.RemoveHead();
  163. KLineNode * pNewLine = new KLineNode;
  164. KLineNode * pNewReturnLine = new KLineNode;
  165. pNewLine->m_pLineMem = new KMemClass1;
  166. pNewReturnLine->m_pLineMem = new KMemClass1;
  167. sprintf(szNewReturnLabel, "nLabel("ReturnLabel%d");n", ++ nReturnLabelNum  );
  168. sprintf(szNewLabel, "nLabel("AutoLabel%d");n", ++ nLabelNum );
  169. char * Buf = (char *)pNewLine->m_pLineMem->Alloc(strlen(szNewLabel)+d);
  170. strcpy(Buf,szNewLabel);
  171. Buf = (char *)pNewReturnLine->m_pLineMem->Alloc(strlen(szNewReturnLabel)+d);
  172. strcpy(Buf,szNewReturnLabel);
  174. pEndNode->m_pLine->InsertAfter((KNode*) pNewReturnLine);
  175. m_Lines.AddTail((KNode*)pNewLine);
  177. sprintf(szNewLine, "%s Goto("AutoLabel%d") end;n", (char *)pNode->m_pLine->m_pLineMem->GetMemPtr(), nLabelNum );
  178. szNewLine[pNode->m_pLine->m_pLineMem->GetMemLen() - 1] = ' ' ;
  180. KMemClass1 * pMem = new KMemClass1;
  181. pMem->Alloc(strlen(szNewLine) +d);
  182. strcpy((char *)pMem->GetMemPtr(), szNewLine);
  183. // delete pNode->m_pLine->m_pLineMem;
  184. pNode->m_pLine->m_pLineMem = pMem;
  186. KStackNode * pNextNode = pEndNode;
  187. pNewLine->m_pNext = pNode->m_pLine->GetNext();
  188. pNode->m_pLine->GetNext()->m_pPrev = pNewLine;
  190. //Set Tail to NextNode prev
  191. pNextNode->m_pLine->GetPrev()->m_pNext = &m_Lines.m_ListTail;
  192. m_Lines.m_ListTail.m_pPrev = pNextNode->m_pLine->m_pPrev;
  194. pNode->m_pLine->m_pNext = pNextNode->m_pLine;
  195. pNextNode->m_pLine->m_pPrev = pNode->m_pLine;
  197. KLineNode * pGotoReturnNode = new KLineNode;
  198. char szGotoReturn[100];
  199. sprintf(szGotoReturn, "Goto("ReturnLabel%d");n", nReturnLabelNum  );
  200. pGotoReturnNode->m_pLineMem =  new KMemClass1;
  201. char * Buff = (char * )pGotoReturnNode->m_pLineMem->Alloc(strlen(szGotoReturn)+d);
  202. strcpy(Buff, szGotoReturn);
  203. m_Lines.AddTail(pGotoReturnNode);
  205. pEndNode->m_pLine->Remove();
  206. return TRUE;
  207. }
  209. nReturnLabelNum ++ ;
  210. while(1)
  211. { 
  212. if (i != nCount - 2)
  213. {
  214. KStackNode * pNode = (KStackNode*)UnitsList.GetHead();
  216. KLineNode * pNewLine = new KLineNode;
  217. pNewLine->m_pLineMem = new KMemClass1;
  219. sprintf(szNewLabel, "nLabel("AutoLabel%d");n", nLabelNum );
  221. char * Buf = (char *)pNewLine->m_pLineMem->Alloc(strlen(szNewLabel)+d);
  222. strcpy(Buf,szNewLabel);
  223. m_Lines.AddTail((KNode*)pNewLine);
  225. sprintf(szNewLine, "%s Goto("AutoLabel%d") end;n", (char *)pNode->m_pLine->m_pLineMem->GetMemPtr(), nLabelNum );
  226. szNewLine[pNode->m_pLine->m_pLineMem->GetMemLen() - 1] = ' ' ;
  227. g_StrRep(szNewLine,"elseif", "if");
  229. KMemClass1 * pMem = new KMemClass1;
  230. pMem->Alloc(strlen(szNewLine)+1);
  231. strcpy((char *)pMem->GetMemPtr(), szNewLine);
  233. // pNode->m_pLine->m_pLineMem->Free();
  234. pNode->m_pLine->m_pLineMem = pMem;
  236. KStackNode * pNextNode = (KStackNode* )pNode->GetNext();
  237. pNewLine->m_pNext = pNode->m_pLine->GetNext();
  238. pNode->m_pLine->GetNext()->m_pPrev = pNewLine;
  240. //Set Tail to NextNode prev
  241. pNextNode->m_pLine->GetPrev()->m_pNext = &m_Lines.m_ListTail;
  242. m_Lines.m_ListTail.m_pPrev = pNextNode->m_pLine->m_pPrev;
  244. pNode->m_pLine->m_pNext = pNextNode->m_pLine;
  245. pNextNode->m_pLine->m_pPrev = pNode->m_pLine;
  247. KLineNode * pGotoReturnNode = new KLineNode;
  248. char szGotoReturn[100];
  249. sprintf(szGotoReturn, "Goto("ReturnLabel%d");n", nReturnLabelNum );
  250. pGotoReturnNode->m_pLineMem = new KMemClass1;
  251. char * Buff = (char * )pGotoReturnNode->m_pLineMem->Alloc(strlen(szGotoReturn)+d);
  252. strcpy(Buff, szGotoReturn);
  253. m_Lines.AddTail(pGotoReturnNode);
  255. // return TRUE;
  256. UnitsList.RemoveHead();
  257. i++;
  258. nLabelNum ++;
  259. // Print();
  260. // getch();
  261. continue;
  262. }
  264. else
  265. {
  266. KStackNode * pElseIfNode = (KStackNode*)UnitsList.GetHead();
  267. KStackNode * pElseNode = (KStackNode*)UnitsList.GetHead()->GetNext();
  268. KStackNode * pEndNode = (KStackNode*)UnitsList.GetHead()->GetNext()->GetNext();
  270.   if ((pElseIfNode->nKey != KEYELSEIF && pElseIfNode->nKey != KEYIF) ||pElseNode->nKey != KEYELSE || pEndNode->nKey != KEYEND)
  271. return FALSE;
  273. KLineNode * pNewLine = new KLineNode;
  274. KLineNode * pNewElseLine = new KLineNode;
  275. KLineNode * pNewReturnLine = new KLineNode;
  276. pNewLine->m_pLineMem = new KMemClass1;
  277. pNewReturnLine->m_pLineMem = new KMemClass1;
  278. pNewElseLine->m_pLineMem = new KMemClass1;
  279. char szNewElseLine[50];
  281. sprintf(szNewReturnLabel, "nLabel("ReturnLabel%d");n", nReturnLabelNum  );
  282. sprintf(szNewLabel, "nLabel("AutoLabel%d");n", nLabelNum );
  283. sprintf(szNewElseLine, "nLabel("AutoLabel%d");n", ++nLabelNum);
  285. char * Buf = (char *)pNewLine->m_pLineMem->Alloc(strlen(szNewLabel)+d);
  286. strcpy(Buf,szNewLabel);
  288. Buf = (char *)pNewReturnLine->m_pLineMem->Alloc(strlen(szNewReturnLabel)+d);
  289. strcpy(Buf,szNewReturnLabel);
  291. Buf = (char *)pNewElseLine->m_pLineMem->Alloc(strlen(szNewElseLine)+d);
  292. strcpy(Buf,szNewElseLine);
  294. pEndNode->m_pLine->InsertAfter((KNode*) pNewReturnLine);
  296. m_Lines.AddTail((KNode*)pNewLine);
  297. m_Lines.AddTail((KNode*)pNewElseLine);
  300. sprintf(szNewLine, "%s Goto("AutoLabel%d") else Goto("AutoLabel%d") end;n", (char *)pElseIfNode->m_pLine->m_pLineMem->GetMemPtr(), nLabelNum - 1, nLabelNum );
  301. szNewLine[pElseIfNode->m_pLine->m_pLineMem->GetMemLen() - 1] = ' ' ;
  302. g_StrRep(szNewLine,"elseif", "if");
  305. KMemClass1 * pMem = new KMemClass1;
  306. pMem->Alloc(strlen(szNewLine)+d);
  307. strcpy((char *)pMem->GetMemPtr(), szNewLine);
  309. // delete pElseIfNode->m_pLine->m_pLineMem;
  310. pElseIfNode->m_pLine->m_pLineMem = pMem;
  311. //printf("1n");
  312. //Print();
  313. //getch();
  314. pNewLine->m_pNext = pElseIfNode->m_pLine->GetNext();
  315. pElseIfNode->m_pLine->GetNext()->m_pPrev = pNewLine;
  317. pElseNode->m_pLine->GetPrev()->m_pNext = pNewElseLine;
  318. pNewElseLine->m_pPrev = pElseNode->m_pLine->GetPrev();
  320. pNewElseLine->m_pNext = pElseNode->m_pLine->GetNext();
  321. pElseNode->m_pLine->GetNext()->m_pPrev = pNewElseLine;
  323. pEndNode->m_pLine->GetPrev()->m_pNext = &m_Lines.m_ListTail;
  324. m_Lines.m_ListTail.m_pPrev = pEndNode->m_pLine->GetPrev();
  326. pElseIfNode->m_pLine->m_pNext = pEndNode->m_pLine->GetNext();
  327. pEndNode->m_pLine->GetNext()->m_pPrev  = pElseIfNode->m_pLine;
  329. //printf("3n");
  330. //Print();
  331. //getch();
  332. KLineNode * pGotoReturnNode1 = new KLineNode;
  333. KLineNode * pGotoReturnNode2 = new KLineNode;
  335. char szGotoReturn[100];
  336. sprintf(szGotoReturn, "Goto("ReturnLabel%d");n",  nReturnLabelNum  );
  338. pGotoReturnNode1->m_pLineMem = new KMemClass1;
  339. pGotoReturnNode2->m_pLineMem = new KMemClass1;
  341. char * Buff = (char * )pGotoReturnNode1->m_pLineMem->Alloc(strlen(szGotoReturn)+d);
  342. strcpy(Buff, szGotoReturn);
  344. Buff = (char * )pGotoReturnNode2->m_pLineMem->Alloc(strlen(szGotoReturn)+d);
  345. strcpy(Buff, szGotoReturn);
  348. pNewElseLine->InsertBefore((KNode*) pGotoReturnNode1);
  349. m_Lines.AddTail(pGotoReturnNode2);
  351. //pEndNode->m_pLine->Remove();
  352. //pElseNode->m_pLine->Remove();
  353. //pEndNode->m_pLine->Remove();
  354. // Print();
  355. // getch();
  356. UnitsList.RemoveHead();
  357. UnitsList.RemoveHead();
  358. UnitsList.RemoveHead();
  359. return TRUE;
  360. }
  361. }
  362. }
  364. KLineNode * KLubCmpl_Blocker::Load(LPSTR FileName)
  365. {
  366. KPakFile File;
  367. DWORD dwSize;
  368. PVOID Buffer;
  369. KLineNode * pFirstLine = NULL;
  370. int nState = 0;
  372. // check file name
  373. if (FileName[0] == 0) return NULL;
  375. if (!File.Open(FileName))
  376. {
  377. g_DebugLog("Can't open tab file : %s", FileName);
  378. return NULL;
  379. }
  381. dwSize = File.Size();
  382. KMemClass1 Memory;
  384. Buffer = Memory.Alloc(dwSize);
  385. File.Read(Buffer, dwSize);
  387. DWORD nCurPos = 0;
  388. while(nCurPos < dwSize)
  389. {
  390. long i = 0;
  391.  char szLine[100];
  392.    while(nCurPos <= dwSize)
  393.    {
  394. if (((char*)Buffer)[nCurPos] == 'n')
  395. break;
  396.   szLine[i++] = ((char*)Buffer)[nCurPos ++];
  397.    }
  399.  szLine[i - 1] = 'n';
  400.  szLine[i] = '';
  401.  nCurPos = nCurPos + 1;
  402.  
  403.  KLineNode * pLineNode = new KLineNode; 
  404.  KMemClass1 * pMem = new KMemClass1;
  405.  pMem->Alloc(i);
  406.  pLineNode->m_pLineMem = pMem;
  407.  strcpy((char *)pLineNode->m_pLineMem->GetMemPtr(), szLine);
  408.  if (strstr(szLine,"function main()"))  pFirstLine = pLineNode;
  409.  
  410.  if (strstr(szLine,"end;--main" ))  nState = 1;
  411.  
  412.  if (nState == 0)
  413.  m_Lines.AddTail(pLineNode);
  414.  else
  415.  m_RestLines.AddTail(pLineNode);
  416. }
  418. return pFirstLine;
  419. }
  422. void KLubCmpl_Blocker::PushKey(KStackNode * pStackNode)  
  423. {
  424. g_DebugLog("Push (%d) %s", pStackNode->nKey, pStackNode->m_pLine->m_pLineMem->GetMemPtr());
  426. m_StackList.AddHead((KNode*)pStackNode);
  427. }
  429. KStackNode* KLubCmpl_Blocker::PopKey()
  430. {
  431. g_DebugLog("Pop  (%d) %s", ((KStackNode*)(m_StackList.GetHead()))->nKey, ((KStackNode*)(m_StackList.GetHead()))->m_pLine->m_pLineMem->GetMemPtr());
  432. return (KStackNode*) m_StackList.RemoveHead();
  433. }
  436. int  KLubCmpl_Blocker::GetBuffer(KMemClass1 * &pMem)
  437. {
  438. LPSTR DataBuf;
  439. DWORD dwLen = 0;
  441. KLineNode * pNode = (KLineNode *)m_Lines.GetHead();
  443. while(pNode)
  444. {
  445. dwLen += pNode->m_pLineMem->GetMemLen();
  446. pNode = (KLineNode*)pNode->GetNext();
  447. }
  449. pNode = (KLineNode *)m_RestLines.GetHead();
  450. while(pNode)
  451. {
  452. dwLen += pNode->m_pLineMem->GetMemLen();
  453. pNode = (KLineNode*)pNode->GetNext();
  454. }
  456. if (dwLen == 0 ) return 0;
  457. KMemClass1 *pFileMem = new KMemClass1;
  458. DataBuf = (LPSTR)pFileMem->Alloc(dwLen*2);
  459. pNode = (KLineNode*)m_Lines.GetHead();
  460. int nANum = 0;
  461. while(pNode)
  462. {
  463. strcpy(DataBuf, (LPSTR)pNode->m_pLineMem->GetMemPtr() ); 
  465. DataBuf += strlen(DataBuf)  ;
  466. pNode = (KLineNode*)pNode->GetNext();
  467. }
  469. pNode = (KLineNode *)m_RestLines.GetHead();
  470. while(pNode)
  471. {
  472. strcpy(DataBuf, (LPSTR)pNode->m_pLineMem->GetMemPtr() ); 
  473. DataBuf += strlen(DataBuf)  ;
  474. pNode = (KLineNode*)pNode->GetNext();
  475. }
  477. nANum = DataBuf - (char*)pFileMem->GetMemPtr() + strlen(DataBuf);
  479. pMem = pFileMem;
  481. return nANum;
  482. }
  484. BOOL KLubCmpl_Blocker::Write(LPSTR szFileName)
  485. {
  487. KFile File;
  489. if (szFileName[0] == 0)
  490. return FALSE;
  492. KMemClass1 * pMem = NULL;
  493. int len = GetBuffer(pMem);
  494. if (len == 0 ) return FALSE;
  496. // create ini file
  497. if (!File.Create(szFileName))
  498. return FALSE;
  500. // write ini file
  502. File.Write(pMem->GetMemPtr(), len);
  503. File.Close();
  504. delete pMem;
  505. return TRUE;
  506. }
  508. void KLubCmpl_Blocker::Print()
  509. {
  510. KLineNode* pNode = (KLineNode*)m_Lines.GetHead();
  511. printf("n---------------BEGIN--------------n");
  512. while(pNode)
  513. {
  514. printf("%s",(LPSTR)pNode->m_pLineMem->GetMemPtr());
  515. pNode = (KLineNode*)pNode->GetNext();
  516. }
  517. printf("n---------------END--------------n");
  518. }