]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/main.cc
release: 1.1.1
[lilypond.git] / lily / main.cc
index 1073f940bf60f2293d06901a57033b1cecad5a23..9adf5a59419f5e97679217da4bc9ad58829ffd0f 100644 (file)
+/*
+  main.cc -- implement main: entrypoints
+
+  source file of the GNU LilyPond music typesetter
+
+  (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+*/
+
+#include <stdlib.h>
 #include <iostream.h>
 #include <assert.h>
+#include <locale.h>
+#include "lily-guile.hh"
+
 #include "proto.hh"
+#include "dimensions.hh"
 #include "plist.hh"
-#include "lgetopt.hh"
+#include "getopt-long.hh"
 #include "misc.hh"
 #include "string.hh"
 #include "main.hh"
-#include "path.hh"
+#include "file-path.hh"
 #include "config.hh"
-#include "source-file.hh"
-#include "source.hh"
+#include "file-results.hh"
+#include "debug.hh"
+#include "lily-guile.hh"
 
-Source source;
-Source* source_l_g = &source;
-String infile_str_g;
-bool only_midi = false;
-extern void parse_file(String,String);
+#if HAVE_GETTEXT
+#include <libintl.h>
+#endif
 
 
-void
-destill_inname( String &name_str_r);
+bool version_ignore_global_b = false;
+bool no_paper_global_b = false;
+bool no_timestamps_global_b = false;
+bool find_quarts_global_b = false;
+
+char const* output_global_ch = "tex";
+// temporarily default to ps, because tex is even more broken
+//char const* output_global_ch = "ps";
+
+String default_outname_base_global =  "lelie";
+int default_count_global;
+File_path global_path;
+
+bool experimental_features_global_b = false;
+bool dependency_global_b = false;
+
+int exit_status_i_;
+
+String distill_inname_str (String name_str, String& ext_r);
+
 Long_option_init theopts[] = {
-    1, "output", 'o',
-    0, "warranty", 'w',
-    0, "help", 'h',
-    0, "debug", 'd',
-    1, "init", 'i',
-    1, "include", 'I',
-    0, "midi", 'M',
-    0,0,0
+  {0, "about", 'a'},
+  {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, "dependencies", 'd'},
+  {0, "no-timestamps", 'T'},
+  {0, "find-fourths", 'Q'},
+  {0, "ignore-version", 'V'},
+  {1, "output-format", 'f'},
+  {0,0,0}
 };
 
 void
-help()
+usage ()
 {
-    cout <<
-       "--help, -h             This help\n"
-       "--warranty, -w         show warranty & copyright\n"
-       "--output, -o           set default output\n"
-       "--debug, -d            enable debug output\n"
-       "--init, -i             set init file\n"
-        "--include, -I         add to file search path.\n"
-       "--midi, -M             midi output only\n"
-       ;
-    
+  cout << _f ("Usage: %s [OPTION]... [FILE]...", "lilypond") << '\n';
+  cout << _ ("Typeset music and or play MIDI from FILE or <stdin>");
+  cout << '\n';
+  cout << '\n';
+  cout << _ ("Options:");
+  cout << '\n';
+  cout  << _ (
+    "  -a, --about            about LilyPond\n"
+    );
+  cout  << _ (
+    "  -D, --debug            enable debugging output\n"
+    );
+  cout  << _ (
+    "  -d, --dependencies     write Makefile dependencies for every input file\n"
+    );
+  cout  << _ (
+    "  -h, --help             this help\n"
+    );
+  cout  << _ (
+    "  -f, --output-format=X  use output format X\n"
+    );
+  cout  << _ (
+    "  -I, --include=DIR      add DIR to search path\n"
+    );
+  cout  << _ (
+    "  -i, --init=FILE        use FILE as init file\n"
+    );
+  cout  << _ (
+    "  -M, --no-paper         produce midi output only\n"
+    );
+  cout  << _ (
+    "  -o, --output=FILE      set FILE as default output base\n"
+    );
+  cout  << _ (
+    "  -Q, --find-fourths     show all intervals greater than a fourth\n"
+    );
+  cout  << _ (
+    "  -t, --test             switch on experimental features\n"
+    );
+  cout  << _ (
+    "  -T, --no-timestamps    don't timestamp the output\n"
+    );
+  cout  << _ (
+    "  -V, --ignore-version   ignore mudela version\n"
+    );
+  cout  << _ (
+    "  -w, --warranty         show warranty and copyright\n"
+    );
+  cout << '\n';
+  cout << _ ("GNU LilyPond was compiled with the following settings:");
+  cout << '\n';
+  cout <<
+#ifdef NDEBUG
+    "NDEBUG "
+#endif
+#ifdef NPRINT
+    "NPRINT "
+#endif
+#ifdef STRING_UTILS_INLINED
+    "STRING_UTILS_INLINED "
+#endif
+        "datadir=" DIR_DATADIR
+       " "
+        "localedir=" DIR_LOCALEDIR
+
+    "\n";
+
+  ;
 }
 
-void 
-notice()
+void
+about ()
 {
-    cout <<
-       "\n"
-       "LilyPond, a music typesetter.\n"
-       "Copyright (C) 1996,97 by\n"
-       "  Han-Wen Nienhuys <hanwen@stack.nl>\n"
-       "Contributors\n"
-       "  Jan Nieuwenhuizen <jan@digicash.com>\n"
-       "  Mats Bengtsson <matsb@s3.kth.se>\n"
-       "\n"
-       "    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"
-       "    This program is distributed in the hope that it will be useful,\n"
-       "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
-       "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU\n"
-       "General Public License for more details.\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";
+  cout << '\n';
+  cout << 
+  #include "BLURB.hh"
+  cout << '\n';
+  cout << _ ("GNU LilyPond is Free software, see --warranty");
+  cout << '\n';
+  cout << '\n';
+  cout << _f ("Copyright (c) %s by", "1996, 1997, 1998");
+  cout << '\n';
+  cout << "  " + _ ("Han-Wen Nienhuys <hanwen@cs.uu.nl>") + "\n";
+  cout << "  " + _ ("Jan Nieuwenhuizen <janneke@gnu.org>") + "\n";
+  cout << '\n';
 }
 
-static File_path * path =0;
-struct Main_init {
-    Main_init() {
-       path = new File_path(LIBDIR);
-       path->push(String(LIBDIR)+"init/");
-       debug_init();
+void
+notice ()
+{
+  cout << '\n';
+  cout << _ ("GNU LilyPond -- The GNU Project music typesetter");
+  cout << '\n';
+  cout << _f ("Copyright (c) %s by", "1996, 1997, 1998");
+  cout << '\n';
+  cout << "  " + _ ("Han-Wen Nienhuys <hanwen@cs.uu.nl>") + "\n";
+  cout << "  " + _ ("Jan Nieuwenhuizen <janneke@gnu.org>") + "\n";
+  cout << '\n';
+  cout << _ (
+    "    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"
+    "    This program is distributed in the hope that it will be useful,\n"
+    "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
+    "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU\n"
+    "General Public License for more details.\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");
+}
+
+void
+identify ()
+{
+  *mlog << get_version_str () << endl;
+}
+
+void
+setup_paths ()
+{
+  // facilitate binary distributions
+  char const *env_lily = getenv ("LILYPONDPREFIX");
+  String prefix_directory;
+  if (env_lily)
+    prefix_directory = env_lily;
+
+#if HAVE_GETTEXT
+  setlocale (LC_ALL, ""); /* enable locales */
+  setlocale (LC_NUMERIC, "C"); /* musn't have comma's in TeX output... */
+  String lily_locale_dir;
+  String name (PACKAGE);
+  name.to_lower ();
+  if (!prefix_directory.empty_b())
+    {
+      lily_locale_dir = prefix_directory + "/share/locale";
+      bindtextdomain (name.ch_C (), lily_locale_dir.ch_C());
+    }
+  else
+    bindtextdomain (name.ch_C (), DIR_LOCALEDIR);
+  textdomain (name.ch_C ());
+#endif
+
+  global_path.add ("");
+  // must override (come before) "/usr/local/share/lilypond"!
+  char const *env_sz = getenv ("LILYINCLUDE");
+  if (env_sz)
+    global_path.parse_path (env_sz);
+
+  if (!prefix_directory.empty_b())
+    {
+      global_path.add (prefix_directory + "/share/lilypond/ly/");
+      global_path.add (prefix_directory + "/share/lilypond/afm/");
     }
-    ~Main_init() {
-       delete path;
+  else
+    {
+      global_path.add (String (DIR_DATADIR) + "/ly/");
+      global_path.add (String (DIR_DATADIR) + "/afm/");  
     }
-} main_init;
+}
 
-int
-main (int argc, char **argv)
-{    
-    Getopt_long oparser(argc, argv,theopts);
-    cout << get_version();
-    String init_str("symbol.ini");
-    
-    while (Long_option_init * opt = oparser()) {
-       switch ( opt->shortname){
+
+
+void
+main_prog (int argc, char **argv)
+{
+  identify ();
+  call_constructors ();
+  debug_init ();               // should be first
+
+  setup_paths ();
+
+  String init_str;
+  String outname_str;
+
+  Getopt_long oparser (argc, argv,theopts);
+  while (Long_option_init const * opt = oparser ())
+    {
+      switch (opt->shortname)
+       {
+       case 't':
+         experimental_features_global_b = true;
+         *mlog << "*** enabling experimental features, you're on your own now ***\n";
+         break;
        case 'o':
-           set_default_output(oparser.optarg);
-           break;
+         outname_str = oparser.optional_argument_ch_C_;
+         break;
        case 'w':
-           notice();
-           exit(0);
-           break;
+         notice ();
+         exit (0);
+         break;
+       case 'f':
+         output_global_ch = oparser.optional_argument_ch_C_;
+         break;
+       case 'Q':
+         find_quarts_global_b = true;
+         break;
        case 'I':
-           path->push(oparser.optarg);
-           break;
+         global_path.push (oparser.optional_argument_ch_C_);
+         break;
        case 'i':
-           init_str = oparser.optarg;
-           break;
+         init_str = oparser.optional_argument_ch_C_;
+         break;
+       case 'a':
+         about ();
+         exit (0);
        case 'h':
-           help();
-           exit(0);
-           break;
+         usage ();
+         exit (0);
+         break;
+       case 'V':
+         version_ignore_global_b = true;
+         break;
        case 'd':
-           set_debug(true);
-           break;
+         dependency_global_b = true;
+         break; 
+       case 'D':
+         set_debug (true);
+         break;
        case 'M':
-           only_midi = true;
-           break;
+         no_paper_global_b = true;
+         break;
+       case 'T':
+         no_timestamps_global_b = true;
+         break;
        default:
-           assert(false);
-           break;
+         assert (false);
+         break;
        }
     }
 
-    int p=0;
-    char *arg ;
-    while ( (arg= oparser.get_next_arg()) ) {
-       String f(arg);
-       destill_inname(f);
-       infile_str_g = f;
-       parse_file(init_str,f);
-       do_scores();
-       p++;
+  default_outname_base_global = "lelie";
+
+  
+
+  int p=0;
+  const char *arg ;
+  while ((arg= oparser.get_next_arg ()))
+    {
+      String f (arg);
+      String i;
+      f = distill_inname_str (f, i);
+      if (f == "-")
+       default_outname_base_global = "-";
+      else
+       {
+         String a,b,c,d;
+         split_path (f, a, b, c, d);
+         default_outname_base_global = c;
+       }
+      if (outname_str.length_i ())
+       default_outname_base_global = outname_str;
+      if (init_str.length_i ())
+       i = init_str;
+      else
+       i = "init" + i;
+      do_one_file (i, f);
+      p++;
     }
-    if (!p) {
-       parse_file(init_str, "");       
-       do_scores();
+  if (!p)
+    {
+      String i;
+      if (init_str.length_i ())
+       i = init_str;
+      else
+       i = "init.ly";
+      default_outname_base_global = "-";
+      if (outname_str.length_i ())
+       default_outname_base_global = outname_str;
+      do_one_file (i, default_outname_base_global);
     }
-
-    return 0;
+  exit( exit_status_i_);
 }
 
-String
-find_file(String f)
+int
+main (int argc, char **argv)
 {
-    return path->find(f);
+#ifdef HAVE_LIBGUILE
+  gh_enter (argc, argv, (void(*)())main_prog);
+  return exit_status_i_;
+#else
+  main_prog (argc, argv);
+  return exit_status_i_;
+#endif
 }
 
-/// make input file name: add default extension. "" is stdin.
-void
-destill_inname( String &name_str_r)
+/**
+  make input file name from command arg.
+
+  @input file name
+
+  @output file name with added default extension. "" is stdin.
+          in reference argument: the extension. ".ly" if none
+ */
+String
+distill_inname_str (String name_str, String& ext_r)
 {
-    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);
+  String str = name_str;
+  if (str.length_i ())
+    {
+      if (str != "-")
+       {
+         String a,b,c;
+         split_path (str,a,b,c,ext_r);
 
-           // add extension if not present.
-           if (d == "") 
-               d = ".ly";
-           name_str_r = a+b+c+d;
+         // add extension if not present.
+         // UGH. Should parametrise in list of default extensions.
+         if (ext_r.empty_b ())
+           {
+             ext_r = ".fly";
+             if (global_path.find (a+b+c+ext_r).empty_b ())
+               ext_r = ".ly";
            }
-       } else name_str_r = "";   
+         str = a+b+c+ext_r;
+       }
+    }
+  else 
+    {
+      str = "-";
+      ext_r = ".ly";
+    }
+  return str;
 }