LEFT | RIGHT |
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 69 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
80 "\n" | 80 "\n" |
81 " 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" |
82 "but WITHOUT ANY WARRANTY; without even the implied warranty of\n" | 82 "but WITHOUT ANY WARRANTY; without even the implied warranty of\n" |
83 "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n" | 83 "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n" |
84 "General Public License for more details.\n" | 84 "General Public License for more details.\n" |
85 "\n" | 85 "\n" |
86 " You should have received a copy of the\n" | 86 " You should have received a copy of the\n" |
87 "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" |
88 "the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\n" | 88 "the Free Software Foundation, Inc., 59 Temple Place - Suite 330,\n" |
89 "Boston, MA 02111-1307, USA.\n"); | 89 "Boston, MA 02111-1307, USA.\n"); |
90 | |
91 | 90 |
92 /* The jail specification: USER, GROUP, JAIL, DIR. */ | 91 /* The jail specification: USER, GROUP, JAIL, DIR. */ |
93 static string jail_spec; | 92 static string jail_spec; |
94 | 93 |
95 /* The option parser */ | 94 /* The option parser */ |
96 static Getopt_long *option_parser = 0; | 95 static Getopt_long *option_parser = 0; |
97 | 96 |
98 /* Internationalisation kludge in two steps: | 97 /* Internationalisation kludge in two steps: |
99 * use _i () to get entry in POT file | 98 * use _i () to get entry in POT file |
100 * call gettext () explicitly for actual "translation" */ | 99 * call gettext () explicitly for actual "translation" */ |
(...skipping 462 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
563 sane_putenv ("GUILE_MIN_YIELD_1", yield, overwrite); | 562 sane_putenv ("GUILE_MIN_YIELD_1", yield, overwrite); |
564 sane_putenv ("GUILE_MIN_YIELD_2", yield, overwrite); | 563 sane_putenv ("GUILE_MIN_YIELD_2", yield, overwrite); |
565 sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite); | 564 sane_putenv ("GUILE_MIN_YIELD_MALLOC", yield, overwrite); |
566 | 565 |
567 sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1", | 566 sane_putenv ("GUILE_INIT_SEGMENT_SIZE_1", |
568 "10485760", overwrite); | 567 "10485760", overwrite); |
569 sane_putenv ("GUILE_MAX_SEGMENT_SIZE", | 568 sane_putenv ("GUILE_MAX_SEGMENT_SIZE", |
570 "104857600", overwrite); | 569 "104857600", overwrite); |
571 } | 570 } |
572 | 571 |
573 | |
574 int | 572 int |
575 main (int argc, char **argv, char **envp) | 573 main (int argc, char **argv, char **envp) |
576 { | 574 { |
577 configure_fpu (); | 575 configure_fpu (); |
578 | 576 |
579 for (char **p = envp; *p; p++) | 577 for (char **p = envp; *p; p++) |
580 start_environment_global.push_back (*p); | 578 start_environment_global.push_back (*p); |
581 | 579 |
582 if (getenv ("LILYPOND_VERBOSE")) | 580 if (getenv ("LILYPOND_VERBOSE")) |
583 set_loglevel (LOGLEVEL_DEBUG); | 581 set_loglevel (LOGLEVEL_DEBUG); |
(...skipping 18 matching lines...) Expand all Loading... |
602 { | 600 { |
603 error (_f ("exception caught: %s", e.what ())); | 601 error (_f ("exception caught: %s", e.what ())); |
604 }; | 602 }; |
605 #else | 603 #else |
606 scm_boot_guile (argc, argv, main_with_guile, 0); | 604 scm_boot_guile (argc, argv, main_with_guile, 0); |
607 #endif | 605 #endif |
608 | 606 |
609 /* Only reachable if GUILE exits. That is an error. */ | 607 /* Only reachable if GUILE exits. That is an error. */ |
610 return 1; | 608 return 1; |
611 } | 609 } |
LEFT | RIGHT |