| 30 | 30 |
* Wil Macaulay (wil@syndesis.com)
|
| 31 | 31 |
*/
|
| 32 | 32 |
|
| 33 | |
#define VERSION "3.36 September 28 2014"
|
|
33 |
#define VERSION "3.37 October 16 2014"
|
| 34 | 34 |
/* enables reading V: indication in header */
|
| 35 | 35 |
#define XTEN1 1
|
| 36 | 36 |
/*#define INFO_OCTAVE_DISABLED 1*/
|
|
| 130 | 130 |
int retuning = 0; /* [SS] 2012-04-01 */
|
| 131 | 131 |
int bend = 8192; /* [SS] 2012-04-01 */
|
| 132 | 132 |
int comma53 = 0; /* [SS] 2014-01-12 */
|
|
133 |
int silent = 0; /* [SS] 2014-10-16 */
|
| 133 | 134 |
void init_p48toc53 (); /* [SS] 2014-01-12 */
|
| 134 | 135 |
void convert_to_comma53 (char acc, int *midipitch, int* midibend);
|
| 135 | 136 |
|
|
| 772 | 773 |
}
|
| 773 | 774 |
|
| 774 | 775 |
if (getarg("-OCC",argc,argv) != -1) oldchordconvention=1;
|
|
776 |
if (getarg("-silent",argc,argv) != -1) silent = 1; /* [SS] 2014-10-16 */
|
| 775 | 777 |
|
| 776 | 778 |
maxnotes = 500;
|
| 777 | 779 |
/* allocate space for notes */
|
|
| 804 | 806 |
printf(" -n <limit> set limit for length of filename stem\n");
|
| 805 | 807 |
printf(" -RS use 3:1 instead of 2:1 for broken rhythms\n");
|
| 806 | 808 |
printf(" -quiet suppress some common warnings\n");
|
|
809 |
printf(" -silent suppresses most messages\n");
|
| 807 | 810 |
printf(" -Q default tempo (quarter notes/minute)\n");
|
| 808 | 811 |
printf(" -NFNP don't process !p! or !f!-like fields\n");
|
| 809 | 812 |
printf(" -NCOM suppress comments in output MIDI file\n");
|
|
| 2291 | 2294 |
if (pastheader && parts == -1) return; /* [SS] 2014-04-10 */
|
| 2292 | 2295 |
if (pastheader) {
|
| 2293 | 2296 |
if (((int)*p < 'A') || ((int)*p > 'Z')) {
|
| 2294 | |
event_error("Part must be one of A-Z");
|
|
2297 |
if (!silent) event_error("Part must be one of A-Z");
|
| 2295 | 2298 |
return;
|
| 2296 | 2299 |
};
|
| 2297 | 2300 |
if ((headerpartlabel == 1) && (part.st[0] == *p)) {
|
|
| 3746 | 3749 |
} else {
|
| 3747 | 3750 |
/* Experimental feature supports "_ignored words" */
|
| 3748 | 3751 |
if (strchr("_^<>@", (int)*p) == NULL) {
|
| 3749 | |
event_error("Guitar chord does not start with A-G or a-g");
|
|
3752 |
if (!silent) event_error("Guitar chord does not start with A-G or a-g");
|
| 3750 | 3753 |
};
|
| 3751 | 3754 |
return;
|
| 3752 | 3755 |
};
|
|
| 3774 | 3777 |
p = p + 1;
|
| 3775 | 3778 |
p = get_accidental(p, &accidental);
|
| 3776 | 3779 |
inversion = pitchof(note, accidental, 1, 0, 0) - middle_c;
|
| 3777 | |
} else {
|
|
3780 |
} else if (!silent) {
|
| 3778 | 3781 |
event_error(" / must be followed by A-G or a-g in gchord");
|
| 3779 | 3782 |
};
|
| 3780 | 3783 |
};
|
|
| 4172 | 4175 |
/*printf("tied_num = %d done = %d inchord = %d\n",tied_num, done, inchord);*/
|
| 4173 | 4176 |
place = place + 1;
|
| 4174 | 4177 |
};
|
| 4175 | |
if (tietodo == 1) {
|
|
4178 |
if (tietodo == 1 && !silent) {
|
| 4176 | 4179 |
event_error("Could not find note to be tied");
|
| 4177 | 4180 |
};
|
| 4178 | 4181 |
};
|
|
| 5247 | 5250 |
if (parts > -1) {
|
| 5248 | 5251 |
addfeature(PART, ' ', 0, 0);
|
| 5249 | 5252 |
};
|
| 5250 | |
if (headerpartlabel == 1) {
|
|
5253 |
if (headerpartlabel == 1 && !silent) {
|
| 5251 | 5254 |
event_error("P: field in header should go after K: field");
|
| 5252 | 5255 |
};
|
| 5253 | 5256 |
if (verbose > 1) {
|
|
| 5283 | 5286 |
if ((fp = fopen(outname, "wb")) == NULL) {
|
| 5284 | 5287 |
event_fatal_error("File open failed");
|
| 5285 | 5288 |
};
|
| 5286 | |
printf("writing MIDI file %s\n", outname);
|
|
5289 |
if (!silent) printf("writing MIDI file %s\n", outname);
|
| 5287 | 5290 |
Mf_putc = myputc;
|
| 5288 | 5291 |
Mf_writetrack = writetrack;
|
| 5289 | 5292 |
header_time_num = time_num;
|
|
| 5314 | 5317 |
/* blank line found in abc signifies the end of a tune */
|
| 5315 | 5318 |
{
|
| 5316 | 5319 |
if (dotune) {
|
| 5317 | |
print_voicecodes();
|
|
5320 |
if (!silent) print_voicecodes();
|
| 5318 | 5321 |
finishfile();
|
| 5319 | 5322 |
parseroff();
|
| 5320 | 5323 |
dotune = 0;
|