--- a/hedgewars/uLocale.pas Sat Sep 12 19:00:52 2015 +0200
+++ b/hedgewars/uLocale.pas Sat Sep 12 20:01:26 2015 +0200
@@ -20,7 +20,7 @@
unit uLocale;
interface
-uses uTypes;
+uses uTypes{$IFNDEF PAS2C}, gettext{$ENDIF};
const MAX_EVENT_STRINGS = 100;
@@ -33,6 +33,8 @@
procedure LoadLocaleWrapper(path: pchar; filename: pchar); cdecl; export;
{$ENDIF}
+{$IFNDEF PAS2C}var locMOFile: TMOFile;{$ENDIF}
+
implementation
uses uRandom, uUtils, uVariables, uDebug, uPhysFSLayer;
@@ -52,6 +54,10 @@
f:= pfsOpenRead(FileName);
TryDo(f <> nil, 'Cannot load locale "' + FileName + '"', false);
+{$IFNDEF PAS2C}
+locMOFile:= TMOFile.Create('/home/r/dev/hw/.hg-gettext_build/share/hedgewars/Data/Locale/de.mo');
+{$ENDIF}
+
s:= '';
if f <> nil then