Speed up AFL/PFL changes for large sessions
[ardour.git] / gtk2_ardour / bundle_env_linux.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 <string>
21 #include <vector>
22 #include <cerrno>
23 #include <cstring>
24
25 #include <glib.h>
26 #include <glibmm/fileutils.h>
27 #include <glibmm/miscutils.h>
28
29 #include <fontconfig/fontconfig.h>
30
31 #include "ardour/ardour.h"
32 #include "ardour/filesystem_paths.h"
33
34 #include "pbd/epa.h"
35 #include "pbd/search_path.h"
36 #include "pbd/pathexpand.h"
37 #include "pbd/file_utils.h"
38
39 #include "ardour_http.h"
40 #include "bundle_env.h"
41
42 #include "pbd/i18n.h"
43
44 using namespace PBD;
45 using namespace ARDOUR;
46 using namespace std;
47
48 void
49 fixup_bundle_environment (int /*argc*/, char* argv[], string & localedir)
50 {
51         /* THIS IS FOR LINUX - its just about the only place where its
52          * acceptable to build paths directly using '/'.
53          */
54
55         if (!g_getenv ("ARDOUR_BUNDLED")) {
56                 return;
57         }
58
59         EnvironmentalProtectionAgency::set_global_epa (new EnvironmentalProtectionAgency (true, "PREBUNDLE_ENV"));
60
61         std::string path;
62         std::string dir_path = Glib::path_get_dirname (Glib::path_get_dirname (argv[0]));
63 #if defined WINDOWS_VST_SUPPORT
64         // argv[0] will be "wine"
65         if (g_getenv ("INSTALL_DIR")) {
66                 dir_path = g_getenv ("INSTALL_DIR");
67         }
68 #endif
69
70 #ifdef ENABLE_NLS
71         if (!ARDOUR::translations_are_enabled ()) {
72                 localedir = "/this/cannot/exist";
73         } else {
74                 /* force localedir into the bundle */
75                 vector<string> lpath;
76                 lpath.push_back (dir_path);
77                 lpath.push_back ("share");
78                 lpath.push_back ("locale");
79                 localedir = canonical_path (Glib::build_filename (lpath)).c_str();
80         }
81 #endif
82
83         /* note that this function is POSIX/Linux specific, so using / as
84            a dir separator in this context is just fine.
85         */
86
87         export_search_path (dir_path, "ARDOUR_DLL_PATH", "/lib");
88         export_search_path (dir_path, "ARDOUR_CONFIG_PATH", "/etc");
89         export_search_path (dir_path, "ARDOUR_INSTANT_XML_PATH", "/share");
90         export_search_path (dir_path, "ARDOUR_DATA_PATH", "/share");
91         export_search_path (dir_path, "LADSPA_PATH", "/plugins");
92         export_search_path (dir_path, "VAMP_PATH", "/lib");
93         export_search_path (dir_path, "GTK_PATH", "/lib/gtkengines");
94
95         g_setenv ("SUIL_MODULE_DIR", (dir_path + "/lib").c_str(), 1);
96         g_setenv ("PATH", (dir_path + "/bin:" + std::string(g_getenv ("PATH"))).c_str(), 1);
97
98         /* unset GTK2_RC_FILES so that we only load the RC files that we define
99          */
100
101         g_unsetenv ("GTK2_RC_FILES");
102
103         /* Tell fontconfig where to find fonts.conf. Use the system version
104            if it exists, otherwise use the stuff we included in the bundle
105         */
106
107         if (Glib::file_test ("/etc/fonts/fonts.conf", Glib::FILE_TEST_EXISTS)) {
108                 g_setenv ("FONTCONFIG_FILE", "/etc/fonts/fonts.conf", 1);
109                 g_setenv ("FONTCONFIG_PATH", "/etc/fonts", 1);
110         } else {
111                 error << _("No fontconfig file found on your system. Things may looked very odd or ugly") << endmsg;
112         }
113
114         /* this doesn't do much but setting it should prevent various parts of the GTK/GNU stack
115                  from looking outside the bundle to find the charset.alias file.
116                  */
117         g_setenv ("CHARSETALIASDIR", dir_path.c_str(), 1);
118
119         ArdourCurl::HttpGet::setup_certificate_paths ();
120 }
121
122 void
123 load_custom_fonts()
124 {
125         std::string ardour_mono_file;
126
127         if (!find_file (ardour_data_search_path(), "ArdourMono.ttf", ardour_mono_file)) {
128                 cerr << _("Cannot find ArdourMono TrueType font") << endl;
129         }
130
131         FcConfig *config = FcInitLoadConfigAndFonts();
132         FcBool ret = FcConfigAppFontAddFile(config, reinterpret_cast<const FcChar8*>(ardour_mono_file.c_str()));
133
134         if (ret == FcFalse) {
135                 cerr << _("Cannot load ArdourMono TrueType font.") << endl;
136         }
137
138         ret = FcConfigSetCurrent(config);
139
140         if (ret == FcFalse) {
141                 cerr << _("Failed to set fontconfig configuration.") << endl;
142         }
143 }