]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/main.cc
* lily/modified-font-metric.cc (text_dimension): try
[lilypond.git] / lily / main.cc
index 74ac10ecd4a071b044e07601dcd1233784a99cd1..8cca9aa0e3281e14e818630243dcbd1efd16ec96 100644 (file)
@@ -6,13 +6,13 @@
   (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
-#include <stdlib.h>
-#include <stdio.h>
-#include <assert.h>
-#include <locale.h>
-#include <string.h>
+#include "main.hh"
+
+#include <cassert>
+#include <clocale>
+#include <cstring>
 
-#include "config.h"
+#include "config.hh"
 
 #if HAVE_GETTEXT
 #include <libintl.h>
 
 #include "all-font-metrics.hh"
 #include "file-name.hh"
-#include "file-path.hh"
 #include "getopt-long.hh"
 #include "global-ctor.hh"
 #include "kpath.hh"
 #include "lily-guile.hh"
 #include "lily-version.hh"
-#include "main.hh"
 #include "misc.hh"
 #include "output-def.hh"
-#include "string.hh"
 #include "warn.hh"
+#include "freetype.hh"
 
 /*
  * Global options that can be overridden through command line.
@@ -42,11 +40,12 @@ Array<String> dump_header_fieldnames_global;
 /* Name of initialisation file. */
 String init_name_global;
 
-/* Do not calculate and write paper output? */
-bool no_paper_global_b = false;
+/* Do not calculate and write layout output? */
+bool no_layout_global_b = false;
 
 /* Selected output format.
-   One of tex, ps, scm, as. */
+   One of tex, ps, scm, as.
+*/
 String output_format_global = "tex";
 
 /* Current output name. */
@@ -63,7 +62,13 @@ bool verbose_global_b = false;
 */
 String init_scheme_code_string = "(begin #t ";
 
-
+bool make_pdf = false;
+bool make_dvi = false;
+bool make_ps = false;
+bool make_png = false;
+bool make_preview = false;
+bool make_pages = true;
+bool make_tex = false;
 
 /*
  * Miscellaneous global stuff.
@@ -79,13 +84,13 @@ static char const *AUTHORS =
 "  Han-Wen Nienhuys <hanwen@cs.uu.nl>\n"
 "  Jan Nieuwenhuizen <janneke@gnu.org>\n";
 
-static char const *PROGRAM_NAME = "lilypond-bin";
+static char const *PROGRAM_NAME = "lilypond";
 static char const *PROGRAM_URL = "http://lilypond.org";
 
 static char const *NOTICE =
 _i ("This program is free software.  It is covered by the GNU General Public\n"
     "License and you are welcome to change it and/or distribute copies of it\n"
-    "under certain conditions.  Invoke as `lilypond-bin --warranty' for more\n"
+    "under certain conditions.  Invoke as `lilypond --warranty' for more\n"
     "information.\n");
   
 static char const *WARRANTY =
@@ -119,16 +124,23 @@ static Getopt_long *option_parser = 0;
 static Long_option_init options_static[] =
   {
     {_i ("EXPR"), "evaluate", 'e',
-     _i ("set options, use -e '(ly-option-usage)' for help")},
-    /* Bug in option parser: --output=foe is taken as an abbreviation
+     _i ("set option, use -e '(ly:option-usage)' for help")},
+    /* Bug in option parser: --output =foe is taken as an abbreviation
        for --output-format.  */
-    {_i ("EXT"), "format", 'f', _i ("use output format EXT")},
+    {_i ("EXT"), "format", 'f', _i ("select back-end to use")},
     {0, "help", 'h',  _i ("print this help")},
     {_i ("FIELD"), "header", 'H',  _i ("write header field to BASENAME.FIELD")},
     {_i ("DIR"), "include", 'I',  _i ("add DIR to search path")},
     {_i ("FILE"), "init", 'i',  _i ("use FILE as init file")},
-    {0, "no-paper", 'm',  _i ("produce MIDI output only")},
+    {0, "no-layout", 'm',  _i ("produce MIDI output only")},
     {_i ("FILE"), "output", 'o',  _i ("write output to FILE")},
+    {0, "preview", 'p',  _i ("generate a preview")},
+    {0, "no-pages", 0,  _i ("don't generate full pages")},
+    {0, "png", 0,  _i ("generate PNG")},
+    {0, "ps", 0,  _i ("generate PostScript")},
+    {0, "dvi", 0,  _i ("generate DVI")},
+    {0, "pdf", 0,  _i ("generate PDF (default)")},
+    {0, "tex", 0,  _i ("generate TeX")},
     {0, "safe-mode", 's',  _i ("run in safe mode")},
     {0, "version", 'v',  _i ("print version number")},
     {0, "verbose", 'V', _i ("be verbose")},
@@ -140,12 +152,12 @@ static void
 dir_info (FILE *out)
 {
   fputs ("\n", out);
-  fprintf (out, "LILYPOND_DATADIR=\"%s\"\n", LILYPOND_DATADIR);
-  fprintf (out, "LOCAL_LILYPOND_DATADIR=\%s\"\n", LOCAL_LILYPOND_DATADIR);
-  fprintf (out, "LOCALEDIR=\"%s\"\n", LOCALEDIR);
+  fprintf (out, "LILYPOND_DATADIR =\"%s\"\n", LILYPOND_DATADIR);
+  fprintf (out, "LOCAL_LILYPOND_DATADIR =\"\%s\"\n", LOCAL_LILYPOND_DATADIR);
+  fprintf (out, "LOCALEDIR =\"%s\"\n", LOCALEDIR);
 
   char *lilypond_prefix = getenv ("LILYPONDPREFIX");
-  fprintf (out, "LILYPONDPREFIX=\"%s\"\n",
+  fprintf (out, "LILYPONDPREFIX =\"%s\"\n",
           (lilypond_prefix ? lilypond_prefix : ""));
 }
 
@@ -162,13 +174,13 @@ static void
 identify (FILE *out)
 {
   fputs (gnu_lilypond_version_string ().to_str0 (), out);
+  fputs ("\n", out);
 }
  
 static void
 notice ()
 {
   identify (stdout);
-  printf ("\n");
   printf (_f (NOTICE, PROGRAM_NAME).to_str0 ());
   printf ("\n");
   copyright ();
@@ -178,7 +190,7 @@ static void
 usage ()
 {
   /* No version number or newline here.  It confuses help2man.  */
-  printf (_f ("Usage: %s [OPTIONS]... FILE...", PROGRAM_NAME).to_str0 ());
+  printf (_f ("Usage: %s [OPTION]... FILE...", PROGRAM_NAME).to_str0 ());
   printf ("\n\n");
   printf (_ ("Typeset music and/or produce MIDI from FILE.").to_str0 ());
   printf ("\n\n");
@@ -215,7 +227,7 @@ setup_paths ()
 
   /* Adding mf/out make lilypond unchanged source directory, when setting
      LILYPONDPREFIX to lilypond-x.y.z */
-  char *suffixes[] = {"ly", "afm", "mf/out", "scm", "tfm", "ps", 0};
+  char *suffixes[] = {"ly", "otf", "mf/out", "scm", "tfm", "ps", "svg", 0};
 
   for (unsigned i = 0; prefix_directory[i]; i++)
     for (char **s = suffixes; *s; s++)
@@ -239,6 +251,46 @@ prepend_load_path (String dir)
   scm_c_eval_string (s.to_str0 ());
 }
 
+static void
+determine_output_options ()
+{
+  bool found_gnome = (output_format_global == "gnome");
+  bool found_svg = (output_format_global == "svg");
+  bool found_tex = (output_format_global == "tex");
+
+
+  if (make_pdf || make_png)
+    {
+      make_ps = true;
+    }
+  if (make_ps && found_tex)
+    {
+      make_dvi = true;
+    }
+  if (make_dvi && found_tex)
+    {
+      make_tex = true;
+    }
+  if (!found_gnome
+      && !found_svg
+      && !(make_dvi
+          || make_tex
+          || make_ps
+          || make_png
+          || make_pdf))
+    {
+      make_pdf = true;
+      make_ps = true;
+      if (found_tex)
+       {
+         make_dvi = true;
+         make_tex = true;
+       }
+    }
+}
+
+void init_global_tweak_registry ();
+
 static void
 main_with_guile (void *, int, char **)
 {
@@ -256,8 +308,9 @@ main_with_guile (void *, int, char **)
 
   ly_c_init_guile ();
   call_constructors ();
-  progress_indication ("\n");
-
+  init_global_tweak_registry ();
+  init_freetype ();
+  determine_output_options ();  
   all_fonts_global = new All_font_metrics (global_path.to_string ());
 
   init_scheme_code_string += ")";
@@ -286,7 +339,7 @@ main_with_guile (void *, int, char **)
       exit (2);
     }
 
-  SCM result = scm_call_1 (ly_scheme_function ("lilypond-main"), files);
+  SCM result = scm_call_1 (ly_lily_module_constant ("lilypond-main"), files);
   (void) result;
 
 
@@ -321,6 +374,23 @@ parse_argv (int argc, char **argv)
     {
       switch (opt->shortname_char_)
        {
+       case 0:
+         if (String (opt->longname_str0_) == "png")
+           make_png = true;
+         else if (String (opt->longname_str0_) == "pdf")
+           make_pdf = true;
+         else if (String (opt->longname_str0_) == "ps")
+           make_ps = true;
+         else if (String (opt->longname_str0_) == "dvi")
+           make_dvi = true;
+         else if (String (opt->longname_str0_) == "tex")
+           make_tex = true;
+         else if (String (opt->longname_str0_) == "preview")
+           make_preview = true;
+         else if (String (opt->longname_str0_) == "no-pages")
+           make_pages = false;
+         break;
+         
        case 'v':
          notice ();
          exit (0);
@@ -368,9 +438,14 @@ parse_argv (int argc, char **argv)
          safe_global_b = true;
          break;
        case 'm':
-         no_paper_global_b = true;
+         no_layout_global_b = true;
+         break;
+       case 'p':
+         make_preview = true;
          break;
        default:
+         programming_error (to_string ("unhandled short option: %c",
+                                       opt->shortname_char_));
          assert (false);
          break;
        }
@@ -378,6 +453,7 @@ parse_argv (int argc, char **argv)
 
   if (help_b)
     {
+      identify (stdout);
       usage ();
       if (verbose_global_b)
        dir_info (stdout);
@@ -388,9 +464,10 @@ parse_argv (int argc, char **argv)
 int
 main (int argc, char **argv)
 {
-  setup_localisation ();  
+  setup_localisation ();
   setup_paths ();
   parse_argv (argc, argv);
+  identify (stderr);
   initialize_kpathsea (argv[0]);
 
   scm_boot_guile (argc, argv, main_with_guile, 0);