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 <stdio.h>
#include <iostream.h>
#include <assert.h>
#include <locale.h>
+#include <stdio.h>
#include "config.h"
#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.
follow regular localisation guidelines).
*/
static Long_option_init options_static[] = {
- /* print example usage: lilypond -e "(set-lily-option 'help 0)" ? */
- {_i ("EXPR"), "evaluate", 'e',_i ("evalute EXPR as Scheme after .scm init is read")},
+ /* print example usage: lilypond -e "" ? */
+ {_i ("EXPR"), "evaluate", 'e',_i ("Scheme options: try -e \"(set-lily-option 'help 0)\" for more help.")},
/* another bug in option parser: --output=foe is taken as an abbreviation
for --output-format */
{_i ("EXT"), "format", 'f', _i ("use output format EXT (tex [default], pdftex, ps, scm or as)")},
};
void
-identify (ostream* os)
+identify (FILE* os)
{
- *os << gnu_lilypond_version_str ();
+ fputs(gnu_lilypond_version_str ().ch_C(), os);
}
void
/*
No version number or newline here. It confuses help2man
*/
- cout << _f ("Usage: %s [OPTION]... FILE...", "lilypond");
+ cout << _f ("Usage: %s [OPTION]... FILE...", "lilypond").ch_C();
cout << "\n\n";
- cout << _ ("Typeset music and or play MIDI from FILE");
+ cout << _ ("Typeset music and or play MIDI from FILE").ch_C();
cout << "\n\n";
cout <<
_ (
"LilyPond is a music typesetter. It produces beautiful sheet music\n"
"using a high level description file as input. LilyPond is part of \n"
"the GNU Project.\n"
-);
+).ch_C();
cout << '\n';
- cout << _ ("Options:");
+ cout << _ ("Options:").ch_C();
cout << '\n';
- cout << Long_option_init::table_str (options_static);
+ cout << Long_option_init::table_str (options_static).ch_C();
cout << '\n';
- cout << _ ("This binary was compiled with the following options:")
+ cout << _ ("This binary was compiled with the following options:") .ch_C()
<< " " <<
#ifdef NDEBUG
"NDEBUG "
cout << endl;
- cout << _f ("Report bugs to %s", "bug-lilypond@gnu.org") << endl;
+ cout << _f ("Report bugs to %s", "bug-lilypond@gnu.org").ch_C() << endl;
}
void
version ()
{
- identify (&cout);
+ identify (stdout);
cout << '\n';
cout << _f (""
"This is free software. It is covered by the GNU General Public License,\n"
"and you are welcome to change it and/or distribute copies of it under\n"
"certain conditions. Invoke as `%s --warranty' for more information.\n",
- "lilypond");
+ "lilypond").ch_C();
cout << endl;
- cout << _f ("Copyright (c) %s by", "1996--2001");
+ cout << _f ("Copyright (c) %s by", "1996--2002").ch_C();
cout << '\n';
cout << " Han-Wen Nienhuys <hanwen@cs.uu.nl>\n";
cout << " Jan Nieuwenhuizen <janneke@gnu.org>\n";
notice ()
{
cout << '\n';
- cout << _ ("GNU LilyPond -- The music typesetter");
+ cout << _ ("GNU LilyPond -- The music typesetter").ch_C();
cout << '\n';
- cout << _f ("Copyright (c) %s by", "1996--2001");
+ cout << _f ("Copyright (c) %s by", "1996--2002").ch_C();
cout << '\n';
cout << " Han-Wen Nienhuys <hanwen@cs.uu.nl>\n";
cout << " Jan Nieuwenhuizen <janneke@gnu.org>\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");
+ "USA.\n").ch_C();
}
+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;
#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);
/* 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
}
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 ();
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;
}
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]);
break;
}
}
- identify (&cerr);
+ identify (stderr);
#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
projects / lilypond.git / blobdiff