Exposed Settings.getHomeDir as API function getHomeDirectoryPath (#7954)

OpenModelica · Sep 30, 2021 · f465ce5 · f465ce5
1 parent d6d4eaf
commit f465ce5
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 0 deletions.
diff --git a/OMCompiler/Compiler/FrontEnd/ModelicaBuiltin.mo b/OMCompiler/Compiler/FrontEnd/ModelicaBuiltin.mo
@@ -1516,6 +1516,12 @@ annotation(Documentation(info="<html>
   preferredView="text");
 end getModelicaPath;
 
+function getHomeDirectoryPath "This returns the path to user HOME directory."
+  output String homeDirectoryPath;
+external "builtin";
+annotation(preferredView="text");
+end getHomeDirectoryPath;
+
 function setCompilerFlags
   input String compilerFlags;
   output Boolean success;

diff --git a/OMCompiler/Compiler/NFFrontEnd/NFModelicaBuiltin.mo b/OMCompiler/Compiler/NFFrontEnd/NFModelicaBuiltin.mo
@@ -1740,6 +1740,12 @@ annotation(Documentation(info="<html>
   preferredView="text");
 end getModelicaPath;
 
+function getHomeDirectoryPath "This returns the path to user HOME directory."
+  output String homeDirectoryPath;
+external "builtin";
+annotation(preferredView="text");
+end getHomeDirectoryPath;
+
 function setCompilerFlags
   input String compilerFlags;
   output Boolean success;

diff --git a/OMCompiler/Compiler/Script/CevalScript.mo b/OMCompiler/Compiler/Script/CevalScript.mo
@@ -803,6 +803,9 @@ algorithm
     case ("setModelicaPath",_)
       then Values.BOOL(false);
 
+    case ("getHomeDirectoryPath",{})
+      then Values.STRING(Settings.getHomeDir(Testsuite.isRunning()));
+
     case ("getLanguageStandard",{})
       then Values.STRING(Config.languageStandardString(Config.getLanguageStandard()));