+ /* tilde expansion */
+
+ if (path[0] == '~') {
+ if (path.length() == 1) {
+ return Glib::get_home_dir();
+ }
+
+ if (path[1] == '/') {
+ path.replace (0, 1, Glib::get_home_dir());
+ } else {
+ /* can't handle ~roger, so just leave it */
+ }
+ }
+
+ /* now do $VAR substitution, since wordexp isn't reliable */
+
+ regex_t compiled_pattern;
+ const int nmatches = 100;
+ regmatch_t matches[nmatches];
+
+ if (regcomp (&compiled_pattern, "\\$([a-zA-Z_][a-zA-Z0-9_]*|\\{[a-zA-Z_][a-zA-Z0-9_]*\\})", REG_EXTENDED)) {
+ cerr << "bad regcomp\n";
+ return path;
+ }
+
+ while (true) {
+
+ if (regexec (&compiled_pattern, path.c_str(), nmatches, matches, 0)) {
+ break;
+ }
+
+ /* matches[0] gives the entire match */
+
+ string match = path.substr (matches[0].rm_so, matches[0].rm_eo - matches[0].rm_so);
+
+ /* try to get match from the environment */
+
+ if (match[1] == '{') {
+ /* ${FOO} form */
+ match = match.substr (2, match.length() - 3);
+ }
+
+ char* matched_value = getenv (match.c_str());
+
+ if (matched_value) {
+ path.replace (matches[0].rm_so, matches[0].rm_eo - matches[0].rm_so, matched_value);
+ } else {
+ path.replace (matches[0].rm_so, matches[0].rm_eo - matches[0].rm_so, string());
+ }
+
+ /* go back and do it again with whatever remains after the
+ * substitution
+ */