clrnl ()
{
register short i;
DB_ENTR ("clrnl");
for (i = 0; i < NNEVTS - 1; i++)
{
nevents[i].nxt = &nevents[i + 1];
nevents[i].note = 0;
nevents[i].group = 0;
}
nevents[NNEVTS - 1].nxt = (struct nevent *) 0L;
nelist = (struct nevent *) 0L;
nefree = &nevents[0];
nkdown = 0;
DB_EXIT ("clrnl");
}
short
accnote ()
{
register short rc;
DB_ENTR ("accnote");
rc = -1;
if ((ac_code == N_SHARP) && cflag)
{
DB_CMNT ("accnote - N_SHARP");
rc = cnote + 1;
}
else if ((ac_code == N_FLAT) && cflag)
{
DB_CMNT ("accnote - N_FLAT");
rc = cnote - 1;
}
else
{
DB_CMNT ("accnote - no accidental possible");
}
#if DEBUGIT
if (debugsw)
printf ("accnote(): cnote = %d, ac_code = %d, cflag = %d, rc = %d\n",
cnote, ac_code, cflag, rc);
#endif
DB_EXIT ("accnote");
return (rc);
}