/* Selected output backend
One of (gnome, ps [default], eps, scm, svg, tex, texstr)") */
string output_backend_global = "ps";
+
/* Output formats to generate. */
string output_format_global = "";
bool relocate_binary =
-#if ARGV0_RELOCATION
+#if 1
true;
#else
false
{0, 0, 0, 0}
};
-const char *LILYPOND_DATADIR = PACKAGE_DATADIR "/" TOPLEVEL_VERSION;
+char const *LILYPOND_DATADIR = PACKAGE_DATADIR "/" TOPLEVEL_VERSION;
static void
env_var_info (FILE *out, char const *key)
env_var_info (out, "GS_LIB");
env_var_info (out, "GUILE_LOAD_PATH");
env_var_info (out, "PANGO_RC_FILE");
+ env_var_info (out, "PANGO_PREFIX");
env_var_info (out, "PATH");
}
}
vector<string> components = string_split (jail_spec, ',');
if (components.size () != JAIL_MAX)
{
- error (_f ("expected %d arguments with jail, found: %d", JAIL_MAX,
- components.size ()));
+ error (_f ("expected %d arguments with jail, found: %u", JAIL_MAX,
+ (unsigned) components.size ()));
exit (2);
}
+ init_scheme_variables + "))";
init_scheme_code_string
- += "(begin #t "
+ = "(begin #t "
+ init_scheme_variables
+ init_scheme_code_string
+ ")";
*tail = scm_cons (scm_makfrom0str (arg), SCM_EOL);
tail = SCM_CDRLOC (*tail);
}
+
delete option_parser;
option_parser = 0;
break;
case 'f':
- output_format_global = option_parser->optional_argument_str0_;
+ {
+ vector<string> components
+ = string_split (option_parser->optional_argument_str0_, ',');
+ for (vsize i = 0; i < components.size (); i++)
+ add_output_format (components[i]);
+ }
break;
case 'H':
void
setup_guile_env ()
{
- char *yield = getenv ("LILYPOND_GC_YIELD");
+ const char *yield = getenv ("LILYPOND_GC_YIELD");
bool overwrite = true;
if (!yield)
{
sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite);
}
+void
+read_relocation_dir (string);
+
int
main (int argc, char **argv)
{