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--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1997--2015 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 133 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
144 -h command line option is detected. | 144 -h command line option is detected. |
145 */ | 145 */ |
146 static Long_option_init options_static[] | 146 static Long_option_init options_static[] |
147 = | 147 = |
148 { | 148 { |
149 {_i ("FORMATs"), "formats", 'f', _i ("dump FORMAT,... Also as separate option
s:")}, | 149 {_i ("FORMATs"), "formats", 'f', _i ("dump FORMAT,... Also as separate option
s:")}, |
150 {0, "pdf", 0, _i ("generate PDF files (default)")}, | 150 {0, "pdf", 0, _i ("generate PDF files (default)")}, |
151 {0, "png", 0, _i ("generate PNG files ")}, | 151 {0, "png", 0, _i ("generate PNG files ")}, |
152 {0, "ps", 0, _i ("generate PostScript files")}, | 152 {0, "ps", 0, _i ("generate PostScript files")}, |
153 {0, "eps", 'E', _i ("generate Encapsulated PostScript files")}, | 153 {0, "eps", 'E', _i ("generate Encapsulated PostScript files")}, |
154 {_i ("KEY"), "pspdfopt", 'O', _i ("set ps/pdf optimization to KEY (default: si
ze)\n" | 154 {_i ("KEY"), "pspdfopt", 'O', _i ("set ps/pdf optimization to KEY (default: Te
X)\n" |
155 "KEY is either 'size', 'TeX' or 'TeX-GS'")}, | 155 "KEY is either 'legacy', 'TeX' or 'TeX-GS'")}, |
156 { | 156 { |
157 _i ("SYM[=VAL]"), "define-default", 'd', | 157 _i ("SYM[=VAL]"), "define-default", 'd', |
158 _i ("set Scheme option SYM to VAL (default: #t).\n" | 158 _i ("set Scheme option SYM to VAL (default: #t).\n" |
159 "Use -dhelp for help.") | 159 "Use -dhelp for help.") |
160 }, | 160 }, |
161 | 161 |
162 {_i ("EXPR"), "evaluate", 'e', _i ("evaluate scheme code")}, | 162 {_i ("EXPR"), "evaluate", 'e', _i ("evaluate scheme code")}, |
163 /* Bug in option parser: --output =foe is taken as an abbreviation | 163 /* Bug in option parser: --output =foe is taken as an abbreviation |
164 for --output-format. */ | 164 for --output-format. */ |
165 {0, "help", 'h', _i ("show this help and exit")}, | 165 {0, "help", 'h', _i ("show this help and exit")}, |
(...skipping 462 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
628 | 628 |
629 case 'E': | 629 case 'E': |
630 add_output_format ("ps"); | 630 add_output_format ("ps"); |
631 init_scheme_variables_global += | 631 init_scheme_variables_global += |
632 "(cons \'backend 'eps)\n(cons \'aux-files '#f)\n"; | 632 "(cons \'backend 'eps)\n(cons \'aux-files '#f)\n"; |
633 break; | 633 break; |
634 | 634 |
635 case 'O': | 635 case 'O': |
636 { | 636 { |
637 string arg (option_parser->optional_argument_str0_); | 637 string arg (option_parser->optional_argument_str0_); |
638 if (arg == "speed") | 638 if (arg == "legacy") |
639 init_scheme_variables_global += | 639 init_scheme_variables_global += |
640 "(cons \'music-font-encodings '#f)\n" | 640 "(cons \'use-cid-fonts '#f)\n" |
641 "(cons \'gs-never-embed-fonts '#f)\n"; | 641 "(cons \'gs-never-embed-fonts '#f)\n" |
| 642 "(cons \'gs-load-fonts '#f)\n"; |
642 else if (arg == "TeX-GS") | 643 else if (arg == "TeX-GS") |
643 init_scheme_variables_global += | 644 init_scheme_variables_global += |
644 "(cons \'music-font-encodings '#t)\n" | 645 "(cons \'use-cid-fonts '#t)\n" |
645 "(cons \'gs-never-embed-fonts '#t)\n"; | 646 "(cons \'gs-never-embed-fonts '#t)\n" |
| 647 "(cons \'gs-load-fonts '#t)\n"; |
646 else if (arg == "TeX") | 648 else if (arg == "TeX") |
647 init_scheme_variables_global += | 649 init_scheme_variables_global += |
648 "(cons \'music-font-encodings '#t)\n" | 650 "(cons \'use-cid-fonts '#t)\n" |
649 "(cons \'gs-never-embed-fonts '#f)\n"; | 651 "(cons \'gs-never-embed-fonts '#f)\n" |
| 652 "(cons \'gs-load-fonts '#t)\n"; |
650 else | 653 else |
651 programming_error ("Ignoring unknown optimization key"); | 654 programming_error ("Ignoring unknown optimization key"); |
652 } | 655 } |
653 break; | 656 break; |
654 | 657 |
655 case 'd': | 658 case 'd': |
656 { | 659 { |
657 string arg (option_parser->optional_argument_str0_); | 660 string arg (option_parser->optional_argument_str0_); |
658 ssize eq = arg.find ('='); | 661 ssize eq = arg.find ('='); |
659 | 662 |
(...skipping 189 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
849 { | 852 { |
850 error (_f ("exception caught: %s", e.what ())); | 853 error (_f ("exception caught: %s", e.what ())); |
851 }; | 854 }; |
852 #else | 855 #else |
853 scm_boot_guile (argc, argv, main_with_guile, 0); | 856 scm_boot_guile (argc, argv, main_with_guile, 0); |
854 #endif | 857 #endif |
855 | 858 |
856 /* Only reachable if GUILE exits. That is an error. */ | 859 /* Only reachable if GUILE exits. That is an error. */ |
857 return 1; | 860 return 1; |
858 } | 861 } |
LEFT | RIGHT |