paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: makeskel now ignores missing translation file

Browse Source
This commit is contained in:
Mattias Gaertner 2003-09-02 13:26:47 +00:00
parent f3049a8c59
commit 1f77027b5a
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/fpdoc/makeskel.pp
View File

@ -210,12 +210,17 @@ end;
var
i: Integer;
Module: TPasModule;
MOFilename: string;
begin
{$IFDEF Unix}
gettext.TranslateResourceStrings('/usr/local/share/locale/%s/LC_MESSAGES/makeskel.mo');
MOFilename:='/usr/local/share/locale/%s/LC_MESSAGES/makeskel.mo';
{$ELSE}
gettext.TranslateResourceStrings('intl/makeskel.%s.mo');
MOFilename:='intl/makeskel.%s.mo';
{$ENDIF}
if FileExists(MOFilename) then
gettext.TranslateResourceStrings(MOFilename)
else
writeln('NOTE: unable to find tranlation file ',MOFilename);
WriteLn(STitle);
WriteLn(SCopyright);
@ -275,7 +280,10 @@ end.
{
$Log$
Revision 1.3 2003-05-07 16:31:32 sg
Revision 1.4 2003-09-02 13:26:47 mattias
MG: makeskel now ignores missing translation file
Revision 1.3 2003/05/07 16:31:32 sg
* Fixed a severe memory corruption problem on termination
Revision 1.2 2003/03/28 13:01:36 michael