Other changes required to support different platforms

AndrzejZalewski · Jul 4, 2017 · e35ab20 · e35ab20
1 parent 351c927
commit e35ab20
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 1 deletion.
diff --git a/DN.EnvironmentOptions.IDE.pas b/DN.EnvironmentOptions.IDE.pas
@@ -59,7 +59,7 @@ implementation
 
 const
   CLibraryKey = 'Library';
-  CPlatformKeys: array[cpWin32..cpOSX32] of string = ('Win32', 'Win64', 'OSX32');
+  CPlatformKeys: array[cpWin32..cpLinux64] of string = ('Win32', 'Win64', 'OSX32', 'Android32', 'iOSDevice32', 'iOSDevice64', 'Linux64');
 
 { TDNIDEEnvironmentOptionsService }
 

diff --git a/DN.JSonFile.Installation.pas b/DN.JSonFile.Installation.pas
@@ -102,6 +102,14 @@ function TInstallationFile.GetPlatforms(
         Result := Result + [cpWin64]
       else if SameText(LPlatform, 'OSX32') then
         Result := Result + [cpOSX32]
+      else if SameText(LPlatform, 'Android') then
+        Result := Result + [cpAndroid]
+      else if SameText(LPlatform, 'IOSDevice32') then
+        Result := Result + [cpIOSDevice32]
+      else if SameText(LPlatform, 'IOSDevice64') then
+        Result := Result + [cpIOSDevice64]
+      else if SameText(LPlatform, 'Linux64') then
+        Result := Result + [cpLinux64]
     end;
   end
   else

diff --git a/DN.ProjectInfo.pas b/DN.ProjectInfo.pas
@@ -242,6 +242,14 @@ function TDNProjectInfo.LoadFromFile(const AProjectFile: string): Boolean;
                       FSupportedPlatforms := FSupportedPlatforms + [cpWin64]
                     else if SameText(LPlatform.Attributes['value'], 'OSX32') then
                       FSupportedPlatforms := FSupportedPlatforms + [cpOSX32]
+                    else if SameText(LPlatform.Attributes['value'], 'Android') then
+                      FSupportedPlatforms := FSupportedPlatforms + [cpAndroid]
+                    else if SameText(LPlatform.Attributes['value'], 'cpIOSDevice32') then
+                      FSupportedPlatforms := FSupportedPlatforms + [cpIOSDevice32]
+                    else if SameText(LPlatform.Attributes['value'], 'iOSDevice64') then
+                      FSupportedPlatforms := FSupportedPlatforms + [cpIOSDevice64]
+                    else if SameText(LPlatform.Attributes['value'], 'Linux64') then
+                      FSupportedPlatforms := FSupportedPlatforms + [cpLinux64]
                   end;
                 end;
                 LPlatform := LPlatform.NextSibling;