main(int argc, Char *argv[])
{ /* ---- Main program ------------------------ */
PASCAL_MAIN(argc, argv);
strcpy(this_version, version);
strcpy(this_version_date, version_date);
printf("==> This is M-Tx %s (Music from TeXt) %s\n", version, version_date);
mtxLevel(version);
OpenFiles();
no_commands_yet = true;
preambleDefaults();
no_report_errors = false;
topOfPMXfile();
do {
readParagraph(P, orig_line_no, ¶_len);
control_paragraph = isControlParagraph(P, para_len);
if (control_paragraph) {
augmentPreamble(no_report_errors);
no_report_errors = true;
if (para_len == 0)
error("No music paragraphs!", !print);
}
} while (control_paragraph);
doPreamble();
doMusic();
if (!pmx_preamble_done)
error("No music paragraphs!", !print);
putLine("% Coded by M-Tx");
CloseFiles();
printf("PrePMX done. Now run PMX.\n");
_Escape(0);
exit(EXIT_SUCCESS);
}
Local void remember(short s1, short s2, struct LOC_grep *LINK)
{
if (LINK->index > 9)
_Escape(9999);
LINK->p1[LINK->index] = s1;
LINK->p2[LINK->index] = s2;
LINK->s = s2 + 1;
LINK->index++;
}
static void _PutRecord(ofstream& os, Array<String>& fields)
{
for (Uint32 i = 0, n = fields.size(); i < n; i++)
{
// Calling getCString to ensure utf-8 goes to the file
// Calling write to ensure no data conversion by the stream
CString buffer = _Escape(fields[i]).getCString();
os.write((const char *)buffer,
static_cast<streamsize>(strlen((const char *)buffer)));
os << endl;
}
os << endl;
}
