mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-27 18:57:42 +00:00
9066b47320
TJCLMapScanner was the only class used in the entire JCL, in a build-time project (sentrytool). For now, I have copied this class plus its handful of dependent functions into Keyman.System.JclMapScanner so that we can remove 3381 files from the repository. We do not plan to use JCL in the future.
25 lines
617 B
ObjectPascal
25 lines
617 B
ObjectPascal
program sentrytool;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
{$R *.res}
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Keyman.System.SentryTool.SentryToolMain in 'Keyman.System.SentryTool.SentryToolMain.pas',
|
|
Keyman.System.MapToSym in 'Keyman.System.MapToSym.pas',
|
|
Keyman.System.AddPdbToPe in 'Keyman.System.AddPdbToPe.pas',
|
|
Keyman.System.SentryTool.DelphiSearchFile in 'Keyman.System.SentryTool.DelphiSearchFile.pas',
|
|
Keyman.System.JclMapScanner in 'Keyman.System.JclMapScanner.pas';
|
|
|
|
begin
|
|
try
|
|
ExitCode := main;
|
|
except
|
|
on E: Exception do
|
|
begin
|
|
Writeln(E.ClassName, ': ', E.Message);
|
|
ExitCode := 1;
|
|
end;
|
|
end;
|
|
end.
|