]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/main.cc
release: 1.5.29
[lilypond.git] / lily / main.cc
index 1f355bf96162b9e931c7459367ce7192fe95dcbc..d1158824c167db06075af6a161a064aa55e108ee 100644 (file)
@@ -3,13 +3,14 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include <stdlib.h>
 #include <iostream.h>
 #include <assert.h>
 #include <locale.h>
+#include <stdio.h>
 
 #include "config.h"
 
@@ -33,6 +34,7 @@
 #include "global-ctor.hh"
 #include "kpath.hh"
 
+static int sane_putenv (char const* key, char const* value, bool overwrite = false);
 
 /*
   Global options that can be overridden through command line.
@@ -105,7 +107,7 @@ static Long_option_init options_static[] = {
   {_i ("EXPR"), "evaluate", 'e',_i ("evalute EXPR as Scheme after .scm init is read")},
   /* another bug in option parser: --output=foe is taken as an abbreviation
      for --output-format */
-  {_i ("EXT"), "format", 'f',  _i ("use output format EXT (scm, ps, tex or as)")},
+  {_i ("EXT"), "format", 'f',  _i ("use output format EXT (tex [default], pdftex, ps, scm or as)")},
   {0, "help", 'h',  _i ("this help")},
   {_i ("FIELD"), "header", 'H',  _i ("write header field to BASENAME.FIELD")},
   {_i ("DIR"), "include", 'I',  _i ("add DIR to search path")},
@@ -154,12 +156,6 @@ _ (
     << " " <<
 #ifdef NDEBUG
     "NDEBUG "
-#endif
-#ifdef NPRINT
-    "NPRINT "
-#endif
-#ifdef STRING_UTILS_INLINED
-    "STRING_UTILS_INLINED "
 #endif
     "\n"
     "datadir: `" DIR_DATADIR "'\n"
@@ -184,7 +180,7 @@ version ()
     "lilypond");
   cout << endl;
 
-  cout << _f ("Copyright (c) %s by", "1996--2001");
+  cout << _f ("Copyright (c) %s by", "1996--2002");
   cout << '\n';
   cout << "  Han-Wen Nienhuys <hanwen@cs.uu.nl>\n";
   cout << "  Jan Nieuwenhuizen <janneke@gnu.org>\n";
@@ -196,7 +192,7 @@ notice ()
   cout << '\n';
   cout << _ ("GNU LilyPond -- The music typesetter");
   cout << '\n';
-  cout << _f ("Copyright (c) %s by", "1996--2001");
+  cout << _f ("Copyright (c) %s by", "1996--2002");
   cout << '\n';
   cout << "  Han-Wen Nienhuys <hanwen@cs.uu.nl>\n";
   cout << "  Jan Nieuwenhuizen <janneke@gnu.org>\n";
@@ -217,12 +213,14 @@ notice ()
             "USA.\n");
 }
 
+String prefix_directory;
+
 void
 setup_paths ()
 {
   // facilitate binary distributions
   char const *env_lily = getenv ("LILYPONDPREFIX");
-  String prefix_directory;
+
   if (env_lily)
     prefix_directory = env_lily;
 
@@ -257,12 +255,12 @@ 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};
-  String prefix = prefix_directory;
-  if (prefix.empty_b ())
-    prefix =  DIR_DATADIR;
+
+  if (prefix_directory.empty_b ())
+    prefix_directory =  DIR_DATADIR;
   for (char **s = suffixes; *s; s++)
     {
-      String p =  prefix + to_str ('/') + String (*s);
+      String p =  prefix_directory + to_str ('/') + String (*s);
       global_path.add (p);
 
 #if !KPATHSEA
@@ -315,15 +313,19 @@ format_to_ext (String format)
 }
 
 void
-main_prog (int, char**)
+main_prog (void * , int, char**)
 {
   /*
     need to do this first. Engravers use lily.scm contents.
    */
-  init_lily_guile ();
-  if (verbose_global_b)
-    progress_indication ("\n");
-  read_lily_scm_file ("lily.scm");
+  
+  /*
+    prepend onto GUILE  loadpath.
+
+    Very ugh.
+   */
+
+  init_lily_guile (prefix_directory);
   cout << endl;
 
   call_constructors ();
@@ -394,14 +396,11 @@ main_prog (int, char**)
   exit (exit_status_global);
 }
 
+
 static int
-sane_putenv (char const* key, char const* value)
+sane_putenv (char const* key, char const* value, bool overwrite)
 {
-  /*
-    putenv is POSIX, setenv is BSD 4.3
-    Urg, but putenv blindly overwrites environment settings.
-  */
-  if (!getenv (key))
+  if (overwrite || !getenv (key))
     return putenv ((char*)((String (key) + "=" + value).ch_C ()));
   return -1;
 }
@@ -422,8 +421,8 @@ main (int argc, char **argv)
      execution time penalty (~*1.10).  However, if this 15% gain in memory
      usage prevents swapping, the execution time falls drastically. */
   
-  sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1", "4194304");
-  sane_putenv ("GUILE_MAX_SEGMENT_SIZE", "8388608");
+  sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1", "4194304", false);
+  sane_putenv ("GUILE_MAX_SEGMENT_SIZE", "8388608", false);
 
   ly_init_kpath (argv[0]);
   
@@ -492,9 +491,9 @@ main (int argc, char **argv)
   identify (&cerr);
 
 #ifdef WINNT
-  gh_enter (argc, argv, main_prog);
+  scm_boot_guile (argc, argv, main_prog, 0);
 #else
-  gh_enter (argc, argv, (void (*) (int, char**))main_prog);
+  scm_boot_guile (argc, argv, (void (*) (void*, int, char**))main_prog, 0);
 #endif
 
   return 0;                    // unreachable