2 Copyright (C) 2001-2012 Paul Davis
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.
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.
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.
22 #include "bundle_env.h"
26 #include <fontconfig/fontconfig.h>
27 #include <pango/pangoft2.h>
28 #include <pango/pangocairo.h>
32 #include <shlobj.h> // CSIDL_*
34 #include "ardour/ardour.h"
35 #include "ardour/search_paths.h"
36 #include "ardour/filesystem_paths.h"
38 #include "pbd/file_utils.h"
40 #include "pbd/windows_special_dirs.h"
44 using namespace ARDOUR;
47 /* query top-level Ardour installation path.
48 * Typically, this will be somehwere like
49 * "C:\Program Files (x86)\Ardour"
54 const gchar* pExeRoot = g_win32_get_package_installation_directory_of_module (0);
58 DWORD size = PATH_MAX;
62 (ERROR_SUCCESS == RegOpenKeyExA (HKEY_LOCAL_MACHINE, "Software\\" PROGRAM_NAME "\\v" PROGRAM_VERSION "\\w64", 0, KEY_READ, &key))
64 (ERROR_SUCCESS == RegOpenKeyExA (HKEY_LOCAL_MACHINE, "Software\\" PROGRAM_NAME "\\v" PROGRAM_VERSION "\\w32", 0, KEY_READ, &key))
66 &&(ERROR_SUCCESS == RegQueryValueExA (key, "Install_Dir", 0, NULL, reinterpret_cast<LPBYTE>(tmp), &size))
69 pExeRoot = Glib::locale_to_utf8(tmp).c_str();
74 const char *program_files = PBD::get_win_special_folder (CSIDL_PROGRAM_FILES);
76 pExeRoot = g_build_filename(program_files, PROGRAM_NAME, NULL);
80 if (pExeRoot && Glib::file_test(pExeRoot, Glib::FILE_TEST_EXISTS|Glib::FILE_TEST_IS_DIR)) {
81 return std::string (pExeRoot);
88 fixup_bundle_environment (int, char* [], string & localedir)
90 EnvironmentalProtectionAgency::set_global_epa (new EnvironmentalProtectionAgency (true));
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)
96 // Unset GTK_RC_FILES so that only ardour specific files are loaded
97 Glib::unsetenv ("GTK_RC_FILES");
101 if (ARDOUR::translations_are_enabled ()) {
102 path = windows_search_path().to_string();
104 Glib::setenv ("GTK_LOCALEDIR", path, true);
106 // and return the same path to our caller
111 cstr = getenv ("VAMP_PATH");
114 path += G_SEARCHPATH_SEPARATOR;
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);
125 Glib::setenv ("SUIL_MODULE_DIR", Glib::build_filename(ardour_dll_directory(), "suil"), true);
127 /* XXX this should really be PRODUCT_EXE see tools/x-win/package.sh
128 * ardour on windows does not have a startup wrapper script.
130 * then again, there's probably nobody using NSM on windows.
131 * because neither nsmd nor the GUI is currently available for windows.
132 * furthermore it'll be even less common for derived products.
134 Glib::setenv ("ARDOUR_SELF", Glib::build_filename(ardour_dll_directory(), "ardour.exe"), true);
138 unload_custom_fonts()
140 std::string ardour_mono_file;
141 if (!find_file (ardour_data_search_path(), "ArdourMono.ttf", ardour_mono_file)) {
144 RemoveFontResource(ardour_mono_file.c_str());
150 std::string ardour_mono_file;
152 if (!find_file (ardour_data_search_path(), "ArdourMono.ttf", ardour_mono_file)) {
153 cerr << _("Cannot find ArdourMono TrueType font") << endl;
157 if (pango_font_map_get_type() == PANGO_TYPE_FT2_FONT_MAP) {
158 FcConfig *config = FcInitLoadConfigAndFonts();
159 FcBool ret = FcConfigAppFontAddFile(config, reinterpret_cast<const FcChar8*>(ardour_mono_file.c_str()));
161 if (ret == FcFalse) {
162 cerr << _("Cannot load ArdourMono TrueType font.") << endl;
165 ret = FcConfigSetCurrent(config);
167 if (ret == FcFalse) {
168 cerr << _("Failed to set fontconfig configuration.") << endl;
171 // pango with win32 backend
172 if (0 == AddFontResource(ardour_mono_file.c_str())) {
173 cerr << _("Cannot register ArdourMono TrueType font with windows gdi.") << endl;
175 atexit (&unload_custom_fonts);