1
0

QSPGameCode.cs 97 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284
  1. using System;
  2. using System.Collections;
  3. using System.Collections.Generic;
  4. using System.IO;
  5. using System.Text;
  6. using System.Threading;
  7. using System.ComponentModel;
  8. namespace Analyser
  9. {
  10. public class Location : Common
  11. {
  12. QSPGameCode m_gamecode;
  13. string m_name;
  14. int m_line;
  15. bool m_start; //Стартовая локация
  16. List<string> location_codeline_text;
  17. Dictionary<int, int> location_codeline_level;
  18. int currentLine;
  19. bool currentRoot;
  20. enum ControlBlockType
  21. {
  22. None,
  23. SL_If,
  24. SL_Else,
  25. SL_Act,
  26. ML_If,
  27. ML_Else,
  28. ML_Act,
  29. IfCondition,
  30. ElseIfCondition,
  31. ActCondition
  32. }
  33. struct ControlLine
  34. {
  35. public ControlBlockType controlBlock;
  36. public int line;
  37. }
  38. public Location(QSPGameCode code, string name, int line, bool start)
  39. {
  40. m_gamecode = code;
  41. m_name = name;
  42. m_line = line;
  43. m_start = start;
  44. location_codeline_text = null;
  45. location_codeline_level = null;
  46. }
  47. public string GetName()
  48. {
  49. return m_name;
  50. }
  51. public int GetLine()
  52. {
  53. return m_line;
  54. }
  55. public int GetCodeLinesCount()
  56. {
  57. return location_codeline_text.Count;
  58. }
  59. public void GetCodeLine(int lineNum, ref string text, ref int level)
  60. {
  61. //Нужно для утилиты форматирования
  62. int realNum = lineNum + 1;
  63. text = location_codeline_text[lineNum];
  64. if (location_codeline_level.ContainsKey(realNum))
  65. level = location_codeline_level[realNum];
  66. else
  67. level = INVALID_INDEX;
  68. return;
  69. }
  70. new void SubmitError(string text, int line)
  71. {
  72. if (currentRoot)
  73. Common.SubmitError(text, line);
  74. else
  75. Common.SubmitError(text, currentLine);
  76. }
  77. new void SubmitWarning(string text, int line)
  78. {
  79. if (currentRoot)
  80. Common.SubmitWarning(text, line);
  81. else
  82. Common.SubmitWarning(text, currentLine);
  83. }
  84. bool qspCompileExprPushOpCode(ref int[] opStack, ref int opSp, ref int[] argStack, ref int argSp, int opCode)
  85. {
  86. if ((opSp == QSP_STACKSIZE - 1) || (argSp == QSP_STACKSIZE - 1))
  87. {
  88. SubmitError("Quite complicated expression", currentLine);
  89. return false;
  90. }
  91. opStack[++opSp] = opCode;
  92. argStack[++argSp] = (opCode < (int)QspFunctionType.First_Function) ? qspOps[opCode].MinArgsCount : 0;
  93. return true;
  94. }
  95. bool qspAppendToCompiled(ref int itemsCount)
  96. {
  97. if (itemsCount == QSP_MAXITEMS)
  98. {
  99. SubmitError("Quite many arguments in the expression", currentLine);
  100. return false;
  101. }
  102. ++itemsCount;
  103. return true;
  104. }
  105. public bool ParseLocation(List<string> code, bool root)
  106. {
  107. int quote = (int)QuoteType.None;
  108. if (root)
  109. {
  110. currentRoot = true;
  111. currentLine = 0;
  112. location_codeline_text = new List<string>(code);
  113. location_codeline_level = new Dictionary<int, int>();
  114. }
  115. //Склеиваем строки
  116. List<int> lineIndexes = new List<int>();
  117. List<string> escapedLines = new List<string>();
  118. int linesCount = code.Count;
  119. int oldLine = 0;
  120. int curLine = 0;
  121. int curlyLevel = 0;
  122. string extraLine = "";
  123. while (curLine < linesCount)
  124. {
  125. string line = code.ToArray()[curLine];
  126. int pos = 0;
  127. while (pos < line.Length)
  128. {
  129. char c = line[pos];
  130. if (c == '\'')
  131. {
  132. //Апостроф
  133. if (quote == (int)QuoteType.None)
  134. {
  135. quote = (int)QuoteType.Single;
  136. }
  137. else if (quote == (int)QuoteType.Single)
  138. {
  139. if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
  140. {
  141. //Экранированный апостроф
  142. pos++;
  143. }
  144. else
  145. {
  146. quote = (int)QuoteType.None;
  147. }
  148. }
  149. }
  150. else if (c == '"')
  151. {
  152. //Кавычка
  153. if (quote == (int)QuoteType.None)
  154. {
  155. quote = (int)QuoteType.Double;
  156. }
  157. else if (quote == (int)QuoteType.Double)
  158. {
  159. if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
  160. {
  161. //Экранированная кавычка
  162. pos++;
  163. }
  164. else
  165. {
  166. quote = (int)QuoteType.None;
  167. }
  168. }
  169. }
  170. else if (quote == (int)QuoteType.None)
  171. {
  172. if (c == '{')
  173. {
  174. curlyLevel++;
  175. }
  176. else if (c == '}')
  177. {
  178. if (curlyLevel == 0)
  179. {
  180. SubmitError("Closing curly brace without opening one", oldLine + 1);
  181. return false;
  182. }
  183. curlyLevel--;
  184. }
  185. }
  186. pos++;
  187. }
  188. if ((curlyLevel > 0) || (quote != (int)QuoteType.None) || line.EndsWith(" _"))
  189. {
  190. if (line.EndsWith(" _"))
  191. line = line.Substring(0, line.Length - 2);
  192. extraLine += line;
  193. if (curlyLevel > 0)
  194. extraLine += "\n";//Вставляем разделитель для строк, потом по нему "разобьем" строки
  195. if (curLine == linesCount - 1)
  196. {
  197. lineIndexes.Add(oldLine + 1);
  198. string escaped = extraLine + line;
  199. escapedLines.Add(escaped.Trim(WhiteSpace));
  200. }
  201. }
  202. else
  203. {
  204. lineIndexes.Add(oldLine + 1);
  205. string escaped = extraLine + line;
  206. escapedLines.Add(escaped.Trim(WhiteSpace));
  207. oldLine = curLine + 1;
  208. extraLine = "";
  209. }
  210. curLine++;
  211. }
  212. //Проверка на незакрытые в конце локации многострочные строки
  213. if (quote != (int)QuoteType.None)
  214. {
  215. SubmitError("Unclosed string", oldLine + 1);
  216. return false;
  217. }
  218. //Проверка на незакрытые в конце локации фигурные скобки
  219. if (curlyLevel > 0)
  220. {
  221. SubmitError("Unclosed curly bracket", oldLine + 1);
  222. return false;
  223. }
  224. //TODO
  225. // FOR
  226. // перечисления asd|12|ddd
  227. //Разбираем код
  228. int lineNum = 0;
  229. int linePlainNum = 0;
  230. string block = "";
  231. string quotedText = "";
  232. int controlBlock = (int)ControlBlockType.None;
  233. Stack<ControlLine> ControlStack = new Stack<ControlLine>();
  234. List<string> blockGroup = new List<string>();
  235. List<bool> blockInGroupIsText = new List<bool>();
  236. int groupInnerCounter = 0;
  237. bool blockStarted = false;
  238. bool blockCompleted = false;
  239. bool blockGroupStarted = false;
  240. bool blockGroupCompleted = false;
  241. bool quotedTextCompleted = false;
  242. string rawText = "";
  243. string debugText = "";
  244. foreach (string line in escapedLines)
  245. {
  246. lineNum = lineIndexes[linePlainNum];
  247. linePlainNum++;
  248. int startIndentLevel = 0;
  249. int endIndentLevel = 0;
  250. if (currentRoot)
  251. {
  252. currentLine = lineNum;
  253. //Вычисляем уровень вложенности(для утилиты форматирования кода)
  254. int stackSize = ControlStack.Count;
  255. if (stackSize > 0)
  256. startIndentLevel = stackSize;
  257. }
  258. int pos = 0;
  259. int firstSymbolPos = INVALID_INDEX;
  260. int blockStartPos = INVALID_INDEX;
  261. int lastIfPos = INVALID_INDEX;
  262. int lastActPos = INVALID_INDEX;
  263. int bracketLevel = 0;
  264. bool comment = false;
  265. bool label = false;
  266. string labelText = "";
  267. bool singleBlockGroup = false;
  268. //Разбор строки
  269. while (pos < line.Length)
  270. {
  271. bool appendDelimiter = false;
  272. String delimiterToAppend = "";
  273. char c = line[pos];
  274. if ((c.ToString().IndexOfAny(WhiteSpace) != 0) && (firstSymbolPos == INVALID_INDEX))
  275. {
  276. firstSymbolPos = pos;
  277. }
  278. if (c == '\'')
  279. {
  280. //Апостроф
  281. if (quote == (int)QuoteType.None)
  282. {
  283. quote = (int)QuoteType.Single;
  284. quotedText = "";
  285. if (blockStarted && !comment)
  286. blockCompleted = true;
  287. //для отладки
  288. if (rawText.Length == 0)
  289. rawText += c;
  290. else
  291. rawText += Environment.NewLine + c;
  292. }
  293. else if (quote == (int)QuoteType.Single)
  294. {
  295. if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
  296. {
  297. //Экранированный апостроф
  298. pos++;
  299. quotedText += c;
  300. }
  301. else
  302. {
  303. quote = (int)QuoteType.None;
  304. if (!comment && !label)
  305. quotedTextCompleted = true;
  306. }
  307. //для отладки
  308. rawText += c;
  309. }
  310. else
  311. {
  312. quotedText += c;
  313. //для отладки
  314. rawText += c;
  315. }
  316. }
  317. else if (c == '"')
  318. {
  319. //Кавычка
  320. if (quote == (int)QuoteType.None)
  321. {
  322. quote = (int)QuoteType.Double;
  323. quotedText = "";
  324. if (blockStarted && !comment)
  325. blockCompleted = true;
  326. //для отладки
  327. if (rawText.Length == 0)
  328. rawText += c;
  329. else
  330. rawText += Environment.NewLine + c;
  331. }
  332. else if (quote == (int)QuoteType.Double)
  333. {
  334. if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
  335. {
  336. //Экранированная кавычка
  337. pos++;
  338. quotedText += c;
  339. }
  340. else
  341. {
  342. quote = (int)QuoteType.None;
  343. if (!comment && !label)
  344. quotedTextCompleted = true;
  345. }
  346. //для отладки
  347. rawText += c;
  348. }
  349. else
  350. {
  351. quotedText += c;
  352. //для отладки
  353. rawText += c;
  354. }
  355. }
  356. else if (comment)
  357. {
  358. //Здесь игнорируем все до самого конца строки, но учитываем переводы строк внутри кавычек и апострофов.
  359. }
  360. else if (quote != (int)QuoteType.None)
  361. {
  362. //Строка текста внутри кавычек или апострофов
  363. quotedText += c;
  364. //для отладки
  365. rawText += c;
  366. }
  367. else if (c == '{')
  368. {
  369. if (blockStarted && !comment)
  370. blockCompleted = true;
  371. //Записываем содержимое фигурных скобок
  372. string curlyText = "";
  373. curlyLevel = 1;
  374. pos++;
  375. int curlyQuote = (int)QuoteType.None;
  376. while (pos < line.Length)
  377. {
  378. char c2 = line[pos];
  379. if (c2 == '\'')
  380. {
  381. //Апостроф
  382. if (curlyQuote == (int)QuoteType.None)
  383. {
  384. curlyQuote = (int)QuoteType.Single;
  385. }
  386. else if (curlyQuote == (int)QuoteType.Single)
  387. {
  388. if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
  389. {
  390. //Экранированный апостроф
  391. curlyText += c2;
  392. pos++;
  393. c2 = line[pos];
  394. }
  395. else
  396. {
  397. curlyQuote = (int)QuoteType.None;
  398. }
  399. }
  400. }
  401. else if (c2 == '"')
  402. {
  403. //Кавычка
  404. if (curlyQuote == (int)QuoteType.None)
  405. {
  406. curlyQuote = (int)QuoteType.Double;
  407. }
  408. else if (curlyQuote == (int)QuoteType.Double)
  409. {
  410. if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
  411. {
  412. //Экранированная кавычка
  413. curlyText += c2;
  414. pos++;
  415. c2 = line[pos];
  416. }
  417. else
  418. {
  419. curlyQuote = (int)QuoteType.None;
  420. }
  421. }
  422. }
  423. else if (curlyQuote == (int)QuoteType.None)
  424. {
  425. if (c2 == '{')
  426. {
  427. curlyLevel++;
  428. }
  429. else if (c2 == '}')
  430. {
  431. curlyLevel--;
  432. if (curlyLevel == 0)
  433. break;
  434. }
  435. }
  436. curlyText += c2;
  437. pos++;
  438. }
  439. if (curlyLevel > 0)
  440. {
  441. SubmitError("Internal error of the analyzer - unclosed curly bracket \"{\"", currentLine);
  442. break;
  443. }
  444. if (curlyParsing)
  445. {
  446. //Парсим содержимое фигурных скобок
  447. List<string> curlyLines = new List<string>(curlyText.Split('\n'));
  448. currentRoot = false;
  449. ParseLocation(curlyLines, currentRoot);
  450. currentRoot = root;
  451. //Добавляем пустую "строку в кавычках", чтобы анализатор не ругался на отсутствие параметра
  452. quotedText = "";
  453. }
  454. else
  455. {
  456. quotedText = curlyText;
  457. }
  458. quotedTextCompleted = true;
  459. }
  460. else
  461. {
  462. //Обычные символы
  463. if (label)
  464. {
  465. if (c == '&')
  466. {
  467. if (labelText.Trim(WhiteSpace).Equals(":"))
  468. {
  469. SubmitError("Empty label", lineNum);
  470. return false;
  471. }
  472. if (quote != (int)QuoteType.None)
  473. {
  474. SubmitError("Unclosed string in the label name", lineNum);
  475. return false;
  476. }
  477. label = false;
  478. }
  479. else
  480. {
  481. labelText += c;
  482. }
  483. }
  484. else if ((c == ':') && ((controlBlock == (int)ControlBlockType.IfCondition) ||
  485. (controlBlock == (int)ControlBlockType.ElseIfCondition)))
  486. {
  487. //Разбор условия
  488. if (blockStarted)
  489. blockCompleted = true;
  490. blockGroupCompleted = true;
  491. //Двоеточие после условия
  492. if ((pos == line.Length - 1))
  493. {
  494. //В конце строки - многострочный IF или ELSEIF
  495. if (firstSymbolPos == lastIfPos)
  496. {
  497. if (controlBlock == (int)ControlBlockType.IfCondition)
  498. {
  499. ControlLine cline;
  500. cline.line = lineNum;
  501. cline.controlBlock = ControlBlockType.ML_If;
  502. ControlStack.Push(cline);
  503. }
  504. else
  505. {
  506. ControlLine cline = ControlStack.Pop();
  507. if (cline.controlBlock != ControlBlockType.ML_If)
  508. {
  509. SubmitError("ELSEIF without IF", lineNum);
  510. return false;
  511. }
  512. cline.line = lineNum;
  513. ControlStack.Push(cline);
  514. }
  515. controlBlock = (int)ControlBlockType.ML_If;
  516. }
  517. else
  518. {
  519. if (controlBlock == (int)ControlBlockType.IfCondition)
  520. SubmitError("Multiline IF should be placed at the beginning of the line", lineNum);
  521. else
  522. SubmitError("Multiline ELSEIF should be placed at the beginning of the line", lineNum);
  523. return false;
  524. }
  525. }
  526. else if (controlBlock == (int)ControlBlockType.IfCondition)
  527. {
  528. //Строка не заканчивается - однострочный IF
  529. if (controlBlock == (int)ControlBlockType.IfCondition)
  530. {
  531. ControlLine cline;
  532. cline.line = lineNum;
  533. cline.controlBlock = ControlBlockType.SL_If;
  534. ControlStack.Push(cline);
  535. controlBlock = (int)cline.controlBlock;
  536. groupInnerCounter = 0;
  537. }
  538. else
  539. {
  540. SubmitError("ELSEIF cannot be used in single line IF", lineNum);
  541. return false;
  542. }
  543. }
  544. else
  545. {
  546. SubmitError("An operator cannot be placed after colon\":\" in multiline ELSEIF", lineNum);
  547. return false;
  548. }
  549. }
  550. else if ((c == ':') && (controlBlock == (int)ControlBlockType.ActCondition))
  551. {
  552. //Разбор аргумента
  553. if (blockStarted)
  554. blockCompleted = true;
  555. blockGroupCompleted = true;
  556. //Двоеточие после ACT
  557. if (pos == line.Length - 1)
  558. {
  559. //В конце строки - многострочный ACT
  560. if (firstSymbolPos == lastActPos)
  561. {
  562. controlBlock = (int)ControlBlockType.ML_Act;
  563. ControlLine cline;
  564. cline.line = lineNum;
  565. cline.controlBlock = ControlBlockType.ML_Act;
  566. ControlStack.Push(cline);
  567. }
  568. else
  569. {
  570. SubmitError("Multiline ACT should be placed at the beginning of the line", lineNum);
  571. return false;
  572. }
  573. }
  574. else
  575. {
  576. //Строка не заканчивается - однострочный ACT
  577. controlBlock = (int)ControlBlockType.SL_Act;
  578. groupInnerCounter = 0;
  579. }
  580. }
  581. else if (!comment && (c == '!') && !blockGroupStarted && !blockStarted)
  582. {
  583. //Начало комментария
  584. comment = true;
  585. }
  586. else if ((c == ':') && (firstSymbolPos == pos))
  587. {
  588. //Начало метки
  589. label = true;
  590. }
  591. else if (c.ToString().IndexOfAny(Delimiters) == 0)
  592. {
  593. if ((c == '&') && (bracketLevel == 0))
  594. {
  595. if (controlBlock == (int)ControlBlockType.IfCondition)
  596. {
  597. //В условии IF недопустимо использование "&" вне скобок
  598. SubmitError("Redundant \"&\": perhaps should be \"AND\"", lineNum);
  599. return false;
  600. }
  601. else if (controlBlock == (int)ControlBlockType.ActCondition)
  602. {
  603. //В названии ACT недопустимо использование "&" вне скобок
  604. SubmitError("Redundant \"&\"", lineNum);
  605. return false;
  606. }
  607. else
  608. {
  609. if (blockStarted)
  610. blockCompleted = true;
  611. if (blockGroupStarted)
  612. blockGroupCompleted = true;
  613. if (blockStarted && !blockGroupStarted)
  614. singleBlockGroup = true;
  615. }
  616. }
  617. else if (blockStarted && (c == ' ') && StartOfMultiWordOperator(block))
  618. {
  619. //Составной оператор - DEL ACT, DEL OBJ
  620. block += c;
  621. }
  622. else if (blockStarted && (c == ' ') && (qspGetStatCode(block) == (int)QspStatementType.Close) &&
  623. (line.Length > pos + 3) && line.Substring(pos + 1, 3).Equals("ALL", StringComparison.OrdinalIgnoreCase))
  624. {
  625. //CLOSE ALL
  626. block += c;
  627. }
  628. else if (!blockStarted && (c == '*'))
  629. {
  630. //Возможно, *PL, *P, *NL
  631. blockStarted = true;
  632. blockCompleted = false;
  633. block += c;
  634. blockStartPos = pos;
  635. }
  636. else if (!blockStarted && (c == '['))
  637. {
  638. //Квадратная скобка должна идти вплотную к имени массива
  639. SubmitError("A square bracket has to be placed just behind the name of the array, with no spaces", lineNum);
  640. return false;
  641. }
  642. else
  643. {
  644. //Самостоятельные знаки
  645. if (c == '(')
  646. {
  647. bracketLevel++;
  648. }
  649. else if (c == ')')
  650. {
  651. if (bracketLevel == 0)
  652. {
  653. SubmitError("Redundant bracket \")\"", lineNum);
  654. return false;
  655. }
  656. bracketLevel--;
  657. }
  658. bool whiteSpace = c.ToString().IndexOfAny(WhiteSpace) == 0;
  659. //Особый учет для последовательностей >=, => и т.д.
  660. bool comparer = pos + 1 < line.Length;
  661. String cmp = "";
  662. if (comparer)
  663. {
  664. cmp = line.Substring(pos, 2);
  665. comparer = cmp.Equals("<=") || cmp.Equals(">=") || cmp.Equals("=>") || cmp.Equals("=<") || cmp.Equals("<>") ||
  666. cmp.Equals("+=") || cmp.Equals("-=");
  667. }
  668. if (comparer)
  669. {
  670. //<= >= => =< <> += -=
  671. if (blockStarted)
  672. {
  673. appendDelimiter = true;
  674. delimiterToAppend = cmp;
  675. }
  676. else
  677. {
  678. blockStarted = true;
  679. blockStartPos = pos;
  680. block = cmp;
  681. }
  682. blockCompleted = true;
  683. pos++;
  684. }
  685. else if (blockStarted)
  686. {
  687. blockCompleted = true;
  688. if (!whiteSpace)
  689. {
  690. appendDelimiter = true;
  691. delimiterToAppend += c;
  692. }
  693. else
  694. {
  695. //Обрабатываем END IF, END ACT
  696. int blockCode = qspGetStatCode(block);
  697. if (blockCode == (int)QspStatementType.End)
  698. {
  699. int nextPos = line.LastIndexOfAny(WhiteSpace, blockStartPos + block.Length) + 1;
  700. if (nextPos < line.Length)
  701. {
  702. int delimPos = line.IndexOfAny(Delimiters, nextPos);
  703. string nextWord = "";
  704. if (delimPos == INVALID_INDEX)
  705. nextWord = line.Substring(nextPos);
  706. else
  707. nextWord = line.Substring(nextPos, delimPos - nextPos);
  708. int nextCode = qspGetStatCode(nextWord);
  709. if ((nextCode == (int)QspStatementType.If) || (nextCode == (int)QspStatementType.Act))
  710. {
  711. pos = nextPos + nextWord.Length - 1;
  712. }
  713. }
  714. }
  715. }
  716. }
  717. else if (!whiteSpace)
  718. {
  719. blockStarted = true;
  720. blockCompleted = true;
  721. blockStartPos = pos;
  722. block += c;
  723. }
  724. }
  725. }
  726. else
  727. {
  728. //Просто буквы
  729. if (!blockStarted)
  730. {
  731. blockStarted = true;
  732. blockCompleted = false;
  733. blockStartPos = pos;
  734. }
  735. block += c;
  736. }
  737. }
  738. //Последний символ в строке
  739. if (blockStarted && (pos == line.Length - 1))
  740. {
  741. blockCompleted = true;
  742. }
  743. if (blockCompleted || quotedTextCompleted)
  744. {
  745. if (!quotedTextCompleted && (block.Length == 0))
  746. {
  747. SubmitError("Internal error of analyzer! Empty block!", lineNum);
  748. return false;
  749. }
  750. debugText += "[" + block + "] ";
  751. bool skip = false;
  752. int blockCode = qspGetStatCode(block);
  753. if (blockCode == (int)QspStatementType.If)
  754. {
  755. controlBlock = (int)ControlBlockType.IfCondition;
  756. debugText += "<IfCondition> ";
  757. lastIfPos = blockStartPos;
  758. }
  759. if (blockCode == (int)QspStatementType.Act)
  760. {
  761. controlBlock = (int)ControlBlockType.ActCondition;
  762. debugText += "<ActCondition> ";
  763. lastActPos = blockStartPos;
  764. }
  765. if (blockCode == (int)QspStatementType.ElseIf)
  766. {
  767. if (controlBlock == (int)ControlBlockType.ML_If)
  768. {
  769. controlBlock = (int)ControlBlockType.ElseIfCondition;
  770. debugText += "<ElseIfCondition> ";
  771. lastIfPos = blockStartPos;
  772. }
  773. else
  774. {
  775. SubmitError("ELSEIF без IF", lineNum);
  776. return false;
  777. }
  778. }
  779. if (blockCode == (int)QspStatementType.Else)
  780. {
  781. if (controlBlock == (int)ControlBlockType.ML_If)
  782. {
  783. if (firstSymbolPos == blockStartPos)
  784. {
  785. if ((blockStartPos + block.Length == line.Length) || (line.Substring(blockStartPos + block.Length).Trim(WhiteSpace).Equals(":")))
  786. {
  787. controlBlock = (int)ControlBlockType.ML_Else;
  788. ControlStack.Pop();
  789. ControlLine cline;
  790. cline.controlBlock = ControlBlockType.ML_Else;
  791. cline.line = lineNum;
  792. ControlStack.Push(cline);
  793. }
  794. else
  795. {
  796. SubmitError("An operator cannot be placed after multiline ELSE", lineNum);
  797. return false;
  798. }
  799. }
  800. else
  801. {
  802. SubmitError("Multiline ELSE should be at the beginning of the line", lineNum);
  803. return false;
  804. }
  805. }
  806. else
  807. {
  808. if (controlBlock == (int)ControlBlockType.SL_Act)
  809. {
  810. if (groupInnerCounter > 0)
  811. {
  812. if ((ControlStack.Peek().controlBlock == ControlBlockType.SL_If) && (ControlStack.Peek().line == lineNum))
  813. {
  814. if (blockGroupStarted)
  815. {
  816. blockGroupCompleted = true;
  817. }
  818. }
  819. else
  820. {
  821. SubmitError("ELSE without IF", lineNum);
  822. return false;
  823. }
  824. }
  825. else
  826. {
  827. SubmitError("Invalid notation of single line ACT", lineNum);
  828. return false;
  829. }
  830. }
  831. else if (controlBlock == (int)ControlBlockType.SL_If)
  832. {
  833. if (blockGroupStarted)
  834. {
  835. blockGroupCompleted = true;
  836. }
  837. else if (groupInnerCounter == 0)
  838. {
  839. SubmitError("After single line IF has to be any operators before ELSE", lineNum);
  840. return false;
  841. }
  842. }
  843. else
  844. {
  845. SubmitError("ELSE without IF", lineNum);
  846. return false;
  847. }
  848. //Это правильный ELSE
  849. if (blockStartPos + block.Length < line.Length)
  850. {
  851. string restLine = line.Substring(blockStartPos + block.Length);
  852. if (restLine.Trim(WhiteSpace).StartsWith(":"))
  853. {
  854. pos += restLine.IndexOf(':') + 1;
  855. }
  856. }
  857. ControlStack.Pop();
  858. controlBlock = (int)ControlBlockType.SL_Else;
  859. groupInnerCounter = 0;
  860. }
  861. skip = true;
  862. }
  863. if (blockCode == (int)QspStatementType.End)
  864. {
  865. if (ControlStack.Count > 0)
  866. {
  867. ControlStack.Pop();
  868. if (ControlStack.Count > 0)
  869. {
  870. ControlLine cline = ControlStack.Peek();
  871. controlBlock = (int)cline.controlBlock;
  872. }
  873. else
  874. {
  875. controlBlock = (int)ControlBlockType.None;
  876. }
  877. }
  878. else
  879. {
  880. SubmitError("Redundant END", lineNum);
  881. return false;
  882. }
  883. skip = true;
  884. }
  885. if (!skip)
  886. {
  887. if (!blockGroupStarted)
  888. {
  889. blockGroupStarted = true;
  890. groupInnerCounter++;
  891. if (singleBlockGroup)
  892. {
  893. singleBlockGroup = false;
  894. blockGroupCompleted = true;
  895. }
  896. }
  897. if (quotedTextCompleted)
  898. {
  899. blockGroup.Add(quotedText);
  900. blockInGroupIsText.Add(true);
  901. quotedTextCompleted = false;
  902. }
  903. else
  904. {
  905. if ((blockCode == (int)QspStatementType.Unknown) && (block.Length > 1))
  906. {
  907. //Обрабатываем попытки "склеить" некоторые последовательности символов
  908. string first = block.Substring(0, 1);
  909. if (first.Equals("*"))
  910. {
  911. //Если была неудачная попытка прочесть *NL, *P, и т.д., "разделяем" блок на части
  912. blockGroup.Add(first);
  913. blockInGroupIsText.Add(false);
  914. block = block.Substring(1);
  915. }
  916. }
  917. blockGroup.Add(block);
  918. blockInGroupIsText.Add(false);
  919. }
  920. if (appendDelimiter)
  921. {
  922. blockGroup.Add(delimiterToAppend);
  923. blockInGroupIsText.Add(false);
  924. }
  925. if (blockGroupStarted && (pos == line.Length - 1))
  926. {
  927. blockGroupCompleted = true;
  928. }
  929. }
  930. block = "";
  931. blockCompleted = false;
  932. blockStarted = false;
  933. }
  934. if (blockGroupCompleted)
  935. {
  936. //Разбор аргументов
  937. if (blockGroup.Count == 0)
  938. {
  939. SubmitError("Internal error of the analyzer! Empty block!", lineNum);
  940. return false;
  941. }
  942. if (!CheckBlockGroup(blockGroup, blockInGroupIsText))
  943. return false;
  944. blockGroup.Clear();
  945. blockInGroupIsText.Clear();
  946. blockGroupStarted = false;
  947. blockGroupCompleted = false;
  948. }
  949. pos++;
  950. }
  951. //Строка закончилась
  952. if (bracketLevel>0)
  953. {
  954. SubmitError("Redundant bracket \"(\"", lineNum);
  955. return false;
  956. }
  957. if (controlBlock == (int)ControlBlockType.IfCondition)
  958. {
  959. SubmitError("IF without \":\"", lineNum);
  960. return false;
  961. }
  962. if (controlBlock == (int)ControlBlockType.ActCondition)
  963. {
  964. SubmitError("ACT without \":\"", lineNum);
  965. return false;
  966. }
  967. if ((controlBlock == (int)ControlBlockType.SL_Act) || (controlBlock == (int)ControlBlockType.SL_If) || (controlBlock == (int)ControlBlockType.SL_Else))
  968. {
  969. if (groupInnerCounter > 0)
  970. {
  971. while ((ControlStack.Count > 0) && (ControlStack.Peek().controlBlock == ControlBlockType.SL_If))
  972. ControlStack.Pop();
  973. if (ControlStack.Count > 0)
  974. {
  975. ControlLine cline = ControlStack.Peek();
  976. controlBlock = (int)cline.controlBlock;
  977. }
  978. else
  979. {
  980. controlBlock = (int)ControlBlockType.None;
  981. }
  982. }
  983. else if (controlBlock == (int)ControlBlockType.SL_Act)
  984. {
  985. SubmitError("Invalid notation of single line ACT", lineNum);
  986. return false;
  987. }
  988. else if (controlBlock == (int)ControlBlockType.SL_If)
  989. {
  990. SubmitError("Invalid notation of single line IF", lineNum);
  991. return false;
  992. }
  993. else if (controlBlock == (int)ControlBlockType.SL_Else)
  994. {
  995. SubmitError("In single line IF has to be any operators after ELSE", lineNum);
  996. return false;
  997. }
  998. }
  999. //для отладки
  1000. if (line.Length > 0)
  1001. {
  1002. debugText += Environment.NewLine;
  1003. }
  1004. if (currentRoot)
  1005. {
  1006. //Вычисляем уровень вложенности(для утилиты форматирования кода)
  1007. int stackSize = ControlStack.Count;
  1008. int level = 0;
  1009. if (stackSize > 0)
  1010. {
  1011. endIndentLevel = stackSize;
  1012. ControlLine cline = ControlStack.Peek();
  1013. int b = (int)cline.controlBlock;
  1014. bool openingLine = cline.line == currentLine;
  1015. if (openingLine && ((b == (int)ControlBlockType.ML_Act) || (b == (int)ControlBlockType.ML_If)))
  1016. {
  1017. level = startIndentLevel;
  1018. }
  1019. else if (openingLine && (b == (int)ControlBlockType.ML_Else))
  1020. {
  1021. level = startIndentLevel - 1;
  1022. }
  1023. else
  1024. {
  1025. level = endIndentLevel;
  1026. }
  1027. }
  1028. location_codeline_level.Add(currentLine, level);
  1029. }
  1030. }
  1031. //Проверка на незакрытые в конце локации многострочные IF и ACT
  1032. if (ControlStack.Count > 0)
  1033. {
  1034. ControlLine cline = ControlStack.Pop();
  1035. if ((cline.controlBlock == ControlBlockType.ML_If) || (cline.controlBlock == ControlBlockType.ML_Else))
  1036. {
  1037. SubmitError("Multi line IF without END", cline.line);
  1038. return false;
  1039. }
  1040. else
  1041. {
  1042. SubmitError("Multi line ACT without END", cline.line);
  1043. return false;
  1044. }
  1045. }
  1046. AddLocationLink(m_name, true, m_start);
  1047. return true;
  1048. }
  1049. bool CheckBlockGroup(List<string> blockGroup, List<bool> blockInGroupIsText)
  1050. {
  1051. //Разбор аргументов для операторов ACT, IF, прочих операторов и функций.
  1052. string pomvarstr1;
  1053. string pomvarstr2;
  1054. bool iifpresent;
  1055. int blockCode = qspGetStatCode(blockGroup.ToArray()[0]);
  1056. if (blockInGroupIsText[0])
  1057. blockCode = (int)QspStatementType.Unknown;
  1058. bool isSetOp = blockCode == (int)QspStatementType.Set;
  1059. if ((blockCode == (int)QspStatementType.Unknown) || isSetOp)
  1060. {
  1061. //Это присваивание?
  1062. int setpos = FindInTopBracketLevel(blockGroup, blockInGroupIsText, "=");
  1063. if (setpos == INVALID_INDEX)
  1064. setpos = FindInTopBracketLevel(blockGroup, blockInGroupIsText, "+=");
  1065. if (setpos == INVALID_INDEX)
  1066. setpos = FindInTopBracketLevel(blockGroup, blockInGroupIsText, "-=");
  1067. if (isSetOp && (setpos == INVALID_INDEX))
  1068. {
  1069. SubmitError("Not found the char \"=\"", currentLine);
  1070. return false;
  1071. }
  1072. if (setpos != INVALID_INDEX)
  1073. {
  1074. //Присваивание
  1075. if ((setpos == 0) || (isSetOp && (setpos == 1)))
  1076. {
  1077. SubmitError("The name of a variable before the character \"=\" is not specified!", currentLine);
  1078. return false;
  1079. }
  1080. int last = blockGroup.Count - 1;
  1081. if (setpos==last)
  1082. {
  1083. SubmitError("It should be a value after char \"=\"", currentLine);
  1084. return false;
  1085. }
  1086. //Проверяем левую часть
  1087. int start = 0;
  1088. if (isSetOp)
  1089. start = 1;
  1090. int count = setpos - start;
  1091. List<string> args = new List<string>();
  1092. List<bool> types = new List<bool>();
  1093. args = blockGroup.GetRange(start, count);
  1094. types = blockInGroupIsText.GetRange(start, count);
  1095. if (!CheckLeftAssign(args, types))
  1096. return false;
  1097. string assignedVarName = args[0];
  1098. //Проверяем правую часть
  1099. start = setpos + 1;
  1100. count = last - start + 1;
  1101. args = blockGroup.GetRange(start, count);
  1102. types = blockInGroupIsText.GetRange(start, count);
  1103. if (!CheckExpression(args, types))
  1104. return false;
  1105. //Засчитываем присваивание некоторым переменным как обращение к локации
  1106. if ((count == 1) && types[0] && ListContainsIgnoreCase(callerVariables, assignedVarName))
  1107. {
  1108. AddLocationLink(args[0], false, true);
  1109. }
  1110. }
  1111. else
  1112. {
  1113. //Если оператор неизвестен, пытаемся разобрать выражение
  1114. if (!CheckExpression(blockGroup, blockInGroupIsText))
  1115. return false;
  1116. //Разбираем код в ссылках <a href="EXEC:GOTO 'loc1'">
  1117. if ((blockGroup.Count >= 1) && (blockInGroupIsText[0]))
  1118. {
  1119. pomvarstr1 = "";
  1120. pomvarstr2 = "";
  1121. iifpresent = false;
  1122. for (int ibc = 0; ibc < blockGroup.Count; ibc++)
  1123. {
  1124. if (blockGroup[Math.Min(ibc + 1, blockGroup.Count-1)] != "iif")
  1125. {
  1126. pomvarstr1 = pomvarstr1 + blockGroup[ibc];
  1127. pomvarstr2 = pomvarstr2 + blockGroup[ibc];
  1128. }
  1129. else
  1130. {
  1131. iifpresent = true;
  1132. while (blockGroup[ibc] != ",")
  1133. {
  1134. ibc++;
  1135. }
  1136. ibc++;
  1137. pomvarstr1 = pomvarstr1 + blockGroup[ibc];
  1138. ibc++;
  1139. ibc++;
  1140. pomvarstr2 = pomvarstr2 + blockGroup[ibc];
  1141. ibc++;
  1142. ibc++;
  1143. }
  1144. }
  1145. Console.WriteLine(pomvarstr1);
  1146. ParseExecInOutputText(pomvarstr1);
  1147. if (iifpresent)
  1148. ParseExecInOutputText(pomvarstr2);
  1149. }
  1150. }
  1151. }
  1152. else if ((blockCode == (int)QspStatementType.If) || (blockCode == (int)QspStatementType.ElseIf))
  1153. {
  1154. int start = 1;
  1155. int count = blockGroup.Count - 1;
  1156. if (count > 0)
  1157. {
  1158. List<string> args = blockGroup.GetRange(start, count);
  1159. List<bool> types = blockInGroupIsText.GetRange(start, count);
  1160. if (!CheckExpression(args, types))
  1161. return false;
  1162. }
  1163. else
  1164. {
  1165. if (blockCode == (int)QspStatementType.If)
  1166. {
  1167. SubmitError("Operator IF without condition", currentLine);
  1168. }
  1169. else
  1170. {
  1171. SubmitError("Operator ELSEIF without condition", currentLine);
  1172. }
  1173. return false;
  1174. }
  1175. }
  1176. else
  1177. {
  1178. //Если оператор известен, проверяем его аргументы.
  1179. int count = blockGroup.Count - 1;
  1180. List<string> args = new List<string>();
  1181. List<bool> types = new List<bool>();
  1182. if (count > 0)
  1183. {
  1184. args = blockGroup.GetRange(1, count);
  1185. types = blockInGroupIsText.GetRange(1, count);
  1186. }
  1187. if (!CheckStatementArgs(blockCode, args, types))
  1188. return false;
  1189. }
  1190. //Проверяем подвыражения вида <<$var>> в любых строках
  1191. for (int i = 0; i < blockGroup.Count; i++)
  1192. {
  1193. if (blockInGroupIsText[i])
  1194. {
  1195. if (!ParseSubExpressions(blockGroup[i]))
  1196. return false;
  1197. }
  1198. }
  1199. return true;
  1200. }
  1201. bool CheckStatementArgs(int code, List<string> argsSrc, List<bool> typesSrc)
  1202. {
  1203. int count = argsSrc.Count;
  1204. List<string> args = new List<string>();
  1205. List<bool> types = new List<bool>();
  1206. if (count > 0)
  1207. {
  1208. if ((count > 1) && argsSrc.ToArray()[0].Equals("(") && !typesSrc.ToArray()[0] &&
  1209. argsSrc.ToArray()[count - 1].Equals(")") && !typesSrc.ToArray()[count - 1])
  1210. {
  1211. //Игнорируем одну пару скобок по краям
  1212. args = argsSrc.GetRange(1, count - 2);
  1213. types = typesSrc.GetRange(1, count - 2);
  1214. }
  1215. else
  1216. {
  1217. args = argsSrc.GetRange(0, count);
  1218. types = typesSrc.GetRange(0, count);
  1219. }
  1220. }
  1221. count = args.Count;
  1222. if ((count >= 1) && types[0])
  1223. {
  1224. //Отмечаем в списке явные ссылки на локации
  1225. if ((code == (int)QspStatementType.GoSub) || (code == (int)QspStatementType.GoTo) ||
  1226. (code == (int)QspStatementType.XGoTo))
  1227. {
  1228. AddLocationLink(args[0], false, true);
  1229. }
  1230. //Разбираем код в ссылках <a href="EXEC:GOTO 'loc1'">
  1231. else if ((code == (int)QspStatementType.P) || (code == (int)QspStatementType.PL) ||
  1232. (code == (int)QspStatementType.NL) || (code == (int)QspStatementType.MP) ||
  1233. (code == (int)QspStatementType.MPL) || (code == (int)QspStatementType.MNL))
  1234. {
  1235. ParseExecInOutputText(args[0]);
  1236. }
  1237. //Отмечаем в списке добавленные предметы
  1238. else if (code == (int)QspStatementType.AddObj)
  1239. {
  1240. AddObj(args[0], true, false);
  1241. }
  1242. //Отмечаем в списке удаленные предметы
  1243. else if (code == (int)QspStatementType.DelObj)
  1244. {
  1245. AddObj(args[0], false, true);
  1246. }
  1247. //Отмечаем в списке добавленные действия
  1248. else if (code == (int)QspStatementType.Act)
  1249. {
  1250. AddAct(args[0], true, false);
  1251. }
  1252. //Отмечаем в списке удаленные действия
  1253. else if (code == (int)QspStatementType.DelAct)
  1254. {
  1255. AddAct(args[0], false, true);
  1256. }
  1257. }
  1258. int minArgCount = qspStats[code].MinArgsCount;
  1259. int maxArgCount = qspStats[code].MaxArgsCount;
  1260. int argCount = 0;
  1261. int curIndex = 0;
  1262. List<string> expr = new List<string>();
  1263. if (count > 0)
  1264. {
  1265. while (true)
  1266. {
  1267. if (argCount == maxArgCount)
  1268. {
  1269. SubmitError("Too many arguments for the operator", currentLine);
  1270. return false;
  1271. }
  1272. int index = FindInTopBracketLevel(args, types, ",", curIndex);
  1273. if (index != INVALID_INDEX)
  1274. {
  1275. if (index > curIndex)
  1276. {
  1277. if (!CheckExpression(args.GetRange(curIndex, index - curIndex), types.GetRange(curIndex, index - curIndex)))
  1278. return false;
  1279. }
  1280. else
  1281. {
  1282. SubmitError("Argument can not be empty", currentLine);
  1283. return false;
  1284. }
  1285. }
  1286. else
  1287. {
  1288. if (!CheckExpression(args.GetRange(curIndex, count - curIndex), types.GetRange(curIndex, count - curIndex)))
  1289. return false;
  1290. }
  1291. argCount++;
  1292. if (index == INVALID_INDEX)
  1293. break;
  1294. curIndex = index + 1;
  1295. if (curIndex == count)
  1296. {
  1297. SubmitError("Argument can not be empty", currentLine);
  1298. return false;
  1299. }
  1300. }
  1301. }
  1302. if (argCount < minArgCount)
  1303. {
  1304. SubmitError("The operator requires more arguments", currentLine);
  1305. return false;
  1306. }
  1307. return true;
  1308. }
  1309. bool CheckExpression(List<string> args, List<bool> types)
  1310. {
  1311. //Проверка выражения
  1312. int[] opStack = new int[QSP_STACKSIZE];
  1313. int[] argStack = new int[QSP_STACKSIZE];
  1314. bool waitForOperator = false;
  1315. int opCode, itemsCount = 0, opSp = -1, argSp = -1;
  1316. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, (int)QspFunctionType.Start))
  1317. return false;
  1318. int argIndex = 0;
  1319. while (argIndex <= args.Count)
  1320. {
  1321. String s = "";
  1322. if (argIndex < args.Count)
  1323. s = args[argIndex];
  1324. if (waitForOperator)
  1325. {
  1326. opCode = qspGetFunctionCode(s, false);
  1327. String nextArg = "";
  1328. bool nextArgIsString = false;
  1329. bool hasNextArg = argIndex + 1 < args.Count;
  1330. if (hasNextArg)
  1331. {
  1332. nextArg = args[argIndex + 1];
  1333. nextArgIsString = types[argIndex + 1];
  1334. }
  1335. if (opCode == (int)QspFunctionType.Unknown || opCode >= (int)QspFunctionType.First_Function)
  1336. {
  1337. SubmitError("Unknown action in the expression", currentLine);
  1338. break;
  1339. }
  1340. if (((opCode == (int)QspFunctionType.And) || (opCode == (int)QspFunctionType.Or) || (opCode == (int)QspFunctionType.Mod)) &&
  1341. !(hasNextArg && (nextArgIsString || nextArg.Equals("(") || (nextArg.IndexOfAny(Delimiters) == INVALID_INDEX)))
  1342. )
  1343. {
  1344. SubmitError("Syntax error", currentLine);
  1345. break;
  1346. }
  1347. bool bError = false;
  1348. while (qspOps[opCode].Priority <= qspOps[opStack[opSp]].Priority && qspOps[opStack[opSp]].Priority != 127)
  1349. {
  1350. if (opStack[opSp] >= (int)QspFunctionType.First_Function) ++argStack[argSp];
  1351. if (!qspAppendToCompiled(ref itemsCount))
  1352. {
  1353. bError = true;
  1354. break;
  1355. }
  1356. if (--opSp < 0 || --argSp < 0)
  1357. {
  1358. SubmitError("Syntax error", currentLine);
  1359. bError = true;
  1360. break;
  1361. }
  1362. }
  1363. if (bError)
  1364. break;
  1365. switch (opCode)
  1366. {
  1367. case (int)QspFunctionType.End:
  1368. if (opSp > 0)
  1369. {
  1370. SubmitError("Closing bracket not found", currentLine);
  1371. bError = true;
  1372. break;
  1373. }
  1374. return itemsCount > 0;
  1375. case (int)QspFunctionType.CloseBracket:
  1376. if (opStack[opSp] != (int)QspFunctionType.OpenBracket)
  1377. {
  1378. SubmitError("Opening bracket not found", currentLine);
  1379. bError = true;
  1380. break;
  1381. }
  1382. opCode = opStack[--opSp];
  1383. if (opCode >= (int)QspFunctionType.First_Function)
  1384. {
  1385. if (argStack[argSp] + 1 < qspOps[opCode].MinArgsCount || argStack[argSp] + 1 > qspOps[opCode].MaxArgsCount)
  1386. {
  1387. SubmitError("Invalid number of arguments", currentLine);
  1388. bError = true;
  1389. }
  1390. }
  1391. else
  1392. --argSp;
  1393. break;
  1394. case (int)QspFunctionType.Comma:
  1395. if ((opSp > 0) && opStack[opSp - 1] >= (int)QspFunctionType.First_Function)
  1396. {
  1397. if (++argStack[argSp] > qspOps[opStack[opSp - 1]].MaxArgsCount)
  1398. {
  1399. SubmitError("Invalid number of arguments", currentLine);
  1400. bError = true;
  1401. break;
  1402. }
  1403. }
  1404. else
  1405. {
  1406. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, (int)QspFunctionType.Comma))
  1407. {
  1408. bError = true;
  1409. break;
  1410. }
  1411. }
  1412. waitForOperator = false;
  1413. break;
  1414. default:
  1415. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, opCode))
  1416. {
  1417. bError = true;
  1418. break;
  1419. }
  1420. waitForOperator = false;
  1421. break;
  1422. }
  1423. if (bError)
  1424. break;
  1425. }
  1426. else
  1427. {
  1428. if ((argIndex < args.Count) && !types[argIndex] && IsNumber(s))
  1429. {
  1430. if (opStack[opSp] == (int)QspFunctionType.Minus)
  1431. {
  1432. --opSp;
  1433. --argSp;
  1434. }
  1435. if (!qspAppendToCompiled(ref itemsCount))
  1436. break;
  1437. waitForOperator = true;
  1438. }
  1439. else if ((argIndex < args.Count) && types[argIndex])
  1440. {
  1441. if (!qspAppendToCompiled(ref itemsCount))
  1442. break;
  1443. waitForOperator = true;
  1444. }
  1445. else if (s.Equals("+"))
  1446. {
  1447. }
  1448. else if (s.Equals("-"))
  1449. {
  1450. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, (int)QspFunctionType.Minus))
  1451. break;
  1452. }
  1453. else if (s.Equals("("))
  1454. {
  1455. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, (int)QspFunctionType.OpenBracket))
  1456. break;
  1457. }
  1458. else if (s.Equals(")"))
  1459. {
  1460. opCode = opStack[opSp];
  1461. if (opCode != (int)QspFunctionType.OpenBracket)
  1462. {
  1463. if (opCode >= (int)QspFunctionType.First_Function)
  1464. SubmitError("Invalid number of arguments", currentLine);
  1465. else
  1466. SubmitError("Syntax error", currentLine);
  1467. break;
  1468. }
  1469. opCode = opStack[--opSp];
  1470. if (opCode < (int)QspFunctionType.First_Function)
  1471. {
  1472. SubmitError("Syntax error", currentLine);
  1473. break;
  1474. }
  1475. if (qspOps[opCode].MinArgsCount > 0)
  1476. {
  1477. SubmitError("Invalid number of arguments", currentLine);
  1478. break;
  1479. }
  1480. if (!qspAppendToCompiled(ref itemsCount))
  1481. break;
  1482. --opSp;
  1483. --argSp;
  1484. waitForOperator = true;
  1485. }
  1486. else if ((argIndex < args.Count) && s.IndexOfAny(Delimiters) != 0)
  1487. {
  1488. if (s.IndexOfAny(Delimiters) != INVALID_INDEX)
  1489. {
  1490. SubmitError("Internal error of the analyzer: Invalid characters in the variable name", currentLine);
  1491. break;
  1492. }
  1493. opCode = qspGetFunctionCode(s, true);
  1494. if (opCode >= (int)QspFunctionType.First_Function)
  1495. {
  1496. if ((args.Count - argIndex > 1) && (args[argIndex + 1].Equals("(") && !types[argIndex + 1]))
  1497. {
  1498. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, opCode))
  1499. break;
  1500. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, (int)QspFunctionType.OpenBracket))
  1501. break;
  1502. argIndex++;
  1503. --argSp;
  1504. }
  1505. else if (qspOps[opCode].MinArgsCount < 2)
  1506. {
  1507. if (qspOps[opCode].MinArgsCount > 0)
  1508. {
  1509. if (!qspCompileExprPushOpCode(ref opStack, ref opSp, ref argStack, ref argSp, opCode))
  1510. break;
  1511. }
  1512. else
  1513. {
  1514. if (!qspAppendToCompiled(ref itemsCount))
  1515. break;
  1516. waitForOperator = true;
  1517. }
  1518. }
  1519. else
  1520. {
  1521. SubmitError("Brackets not found", currentLine);
  1522. break;
  1523. }
  1524. }
  1525. else
  1526. {
  1527. int optArgsCount = 0;
  1528. //Проверяем выражение(индекс массива)
  1529. if ((args.Count - argIndex > 1) && (args[argIndex + 1].Equals("[") && !types[argIndex + 1]))
  1530. {
  1531. int optIndex = argIndex + 2;
  1532. int level = 1;
  1533. bool bFound = false;
  1534. while (optIndex < args.Count)
  1535. {
  1536. if (args[optIndex].Equals("[") && !types[optIndex])
  1537. {
  1538. level++;
  1539. }
  1540. else if (args[optIndex].Equals("]") && !types[optIndex])
  1541. {
  1542. level--;
  1543. if (level == 0)
  1544. {
  1545. bFound = true;
  1546. break;
  1547. }
  1548. }
  1549. optIndex++;
  1550. }
  1551. if (level > 0)
  1552. {
  1553. SubmitError("Unclosed parenthesis \"[\"", currentLine);
  1554. break;
  1555. }
  1556. if (bFound)
  1557. optArgsCount = optIndex - argIndex;
  1558. }
  1559. List<string> subArgs = args.GetRange(argIndex, optArgsCount + 1);
  1560. List<bool> subTypes = types.GetRange(argIndex, optArgsCount + 1);
  1561. if (!CheckVariable(subArgs, subTypes, false))
  1562. break;
  1563. argIndex += optArgsCount;
  1564. if (!qspAppendToCompiled(ref itemsCount))
  1565. break;
  1566. waitForOperator = true;
  1567. }
  1568. }
  1569. else
  1570. {
  1571. if (opStack[opSp] >= (int)QspFunctionType.First_Function)
  1572. SubmitError("Invalid number of arguments", currentLine);
  1573. else
  1574. SubmitError("Syntax error", currentLine);
  1575. break;
  1576. }
  1577. }
  1578. argIndex++;
  1579. }
  1580. return false;
  1581. }
  1582. bool CheckVariable(List<string> args, List<bool> types, bool assignment)
  1583. {
  1584. //Проверка имени переменной
  1585. if ((args.Count == 0) || (args[0].Length == 0) || types[0])
  1586. {
  1587. SubmitError("Internal error of the analyzer: empty name of variable!", currentLine);
  1588. return false;
  1589. }
  1590. string name = args[0];
  1591. int code1 = qspGetStatCode(name);
  1592. int code2 = qspGetFunctionCode(name, true);
  1593. if ((code1 != (int)QspStatementType.Unknown) || (code2 != (int)QspFunctionType.Unknown))
  1594. {
  1595. SubmitError("QSP Keyword \"" + name + "\" cannot be used as a variable name", currentLine);
  1596. return false;
  1597. }
  1598. //Проверяем имя переменной на валидность
  1599. //В имени переменной разрешены все символы, кроме DELIMS и цифры в начале имени
  1600. //Перед именем переменной может находиться префикс "$"
  1601. string checkName = name;
  1602. if (checkName.StartsWith("$"))
  1603. checkName = checkName.Substring(1);
  1604. // $ =
  1605. if (checkName.Length == 0)
  1606. {
  1607. SubmitError("Invalid variable name \"" + name + "\"", currentLine);
  1608. return false;
  1609. }
  1610. // 1asd =
  1611. if (checkName.Substring(0, 1).IndexOfAny(Digits) != INVALID_INDEX)
  1612. {
  1613. SubmitError("Variable name \"" + name + "\" cannot start with a digit", currentLine);
  1614. return false;
  1615. }
  1616. // /asd =
  1617. if (checkName.IndexOfAny(Delimiters) != INVALID_INDEX)
  1618. {
  1619. SubmitError("Invalid symbols in the name of the variable \"" + name + "\"", currentLine);
  1620. return false;
  1621. }
  1622. //Проверяем переменную на "смешанные раскладки"
  1623. if ((checkName.IndexOfAny(LatinLetters) != INVALID_INDEX) && (checkName.IndexOfAny(RussianLetters) != INVALID_INDEX))
  1624. {
  1625. SubmitWarning("English and Russian symbols are used simultaneously in the name of varible \"" + name + "\" , possibly a typo", currentLine);
  1626. }
  1627. //Проверяем выражение(индекс массива)
  1628. if (args.Count > 1)
  1629. {
  1630. if (args.Count > 2 && args[1].Equals("[") && !types[1] &&
  1631. args[args.Count - 1].Equals("]") && !types[args.Count - 1])
  1632. {
  1633. int start = 2;
  1634. int count = args.Count - 3;
  1635. if (count > 0)
  1636. {
  1637. List<string> argsCut = args.GetRange(start, count);
  1638. List<bool> typesCut = types.GetRange(start, count);
  1639. if (!CheckExpression(argsCut, typesCut))
  1640. return false;
  1641. }
  1642. }
  1643. else
  1644. {
  1645. SubmitError("Invalid expression", currentLine);
  1646. return false;
  1647. }
  1648. }
  1649. //Сохраняем имя переменной в глобальном списке
  1650. if (!assignment)
  1651. {
  1652. bool usedBySystem = ListContainsIgnoreCase(systemVariables, name);
  1653. AddVar(name, usedBySystem, true);
  1654. }
  1655. return true;
  1656. }
  1657. bool CheckLeftAssign(List<string> args, List<bool> types)
  1658. {
  1659. //Проверка имени переменной(слева от знака "=" в операции присваивания)
  1660. if ((args.Count == 0) || (args[0].Length == 0) || types[0])
  1661. {
  1662. //Текстовая строка
  1663. SubmitError("Name of the variable should be before char \"=\" in the assignment operation", currentLine);
  1664. return false;
  1665. }
  1666. if (!CheckVariable(args, types, true))
  1667. return false;
  1668. //Сохраняем имя переменной в глобальном списке
  1669. bool usedBySystem = ListContainsIgnoreCase(systemVariables, args[0]);
  1670. AddVar(args[0], true, usedBySystem);
  1671. return true;
  1672. }
  1673. int FindInTopBracketLevel(List<string> args, List<bool> types, string what)
  1674. {
  1675. return FindInTopBracketLevel(args, types, what, 0);
  1676. }
  1677. int FindInTopBracketLevel(List<string> args, List<bool> types, string what, int startIndex)
  1678. {
  1679. //Ищем знак "=" или запятую вне скобок
  1680. int bracketLevel = 0;
  1681. for (int i = startIndex; i < args.Count; i++)
  1682. {
  1683. if (types[i])
  1684. continue;
  1685. string block = args[i];
  1686. if (block.Equals("("))
  1687. {
  1688. bracketLevel++;
  1689. }
  1690. else if (block.Equals(")"))
  1691. {
  1692. bracketLevel--;
  1693. }
  1694. else if (block.Equals(what) && (bracketLevel == 0))
  1695. {
  1696. return i;
  1697. }
  1698. }
  1699. return INVALID_INDEX;
  1700. }
  1701. void ParseExecInOutputText(string text)
  1702. {
  1703. //Разбираем код в ссылках <a href="EXEC:GOTO 'loc1'">
  1704. int pos = 0;
  1705. //Строим "карту" подвыражений.
  1706. //Если подвыражения в строке содержат ошибки, то разбирать теги нет смысла.
  1707. List<int> subExpMap = new List<int>();
  1708. if (!ParseSubExpressions(text, ref subExpMap))
  1709. return;
  1710. int subExpSkipped = 0;
  1711. while (pos < text.Length)
  1712. {
  1713. pos = text.IndexOf("<a", pos);
  1714. if (pos == INVALID_INDEX)
  1715. break;
  1716. if (subExpMap.Count / 2 > subExpSkipped)
  1717. {
  1718. int subExpStartPos = subExpMap[subExpSkipped * 2];
  1719. int subExpEndPos = subExpMap[subExpSkipped * 2 + 1];
  1720. if (subExpStartPos == pos)
  1721. {
  1722. //Пропускаем подвыражения вне тегов
  1723. subExpSkipped++;
  1724. pos = subExpEndPos + 1;
  1725. continue;
  1726. }
  1727. }
  1728. //Разбираем содержимое угловых скобок
  1729. //Внутри HTML-тега кавычки экранируются не через дублирование, как в QSP, а через "\",
  1730. //причем экранирование требуется только внутри окавыченной строки.
  1731. List<string> blockGroup = new List<string>();
  1732. List<bool> blockInGroupIsText = new List<bool>();
  1733. int firstBlockPosition = INVALID_INDEX;
  1734. string quotedText = "";
  1735. string block = "";
  1736. bool tagClosed = false;
  1737. bool quotedTextCompleted = false;
  1738. bool blockCompleted = false;
  1739. pos++;
  1740. int startPos = pos;
  1741. if ((pos < text.Length) && (text[pos] == '/'))
  1742. startPos++;
  1743. int tagQuote = (int)QuoteType.None;
  1744. while (!tagClosed && (pos < text.Length))
  1745. {
  1746. if (subExpMap.Count / 2 > subExpSkipped)
  1747. {
  1748. int subExpStartPos = subExpMap[subExpSkipped * 2];
  1749. int subExpEndPos = subExpMap[subExpSkipped * 2 + 1];
  1750. if (subExpStartPos == pos)
  1751. {
  1752. //Пропускаем подвыражения вне тегов
  1753. subExpSkipped++;
  1754. string subExpText = text.Substring(pos, subExpEndPos - pos + 1);
  1755. if (tagQuote == (int)QuoteType.None)
  1756. block += subExpText;
  1757. else
  1758. quotedText += subExpText;
  1759. pos = subExpEndPos + 1;
  1760. continue;
  1761. }
  1762. }
  1763. char c2 = text[pos];
  1764. if (tagQuote != (int)QuoteType.None)
  1765. {
  1766. //Апостроф либо кавычка
  1767. if (((tagQuote == (int)QuoteType.Single) && (c2 == '\'')) ||
  1768. ((tagQuote == (int)QuoteType.Double) && (c2 == '"')))
  1769. {
  1770. if ((pos - 1 > 0) && (text[pos - 1] == '\\'))
  1771. {
  1772. //Экранированный апостроф либо кавычка
  1773. if (!quotedTextCompleted)
  1774. quotedText = quotedText.Substring(0, quotedText.Length - 1) + c2;
  1775. }
  1776. else
  1777. {
  1778. tagQuote = (int)QuoteType.None;
  1779. quotedTextCompleted = true;
  1780. }
  1781. }
  1782. else if (!quotedTextCompleted)
  1783. {
  1784. quotedText += c2;
  1785. }
  1786. }
  1787. else if (c2 == '>')
  1788. {
  1789. tagClosed = true;
  1790. }
  1791. else if ((block.Length == 0) && (c2 == '\''))
  1792. {
  1793. tagQuote = (int)QuoteType.Single;
  1794. if (text[pos + 1] == '\'')
  1795. {
  1796. pos++;
  1797. }
  1798. }
  1799. else if ((block.Length == 0) && (c2 == '"'))
  1800. {
  1801. tagQuote = (int)QuoteType.Double;
  1802. }
  1803. else if (c2.ToString().IndexOfAny(WhiteSpace) == 0)
  1804. {
  1805. if (block.Length > 0)
  1806. {
  1807. blockCompleted = true;
  1808. }
  1809. }
  1810. else if (c2 == '=')
  1811. {
  1812. if (block.Length > 0)
  1813. {
  1814. blockGroup.Add(block);
  1815. blockInGroupIsText.Add(false);
  1816. }
  1817. block = "=";
  1818. blockCompleted = true;
  1819. }
  1820. else
  1821. {
  1822. if (firstBlockPosition == INVALID_INDEX)
  1823. {
  1824. firstBlockPosition = pos - startPos;
  1825. }
  1826. block += c2;
  1827. }
  1828. if (tagClosed)
  1829. {
  1830. if (block.Length > 0)
  1831. blockCompleted = true;
  1832. }
  1833. if (blockCompleted)
  1834. {
  1835. blockGroup.Add(block);
  1836. blockInGroupIsText.Add(false);
  1837. blockCompleted = false;
  1838. block = "";
  1839. }
  1840. if (quotedTextCompleted)
  1841. {
  1842. blockGroup.Add(quotedText);
  1843. blockInGroupIsText.Add(true);
  1844. quotedTextCompleted = false;
  1845. quotedText = "";
  1846. }
  1847. pos++;
  1848. }
  1849. if (tagQuote == (int)QuoteType.Single)
  1850. {
  1851. SubmitWarning("Unclosed apostrophe inside the tag", currentLine);
  1852. break;
  1853. }
  1854. else if (tagQuote == (int)QuoteType.Double)
  1855. {
  1856. SubmitWarning("Unclosed quote inside the tag", currentLine);
  1857. break;
  1858. }
  1859. if (!tagClosed)
  1860. {
  1861. SubmitWarning("Unclosed tag",currentLine);
  1862. break;
  1863. }
  1864. if (firstBlockPosition > 0)
  1865. {
  1866. SubmitWarning("The name of the tag should follow immediately after the opening angle bracket, without spaces", currentLine);
  1867. break;
  1868. }
  1869. //Ищем HREF в атрибутах тега A
  1870. int hrefIndex = INVALID_INDEX;
  1871. if ((blockGroup.Count > 3) && (blockGroup[0].Equals("A", StringComparison.OrdinalIgnoreCase)) && !blockInGroupIsText[0])
  1872. {
  1873. for (int i = 1; i + 2 < blockGroup.Count; i++)
  1874. {
  1875. if (blockGroup[i].Equals("HREF", StringComparison.OrdinalIgnoreCase) && !blockInGroupIsText[i] &&
  1876. blockGroup[i + 1].Equals("=") && !blockInGroupIsText[i + 1])
  1877. {
  1878. hrefIndex = i + 2;
  1879. }
  1880. }
  1881. }
  1882. if (hrefIndex != INVALID_INDEX)
  1883. {
  1884. string hrefText = blockGroup[hrefIndex];
  1885. int execKeywordLength = "EXEC:".Length;
  1886. if (hrefText.StartsWith("EXEC:", StringComparison.OrdinalIgnoreCase) && (hrefText.Length > execKeywordLength))
  1887. {
  1888. string execText = hrefText.Substring(execKeywordLength);
  1889. List<int> subExpMapExec = new List<int>();
  1890. ParseSubExpressions(execText, ref subExpMapExec);
  1891. if (subExpMapExec.Count == 0)
  1892. {
  1893. //В EXEC не разбираем код с подвыражениями, это невозможно без интерпретации
  1894. List<string> tagLines = new List<string>(execText.Split('\n'));
  1895. bool wasRoot = currentRoot;
  1896. currentRoot = false;
  1897. ParseLocation(tagLines, currentRoot);
  1898. currentRoot = wasRoot;
  1899. }
  1900. }
  1901. }
  1902. }
  1903. }
  1904. bool ParseSubExpressions(string text)
  1905. {
  1906. List<int> dummy = null;
  1907. return ParseSubExpressions(text, ref dummy);
  1908. }
  1909. bool ParseSubExpressions(string text, ref List<int> subExpMap)
  1910. {
  1911. bool quiet = subExpMap != null;
  1912. //Разбираем подвыражения - <<$var>>
  1913. if (quiet)
  1914. subExpMap.Clear();
  1915. int pos = 0;
  1916. bool valid = true;
  1917. while (valid && pos < text.Length)
  1918. {
  1919. pos = text.IndexOf("<<", pos);
  1920. if (pos == INVALID_INDEX)
  1921. break;
  1922. if (quiet)
  1923. subExpMap.Add(pos);
  1924. //Разбираем содержимое двойных угловых скобок
  1925. string subText = "";
  1926. bool subClosed = false;
  1927. pos += 2;
  1928. int subQuote = (int)QuoteType.None;
  1929. int curlyLevel = 0;
  1930. while (pos < text.Length)
  1931. {
  1932. char c2 = text[pos];
  1933. if (subQuote == (int)QuoteType.None)
  1934. {
  1935. if ((c2 == '>') && (pos + 1 < text.Length) && (text[pos + 1] == '>') && (curlyLevel == 0))
  1936. {
  1937. subClosed = true;
  1938. break;
  1939. }
  1940. else if (c2 == '\'')
  1941. {
  1942. subQuote = (int)QuoteType.Single;
  1943. }
  1944. else if (c2 == '"')
  1945. {
  1946. subQuote = (int)QuoteType.Double;
  1947. }
  1948. else if (c2 == '{')
  1949. {
  1950. curlyLevel++;
  1951. }
  1952. else if (c2 == '}')
  1953. {
  1954. curlyLevel--;
  1955. }
  1956. }
  1957. else if (((subQuote == (int)QuoteType.Single) && (c2 == '\'')) ||
  1958. ((subQuote == (int)QuoteType.Double) && (c2 == '"')))
  1959. {
  1960. //Апостроф или кавычка
  1961. if ((pos + 1 < text.Length) && (
  1962. ((subQuote == (int)QuoteType.Single) && (text[pos + 1] == '\'')) ||
  1963. ((subQuote == (int)QuoteType.Double) && (text[pos + 1] == '"'))))
  1964. {
  1965. //Экранированный апостроф либо кавычка
  1966. }
  1967. else
  1968. {
  1969. subQuote = (int)QuoteType.None;
  1970. }
  1971. }
  1972. subText += c2;
  1973. pos++;
  1974. }
  1975. if (quiet)
  1976. {
  1977. if (subClosed)
  1978. subExpMap.Add(pos + 1);
  1979. else
  1980. subExpMap.Add(pos - 1);
  1981. }
  1982. if (subQuote == (int)QuoteType.Single)
  1983. {
  1984. if (!quiet)
  1985. SubmitError("Unclosed apostrophe in a subexpression", currentLine);
  1986. valid = false;
  1987. break;
  1988. }
  1989. else if (subQuote == (int)QuoteType.Double)
  1990. {
  1991. if (!quiet)
  1992. SubmitError("Unclosed quote in a subexpression", currentLine);
  1993. valid = false;
  1994. break;
  1995. }
  1996. else if (curlyLevel != 0)
  1997. {
  1998. if (!quiet)
  1999. SubmitError("Unclosed curly bracket in a subexpression", currentLine);
  2000. valid = false;
  2001. break;
  2002. }
  2003. if (!subClosed)
  2004. {
  2005. if (!quiet)
  2006. SubmitError("Unclosed subexpression", currentLine);
  2007. valid = false;
  2008. break;
  2009. }
  2010. if (subText.Trim(WhiteSpace).Length == 0)
  2011. {
  2012. if (!quiet)
  2013. SubmitError("Empty subexpression", currentLine);
  2014. valid = false;
  2015. break;
  2016. }
  2017. if (!quiet)
  2018. {
  2019. //Парсим подвыражение как исполняемый код.
  2020. //Для того, чтобы строка считалась именно выражением, добавляем ''+ в начало
  2021. subText = "''+" + subText;
  2022. List<string> subLines = new List<string>(subText.Split('\n'));
  2023. bool wasRoot = currentRoot;
  2024. currentRoot = false;
  2025. valid = ParseLocation(subLines, currentRoot);
  2026. currentRoot = wasRoot;
  2027. }
  2028. }
  2029. return valid;
  2030. }
  2031. }
  2032. public class QSPGameCode : Common
  2033. {
  2034. Hashtable m_LocationsByName;
  2035. List<Location> m_LocationsByOrder;
  2036. Location m_lastLocation;
  2037. public QSPGameCode()
  2038. {
  2039. m_LocationsByName = new Hashtable();
  2040. m_LocationsByOrder = new List<Location>();
  2041. m_lastLocation = null;
  2042. }
  2043. public bool ParseGame(string fileName, object sender, DoWorkEventArgs e)
  2044. {
  2045. int totalLines = 0;
  2046. StreamReader rTl = new StreamReader(fileName);
  2047. while (rTl.ReadLine() != null) { totalLines++; };
  2048. m_LocationsByName.Clear();
  2049. m_LocationsByOrder.Clear();
  2050. ClearErrors();
  2051. m_lastLocation = null;
  2052. currentLocation = "";
  2053. vars = new List<QspVariable>();
  2054. locationLinks = new List<QspLocationLink>();
  2055. objects = new List<QspObj>();
  2056. acts = new List<QspAct>();
  2057. StreamReader fi = null;
  2058. if (!OpenStreamForReading(ref fi, fileName))
  2059. {
  2060. return false;
  2061. }
  2062. string s;
  2063. int line_counter = 0;
  2064. List<string> locationCode = new List<string>();
  2065. bool inside = false;
  2066. while ((s = fi.ReadLine()) != null)
  2067. {
  2068. line_counter++;
  2069. string trimmed = s.Trim(WhiteSpace);
  2070. if ((trimmed.Length > 0) && (trimmed[0] == '#'))
  2071. {
  2072. //имя локации
  2073. string locName = trimmed.Substring(1).Trim(WhiteSpace);
  2074. if (!AddLocation(locName, line_counter))
  2075. {
  2076. fi.Close();
  2077. rTl.Close();
  2078. return false;
  2079. }
  2080. currentLocation = locName;
  2081. inside = true;
  2082. }
  2083. else if ((trimmed.Length > 38) && trimmed.StartsWith("--- ") && trimmed.EndsWith(" ---------------------------------"))
  2084. {
  2085. inside = false;
  2086. Location lastLoc = GetLastLocation();
  2087. if (lastLoc != null)
  2088. {
  2089. lastLoc.ParseLocation(locationCode, true);
  2090. locationCode.Clear();
  2091. currentLocation = "";
  2092. }
  2093. }
  2094. else
  2095. {
  2096. if (inside && GetLastLocation() != null)
  2097. locationCode.Add(s);
  2098. }
  2099. (sender as BackgroundWorker).ReportProgress(Convert.ToInt32(((double)line_counter/(double)totalLines) * 100));
  2100. if ((sender as BackgroundWorker).CancellationPending)
  2101. {
  2102. e.Cancel = true;
  2103. return true;
  2104. }
  2105. }
  2106. fi.Close();
  2107. rTl.Close();
  2108. return true;
  2109. }
  2110. public bool AddLocation(string name, int line)
  2111. {
  2112. if (name.Length <= 0)
  2113. {
  2114. SubmitError("Empty name of location", line);
  2115. return false;
  2116. }
  2117. if (m_LocationsByName.ContainsKey(name))
  2118. {
  2119. SubmitError("Location named " + name + " exist already", line);
  2120. return false;
  2121. }
  2122. Location newLoc = new Location(this, name, line, m_LocationsByOrder.Count == 0);
  2123. m_LocationsByName.Add(name, newLoc);
  2124. m_LocationsByOrder.Add(newLoc);
  2125. m_lastLocation = newLoc;
  2126. return true;
  2127. }
  2128. public Location GetLastLocation()
  2129. {
  2130. return m_lastLocation;
  2131. }
  2132. public Hashtable GetLocationsByName()
  2133. {
  2134. return m_LocationsByName;
  2135. }
  2136. public Location GetLocation(string locationName)
  2137. {
  2138. Location loc = (Location)m_LocationsByName[locationName];
  2139. return loc;
  2140. }
  2141. public bool Beautify(string fileName)
  2142. {
  2143. //Причесываем код - добавляем пробелов
  2144. StreamWriter fo = null;
  2145. if (!OpenStreamForWriting(ref fo, fileName))
  2146. return false;
  2147. for (int i = 0; i < m_LocationsByOrder.Count; i++)
  2148. {
  2149. Location loc = (Location)m_LocationsByOrder[i];
  2150. fo.WriteLine("# " + loc.GetName());
  2151. for (int j = 0; j < loc.GetCodeLinesCount(); j++)
  2152. {
  2153. string text = "";
  2154. int level = INVALID_INDEX;
  2155. loc.GetCodeLine(j, ref text, ref level);
  2156. if (level != INVALID_INDEX)
  2157. {
  2158. text = new string(' ', level * 4) + text.TrimStart(WhiteSpace);
  2159. }
  2160. fo.WriteLine(text);
  2161. }
  2162. fo.WriteLine("--- " + loc.GetName() + " ---------------------------------");
  2163. fo.WriteLine();
  2164. }
  2165. fo.Close();
  2166. return true;
  2167. }
  2168. }
  2169. }