|
@@ -1,1531 +1,1531 @@
|
|
-using System;
|
|
|
|
-using System.Collections.Generic;
|
|
|
|
-using System.IO;
|
|
|
|
-using System.Text;
|
|
|
|
-
|
|
|
|
-namespace Analyser
|
|
|
|
-{
|
|
|
|
- public class Common
|
|
|
|
- {
|
|
|
|
- const int QSP_MAXSTATSNAMES = 100;
|
|
|
|
- const int QSP_STATSLEVELS = 3;
|
|
|
|
- const int QSP_STATMAXARGS = 10;
|
|
|
|
- const int QSP_OPSLEVELS = 2;
|
|
|
|
- const int QSP_MAXOPSNAMES = 100;
|
|
|
|
- const int QSP_OPMAXARGS = 10;
|
|
|
|
- public const int QSP_STACKSIZE = 30;
|
|
|
|
- public const int QSP_MAXITEMS = 100;
|
|
|
|
-
|
|
|
|
- public const int INVALID_INDEX = -1;
|
|
|
|
- static public char[] WhiteSpace = {' ', '\t', '\r', '\n'};
|
|
|
|
- //Разделители - " \t&'\"()[]=!<>+-/*:,{}"
|
|
|
|
- static public char[] Delimiters = " \t&'\"()[]=!<>+-/*:,{}".ToCharArray();
|
|
|
|
- static public char[] Digits = "0123456789".ToCharArray();
|
|
|
|
- static public char[] LatinLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqsrtuvwxyz".ToCharArray();
|
|
|
|
- static public char[] RussianLetters = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъьэюя".ToCharArray();
|
|
|
|
- public struct QspStatement
|
|
|
|
- {
|
|
|
|
- public int ExtArg;
|
|
|
|
- public int MinArgsCount;
|
|
|
|
- public int MaxArgsCount;
|
|
|
|
- public int[] ArgsTypes;
|
|
|
|
- }
|
|
|
|
- public struct QspStatementName
|
|
|
|
- {
|
|
|
|
- public string Name;
|
|
|
|
- public int NameLen;
|
|
|
|
- public int Code;
|
|
|
|
- }
|
|
|
|
- public enum QspStatementType
|
|
|
|
- {
|
|
|
|
- Unknown,
|
|
|
|
- Label,
|
|
|
|
- Comment,
|
|
|
|
- Act,
|
|
|
|
- For,
|
|
|
|
- Local,
|
|
|
|
- If,
|
|
|
|
- ElseIf,
|
|
|
|
- Else,
|
|
|
|
- End,
|
|
|
|
- AddObj,
|
|
|
|
- ClA,
|
|
|
|
- Clear,
|
|
|
|
- CloseAll,
|
|
|
|
- Close,
|
|
|
|
- ClS,
|
|
|
|
- CmdClear,
|
|
|
|
- CopyArr,
|
|
|
|
- DelAct,
|
|
|
|
- DelObj,
|
|
|
|
- Dynamic,
|
|
|
|
- Exec,
|
|
|
|
- Exit,
|
|
|
|
- KillQST,
|
|
|
|
- DelLib,
|
|
|
|
- FreeLib,
|
|
|
|
- GoSub,
|
|
|
|
- GoTo,
|
|
|
|
- AddQST,
|
|
|
|
- AddLib,
|
|
|
|
- IncLib,
|
|
|
|
- Jump,
|
|
|
|
- KillAll,
|
|
|
|
- KillObj,
|
|
|
|
- KillVar,
|
|
|
|
- MClear,
|
|
|
|
- Menu,
|
|
|
|
- MNL,
|
|
|
|
- MPL,
|
|
|
|
- MP,
|
|
|
|
- Msg,
|
|
|
|
- NL,
|
|
|
|
- OpenGame,
|
|
|
|
- OpenQst,
|
|
|
|
- Play,
|
|
|
|
- PL,
|
|
|
|
- P,
|
|
|
|
- RefInt,
|
|
|
|
- SaveGame,
|
|
|
|
- SetTimer,
|
|
|
|
- Set,
|
|
|
|
- ShowActs,
|
|
|
|
- ShowInput,
|
|
|
|
- ShowObjs,
|
|
|
|
- ShowVars,
|
|
|
|
- UnSelect,
|
|
|
|
- View,
|
|
|
|
- Wait,
|
|
|
|
- XGoTo,
|
|
|
|
-
|
|
|
|
- Last_Statement
|
|
|
|
- };
|
|
|
|
-
|
|
|
|
- public struct QspFunction
|
|
|
|
- {
|
|
|
|
- public int Priority;
|
|
|
|
- public int ResType;
|
|
|
|
- public int MinArgsCount;
|
|
|
|
- public int MaxArgsCount;
|
|
|
|
- public int[] ArgsTypes;
|
|
|
|
- }
|
|
|
|
- public struct QspFunctionName
|
|
|
|
- {
|
|
|
|
- public string Name;
|
|
|
|
- public int NameLen;
|
|
|
|
- public int Code;
|
|
|
|
- }
|
|
|
|
- public enum QspFunctionType
|
|
|
|
- {
|
|
|
|
- Unknown,
|
|
|
|
- Start,
|
|
|
|
- End,
|
|
|
|
- Value,
|
|
|
|
- OpenBracket,
|
|
|
|
- Minus,
|
|
|
|
- Comma,
|
|
|
|
- CloseBracket,
|
|
|
|
- Mul,
|
|
|
|
- Div,
|
|
|
|
- Add,
|
|
|
|
- Sub,
|
|
|
|
- Mod,
|
|
|
|
- Ne,
|
|
|
|
- Leq,
|
|
|
|
- Geq,
|
|
|
|
- Eq,
|
|
|
|
- Lt,
|
|
|
|
- Gt,
|
|
|
|
- And,
|
|
|
|
- Or,
|
|
|
|
- Append,
|
|
|
|
-
|
|
|
|
- First_Function,
|
|
|
|
- Not = First_Function,
|
|
|
|
- Loc,
|
|
|
|
- Obj,
|
|
|
|
- Min,
|
|
|
|
- Max,
|
|
|
|
- Rand,
|
|
|
|
- IIf,
|
|
|
|
- RGB,
|
|
|
|
- Len,
|
|
|
|
- IsNum,
|
|
|
|
- LCase,
|
|
|
|
- UCase,
|
|
|
|
- Input,
|
|
|
|
- Str,
|
|
|
|
- Val,
|
|
|
|
- ArrSize,
|
|
|
|
- IsPlay,
|
|
|
|
- Desc,
|
|
|
|
- Trim,
|
|
|
|
- GetObj,
|
|
|
|
- StrComp,
|
|
|
|
- StrFind,
|
|
|
|
- StrPos,
|
|
|
|
- Mid,
|
|
|
|
- ArrPos,
|
|
|
|
- ArrComp,
|
|
|
|
- Instr,
|
|
|
|
- Replace,
|
|
|
|
- Func,
|
|
|
|
- DynEval,
|
|
|
|
- Rnd,
|
|
|
|
- CountObj,
|
|
|
|
- MsecsCount,
|
|
|
|
- QSPVer,
|
|
|
|
- UserText,
|
|
|
|
- CurLoc,
|
|
|
|
- SelObj,
|
|
|
|
- SelAct,
|
|
|
|
- MainText,
|
|
|
|
- StatText,
|
|
|
|
- CurActs,
|
|
|
|
-
|
|
|
|
- Last_Operation
|
|
|
|
- };
|
|
|
|
-
|
|
|
|
- static public QspStatement[] qspStats;
|
|
|
|
- static QspStatementName[,] qspStatsNames;
|
|
|
|
- static int[] qspStatsNamesCounts;
|
|
|
|
- static int qspStatMaxLen;
|
|
|
|
- static public QspFunction[] qspOps;
|
|
|
|
- static QspFunctionName[,] qspOpsNames;
|
|
|
|
- static int[] qspOpsNamesCounts;
|
|
|
|
- static int qspOpMaxLen;
|
|
|
|
- static bool inited = false;
|
|
|
|
-
|
|
|
|
- public class QspVariable
|
|
|
|
- {
|
|
|
|
- public bool IsString;
|
|
|
|
- public string Name;
|
|
|
|
- public bool Assigned;
|
|
|
|
- public bool Used;
|
|
|
|
- public QspVariable(string name, bool assigned, bool used)
|
|
|
|
- {
|
|
|
|
- IsString = name.IndexOf('$') == 0;
|
|
|
|
- Name = name;
|
|
|
|
- Assigned = assigned;
|
|
|
|
- Used = used;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- public class QspLocationLink
|
|
|
|
- {
|
|
|
|
- public string LocationName;
|
|
|
|
- public bool LocationExists;
|
|
|
|
- public bool LocationCalled;
|
|
|
|
- public QspLocationLink(string name, bool exists, bool called)
|
|
|
|
- {
|
|
|
|
- LocationName = name;
|
|
|
|
- LocationExists = exists;
|
|
|
|
- LocationCalled = called;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- public class QspObj
|
|
|
|
- {
|
|
|
|
- public string Name;
|
|
|
|
- public bool Added;
|
|
|
|
- public bool Removed;
|
|
|
|
- public QspObj(string name, bool added, bool removed)
|
|
|
|
- {
|
|
|
|
- Name = name;
|
|
|
|
- Added = added;
|
|
|
|
- Removed = removed;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- public class QspAct
|
|
|
|
- {
|
|
|
|
- public string Name;
|
|
|
|
- public bool Added;
|
|
|
|
- public bool Removed;
|
|
|
|
- public QspAct(string name, bool added, bool removed)
|
|
|
|
- {
|
|
|
|
- Name = name;
|
|
|
|
- Added = added;
|
|
|
|
- Removed = removed;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- static public List<QspVariable> vars;
|
|
|
|
- static public List<QspLocationLink> locationLinks;
|
|
|
|
- static public List<QspObj> objects;
|
|
|
|
- static public List<QspAct> acts;
|
|
|
|
-
|
|
|
|
- static public List<string> callerVariables;
|
|
|
|
- static public List<string> systemVariables;
|
|
|
|
- static public bool curlyParsing;
|
|
|
|
-
|
|
|
|
- static public string currentLocation;
|
|
|
|
-
|
|
|
|
- public enum QuoteType
|
|
|
|
- {
|
|
|
|
- None,
|
|
|
|
- Single,
|
|
|
|
- Double
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- public struct QspError
|
|
|
|
- {
|
|
|
|
- public string locationName; //Локация, на которой встретилась ошибка
|
|
|
|
- public string text; //Текст сообщения об ошибке
|
|
|
|
- public int line; //Номер строки в локации
|
|
|
|
- public bool isError; //Тип ошибки, если "true" - ошибка синтаксиса, если "false" - предупреждение
|
|
|
|
- }
|
|
|
|
- static List<QspError> m_errors;
|
|
|
|
- static int m_errorCounter;
|
|
|
|
- public static int GetErrorsCount()
|
|
|
|
- {
|
|
|
|
- return m_errorCounter;
|
|
|
|
- }
|
|
|
|
- static int m_warningCounter;
|
|
|
|
- public static int GetWarningsCount()
|
|
|
|
- {
|
|
|
|
- return m_warningCounter;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- public Common()
|
|
|
|
- {
|
|
|
|
- if (!inited)
|
|
|
|
- {
|
|
|
|
- inited = true;
|
|
|
|
- qspStats = new QspStatement[(int)QspStatementType.Last_Statement];
|
|
|
|
- qspStatsNames = new QspStatementName[QSP_STATSLEVELS, QSP_MAXSTATSNAMES];
|
|
|
|
- qspStatsNamesCounts = new int[QSP_STATSLEVELS];
|
|
|
|
- qspOps = new QspFunction[(int)QspFunctionType.Last_Operation];
|
|
|
|
- qspOpsNames = new QspFunctionName[QSP_OPSLEVELS, QSP_MAXOPSNAMES];
|
|
|
|
- qspOpsNamesCounts = new int[QSP_OPSLEVELS];
|
|
|
|
-
|
|
|
|
- m_errors = new List<QspError>();
|
|
|
|
- InitQsp();
|
|
|
|
- ClearErrors();
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void ClearErrors()
|
|
|
|
- {
|
|
|
|
- m_errors.Clear();
|
|
|
|
- m_errorCounter = 0;
|
|
|
|
- m_warningCounter = 0;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void ClearNonGameErrors()
|
|
|
|
- {
|
|
|
|
- for (int index = 0; index < m_errors.Count; ++index)
|
|
|
|
- {
|
|
|
|
- if (m_errors[index].isError && (m_errors[index].line == INVALID_INDEX))
|
|
|
|
- {
|
|
|
|
-
|
|
|
|
- m_errors.RemoveAt(index);
|
|
|
|
- --index;
|
|
|
|
- m_errorCounter--;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void SubmitError(string text, int line)
|
|
|
|
- {
|
|
|
|
- QspError e;
|
|
|
|
- e.locationName = currentLocation;
|
|
|
|
- e.text = text;
|
|
|
|
- e.line = line;
|
|
|
|
- e.isError = true;
|
|
|
|
- m_errors.Add(e);
|
|
|
|
- m_errorCounter++;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void SubmitWarning(string text, int line)
|
|
|
|
- {
|
|
|
|
- QspError w;
|
|
|
|
- w.locationName = currentLocation;
|
|
|
|
- w.text = text;
|
|
|
|
- w.line = line;
|
|
|
|
- w.isError = false;
|
|
|
|
- m_errors.Add(w);
|
|
|
|
- m_warningCounter++;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public List<QspError> GetErrors()
|
|
|
|
- {
|
|
|
|
- return m_errors;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public bool StartOfMultiWordOperator(string op)
|
|
|
|
- {
|
|
|
|
- return op.ToUpper().Equals("ADD") || op.ToUpper().Equals("DEL");
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void qspAddStatement(int statCode, int extArg, /*QSP_STATEMENT func,*/ int minArgs, int maxArgs, params int[] marker)
|
|
|
|
- {
|
|
|
|
- int i;
|
|
|
|
- qspStats[statCode].ExtArg = extArg;
|
|
|
|
- //qspStats[statCode].Func = func;
|
|
|
|
- qspStats[statCode].MinArgsCount = minArgs;
|
|
|
|
- qspStats[statCode].MaxArgsCount = maxArgs;
|
|
|
|
- qspStats[statCode].ArgsTypes = new int[QSP_STATMAXARGS];
|
|
|
|
- if (maxArgs > 0)
|
|
|
|
- {
|
|
|
|
- for (i = 0; i < maxArgs; ++i)
|
|
|
|
- qspStats[statCode].ArgsTypes[i] = marker[i];
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void qspAddStatName(int statCode, string statName, int level)
|
|
|
|
- {
|
|
|
|
- int len = statName.Length;
|
|
|
|
- int count = qspStatsNamesCounts[level];
|
|
|
|
- qspStatsNames[level, count].Name = statName;
|
|
|
|
- qspStatsNames[level, count].NameLen = len;
|
|
|
|
- qspStatsNames[level, count].Code = statCode;
|
|
|
|
- qspStatsNamesCounts[level] = count + 1;
|
|
|
|
- /* Max length */
|
|
|
|
- if (len > qspStatMaxLen) qspStatMaxLen = len;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void qspAddOperation(int opCode, int priority, /*QSP_FUNCTION func,*/ int resType, int minArgs, int maxArgs, params int[] marker)
|
|
|
|
- {
|
|
|
|
- int i;
|
|
|
|
- qspOps[opCode].Priority = priority;
|
|
|
|
- //qspOps[opCode].Func = func;
|
|
|
|
- qspOps[opCode].ResType = resType;
|
|
|
|
- qspOps[opCode].MinArgsCount = minArgs;
|
|
|
|
- qspOps[opCode].MaxArgsCount = maxArgs;
|
|
|
|
- qspOps[opCode].ArgsTypes = new int[QSP_OPMAXARGS];
|
|
|
|
- if (maxArgs > 0)
|
|
|
|
- {
|
|
|
|
- for (i = 0; i < maxArgs; ++i)
|
|
|
|
- qspOps[opCode].ArgsTypes[i] = marker[i];
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void qspAddOpName(int opCode, string opName, int level)
|
|
|
|
- {
|
|
|
|
- int len = opName.Length;
|
|
|
|
- int count = qspOpsNamesCounts[level];
|
|
|
|
- qspOpsNames[level, count].Name = opName;
|
|
|
|
- qspOpsNames[level, count].NameLen = len;
|
|
|
|
- qspOpsNames[level, count].Code = opCode;
|
|
|
|
- qspOpsNamesCounts[level] = count + 1;
|
|
|
|
- /* Max length */
|
|
|
|
- if (len > qspOpMaxLen) qspOpMaxLen = len;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
-
|
|
|
|
- static public void InitQsp()
|
|
|
|
- {
|
|
|
|
- qspStatMaxLen = 0;
|
|
|
|
- // код оператора, ExtArg, минимальное кол-во аргументов, максимальное кол-во аргументов, типы аргументов
|
|
|
|
- // 0 - авто
|
|
|
|
- // 1 - строка
|
|
|
|
- // 2 - числовой
|
|
|
|
- qspAddStatement((int)QspStatementType.Else, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.ElseIf, 0, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.End, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.Local, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.Set, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.If, 0, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.Act, 0, 1, 2, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.For, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.AddObj, 0, 1, 3, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.ClA, 3, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.CloseAll, 1, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.Close, 0, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.ClS, 4, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.CmdClear, 2, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.CopyArr, 0, 2, 4, 1, 1, 2, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.DelAct, 0, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.DelObj, 0, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.Dynamic, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.Exec, 0, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.Exit, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.KillQST, 6, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.DelLib, 6, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.FreeLib, 6, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.GoSub, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.GoTo, 1, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.AddQST, 1, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.AddLib, 1, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.IncLib, 1, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.Jump, 0, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.KillAll, 5, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.KillObj, 1, 0, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.KillVar, 0, 0, 2, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.Menu, 0, 1, 3, 1, 2, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.MClear, 1, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.MNL, 5, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.MPL, 3, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.MP, 1, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.Clear, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.NL, 4, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.PL, 2, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.P, 0, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.Msg, 0, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.OpenGame, 0, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.OpenQst, 0, 1, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.Play, 0, 1, 2, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.RefInt, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.SaveGame, 0, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.SetTimer, 0, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.ShowActs, 0, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.ShowInput, 3, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.ShowObjs, 1, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.ShowVars, 2, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.UnSelect, 0, 0, 0);
|
|
|
|
- qspAddStatement((int)QspStatementType.View, 0, 0, 1, 1);
|
|
|
|
- qspAddStatement((int)QspStatementType.Wait, 0, 1, 1, 2);
|
|
|
|
- qspAddStatement((int)QspStatementType.XGoTo, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- /* Names */
|
|
|
|
- qspAddStatName((int)QspStatementType.Else, "ELSE", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.ElseIf, "ELSEIF", 1);
|
|
|
|
- qspAddStatName((int)QspStatementType.End, "END", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Local, "LOCAL", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Set, "SET", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Set, "LET", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.If, "IF", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Act, "ACT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.For, "FOR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.AddObj, "ADDOBJ", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.AddObj, "ADD OBJ", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.ClA, "CLA", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.CloseAll, "CLOSE ALL", 1);
|
|
|
|
- qspAddStatName((int)QspStatementType.Close, "CLOSE", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.ClS, "CLS", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.CmdClear, "CMDCLEAR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.CmdClear, "CMDCLR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.CopyArr, "COPYARR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.DelAct, "DELACT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.DelAct, "DEL ACT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.DelObj, "DELOBJ", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.DelObj, "DEL OBJ", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Dynamic, "DYNAMIC", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Exec, "EXEC", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Exit, "EXIT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.KillQST, "KILLQST", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.DelLib, "DELLIB", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.FreeLib, "FREELIB", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.GoSub, "GOSUB", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.GoSub, "GS", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.GoTo, "GOTO", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.GoTo, "GT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.AddQST, "ADDQST", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.AddLib, "ADDLIB", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.IncLib, "INCLIB", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Jump, "JUMP", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.KillAll, "KILLALL", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.KillObj, "KILLOBJ", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.KillVar, "KILLVAR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Menu, "MENU", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.MClear, "*CLEAR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.MClear, "*CLR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.MNL, "*NL", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.MPL, "*PL", 1);
|
|
|
|
- qspAddStatName((int)QspStatementType.MP, "*P", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Clear, "CLEAR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Clear, "CLR", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.NL, "NL", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.PL, "PL", 1);
|
|
|
|
- qspAddStatName((int)QspStatementType.P, "P", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Msg, "MSG", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.OpenGame, "OPENGAME", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.OpenQst, "OPENQST", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Play, "PLAY", 0);
|
|
|
|
- qspAddStatName((int)QspStatementType.RefInt, "REFINT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.SaveGame, "SAVEGAME", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.SetTimer, "SETTIMER", 1);
|
|
|
|
- qspAddStatName((int)QspStatementType.ShowActs, "SHOWACTS", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.ShowInput, "SHOWINPUT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.ShowObjs, "SHOWOBJS", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.ShowVars, "SHOWSTAT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.UnSelect, "UNSELECT", 1);
|
|
|
|
- qspAddStatName((int)QspStatementType.UnSelect, "UNSEL", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.View, "VIEW", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.Wait, "WAIT", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.XGoTo, "XGOTO", 2);
|
|
|
|
- qspAddStatName((int)QspStatementType.XGoTo, "XGT", 2);
|
|
|
|
-
|
|
|
|
- //Математические операторы и функции
|
|
|
|
- int i;
|
|
|
|
- for (i = 0; i < QSP_OPSLEVELS; ++i) qspOpsNamesCounts[i] = 0;
|
|
|
|
- qspOpMaxLen = 0;
|
|
|
|
- // код оператора, приоритет, тип результата, минимальное кол-во аргументов, максимальное кол-во аргументов, типы аргументов
|
|
|
|
- // 0 - авто
|
|
|
|
- // 1 - строка
|
|
|
|
- // 2 - числовой
|
|
|
|
- qspAddOperation((int)QspFunctionType.Value, 0, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Start, 127, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.End, 0, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.OpenBracket, 127, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.CloseBracket, 0, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Minus, 18, 2, 1, 1, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Add, 14, 0, 2, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Sub, 14, 2, 2, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Mul, 17, 2, 2, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Div, 17, 2, 2, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Mod, 16, 2, 2, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Ne, 10, 2, 2, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Leq, 10, 2, 2, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Geq, 10, 2, 2, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Eq, 10, 2, 2, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Lt, 10, 2, 2, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Gt, 10, 2, 2, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Append, 12, 1, 2, 2, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Comma, 0, 1, 2, 2, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.And, 7, 2, 2, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Or, 6, 2, 2, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Loc, 8, 2, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Obj, 8, 2, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Not, 8, 2, 1, 1, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Min, 30, 0, 1, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Max, 30, 0, 1, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Rand, 30, 2, 1, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.IIf, 30, 0, 3, 3, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.RGB, 30, 2, 3, 4, 2, 2, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Len, 30, 2, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.IsNum, 30, 2, 1, 1, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.LCase, 30, 1, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.UCase, 30, 1, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Input, 30, 1, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Str, 30, 1, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Val, 30, 2, 1, 1, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.ArrSize, 30, 2, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.IsPlay, 30, 2, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Desc, 30, 1, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Trim, 30, 1, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.GetObj, 30, 1, 1, 1, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.StrComp, 30, 2, 2, 2, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.StrFind, 30, 1, 2, 3, 1, 1, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.StrPos, 30, 2, 2, 3, 1, 1, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Mid, 30, 1, 2, 3, 1, 2, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.ArrPos, 30, 2, 2, 3, 1, 0, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.ArrComp, 30, 2, 2, 3, 1, 0, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Instr, 30, 2, 2, 3, 1, 1, 2);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Replace, 30, 1, 2, 3, 1, 1, 1);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Func, 30, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.DynEval, 30, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.Rnd, 30, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.CountObj, 30, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.MsecsCount, 30, 2, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.QSPVer, 30, 1, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.UserText, 30, 1, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.CurLoc, 30, 1, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.SelObj, 30, 1, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.SelAct, 30, 1, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.MainText, 30, 1, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.StatText, 30, 1, 0, 0);
|
|
|
|
- qspAddOperation((int)QspFunctionType.CurActs, 30, 1, 0, 0);
|
|
|
|
- /* Names */
|
|
|
|
- qspAddOpName((int)QspFunctionType.CloseBracket, ")", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Add, "+", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Sub, "-", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Mul, "*", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Div, "/", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Mod, "MOD", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Ne, "!", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Ne, "<>", 0);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Leq, "<=", 0);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Leq, "=<", 0);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Geq, ">=", 0);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Geq, "=>", 0);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Eq, "=", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Lt, "<", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Gt, ">", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Append, "&", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Comma, ",", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.And, "AND", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Or, "OR", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Loc, "LOC", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Obj, "OBJ", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Not, "NO", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Min, "MIN", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Min, "$MIN", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Max, "MAX", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Max, "$MAX", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Rand, "RAND", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.IIf, "IIF", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.IIf, "$IIF", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.RGB, "RGB", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Len, "LEN", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.IsNum, "ISNUM", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.LCase, "LCASE", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.LCase, "$LCASE", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.UCase, "UCASE", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.UCase, "$UCASE", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Input, "INPUT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Input, "$INPUT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Str, "STR", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Str, "$STR", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Val, "VAL", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.ArrSize, "ARRSIZE", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.IsPlay, "ISPLAY", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Desc, "DESC", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Desc, "$DESC", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Trim, "TRIM", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Trim, "$TRIM", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.GetObj, "GETOBJ", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.GetObj, "$GETOBJ", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.StrComp, "STRCOMP", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.StrFind, "STRFIND", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.StrFind, "$STRFIND", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.StrPos, "STRPOS", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Mid, "MID", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Mid, "$MID", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.ArrPos, "ARRPOS", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.ArrComp, "ARRCOMP", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Instr, "INSTR", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Replace, "REPLACE", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Replace, "$REPLACE", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Func, "FUNC", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Func, "$FUNC", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.DynEval, "DYNEVAL", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.DynEval, "$DYNEVAL", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.Rnd, "RND", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.CountObj, "COUNTOBJ", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.MsecsCount, "MSECSCOUNT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.QSPVer, "QSPVER", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.QSPVer, "$QSPVER", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.UserText, "USER_TEXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.UserText, "$USER_TEXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.UserText, "USRTXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.UserText, "$USRTXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.CurLoc, "CURLOC", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.CurLoc, "$CURLOC", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.SelObj, "SELOBJ", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.SelObj, "$SELOBJ", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.SelAct, "SELACT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.SelAct, "$SELACT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.MainText, "MAINTXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.MainText, "$MAINTXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.StatText, "STATTXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.StatText, "$STATTXT", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.CurActs, "CURACTS", 1);
|
|
|
|
- qspAddOpName((int)QspFunctionType.CurActs, "$CURACTS", 1);
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public int qspGetStatCode(string s)
|
|
|
|
- {
|
|
|
|
- if (s.Length == 0)
|
|
|
|
- return (int)QspStatementType.Unknown;
|
|
|
|
- if (s[0] == ':')
|
|
|
|
- return (int)QspStatementType.Label;
|
|
|
|
- if (s[0] == '!')
|
|
|
|
- return (int)QspStatementType.Comment;
|
|
|
|
- int len;
|
|
|
|
- if (s.Length < qspStatMaxLen)
|
|
|
|
- len = s.Length;
|
|
|
|
- else
|
|
|
|
- len = qspStatMaxLen;
|
|
|
|
- string name = s.Substring(0, len).ToUpper().Trim(WhiteSpace);
|
|
|
|
- for (int i = 0; i < QSP_STATSLEVELS; ++i)
|
|
|
|
- {
|
|
|
|
- for (int j = 0; j < qspStatsNamesCounts[i]; j++)
|
|
|
|
- {
|
|
|
|
- if (name.Equals(qspStatsNames[i,j].Name))
|
|
|
|
- return qspStatsNames[i,j].Code;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- return (int)QspStatementType.Unknown;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public int qspGetFunctionCode(string s, bool functionsOnly)
|
|
|
|
- {
|
|
|
|
- if (s.Length == 0)
|
|
|
|
- return (int)QspFunctionType.End;
|
|
|
|
- int len;
|
|
|
|
- if (s.Length < qspOpMaxLen)
|
|
|
|
- len = s.Length;
|
|
|
|
- else
|
|
|
|
- len = qspOpMaxLen;
|
|
|
|
- string name = s.Substring(0, len).ToUpper().Trim(WhiteSpace);
|
|
|
|
- for (int i = 0; i < QSP_OPSLEVELS; ++i)
|
|
|
|
- {
|
|
|
|
- for (int j = 0; j < qspOpsNamesCounts[i]; j++)
|
|
|
|
- {
|
|
|
|
- if ((name.Equals(qspOpsNames[i, j].Name)) &&
|
|
|
|
- (!functionsOnly || (qspOpsNames[i, j].Code >= (int)QspFunctionType.First_Function)))
|
|
|
|
- return qspOpsNames[i, j].Code;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- return (int)QspFunctionType.Unknown;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public QspVariable GetVar(string name)
|
|
|
|
- {
|
|
|
|
- foreach (QspVariable var in vars)
|
|
|
|
- {
|
|
|
|
- if (var.Name.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
- return var;
|
|
|
|
- }
|
|
|
|
- return null;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void AddVar(string name, bool assigned, bool used)
|
|
|
|
- {
|
|
|
|
- QspVariable var = GetVar(name);
|
|
|
|
- if (var == null)
|
|
|
|
- {
|
|
|
|
- var = new QspVariable(name, assigned, used);
|
|
|
|
- vars.Add(var);
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- if (assigned)
|
|
|
|
- var.Assigned = assigned;
|
|
|
|
- if (used)
|
|
|
|
- var.Used = used;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public QspLocationLink GetLocationLink(string name)
|
|
|
|
- {
|
|
|
|
- foreach (QspLocationLink loc in locationLinks)
|
|
|
|
- {
|
|
|
|
- if (loc.LocationName.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
- return loc;
|
|
|
|
- }
|
|
|
|
- return null;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void AddLocationLink(string name, bool exists, bool called)
|
|
|
|
- {
|
|
|
|
- QspLocationLink loc = GetLocationLink(name);
|
|
|
|
- if (loc == null)
|
|
|
|
- {
|
|
|
|
- loc = new QspLocationLink(name, exists, called);
|
|
|
|
- locationLinks.Add(loc);
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- if (exists)
|
|
|
|
- loc.LocationExists = exists;
|
|
|
|
- if (called)
|
|
|
|
- loc.LocationCalled = called;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public QspObj GetObj(string name)
|
|
|
|
- {
|
|
|
|
- foreach (QspObj obj in objects)
|
|
|
|
- {
|
|
|
|
- if (obj.Name.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
- return obj;
|
|
|
|
- }
|
|
|
|
- return null;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void AddObj(string name, bool added, bool removed)
|
|
|
|
- {
|
|
|
|
- QspObj obj = GetObj(name);
|
|
|
|
- if (obj == null)
|
|
|
|
- {
|
|
|
|
- obj = new QspObj(name, added, removed);
|
|
|
|
- objects.Add(obj);
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- if (added)
|
|
|
|
- obj.Added = added;
|
|
|
|
- if (removed)
|
|
|
|
- obj.Removed = removed;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public QspAct GetAct(string name)
|
|
|
|
- {
|
|
|
|
- foreach (QspAct act in acts)
|
|
|
|
- {
|
|
|
|
- if (act.Name.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
- return act;
|
|
|
|
- }
|
|
|
|
- return null;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void AddAct(string name, bool added, bool removed)
|
|
|
|
- {
|
|
|
|
- QspAct act = GetAct(name);
|
|
|
|
- if (act == null)
|
|
|
|
- {
|
|
|
|
- act = new QspAct(name, added, removed);
|
|
|
|
- acts.Add(act);
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- if (added)
|
|
|
|
- act.Added = added;
|
|
|
|
- if (removed)
|
|
|
|
- act.Removed = removed;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public void SetConfig(List<string> callerVars, List<string> systemVars, bool EnableCurlyParsing)
|
|
|
|
- {
|
|
|
|
- callerVariables = callerVars;
|
|
|
|
- systemVariables = systemVars;
|
|
|
|
- curlyParsing = EnableCurlyParsing;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public bool IsNumber(String s)
|
|
|
|
- {
|
|
|
|
- foreach (char c in s.ToCharArray())
|
|
|
|
- {
|
|
|
|
- if (Array.IndexOf(Digits, c) == INVALID_INDEX)
|
|
|
|
- return false;
|
|
|
|
- }
|
|
|
|
- return true;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public bool ListContainsIgnoreCase(List<string> stringList, string value)
|
|
|
|
- {
|
|
|
|
- bool contains = null != stringList.Find(delegate(string str)
|
|
|
|
- {
|
|
|
|
- return str.Equals(value, StringComparison.OrdinalIgnoreCase);
|
|
|
|
- });
|
|
|
|
- return contains;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public string GenerateCsvName(string FileName)
|
|
|
|
- {
|
|
|
|
- string result = FileName;
|
|
|
|
- if (result.EndsWith(".txt"))
|
|
|
|
- result = result.Substring(0, result.Length - 4);
|
|
|
|
- result = result + ".csv";
|
|
|
|
- return result;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public bool ExportToCsv(string srcFile, string delimiter)
|
|
|
|
- {
|
|
|
|
- //Выгружаем исходный код в CSV
|
|
|
|
- //4 колонки: номер+локация, оригинал, место для перевода, место для комментария
|
|
|
|
-
|
|
|
|
- string dstFile = GenerateCsvName(srcFile);
|
|
|
|
-
|
|
|
|
- StreamReader fi = null;
|
|
|
|
- if (!OpenStreamForReading(ref fi, srcFile))
|
|
|
|
- {
|
|
|
|
- return false;
|
|
|
|
- }
|
|
|
|
- StreamWriter fo = null;
|
|
|
|
- if (!OpenStreamForWriting(ref fo, dstFile))
|
|
|
|
- {
|
|
|
|
- fi.Close();
|
|
|
|
- return false;
|
|
|
|
- }
|
|
|
|
- string line;
|
|
|
|
- int line_counter = 0;
|
|
|
|
- int quoted_line_counter = 0;
|
|
|
|
- bool inside = false;
|
|
|
|
- string locName = null;
|
|
|
|
-
|
|
|
|
- int quote = (int)QuoteType.None;
|
|
|
|
- string quotedText = "";
|
|
|
|
- bool quotedTextCompleted = false;
|
|
|
|
-
|
|
|
|
- while ((line = fi.ReadLine()) != null)
|
|
|
|
- {
|
|
|
|
- line_counter++;
|
|
|
|
- line = line.Trim(WhiteSpace);
|
|
|
|
- if ((line.Length > 0) && (line[0] == '#'))
|
|
|
|
- {
|
|
|
|
- //имя локации
|
|
|
|
- locName = line.Substring(1).Trim(WhiteSpace);
|
|
|
|
- inside = true;
|
|
|
|
- }
|
|
|
|
- else if ((line.Length > 38) && line.StartsWith("--- ") && line.EndsWith(" ---------------------------------"))
|
|
|
|
- {
|
|
|
|
- inside = false;
|
|
|
|
- locName = null;
|
|
|
|
- }
|
|
|
|
- else if (inside)
|
|
|
|
- {
|
|
|
|
- //Разбираем только строки внутри локаций
|
|
|
|
- int pos = 0;
|
|
|
|
-
|
|
|
|
- //Разбор строки
|
|
|
|
- while (pos < line.Length)
|
|
|
|
- {
|
|
|
|
- char c = line[pos];
|
|
|
|
- if (c == '\'')
|
|
|
|
- {
|
|
|
|
- //Апостроф
|
|
|
|
- if (quote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.Single;
|
|
|
|
- quotedText = "";
|
|
|
|
- }
|
|
|
|
- else if (quote == (int)QuoteType.Single)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
- {
|
|
|
|
- //Экранированный апостроф
|
|
|
|
- pos++;
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.None;
|
|
|
|
- quotedTextCompleted = true;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (c == '"')
|
|
|
|
- {
|
|
|
|
- //Кавычка
|
|
|
|
- if (quote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.Double;
|
|
|
|
- quotedText = "";
|
|
|
|
- }
|
|
|
|
- else if (quote == (int)QuoteType.Double)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
- {
|
|
|
|
- //Экранированная кавычка
|
|
|
|
- pos++;
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.None;
|
|
|
|
- quotedTextCompleted = true;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (quote != (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- //Строка текста внутри кавычек или апострофов
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- else if (c == '{')
|
|
|
|
- {
|
|
|
|
- //Пропускаем содержимое фигурных скобок
|
|
|
|
- int curlyLevel = 1;
|
|
|
|
- pos++;
|
|
|
|
- int curlyQuote = (int)QuoteType.None;
|
|
|
|
- while (pos < line.Length)
|
|
|
|
- {
|
|
|
|
- char c2 = line[pos];
|
|
|
|
-
|
|
|
|
- if (c2 == '\'')
|
|
|
|
- {
|
|
|
|
- //Апостроф
|
|
|
|
- if (curlyQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.Single;
|
|
|
|
- }
|
|
|
|
- else if (curlyQuote == (int)QuoteType.Single)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
- {
|
|
|
|
- //Экранированный апостроф
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.None;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (c2 == '"')
|
|
|
|
- {
|
|
|
|
- //Кавычка
|
|
|
|
- if (curlyQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.Double;
|
|
|
|
- }
|
|
|
|
- else if (curlyQuote == (int)QuoteType.Double)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
- {
|
|
|
|
- //Экранированная кавычка
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.None;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (curlyQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- if (c2 == '{')
|
|
|
|
- {
|
|
|
|
- curlyLevel++;
|
|
|
|
- }
|
|
|
|
- else if (c2 == '}')
|
|
|
|
- {
|
|
|
|
- curlyLevel--;
|
|
|
|
- if (curlyLevel == 0)
|
|
|
|
- break;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- if (quotedTextCompleted)
|
|
|
|
- {
|
|
|
|
- //Формируем строку для csv-файла
|
|
|
|
- //4 колонки: номер+локация, оригинал, место для перевода, место для комментария
|
|
|
|
- if (quotedText.Trim(WhiteSpace).Length > 0)
|
|
|
|
- {
|
|
|
|
- quoted_line_counter++;
|
|
|
|
-
|
|
|
|
- string csv_line = "";
|
|
|
|
- csv_line += CsvEscape(quoted_line_counter.ToString() + ":" + locName) + delimiter;
|
|
|
|
- csv_line += CsvEscape(quotedText) + delimiter;
|
|
|
|
- csv_line += CsvEscape("") + delimiter;
|
|
|
|
- csv_line += CsvEscape("");
|
|
|
|
-
|
|
|
|
- //Записываем строку в csv-файл
|
|
|
|
- fo.WriteLine(csv_line);
|
|
|
|
- }
|
|
|
|
- quotedTextCompleted = false;
|
|
|
|
- }
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- fi.Close();
|
|
|
|
- fo.Close();
|
|
|
|
- return true;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public string CsvEscape(string src)
|
|
|
|
- {
|
|
|
|
- //Форматируем строку для записи в csv-файл
|
|
|
|
- string result = "\"" + src.Replace("\"", "\"\"") + "\"";
|
|
|
|
- return result;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public string CsvUnEscape(string src)
|
|
|
|
- {
|
|
|
|
- //Преобразовываем строку из csv-формата в обычный текст
|
|
|
|
- string result = src;
|
|
|
|
- if (src.StartsWith("\""))
|
|
|
|
- {
|
|
|
|
- result = result.Substring(1, result.Length - 2);
|
|
|
|
- result = result.Replace("\"\"", "\"");
|
|
|
|
- }
|
|
|
|
- return result;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public bool TranslateFromCsv(string srcFile, string suffix, bool IgnoreEmptyTranslations, string delimiter)
|
|
|
|
- {
|
|
|
|
- //Создаем перевод на основе загруженного файла и CSV
|
|
|
|
- //Проверяем соответствие номера, локации, оригинального текста, в случае несовпадения выдаем ошибку и не сохраняем файл
|
|
|
|
- //Для пустых строк заполняем текстом оригинала, либо выдаем ошибку - в зависимости от настроек.
|
|
|
|
-
|
|
|
|
- string dstFile = srcFile;
|
|
|
|
- if (dstFile.EndsWith(".txt"))
|
|
|
|
- dstFile = dstFile.Substring(0, dstFile.Length - 4);
|
|
|
|
- dstFile = dstFile + suffix + ".txt";
|
|
|
|
-
|
|
|
|
- string csvFile = GenerateCsvName(srcFile);
|
|
|
|
-
|
|
|
|
- StreamReader fi_src = null;
|
|
|
|
- if (!OpenStreamForReading(ref fi_src, srcFile))
|
|
|
|
- {
|
|
|
|
- return false;
|
|
|
|
- }
|
|
|
|
- StreamReader fi_csv = null;
|
|
|
|
- if (!OpenStreamForReading(ref fi_csv, csvFile))
|
|
|
|
- {
|
|
|
|
- fi_src.Close();
|
|
|
|
- return false;
|
|
|
|
- }
|
|
|
|
- StreamWriter fo = null;
|
|
|
|
- if (!OpenStreamForWriting(ref fo, dstFile))
|
|
|
|
- {
|
|
|
|
- fi_src.Close();
|
|
|
|
- fi_csv.Close();
|
|
|
|
- return false;
|
|
|
|
- }
|
|
|
|
- string line;
|
|
|
|
- string line_cut;
|
|
|
|
- int line_counter = 0;
|
|
|
|
- int quoted_line_counter = 0;
|
|
|
|
- bool inside = false;
|
|
|
|
- string locName = null;
|
|
|
|
-
|
|
|
|
- int quote = (int)QuoteType.None;
|
|
|
|
- string quotedText = "";
|
|
|
|
- bool quotedTextCompleted = false;
|
|
|
|
-
|
|
|
|
- string rawText = "";
|
|
|
|
-
|
|
|
|
- bool aborted = false;
|
|
|
|
-
|
|
|
|
- while ((line = fi_src.ReadLine()) != null)
|
|
|
|
- {
|
|
|
|
- line_counter++;
|
|
|
|
- line_cut = line.Trim(WhiteSpace);
|
|
|
|
- if ((line_cut.Length > 0) && (line_cut[0] == '#'))
|
|
|
|
- {
|
|
|
|
- //имя локации
|
|
|
|
- locName = line_cut.Substring(1).Trim(WhiteSpace);
|
|
|
|
- inside = true;
|
|
|
|
- fo.WriteLine(line);
|
|
|
|
- }
|
|
|
|
- else if ((line_cut.Length > 38) && line_cut.StartsWith("--- ") && line_cut.EndsWith(" ---------------------------------"))
|
|
|
|
- {
|
|
|
|
- inside = false;
|
|
|
|
- locName = null;
|
|
|
|
- fo.WriteLine(line);
|
|
|
|
- }
|
|
|
|
- else if (inside)
|
|
|
|
- {
|
|
|
|
- //Разбираем только строки внутри локаций
|
|
|
|
- int pos = 0;
|
|
|
|
-
|
|
|
|
- //Разбор строки
|
|
|
|
- while (pos < line.Length)
|
|
|
|
- {
|
|
|
|
- char c = line[pos];
|
|
|
|
- if (c == '\'')
|
|
|
|
- {
|
|
|
|
- //Апостроф
|
|
|
|
- if (quote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.Single;
|
|
|
|
- quotedText = "";
|
|
|
|
- rawText += c;
|
|
|
|
- }
|
|
|
|
- else if (quote == (int)QuoteType.Single)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
- {
|
|
|
|
- //Экранированный апостроф
|
|
|
|
- pos++;
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.None;
|
|
|
|
- quotedTextCompleted = true;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (c == '"')
|
|
|
|
- {
|
|
|
|
- //Кавычка
|
|
|
|
- if (quote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.Double;
|
|
|
|
- quotedText = "";
|
|
|
|
- rawText += c;
|
|
|
|
- }
|
|
|
|
- else if (quote == (int)QuoteType.Double)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
- {
|
|
|
|
- //Экранированная кавычка
|
|
|
|
- pos++;
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quote = (int)QuoteType.None;
|
|
|
|
- quotedTextCompleted = true;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (quote != (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- //Строка текста внутри кавычек или апострофов
|
|
|
|
- quotedText += c;
|
|
|
|
- }
|
|
|
|
- else if (c == '{')
|
|
|
|
- {
|
|
|
|
- //Пропускаем содержимое фигурных скобок
|
|
|
|
- int curlyLevel = 1;
|
|
|
|
- rawText += c;
|
|
|
|
- pos++;
|
|
|
|
- int curlyQuote = (int)QuoteType.None;
|
|
|
|
- while (pos < line.Length)
|
|
|
|
- {
|
|
|
|
- char c2 = line[pos];
|
|
|
|
- rawText += c2;
|
|
|
|
-
|
|
|
|
- if (c2 == '\'')
|
|
|
|
- {
|
|
|
|
- //Апостроф
|
|
|
|
- if (curlyQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.Single;
|
|
|
|
- }
|
|
|
|
- else if (curlyQuote == (int)QuoteType.Single)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
- {
|
|
|
|
- //Экранированный апостроф
|
|
|
|
- rawText += line[pos + 1];
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.None;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (c2 == '"')
|
|
|
|
- {
|
|
|
|
- //Кавычка
|
|
|
|
- if (curlyQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.Double;
|
|
|
|
- }
|
|
|
|
- else if (curlyQuote == (int)QuoteType.Double)
|
|
|
|
- {
|
|
|
|
- if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
- {
|
|
|
|
- //Экранированная кавычка
|
|
|
|
- rawText += line[pos + 1];
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- curlyQuote = (int)QuoteType.None;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (curlyQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- if (c2 == '{')
|
|
|
|
- {
|
|
|
|
- curlyLevel++;
|
|
|
|
- }
|
|
|
|
- else if (c2 == '}')
|
|
|
|
- {
|
|
|
|
- curlyLevel--;
|
|
|
|
- if (curlyLevel == 0)
|
|
|
|
- break;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- rawText += c;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- if (quotedTextCompleted)
|
|
|
|
- {
|
|
|
|
- //Читаем строку из файла перевода
|
|
|
|
- string translation = quotedText;
|
|
|
|
-
|
|
|
|
- if (quotedText.Trim(WhiteSpace).Length > 0)
|
|
|
|
- {
|
|
|
|
- translation = "";
|
|
|
|
- quoted_line_counter++;
|
|
|
|
-
|
|
|
|
- bool csvLineCompleted = false;
|
|
|
|
- string csv_line = null;
|
|
|
|
- int valuesCount = 0;
|
|
|
|
- string thirdValue = "";
|
|
|
|
- int csvQuote = (int)QuoteType.None;
|
|
|
|
- string csvText = "";
|
|
|
|
- bool csvValueCompleted = false;
|
|
|
|
-
|
|
|
|
- int csvLineIndex = INVALID_INDEX;
|
|
|
|
- string csvLocName = "";
|
|
|
|
- string csvOriginalLine = "";
|
|
|
|
-
|
|
|
|
- while (!csvLineCompleted && ((csv_line = fi_csv.ReadLine()) != null))
|
|
|
|
- {
|
|
|
|
- int csvPos = 0;
|
|
|
|
-
|
|
|
|
- //Разбор строки
|
|
|
|
- while (csvPos < csv_line.Length)
|
|
|
|
- {
|
|
|
|
- int newValuesCount = valuesCount;
|
|
|
|
- char c3 = csv_line[csvPos];
|
|
|
|
- if (c3 == '"')
|
|
|
|
- {
|
|
|
|
- csvText += c3;
|
|
|
|
- //Кавычка
|
|
|
|
- if (csvQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- csvQuote = (int)QuoteType.Double;
|
|
|
|
- }
|
|
|
|
- else if (csvQuote == (int)QuoteType.Double)
|
|
|
|
- {
|
|
|
|
- if ((csvPos + 1 < csv_line.Length) && (csv_line[csvPos + 1] == '"'))
|
|
|
|
- {
|
|
|
|
- //Экранированная кавычка
|
|
|
|
- csvText += csv_line[csvPos + 1];
|
|
|
|
- csvPos++;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- csvQuote = (int)QuoteType.None;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (csvQuote != (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- //Строка текста внутри кавычек
|
|
|
|
- csvText += c3;
|
|
|
|
- }
|
|
|
|
- else if (c3.ToString() == delimiter)
|
|
|
|
- {
|
|
|
|
- newValuesCount++;
|
|
|
|
- csvValueCompleted = true;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- csvText += c3;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- if ((csvQuote == (int)QuoteType.None) && (csvPos == csv_line.Length - 1))
|
|
|
|
- {
|
|
|
|
- newValuesCount++;
|
|
|
|
- csvValueCompleted = true;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- if (csvValueCompleted)
|
|
|
|
- {
|
|
|
|
- for (int iter = valuesCount + 1; iter <= newValuesCount; iter++)
|
|
|
|
- {
|
|
|
|
- csvText = CsvUnEscape(csvText.Trim(WhiteSpace));
|
|
|
|
- if (iter == 1) //Первая колонка - имя локации и номер строки
|
|
|
|
- {
|
|
|
|
- string[] csvFirst = csvText.Split(":".ToCharArray());
|
|
|
|
- if (csvFirst.Length == 2)
|
|
|
|
- {
|
|
|
|
- csvLineIndex = Convert.ToInt32(csvFirst[0]);
|
|
|
|
- csvLocName = csvFirst[1];
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else if (iter == 2) //Вторая колонка - оригинал
|
|
|
|
- {
|
|
|
|
- csvOriginalLine = csvText;
|
|
|
|
- }
|
|
|
|
- else if (iter == 3) //Третья колонка - перевод
|
|
|
|
- {
|
|
|
|
- thirdValue = csvText;
|
|
|
|
- }
|
|
|
|
- csvText = "";
|
|
|
|
- }
|
|
|
|
- csvValueCompleted = false;
|
|
|
|
- valuesCount = newValuesCount;
|
|
|
|
- }
|
|
|
|
- csvPos++;
|
|
|
|
- }
|
|
|
|
- if (csvQuote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- csvLineCompleted = true;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- csvText += Environment.NewLine;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- if ((csv_line == null) || (csvLineCompleted &&
|
|
|
|
- ((csvLocName != locName) || (quoted_line_counter != csvLineIndex) || (csvOriginalLine != quotedText))))
|
|
|
|
- {
|
|
|
|
- SubmitError("CSV-file does not match the original! Generate it again.", INVALID_INDEX);
|
|
|
|
- aborted = true;
|
|
|
|
- break;
|
|
|
|
- }
|
|
|
|
- if (!csvLineCompleted)
|
|
|
|
- {
|
|
|
|
- SubmitError("CSV-file damaged! Line number: " + quoted_line_counter.ToString(), INVALID_INDEX);
|
|
|
|
- aborted = true;
|
|
|
|
- break;
|
|
|
|
- }
|
|
|
|
- translation = thirdValue;
|
|
|
|
-
|
|
|
|
- if (translation.Length == 0)
|
|
|
|
- {
|
|
|
|
- if (IgnoreEmptyTranslations)
|
|
|
|
- {
|
|
|
|
- translation = quotedText;
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- SubmitError("Line number " + quoted_line_counter + " is not converted!", INVALID_INDEX);
|
|
|
|
- aborted = true;
|
|
|
|
- break;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- rawText += translation;
|
|
|
|
- rawText += c;
|
|
|
|
- quotedTextCompleted = false;
|
|
|
|
- }
|
|
|
|
- pos++;
|
|
|
|
- }
|
|
|
|
- if (aborted)
|
|
|
|
- break;
|
|
|
|
- if (quote == (int)QuoteType.None)
|
|
|
|
- {
|
|
|
|
- //Записываем строку в файл перевода
|
|
|
|
- fo.WriteLine(rawText);
|
|
|
|
- rawText = "";
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- else
|
|
|
|
- {
|
|
|
|
- fo.WriteLine(line);
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
- fi_src.Close();
|
|
|
|
- fi_csv.Close();
|
|
|
|
- fo.Close();
|
|
|
|
- if (aborted)
|
|
|
|
- {
|
|
|
|
- //Убить корявый перевод
|
|
|
|
- File.Delete(dstFile);
|
|
|
|
- }
|
|
|
|
- return !aborted;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public bool OpenStreamForReading(ref StreamReader fi, string file)
|
|
|
|
- {
|
|
|
|
- bool result = false;
|
|
|
|
- try
|
|
|
|
- {
|
|
|
|
- fi = new StreamReader(file, Encoding.Default);
|
|
|
|
- result = true;
|
|
|
|
- }
|
|
|
|
- catch (Exception e)
|
|
|
|
- {
|
|
|
|
- SubmitError("File \"" + file + "\" cannot be opened for reading (it can be opened by another program).", INVALID_INDEX);
|
|
|
|
- result = false;
|
|
|
|
- }
|
|
|
|
- return result;
|
|
|
|
- }
|
|
|
|
-
|
|
|
|
- static public bool OpenStreamForWriting(ref StreamWriter fo, string file)
|
|
|
|
- {
|
|
|
|
- bool result = false;
|
|
|
|
- try
|
|
|
|
- {
|
|
|
|
- fo = new StreamWriter(file, false, Encoding.Default);
|
|
|
|
- result = true;
|
|
|
|
- }
|
|
|
|
- catch (Exception e)
|
|
|
|
- {
|
|
|
|
- SubmitError("File \"" + file + "\" cannot be opened for writing (it can be opened by another program).", INVALID_INDEX);
|
|
|
|
- result = false;
|
|
|
|
- }
|
|
|
|
- return result;
|
|
|
|
- }
|
|
|
|
- }
|
|
|
|
-}
|
|
|
|
|
|
+using System;
|
|
|
|
+using System.Collections.Generic;
|
|
|
|
+using System.IO;
|
|
|
|
+using System.Text;
|
|
|
|
+
|
|
|
|
+namespace Analyser
|
|
|
|
+{
|
|
|
|
+ public class Common
|
|
|
|
+ {
|
|
|
|
+ const int QSP_MAXSTATSNAMES = 100;
|
|
|
|
+ const int QSP_STATSLEVELS = 3;
|
|
|
|
+ const int QSP_STATMAXARGS = 10;
|
|
|
|
+ const int QSP_OPSLEVELS = 2;
|
|
|
|
+ const int QSP_MAXOPSNAMES = 100;
|
|
|
|
+ const int QSP_OPMAXARGS = 10;
|
|
|
|
+ public const int QSP_STACKSIZE = 30;
|
|
|
|
+ public const int QSP_MAXITEMS = 100;
|
|
|
|
+
|
|
|
|
+ public const int INVALID_INDEX = -1;
|
|
|
|
+ static public char[] WhiteSpace = {' ', '\t', '\r', '\n'};
|
|
|
|
+ //Разделители - " \t&'\"()[]=!<>+-/*:,{}"
|
|
|
|
+ static public char[] Delimiters = " \t&'\"()[]=!<>+-/*:,{}".ToCharArray();
|
|
|
|
+ static public char[] Digits = "0123456789".ToCharArray();
|
|
|
|
+ static public char[] LatinLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqsrtuvwxyz".ToCharArray();
|
|
|
|
+ static public char[] RussianLetters = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъьэюя".ToCharArray();
|
|
|
|
+ public struct QspStatement
|
|
|
|
+ {
|
|
|
|
+ public int ExtArg;
|
|
|
|
+ public int MinArgsCount;
|
|
|
|
+ public int MaxArgsCount;
|
|
|
|
+ public int[] ArgsTypes;
|
|
|
|
+ }
|
|
|
|
+ public struct QspStatementName
|
|
|
|
+ {
|
|
|
|
+ public string Name;
|
|
|
|
+ public int NameLen;
|
|
|
|
+ public int Code;
|
|
|
|
+ }
|
|
|
|
+ public enum QspStatementType
|
|
|
|
+ {
|
|
|
|
+ Unknown,
|
|
|
|
+ Label,
|
|
|
|
+ Comment,
|
|
|
|
+ Act,
|
|
|
|
+ For,
|
|
|
|
+ Local,
|
|
|
|
+ If,
|
|
|
|
+ ElseIf,
|
|
|
|
+ Else,
|
|
|
|
+ End,
|
|
|
|
+ AddObj,
|
|
|
|
+ ClA,
|
|
|
|
+ Clear,
|
|
|
|
+ CloseAll,
|
|
|
|
+ Close,
|
|
|
|
+ ClS,
|
|
|
|
+ CmdClear,
|
|
|
|
+ CopyArr,
|
|
|
|
+ DelAct,
|
|
|
|
+ DelObj,
|
|
|
|
+ Dynamic,
|
|
|
|
+ Exec,
|
|
|
|
+ Exit,
|
|
|
|
+ KillQST,
|
|
|
|
+ DelLib,
|
|
|
|
+ FreeLib,
|
|
|
|
+ GoSub,
|
|
|
|
+ GoTo,
|
|
|
|
+ AddQST,
|
|
|
|
+ AddLib,
|
|
|
|
+ IncLib,
|
|
|
|
+ Jump,
|
|
|
|
+ KillAll,
|
|
|
|
+ KillObj,
|
|
|
|
+ KillVar,
|
|
|
|
+ MClear,
|
|
|
|
+ Menu,
|
|
|
|
+ MNL,
|
|
|
|
+ MPL,
|
|
|
|
+ MP,
|
|
|
|
+ Msg,
|
|
|
|
+ NL,
|
|
|
|
+ OpenGame,
|
|
|
|
+ OpenQst,
|
|
|
|
+ Play,
|
|
|
|
+ PL,
|
|
|
|
+ P,
|
|
|
|
+ RefInt,
|
|
|
|
+ SaveGame,
|
|
|
|
+ SetTimer,
|
|
|
|
+ Set,
|
|
|
|
+ ShowActs,
|
|
|
|
+ ShowInput,
|
|
|
|
+ ShowObjs,
|
|
|
|
+ ShowVars,
|
|
|
|
+ UnSelect,
|
|
|
|
+ View,
|
|
|
|
+ Wait,
|
|
|
|
+ XGoTo,
|
|
|
|
+
|
|
|
|
+ Last_Statement
|
|
|
|
+ };
|
|
|
|
+
|
|
|
|
+ public struct QspFunction
|
|
|
|
+ {
|
|
|
|
+ public int Priority;
|
|
|
|
+ public int ResType;
|
|
|
|
+ public int MinArgsCount;
|
|
|
|
+ public int MaxArgsCount;
|
|
|
|
+ public int[] ArgsTypes;
|
|
|
|
+ }
|
|
|
|
+ public struct QspFunctionName
|
|
|
|
+ {
|
|
|
|
+ public string Name;
|
|
|
|
+ public int NameLen;
|
|
|
|
+ public int Code;
|
|
|
|
+ }
|
|
|
|
+ public enum QspFunctionType
|
|
|
|
+ {
|
|
|
|
+ Unknown,
|
|
|
|
+ Start,
|
|
|
|
+ End,
|
|
|
|
+ Value,
|
|
|
|
+ OpenBracket,
|
|
|
|
+ Minus,
|
|
|
|
+ Comma,
|
|
|
|
+ CloseBracket,
|
|
|
|
+ Mul,
|
|
|
|
+ Div,
|
|
|
|
+ Add,
|
|
|
|
+ Sub,
|
|
|
|
+ Mod,
|
|
|
|
+ Ne,
|
|
|
|
+ Leq,
|
|
|
|
+ Geq,
|
|
|
|
+ Eq,
|
|
|
|
+ Lt,
|
|
|
|
+ Gt,
|
|
|
|
+ And,
|
|
|
|
+ Or,
|
|
|
|
+ Append,
|
|
|
|
+
|
|
|
|
+ First_Function,
|
|
|
|
+ Not = First_Function,
|
|
|
|
+ Loc,
|
|
|
|
+ Obj,
|
|
|
|
+ Min,
|
|
|
|
+ Max,
|
|
|
|
+ Rand,
|
|
|
|
+ IIf,
|
|
|
|
+ RGB,
|
|
|
|
+ Len,
|
|
|
|
+ IsNum,
|
|
|
|
+ LCase,
|
|
|
|
+ UCase,
|
|
|
|
+ Input,
|
|
|
|
+ Str,
|
|
|
|
+ Val,
|
|
|
|
+ ArrSize,
|
|
|
|
+ IsPlay,
|
|
|
|
+ Desc,
|
|
|
|
+ Trim,
|
|
|
|
+ GetObj,
|
|
|
|
+ StrComp,
|
|
|
|
+ StrFind,
|
|
|
|
+ StrPos,
|
|
|
|
+ Mid,
|
|
|
|
+ ArrPos,
|
|
|
|
+ ArrComp,
|
|
|
|
+ Instr,
|
|
|
|
+ Replace,
|
|
|
|
+ Func,
|
|
|
|
+ DynEval,
|
|
|
|
+ Rnd,
|
|
|
|
+ CountObj,
|
|
|
|
+ MsecsCount,
|
|
|
|
+ QSPVer,
|
|
|
|
+ UserText,
|
|
|
|
+ CurLoc,
|
|
|
|
+ SelObj,
|
|
|
|
+ SelAct,
|
|
|
|
+ MainText,
|
|
|
|
+ StatText,
|
|
|
|
+ CurActs,
|
|
|
|
+
|
|
|
|
+ Last_Operation
|
|
|
|
+ };
|
|
|
|
+
|
|
|
|
+ static public QspStatement[] qspStats;
|
|
|
|
+ static QspStatementName[,] qspStatsNames;
|
|
|
|
+ static int[] qspStatsNamesCounts;
|
|
|
|
+ static int qspStatMaxLen;
|
|
|
|
+ static public QspFunction[] qspOps;
|
|
|
|
+ static QspFunctionName[,] qspOpsNames;
|
|
|
|
+ static int[] qspOpsNamesCounts;
|
|
|
|
+ static int qspOpMaxLen;
|
|
|
|
+ static bool inited = false;
|
|
|
|
+
|
|
|
|
+ public class QspVariable
|
|
|
|
+ {
|
|
|
|
+ public bool IsString;
|
|
|
|
+ public string Name;
|
|
|
|
+ public bool Assigned;
|
|
|
|
+ public bool Used;
|
|
|
|
+ public QspVariable(string name, bool assigned, bool used)
|
|
|
|
+ {
|
|
|
|
+ IsString = name.IndexOf('$') == 0;
|
|
|
|
+ Name = name;
|
|
|
|
+ Assigned = assigned;
|
|
|
|
+ Used = used;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ public class QspLocationLink
|
|
|
|
+ {
|
|
|
|
+ public string LocationName;
|
|
|
|
+ public bool LocationExists;
|
|
|
|
+ public bool LocationCalled;
|
|
|
|
+ public QspLocationLink(string name, bool exists, bool called)
|
|
|
|
+ {
|
|
|
|
+ LocationName = name;
|
|
|
|
+ LocationExists = exists;
|
|
|
|
+ LocationCalled = called;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ public class QspObj
|
|
|
|
+ {
|
|
|
|
+ public string Name;
|
|
|
|
+ public bool Added;
|
|
|
|
+ public bool Removed;
|
|
|
|
+ public QspObj(string name, bool added, bool removed)
|
|
|
|
+ {
|
|
|
|
+ Name = name;
|
|
|
|
+ Added = added;
|
|
|
|
+ Removed = removed;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ public class QspAct
|
|
|
|
+ {
|
|
|
|
+ public string Name;
|
|
|
|
+ public bool Added;
|
|
|
|
+ public bool Removed;
|
|
|
|
+ public QspAct(string name, bool added, bool removed)
|
|
|
|
+ {
|
|
|
|
+ Name = name;
|
|
|
|
+ Added = added;
|
|
|
|
+ Removed = removed;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ static public List<QspVariable> vars;
|
|
|
|
+ static public List<QspLocationLink> locationLinks;
|
|
|
|
+ static public List<QspObj> objects;
|
|
|
|
+ static public List<QspAct> acts;
|
|
|
|
+
|
|
|
|
+ static public List<string> callerVariables;
|
|
|
|
+ static public List<string> systemVariables;
|
|
|
|
+ static public bool curlyParsing;
|
|
|
|
+
|
|
|
|
+ static public string currentLocation;
|
|
|
|
+
|
|
|
|
+ public enum QuoteType
|
|
|
|
+ {
|
|
|
|
+ None,
|
|
|
|
+ Single,
|
|
|
|
+ Double
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ public struct QspError
|
|
|
|
+ {
|
|
|
|
+ public string locationName; //Локация, на которой встретилась ошибка
|
|
|
|
+ public string text; //Текст сообщения об ошибке
|
|
|
|
+ public int line; //Номер строки в локации
|
|
|
|
+ public bool isError; //Тип ошибки, если "true" - ошибка синтаксиса, если "false" - предупреждение
|
|
|
|
+ }
|
|
|
|
+ static List<QspError> m_errors;
|
|
|
|
+ static int m_errorCounter;
|
|
|
|
+ public static int GetErrorsCount()
|
|
|
|
+ {
|
|
|
|
+ return m_errorCounter;
|
|
|
|
+ }
|
|
|
|
+ static int m_warningCounter;
|
|
|
|
+ public static int GetWarningsCount()
|
|
|
|
+ {
|
|
|
|
+ return m_warningCounter;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ public Common()
|
|
|
|
+ {
|
|
|
|
+ if (!inited)
|
|
|
|
+ {
|
|
|
|
+ inited = true;
|
|
|
|
+ qspStats = new QspStatement[(int)QspStatementType.Last_Statement];
|
|
|
|
+ qspStatsNames = new QspStatementName[QSP_STATSLEVELS, QSP_MAXSTATSNAMES];
|
|
|
|
+ qspStatsNamesCounts = new int[QSP_STATSLEVELS];
|
|
|
|
+ qspOps = new QspFunction[(int)QspFunctionType.Last_Operation];
|
|
|
|
+ qspOpsNames = new QspFunctionName[QSP_OPSLEVELS, QSP_MAXOPSNAMES];
|
|
|
|
+ qspOpsNamesCounts = new int[QSP_OPSLEVELS];
|
|
|
|
+
|
|
|
|
+ m_errors = new List<QspError>();
|
|
|
|
+ InitQsp();
|
|
|
|
+ ClearErrors();
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void ClearErrors()
|
|
|
|
+ {
|
|
|
|
+ m_errors.Clear();
|
|
|
|
+ m_errorCounter = 0;
|
|
|
|
+ m_warningCounter = 0;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void ClearNonGameErrors()
|
|
|
|
+ {
|
|
|
|
+ for (int index = 0; index < m_errors.Count; ++index)
|
|
|
|
+ {
|
|
|
|
+ if (m_errors[index].isError && (m_errors[index].line == INVALID_INDEX))
|
|
|
|
+ {
|
|
|
|
+
|
|
|
|
+ m_errors.RemoveAt(index);
|
|
|
|
+ --index;
|
|
|
|
+ m_errorCounter--;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void SubmitError(string text, int line)
|
|
|
|
+ {
|
|
|
|
+ QspError e;
|
|
|
|
+ e.locationName = currentLocation;
|
|
|
|
+ e.text = text;
|
|
|
|
+ e.line = line;
|
|
|
|
+ e.isError = true;
|
|
|
|
+ m_errors.Add(e);
|
|
|
|
+ m_errorCounter++;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void SubmitWarning(string text, int line)
|
|
|
|
+ {
|
|
|
|
+ QspError w;
|
|
|
|
+ w.locationName = currentLocation;
|
|
|
|
+ w.text = text;
|
|
|
|
+ w.line = line;
|
|
|
|
+ w.isError = false;
|
|
|
|
+ m_errors.Add(w);
|
|
|
|
+ m_warningCounter++;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public List<QspError> GetErrors()
|
|
|
|
+ {
|
|
|
|
+ return m_errors;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public bool StartOfMultiWordOperator(string op)
|
|
|
|
+ {
|
|
|
|
+ return op.ToUpper().Equals("ADD") || op.ToUpper().Equals("DEL");
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void qspAddStatement(int statCode, int extArg, /*QSP_STATEMENT func,*/ int minArgs, int maxArgs, params int[] marker)
|
|
|
|
+ {
|
|
|
|
+ int i;
|
|
|
|
+ qspStats[statCode].ExtArg = extArg;
|
|
|
|
+ //qspStats[statCode].Func = func;
|
|
|
|
+ qspStats[statCode].MinArgsCount = minArgs;
|
|
|
|
+ qspStats[statCode].MaxArgsCount = maxArgs;
|
|
|
|
+ qspStats[statCode].ArgsTypes = new int[QSP_STATMAXARGS];
|
|
|
|
+ if (maxArgs > 0)
|
|
|
|
+ {
|
|
|
|
+ for (i = 0; i < maxArgs; ++i)
|
|
|
|
+ qspStats[statCode].ArgsTypes[i] = marker[i];
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void qspAddStatName(int statCode, string statName, int level)
|
|
|
|
+ {
|
|
|
|
+ int len = statName.Length;
|
|
|
|
+ int count = qspStatsNamesCounts[level];
|
|
|
|
+ qspStatsNames[level, count].Name = statName;
|
|
|
|
+ qspStatsNames[level, count].NameLen = len;
|
|
|
|
+ qspStatsNames[level, count].Code = statCode;
|
|
|
|
+ qspStatsNamesCounts[level] = count + 1;
|
|
|
|
+ /* Max length */
|
|
|
|
+ if (len > qspStatMaxLen) qspStatMaxLen = len;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void qspAddOperation(int opCode, int priority, /*QSP_FUNCTION func,*/ int resType, int minArgs, int maxArgs, params int[] marker)
|
|
|
|
+ {
|
|
|
|
+ int i;
|
|
|
|
+ qspOps[opCode].Priority = priority;
|
|
|
|
+ //qspOps[opCode].Func = func;
|
|
|
|
+ qspOps[opCode].ResType = resType;
|
|
|
|
+ qspOps[opCode].MinArgsCount = minArgs;
|
|
|
|
+ qspOps[opCode].MaxArgsCount = maxArgs;
|
|
|
|
+ qspOps[opCode].ArgsTypes = new int[QSP_OPMAXARGS];
|
|
|
|
+ if (maxArgs > 0)
|
|
|
|
+ {
|
|
|
|
+ for (i = 0; i < maxArgs; ++i)
|
|
|
|
+ qspOps[opCode].ArgsTypes[i] = marker[i];
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void qspAddOpName(int opCode, string opName, int level)
|
|
|
|
+ {
|
|
|
|
+ int len = opName.Length;
|
|
|
|
+ int count = qspOpsNamesCounts[level];
|
|
|
|
+ qspOpsNames[level, count].Name = opName;
|
|
|
|
+ qspOpsNames[level, count].NameLen = len;
|
|
|
|
+ qspOpsNames[level, count].Code = opCode;
|
|
|
|
+ qspOpsNamesCounts[level] = count + 1;
|
|
|
|
+ /* Max length */
|
|
|
|
+ if (len > qspOpMaxLen) qspOpMaxLen = len;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+
|
|
|
|
+ static public void InitQsp()
|
|
|
|
+ {
|
|
|
|
+ qspStatMaxLen = 0;
|
|
|
|
+ // код оператора, ExtArg, минимальное кол-во аргументов, максимальное кол-во аргументов, типы аргументов
|
|
|
|
+ // 0 - авто
|
|
|
|
+ // 1 - строка
|
|
|
|
+ // 2 - числовой
|
|
|
|
+ qspAddStatement((int)QspStatementType.Else, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.ElseIf, 0, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.End, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Local, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Set, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.If, 0, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Act, 0, 1, 2, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.For, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.AddObj, 0, 1, 3, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.ClA, 3, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.CloseAll, 1, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Close, 0, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.ClS, 4, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.CmdClear, 2, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.CopyArr, 0, 2, 4, 1, 1, 2, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.DelAct, 0, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.DelObj, 0, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Dynamic, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Exec, 0, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Exit, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.KillQST, 6, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.DelLib, 6, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.FreeLib, 6, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.GoSub, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.GoTo, 1, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.AddQST, 1, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.AddLib, 1, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.IncLib, 1, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Jump, 0, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.KillAll, 5, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.KillObj, 1, 0, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.KillVar, 0, 0, 2, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Menu, 0, 1, 3, 1, 2, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.MClear, 1, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.MNL, 5, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.MPL, 3, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.MP, 1, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Clear, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.NL, 4, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.PL, 2, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.P, 0, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Msg, 0, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.OpenGame, 0, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.OpenQst, 0, 1, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Play, 0, 1, 2, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.RefInt, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.SaveGame, 0, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.SetTimer, 0, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.ShowActs, 0, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.ShowInput, 3, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.ShowObjs, 1, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.ShowVars, 2, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.UnSelect, 0, 0, 0);
|
|
|
|
+ qspAddStatement((int)QspStatementType.View, 0, 0, 1, 1);
|
|
|
|
+ qspAddStatement((int)QspStatementType.Wait, 0, 1, 1, 2);
|
|
|
|
+ qspAddStatement((int)QspStatementType.XGoTo, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ /* Names */
|
|
|
|
+ qspAddStatName((int)QspStatementType.Else, "ELSE", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.ElseIf, "ELSEIF", 1);
|
|
|
|
+ qspAddStatName((int)QspStatementType.End, "END", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Local, "LOCAL", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Set, "SET", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Set, "LET", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.If, "IF", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Act, "ACT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.For, "FOR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.AddObj, "ADDOBJ", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.AddObj, "ADD OBJ", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.ClA, "CLA", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.CloseAll, "CLOSE ALL", 1);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Close, "CLOSE", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.ClS, "CLS", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.CmdClear, "CMDCLEAR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.CmdClear, "CMDCLR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.CopyArr, "COPYARR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.DelAct, "DELACT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.DelAct, "DEL ACT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.DelObj, "DELOBJ", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.DelObj, "DEL OBJ", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Dynamic, "DYNAMIC", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Exec, "EXEC", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Exit, "EXIT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.KillQST, "KILLQST", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.DelLib, "DELLIB", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.FreeLib, "FREELIB", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.GoSub, "GOSUB", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.GoSub, "GS", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.GoTo, "GOTO", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.GoTo, "GT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.AddQST, "ADDQST", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.AddLib, "ADDLIB", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.IncLib, "INCLIB", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Jump, "JUMP", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.KillAll, "KILLALL", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.KillObj, "KILLOBJ", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.KillVar, "KILLVAR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Menu, "MENU", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.MClear, "*CLEAR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.MClear, "*CLR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.MNL, "*NL", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.MPL, "*PL", 1);
|
|
|
|
+ qspAddStatName((int)QspStatementType.MP, "*P", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Clear, "CLEAR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Clear, "CLR", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.NL, "NL", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.PL, "PL", 1);
|
|
|
|
+ qspAddStatName((int)QspStatementType.P, "P", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Msg, "MSG", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.OpenGame, "OPENGAME", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.OpenQst, "OPENQST", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Play, "PLAY", 0);
|
|
|
|
+ qspAddStatName((int)QspStatementType.RefInt, "REFINT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.SaveGame, "SAVEGAME", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.SetTimer, "SETTIMER", 1);
|
|
|
|
+ qspAddStatName((int)QspStatementType.ShowActs, "SHOWACTS", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.ShowInput, "SHOWINPUT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.ShowObjs, "SHOWOBJS", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.ShowVars, "SHOWSTAT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.UnSelect, "UNSELECT", 1);
|
|
|
|
+ qspAddStatName((int)QspStatementType.UnSelect, "UNSEL", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.View, "VIEW", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.Wait, "WAIT", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.XGoTo, "XGOTO", 2);
|
|
|
|
+ qspAddStatName((int)QspStatementType.XGoTo, "XGT", 2);
|
|
|
|
+
|
|
|
|
+ //Математические операторы и функции
|
|
|
|
+ int i;
|
|
|
|
+ for (i = 0; i < QSP_OPSLEVELS; ++i) qspOpsNamesCounts[i] = 0;
|
|
|
|
+ qspOpMaxLen = 0;
|
|
|
|
+ // код оператора, приоритет, тип результата, минимальное кол-во аргументов, максимальное кол-во аргументов, типы аргументов
|
|
|
|
+ // 0 - авто
|
|
|
|
+ // 1 - строка
|
|
|
|
+ // 2 - числовой
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Value, 0, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Start, 127, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.End, 0, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.OpenBracket, 127, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.CloseBracket, 0, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Minus, 18, 2, 1, 1, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Add, 14, 0, 2, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Sub, 14, 2, 2, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Mul, 17, 2, 2, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Div, 17, 2, 2, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Mod, 16, 2, 2, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Ne, 10, 2, 2, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Leq, 10, 2, 2, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Geq, 10, 2, 2, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Eq, 10, 2, 2, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Lt, 10, 2, 2, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Gt, 10, 2, 2, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Append, 12, 1, 2, 2, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Comma, 0, 1, 2, 2, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.And, 7, 2, 2, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Or, 6, 2, 2, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Loc, 8, 2, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Obj, 8, 2, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Not, 8, 2, 1, 1, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Min, 30, 0, 1, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Max, 30, 0, 1, 10, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Rand, 30, 2, 1, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.IIf, 30, 0, 3, 3, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.RGB, 30, 2, 3, 4, 2, 2, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Len, 30, 2, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.IsNum, 30, 2, 1, 1, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.LCase, 30, 1, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.UCase, 30, 1, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Input, 30, 1, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Str, 30, 1, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Val, 30, 2, 1, 1, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.ArrSize, 30, 2, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.IsPlay, 30, 2, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Desc, 30, 1, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Trim, 30, 1, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.GetObj, 30, 1, 1, 1, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.StrComp, 30, 2, 2, 2, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.StrFind, 30, 1, 2, 3, 1, 1, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.StrPos, 30, 2, 2, 3, 1, 1, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Mid, 30, 1, 2, 3, 1, 2, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.ArrPos, 30, 2, 2, 3, 1, 0, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.ArrComp, 30, 2, 2, 3, 1, 0, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Instr, 30, 2, 2, 3, 1, 1, 2);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Replace, 30, 1, 2, 3, 1, 1, 1);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Func, 30, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.DynEval, 30, 0, 1, 10, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.Rnd, 30, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.CountObj, 30, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.MsecsCount, 30, 2, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.QSPVer, 30, 1, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.UserText, 30, 1, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.CurLoc, 30, 1, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.SelObj, 30, 1, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.SelAct, 30, 1, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.MainText, 30, 1, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.StatText, 30, 1, 0, 0);
|
|
|
|
+ qspAddOperation((int)QspFunctionType.CurActs, 30, 1, 0, 0);
|
|
|
|
+ /* Names */
|
|
|
|
+ qspAddOpName((int)QspFunctionType.CloseBracket, ")", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Add, "+", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Sub, "-", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Mul, "*", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Div, "/", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Mod, "MOD", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Ne, "!", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Ne, "<>", 0);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Leq, "<=", 0);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Leq, "=<", 0);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Geq, ">=", 0);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Geq, "=>", 0);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Eq, "=", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Lt, "<", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Gt, ">", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Append, "&", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Comma, ",", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.And, "AND", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Or, "OR", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Loc, "LOC", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Obj, "OBJ", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Not, "NO", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Min, "MIN", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Min, "$MIN", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Max, "MAX", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Max, "$MAX", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Rand, "RAND", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.IIf, "IIF", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.IIf, "$IIF", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.RGB, "RGB", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Len, "LEN", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.IsNum, "ISNUM", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.LCase, "LCASE", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.LCase, "$LCASE", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.UCase, "UCASE", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.UCase, "$UCASE", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Input, "INPUT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Input, "$INPUT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Str, "STR", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Str, "$STR", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Val, "VAL", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.ArrSize, "ARRSIZE", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.IsPlay, "ISPLAY", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Desc, "DESC", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Desc, "$DESC", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Trim, "TRIM", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Trim, "$TRIM", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.GetObj, "GETOBJ", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.GetObj, "$GETOBJ", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.StrComp, "STRCOMP", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.StrFind, "STRFIND", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.StrFind, "$STRFIND", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.StrPos, "STRPOS", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Mid, "MID", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Mid, "$MID", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.ArrPos, "ARRPOS", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.ArrComp, "ARRCOMP", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Instr, "INSTR", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Replace, "REPLACE", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Replace, "$REPLACE", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Func, "FUNC", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Func, "$FUNC", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.DynEval, "DYNEVAL", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.DynEval, "$DYNEVAL", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.Rnd, "RND", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.CountObj, "COUNTOBJ", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.MsecsCount, "MSECSCOUNT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.QSPVer, "QSPVER", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.QSPVer, "$QSPVER", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.UserText, "USER_TEXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.UserText, "$USER_TEXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.UserText, "USRTXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.UserText, "$USRTXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.CurLoc, "CURLOC", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.CurLoc, "$CURLOC", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.SelObj, "SELOBJ", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.SelObj, "$SELOBJ", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.SelAct, "SELACT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.SelAct, "$SELACT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.MainText, "MAINTXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.MainText, "$MAINTXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.StatText, "STATTXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.StatText, "$STATTXT", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.CurActs, "CURACTS", 1);
|
|
|
|
+ qspAddOpName((int)QspFunctionType.CurActs, "$CURACTS", 1);
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public int qspGetStatCode(string s)
|
|
|
|
+ {
|
|
|
|
+ if (s.Length == 0)
|
|
|
|
+ return (int)QspStatementType.Unknown;
|
|
|
|
+ if (s[0] == ':')
|
|
|
|
+ return (int)QspStatementType.Label;
|
|
|
|
+ if (s[0] == '!')
|
|
|
|
+ return (int)QspStatementType.Comment;
|
|
|
|
+ int len;
|
|
|
|
+ if (s.Length < qspStatMaxLen)
|
|
|
|
+ len = s.Length;
|
|
|
|
+ else
|
|
|
|
+ len = qspStatMaxLen;
|
|
|
|
+ string name = s.Substring(0, len).ToUpper().Trim(WhiteSpace);
|
|
|
|
+ for (int i = 0; i < QSP_STATSLEVELS; ++i)
|
|
|
|
+ {
|
|
|
|
+ for (int j = 0; j < qspStatsNamesCounts[i]; j++)
|
|
|
|
+ {
|
|
|
|
+ if (name.Equals(qspStatsNames[i,j].Name))
|
|
|
|
+ return qspStatsNames[i,j].Code;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ return (int)QspStatementType.Unknown;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public int qspGetFunctionCode(string s, bool functionsOnly)
|
|
|
|
+ {
|
|
|
|
+ if (s.Length == 0)
|
|
|
|
+ return (int)QspFunctionType.End;
|
|
|
|
+ int len;
|
|
|
|
+ if (s.Length < qspOpMaxLen)
|
|
|
|
+ len = s.Length;
|
|
|
|
+ else
|
|
|
|
+ len = qspOpMaxLen;
|
|
|
|
+ string name = s.Substring(0, len).ToUpper().Trim(WhiteSpace);
|
|
|
|
+ for (int i = 0; i < QSP_OPSLEVELS; ++i)
|
|
|
|
+ {
|
|
|
|
+ for (int j = 0; j < qspOpsNamesCounts[i]; j++)
|
|
|
|
+ {
|
|
|
|
+ if ((name.Equals(qspOpsNames[i, j].Name)) &&
|
|
|
|
+ (!functionsOnly || (qspOpsNames[i, j].Code >= (int)QspFunctionType.First_Function)))
|
|
|
|
+ return qspOpsNames[i, j].Code;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ return (int)QspFunctionType.Unknown;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public QspVariable GetVar(string name)
|
|
|
|
+ {
|
|
|
|
+ foreach (QspVariable var in vars)
|
|
|
|
+ {
|
|
|
|
+ if (var.Name.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
+ return var;
|
|
|
|
+ }
|
|
|
|
+ return null;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void AddVar(string name, bool assigned, bool used)
|
|
|
|
+ {
|
|
|
|
+ QspVariable var = GetVar(name);
|
|
|
|
+ if (var == null)
|
|
|
|
+ {
|
|
|
|
+ var = new QspVariable(name, assigned, used);
|
|
|
|
+ vars.Add(var);
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ if (assigned)
|
|
|
|
+ var.Assigned = assigned;
|
|
|
|
+ if (used)
|
|
|
|
+ var.Used = used;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public QspLocationLink GetLocationLink(string name)
|
|
|
|
+ {
|
|
|
|
+ foreach (QspLocationLink loc in locationLinks)
|
|
|
|
+ {
|
|
|
|
+ if (loc.LocationName.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
+ return loc;
|
|
|
|
+ }
|
|
|
|
+ return null;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void AddLocationLink(string name, bool exists, bool called)
|
|
|
|
+ {
|
|
|
|
+ QspLocationLink loc = GetLocationLink(name);
|
|
|
|
+ if (loc == null)
|
|
|
|
+ {
|
|
|
|
+ loc = new QspLocationLink(name, exists, called);
|
|
|
|
+ locationLinks.Add(loc);
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ if (exists)
|
|
|
|
+ loc.LocationExists = exists;
|
|
|
|
+ if (called)
|
|
|
|
+ loc.LocationCalled = called;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public QspObj GetObj(string name)
|
|
|
|
+ {
|
|
|
|
+ foreach (QspObj obj in objects)
|
|
|
|
+ {
|
|
|
|
+ if (obj.Name.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
+ return obj;
|
|
|
|
+ }
|
|
|
|
+ return null;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void AddObj(string name, bool added, bool removed)
|
|
|
|
+ {
|
|
|
|
+ QspObj obj = GetObj(name);
|
|
|
|
+ if (obj == null)
|
|
|
|
+ {
|
|
|
|
+ obj = new QspObj(name, added, removed);
|
|
|
|
+ objects.Add(obj);
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ if (added)
|
|
|
|
+ obj.Added = added;
|
|
|
|
+ if (removed)
|
|
|
|
+ obj.Removed = removed;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public QspAct GetAct(string name)
|
|
|
|
+ {
|
|
|
|
+ foreach (QspAct act in acts)
|
|
|
|
+ {
|
|
|
|
+ if (act.Name.Equals(name, StringComparison.OrdinalIgnoreCase))
|
|
|
|
+ return act;
|
|
|
|
+ }
|
|
|
|
+ return null;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void AddAct(string name, bool added, bool removed)
|
|
|
|
+ {
|
|
|
|
+ QspAct act = GetAct(name);
|
|
|
|
+ if (act == null)
|
|
|
|
+ {
|
|
|
|
+ act = new QspAct(name, added, removed);
|
|
|
|
+ acts.Add(act);
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ if (added)
|
|
|
|
+ act.Added = added;
|
|
|
|
+ if (removed)
|
|
|
|
+ act.Removed = removed;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public void SetConfig(List<string> callerVars, List<string> systemVars, bool EnableCurlyParsing)
|
|
|
|
+ {
|
|
|
|
+ callerVariables = callerVars;
|
|
|
|
+ systemVariables = systemVars;
|
|
|
|
+ curlyParsing = EnableCurlyParsing;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public bool IsNumber(String s)
|
|
|
|
+ {
|
|
|
|
+ foreach (char c in s.ToCharArray())
|
|
|
|
+ {
|
|
|
|
+ if (Array.IndexOf(Digits, c) == INVALID_INDEX)
|
|
|
|
+ return false;
|
|
|
|
+ }
|
|
|
|
+ return true;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public bool ListContainsIgnoreCase(List<string> stringList, string value)
|
|
|
|
+ {
|
|
|
|
+ bool contains = null != stringList.Find(delegate(string str)
|
|
|
|
+ {
|
|
|
|
+ return str.Equals(value, StringComparison.OrdinalIgnoreCase);
|
|
|
|
+ });
|
|
|
|
+ return contains;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public string GenerateCsvName(string FileName)
|
|
|
|
+ {
|
|
|
|
+ string result = FileName;
|
|
|
|
+ if (result.EndsWith(".txt"))
|
|
|
|
+ result = result.Substring(0, result.Length - 4);
|
|
|
|
+ result = result + ".csv";
|
|
|
|
+ return result;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public bool ExportToCsv(string srcFile, string delimiter)
|
|
|
|
+ {
|
|
|
|
+ //Выгружаем исходный код в CSV
|
|
|
|
+ //4 колонки: номер+локация, оригинал, место для перевода, место для комментария
|
|
|
|
+
|
|
|
|
+ string dstFile = GenerateCsvName(srcFile);
|
|
|
|
+
|
|
|
|
+ StreamReader fi = null;
|
|
|
|
+ if (!OpenStreamForReading(ref fi, srcFile))
|
|
|
|
+ {
|
|
|
|
+ return false;
|
|
|
|
+ }
|
|
|
|
+ StreamWriter fo = null;
|
|
|
|
+ if (!OpenStreamForWriting(ref fo, dstFile))
|
|
|
|
+ {
|
|
|
|
+ fi.Close();
|
|
|
|
+ return false;
|
|
|
|
+ }
|
|
|
|
+ string line;
|
|
|
|
+ int line_counter = 0;
|
|
|
|
+ int quoted_line_counter = 0;
|
|
|
|
+ bool inside = false;
|
|
|
|
+ string locName = null;
|
|
|
|
+
|
|
|
|
+ int quote = (int)QuoteType.None;
|
|
|
|
+ string quotedText = "";
|
|
|
|
+ bool quotedTextCompleted = false;
|
|
|
|
+
|
|
|
|
+ while ((line = fi.ReadLine()) != null)
|
|
|
|
+ {
|
|
|
|
+ line_counter++;
|
|
|
|
+ line = line.Trim(WhiteSpace);
|
|
|
|
+ if ((line.Length > 0) && (line[0] == '#'))
|
|
|
|
+ {
|
|
|
|
+ //имя локации
|
|
|
|
+ locName = line.Substring(1).Trim(WhiteSpace);
|
|
|
|
+ inside = true;
|
|
|
|
+ }
|
|
|
|
+ else if ((line.Length > 38) && line.StartsWith("--- ") && line.EndsWith(" ---------------------------------"))
|
|
|
|
+ {
|
|
|
|
+ inside = false;
|
|
|
|
+ locName = null;
|
|
|
|
+ }
|
|
|
|
+ else if (inside)
|
|
|
|
+ {
|
|
|
|
+ //Разбираем только строки внутри локаций
|
|
|
|
+ int pos = 0;
|
|
|
|
+
|
|
|
|
+ //Разбор строки
|
|
|
|
+ while (pos < line.Length)
|
|
|
|
+ {
|
|
|
|
+ char c = line[pos];
|
|
|
|
+ if (c == '\'')
|
|
|
|
+ {
|
|
|
|
+ //Апостроф
|
|
|
|
+ if (quote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.Single;
|
|
|
|
+ quotedText = "";
|
|
|
|
+ }
|
|
|
|
+ else if (quote == (int)QuoteType.Single)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
+ {
|
|
|
|
+ //Экранированный апостроф
|
|
|
|
+ pos++;
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.None;
|
|
|
|
+ quotedTextCompleted = true;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (c == '"')
|
|
|
|
+ {
|
|
|
|
+ //Кавычка
|
|
|
|
+ if (quote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.Double;
|
|
|
|
+ quotedText = "";
|
|
|
|
+ }
|
|
|
|
+ else if (quote == (int)QuoteType.Double)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
+ {
|
|
|
|
+ //Экранированная кавычка
|
|
|
|
+ pos++;
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.None;
|
|
|
|
+ quotedTextCompleted = true;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (quote != (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ //Строка текста внутри кавычек или апострофов
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ else if (c == '{')
|
|
|
|
+ {
|
|
|
|
+ //Пропускаем содержимое фигурных скобок
|
|
|
|
+ int curlyLevel = 1;
|
|
|
|
+ pos++;
|
|
|
|
+ int curlyQuote = (int)QuoteType.None;
|
|
|
|
+ while (pos < line.Length)
|
|
|
|
+ {
|
|
|
|
+ char c2 = line[pos];
|
|
|
|
+
|
|
|
|
+ if (c2 == '\'')
|
|
|
|
+ {
|
|
|
|
+ //Апостроф
|
|
|
|
+ if (curlyQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.Single;
|
|
|
|
+ }
|
|
|
|
+ else if (curlyQuote == (int)QuoteType.Single)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
+ {
|
|
|
|
+ //Экранированный апостроф
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.None;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (c2 == '"')
|
|
|
|
+ {
|
|
|
|
+ //Кавычка
|
|
|
|
+ if (curlyQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.Double;
|
|
|
|
+ }
|
|
|
|
+ else if (curlyQuote == (int)QuoteType.Double)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
+ {
|
|
|
|
+ //Экранированная кавычка
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.None;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (curlyQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ if (c2 == '{')
|
|
|
|
+ {
|
|
|
|
+ curlyLevel++;
|
|
|
|
+ }
|
|
|
|
+ else if (c2 == '}')
|
|
|
|
+ {
|
|
|
|
+ curlyLevel--;
|
|
|
|
+ if (curlyLevel == 0)
|
|
|
|
+ break;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ if (quotedTextCompleted)
|
|
|
|
+ {
|
|
|
|
+ //Формируем строку для csv-файла
|
|
|
|
+ //4 колонки: номер+локация, оригинал, место для перевода, место для комментария
|
|
|
|
+ if (quotedText.Trim(WhiteSpace).Length > 0)
|
|
|
|
+ {
|
|
|
|
+ quoted_line_counter++;
|
|
|
|
+
|
|
|
|
+ string csv_line = "";
|
|
|
|
+ csv_line += CsvEscape(quoted_line_counter.ToString() + ":" + locName) + delimiter;
|
|
|
|
+ csv_line += CsvEscape(quotedText) + delimiter;
|
|
|
|
+ csv_line += CsvEscape("") + delimiter;
|
|
|
|
+ csv_line += CsvEscape("");
|
|
|
|
+
|
|
|
|
+ //Записываем строку в csv-файл
|
|
|
|
+ fo.WriteLine(csv_line);
|
|
|
|
+ }
|
|
|
|
+ quotedTextCompleted = false;
|
|
|
|
+ }
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ fi.Close();
|
|
|
|
+ fo.Close();
|
|
|
|
+ return true;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public string CsvEscape(string src)
|
|
|
|
+ {
|
|
|
|
+ //Форматируем строку для записи в csv-файл
|
|
|
|
+ string result = "\"" + src.Replace("\"", "\"\"") + "\"";
|
|
|
|
+ return result;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public string CsvUnEscape(string src)
|
|
|
|
+ {
|
|
|
|
+ //Преобразовываем строку из csv-формата в обычный текст
|
|
|
|
+ string result = src;
|
|
|
|
+ if (src.StartsWith("\""))
|
|
|
|
+ {
|
|
|
|
+ result = result.Substring(1, result.Length - 2);
|
|
|
|
+ result = result.Replace("\"\"", "\"");
|
|
|
|
+ }
|
|
|
|
+ return result;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public bool TranslateFromCsv(string srcFile, string suffix, bool IgnoreEmptyTranslations, string delimiter)
|
|
|
|
+ {
|
|
|
|
+ //Создаем перевод на основе загруженного файла и CSV
|
|
|
|
+ //Проверяем соответствие номера, локации, оригинального текста, в случае несовпадения выдаем ошибку и не сохраняем файл
|
|
|
|
+ //Для пустых строк заполняем текстом оригинала, либо выдаем ошибку - в зависимости от настроек.
|
|
|
|
+
|
|
|
|
+ string dstFile = srcFile;
|
|
|
|
+ if (dstFile.EndsWith(".txt"))
|
|
|
|
+ dstFile = dstFile.Substring(0, dstFile.Length - 4);
|
|
|
|
+ dstFile = dstFile + suffix + ".txt";
|
|
|
|
+
|
|
|
|
+ string csvFile = GenerateCsvName(srcFile);
|
|
|
|
+
|
|
|
|
+ StreamReader fi_src = null;
|
|
|
|
+ if (!OpenStreamForReading(ref fi_src, srcFile))
|
|
|
|
+ {
|
|
|
|
+ return false;
|
|
|
|
+ }
|
|
|
|
+ StreamReader fi_csv = null;
|
|
|
|
+ if (!OpenStreamForReading(ref fi_csv, csvFile))
|
|
|
|
+ {
|
|
|
|
+ fi_src.Close();
|
|
|
|
+ return false;
|
|
|
|
+ }
|
|
|
|
+ StreamWriter fo = null;
|
|
|
|
+ if (!OpenStreamForWriting(ref fo, dstFile))
|
|
|
|
+ {
|
|
|
|
+ fi_src.Close();
|
|
|
|
+ fi_csv.Close();
|
|
|
|
+ return false;
|
|
|
|
+ }
|
|
|
|
+ string line;
|
|
|
|
+ string line_cut;
|
|
|
|
+ int line_counter = 0;
|
|
|
|
+ int quoted_line_counter = 0;
|
|
|
|
+ bool inside = false;
|
|
|
|
+ string locName = null;
|
|
|
|
+
|
|
|
|
+ int quote = (int)QuoteType.None;
|
|
|
|
+ string quotedText = "";
|
|
|
|
+ bool quotedTextCompleted = false;
|
|
|
|
+
|
|
|
|
+ string rawText = "";
|
|
|
|
+
|
|
|
|
+ bool aborted = false;
|
|
|
|
+
|
|
|
|
+ while ((line = fi_src.ReadLine()) != null)
|
|
|
|
+ {
|
|
|
|
+ line_counter++;
|
|
|
|
+ line_cut = line.Trim(WhiteSpace);
|
|
|
|
+ if ((line_cut.Length > 0) && (line_cut[0] == '#'))
|
|
|
|
+ {
|
|
|
|
+ //имя локации
|
|
|
|
+ locName = line_cut.Substring(1).Trim(WhiteSpace);
|
|
|
|
+ inside = true;
|
|
|
|
+ fo.WriteLine(line);
|
|
|
|
+ }
|
|
|
|
+ else if ((line_cut.Length > 38) && line_cut.StartsWith("--- ") && line_cut.EndsWith(" ---------------------------------"))
|
|
|
|
+ {
|
|
|
|
+ inside = false;
|
|
|
|
+ locName = null;
|
|
|
|
+ fo.WriteLine(line);
|
|
|
|
+ }
|
|
|
|
+ else if (inside)
|
|
|
|
+ {
|
|
|
|
+ //Разбираем только строки внутри локаций
|
|
|
|
+ int pos = 0;
|
|
|
|
+
|
|
|
|
+ //Разбор строки
|
|
|
|
+ while (pos < line.Length)
|
|
|
|
+ {
|
|
|
|
+ char c = line[pos];
|
|
|
|
+ if (c == '\'')
|
|
|
|
+ {
|
|
|
|
+ //Апостроф
|
|
|
|
+ if (quote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.Single;
|
|
|
|
+ quotedText = "";
|
|
|
|
+ rawText += c;
|
|
|
|
+ }
|
|
|
|
+ else if (quote == (int)QuoteType.Single)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
+ {
|
|
|
|
+ //Экранированный апостроф
|
|
|
|
+ pos++;
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.None;
|
|
|
|
+ quotedTextCompleted = true;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (c == '"')
|
|
|
|
+ {
|
|
|
|
+ //Кавычка
|
|
|
|
+ if (quote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.Double;
|
|
|
|
+ quotedText = "";
|
|
|
|
+ rawText += c;
|
|
|
|
+ }
|
|
|
|
+ else if (quote == (int)QuoteType.Double)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
+ {
|
|
|
|
+ //Экранированная кавычка
|
|
|
|
+ pos++;
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quote = (int)QuoteType.None;
|
|
|
|
+ quotedTextCompleted = true;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (quote != (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ //Строка текста внутри кавычек или апострофов
|
|
|
|
+ quotedText += c;
|
|
|
|
+ }
|
|
|
|
+ else if (c == '{')
|
|
|
|
+ {
|
|
|
|
+ //Пропускаем содержимое фигурных скобок
|
|
|
|
+ int curlyLevel = 1;
|
|
|
|
+ rawText += c;
|
|
|
|
+ pos++;
|
|
|
|
+ int curlyQuote = (int)QuoteType.None;
|
|
|
|
+ while (pos < line.Length)
|
|
|
|
+ {
|
|
|
|
+ char c2 = line[pos];
|
|
|
|
+ rawText += c2;
|
|
|
|
+
|
|
|
|
+ if (c2 == '\'')
|
|
|
|
+ {
|
|
|
|
+ //Апостроф
|
|
|
|
+ if (curlyQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.Single;
|
|
|
|
+ }
|
|
|
|
+ else if (curlyQuote == (int)QuoteType.Single)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '\''))
|
|
|
|
+ {
|
|
|
|
+ //Экранированный апостроф
|
|
|
|
+ rawText += line[pos + 1];
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.None;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (c2 == '"')
|
|
|
|
+ {
|
|
|
|
+ //Кавычка
|
|
|
|
+ if (curlyQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.Double;
|
|
|
|
+ }
|
|
|
|
+ else if (curlyQuote == (int)QuoteType.Double)
|
|
|
|
+ {
|
|
|
|
+ if ((pos + 1 < line.Length) && (line[pos + 1] == '"'))
|
|
|
|
+ {
|
|
|
|
+ //Экранированная кавычка
|
|
|
|
+ rawText += line[pos + 1];
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ curlyQuote = (int)QuoteType.None;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (curlyQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ if (c2 == '{')
|
|
|
|
+ {
|
|
|
|
+ curlyLevel++;
|
|
|
|
+ }
|
|
|
|
+ else if (c2 == '}')
|
|
|
|
+ {
|
|
|
|
+ curlyLevel--;
|
|
|
|
+ if (curlyLevel == 0)
|
|
|
|
+ break;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ rawText += c;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ if (quotedTextCompleted)
|
|
|
|
+ {
|
|
|
|
+ //Читаем строку из файла перевода
|
|
|
|
+ string translation = quotedText;
|
|
|
|
+
|
|
|
|
+ if (quotedText.Trim(WhiteSpace).Length > 0)
|
|
|
|
+ {
|
|
|
|
+ translation = "";
|
|
|
|
+ quoted_line_counter++;
|
|
|
|
+
|
|
|
|
+ bool csvLineCompleted = false;
|
|
|
|
+ string csv_line = null;
|
|
|
|
+ int valuesCount = 0;
|
|
|
|
+ string thirdValue = "";
|
|
|
|
+ int csvQuote = (int)QuoteType.None;
|
|
|
|
+ string csvText = "";
|
|
|
|
+ bool csvValueCompleted = false;
|
|
|
|
+
|
|
|
|
+ int csvLineIndex = INVALID_INDEX;
|
|
|
|
+ string csvLocName = "";
|
|
|
|
+ string csvOriginalLine = "";
|
|
|
|
+
|
|
|
|
+ while (!csvLineCompleted && ((csv_line = fi_csv.ReadLine()) != null))
|
|
|
|
+ {
|
|
|
|
+ int csvPos = 0;
|
|
|
|
+
|
|
|
|
+ //Разбор строки
|
|
|
|
+ while (csvPos < csv_line.Length)
|
|
|
|
+ {
|
|
|
|
+ int newValuesCount = valuesCount;
|
|
|
|
+ char c3 = csv_line[csvPos];
|
|
|
|
+ if (c3 == '"')
|
|
|
|
+ {
|
|
|
|
+ csvText += c3;
|
|
|
|
+ //Кавычка
|
|
|
|
+ if (csvQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ csvQuote = (int)QuoteType.Double;
|
|
|
|
+ }
|
|
|
|
+ else if (csvQuote == (int)QuoteType.Double)
|
|
|
|
+ {
|
|
|
|
+ if ((csvPos + 1 < csv_line.Length) && (csv_line[csvPos + 1] == '"'))
|
|
|
|
+ {
|
|
|
|
+ //Экранированная кавычка
|
|
|
|
+ csvText += csv_line[csvPos + 1];
|
|
|
|
+ csvPos++;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ csvQuote = (int)QuoteType.None;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (csvQuote != (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ //Строка текста внутри кавычек
|
|
|
|
+ csvText += c3;
|
|
|
|
+ }
|
|
|
|
+ else if (c3.ToString() == delimiter)
|
|
|
|
+ {
|
|
|
|
+ newValuesCount++;
|
|
|
|
+ csvValueCompleted = true;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ csvText += c3;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ if ((csvQuote == (int)QuoteType.None) && (csvPos == csv_line.Length - 1))
|
|
|
|
+ {
|
|
|
|
+ newValuesCount++;
|
|
|
|
+ csvValueCompleted = true;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ if (csvValueCompleted)
|
|
|
|
+ {
|
|
|
|
+ for (int iter = valuesCount + 1; iter <= newValuesCount; iter++)
|
|
|
|
+ {
|
|
|
|
+ csvText = CsvUnEscape(csvText.Trim(WhiteSpace));
|
|
|
|
+ if (iter == 1) //Первая колонка - имя локации и номер строки
|
|
|
|
+ {
|
|
|
|
+ string[] csvFirst = csvText.Split(":".ToCharArray());
|
|
|
|
+ if (csvFirst.Length == 2)
|
|
|
|
+ {
|
|
|
|
+ csvLineIndex = Convert.ToInt32(csvFirst[0]);
|
|
|
|
+ csvLocName = csvFirst[1];
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else if (iter == 2) //Вторая колонка - оригинал
|
|
|
|
+ {
|
|
|
|
+ csvOriginalLine = csvText;
|
|
|
|
+ }
|
|
|
|
+ else if (iter == 3) //Третья колонка - перевод
|
|
|
|
+ {
|
|
|
|
+ thirdValue = csvText;
|
|
|
|
+ }
|
|
|
|
+ csvText = "";
|
|
|
|
+ }
|
|
|
|
+ csvValueCompleted = false;
|
|
|
|
+ valuesCount = newValuesCount;
|
|
|
|
+ }
|
|
|
|
+ csvPos++;
|
|
|
|
+ }
|
|
|
|
+ if (csvQuote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ csvLineCompleted = true;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ csvText += Environment.NewLine;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ if ((csv_line == null) || (csvLineCompleted &&
|
|
|
|
+ ((csvLocName != locName) || (quoted_line_counter != csvLineIndex) || (csvOriginalLine != quotedText))))
|
|
|
|
+ {
|
|
|
|
+ SubmitError("CSV-file does not match the original! Generate it again.", INVALID_INDEX);
|
|
|
|
+ aborted = true;
|
|
|
|
+ break;
|
|
|
|
+ }
|
|
|
|
+ if (!csvLineCompleted)
|
|
|
|
+ {
|
|
|
|
+ SubmitError("CSV-file damaged! Line number: " + quoted_line_counter.ToString(), INVALID_INDEX);
|
|
|
|
+ aborted = true;
|
|
|
|
+ break;
|
|
|
|
+ }
|
|
|
|
+ translation = thirdValue;
|
|
|
|
+
|
|
|
|
+ if (translation.Length == 0)
|
|
|
|
+ {
|
|
|
|
+ if (IgnoreEmptyTranslations)
|
|
|
|
+ {
|
|
|
|
+ translation = quotedText;
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ SubmitError("Line number " + quoted_line_counter + " is not converted!", INVALID_INDEX);
|
|
|
|
+ aborted = true;
|
|
|
|
+ break;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ rawText += translation;
|
|
|
|
+ rawText += c;
|
|
|
|
+ quotedTextCompleted = false;
|
|
|
|
+ }
|
|
|
|
+ pos++;
|
|
|
|
+ }
|
|
|
|
+ if (aborted)
|
|
|
|
+ break;
|
|
|
|
+ if (quote == (int)QuoteType.None)
|
|
|
|
+ {
|
|
|
|
+ //Записываем строку в файл перевода
|
|
|
|
+ fo.WriteLine(rawText);
|
|
|
|
+ rawText = "";
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ else
|
|
|
|
+ {
|
|
|
|
+ fo.WriteLine(line);
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+ fi_src.Close();
|
|
|
|
+ fi_csv.Close();
|
|
|
|
+ fo.Close();
|
|
|
|
+ if (aborted)
|
|
|
|
+ {
|
|
|
|
+ //Убить корявый перевод
|
|
|
|
+ File.Delete(dstFile);
|
|
|
|
+ }
|
|
|
|
+ return !aborted;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public bool OpenStreamForReading(ref StreamReader fi, string file)
|
|
|
|
+ {
|
|
|
|
+ bool result = false;
|
|
|
|
+ try
|
|
|
|
+ {
|
|
|
|
+ fi = new StreamReader(file, Encoding.Default);
|
|
|
|
+ result = true;
|
|
|
|
+ }
|
|
|
|
+ catch (Exception e)
|
|
|
|
+ {
|
|
|
|
+ SubmitError("File \"" + file + "\" cannot be opened for reading (it can be opened by another program).", INVALID_INDEX);
|
|
|
|
+ result = false;
|
|
|
|
+ }
|
|
|
|
+ return result;
|
|
|
|
+ }
|
|
|
|
+
|
|
|
|
+ static public bool OpenStreamForWriting(ref StreamWriter fo, string file)
|
|
|
|
+ {
|
|
|
|
+ bool result = false;
|
|
|
|
+ try
|
|
|
|
+ {
|
|
|
|
+ fo = new StreamWriter(file, false, Encoding.Default);
|
|
|
|
+ result = true;
|
|
|
|
+ }
|
|
|
|
+ catch (Exception e)
|
|
|
|
+ {
|
|
|
|
+ SubmitError("File \"" + file + "\" cannot be opened for writing (it can be opened by another program).", INVALID_INDEX);
|
|
|
|
+ result = false;
|
|
|
|
+ }
|
|
|
|
+ return result;
|
|
|
|
+ }
|
|
|
|
+ }
|
|
|
|
+}
|