Local void output(Char *note_, struct LOC_processLine *LINK)
{
Char note[256];
Char STR2[256];
strcpy(note, note_);
if (*note != '\0')
{ /* pretex is saved up until a spacing note or rest comes */
if (endsWith(note, "\\") && note[1] != '\\') {
curtail(note, '\\');
strcat(LINK->pretex, note);
*note = '\0';
return;
}
if (*LINK->pretex != '\0' && isNoteOrRest(note)) {
sprintf(note, "%s\\ %s", LINK->pretex, strcpy(STR2, note));
*LINK->pretex = '\0';
}
if (outlen > 0 && note[0] != ' ')
sprintf(note, " %s", strcpy(STR2, note));
put(note, nospace);
}
if (thisNote(LINK->voice) == nextvoice)
putLine("");
}
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);
}
Local void analyzeParagraph(struct LOC_paragraphSetup *LINK)
{
paragraph_index i, FORLIM;
*LINK->voice = 0;
bottom = 0;
top = nvoices + 1;
clearLabels();
clearTags();
clearUptext();
FORLIM = para_len;
for (i = 1; i <= FORLIM; i++)
{ /* ----- Paragraph analysis main loop ----- */
if (*P[i-1] != '\0' && P[i-1][0] != comment) {
NextWord(LINK->w, P[i-1], blank, colon);
line_no = orig_line_no[i-1];
LINK->l = strlen(LINK->w);
LINK->is_labelled = (LINK->w[LINK->l-1] == colon &&
LINK->w[LINK->l-2] != barsym);
if (LINK->is_labelled) {
strcpy(LINK->P_keep, P[i-1]);
predelete(P[i-1], LINK->l);
shorten(LINK->w, LINK->l - 1);
LINK->k = findVoice(LINK->w); /* First look for a voice label */
if (LINK->k > 0) {
*LINK->voice = LINK->k;
setMusicLineNo(*LINK->voice, i);
} else if (LINK->w[0] == 'L')
maybeLyrics(*LINK->voice, i, LINK->w);
else if (LINK->w[0] == 'C')
maybeChords(i, LINK);
else if (LINK->w[0] == 'U')
maybeUptext(i, LINK);
else {
if (startsWithIgnoreCase(LINK->w, "SPACE")) {
setSpace(P[i-1]);
must_respace = true;
} else {
if (startsWithIgnoreCase(LINK->w, "VOICES")) {
selectVoices(P[i-1]);
must_restyle = true;
} else {
strcpy(P[i-1], LINK->P_keep);
LINK->is_labelled = false;
if (!isNoteOrRest(LINK->w)) {
error("Unknown line label", print);
/** ------------ Maybe Space command ------------ */
/** ------------ Maybe Voices command ------------ */
/** Could be sticky attribute **/
}
}
}
}
}
if (!LINK->is_labelled) {
(*LINK->voice)++;
setMusicLineNo(*LINK->voice, i);
}
if (*LINK->voice > bottom)
bottom = *LINK->voice;
if (*LINK->voice > 0 && *LINK->voice < top)
top = *LINK->voice;
}
}
}
