1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
{$APPTYPE CONSOLE}
program dxgettext;
(**************************************************************)
(* *)
(* (C) Copyright by Lars B. Dybdahl *)
(* E-mail: Lars@dybdahl.dk, phone +45 70201241 *)
(* You may distribute and modify this file as you wish *)
(* for free *)
(* *)
(* See http://dybdahl.dk/dxgettext/ for more information *)
(* *)
(**************************************************************)
uses
Classes,
SysUtils,
Windows,
ExeImage in 'ExeImage.pas',
rxtypes in 'rxtypes.pas',
poparser in 'poparser.pas',
appconsts in 'appconsts.pas',
xgettext in 'xgettext.pas',
xgettexttools in 'xgettexttools.pas',
consoleapp in 'consoleapp.pas',
consoleoutput in 'consoleoutput.pas',
gnugettext in '..\..\..\common\source\windows\gnugettext.pas';
{ Main }
var
conapp:TConsoleApp;
begin
textdomain('dxgettext');
AddDomainForResourceString('delphi');
AddDomainForResourceString('kylix');
try
conapp:=TConsoleApp.Create;
try
conapp.Execute;
finally
FreeAndNil (conapp);
end;
except
on e:Exception do begin
writeln (e.Message);
ExitCode:=1;
end;
end;
end.
|
