Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / main.cc

diff --git a/lily/main.cc b/lily/main.cc
index 3ea52240a6413be49418359bb6c7c6f7fb9cb5d3..f640801b84a647ecffec6878d371c6b4a3706915 100644 (file)
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -49,22 +49,23 @@ using namespace std;
  */
 
 /* Names of header fields to be dumped to a separate file. */
-Array<std::string> dump_header_fieldnames_global;
+vector<string> dump_header_fieldnames_global;
 
 /* Name of initialisation file. */
-std::string init_name_global;
+string init_name_global;
 
 /* Selected output backend
    One of (gnome, ps [default], eps, scm, svg, tex, texstr)") */
-std::string output_backend_global = "ps";
+string output_backend_global = "ps";
+
 /* Output formats to generate.  */
-std::string output_format_global = "";
+string output_format_global = "";
 
 bool is_pango_format_global;
 bool is_TeX_format_global;
 
 /* Current output name. */
-std::string output_name_global;
+string output_name_global;
 
 /* Run in safe mode? */
 bool be_safe_global = false;
@@ -77,8 +78,8 @@ bool be_verbose_global = false;
 
 /* Scheme code to execute before parsing, after .scm init.
    This is where -e arguments are appended to.  */
-std::string init_scheme_code_string;
-std::string init_scheme_variables;
+string init_scheme_code_string;
+string init_scheme_variables;
 
 /* Generate preview of first system.  */
 bool make_preview = false;
@@ -136,10 +137,10 @@ static char const *WARRANTY
 /* Where the init files live.  Typically:
    LILYPOND_DATADIR = /usr/share/lilypond
 */
-std::string prefix_directory;
+string prefix_directory;
 
 /* The jail specification: USER,GROUP,JAIL,DIR. */
-std::string jail_spec;
+string jail_spec;
 
 /*  The option parser */
 static Getopt_long *option_parser = 0;
@@ -184,7 +185,7 @@ static Long_option_init options_static[]
   {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)
@@ -211,6 +212,7 @@ dir_info (FILE *out)
       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");
     }
 }
@@ -276,9 +278,9 @@ warranty ()
 }
 
 static void
-prepend_load_path (std::string dir)
+prepend_load_path (string dir)
 {
-  std::string s = "(set! %load-path (cons \"" + dir + "\" %load-path))";
+  string s = "(set! %load-path (cons \"" + dir + "\" %load-path))";
   scm_c_eval_string (s.c_str ());
 }
 
@@ -300,11 +302,11 @@ do_chroot_jail ()
       USER_NAME, GROUP_NAME, JAIL, DIR, JAIL_MAX
     };
 
-  Array<std::string> components = String_convert::split (jail_spec, ',');
+  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);
     }
 
@@ -402,7 +404,7 @@ main_with_guile (void *, int, char **)
        + init_scheme_variables + "))";
 
       init_scheme_code_string
-       += "(begin #t "
+       = "(begin #t "
        + init_scheme_variables
        + init_scheme_code_string
        + ")";
@@ -451,7 +453,7 @@ setup_localisation ()
      Disable localisation of float values.  This breaks TeX output.  */
   setlocale (LC_NUMERIC, "C");
 
-  std::string localedir = LOCALEDIR;
+  string localedir = LOCALEDIR;
   if (char const *env = getenv ("LILYPOND_LOCALEDIR"))
     localedir = env;
 
@@ -461,7 +463,7 @@ setup_localisation ()
 }
 
 static void
-add_output_format (std::string format)
+add_output_format (string format)
 {
   if (output_format_global != "")
     output_format_global += ",";
@@ -478,27 +480,27 @@ parse_argv (int argc, char **argv)
       switch (opt->shortname_char_)
        {
        case 0:
-         if (std::string (opt->longname_str0_) == "dvi"
-             || std::string (opt->longname_str0_) == "pdf"
-             || std::string (opt->longname_str0_) == "png"
-             || std::string (opt->longname_str0_) == "ps"
-             || std::string (opt->longname_str0_) == "tex")
+         if (string (opt->longname_str0_) == "dvi"
+             || string (opt->longname_str0_) == "pdf"
+             || string (opt->longname_str0_) == "png"
+             || string (opt->longname_str0_) == "ps"
+             || string (opt->longname_str0_) == "tex")
            add_output_format (opt->longname_str0_);
-         else if (std::string (opt->longname_str0_) == "preview")
+         else if (string (opt->longname_str0_) == "preview")
            make_preview = true;
-         else if (std::string (opt->longname_str0_) == "no-pages")
+         else if (string (opt->longname_str0_) == "no-pages")
            make_print = false;
-         else if (std::string (opt->longname_str0_) == "relocate")
+         else if (string (opt->longname_str0_) == "relocate")
            relocate_binary = true;
          break;
 
        case 'd':
          {
-           std::string arg (option_parser->optional_argument_str0_);
+           string arg (option_parser->optional_argument_str0_);
            ssize eq = arg.find ('=');
 
-           std::string key = arg;
-           std::string val = "#t";
+           string key = arg;
+           string val = "#t";
 
            if (eq != NPOS)
              {
@@ -517,7 +519,7 @@ parse_argv (int argc, char **argv)
          break;
        case 'o':
          {
-           std::string s = option_parser->optional_argument_str0_;
+           string s = option_parser->optional_argument_str0_;
            File_name file_name (s);
            output_name_global = file_name.to_string ();
          }
@@ -543,7 +545,7 @@ parse_argv (int argc, char **argv)
 
        case 'H':
          dump_header_fieldnames_global
-           .push (option_parser->optional_argument_str0_);
+           .push_back (option_parser->optional_argument_str0_);
          break;
        case 'I':
          global_path.append (option_parser->optional_argument_str0_);
@@ -590,7 +592,7 @@ parse_argv (int argc, char **argv)
 void
 setup_guile_env ()
 {
-  char *yield = getenv ("LILYPOND_GC_YIELD");
+  const char *yield = getenv ("LILYPOND_GC_YIELD");
   bool overwrite = true;
   if (!yield)
     {
@@ -603,6 +605,9 @@ setup_guile_env ()
   sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite);
 }
 
+void
+read_relocation_dir (string);
+
 int
 main (int argc, char **argv)
 {
@@ -616,7 +621,16 @@ main (int argc, char **argv)
 
   setup_paths (argv[0]);
   setup_guile_env ();
-  scm_boot_guile (argc, argv, main_with_guile, 0);
+
+  /* Debugging aid.  */
+  try
+    {
+      scm_boot_guile (argc, argv, main_with_guile, 0);
+    }
+  catch (exception e)
+    {
+      error (_f ("exception caught: %s", e.what ()));
+    };
 
   /* Only reachable if GUILE exits.  That is an error.  */
   return 1;