2 // main.cc -- implement silly main() entry point
3 // should have Root class.
5 // copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
8 #include "string-convert.hh"
11 #include "duration-convert.hh"
14 #include "mi2mu-global.hh"
15 #include "midi-score-parser.hh"
16 #include "mudela-item.hh"
17 #include "mudela-score.hh"
21 String filename_str_g;
24 Mudela_score* mudela_score_l_g = 0;
28 static File_path path;
30 Verbose level_ver = NORMAL_ver;
36 _("Usage: mi2mu [options] midi-file\n"
37 "Translate midi-file to mudela\n"
40 " -b, --no-quantify write exact durations, e.g.: a4*385/384\n"
41 " -d, --debug print lots of debugging stuff\n"
42 " -h, --help this help\n"
43 " -I, --include=DIR add DIR to search path\n"
44 " -k, --key=ACC[:MINOR] set key: ACC +sharps/-flats; :1 minor\n"
45 " -n, --no-silly assume no plets or double dots, smallest is 32\n"
46 " -o, --output=FILE set FILE as default output\n"
47 " -p, --no-plets assume no plets\n"
48 " -q, --quiet be quiet\n"
49 " -s, --smallest=N assume no shorter (reciprocal) durations than N\n"
50 " -v, --verbose be verbose\n"
51 " -w, --warranty show warranty and copyright\n"
52 " -x, --no-double-dots assume no double dotted notes\n")
59 LOGOUT(NORMAL_ver) << mi2mu_version_str() << endl;
67 "Mi2mu, translate midi to mudela.\n"
68 "Copyright (C) 1997 by\n"
69 " Jan Nieuwenhuizen <jan@digicash.com>\n"
70 " Han-Wen Nienhuys <hanwen@stack.nl>\n"
72 " This program is free software; you can redistribute it and/or\n"
73 "modify it under the terms of the GNU General Public License version 2\n"
74 "as published by the Free Software Foundation.\n"
76 " This program is distributed in the hope that it will be useful,\n"
77 "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
78 "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\n"
79 "General Public License for more details.\n"
81 " You should have received a copy (refer to the file COPYING) of the\n"
82 "GNU General Public License along with this program; if not, write to\n"
83 "the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,\n"
88 main (int argc_i, char* argv_sz_a[])
90 Mudela_key key (0, 0);
92 Long_option_init long_option_init_a[] =
94 {0, "no-quantify", 'b'},
100 {0, "no-plets", 'p'},
102 {1, "smallest", 's'},
104 {0, "warranty", 'w'},
105 {0, "no-double-dots", 'x'},
108 Getopt_long getopt_long (argc_i, argv_sz_a, long_option_init_a);
111 while (Long_option_init const* long_option_init_p = getopt_long())
112 switch (long_option_init_p->shortname)
115 Duration_convert::no_quantify_b_s = true;
118 level_ver = DEBUG_ver;
126 // path->push (getopt_long.optional_argument_ch_C_);
130 String str = getopt_long.optional_argument_ch_C_;
131 int i = str.index_i (':');
132 i = (i >=0 ? i : str.length_i ());
133 key.accidentals_i_ = String_convert::dec2_i (str.left_str (i));
134 key.minor_i_ = (int)(bool)String_convert::dec2_i (str.cut (i + 1,1));
138 Duration_convert::no_double_dots_b_s = true;
139 Duration_convert::no_triplets_b_s = true;
140 Duration_convert::no_smaller_than_i_s = 5;
143 output_str = getopt_long.optional_argument_ch_C_;
146 Duration_convert::no_triplets_b_s = true;
149 level_ver = QUIET_ver;
153 int i = String_convert::dec2_i (getopt_long.optional_argument_ch_C_);
160 Duration_convert::no_smaller_than_i_s =
161 Duration_convert::i2_type(i);
165 level_ver = VERBOSE_ver;
173 Duration_convert::no_double_dots_b_s = true;
180 // flag -q must be checked first
184 source.set_binary (true);
185 source.set_path (&path);
187 char const* arg_sz = 0;
188 while ( (arg_sz = getopt_long.get_next_arg ()))
190 filename_str_g = arg_sz;
191 Midi_score_parser midi_parser;
192 Mudela_score* score_p = midi_parser.parse (arg_sz, &source);
197 // if given on command line: override
198 score_p->mudela_key_l_ = &key;
199 mudela_score_l_g = score_p;
202 if (!output_str.length_i ())
204 String d, dir, base, ext;
205 split_path (arg_sz, d, dir, base, ext);
206 output_str = base + ext + ".ly";
209 score_p->output (output_str);