mi2mu/main.cc

   1 //
   2 // main.cc -- implement silly main() entry point
   3 // should have Root class.
   4 //
   5 // copyright 1997 Jan Nieuwenhuizen <jan@digicash.com>
   6
   7 #include "string-convert.hh"
   8 #include "lgetopt.hh"
   9 #include "path.hh"
  10 #include "duration-convert.hh"
  11 #include "source.hh"
  12
  13 #include "mi2mu-global.hh"
  14 #include "my-midi-parser.hh"
  15 #include "mudela-score.hh"
  16 #include "version.hh"
  17
  18 Sources source;
  19 Sources* source_l_g = &source;
  20
  21 static File_path path;
  22
  23 Verbose level_ver = NORMAL_ver;
  24
  25 /// just to make sure print_rat is linked in
  26 static void (*rat_printer)(Moment const&);
  27
  28 void
  29 usage()
  30 {
  31     LOGOUT(NORMAL_ver) <<
  32         "Usage: mi2mu [options] midi-file\n"
  33     "Translate midi-file to mudela\n"
  34     "\n"
  35     "Options:\n"
  36     "  -b, --no-quantify      write exact durations, e.g.: a4*385/384\n"
  37     "  -d, --debug            print lots of debugging stuff\n"
  38     "  -h, --help             this help\n"
  39     "  -I, --include=DIR      add DIR to search path\n"
  40     "  -n, --no-silly         assume no plets or double dots, smallest is 32\n"
  41     "  -o, --output=FILE      set FILE as default output\n"
  42     "  -p, --no-plets         assume no plets\n"
  43     "  -q, --quiet            be quiet\n"
  44     "  -s, --smallest=N       assume no shorter (reciprocal) durations than N\n"
  45     "  -v, --verbose          be verbose\n"
  46     "  -w, --warranty         show warranty and copyright\n"
  47     "  -x, --no-double-dots   assume no double dotted notes\n"
  48     ;
  49 }
  50
  51 void
  52 identify()
  53 {
  54     LOGOUT(NORMAL_ver) << mi2mu_version_str() << endl;
  55 }
  56
  57 void
  58 notice()
  59 {
  60     LOGOUT(NORMAL_ver) <<
  61     "\n"
  62     "Mi2mu, translate midi to mudela.\n"
  63     "Copyright (C) 1997 by\n"
  64     "  Jan Nieuwenhuizen <jan@digicash.com>\n"
  65     "  Han-Wen Nienhuys <hanwen@stack.nl>\n"
  66     "\n"
  67     "    This program is free software; you can redistribute it and/or\n"
  68     "modify it under the terms of the GNU General Public License version 2\n"
  69     "as published by the Free Software Foundation.\n"
  70     "\n"
  71     "    This program is distributed in the hope that it will be useful,\n"
  72     "but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
  73     "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU\n"
  74     "General Public License for more details.\n"
  75     "\n"
  76     "    You should have received a copy (refer to the file COPYING) of the\n"
  77     "GNU General Public License along with this program; if not, write to\n"
  78     "the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,\n"
  79     "USA.\n";
  80 }
  81
  82 int
  83 main (int argc_i, char* argv_sz_a[])
  84 {
  85     rat_printer = print_rat;
  86
  87     Long_option_init long_option_init_a[] = {
  88         {0, "no-quantify", 'b'},
  89         {0, "debug", 'd'},
  90         {0, "help", 'h'},
  91         {0, "no-silly", 'n'},
  92         {1, "output", 'o'},
  93         {0, "no-plets", 'p'},
  94         {0, "quiet", 'q'},
  95         {1, "smallest", 's'},
  96         {0, "verbose", 'v'},
  97         {0, "warranty", 'w'},
  98         {0, "no-double-dots", 'x'},
  99         {0,0,0}
 100     };
 101     Getopt_long getopt_long (argc_i, argv_sz_a, long_option_init_a);
 102
 103     String output_str;
 104     while  (Long_option_init const* long_option_init_p = getopt_long())
 105         switch  (long_option_init_p->shortname) {
 106         case 'b':
 107             Duration_convert::no_quantify_b_s = true;
 108             break;
 109         case 'd':
 110             level_ver = DEBUG_ver;
 111             break;
 112         case 'h':
 113             identify();
 114             usage();
 115             exit (0);
 116             break;
 117 //      case 'I':
 118 //          path->push (getopt_long.optional_argument_ch_C_);
 119 //          break;
 120         case 'n':
 121             Duration_convert::no_double_dots_b_s = true;
 122             Duration_convert::no_triplets_b_s = true;
 123             Duration_convert::no_smaller_than_i_s = 32;
 124             break;
 125         case 'o':
 126             output_str = getopt_long.optional_argument_ch_C_;
 127             break;
 128         case 'p':
 129             Duration_convert::no_triplets_b_s = true;
 130             break;
 131         case 'q':
 132             level_ver = QUIET_ver;
 133             break;
 134         case 's': {
 135                 int i = String_convert::dec2_i (getopt_long.optional_argument_ch_C_);
 136                 if  (!i) {
 137                     identify();
 138                     usage();
 139                     exit (2); //usage
 140                 }
 141                 Duration_convert::no_smaller_than_i_s = i;
 142             }
 143             break;
 144         case 'v':
 145             level_ver = VERBOSE_ver;
 146             break;
 147         case 'w':
 148             identify();
 149             notice();
 150             exit (0);
 151             break;
 152         case 'x':
 153             Duration_convert::no_double_dots_b_s = true;
 154             break;
 155         default:
 156             assert (0);
 157             break;
 158           }
 159
 160     // flag -q must be checked first
 161     identify();
 162
 163     path.add ("");
 164     source_l_g->set_path (&path);
 165
 166     char const* arg_sz = 0;
 167     while  ( (arg_sz = getopt_long.get_next_arg())) {
 168         My_midi_parser midi_parser (arg_sz, & source);
 169         midi_parser_l_g = &midi_parser;
 170
 171         int error_i = midi_parser.parse();
 172         if  (error_i)
 173             return error_i;
 174
 175         if  (!output_str.length_i()) {
 176             String d, dir, base, ext;
 177
 178             split_path (arg_sz, d, dir, base, ext);
 179
 180             output_str = base + ext + ".ly";
 181         }
 182
 183         assert (midi_parser.mudela_score_p_);
 184         midi_parser.mudela_score_p_->process();
 185         midi_parser.mudela_score_p_->output (output_str);
 186
 187         midi_parser_l_g = 0;
 188     }
 189     return 0;
 190 }