You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
rosegarden/src/document/XmlStorableEvent.cpp

187 lines
5.6 KiB

/*
Rosegarden
A MIDI and audio sequencer and musical notation editor.
This program is Copyright 2000-2008
Guillaume Laurent <glaurent@telegraph-road.org>,
Chris Cannam <cannam@all-day-breakfast.com>,
Richard Bown <richard.bown@ferventsoftware.com>
The moral rights of Guillaume Laurent, Chris Cannam, and Richard
Bown to claim authorship of this work have been asserted.
Other copyrights also apply to some parts of this work. Please
see the AUTHORS file and individual file headers for details.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version. See the file
COPYING included with this distribution for more information.
*/
#include "XmlStorableEvent.h"
#include "misc/Debug.h"
#include "misc/Strings.h"
#include "base/Event.h"
#include "base/NotationTypes.h"
#include "gui/editors/notation/NotationStrings.h"
#include <tqstring.h>
namespace Rosegarden
{
XmlStorableEvent::XmlStorableEvent(const TQXmlAttributes &attributes,
timeT &absoluteTime)
{
setDuration(0);
for (int i = 0; i < attributes.length(); ++i) {
TQString attrName(attributes.qName(i)),
attrVal(attributes.value(i));
if (attrName == "package") {
RG_DEBUG << "XmlStorableEvent::XmlStorableEvent: Warning: XML still uses deprecated \"package\" attribute" << endl;
} else if (attrName == "type") {
setType(qstrtostr(attrVal));
} else if (attrName == "subordering") {
bool isNumeric = true;
int o = attrVal.toInt(&isNumeric);
if (!isNumeric) {
RG_DEBUG << "XmlStorableEvent::XmlStorableEvent: Bad subordering: " << attrVal << endl;
} else {
if (o != 0)
setSubOrdering(o);
}
} else if (attrName == "duration") {
bool isNumeric = true;
timeT d = attrVal.toInt(&isNumeric);
if (!isNumeric) {
try {
Note n(NotationStrings::getNoteForName(attrVal));
setDuration(n.getDuration());
} catch (NotationStrings::MalformedNoteName m) {
RG_DEBUG << "XmlStorableEvent::XmlStorableEvent: Bad duration: " << attrVal << " (" << m.getMessage() << ")" << endl;
}
} else {
setDuration(d);
}
} else if (attrName == "absoluteTime") {
bool isNumeric = true;
timeT t = attrVal.toInt(&isNumeric);
if (!isNumeric) {
RG_DEBUG << "XmlStorableEvent::XmlStorableEvent: Bad absolute time: " << attrVal << endl;
} else {
absoluteTime = t;
}
} else if (attrName == "timeOffset") {
bool isNumeric = true;
timeT t = attrVal.toInt(&isNumeric);
if (!isNumeric) {
RG_DEBUG << "XmlStorableEvent::XmlStorableEvent: Bad time offset: " << attrVal << endl;
} else {
absoluteTime += t;
}
} else {
// set generic property
//
TQString val(attrVal);
// Check if boolean val
TQString valLowerCase(val.lower());
bool isNumeric;
int numVal;
if (valLowerCase == "true" || valLowerCase == "false") {
set
<Bool>(qstrtostr(attrName), valLowerCase == "true");
} else {
// Not a bool, check if integer val
numVal = val.toInt(&isNumeric);
if (isNumeric) {
set
<Int>(qstrtostr(attrName), numVal);
} else {
// not an int either, default to string
set
<String>(qstrtostr(attrName), qstrtostr(attrVal));
}
}
}
}
setAbsoluteTime(absoluteTime);
}
XmlStorableEvent::XmlStorableEvent(Event &e) :
Event(e)
{}
void
XmlStorableEvent::setPropertyFromAttributes(const TQXmlAttributes &attributes,
bool persistent)
{
bool have = false;
TQString name = attributes.value("name");
if (name == "") {
RG_DEBUG << "XmlStorableEvent::setProperty: no property name found, ignoring" << endl;
return ;
}
for (int i = 0; i < attributes.length(); ++i) {
TQString attrName(attributes.qName(i)),
attrVal(attributes.value(i));
if (attrName == "name") {
continue;
} else if (have) {
RG_DEBUG << "XmlStorableEvent::setProperty: multiple values found, ignoring all but the first" << endl;
continue;
} else if (attrName == "bool") {
set
<Bool>(qstrtostr(name), attrVal.lower() == "true",
persistent);
have = true;
} else if (attrName == "int") {
set
<Int>(qstrtostr(name), attrVal.toInt(), persistent);
have = true;
} else if (attrName == "string") {
set
<String>(qstrtostr(name), qstrtostr(attrVal), persistent);
have = true;
} else {
RG_DEBUG << "XmlStorableEvent::setProperty: unknown attribute name \"" << name << "\", ignoring" << endl;
}
}
if (!have)
RG_DEBUG << "XmlStorableEvent::setProperty: Warning: no property value found for property " << name << endl;
}
}