* SConstruct: Further development.

[lilypond.git] / lily / main.cc

diff --git a/lily/main.cc b/lily/main.cc
index 17d1997dc534adcbce0afbe88ccab3201171983e..e171dfff822f7aebbe11e757745c4b44ca7fd60e 100644 (file)
--- a/lily/main.cc
+++ b/lily/main.cc
@@ -1,98 +1,95 @@
 /*
 /*

-  main.cc -- implement main: entrypoints
+  main.cc -- implement main () entrypoint.

 
   source file of the GNU LilyPond music typesetter
 
 
   source file of the GNU LilyPond music typesetter
 

-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>

 */
 
 */
 

-#include <iostream.h>
+#include <stdlib.h>
+#include <stdio.h>

 #include <assert.h>
 #include <assert.h>

-#include "proto.hh"
-#include "plist.hh"
-#include "lgetopt.hh"
+#include <locale.h>
+#include <string.h>
+
+#include "config.hh"
+
+#if HAVE_GETTEXT
+#include <libintl.h>
+#endif
+
+#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 "misc.hh"

+#include "output-def.hh"

 #include "string.hh"
 #include "string.hh"

-#include "main.hh"
-#include "path.hh"
-#include "config.hh"
-#include "source.hh"
-#include "debug.hh"
-#include "my-lily-parser.hh"
+#include "warn.hh"
+
+/*
+ * Global options that can be overridden through command line.
+ */

 
 

-static bool version_ignore_b = false;
-Sources* source_global_l = 0;
+/* Names of header fields to be dumped to a separate file. */
+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;
 
 bool no_paper_global_b = false;
 

-bool experimental_features_global_b = false;
-bool postscript_global_b = true;
-int exit_status_i_;
-
-void destill_inname (String &name_str_r);
-
-Long_option_init theopts[] = {
-  {1, "output", 'o'},
-  {0, "warranty", 'w'},
-  {0, "help", 'h'},
-  {0, "test", 't'},
-  {0, "debug", 'd'},
-  {1, "init", 'i'},
-  {1, "include", 'I'},
-  {0, "no-paper", 'M'},
-  {0, "no-postscript", 'P'},
-  {0, "ignore-version", 'V'},
-  {0,0,0}
-};
-
-void
-usage()
-{
-  cout <<
-    _("Usage: lilypond [options] [mudela-files]\n"
-    "Typeset and or produce midi output from mudela-file or stdin\n"
-    "\n"
-    "Options:\n"
-    "  -d, --debug            enable debugging output\n"
-    "  -I, --include=DIR      add DIR to search path\n"
-    "  -i, --init=FILE        use FILE as init file\n"
-    "  -h, --help             this help\n"
-    "  -w, --warranty         show warranty and copyright\n"
-    "  -o, --output=FILE      set FILE as default output\n"
-    "  -t, --test             switch on experimental features\n"
-    "  -M, --no-paper         produce midi output only\n"
-    "  -V, --ignore-version   ignore mudela version\n"
-    "  -P, --no-postscript    don't use PostScript\n"
-    "\n"
-    "GNU LilyPond was compiled with the following settings:\n")
-#ifdef NDEBUG
-    "NDEBUG "
-#endif
-#ifdef NPRINT
-    "NPRINT "
-#endif
-#ifdef STRING_UTILS_INLINED
-    "STRING_UTILS_INLINED "
-#endif
-    "datadir= " DIR_DATADIR
+/* Selected output format.
+   One of tex, ps, scm, as. */
+String output_format_global = "tex";

 
 

-    "\n";
+/* Current output name. */
+String output_name_global;

 
 

-  ;
+/* Run in safe mode? */
+bool safe_global_b = false;

 
 

+/* Verbose progress indication? */
+bool verbose_global_b = false;

 
 

-}
+/* Scheme code to execute before parsing, after .scm init
+   This is where -e arguments are appended to.
+*/
+String init_scheme_code_string = "(begin #t ";

 
 

-void
-notice()
-{
-  cout <<
-    _("\n"
-    "GNU LilyPond -- The GNU Project music typesetter.\n"
-    "Copyright 1996, 97, 98 by\n"
-    "  Han-Wen Nienhuys <hanwen@stack.nl>\n"
-    "  Jan Nieuwenhuizen <jan@digicash.com>\n"
-    "\n"
-    "    This program is free software; you can redistribute it and/or\n"
+
+
+/*
+ * Miscellaneous global stuff.
+ */
+File_path global_path;
+
+
+/*
+ * File globals.
+ */
+
+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_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"
+    "information.\n");
+  
+static char const *WARRANTY =
+_i ("    This program is free software; you can redistribute it and/or\n"

     "modify it under the terms of the GNU General Public License version 2\n"
     "as published by the Free Software Foundation.\n"
     "\n"
     "modify it under the terms of the GNU General Public License version 2\n"
     "as published by the Free Software Foundation.\n"
     "\n"


@@ -103,115 +100,274 @@ notice()
     "\n"
     "    You should have received a copy (refer to the file COPYING) of the\n"
     "GNU General Public License along with this program; if not, write to\n"
     "\n"
     "    You should have received a copy (refer to the file COPYING) of the\n"
     "GNU General Public License along with this program; if not, write to\n"

-    "the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,\n"
-    "USA.\n");
+    "the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\n"
+    "Boston, MA 02111-1307, USA.\n");
+
+
+/* Where the init files live.  Typically:
+   LILYPOND_DATADIR = /usr/share/lilypond
+   LOCAL_LILYPOND_DATADIR = /usr/share/lilypond/<VERSION> */
+char const *prefix_directory[] = {LILYPOND_DATADIR, LOCAL_LILYPOND_DATADIR, 0};
+
+/*  The option parser */
+static Getopt_long *option_parser = 0;
+
+/* Internationalisation kludge in two steps:
+   * use _i () to get entry in POT file
+   * call gettext () explicitely for actual "translation"  */
+
+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
+       for --output-format.  */
+    {_i ("EXT"), "format", 'f', _i ("use output format EXT")},
+    {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")},
+    {_i ("FILE"), "output", 'o',  _i ("write output to FILE")},
+    {0, "safe-mode", 's',  _i ("run in safe mode")},
+    {0, "version", 'v',  _i ("print version number")},
+    {0, "verbose", 'V', _i ("be verbose")},
+    {0, "warranty", 'w',  _i ("show warranty and copyright")},
+    {0,0,0,0}
+  };
+
+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);
+
+  char *lilypond_prefix = getenv ("LILYPONDPREFIX");
+  fprintf (out, "LILYPONDPREFIX=\"%s\"\n",
+          (lilypond_prefix ? lilypond_prefix : ""));

 }
 
 }
 

+static void
+copyright ()
+{
+  printf (_f ("Copyright (c) %s by\n%s  and others.",
+             "1996--2004",
+             AUTHORS).to_str0 ());
+  printf ("\n");
+}

 
 

-static File_path path;
+static void
+identify (FILE *out)
+{
+  fputs (gnu_lilypond_version_string ().to_str0 (), out);
+}
+ 
+static void
+notice ()
+{
+  identify (stdout);
+  printf ("\n");
+  printf (_f (NOTICE, PROGRAM_NAME).to_str0 ());
+  printf ("\n");
+  copyright ();
+}

 
 

-void
-do_one_file (String init_str, String file_str)
+static void
+usage ()

 {
 {

-  if (init_str.length_i () && path.find (init_str).empty_b ())
-    {
-      error (_("Can not find `") + init_str +"\'");
-      return ;
-    }
-  if (file_str.length_i () && path.find (file_str).empty_b ())
-    {
-      error (_("Can not find `") + file_str + "'");
-      return ;
-    }
+  /* No version number or newline here.  It confuses help2man.  */
+  printf (_f ("Usage: %s [OPTIONS]... FILE...", PROGRAM_NAME).to_str0 ());
+  printf ("\n\n");
+  printf (_ ("Typeset music and/or produce MIDI from FILE.").to_str0 ());
+  printf ("\n\n");
+  printf (_ ("LilyPond produces beautiful music notation.").to_str0 ());
+  printf ("\n");
+  printf (_f ("For more information, see %s", PROGRAM_URL).to_str0 ());
+  printf ("\n\n");
+  printf (_ ("Options:").to_str0 ());
+  printf ("\n");
+  printf (Long_option_init::table_string (options_static).to_str0 ());
+  printf ("\n");
+  printf (_f ("Report bugs to %s.", "bug-lilypond@gnu.org").to_str0 ());
+  printf ("\n");
+  printf ("\n");
+}

 
 

-  Sources sources;
-  source_global_l = &sources;
-  source_global_l->set_path (&path);
-  {
-    My_lily_parser parser (source_global_l);
-    parser.set_version_check (version_ignore_b);
-    parser.parse_file (init_str, file_str);
-    
-    if (file_str.length_i() && file_str[0] != '-')
-      {
-       String a,b,c,d;
-       split_path (file_str, a, b, c, d);
-       default_outname_base_global = c;
-      }
-    else
-      default_outname_base_global = "lelie";
-  
-    if (parser.error_level_i_)
+static void
+warranty ()
+{
+  identify (stdout);
+  printf ("\n");
+  copyright ();
+  printf ("\n");
+  printf (_ (WARRANTY).to_str0 ());
+}
+
+static void
+setup_paths ()
+{
+  if (char const *lilypond_prefix = getenv ("LILYPONDPREFIX"))
+    prefix_directory[1] = lilypond_prefix;
+
+  global_path.append ("");
+
+  /* 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};
+
+  for (unsigned i = 0; prefix_directory[i]; i++)
+    for (char **s = suffixes; *s; s++)

       {
       {

-       exit_status_i_  = 1;
+       String p = prefix_directory[i] + to_string ('/') + String (*s);
+       global_path.prepend (p);
+       
+#if !KPATHSEA
+       /* Urg: GNU make's $ (word) index starts at 1 */
+       int i  = 1;
+       while (global_path.try_append (p + to_string (".") + to_string (i)))
+         i++;
+#endif

       }
       }

-    else
-      do_scores();
-    clear_scores ();
-  }
-  source_global_l = 0;

 }
 }

-
-void
-identify ()
+  
+static void
+prepend_load_path (String dir)

 {
 {

-  cout << get_version_str() << endl;
+  String s = "(set! %load-path (cons \"" + dir + "\" %load-path))";
+  scm_c_eval_string (s.to_str0 ());

 }
 
 }
 

-int
-main (int argc, char **argv)
+static void
+main_with_guile (void *, int, char **)

 {
 {

-  identify ();
-  debug_init();                // should be first
+  /* Engravers use lily.scm contents, need to make Guile find it.
+     Prepend onto GUILE %load-path, very ugh. */
+  for (unsigned i = 0; prefix_directory[i]; i++)
+    {
+      prepend_load_path (prefix_directory[i]);
+      /* Junk this.  We should make real modules iso. just loading files. */
+      prepend_load_path (String (prefix_directory[i]) + "/scm");
+    }

 
 

+  if (verbose_global_b)
+    dir_info (stderr);

 
 

-  // must override (come before) "/usr/local/share/lilypond"!
-  char const *env_sz = getenv ("LILYINCLUDE");
-  if (env_sz)
-    path.parse_path (env_sz);
+  ly_c_init_guile ();
+  call_constructors ();
+  progress_indication ("\n");

 
 

-  path.add ("");
-  path.add (String (DIR_DATADIR) + "/init/");
+  all_fonts_global = new All_font_metrics (global_path.to_string ());

 
 

-  path.push (DIR_DATADIR);
+  init_scheme_code_string += ")";
+  scm_c_eval_string ((char*) init_scheme_code_string.to_str0 ());

 
 

-  Getopt_long oparser (argc, argv,theopts);
-  String init_str ("lily-init.ly");
+  /* We accept multiple independent music files on the command line to
+     reduce compile time when processing lots of small files.
+     Starting the GUILE engine is very time consuming.  */

 
 

-  while (Long_option_init const * opt = oparser())
+  SCM files = SCM_EOL;
+  SCM *tail = &files;
+  while (char const *arg = option_parser->get_next_arg ())

     {
     {

-      switch (opt->shortname)
+      *tail = scm_cons (scm_makfrom0str (arg), SCM_EOL);
+      tail = SCM_CDRLOC (*tail);
+    }
+  delete option_parser;
+  option_parser = 0;
+
+  if (files == SCM_EOL)
+    {
+      /* No FILE arguments is now a usage error to help newbies.  If you
+        want a filter, you're not a newbie and should know to use file
+        argument `-'.  */
+      usage ();
+      exit (2);
+    }
+
+  SCM result = scm_call_1 (ly_scheme_function ("lilypond-main"), files);
+  (void) result;
+
+
+  /* Unreachable.  */
+  exit (0);
+}
+
+static void
+setup_localisation ()
+{
+#if HAVE_GETTEXT
+  /* Enable locales */
+  setlocale (LC_ALL, "");
+  
+  /* FIXME: check if this is still true.
+    Disable localisation of float values.  This breaks TeX output.  */
+  setlocale (LC_NUMERIC, "C");
+  
+  String name (PACKAGE);
+  name.to_lower ();
+  bindtextdomain (name.to_str0 (), LOCALEDIR);
+  textdomain (name.to_str0 ());
+#endif
+}
+
+static void
+parse_argv (int argc, char **argv)
+{
+  bool help_b = false;
+  option_parser = new Getopt_long (argc, argv, options_static);
+  while (Long_option_init const *opt = (*option_parser) ())
+    {
+      switch (opt->shortname_char_)

        {
        {

-       case 't':
-         experimental_features_global_b = true;
+       case 'v':
+         notice ();
+         exit (0);

          break;
        case 'o':
          break;
        case 'o':

-         default_outname_base_global = oparser.optional_argument_ch_C_;
+         {
+           String s = option_parser->optional_argument_str0_;
+           File_name file_name (s);
+           output_name_global = file_name.to_string ();
+         }
+         break;
+       case 'e':
+         init_scheme_code_string += option_parser->optional_argument_str0_;

          break;
        case 'w':
          break;
        case 'w':

-         notice();
+         warranty ();

          exit (0);
          break;
          exit (0);
          break;

+       case 'f':
+         if (option_parser->optional_argument_str0_ == "help")
+           {
+             printf (_ ("This option is for developers only.").to_str0 ());
+             printf (_ ("Read the sources for more information.").to_str0 ());
+             exit (0);
+           }
+         output_format_global = option_parser->optional_argument_str0_;
+         break;
+       case 'H':
+         dump_header_fieldnames_global
+           .push (option_parser->optional_argument_str0_);
+         break;

        case 'I':
        case 'I':

-         path.push (oparser.optional_argument_ch_C_);
+         global_path.append (option_parser->optional_argument_str0_);

          break;
        case 'i':
          break;
        case 'i':

-         init_str = oparser.optional_argument_ch_C_;
+         init_name_global = option_parser->optional_argument_str0_;

          break;
        case 'h':
          break;
        case 'h':

-         usage();
-         exit (0);
+         help_b = true;

          break;
        case 'V':
          break;
        case 'V':

-         version_ignore_b = true;
-         break;
-       case 'P':
-         postscript_global_b = false;
+         verbose_global_b = true;

          break;
          break;

-       case 'd':
-         set_debug (true);
+       case 's':
+         safe_global_b = true;

          break;
          break;

-       case 'M':
+       case 'm':

          no_paper_global_b = true;
          break;
        default:
          no_paper_global_b = true;
          break;
        default:


@@ -220,39 +376,25 @@ main (int argc, char **argv)
        }
     }
 
        }
     }
 

-  int p=0;
-  const char *arg ;
-  while ((arg= oparser.get_next_arg()))
-    {
-      String f (arg);
-      destill_inname (f);
-      do_one_file (init_str,f);
-      p++;
-    }
-  if (!p)
+  if (help_b)

     {
     {

-      do_one_file (init_str, "");
+      usage ();
+      if (verbose_global_b)
+       dir_info (stdout);
+      exit (0);

     }
     }

-
-  return exit_status_i_;

 }
 
 }
 

-/// make input file name: add default extension. "" is stdin.
-void
-destill_inname (String &name_str_r)
+int
+main (int argc, char **argv)

 {
 {

-  if (name_str_r.length_i())
-    {
-      if (name_str_r[ 0 ] != '-')
-       {
-         String a,b,c,d;
-         split_path (name_str_r,a,b,c,d);
+  setup_localisation ();  
+  setup_paths ();
+  parse_argv (argc, argv);
+  initialize_kpathsea (argv[0]);

 
 

-         // add extension if not present.
-         if (d.empty_b ())
-           d = ".ly";
-         name_str_r = a+b+c+d;
-       }
-    }
-  else name_str_r = "";
+  scm_boot_guile (argc, argv, main_with_guile, 0);
+
+  /* Unreachable */
+  return 0;

 }
 }