diff options
Diffstat (limited to 'translate/mcode/windows/windows_default_path.adb')
| -rw-r--r-- | translate/mcode/windows/windows_default_path.adb | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/translate/mcode/windows/windows_default_path.adb b/translate/mcode/windows/windows_default_path.adb new file mode 100644 index 0000000..8ad27ed --- /dev/null +++ b/translate/mcode/windows/windows_default_path.adb @@ -0,0 +1,19 @@ +with GNAT.Registry; use GNAT.Registry;
+
+package body Windows_Default_Path is
+ function Get_Windows_Default_Path return String
+ is
+ Key : HKEY;
+ begin
+ Key := Open_Key (HKEY_LOCAL_MACHINE, "Software\Ghdl");
+ declare
+ Res : String := Query_Value (Key, "Install_Dir");
+ begin
+ return Res & "\lib\";
+ end;
+ exception
+ when Registry_Error =>
+ -- Do not write an error message, but return a useful default path.
+ return "{missing HKLM\Software\Ghdl\Install_Dir key}\lib\";
+ end Get_Windows_Default_Path;
+end Windows_Default_Path;
|