gtk2_ardour/bundle_env_mingw.cc

   1 /*
   2     Copyright (C) 2001-2012 Paul Davis
   3
   4     This program is free software; you can redistribute it and/or modify
   5     it under the terms of the GNU General Public License as published by
   6     the Free Software Foundation; either version 2 of the License, or
   7     (at your option) any later version.
   8
   9     This program is distributed in the hope that it will be useful,
  10     but WITHOUT ANY WARRANTY; without even the implied warranty of
  11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12     GNU General Public License for more details.
  13
  14     You should have received a copy of the GNU General Public License
  15     along with this program; if not, write to the Free Software
  16     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17
  18 */
  19
  20 #include <stdlib.h>
  21 #include <string>
  22 #include "bundle_env.h"
  23 #include "i18n.h"
  24
  25 #include <glibmm.h>
  26 #include <fontconfig/fontconfig.h>
  27 #include <pango/pangoft2.h>
  28 #include <pango/pangocairo.h>
  29
  30 #include <windows.h>
  31 #include <wingdi.h>
  32 #include <shlobj.h> // CSIDL_*
  33
  34 #include "ardour/ardour.h"
  35 #include "ardour/search_paths.h"
  36 #include "ardour/filesystem_paths.h"
  37
  38 #include "pbd/file_utils.h"
  39 #include "pbd/epa.h"
  40 #include "pbd/windows_special_dirs.h"
  41
  42 using namespace std;
  43 using namespace PBD;
  44 using namespace ARDOUR;
  45
  46
  47 /* query top-level Ardour installation path.
  48  * Typically, this will be somehwere like
  49  * "C:\Program Files (x86)\Ardour"
  50  */
  51 const std::string
  52 get_install_path ()
  53 {
  54         const gchar* pExeRoot = g_win32_get_package_installation_directory_of_module (0);
  55
  56         if (0 == pExeRoot) {
  57                 HKEY key;
  58                 DWORD size = PATH_MAX;
  59                 char tmp[PATH_MAX+1];
  60                 if (
  61 #ifdef __MINGW64__
  62                                 (ERROR_SUCCESS == RegOpenKeyExA (HKEY_LOCAL_MACHINE, "Software\\" PROGRAM_NAME "\\v" PROGRAM_VERSION "\\w64", 0, KEY_READ, &key))
  63 #else
  64                                 (ERROR_SUCCESS == RegOpenKeyExA (HKEY_LOCAL_MACHINE, "Software\\" PROGRAM_NAME "\\v" PROGRAM_VERSION "\\w32", 0, KEY_READ, &key))
  65 #endif
  66                                 &&(ERROR_SUCCESS == RegQueryValueExA (key, "Install_Dir", 0, NULL, reinterpret_cast<LPBYTE>(tmp), &size))
  67                          )
  68                 {
  69                         pExeRoot = Glib::locale_to_utf8(tmp).c_str();
  70                 }
  71         }
  72
  73         if (0 == pExeRoot) {
  74                 const char *program_files = PBD::get_win_special_folder (CSIDL_PROGRAM_FILES);
  75                 if (program_files) {
  76                         pExeRoot = g_build_filename(program_files, PROGRAM_NAME, NULL);
  77                 }
  78         }
  79
  80         if (pExeRoot && Glib::file_test(pExeRoot, Glib::FILE_TEST_EXISTS|Glib::FILE_TEST_IS_DIR)) {
  81                 return std::string (pExeRoot);
  82         }
  83         return "";
  84 }
  85
  86
  87 void
  88 fixup_bundle_environment (int, char* [], string & localedir)
  89 {
  90         EnvironmentalProtectionAgency::set_global_epa (new EnvironmentalProtectionAgency (true));
  91         /* what to do ? */
  92         // we should at least set ARDOUR_DATA_PATH to prevent the warning message.
  93         // setting a FONTCONFIG_FILE won't hurt either see bundle_env_msvc.cc
  94         // (pangocairo prefers the windows gdi backend unless PANGOCAIRO_BACKEND=fc is set)
  95
  96         // Unset GTK_RC_FILES so that only ardour specific files are loaded
  97         Glib::unsetenv ("GTK_RC_FILES");
  98
  99         std::string path;
 100
 101         if (ARDOUR::translations_are_enabled ()) {
 102                 path = windows_search_path().to_string();
 103                 path += "\\locale";
 104                 Glib::setenv ("GTK_LOCALEDIR", path, true);
 105
 106                 // and return the same path to our caller
 107                 localedir = path;
 108         }
 109
 110         const char *cstr;
 111         cstr = getenv ("VAMP_PATH");
 112         if (cstr) {
 113                 path = cstr;
 114                 path += G_SEARCHPATH_SEPARATOR;
 115         } else {
 116                 path = "";
 117         }
 118         path += Glib::build_filename(ardour_dll_directory(), "vamp");
 119         path += G_SEARCHPATH_SEPARATOR;
 120         path += "%ProgramFiles%\\Vamp Plugins"; // default vamp path
 121         path += G_SEARCHPATH_SEPARATOR;
 122         path += "%COMMONPROGRAMFILES%\\Vamp Plugins";
 123         Glib::setenv ("VAMP_PATH", path, true);
 124
 125         Glib::setenv ("SUIL_MODULE_DIR", Glib::build_filename(ardour_dll_directory(), "suil"), true);
 126 }
 127
 128 static __cdecl void
 129 unload_custom_fonts()
 130 {
 131         std::string ardour_mono_file;
 132         if (!find_file (ardour_data_search_path(), "ArdourMono.ttf", ardour_mono_file)) {
 133                 return;
 134         }
 135         RemoveFontResource(ardour_mono_file.c_str());
 136 }
 137
 138 void
 139 load_custom_fonts()
 140 {
 141         std::string ardour_mono_file;
 142
 143         if (!find_file (ardour_data_search_path(), "ArdourMono.ttf", ardour_mono_file)) {
 144                 cerr << _("Cannot find ArdourMono TrueType font") << endl;
 145                 return;
 146         }
 147
 148         if (pango_font_map_get_type() == PANGO_TYPE_FT2_FONT_MAP) {
 149                 FcConfig *config = FcInitLoadConfigAndFonts();
 150                 FcBool ret = FcConfigAppFontAddFile(config, reinterpret_cast<const FcChar8*>(ardour_mono_file.c_str()));
 151
 152                 if (ret == FcFalse) {
 153                         cerr << _("Cannot load ArdourMono TrueType font.") << endl;
 154                 }
 155
 156                 ret = FcConfigSetCurrent(config);
 157
 158                 if (ret == FcFalse) {
 159                         cerr << _("Failed to set fontconfig configuration.") << endl;
 160                 }
 161         } else {
 162                 // pango with win32 backend
 163                 if (0 == AddFontResource(ardour_mono_file.c_str())) {
 164                         cerr << _("Cannot register ArdourMono TrueType font with windows gdi.") << endl;
 165                 } else {
 166                         atexit (&unload_custom_fonts);
 167                 }
 168         }
 169 }