mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-12 20:05:34 +00:00
5d32a61a63
Updates Keyman for Windows and Keyman Developer sources so that they build under Delphi 10.4. No validation has been performed to ensure that there are no other issues. The intent here is to get a baseline build working. Note also IMSample.vcxproj which has its WinSDK version updated for VS2019.
75 lines
2 KiB
ObjectPascal
75 lines
2 KiB
ObjectPascal
unit SourceRootPath;
|
|
|
|
interface
|
|
|
|
{$IFDEF VER310}
|
|
const DelphiMajorVersion = '18.0';
|
|
{$ELSE}
|
|
{$IFDEF VER320}
|
|
const DelphiMajorVersion = '19.0';
|
|
{$ELSE}
|
|
{$IFDEF VER330}
|
|
const DelphiMajorVersion = '20.0';
|
|
{$ELSE}
|
|
{$IFDEF VER340}
|
|
const DelphiMajorVersion = '21.0';
|
|
{$ELSE}
|
|
ERROR: must define Delphi version
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
const DelphiBasePath = 'C:\Program Files (x86)\Embarcadero\Studio\' + DelphiMajorVersion + '\';
|
|
|
|
function CSourcePath: string;
|
|
function CSourceRootPath: string; //='C:\Projects\keyman\open\windows\src';
|
|
function CSourceBinRootPath: string; //='C:\Projects\keyman\open\windows\bin';
|
|
function CSourceRootLibPath: string; //='C:\Projects\keyman\open\windows\lib';
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils;
|
|
|
|
function CSourcePath: string;
|
|
begin
|
|
// Root path of repo should be found in environment variable KEYMAN_ROOT
|
|
// e.g. C:\projects\keyman\open
|
|
Result := GetEnvironmentVariable('KEYMAN_ROOT');
|
|
if Result = '' then
|
|
begin
|
|
// If not found, look at path of executable. It should be either
|
|
// src\buildtools\<app>\<app.exe> or bin\buildtools\<app.exe>
|
|
|
|
Result := ExtractFileDir(ParamStr(0));
|
|
if not SameText(ExtractFileName(Result), 'buildtools') then
|
|
Result := ExtractFileDir(Result);
|
|
if not SameText(ExtractFileName(Result), 'buildtools') then
|
|
begin
|
|
raise Exception.Create('Unable to locate source root path. Set KEYMAN_ROOT environment variable accordingly');
|
|
end;
|
|
Result := ExtractFileDir(Result); //src or bin
|
|
Result := ExtractFileDir(Result); //windows
|
|
Result := ExtractFileDir(Result); //root
|
|
end
|
|
else
|
|
Result := ExcludeTrailingPathDelimiter(Result);
|
|
end;
|
|
|
|
function CSourceRootPath: string; //='C:\Projects\keyman\open\windows\src';
|
|
begin
|
|
Result := CSourcePath + '\windows\src';
|
|
end;
|
|
|
|
function CSourceBinRootPath: string; //='C:\Projects\keyman\open\windows\bin';
|
|
begin
|
|
Result := CSourcePath + '\windows\bin';
|
|
end;
|
|
|
|
function CSourceRootLibPath: string; //='C:\Projects\keyman\open\windows\lib';
|
|
begin
|
|
Result := CSourcePath + '\windows\lib';
|
|
end;
|
|
|
|
end.
|