Common.h 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553
  1. //---------------------------------------------------------------------------
  2. #ifndef CommonH
  3. #define CommonH
  4. //---------------------------------------------------------------------------
  5. #include <vector>
  6. //---------------------------------------------------------------------------
  7. #define EXCEPTION throw ExtException(NULL, L"")
  8. #define THROWOSIFFALSE(C) { if (!(C)) RaiseLastOSError(); }
  9. #define SAFE_DESTROY_EX(CLASS, OBJ) { CLASS * PObj = OBJ; OBJ = NULL; delete PObj; }
  10. #define SAFE_DESTROY(OBJ) SAFE_DESTROY_EX(TObject, OBJ)
  11. #define NULL_TERMINATE(S) S[LENOF(S) - 1] = L'\0'
  12. #define ASCOPY(dest, source) \
  13. { \
  14. AnsiString CopyBuf = source; \
  15. strncpy(dest, CopyBuf.c_str(), LENOF(dest)); \
  16. dest[LENOF(dest)-1] = '\0'; \
  17. }
  18. #define SWAP(TYPE, FIRST, SECOND) \
  19. { TYPE __Backup = FIRST; FIRST = SECOND; SECOND = __Backup; }
  20. //---------------------------------------------------------------------------
  21. #define PARENTDIRECTORY L".."
  22. #define THISDIRECTORY L"."
  23. //---------------------------------------------------------------------------
  24. extern const UnicodeString AnyMask;
  25. extern const wchar_t EngShortMonthNames[12][4];
  26. extern const char Bom[4];
  27. extern const UnicodeString XmlDeclaration;
  28. extern const wchar_t TokenPrefix;
  29. extern const wchar_t NoReplacement;
  30. extern const wchar_t TokenReplacement;
  31. extern const UnicodeString LocalInvalidChars;
  32. extern const UnicodeString PasswordMask;
  33. extern const UnicodeString Ellipsis;
  34. extern const UnicodeString TitleSeparator;
  35. //---------------------------------------------------------------------------
  36. extern const UnicodeString HttpProtocol;
  37. extern const UnicodeString HttpsProtocol;
  38. extern const UnicodeString ProtocolSeparator;
  39. //---------------------------------------------------------------------------
  40. UnicodeString ReplaceChar(UnicodeString Str, wchar_t A, wchar_t B);
  41. UnicodeString DeleteChar(UnicodeString Str, wchar_t C);
  42. void PackStr(UnicodeString & Str);
  43. void PackStr(RawByteString & Str);
  44. void PackStr(AnsiString & Str);
  45. void __fastcall Shred(UnicodeString & Str);
  46. void __fastcall Shred(UTF8String & Str);
  47. void __fastcall Shred(AnsiString & Str);
  48. void __fastcall Shred(RawByteString & Str);
  49. UnicodeString AnsiToString(const RawByteString & S);
  50. UnicodeString AnsiToString(const char * S, size_t Len);
  51. UnicodeString UTFToString(const RawByteString & S);
  52. UnicodeString MakeValidFileName(UnicodeString FileName);
  53. UnicodeString RootKeyToStr(HKEY RootKey, const UnicodeString & Default = EmptyStr);
  54. UnicodeString BooleanToStr(bool B);
  55. UnicodeString BooleanToEngStr(bool B);
  56. UnicodeString DefaultStr(const UnicodeString & Str, const UnicodeString & Default);
  57. UnicodeString CutToChar(UnicodeString &Str, wchar_t Ch, bool Trim);
  58. UnicodeString CopyToChars(const UnicodeString & Str, int & From, UnicodeString Chs, bool Trim,
  59. wchar_t * Delimiter = NULL, bool DoubleDelimiterEscapes = false);
  60. UnicodeString CopyToChar(const UnicodeString & Str, wchar_t Ch, bool Trim);
  61. UnicodeString RemoveSuffix(const UnicodeString & Str, const UnicodeString & Suffix, bool RemoveNumbersAfterSuffix = false);
  62. UnicodeString DelimitStr(const UnicodeString & Str, wchar_t Quote = L'"');
  63. UnicodeString MidStr(const UnicodeString & Text, int Start);
  64. UnicodeString ShellQuoteStr(const UnicodeString & Str);
  65. UnicodeString ExceptionLogString(Exception *E);
  66. UnicodeString __fastcall MainInstructions(const UnicodeString & S);
  67. bool __fastcall HasParagraphs(const UnicodeString & S);
  68. UnicodeString __fastcall MainInstructionsFirstParagraph(const UnicodeString & S);
  69. bool ExtractMainInstructions(UnicodeString & S, UnicodeString & MainInstructions);
  70. UnicodeString RemoveMainInstructionsTag(UnicodeString S);
  71. UnicodeString UnformatMessage(UnicodeString S);
  72. UnicodeString RemoveInteractiveMsgTag(UnicodeString S);
  73. UnicodeString RemoveEmptyLines(const UnicodeString & S);
  74. bool IsNumber(const UnicodeString Str);
  75. extern const wchar_t NormalizedFingerprintSeparator;
  76. UnicodeString EncodeStrToBase64(const RawByteString & Str);
  77. RawByteString DecodeBase64ToStr(const UnicodeString & Str);
  78. UnicodeString Base64ToUrlSafe(const UnicodeString & S);
  79. UnicodeString MD5ToUrlSafe(const UnicodeString & S);
  80. bool SameChecksum(const UnicodeString & AChecksum1, const UnicodeString & AChecksum2, bool Base64);
  81. UnicodeString __fastcall SystemTemporaryDirectory();
  82. UnicodeString __fastcall GetShellFolderPath(int CSIdl);
  83. UnicodeString __fastcall GetPersonalFolder();
  84. UnicodeString __fastcall GetDesktopFolder();
  85. UnicodeString __fastcall StripPathQuotes(const UnicodeString Path);
  86. UnicodeString __fastcall AddQuotes(UnicodeString Str);
  87. UnicodeString __fastcall AddPathQuotes(UnicodeString Path);
  88. void __fastcall SplitCommand(UnicodeString Command, UnicodeString &Program,
  89. UnicodeString & Params, UnicodeString & Dir);
  90. UnicodeString __fastcall ValidLocalFileName(UnicodeString FileName);
  91. UnicodeString __fastcall ValidLocalFileName(
  92. UnicodeString FileName, wchar_t InvalidCharsReplacement,
  93. const UnicodeString & TokenizibleChars, const UnicodeString & LocalInvalidChars);
  94. UnicodeString __fastcall ExtractProgram(UnicodeString Command);
  95. UnicodeString __fastcall ExtractProgramName(UnicodeString Command);
  96. UnicodeString __fastcall FormatCommand(UnicodeString Program, UnicodeString Params);
  97. UnicodeString __fastcall ExpandFileNameCommand(const UnicodeString Command,
  98. const UnicodeString FileName);
  99. void __fastcall ReformatFileNameCommand(UnicodeString & Command);
  100. UnicodeString __fastcall EscapeParam(const UnicodeString & Param);
  101. UnicodeString __fastcall EscapePuttyCommandParam(UnicodeString Param);
  102. UnicodeString __fastcall StringsToParams(TStrings * Strings);
  103. UnicodeString __fastcall ExpandEnvironmentVariables(const UnicodeString & Str);
  104. bool __fastcall SamePaths(const UnicodeString & Path1, const UnicodeString & Path2);
  105. UnicodeString CombinePaths(const UnicodeString & Path1, const UnicodeString & Path2);
  106. UnicodeString GetNormalizedPath(const UnicodeString & Path);
  107. UnicodeString GetCanonicalPath(const UnicodeString & Path);
  108. bool __fastcall IsPathToSameFile(const UnicodeString & Path1, const UnicodeString & Path2);
  109. int __fastcall CompareLogicalText(
  110. const UnicodeString & S1, const UnicodeString & S2, bool NaturalOrderNumericalSorting);
  111. int __fastcall CompareNumber(__int64 Value1, __int64 Value2);
  112. bool ContainsTextSemiCaseSensitive(const UnicodeString & Text, const UnicodeString & SubText);
  113. bool __fastcall IsReservedName(UnicodeString FileName);
  114. UnicodeString __fastcall ApiPath(UnicodeString Path);
  115. bool IsWideChar(wchar_t Ch) { return (Ch >= L'\x80'); }
  116. UnicodeString __fastcall DisplayableStr(const RawByteString & Str);
  117. UnicodeString __fastcall ByteToHex(unsigned char B, bool UpperCase = true);
  118. UnicodeString __fastcall BytesToHex(const unsigned char * B, size_t Length, bool UpperCase = true, wchar_t Separator = L'\0');
  119. UnicodeString __fastcall BytesToHex(RawByteString Str, bool UpperCase = true, wchar_t Separator = L'\0');
  120. UnicodeString __fastcall CharToHex(wchar_t Ch, bool UpperCase = true);
  121. RawByteString __fastcall HexToBytes(const UnicodeString Hex);
  122. unsigned char __fastcall HexToByte(const UnicodeString Hex);
  123. bool __fastcall IsLowerCaseLetter(wchar_t Ch);
  124. bool __fastcall IsUpperCaseLetter(wchar_t Ch);
  125. bool __fastcall IsLetter(wchar_t Ch);
  126. bool __fastcall IsDigit(wchar_t Ch);
  127. bool __fastcall IsHex(wchar_t Ch);
  128. UnicodeString __fastcall DecodeUrlChars(UnicodeString S);
  129. UnicodeString __fastcall EncodeUrlString(UnicodeString S);
  130. UnicodeString __fastcall EncodeUrlPath(UnicodeString S);
  131. UnicodeString __fastcall AppendUrlParams(UnicodeString URL, UnicodeString Params);
  132. UnicodeString __fastcall ExtractFileNameFromUrl(const UnicodeString & Url);
  133. bool IsDomainOrSubdomain(const UnicodeString & FullDomain, const UnicodeString & Domain);
  134. bool __fastcall RecursiveDeleteFile(const UnicodeString & FileName, bool ToRecycleBin = false);
  135. int __fastcall RecursiveDeleteFileChecked(const UnicodeString & FileName, bool ToRecycleBin);
  136. void __fastcall DeleteFileChecked(const UnicodeString & FileName);
  137. unsigned int __fastcall CancelAnswer(unsigned int Answers);
  138. unsigned int __fastcall AbortAnswer(unsigned int Answers);
  139. unsigned int __fastcall ContinueAnswer(unsigned int Answers);
  140. UnicodeString __fastcall LoadStr(int Ident, unsigned int MaxLength);
  141. UnicodeString __fastcall LoadStrFrom(HINSTANCE Module, int Ident);
  142. UnicodeString __fastcall LoadStrPart(int Ident, int Part);
  143. UnicodeString __fastcall EscapeHotkey(const UnicodeString & Caption);
  144. bool __fastcall CutToken(UnicodeString & Str, UnicodeString & Token,
  145. UnicodeString * RawToken = NULL, UnicodeString * Separator = NULL);
  146. bool __fastcall CutTokenEx(UnicodeString & Str, UnicodeString & Token,
  147. UnicodeString * RawToken = NULL, UnicodeString * Separator = NULL);
  148. void __fastcall AddToList(UnicodeString & List, const UnicodeString & Value, const UnicodeString & Delimiter);
  149. void AddToShellFileListCommandLine(UnicodeString & List, const UnicodeString & Value);
  150. bool IsWin64();
  151. bool __fastcall IsWin7();
  152. bool __fastcall IsWin8();
  153. bool __fastcall IsWin10();
  154. bool IsWin10Build(int BuildNumber);
  155. bool IsWin11();
  156. bool __fastcall IsWine();
  157. void EnableUWPTestMode();
  158. bool __fastcall IsUWP();
  159. UnicodeString GetPackageName();
  160. bool IsOfficialPackage();
  161. TLibModule * __fastcall FindModule(void * Instance);
  162. __int64 __fastcall Round(double Number);
  163. bool __fastcall TryRelativeStrToDateTime(UnicodeString S, TDateTime & DateTime, bool Add);
  164. bool TryStrToDateTimeStandard(const UnicodeString & S, TDateTime & Value);
  165. bool __fastcall TryStrToSize(UnicodeString SizeStr, __int64 & Size);
  166. UnicodeString __fastcall SizeToStr(__int64 Size);
  167. LCID __fastcall GetDefaultLCID();
  168. UnicodeString __fastcall DefaultEncodingName();
  169. UnicodeString __fastcall WindowsProductName();
  170. DWORD GetWindowsProductType();
  171. UnicodeString __fastcall WindowsVersion();
  172. UnicodeString __fastcall WindowsVersionLong();
  173. bool __fastcall IsDirectoryWriteable(const UnicodeString & Path);
  174. UnicodeString __fastcall FormatNumber(__int64 Size);
  175. UnicodeString __fastcall FormatSize(__int64 Size);
  176. UnicodeString __fastcall ExtractFileBaseName(const UnicodeString & Path);
  177. TStringList * __fastcall TextToStringList(const UnicodeString & Text);
  178. UnicodeString __fastcall StringsToText(TStrings * Strings);
  179. TStringList * __fastcall CommaTextToStringList(const UnicodeString & CommaText);
  180. TStrings * __fastcall CloneStrings(TStrings * Strings);
  181. UnicodeString __fastcall TrimVersion(UnicodeString Version);
  182. UnicodeString __fastcall FormatVersion(int MajovVersion, int MinorVersion, int Release);
  183. TFormatSettings __fastcall GetEngFormatSettings();
  184. int __fastcall ParseShortEngMonthName(const UnicodeString & MonthStr);
  185. // The defaults are equal to defaults of TStringList class (except for Sorted)
  186. TStringList * __fastcall CreateSortedStringList(bool CaseSensitive = false, System::Types::TDuplicates Duplicates = System::Types::dupIgnore);
  187. bool SameIdent(const UnicodeString & Ident1, const UnicodeString & Ident2);
  188. UnicodeString __fastcall FindIdent(const UnicodeString & Ident, TStrings * Idents);
  189. UnicodeString GetTlsErrorStr(unsigned long Err);
  190. UnicodeString GetTlsErrorStrs();
  191. void __fastcall CheckCertificate(const UnicodeString & Path);
  192. typedef struct x509_st X509;
  193. typedef struct evp_pkey_st EVP_PKEY;
  194. void __fastcall ParseCertificate(const UnicodeString & Path,
  195. const UnicodeString & Passphrase, X509 *& Certificate, EVP_PKEY *& PrivateKey,
  196. bool & WrongPassphrase);
  197. bool __fastcall IsHttpUrl(const UnicodeString & S);
  198. bool __fastcall IsHttpOrHttpsUrl(const UnicodeString & S);
  199. UnicodeString __fastcall ChangeUrlProtocol(const UnicodeString & S, const UnicodeString & Protocol);
  200. void __fastcall LoadScriptFromFile(UnicodeString FileName, TStrings * Lines, bool FallbackToAnsi = false);
  201. UnicodeString __fastcall StripEllipsis(const UnicodeString & S);
  202. UnicodeString __fastcall GetFileMimeType(const UnicodeString & FileName);
  203. bool __fastcall IsRealFile(const UnicodeString & FileName);
  204. UnicodeString GetOSInfo();
  205. UnicodeString GetEnvironmentInfo();
  206. void SetStringValueEvenIfEmpty(TStrings * Strings, const UnicodeString & Name, const UnicodeString & Value);
  207. UnicodeString __fastcall GetAncestorProcessName(int Levels = 1);
  208. UnicodeString GetAncestorProcessNames();
  209. void NotSupported();
  210. void NotImplemented();
  211. UnicodeString GetDividerLine();
  212. TStrings * ProcessFeatures(TStrings * Features, const UnicodeString & FeaturesOverride);
  213. //---------------------------------------------------------------------------
  214. struct TSearchRecSmart : public TSearchRec
  215. {
  216. public:
  217. TSearchRecSmart();
  218. void Clear();
  219. TDateTime GetLastWriteTime() const;
  220. bool IsRealFile() const;
  221. bool IsDirectory() const;
  222. bool IsHidden() const;
  223. private:
  224. mutable FILETIME FLastWriteTimeSource;
  225. mutable TDateTime FLastWriteTime;
  226. };
  227. //---------------------------------------------------------------------------
  228. typedef void __fastcall (__closure* TProcessLocalFileEvent)
  229. (const UnicodeString & FileName, const TSearchRecSmart & Rec, void * Param);
  230. bool __fastcall FileSearchRec(const UnicodeString FileName, TSearchRec & Rec);
  231. void CopySearchRec(const TSearchRec & Source, TSearchRec & Dest);
  232. struct TSearchRecChecked : public TSearchRecSmart
  233. {
  234. UnicodeString Path;
  235. UnicodeString Dir;
  236. bool Opened;
  237. UnicodeString GetFilePath() const;
  238. };
  239. struct TSearchRecOwned : public TSearchRecChecked
  240. {
  241. ~TSearchRecOwned();
  242. void Close();
  243. };
  244. int __fastcall FindCheck(int Result, const UnicodeString & Path);
  245. int __fastcall FindFirstUnchecked(const UnicodeString & Path, int Attr, TSearchRecChecked & F);
  246. int __fastcall FindFirstChecked(const UnicodeString & Path, int Attr, TSearchRecChecked & F);
  247. int __fastcall FindNextChecked(TSearchRecChecked & F);
  248. int __fastcall FindNextUnchecked(TSearchRecChecked & F);
  249. void __fastcall ProcessLocalDirectory(UnicodeString DirName,
  250. TProcessLocalFileEvent CallBackFunc, void * Param = NULL, int FindAttrs = -1);
  251. int __fastcall FileGetAttrFix(const UnicodeString & FileName);
  252. //---------------------------------------------------------------------------
  253. extern const wchar_t * DSTModeNames;
  254. enum TDSTMode
  255. {
  256. dstmWin = 0, //
  257. dstmUnix = 1, // adjust UTC time to Windows "bug"
  258. dstmKeep = 2
  259. };
  260. bool __fastcall UsesDaylightHack();
  261. TDateTime __fastcall EncodeDateVerbose(Word Year, Word Month, Word Day);
  262. TDateTime __fastcall EncodeTimeVerbose(Word Hour, Word Min, Word Sec, Word MSec);
  263. double __fastcall DSTDifferenceForTime(TDateTime DateTime);
  264. TDateTime __fastcall SystemTimeToDateTimeVerbose(const SYSTEMTIME & SystemTime);
  265. TDateTime __fastcall UnixToDateTime(__int64 TimeStamp, TDSTMode DSTMode);
  266. TDateTime __fastcall ConvertTimestampToUTC(TDateTime DateTime);
  267. TDateTime __fastcall ConvertTimestampFromUTC(TDateTime DateTime);
  268. FILETIME __fastcall DateTimeToFileTime(const TDateTime DateTime, TDSTMode DSTMode);
  269. TDateTime __fastcall AdjustDateTimeFromUnix(TDateTime DateTime, TDSTMode DSTMode);
  270. void __fastcall UnifyDateTimePrecision(TDateTime & DateTime1, TDateTime & DateTime2);
  271. TDateTime __fastcall FileTimeToDateTime(const FILETIME & FileTime);
  272. __int64 __fastcall ConvertTimestampToUnix(const FILETIME & FileTime,
  273. TDSTMode DSTMode);
  274. __int64 __fastcall ConvertTimestampToUnixSafe(const FILETIME & FileTime,
  275. TDSTMode DSTMode);
  276. UnicodeString __fastcall FixedLenDateTimeFormat(const UnicodeString & Format);
  277. UnicodeString __fastcall StandardTimestamp(const TDateTime & DateTime);
  278. UnicodeString __fastcall StandardTimestamp();
  279. UnicodeString __fastcall StandardDatestamp();
  280. UnicodeString __fastcall FormatTimeZone(long Sec);
  281. UnicodeString __fastcall GetTimeZoneLogString();
  282. bool __fastcall AdjustClockForDSTEnabled();
  283. int __fastcall CompareFileTime(TDateTime T1, TDateTime T2);
  284. int __fastcall TimeToMSec(TDateTime T);
  285. int __fastcall TimeToSeconds(TDateTime T);
  286. int __fastcall TimeToMinutes(TDateTime T);
  287. UnicodeString FormatDateTimeSpan(const TDateTime & DateTime);
  288. UnicodeString FormatRelativeTime(const TDateTime & ANow, const TDateTime & AThen, bool DateOnly);
  289. TStrings * TlsCipherList();
  290. //---------------------------------------------------------------------------
  291. template<class MethodT>
  292. MethodT __fastcall MakeMethod(void * Data, void * Code)
  293. {
  294. MethodT Method;
  295. ((TMethod*)&Method)->Data = Data;
  296. ((TMethod*)&Method)->Code = Code;
  297. return Method;
  298. }
  299. //---------------------------------------------------------------------------
  300. enum TAssemblyLanguage { alCSharp, alVBNET, alPowerShell };
  301. extern const UnicodeString RtfPara;
  302. extern const UnicodeString AssemblyNamespace;
  303. extern const UnicodeString SessionClassName;
  304. extern const UnicodeString TransferOptionsClassName;
  305. //---------------------------------------------------------------------
  306. UnicodeString __fastcall RtfText(const UnicodeString & Text, bool Rtf = true);
  307. UnicodeString __fastcall RtfColor(int Index);
  308. UnicodeString __fastcall RtfOverrideColorText(const UnicodeString & Text);
  309. UnicodeString __fastcall RtfColorItalicText(int Color, const UnicodeString & Text);
  310. UnicodeString __fastcall RtfColorText(int Color, const UnicodeString & Text);
  311. UnicodeString __fastcall RtfKeyword(const UnicodeString & Text);
  312. UnicodeString __fastcall RtfParameter(const UnicodeString & Text);
  313. UnicodeString __fastcall RtfString(const UnicodeString & Text);
  314. UnicodeString __fastcall RtfLink(const UnicodeString & Link, const UnicodeString & RtfText);
  315. UnicodeString __fastcall RtfSwitch(
  316. const UnicodeString & Name, const UnicodeString & Link, bool Rtf = true);
  317. UnicodeString __fastcall RtfSwitchValue(
  318. const UnicodeString & Name, const UnicodeString & Link, const UnicodeString & Value, bool Rtf = true);
  319. UnicodeString __fastcall RtfSwitch(
  320. const UnicodeString & Name, const UnicodeString & Link, const UnicodeString & Value, bool Rtf = true);
  321. UnicodeString __fastcall RtfSwitch(
  322. const UnicodeString & Name, const UnicodeString & Link, int Value, bool Rtf = true);
  323. UnicodeString __fastcall RtfEscapeParam(UnicodeString Param, bool PowerShellEscape);
  324. UnicodeString __fastcall RtfRemoveHyperlinks(UnicodeString Text);
  325. UnicodeString __fastcall ScriptCommandLink(const UnicodeString & Command);
  326. UnicodeString __fastcall AssemblyBoolean(TAssemblyLanguage Language, bool Value);
  327. UnicodeString __fastcall AssemblyString(TAssemblyLanguage Language, UnicodeString S);
  328. UnicodeString __fastcall AssemblyCommentLine(TAssemblyLanguage Language, const UnicodeString & Text);
  329. UnicodeString __fastcall AssemblyPropertyRaw(
  330. TAssemblyLanguage Language, const UnicodeString & ClassName, const UnicodeString & Name,
  331. const UnicodeString & Value, bool Inline);
  332. UnicodeString __fastcall AssemblyProperty(
  333. TAssemblyLanguage Language, const UnicodeString & ClassName, const UnicodeString & Name,
  334. const UnicodeString & Type, const UnicodeString & Member, bool Inline);
  335. UnicodeString __fastcall AssemblyProperty(
  336. TAssemblyLanguage Language, const UnicodeString & ClassName, const UnicodeString & Name,
  337. const UnicodeString & Value, bool Inline);
  338. UnicodeString __fastcall AssemblyProperty(
  339. TAssemblyLanguage Language, const UnicodeString & ClassName, const UnicodeString & Name, int Value, bool Inline);
  340. UnicodeString __fastcall AssemblyProperty(
  341. TAssemblyLanguage Language, const UnicodeString & ClassName, const UnicodeString & Name, bool Value, bool Inline);
  342. UnicodeString __fastcall RtfLibraryMethod(const UnicodeString & ClassName, const UnicodeString & MethodName, bool Inpage);
  343. UnicodeString __fastcall RtfLibraryClass(const UnicodeString & ClassName);
  344. UnicodeString __fastcall AssemblyVariableName(TAssemblyLanguage Language, const UnicodeString & ClassName);
  345. UnicodeString __fastcall AssemblyStatementSeparator(TAssemblyLanguage Language);
  346. UnicodeString __fastcall AssemblyVariableDeclaration(TAssemblyLanguage Language);
  347. UnicodeString __fastcall AssemblyNewClassInstance(
  348. TAssemblyLanguage Language, const UnicodeString & ClassName, bool Inline);
  349. UnicodeString __fastcall AssemblyNewClassInstanceStart(
  350. TAssemblyLanguage Language, const UnicodeString & ClassName, bool Inline);
  351. UnicodeString __fastcall AssemblyNewClassInstanceEnd(TAssemblyLanguage Language, bool Inline);
  352. UnicodeString __fastcall AssemblyAddRawSettings(
  353. TAssemblyLanguage Language, TStrings * RawSettings, const UnicodeString & ClassName,
  354. const UnicodeString & MethodName);
  355. //---------------------------------------------------------------------------
  356. #include "Global.h"
  357. //---------------------------------------------------------------------------
  358. template<class T>
  359. class TValueRestorer
  360. {
  361. public:
  362. __fastcall TValueRestorer(T & Target, const T & Value) :
  363. FTarget(Target),
  364. FValue(Target),
  365. FArmed(true)
  366. {
  367. FTarget = Value;
  368. }
  369. __fastcall TValueRestorer(T & Target) :
  370. FTarget(Target),
  371. FValue(Target),
  372. FArmed(true)
  373. {
  374. }
  375. void Release()
  376. {
  377. if (FArmed)
  378. {
  379. FTarget = FValue;
  380. FArmed = false;
  381. }
  382. }
  383. __fastcall ~TValueRestorer()
  384. {
  385. Release();
  386. }
  387. protected:
  388. T & FTarget;
  389. T FValue;
  390. bool FArmed;
  391. };
  392. //---------------------------------------------------------------------------
  393. class TAutoNestingCounter : public TValueRestorer<int>
  394. {
  395. public:
  396. __fastcall TAutoNestingCounter(int & Target) :
  397. TValueRestorer<int>(Target, Target + 1)
  398. {
  399. DebugAssert(FValue >= 0);
  400. }
  401. __fastcall ~TAutoNestingCounter()
  402. {
  403. DebugAssert(!FArmed || (FTarget == (FValue + 1)));
  404. }
  405. };
  406. //---------------------------------------------------------------------------
  407. class TAutoFlag : public TValueRestorer<bool>
  408. {
  409. public:
  410. __fastcall TAutoFlag(bool & Target) :
  411. TValueRestorer<bool>(Target, true)
  412. {
  413. DebugAssert(!FValue);
  414. }
  415. __fastcall ~TAutoFlag()
  416. {
  417. DebugAssert(!FArmed || FTarget);
  418. }
  419. };
  420. //---------------------------------------------------------------------------
  421. #include <map>
  422. //---------------------------------------------------------------------------
  423. template<class T1, class T2>
  424. class BiDiMap
  425. {
  426. public:
  427. typedef std::map<T1, T2> TFirstToSecond;
  428. typedef typename TFirstToSecond::const_iterator const_iterator;
  429. void Add(const T1 & Value1, const T2 & Value2)
  430. {
  431. FFirstToSecond.insert(std::make_pair(Value1, Value2));
  432. FSecondToFirst.insert(std::make_pair(Value2, Value1));
  433. }
  434. T1 LookupFirst(const T2 & Value2) const
  435. {
  436. typename TSecondToFirst::const_iterator Iterator = FSecondToFirst.find(Value2);
  437. DebugAssert(Iterator != FSecondToFirst.end());
  438. return Iterator->second;
  439. }
  440. T2 LookupSecond(const T1 & Value1) const
  441. {
  442. const_iterator Iterator = FFirstToSecond.find(Value1);
  443. DebugAssert(Iterator != FFirstToSecond.end());
  444. return Iterator->second;
  445. }
  446. const_iterator begin()
  447. {
  448. return FFirstToSecond.begin();
  449. }
  450. const_iterator end()
  451. {
  452. return FFirstToSecond.end();
  453. }
  454. private:
  455. TFirstToSecond FFirstToSecond;
  456. typedef std::map<T2, T1> TSecondToFirst;
  457. TSecondToFirst FSecondToFirst;
  458. };
  459. //---------------------------------------------------------------------------
  460. template<class T>
  461. class TMulticastEvent
  462. {
  463. public:
  464. TMulticastEvent()
  465. {
  466. // noop
  467. }
  468. TMulticastEvent(const TMulticastEvent & Other) :
  469. FEventHandlers(Other.FEventHandlers)
  470. {
  471. }
  472. explicit TMulticastEvent(T EventHandler)
  473. {
  474. Add(EventHandler);
  475. }
  476. void Add(T EventHandler)
  477. {
  478. DebugAssert(EventHandler != NULL);
  479. DebugAssert(Find(EventHandler) == FEventHandlers.end());
  480. FEventHandlers.push_back(EventHandler);
  481. }
  482. void Remove(T EventHandler)
  483. {
  484. typename TEventHandlers::iterator I = Find(EventHandler);
  485. if (DebugAlwaysTrue(I != FEventHandlers.end()))
  486. {
  487. FEventHandlers.erase(I);
  488. }
  489. }
  490. #pragma warn -inl
  491. template<typename P>
  492. void Invoke(const P & p)
  493. {
  494. typename TEventHandlers::iterator I = FEventHandlers.begin();
  495. while (I != FEventHandlers.end())
  496. {
  497. (*I)(p);
  498. ++I;
  499. }
  500. }
  501. #pragma warn .inl
  502. bool Contains(T EventHandler)
  503. {
  504. return (Find(EventHandler) != FEventHandlers.end());
  505. }
  506. bool Any() const
  507. {
  508. return (FEventHandlers.size() > 0);
  509. }
  510. bool operator==(const TMulticastEvent<T> Other) const
  511. {
  512. return (FEventHandlers == Other.FEventHandlers);
  513. }
  514. void operator=(const TMulticastEvent<T> & Other)
  515. {
  516. FEventHandlers = Other.FEventHandlers;
  517. }
  518. private:
  519. typedef std::vector<T> TEventHandlers;
  520. TEventHandlers FEventHandlers;
  521. typename TEventHandlers::iterator Find(T EventHandler)
  522. {
  523. return std::find(FEventHandlers.begin(), FEventHandlers.end(), EventHandler);
  524. }
  525. };
  526. //---------------------------------------------------------------------------
  527. typedef std::vector<UnicodeString> TUnicodeStringVector;
  528. //---------------------------------------------------------------------------
  529. #endif