mirror of
https://github.com/keymanapp/keyman.git
synced 2026-09-15 03:57:43 +00:00
3a91c7d197
First part of addressing #10161 is to refactor the existing usage of the registry values into the common KeymanDeveloperOptions unit. This was mostly straightforward except for the changes to KeymanSentryClient, which happens to be the most important part of this particular fix.
115 lines
8.3 KiB
ObjectPascal
115 lines
8.3 KiB
ObjectPascal
program kmconvert;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
uses
|
|
System.SysUtils,
|
|
Keyman.Developer.System.KeymanConvertMain in 'Keyman.Developer.System.KeymanConvertMain.pas',
|
|
Keyman.Developer.System.ImportWindowsKeyboard in 'Keyman.Developer.System.ImportWindowsKeyboard.pas',
|
|
RegistryKeys in '..\..\..\common\windows\delphi\general\RegistryKeys.pas',
|
|
KeymanVersion in '..\..\..\common\windows\delphi\general\KeymanVersion.pas',
|
|
utilexecute in '..\..\..\common\windows\delphi\general\utilexecute.pas',
|
|
Keyman.Developer.System.KeyboardProjectTemplate in 'Keyman.Developer.System.KeyboardProjectTemplate.pas',
|
|
UKeymanTargets in '..\common\delphi\general\UKeymanTargets.pas',
|
|
utilstr in '..\..\..\common\windows\delphi\general\utilstr.pas',
|
|
Unicode in '..\..\..\common\windows\delphi\general\Unicode.pas',
|
|
StockFileNames in '..\..\..\common\windows\delphi\general\StockFileNames.pas',
|
|
utilfiletypes in '..\..\..\common\windows\delphi\general\utilfiletypes.pas',
|
|
KeyboardParser in '..\TIKE\main\KeyboardParser.pas',
|
|
kmxfile in '..\..\..\common\windows\delphi\keyboards\kmxfile.pas',
|
|
kmxfileconsts in '..\..\..\common\windows\delphi\keyboards\kmxfileconsts.pas',
|
|
ExtShiftState in '..\..\..\common\windows\delphi\visualkeyboard\ExtShiftState.pas',
|
|
utilsystem in '..\..\..\common\windows\delphi\general\utilsystem.pas',
|
|
VKeys in '..\..\..\common\windows\delphi\general\VKeys.pas',
|
|
WindowsLanguages in '..\common\delphi\general\WindowsLanguages.pas',
|
|
GetOsVersion in '..\..\..\common\windows\delphi\general\GetOsVersion.pas',
|
|
KeyNames in '..\..\..\common\windows\delphi\general\KeyNames.pas',
|
|
utildir in '..\..\..\common\windows\delphi\general\utildir.pas',
|
|
TextFileFormat in '..\common\delphi\general\TextFileFormat.pas',
|
|
kpsfile in '..\common\delphi\packages\kpsfile.pas',
|
|
PackageInfo in '..\..\..\common\windows\delphi\packages\PackageInfo.pas',
|
|
JsonUtil in '..\..\..\common\windows\delphi\general\JsonUtil.pas',
|
|
VersionInfo in '..\..\..\common\windows\delphi\general\VersionInfo.pas',
|
|
PackageFileFormats in '..\..\..\common\windows\delphi\packages\PackageFileFormats.pas',
|
|
Keyman.Developer.System.Project.ProjectLog in '..\TIKE\project\Keyman.Developer.System.Project.ProjectLog.pas',
|
|
BCP47Tag in '..\..\..\common\windows\delphi\general\BCP47Tag.pas',
|
|
Keyman.System.CanonicalLanguageCodeUtils in '..\..\..\common\windows\delphi\general\Keyman.System.CanonicalLanguageCodeUtils.pas',
|
|
Keyman.System.LanguageCodeUtils in '..\..\..\common\windows\delphi\general\Keyman.System.LanguageCodeUtils.pas',
|
|
Keyman.System.KeyboardJSInfo in '..\common\delphi\keyboards\Keyman.System.KeyboardJSInfo.pas',
|
|
Keyman.System.KeyboardUtils in '..\common\delphi\keyboards\Keyman.System.KeyboardUtils.pas',
|
|
Keyman.System.KMXFileLanguages in '..\common\delphi\keyboards\Keyman.System.KMXFileLanguages.pas',
|
|
Keyman.System.Standards.BCP47SubtagRegistry in '..\..\..\common\windows\delphi\standards\Keyman.System.Standards.BCP47SubtagRegistry.pas',
|
|
Keyman.System.Standards.BCP47SuppressScriptRegistry in '..\..\..\common\windows\delphi\standards\Keyman.System.Standards.BCP47SuppressScriptRegistry.pas',
|
|
Keyman.System.Standards.ISO6393ToBCP47Registry in '..\..\..\common\windows\delphi\standards\Keyman.System.Standards.ISO6393ToBCP47Registry.pas',
|
|
Keyman.System.Standards.LCIDToBCP47Registry in '..\..\..\common\windows\delphi\standards\Keyman.System.Standards.LCIDToBCP47Registry.pas',
|
|
Keyman.System.RegExGroupHelperRSP19902 in '..\..\..\common\windows\delphi\vcl\Keyman.System.RegExGroupHelperRSP19902.pas',
|
|
Keyman.System.PackageInfoRefreshKeyboards in '..\common\delphi\packages\Keyman.System.PackageInfoRefreshKeyboards.pas',
|
|
Keyman.Developer.System.Project.ProjectFile in '..\TIKE\project\Keyman.Developer.System.Project.ProjectFile.pas',
|
|
Keyman.Developer.System.Project.ProjectFiles in '..\TIKE\project\Keyman.Developer.System.Project.ProjectFiles.pas',
|
|
Keyman.Developer.System.Project.ProjectSaver in '..\TIKE\project\Keyman.Developer.System.Project.ProjectSaver.pas',
|
|
Keyman.Developer.System.Project.ProjectFileType in '..\TIKE\project\Keyman.Developer.System.Project.ProjectFileType.pas',
|
|
mrulist in '..\TIKE\main\mrulist.pas',
|
|
ErrorControlledRegistry in '..\..\..\common\windows\delphi\vcl\ErrorControlledRegistry.pas',
|
|
TempFileManager in '..\..\..\common\windows\delphi\general\TempFileManager.pas',
|
|
klog in '..\..\..\common\windows\delphi\general\klog.pas',
|
|
RedistFiles in '..\TIKE\main\RedistFiles.pas',
|
|
DebugPaths in '..\..\..\common\windows\delphi\general\DebugPaths.pas',
|
|
Upload_Settings in '..\..\..\common\windows\delphi\general\Upload_Settings.pas',
|
|
Keyman.Developer.System.Project.Project in '..\TIKE\project\Keyman.Developer.System.Project.Project.pas',
|
|
Keyman.Developer.System.Project.ProjectLoader in '..\TIKE\project\Keyman.Developer.System.Project.ProjectLoader.pas',
|
|
Keyman.Developer.System.Project.kmnProjectFile in '..\TIKE\project\Keyman.Developer.System.Project.kmnProjectFile.pas',
|
|
Keyman.Developer.System.Project.kpsProjectFile in '..\TIKE\project\Keyman.Developer.System.Project.kpsProjectFile.pas',
|
|
VisualKeyboard in '..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboard.pas',
|
|
VKeyChars in '..\..\..\common\windows\delphi\general\VKeyChars.pas',
|
|
VisualKeyboardLoaderBinary in '..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardLoaderBinary.pas',
|
|
VisualKeyboardLoaderXML in '..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardLoaderXML.pas',
|
|
VisualKeyboardSaverBinary in '..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardSaverBinary.pas',
|
|
VisualKeyboardSaverXML in '..\..\..\common\windows\delphi\visualkeyboard\VisualKeyboardSaverXML.pas',
|
|
Keyman.Developer.System.KMConvertParameters in 'Keyman.Developer.System.KMConvertParameters.pas',
|
|
Keyman.Developer.System.ImportKeyboardDLL in 'Keyman.Developer.System.ImportKeyboardDLL.pas',
|
|
ScanCodeMap in '..\..\..\common\windows\delphi\general\ScanCodeMap.pas',
|
|
Keyman.Developer.System.TouchLayoutToVisualKeyboardConverter in 'Keyman.Developer.System.TouchLayoutToVisualKeyboardConverter.pas',
|
|
OnScreenKeyboardData in '..\..\..\common\windows\delphi\visualkeyboard\OnScreenKeyboardData.pas',
|
|
TouchLayout in '..\TIKE\oskbuilder\TouchLayout.pas',
|
|
TouchLayoutDefinitions in '..\TIKE\oskbuilder\TouchLayoutDefinitions.pas',
|
|
KeyboardFonts in '..\common\delphi\general\KeyboardFonts.pas',
|
|
Keyman.System.Util.RenderLanguageIcon in '..\..\..\common\windows\delphi\ui\Keyman.System.Util.RenderLanguageIcon.pas',
|
|
utilicon in '..\..\..\common\windows\delphi\general\utilicon.pas',
|
|
Keyman.Developer.System.ModelProjectTemplate in 'Keyman.Developer.System.ModelProjectTemplate.pas',
|
|
Keyman.Developer.System.Project.modelTsProjectFile in '..\TIKE\project\Keyman.Developer.System.Project.modelTsProjectFile.pas',
|
|
Keyman.Developer.System.Project.wordlistTsvProjectFile in '..\TIKE\project\Keyman.Developer.System.Project.wordlistTsvProjectFile.pas',
|
|
Sentry.Client in '..\..\..\common\windows\delphi\ext\sentry\Sentry.Client.pas',
|
|
Sentry.Client.Console in '..\..\..\common\windows\delphi\ext\sentry\Sentry.Client.Console.pas',
|
|
sentry in '..\..\..\common\windows\delphi\ext\sentry\sentry.pas',
|
|
Keyman.System.KeymanSentryClient in '..\..\..\common\windows\delphi\general\Keyman.System.KeymanSentryClient.pas',
|
|
KeymanPaths in '..\..\..\common\windows\delphi\general\KeymanPaths.pas',
|
|
Keyman.System.Standards.LangTagsRegistry in '..\..\..\common\windows\delphi\standards\Keyman.System.Standards.LangTagsRegistry.pas',
|
|
Keyman.Developer.System.Project.UrlRenderer in '..\TIKE\project\Keyman.Developer.System.Project.UrlRenderer.pas',
|
|
Keyman.System.LexicalModelUtils in '..\common\delphi\lexicalmodels\Keyman.System.LexicalModelUtils.pas',
|
|
KeymanDeveloperOptions in '..\TIKE\main\KeymanDeveloperOptions.pas',
|
|
Keyman.Developer.System.KeymanDeveloperPaths in '..\tike\main\Keyman.Developer.System.KeymanDeveloperPaths.pas';
|
|
|
|
{$R icons.RES}
|
|
{$R version.res}
|
|
{$R manifest.res}
|
|
|
|
const
|
|
LOGGER_DEVELOPER_TOOLS_KMCONVERT = TKeymanSentryClient.LOGGER_DEVELOPER_TOOLS + '.kmconvert';
|
|
begin
|
|
TKeymanSentryClient.Start(TSentryClientConsole, kscpDeveloper, LOGGER_DEVELOPER_TOOLS_KMCONVERT, LoadKeymanDeveloperSentryFlags);
|
|
try
|
|
try
|
|
TKeymanSentryClient.Validate;
|
|
Run;
|
|
except
|
|
on E: Exception do
|
|
if not SentryHandleException(E) then
|
|
begin
|
|
writeln(E.Message);
|
|
ExitCode := 99;
|
|
end;
|
|
end;
|
|
finally
|
|
TKeymanSentryClient.Stop;
|
|
end;
|
|
end.
|