Get anaconda path from registry.

Author: kpeeters

README.rst

@@ -388,7 +388,7 @@ warned, it can easily take several hours, but at least it's automatic)::
   
     vcpkg install mpir:x64-windows glibmm:x64-windows   (go have a coffee)
     vcpkg install sqlite3:x64-windows boost:x64-windows (go for dinner)
-    vcpkg install gtkmm:x64-windows                     (run overnight)
+    vcpkg install gtkmm:x64-windows winreg:x64-windows  (run overnight)
     vcpkg integrate install
 
 boost-system:x64-windows

client_server/cadabra-server.cc

@@ -6,6 +6,7 @@
 
 #ifdef _WIN32
 #include <Windows.h>
+#include <WinReg.hpp>
 #endif
 
 // Run a simple Cadabra server on a local port.
@@ -14,10 +15,18 @@ int main()
 	{
 #ifdef _WIN32
 	// The Anaconda people _really_ do not understand packaging...
+	// We are going to find out the installation path for Anaconda/Miniconda
+	// by querying a registry key.
 	std::string pythonhome=Glib::getenv("PYTHONHOME");
-	std::string pythonpath=Glib::getenv("PYTHONPATH");	
-	Glib::setenv("PYTHONHOME", (pythonhome.size()>0)?(pythonhome+":"):"" + Glib::get_home_dir()+"/Anaconda3");
-	Glib::setenv("PYTHONPATH", (pythonpath.size()>0)?(pythonpath+":"):"" + Glib::get_home_dir()+"/Anaconda3");
+	std::string pythonpath=Glib::getenv("PYTHONPATH");
+	
+	winreg::RegKey  key{ winreg::HKEY_CURRENT_USER, L"SOFTWARE\\Python\\PythonCore\\3.7" };
+	std::wstring s  = key.GetStringValue(L"");
+	
+//	Glib::setenv("PYTHONHOME", (pythonhome.size()>0)?(pythonhome+":"):"" + Glib::get_home_dir()+"/Anaconda3");
+//	Glib::setenv("PYTHONPATH", (pythonpath.size()>0)?(pythonpath+":"):"" + Glib::get_home_dir()+"/Anaconda3");
+	Glib::setenv("PYTHONHOME", (pythonhome.size()>0)?(pythonhome+":"):"" + s);
+	Glib::setenv("PYTHONPATH", (pythonpath.size()>0)?(pythonpath+":"):"" + s);
 //	std::cerr << "Server::init: using PYTHONPATH = " << Glib::getenv("PYTHONPATH")
 //				 << " and PYTHONHOME = " << Glib::getenv("PYTHONHOME") << "." << std::endl;
 #endif