void scanMusic(voice_index voice_, short *left_over)
{
struct LOC_scanMusic V;
Char buf[256], enote[256], xnote[256];
boolean has_next = false, done = false;
Char dur1, lastdur;
music_word nscan;
Char STR1[256];
V.voice = voice_;
strcpy(terminators, "d.x");
resetInfo(V.voice, buf);
*left_over = 0;
V.store_macro = false;
V.bar = full_bar;
V.bar_length = 0;
V.ngrace = 0;
V.nmulti = 0;
if (meternum == 0)
V.bar = 32000;
dur1 = duration(V.voice);
lastdur = dur1;
do {
getNextMusWord(buf, V.note, &nscan);
if (*V.note == '\0')
break;
V.count = 0;
/* if isNoteOrRest(note) and not (isPause(note) or isMultibarRest(note))
then note:=toStandard(note); */
V.doublex = (pos1('D', V.note) > 0);
if (nscan == mword) {
if (*V.note == '\0')
error3(V.voice, "You may not end a line with a meter change");
if (V.bar_length > 0)
error3(V.voice, "Meter change only allowed at start of bar");
else
V.bar = barLength(V.note);
} else if (nscan == rword) {
if (!(isPause(V.note) || isMultiBarRest(V.note))) {
processNote(V.note, xnote, dur1, &lastdur, &V.count);
checkSticky(V.note, rest_attrib[V.voice-1]);
}
}
if (*V.note != '\0')
appendNote(V.voice, nscan);
strcpy(enote, V.note);
if (nscan == macro || nscan == endmacro)
examineMacro(&V);
if (nscan == abcdefg) {
if (!multi_bar_rest && V.ngrace + V.nmulti == 0) {
processNote(enote, xnote, dur1, &lastdur, &V.count);
if (*xnote != '\0') {
checkSticky(enote, note_attrib[V.voice-1]);
appendToLine(V.voice, enote);
appendNote(V.voice, nscan);
strcpy(enote, xnote);
}
checkSticky(enote, note_attrib[V.voice-1]);
}
}
appendToLine(V.voice, enote);
if (*V.note == '\0') /* !!! else word_bound[here]:=length(line); */
done = true;
sprintf(STR1, "%c", barsym);
if (!strcmp(V.note, STR1)) {
if (meternum == 0)
error3(V.voice, "You may not use bar lines in barless music");
else if (V.bar_length == 0)
markBar(V.voice);
else if (numberOfBars(V.voice) == 0 && V.bar_length < V.bar) {
if (has_next)
has_next = false; /*Should check whether pickups are equal*/
else if (*left_over > 0)
error3(V.voice, "Bar is too short");
*left_over = V.bar_length;
V.bar_length = 0;
}
}
if (nscan == nextvoice) {
if (V.bar_length > 0)
error3(V.voice, "Next voice before bar is full");
else
barForward(V.voice, -1);
has_next = true;
} else if (isPause(V.note))
V.bar_length += V.bar;
else if (!multi_bar_rest) { /*do nothing*/
if (!done && isNoteOrRest(V.note))
countIt(&V);
else
maybeGroup(&V);
}
dur1 = lastdur;
if (V.bar_length >= V.bar && V.ngrace + V.nmulti == 0 && !V.store_macro) {
if (debugMode())
printf("%d %d\n", V.voice, V.bar_length);
barForward(V.voice, V.bar_length / V.bar);
V.bar_length %= V.bar;
/* p2c: mtx.pas, line 268:
* Note: Using % for possibly-negative arguments [317] */
}
} while (!done);
setExtraLength(V.voice, V.bar_length);
resetDuration(V.voice, dur1);
regroup(V.voice);
}
void testParagraph(void)
{
voice_index0 voice;
voice_index0 leader = 0, nv = 0;
paragraph_index0 mus;
short extra, l, nbar;
voice_index0 FORLIM;
Char STR2[256];
Char STR4[256];
nbars = 0;
pickup = 0;
nleft = 0;
if (top > bottom)
return;
pickup = 0;
*multi_bar_rest = '\0';
FORLIM = bottom;
for (voice = top; voice <= FORLIM; voice++) {
mus = musicLineNo(voice);
if (mus > 0) { /** -------------- Voice is present ---- */
nv++;
line_no = orig_line_no[mus-1];
scanMusic(voice, &l);
if (*multi_bar_rest != '\0' && nv > 1)
error("Multi-bar rest allows only one voice", print);
if (!pmx_preamble_done) {
if (voice == top)
pickup = l;
else if (pickup != l)
error3(voice, "The same pickup must appear in all voices");
}
nbar = numberOfBars(voice);
extra = ExtraLength(voice);
if (*multi_bar_rest != '\0' && (nbar > 0 || extra > 0))
error3(voice, "Multi-bar rest allows no other rests or notes");
if (nbar > nbars || nbar == nbars && extra > nleft) {
nbars = nbar;
nleft = extra;
leader = voice;
}
if (!final_paragraph && meternum > 0 && extra > 0) {
printf("Line has %s\n", describe(STR2, nbar, extra));
error(" Line does not end at complete bar", print);
}
if (pmx_preamble_done && l > 0 && meternum > 0) {
printf("l=%d meternum=%d\n", l, meternum);
error3(voice, "Short bar with no meter change");
}
}
}
if (!pmx_preamble_done) {
xmtrnum0 = (double)pickup / one_beat; /* Don't want an integer result */
if (beVerbose())
printf("Pickup = %d/64\n", pickup);
}
if (leader <= 0)
return;
FORLIM = bottom;
for (voice = top; voice <= FORLIM; voice++) {
if (musicLineNo(voice) > 0) {
if (voice != leader) {
mus = musicLineNo(voice);
line_no = orig_line_no[mus-1];
if (numberOfBars(voice) != numberOfBars(leader) ||
ExtraLength(voice) != ExtraLength(leader)) {
printf("Following line has %s\n",
describe(STR4, numberOfBars(voice), ExtraLength(voice)));
puts(musicLine(STR4, voice));
printf("Longest line has %s\n",
describe(STR2, numberOfBars(leader), ExtraLength(leader)));
puts(musicLine(STR2, leader));
error("Line duration anomaly", print);
}
}
}
}
}
