void debug(const char* fmt, ...)
{
va_list arglist;
va_start(arglist, fmt);
vdebug(1, fmt, arglist);
va_end(arglist);
}
void gd_noteAbsDur (long int n) {
vdebug ("gd_noteAbsDur", n);
int num, denum;
mls2dur (n, num, denum);
gd_noteEnum (num);
gd_noteDenom (denum);
}
void debug(int level, const char* fmt, ...)
{
va_list arglist;
va_start(arglist, fmt);
vdebug(level, fmt, arglist);
va_end(arglist);
}
/** Log a debug message using a variable number of arguments.
* This is a simple wrapper around debug(\a level, \a form, vl).
* @param level Debug level for message.
* @param form Format string of message.
*/
void debug(int level, const char *form, ...)
{
va_list vl;
va_start(vl, form);
vdebug(level, form, vl);
va_end(vl);
}
void gd_tagStart(const char* id,long int no) {
vdebug ("gd_tagStart", id);
// skip tag without slash
if (no<=0)
no = -1;
gGlobalFactory->createTag(&(id[1]),no);
}
void gd_tagAddArg(const char *s)
{
vdebug ("gd_tagAddArg", s);
// is called when a tagargument is complete
// s is the name (if the parameter had a name)
gGlobalFactory->setParameterName(s);
}
static int luaL_error (void *ms, const char *fmt, ...)
{
va_list va;
va_start(va, fmt);
vdebug(D_FATAL|D_NOTICE|D_DEBUG, fmt, va);
va_end(va);
abort();
return 0;
}
void debug (const char *message, ...)
{
if (debug_level) {
va_list args;
va_start (args, message);
vdebug (message, args);
va_end (args);
}
}
void gd_noteInit (const char *id) {
vdebug ("gd_noteInit", id);
accidentals = 0;
// kf-change!
// ndots = 0; // This is important to switch dots off!
zaehlerSet = 0;
gGlobalFactory->createEvent(id);
}
void gd_noteEnum (long int n) {
vdebug ("gd_noteEnum", n);
// numerator
zaehlerSet = 1;
ndots = 0;
gGlobalFactory->setNumerator(n);
gGlobalFactory->setDenominator(1);
nt_enum=n;
nt_denom=1;
nt_enumSet=1;
}
void debug_error (const char *message, ...)
{
if (debug_level) {
va_list args;
va_start (args, message);
vdebug (message, args);
va_end (args);
debug (": %s\n", strerror (errno));
}
}
bool Verror(const char *fmt, va_list arglist)
{
debug("ERROR: "); vdebug(1, fmt, arglist);
// Format into the slot
vsnprintf(ErrSlot[ErrCount], ErrMaxStr-1, fmt, arglist);
ErrSlot[ErrCount][ErrMaxStr-1] = '\0';
// if we have more room in the error list, then allocate a slot
if (ErrCount < ErrMax)
ErrCount++;
return true;
}
void gd_tagArgUnit(char *unit)
{
vdebug ("gd_tagArgUnit", unit);
// this gets the unit for tags...
// this is called imediatly after a value
// with a unit has been read in
// (that is after gd_tagIntArg or
// gd_tagFloatArg)
gGlobalFactory->setUnit(unit);
// Parameter needs not to be freed!
}
void gd_noteDenom (long int n) {
vdebug ("gd_noteDenom", n);
if (zaehlerSet == 0)
{
// reset to standard
gGlobalFactory->setNumerator(1);
}
gGlobalFactory->setDenominator(n);
ndots = 0; // switch off dots
nt_denom=n;
if(!nt_enumSet)
nt_enum=1;
zaehlerSet = 0;
}
void gd_tagFloatArg(T_REAL f) {
vdebug ("gd_tagFloatArg", f);
gGlobalFactory->addTagParameter(f);
}
void gd_noteOct (int n) {
vdebug ("gd_noteOct", n);
gGlobalFactory->setRegister(n);
}
void gd_tagStrArg(char *s) {
vdebug ("gd_tagStrArg", s);
gGlobalFactory->addTagParameter(s);
}
void gd_tagIntArg(long int n) {
vdebug ("gd_tagIntArg", n);
gGlobalFactory->addTagParameter((int) n);
}