LEFT | RIGHT |
(no file at all) | |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1997--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 6 LilyPond is free software: you can redistribute it and/or modify |
7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
8 the Free Software Foundation, either version 3 of the License, or | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 36 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
47 #include "global-ctor.hh" | 47 #include "global-ctor.hh" |
48 #include "international.hh" | 48 #include "international.hh" |
49 #include "lily-version.hh" | 49 #include "lily-version.hh" |
50 #include "misc.hh" | 50 #include "misc.hh" |
51 #include "output-def.hh" | 51 #include "output-def.hh" |
52 #include "program-option.hh" | 52 #include "program-option.hh" |
53 #include "relocate.hh" | 53 #include "relocate.hh" |
54 #include "string-convert.hh" | 54 #include "string-convert.hh" |
55 #include "version.hh" | 55 #include "version.hh" |
56 #include "warn.hh" | 56 #include "warn.hh" |
57 | |
58 /* | |
59 * Global options that can be overridden through command line. | |
60 */ | |
61 | |
62 /* Names of header fields to be dumped to a separate file. */ | |
63 vector<string> dump_header_fieldnames_global; | |
64 | |
65 /* Name of initialisation file. */ | |
66 string init_name_global; | |
67 | |
68 /* Output formats to generate. */ | |
69 string output_format_global = ""; | |
70 | |
71 /* Current output name. */ | |
72 string output_name_global; | |
73 | |
74 /* Run in safe mode? */ | |
75 bool be_safe_global = false; | |
76 | |
77 /* Scheme code to execute before parsing, after .scm init. | |
78 This is where -e arguments are appended to. */ | |
79 string init_scheme_code_global; | |
80 string init_scheme_variables_global; | |
81 | |
82 bool relocate_binary = true; | |
83 | |
84 /* | |
85 * Miscellaneous global stuff. | |
86 */ | |
87 File_path global_path; | |
88 | 57 |
89 /* | 58 /* |
90 * File globals. | 59 * File globals. |
91 */ | 60 */ |
92 | 61 |
93 static char const *AUTHORS | 62 static char const *AUTHORS |
94 = " Han-Wen Nienhuys <hanwen@xs4all.nl>\n" | 63 = " Han-Wen Nienhuys <hanwen@xs4all.nl>\n" |
95 " Jan Nieuwenhuizen <janneke@gnu.org>\n"; | 64 " Jan Nieuwenhuizen <janneke@gnu.org>\n"; |
96 | 65 |
97 static char const *PROGRAM_NAME = "lilypond"; | 66 static char const *PROGRAM_NAME = "lilypond"; |
(...skipping 14 matching lines...) Expand all Loading... |
112 " This program is distributed in the hope that it will be useful,\n" | 81 " This program is distributed in the hope that it will be useful,\n" |
113 "but WITHOUT ANY WARRANTY; without even the implied warranty of\n" | 82 "but WITHOUT ANY WARRANTY; without even the implied warranty of\n" |
114 "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n" | 83 "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n" |
115 "General Public License for more details.\n" | 84 "General Public License for more details.\n" |
116 "\n" | 85 "\n" |
117 " You should have received a copy of the\n" | 86 " You should have received a copy of the\n" |
118 "GNU General Public License along with this program; if not, write to\n" | 87 "GNU General Public License along with this program; if not, write to\n" |
119 "the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\n" | 88 "the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\n" |
120 "Boston, MA 02111-1307, USA.\n"); | 89 "Boston, MA 02111-1307, USA.\n"); |
121 | 90 |
122 /* Where the init files live. Typically: | |
123 LILYPOND_DATADIR = /usr/share/lilypond | |
124 */ | |
125 string lilypond_datadir; | |
126 | |
127 /* The jail specification: USER, GROUP, JAIL, DIR. */ | 91 /* The jail specification: USER, GROUP, JAIL, DIR. */ |
128 string jail_spec; | 92 static string jail_spec; |
129 | 93 |
130 /* The option parser */ | 94 /* The option parser */ |
131 static Getopt_long *option_parser = 0; | 95 static Getopt_long *option_parser = 0; |
132 | 96 |
133 /* Internationalisation kludge in two steps: | 97 /* Internationalisation kludge in two steps: |
134 * use _i () to get entry in POT file | 98 * use _i () to get entry in POT file |
135 * call gettext () explicitly for actual "translation" */ | 99 * call gettext () explicitly for actual "translation" */ |
136 | 100 |
137 static Long_option_init options_static[] | 101 static Long_option_init options_static[] |
138 = | 102 = |
(...skipping 459 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
598 sane_putenv ("GUILE_MIN_YIELD_1", yield, overwrite); | 562 sane_putenv ("GUILE_MIN_YIELD_1", yield, overwrite); |
599 sane_putenv ("GUILE_MIN_YIELD_2", yield, overwrite); | 563 sane_putenv ("GUILE_MIN_YIELD_2", yield, overwrite); |
600 sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite); | 564 sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite); |
601 | 565 |
602 sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1", | 566 sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1", |
603 "10485760", overwrite); | 567 "10485760", overwrite); |
604 sane_putenv ("GUILE_MAX_SEGMENT_SIZE", | 568 sane_putenv ("GUILE_MAX_SEGMENT_SIZE", |
605 "104857600", overwrite); | 569 "104857600", overwrite); |
606 } | 570 } |
607 | 571 |
608 vector<string> start_environment_global; | |
609 | |
610 int | 572 int |
611 main (int argc, char **argv, char **envp) | 573 main (int argc, char **argv, char **envp) |
612 { | 574 { |
613 configure_fpu (); | 575 configure_fpu (); |
614 | 576 |
615 for (char **p = envp; *p; p++) | 577 for (char **p = envp; *p; p++) |
616 start_environment_global.push_back (*p); | 578 start_environment_global.push_back (*p); |
617 | 579 |
618 if (getenv ("LILYPOND_VERBOSE")) | 580 if (getenv ("LILYPOND_VERBOSE")) |
619 set_loglevel (LOGLEVEL_DEBUG); | 581 set_loglevel (LOGLEVEL_DEBUG); |
(...skipping 18 matching lines...) Expand all Loading... |
638 { | 600 { |
639 error (_f ("exception caught: %s", e.what ())); | 601 error (_f ("exception caught: %s", e.what ())); |
640 }; | 602 }; |
641 #else | 603 #else |
642 scm_boot_guile (argc, argv, main_with_guile, 0); | 604 scm_boot_guile (argc, argv, main_with_guile, 0); |
643 #endif | 605 #endif |
644 | 606 |
645 /* Only reachable if GUILE exits. That is an error. */ | 607 /* Only reachable if GUILE exits. That is an error. */ |
646 return 1; | 608 return 1; |
647 } | 609 } |
LEFT | RIGHT |