/includes/qcodo/_core/framework/QI18n.class.php

https://github.com/quinta/qcodo · PHP · 288 lines · 243 code · 42 blank · 3 comment · 69 complexity · 580021a998c38dc86687ca1a3b56e828 MD5 · raw file 

    

  1. <?php
    2. 

  2. 	class QPoParserException extends QCallerException {}
    3. 

  3. 

  4. 	class QI18n extends QBaseClass {
    5. 

  5. 		public static function Initialize() {
    6. 

  6. 			if (QApplication::$LanguageCode) {
    7. 

  7. 				if (QApplication::$CountryCode) {
    8. 

  8. 					$strCode = sprintf('%s_%s', QApplication::$LanguageCode, QApplication::$CountryCode);
    9. 

  9. 					$strLanguageFiles = array(
    10. 

  10. 						__QCODO_CORE__ . '/i18n/' . QApplication::$LanguageCode . '.po',
    11. 

  11. 						__QCODO_CORE__ . '/i18n/' . $strCode . '.po',
    12. 

  12. 						__QCODO__ . '/i18n/' . QApplication::$LanguageCode . '.po',
    13. 

  13. 						__QCODO__ . '/i18n/' . $strCode . '.po'
    14. 

  14. 					);
    15. 

  15. 				} else {
    16. 

  16. 					$strCode = QApplication::$LanguageCode;
    17. 

  17. 					$strLanguageFiles = array(
    18. 

  18. 						__QCODO_CORE__ . '/i18n/' . QApplication::$LanguageCode . '.po',
    19. 

  19. 						__QCODO__ . '/i18n/' . QApplication::$LanguageCode . '.po'
    20. 

  20. 					);
    21. 

  21. 				}
    22. 

  22. 

  23. 				// Setup the LanguageFileObject cache mechanism
    24. 

  24. 				$objCache = new QCache('i18n', $strCode, 'i18n', $strLanguageFiles);
    25. 

  25. 				
    26. 

  26. 				// If cached data exists and is valid, use it
    27. 

  27. 				$strData = $objCache->GetData();
    28. 

  28. 				if ($strData)
    29. 

  29. 					QApplication::$LanguageObject = unserialize($strData);
    30. 

  30. 					
    31. 

  31. 				// Otherwise, reload all langauge files and update the cache
    32. 

  32. 				else {
    33. 

  33. 					$objLanguage = new QI18n();
    34. 

  34. 					
    35. 

  35. 					foreach ($strLanguageFiles as $strLanguageFile)
    36. 

  36. 						if (file_exists($strLanguageFile)) {
    37. 

  37. 							try {
    38. 

  38. 								$objLanguage->ParsePoData(file_get_contents($strLanguageFile));							
    39. 

  39. 							} catch (QPoParserException $objExc) {
    40. 

  40. 								$objExc->setMessage('Invalid Language File: ' . $strLanguageFile . ': ' . $objExc->getMessage());
    41. 

  41. 								$objExc->IncrementOffset();
    42. 

  42. 								throw $objExc;
    43. 

  43. 							}
    44. 

  44. 						}
    45. 

  45. 					QApplication::$LanguageObject = $objLanguage;
    46. 

  46. 					$objCache->SaveData(serialize($objLanguage));
    47. 

  47. 				}
    48. 

  48. 			}
    49. 

  49. 		}
    50. 

  50. 

  51. 		const PoParseStateNone = 0;
    52. 

  52. 		const PoParseStateMessageIdStart = 1;
    53. 

  53. 		const PoParseStateMessageId = 2;
    54. 

  54. 		const PoParseStateMessageStringStart = 3;
    55. 

  55. 		const PoParseStateMessageString = 4;
    56. 

  56. 		
    57. 

  57. 		protected static function UnescapeContent($strContent) {
    58. 

  58. 			$intLength = strlen($strContent);
    59. 

  59. 			$strToReturn = '';
    60. 

  60. 			$blnEscape = false;
    61. 

  61. 

  62. 			for ($intIndex = 0; $intIndex < $intLength; $intIndex++) {
    63. 

  63. 				if ($blnEscape) {
    64. 

  64. 					switch ($strContent[$intIndex]) {
    65. 

  65. 						case 'n':
    66. 

  66. 							$blnEscape = false;
    67. 

  67. 							$strToReturn .= "\n";
    68. 

  68. 							break;
    69. 

  69. 						case 'r':
    70. 

  70. 							$blnEscape = false;
    71. 

  71. 							$strToReturn .= "\r";
    72. 

  72. 							break;
    73. 

  73. 						case 't':
    74. 

  74. 							$blnEscape = false;
    75. 

  75. 							$strToReturn .= "	";
    76. 

  76. 							break;
    77. 

  77. 						case '\\':
    78. 

  78. 							$blnEscape = false;
    79. 

  79. 							$strToReturn .= '\\';
    80. 

  80. 							break;
    81. 

  81. 						case '"':
    82. 

  82. 							$blnEscape = false;
    83. 

  83. 							$strToReturn .= '"';
    84. 

  84. 							break;
    85. 

  85. 						case "'":
    86. 

  86. 							$blnEscape = false;
    87. 

  87. 							$strToReturn .= "'";
    88. 

  88. 							break;
    89. 

  89. 						default:
    90. 

  90. 							$blnEscape = false;
    91. 

  91. 							$strToReturn .= '\\' . $strContent[$intIndex];
    92. 

  92. 							break;
    93. 

  93. 					}
    94. 

  94. 				} else {
    95. 

  95. 					if ($strContent[$intIndex] == '\\')
    96. 

  96. 						$blnEscape = true;
    97. 

  97. 					else
    98. 

  98. 						$strToReturn .= $strContent[$intIndex];
    99. 

  99. 				}
    100. 

  100. 			}
    101. 

  101. 

  102. 			if ($blnEscape)
    103. 

  103. 				return false;
    104. 

  104. 

  105. 			$strToReturn = str_replace("\r", '', $strToReturn);
    106. 

  106. 			return $strToReturn;
    107. 

  107. 		}
    108. 

  108. 

  109. 		protected function ParsePoData($strPoData) {
    110. 

  110. 			$strPoData = str_replace("\r", '', trim($strPoData));
    111. 

  111. 			$strPoLines = explode("\n", $strPoData);
    112. 

  112. 

  113. 			$strMatches = array();
    114. 

  114. 

  115. 			$intState = QI18n::PoParseStateNone;
    116. 

  116. 			$intLineCount = count($strPoLines);
    117. 

  117. 

  118. 			if (strlen($strPoLines[0]) == 0)
    119. 

  119. 				return;
    120. 

  120. 

  121. 			for ($intLineNumber = 0; $intLineNumber < $intLineCount; $intLineNumber++) {
    122. 

  122. 				$strPoLine = $strPoLines[$intLineNumber] = trim($strPoLines[$intLineNumber]);
    123. 

  123. 

  124. 				if (strlen($strPoLine) && (QString::FirstCharacter($strPoLine) != '#')) {
    125. 

  125. 					switch ($intState) {
    126. 

  126. 						case QI18n::PoParseStateNone:
    127. 

  127. 							$intCount = preg_match_all('/msgid(_[a-z0-9]+)?[\s]+"([\S 	]*)"/i', $strPoLine, $strMatches);
    128. 

  128. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    129. 

  129. 								$intLineNumber--;
    130. 

  130. 								$intState = QI18n::PoParseStateMessageIdStart;
    131. 

  131. 							} else
    132. 

  132. 								throw new QPoParserException('Invalid content for PoParseStateNone on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    133. 

  133. 							break;
    134. 

  134. 

  135. 						case QI18n::PoParseStateMessageIdStart:
    136. 

  136. 							$intCount = preg_match_all('/msgid(_[a-z0-9]+)?[\s]+"([\S 	]*)"/i', $strPoLine, $strMatches);
    137. 

  137. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    138. 

  138. 								$strMessageId = array('', '', '', '', '', '', '');
    139. 

  139. 								$strMessageString = array('', '', '', '', '', '', '');
    140. 

  140. 								$intArrayIndex = 0;
    141. 

  141. 

  142. 								$strContent = QI18n::UnescapeContent($strMatches[2][0]);
    143. 

  143. 								if ($strContent === false)
    144. 

  144. 									throw new QPoParserException('Invalid content on Line ' . ($intLineNumber + 1));
    145. 

  145. 								$strMessageId[$intArrayIndex] = $strContent;
    146. 

  146. 								$intState = QI18n::PoParseStateMessageId;
    147. 

  147. 							} else
    148. 

  148. 								throw new QPoParserException('Invalid content for PoParseStateMessageIdStart on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    149. 

  149. 							break;
    150. 

  150. 

  151. 						case QI18n::PoParseStateMessageId:
    152. 

  152. 							$intCount = preg_match_all('/msgid(_[a-z0-9]+)[\s]+"([\S 	]*)"/i', $strPoLine, $strMatches);
    153. 

  153. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    154. 

  154. 								if (strlen(trim($strMessageId[$intArrayIndex])) == 0)
    155. 

  155. 									throw new QPoParserException('No MsgId content for current MsgId on Line ' . ($intLineNumber) . ': ' . $strPoLine);
    156. 

  156. 								$intArrayIndex++;
    157. 

  157. 								$strContent = QI18n::UnescapeContent($strMatches[2][0]);
    158. 

  158. 								if ($strContent === false)
    159. 

  159. 									throw new QPoParserException('Invalid content on Line ' . ($intLineNumber + 1));
    160. 

  160. 								$strMessageId[$intArrayIndex] = $strContent;
    161. 

  161. 								break;
    162. 

  162. 							}
    163. 

  163. 

  164. 							$intCount = preg_match_all('/"([\S 	]*)"/', $strPoLine, $strMatches);
    165. 

  165. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    166. 

  166. 								$strContent = QI18n::UnescapeContent($strMatches[1][0]);
    167. 

  167. 								if ($strContent === false)
    168. 

  168. 									throw new QPoParserException('Invalid content on Line ' . ($intLineNumber + 1));
    169. 

  169. 								$strMessageId[$intArrayIndex] .= $strContent;
    170. 

  170. 								break;
    171. 

  171. 							}
    172. 

  172. 

  173. 							$intCount = preg_match_all('/msgstr(\[[0-9]+\])?[\s]+"([\S 	]*)"/i', $strPoLine, $strMatches);
    174. 

  174. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    175. 

  175. 								if (strlen(trim($strMessageId[$intArrayIndex])) == 0)
    176. 

  176. 									throw new QPoParserException('No MsgId content for current MsgId on Line ' . ($intLineNumber) . ': ' . $strPoLine);
    177. 

  177. 								$intLineNumber--;
    178. 

  178. 								$intState = QI18n::PoParseStateMessageStringStart;
    179. 

  179. 								break;
    180. 

  180. 							}
    181. 

  181. 

  182. 							throw new QPoParserException('Invalid content for PoParseStateMessageId on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    183. 

  183. 

  184. 						case QI18n::PoParseStateMessageStringStart:
    185. 

  185. 							$intCount = preg_match_all('/msgstr(\[[0-9]+\])?[\s]+"([\S 	]*)"/i', $strPoLine, $strMatches);
    186. 

  186. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    187. 

  187. 								$intArrayIndex = 0;
    188. 

  188. 

  189. 								if (strlen($strMatches[1][0]))
    190. 

  190. 									$intArrayIndex = intval(substr($strMatches[1][0], 1, strlen($strMatches[1][0]) - 2));
    191. 

  191. 

  192. 								$strContent = QI18n::UnescapeContent($strMatches[2][0]);
    193. 

  193. 								if ($strContent === false)
    194. 

  194. 									throw new QPoParserException('Invalid content on Line ' . ($intLineNumber + 1));
    195. 

  195. 								$strMessageString[$intArrayIndex] = $strContent;
    196. 

  196. 								$intState = QI18n::PoParseStateMessageString;
    197. 

  197. 							} else 
    198. 

  198. 								throw new QPoParserException('Invalid content for PoParseStateMessageStringStart on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    199. 

  199. 							break;
    200. 

  200. 

  201. 

  202. 						case QI18n::PoParseStateMessageString:
    203. 

  203. 							$intCount = preg_match_all('/msgid(_[a-z0-9]+)?[\s]+"([\S 	]*)"/i', $strPoLine, $strMatches);
    204. 

  204. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    205. 

  205. 								for ($intIndex = 0; $intIndex < count($strMessageId); $intIndex++)
    206. 

  206. 									if (strlen(trim($strMessageId[$intIndex]))) {
    207. 

  207. 										if (!strlen(trim($strMessageString[$intIndex]))) {
    208. 

  208. 											throw new QPoParserException('No MsgStr defined for MsgId at index ' . $intIndex . ' prior to Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    209. 

  209. 										}
    210. 

  210. 

  211. 										$this->SetTranslation($strMessageId[$intIndex], $strMessageString[$intIndex]);
    212. 

  212. 									}
    213. 

  213. 

  214. 									$intLineNumber--;
    215. 

  215. 									$intState = QI18n::PoParseStateMessageIdStart;
    216. 

  216. 								break;
    217. 

  217. 							}
    218. 

  218. 

  219. 							$intCount = preg_match_all('/"([\S 	]*)"/', $strPoLine, $strMatches);
    220. 

  220. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    221. 

  221. 								$strContent = QI18n::UnescapeContent($strMatches[1][0]);
    222. 

  222. 								if ($strContent === false)
    223. 

  223. 									throw new QPoParserException('Invalid content on Line ' . ($intLineNumber + 1));
    224. 

  224. 								$strMessageString[$intArrayIndex] .= $strContent;
    225. 

  225. 								break;
    226. 

  226. 							}
    227. 

  227. 

  228. 							$intCount = preg_match_all('/msgstr(\[[0-9]+\])?[\s]+"([\S 	]*)"/i', $strPoLine, $strMatches);
    229. 

  229. 							if ($intCount && ($strMatches[0][0] == $strPoLine)) {
    230. 

  230. 

  231. 								if (strlen($strMatches[1][0]))
    232. 

  232. 									$intArrayIndex = intval(substr($strMatches[1][0], 1, strlen($strMatches[1][0]) - 2));
    233. 

  233. 								else
    234. 

  234. 									throw new QPoParserException('No index specified for alternate MsgStr for PoParseStateMessageString on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    235. 

  235. 

  236. 								if (strlen(trim($strMessageId[$intArrayIndex])) == 0)
    237. 

  237. 									throw new QPoParserException('No MsgId for MsgStr' . $strMatches[1][0] . ' for PoParseStateMessageString on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    238. 

  238. 

  239. 								$strContent = QI18n::UnescapeContent($strMatches[2][0]);
    240. 

  240. 								if ($strContent === false)
    241. 

  241. 									throw new QPoParserException('Invalid content on Line ' . ($intLineNumber + 1));
    242. 

  242. 								$strMessageString[$intArrayIndex] = $strContent;
    243. 

  243. 								break;
    244. 

  244. 							}
    245. 

  245. 

  246. 							throw new QPoParserException('Invalid content for PoParseStateMessageString on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    247. 

  247. 

  248. 						default:
    249. 

  249. 							throw new QPoParserException('Invalid PoParseState on Line ' . ($intLineNumber + 1) . ': ' . $strPoLine);
    250. 

  250. 					}
    251. 

  251. 				}
    252. 

  252. 			}
    253. 

  253. 

  254. 			for ($intIndex = 0; $intIndex < count($strMessageId); $intIndex++)
    255. 

  255. 				if (strlen(trim($strMessageId[$intIndex]))) {
    256. 

  256. 					if (!strlen(trim($strMessageString[$intIndex]))) {
    257. 

  257. 						throw new QPoParserException('No MsgStr defined for MsgId at index ' . $intIndex . ' at the End of the File');
    258. 

  258. 					}
    259. 

  259. 

  260. 					$this->SetTranslation($strMessageId[$intIndex], $strMessageString[$intIndex]);
    261. 

  261. 				}
    262. 

  262. 		}
    263. 

  263. 

  264. 		protected $strTranslationArray = array();
    265. 

  265. 

  266. 		protected function SetTranslation($strToken, $strTranslatedText) {
    267. 

  267. 			$this->strTranslationArray[$strToken] = $strTranslatedText;
    268. 

  268. 		}
    269. 

  269. 

  270. 		public function TranslateToken($strToken) {
    271. 

  271. 			$strCleanToken = str_replace("\r", '', $strToken);
    272. 

  272. 			if (array_key_exists($strCleanToken, $this->strTranslationArray))
    273. 

  273. 				return $this->strTranslationArray[$strCleanToken];
    274. 

  274. 			else
    275. 

  275. 				return $strToken;				
    276. 

  276. 		}
    277. 

  277. 

  278. 		public function VarDump() {
    279. 

  279. 			$strToReturn = '';
    280. 

  280. 			foreach ($this->strTranslationArray as $strKey=>$strValue) {
    281. 

  281. 				$strKey = str_replace("\n", '\\n', addslashes(QApplication::HtmlEntities($strKey)));
    282. 

  282. 				$strValue = str_replace("\n", '\\n', addslashes(QApplication::HtmlEntities($strValue)));
    283. 

  283. 				$strToReturn .= sprintf("\"%s\"\n\"%s\"\n\n", $strKey, $strValue);
    284. 

  284. 			}
    285. 

  285. 			return $strToReturn;
    286. 

  286. 		}
    287. 

  287. 	}
    288. 

  288. ?>
    289.