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.
1543 lines
58 KiB
1543 lines
58 KiB
/* This file is part of the KDE project
|
|
Copyright (C) 2001 Thomas zander <zander@kde.org>
|
|
Copyright (C) 2004 Dag Andersen <danders@get2net.dk>
|
|
|
|
This library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
This library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this library; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
* Boston, MA 02110-1301, USA.
|
|
*/
|
|
|
|
#include "kpttask.h"
|
|
#include "kptproject.h"
|
|
#include "kpttaskdialog.h"
|
|
#include "kptduration.h"
|
|
#include "kptrelation.h"
|
|
#include "kptdatetime.h"
|
|
#include "kptcalendar.h"
|
|
#include "kpteffortcostmap.h"
|
|
#include "kptschedule.h"
|
|
|
|
#include <tqdom.h>
|
|
#include <tqbrush.h>
|
|
#include <kdebug.h>
|
|
|
|
namespace KPlato
|
|
{
|
|
|
|
Task::Task(Node *tqparent) : Node(tqparent), m_resource() {
|
|
//kdDebug()<<k_funcinfo<<"("<<this<<")"<<endl;
|
|
m_resource.setAutoDelete(true);
|
|
Duration d(1, 0, 0);
|
|
m_effort = new Effort(d);
|
|
m_effort->setOptimisticRatio(-10);
|
|
m_effort->setPessimisticRatio(20);
|
|
m_requests = 0;
|
|
|
|
if (m_parent)
|
|
m_leader = m_parent->leader();
|
|
|
|
m_schedules.setAutoDelete(true);
|
|
m_parentProxyRelations.setAutoDelete(true);
|
|
m_childProxyRelations.setAutoDelete(true);
|
|
}
|
|
|
|
Task::Task(Task &task, Node *tqparent)
|
|
: Node(task, tqparent),
|
|
m_resource() {
|
|
//kdDebug()<<k_funcinfo<<"("<<this<<")"<<endl;
|
|
m_resource.setAutoDelete(true);
|
|
|
|
m_parentProxyRelations.setAutoDelete(true);
|
|
m_childProxyRelations.setAutoDelete(true);
|
|
m_requests = 0;
|
|
|
|
m_effort = task.effort() ? new Effort(*(task.effort()))
|
|
: new Effort(); // Avoid crash, (shouldn't be zero)
|
|
}
|
|
|
|
|
|
Task::~Task() {
|
|
delete m_effort;
|
|
}
|
|
|
|
int Task::type() const {
|
|
if ( numChildren() > 0) {
|
|
return Node::Type_Summarytask;
|
|
}
|
|
else if ( 0 == effort()->expected().seconds() ) {
|
|
return Node::Type_Milestone;
|
|
}
|
|
else {
|
|
return Node::Type_Task;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
Duration *Task::getExpectedDuration() {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
// Duration should already be calculated
|
|
return m_currentSchedule ? new Duration(m_currentSchedule->duration) : new Duration();
|
|
}
|
|
|
|
Duration *Task::getRandomDuration() {
|
|
return 0L;
|
|
}
|
|
|
|
ResourceGroupRequest *Task::resourceGroupRequest(ResourceGroup *group) const {
|
|
if (m_requests)
|
|
return m_requests->tqfind(group);
|
|
return 0;
|
|
}
|
|
|
|
void Task::clearResourceRequests() {
|
|
if (m_requests)
|
|
m_requests->clear();
|
|
}
|
|
|
|
void Task::addRequest(ResourceGroup *group, int numResources) {
|
|
addRequest(new ResourceGroupRequest(group, numResources));
|
|
}
|
|
|
|
void Task::addRequest(ResourceGroupRequest *request) {
|
|
if (!m_requests)
|
|
m_requests = new ResourceRequestCollection(*this);
|
|
m_requests->addRequest(request);
|
|
}
|
|
|
|
void Task::takeRequest(ResourceGroupRequest *request) {
|
|
if (m_requests) {
|
|
m_requests->takeRequest(request);
|
|
if (m_requests->isEmpty()) {
|
|
delete m_requests;
|
|
m_requests = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
int Task::units() const {
|
|
if (!m_requests)
|
|
return 0;
|
|
return m_requests->units();
|
|
}
|
|
|
|
int Task::workUnits() const {
|
|
if (!m_requests)
|
|
return 0;
|
|
return m_requests->workUnits();
|
|
}
|
|
|
|
void Task::makeAppointments() {
|
|
if (m_currentSchedule == 0)
|
|
return;
|
|
if (type() == Node::Type_Task) {
|
|
if (m_requests) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<": "<<m_currentSchedule->startTime<<", "<<m_currentSchedule->endTime<<"; "<<m_currentSchedule->duration.toString()<<endl;
|
|
m_requests->makeAppointments(m_currentSchedule);
|
|
//kdDebug()<<k_funcinfo<<m_name<<": "<<m_currentSchedule->startTime<<", "<<m_currentSchedule->endTime<<"; "<<m_currentSchedule->duration.toString()<<endl;
|
|
}
|
|
} else if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> nit(m_nodes);
|
|
for ( ; nit.current(); ++nit ) {
|
|
nit.current()->makeAppointments();
|
|
}
|
|
} else if (type() == Node::Type_Milestone) {
|
|
//kdDebug()<<k_funcinfo<<"Milestone not implemented"<<endl;
|
|
// Well, shouldn't have resources anyway...
|
|
}
|
|
}
|
|
|
|
void Task::calcResourceOverbooked() {
|
|
if (m_currentSchedule)
|
|
m_currentSchedule->calcResourceOverbooked();
|
|
}
|
|
|
|
// A new constraint means start/end times and duration must be recalculated
|
|
void Task::setConstraint(Node::ConstraintType type) {
|
|
m_constraint = type;
|
|
}
|
|
|
|
|
|
bool Task::load(TQDomElement &element, Project &project) {
|
|
// Load attributes (TODO: Handle different types of tasks, milestone, summary...)
|
|
TQString s;
|
|
bool ok = false;
|
|
m_id = element.attribute("id");
|
|
|
|
m_name = element.attribute("name");
|
|
m_leader = element.attribute("leader");
|
|
m_description = element.attribute("description");
|
|
//kdDebug()<<k_funcinfo<<m_name<<": id="<<m_id<<endl;
|
|
|
|
// Allow for both numeric and text
|
|
TQString constraint = element.attribute("scheduling","0");
|
|
m_constraint = (Node::ConstraintType)constraint.toInt(&ok);
|
|
if (!ok)
|
|
Node::setConstraint(constraint); // hmmm, why do I need Node::?
|
|
|
|
s = element.attribute("constraint-starttime");
|
|
if (s != "")
|
|
m_constraintStartTime = DateTime::fromString(s);
|
|
s = element.attribute("constraint-endtime");
|
|
if ( s != "")
|
|
m_constraintEndTime = DateTime::fromString(s);
|
|
|
|
m_startupCost = element.attribute("startup-cost", "0.0").toDouble();
|
|
m_shutdownCost = element.attribute("shutdown-cost", "0.0").toDouble();
|
|
|
|
m_wbs = element.attribute("wbs", "");
|
|
|
|
// Load the project tqchildren
|
|
TQDomNodeList list = element.childNodes();
|
|
for (unsigned int i=0; i<list.count(); ++i) {
|
|
if (list.item(i).isElement()) {
|
|
TQDomElement e = list.item(i).toElement();
|
|
|
|
if (e.tagName() == "project") {
|
|
// Load the subproject
|
|
Project *child = new Project(this);
|
|
if (child->load(e)) {
|
|
if (!project.addSubTask(child, this)) {
|
|
delete child; // TODO: Complain about this
|
|
}
|
|
} else {
|
|
// TODO: Complain about this
|
|
delete child;
|
|
}
|
|
} else if (e.tagName() == "task") {
|
|
// Load the task
|
|
Task *child = new Task(this);
|
|
if (child->load(e, project)) {
|
|
if (!project.addSubTask(child, this)) {
|
|
delete child; // TODO: Complain about this
|
|
}
|
|
} else {
|
|
// TODO: Complain about this
|
|
delete child;
|
|
}
|
|
} else if (e.tagName() == "resource") {
|
|
// TODO: Load the resource (projects don't have resources yet)
|
|
} else if (e.tagName() == "effort") {
|
|
// Load the effort
|
|
m_effort->load(e);
|
|
} else if (e.tagName() == "resourcegroup-request") {
|
|
// Load the resource request
|
|
ResourceGroupRequest *r = new ResourceGroupRequest();
|
|
if (r->load(e, project)) {
|
|
addRequest(r);
|
|
} else {
|
|
kdError()<<k_funcinfo<<"Failed to load resource request"<<endl;
|
|
delete r;
|
|
}
|
|
} else if (e.tagName() == "progress") {
|
|
m_progress.started = (bool)e.attribute("started", "0").toInt();
|
|
m_progress.finished = (bool)e.attribute("finished", "0").toInt();
|
|
|
|
s = e.attribute("startTime");
|
|
if (s != "")
|
|
m_progress.startTime = DateTime::fromString(s);
|
|
s = e.attribute("finishTime");
|
|
if (s != "")
|
|
m_progress.finishTime = DateTime::fromString(s);
|
|
m_progress.percentFinished = e.attribute("percent-finished", "0").toInt();
|
|
m_progress.remainingEffort = Duration::fromString(e.attribute("remaining-effort"));
|
|
m_progress.totalPerformed = Duration::fromString(e.attribute("performed-effort"));
|
|
} else if (e.tagName() == "schedules") {
|
|
TQDomNodeList lst = e.childNodes();
|
|
for (unsigned int i=0; i<lst.count(); ++i) {
|
|
if (lst.item(i).isElement()) {
|
|
TQDomElement el = lst.item(i).toElement();
|
|
if (el.tagName() == "schedule") {
|
|
NodeSchedule *sch = new NodeSchedule();
|
|
if (sch->loadXML(el)) {
|
|
sch->setNode(this);
|
|
addSchedule(sch);
|
|
} else {
|
|
kdError()<<k_funcinfo<<"Failed to load schedule"<<endl;
|
|
delete sch;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
//kdDebug()<<k_funcinfo<<m_name<<" loaded"<<endl;
|
|
return true;
|
|
}
|
|
|
|
|
|
void Task::save(TQDomElement &element) const {
|
|
TQDomElement me = element.ownerDocument().createElement("task");
|
|
element.appendChild(me);
|
|
|
|
//TODO: Handle different types of tasks, milestone, summary...
|
|
me.setAttribute("id", m_id);
|
|
me.setAttribute("name", m_name);
|
|
me.setAttribute("leader", m_leader);
|
|
me.setAttribute("description", m_description);
|
|
|
|
me.setAttribute("scheduling",constraintToString());
|
|
me.setAttribute("constraint-starttime",m_constraintStartTime.toString(Qt::ISODate));
|
|
me.setAttribute("constraint-endtime",m_constraintEndTime.toString(Qt::ISODate));
|
|
|
|
me.setAttribute("startup-cost", m_startupCost);
|
|
me.setAttribute("shutdown-cost", m_shutdownCost);
|
|
|
|
me.setAttribute("wbs", m_wbs);
|
|
|
|
m_effort->save(me);
|
|
|
|
TQDomElement el = me.ownerDocument().createElement("progress");
|
|
me.appendChild(el);
|
|
el.setAttribute("started", m_progress.started);
|
|
el.setAttribute("finished", m_progress.finished);
|
|
el.setAttribute("startTime", m_progress.startTime.toString(Qt::ISODate));
|
|
el.setAttribute("finishTime", m_progress.finishTime.toString(Qt::ISODate));
|
|
el.setAttribute("percent-finished", m_progress.percentFinished);
|
|
el.setAttribute("remaining-effort", m_progress.remainingEffort.toString());
|
|
el.setAttribute("performed-effort", m_progress.totalPerformed.toString());
|
|
|
|
if (!m_schedules.isEmpty()) {
|
|
TQDomElement schs = me.ownerDocument().createElement("schedules");
|
|
me.appendChild(schs);
|
|
TQIntDictIterator<Schedule> it = m_schedules;
|
|
for (; it.current(); ++it) {
|
|
if (!it.current()->isDeleted()) {
|
|
it.current()->saveXML(schs);
|
|
}
|
|
}
|
|
}
|
|
if (m_requests) {
|
|
m_requests->save(me);
|
|
}
|
|
for (int i=0; i<numChildren(); i++) {
|
|
getChildNode(i)->save(me);
|
|
}
|
|
}
|
|
|
|
void Task::saveAppointments(TQDomElement &element, long id) const {
|
|
//kdDebug()<<k_funcinfo<<m_name<<" id="<<id<<endl;
|
|
Schedule *sch = findSchedule(id);
|
|
if (sch) {
|
|
sch->saveAppointments(element);
|
|
}
|
|
TQPtrListIterator<Node> it(m_nodes);
|
|
for (; it.current(); ++it ) {
|
|
it.current()->saveAppointments(element, id);
|
|
}
|
|
}
|
|
|
|
EffortCostMap Task::plannedEffortCostPrDay(const TQDate &start, const TQDate &end) const {
|
|
//kdDebug()<<k_funcinfo<<m_name<<endl;
|
|
if (m_currentSchedule) {
|
|
return m_currentSchedule->plannedEffortCostPrDay(start, end);
|
|
}
|
|
return EffortCostMap();
|
|
}
|
|
|
|
// Returns the total planned effort for this task (or subtasks)
|
|
Duration Task::plannedEffort() {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
Duration eff;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
eff += it.current()->plannedEffort();
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
eff = m_currentSchedule->plannedEffort();
|
|
}
|
|
return eff;
|
|
}
|
|
|
|
// Returns the total planned effort for this task (or subtasks) on date
|
|
Duration Task::plannedEffort(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
Duration eff;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
eff += it.current()->plannedEffort(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
eff = m_currentSchedule->plannedEffort(date);
|
|
}
|
|
return eff;
|
|
}
|
|
|
|
// Returns the total planned effort for this task (or subtasks) upto and including date
|
|
Duration Task::plannedEffortTo(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
Duration eff;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
eff += it.current()->plannedEffortTo(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
eff = m_currentSchedule->plannedEffortTo(date);
|
|
}
|
|
return eff;
|
|
}
|
|
|
|
// Returns the total planned effort for this task (or subtasks)
|
|
Duration Task::actualEffort() {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
Duration eff;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
eff += it.current()->actualEffort();
|
|
}
|
|
} else {
|
|
eff = m_progress.totalPerformed;
|
|
}
|
|
/* If we want to register pr resource...
|
|
} else if (m_currentSchedule) {
|
|
eff = m_currentSchedule->actualEffort();
|
|
}*/
|
|
return eff;
|
|
}
|
|
|
|
// Returns the total planned effort for this task (or subtasks) on date
|
|
Duration Task::actualEffort(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
Duration eff;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
eff += it.current()->actualEffort(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
eff = m_currentSchedule->actualEffort(date);
|
|
}
|
|
return eff;
|
|
}
|
|
|
|
// Returns the total planned effort for this task (or subtasks) on date
|
|
Duration Task::actualEffortTo(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
Duration eff;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
eff += it.current()->actualEffortTo(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
eff = m_currentSchedule->actualEffortTo(date);
|
|
}
|
|
return eff;
|
|
}
|
|
|
|
double Task::plannedCost() {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
double c = 0;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
c += it.current()->plannedCost();
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
c = m_currentSchedule->plannedCost();
|
|
}
|
|
return c;
|
|
}
|
|
|
|
double Task::plannedCost(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
double c = 0;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
c += it.current()->plannedCost(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
c = m_currentSchedule->plannedCost(date);
|
|
}
|
|
return c;
|
|
}
|
|
|
|
double Task::plannedCostTo(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
double c = 0;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
c += it.current()->plannedCostTo(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
c = m_currentSchedule->plannedCostTo(date);
|
|
}
|
|
return c;
|
|
}
|
|
|
|
double Task::actualCost() {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
double c = 0;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
c += it.current()->actualCost();
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
c = m_currentSchedule->actualCost();
|
|
}
|
|
return c;
|
|
}
|
|
|
|
double Task::actualCost(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
double c = 0;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
c += it.current()->actualCost(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
c = m_currentSchedule->actualCost(date);
|
|
}
|
|
return c;
|
|
}
|
|
|
|
double Task::actualCostTo(const TQDate &date) {
|
|
//kdDebug()<<k_funcinfo<<endl;
|
|
double c = 0;
|
|
if (type() == Node::Type_Summarytask) {
|
|
TQPtrListIterator<Node> it(childNodeIterator());
|
|
for (; it.current(); ++it) {
|
|
c += it.current()->actualCostTo(date);
|
|
}
|
|
} else if (m_currentSchedule) {
|
|
c = m_currentSchedule->actualCostTo(date);
|
|
}
|
|
return c;
|
|
}
|
|
|
|
//FIXME Handle summarytasks
|
|
double Task::effortPerformanceIndex(const TQDate &date, bool *error) {
|
|
double res = 0.0;
|
|
Duration ae = actualEffortTo(date);
|
|
|
|
bool e = (ae == Duration::zeroDuration || m_progress.percentFinished == 0);
|
|
if (error) {
|
|
*error = e;
|
|
}
|
|
if (!e) {
|
|
res = (plannedEffortTo(date).toDouble() * ((double)m_progress.percentFinished/100.0) / ae.toDouble());
|
|
}
|
|
return res;
|
|
}
|
|
|
|
//FIXME Handle summarytasks
|
|
double Task::costPerformanceIndex(const TQDate &date, bool *error) {
|
|
double res = 0.0;
|
|
Duration ac = TQ_INT64(actualCostTo(date));
|
|
|
|
bool e = (ac == Duration::zeroDuration || m_progress.percentFinished == 0);
|
|
if (error) {
|
|
*error = e;
|
|
}
|
|
if (!e) {
|
|
res = (plannedCostTo(date) * m_progress.percentFinished)/(100 * actualCostTo(date));
|
|
}
|
|
return res;
|
|
}
|
|
|
|
void Task::initiateCalculation(Schedule &sch) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<" schedule: "<<(sch?sch->name():"None")<<" id="<<(sch?sch->id():-1)<<endl;
|
|
m_visitedForward = false;
|
|
m_visitedBackward = false;
|
|
m_currentSchedule = createSchedule(&sch);
|
|
m_currentSchedule->initiateCalculation();
|
|
clearProxyRelations();
|
|
Node::initiateCalculation(sch);
|
|
}
|
|
|
|
|
|
void Task::initiateCalculationLists(TQPtrList<Node> &startnodes, TQPtrList<Node> &endnodes, TQPtrList<Node> &summarytasks/*, TQPtrList<Node> &milestones*/) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<endl;
|
|
if (type() == Node::Type_Summarytask) {
|
|
summarytasks.append(this);
|
|
// propagate my relations to my tqchildren and dependent nodes
|
|
|
|
TQPtrListIterator<Node> nodes = m_nodes;
|
|
for (; nodes.current(); ++nodes) {
|
|
if (!dependParentNodes().isEmpty())
|
|
nodes.current()->addParentProxyRelations(dependParentNodes());
|
|
if (!dependChildNodes().isEmpty())
|
|
nodes.current()->addChildProxyRelations(dependChildNodes());
|
|
nodes.current()->initiateCalculationLists(startnodes, endnodes, summarytasks);
|
|
}
|
|
} else {
|
|
if (isEndNode()) {
|
|
endnodes.append(this);
|
|
//kdDebug()<<k_funcinfo<<"endnodes append: "<<m_name<<endl;
|
|
}
|
|
if (isStartNode()) {
|
|
startnodes.append(this);
|
|
//kdDebug()<<k_funcinfo<<"startnodes append: "<<m_name<<endl;
|
|
}
|
|
}
|
|
}
|
|
|
|
DateTime Task::calculatePredeccessors(const TQPtrList<Relation> &list, int use) {
|
|
DateTime time;
|
|
TQPtrListIterator<Relation> it = list;
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->tqparent()->type() == Type_Summarytask) {
|
|
//kdDebug()<<k_funcinfo<<"Skip summarytask: "<<it.current()->tqparent()->name()<<endl;
|
|
continue; // skip summarytasks
|
|
}
|
|
DateTime t = it.current()->tqparent()->calculateForward(use); // early finish
|
|
switch (it.current()->type()) {
|
|
case Relation::StartStart:
|
|
// I can't start earlier than my predesseccor
|
|
t = it.current()->tqparent()->getEarliestStart() + it.current()->lag();
|
|
break;
|
|
case Relation::FinishFinish:
|
|
// I can't finish earlier than my predeccessor, so
|
|
// I can't start earlier than it's (earlyfinish+lag)- my duration
|
|
t += it.current()->lag();
|
|
t -= duration(t, use, true);
|
|
break;
|
|
default:
|
|
t += it.current()->lag();
|
|
break;
|
|
}
|
|
if (!time.isValid() || t > time)
|
|
time = t;
|
|
}
|
|
//kdDebug()<<time.toString()<<" "<<m_name<<" calculatePredeccessors() ("<<list.count()<<")"<<endl;
|
|
return time;
|
|
}
|
|
DateTime Task::calculateForward(int use) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<<<endl;
|
|
if (m_currentSchedule == 0) {
|
|
return DateTime();
|
|
}
|
|
Schedule *cs = m_currentSchedule;
|
|
if (m_visitedForward) {
|
|
//kdDebug()<<earliestStart.toString()<<" + "<<m_durationBackward.toString()<<" "<<m_name<<" calculateForward() (visited)"<<endl;
|
|
return cs->earliestStart + m_durationForward;
|
|
}
|
|
// First, calculate all predecessors
|
|
if (!dependParentNodes().isEmpty()) {
|
|
DateTime time = calculatePredeccessors(dependParentNodes(), use);
|
|
if (time.isValid() && time > cs->earliestStart) {
|
|
cs->earliestStart = time;
|
|
}
|
|
}
|
|
if (!m_parentProxyRelations.isEmpty()) {
|
|
DateTime time = calculatePredeccessors(m_parentProxyRelations, use);
|
|
if (time.isValid() && time > cs->earliestStart) {
|
|
cs->earliestStart = time;
|
|
}
|
|
}
|
|
if (type() == Node::Type_Task) {
|
|
m_durationForward = m_effort->effort(use);
|
|
switch (constraint()) {
|
|
case Node::ASAP:
|
|
case Node::ALAP:
|
|
cs->earliestStart = workStartAfter(cs->earliestStart);
|
|
m_durationForward = duration(cs->earliestStart, use, false);
|
|
//kdDebug()<<k_funcinfo<<m_name<<": "<<cs->earliestStart<<"+"<<m_durationForward.toString()<<"="<<(cs->earliestStart+m_durationForward)<<endl;
|
|
break;
|
|
case Node::MustFinishOn:
|
|
m_durationForward = duration(m_constraintEndTime, use, true);
|
|
cs->earliestStart = m_constraintEndTime - m_durationForward;
|
|
break;
|
|
case Node::FinishNotLater:
|
|
m_durationForward = duration(cs->earliestStart, use, false);
|
|
if (cs->earliestStart + m_durationForward > m_constraintEndTime) {
|
|
m_durationForward = duration(m_constraintEndTime, use, true);
|
|
cs->earliestStart = m_constraintEndTime - m_durationForward;
|
|
}
|
|
break;
|
|
case Node::MustStartOn:
|
|
cs->earliestStart = m_constraintStartTime;
|
|
m_durationForward = duration(cs->earliestStart, use, false);
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
if (cs->earliestStart < m_constraintStartTime) {
|
|
cs->earliestStart = m_constraintStartTime;
|
|
}
|
|
m_durationForward = duration(cs->earliestStart, use, false);
|
|
break;
|
|
case Node::FixedInterval: {
|
|
cs->earliestStart = m_constraintStartTime;
|
|
m_durationForward = m_constraintEndTime - m_constraintStartTime;
|
|
break;
|
|
}
|
|
}
|
|
} else if (type() == Node::Type_Milestone) {
|
|
m_durationForward = Duration::zeroDuration;
|
|
switch (constraint()) {
|
|
case Node::MustFinishOn:
|
|
cs->earliestStart = m_constraintEndTime;
|
|
break;
|
|
case Node::FinishNotLater:
|
|
if (cs->earliestStart > m_constraintEndTime) {
|
|
cs->earliestStart = m_constraintEndTime;
|
|
}
|
|
break;
|
|
case Node::MustStartOn:
|
|
cs->earliestStart = m_constraintStartTime;
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
if (cs->earliestStart < m_constraintStartTime) {
|
|
cs->earliestStart = m_constraintStartTime;
|
|
}
|
|
break;
|
|
case Node::FixedInterval:
|
|
cs->earliestStart = m_constraintStartTime;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
//kdDebug()<<k_funcinfo<<m_name<<" "<<earliestStart.toString()<<endl
|
|
} else if (type() == Node::Type_Summarytask) {
|
|
kdWarning()<<k_funcinfo<<"Summarytasks should not be calculated here: "<<m_name<<endl;
|
|
} else { // ???
|
|
m_durationForward = Duration::zeroDuration;
|
|
}
|
|
|
|
//kdDebug()<<"Earlyfinish: "<<cs->earliestStart<<"+"<<m_durationForward.toString()<<"="<<(cs->earliestStart+m_durationForward)<<" "<<m_name<<" calculateForward()"<<endl;
|
|
m_visitedForward = true;
|
|
return cs->earliestStart + m_durationForward;
|
|
}
|
|
|
|
DateTime Task::calculateSuccessors(const TQPtrList<Relation> &list, int use) {
|
|
DateTime time;
|
|
TQPtrListIterator<Relation> it = list;
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->child()->type() == Type_Summarytask) {
|
|
//kdDebug()<<k_funcinfo<<"Skip summarytask: "<<it.current()->tqparent()->name()<<endl;
|
|
continue; // skip summarytasks
|
|
}
|
|
DateTime t = it.current()->child()->calculateBackward(use);
|
|
switch (it.current()->type()) {
|
|
case Relation::StartStart:
|
|
// I must start before my successor, so
|
|
// I can't finish later than it's (starttime-lag) + my duration
|
|
t -= it.current()->lag();
|
|
t += duration(t, use, false);
|
|
break;
|
|
case Relation::FinishFinish:
|
|
// My successor cannot finish before me, so
|
|
// I can't finish later than it's latest finish - lag
|
|
t = it.current()->child()->getLatestFinish() - it.current()->lag();
|
|
break;
|
|
default:
|
|
t -= it.current()->lag();
|
|
break;
|
|
}
|
|
if (!time.isValid() || t < time)
|
|
time = t;
|
|
}
|
|
//kdDebug()<<time.toString()<<" "<<m_name<<" calculateSuccessors() ("<<list.count()<<")"<<endl;
|
|
return time;
|
|
}
|
|
DateTime Task::calculateBackward(int use) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<endl;
|
|
if (m_currentSchedule == 0) {
|
|
return DateTime();
|
|
}
|
|
Schedule *cs = m_currentSchedule;
|
|
if (m_visitedBackward) {
|
|
//kdDebug()<<latestFinish.toString()<<" - "<<m_durationBackward.toString()<<" "<<m_name<<" calculateBackward() (visited)"<<endl;
|
|
return cs->latestFinish - m_durationBackward;
|
|
}
|
|
// First, calculate all successors
|
|
if (!dependChildNodes().isEmpty()) {
|
|
DateTime time = calculateSuccessors(dependChildNodes(), use);
|
|
if (time.isValid() && time < cs->latestFinish) {
|
|
cs->latestFinish = time;
|
|
}
|
|
}
|
|
if (!m_childProxyRelations.isEmpty()) {
|
|
DateTime time = calculateSuccessors(m_childProxyRelations, use);
|
|
if (time.isValid() && time < cs->latestFinish) {
|
|
cs->latestFinish = time;
|
|
}
|
|
}
|
|
//kdDebug()<<k_funcinfo<<m_name<<": latestFinish="<<cs->latestFinish<<endl;
|
|
if (type() == Node::Type_Task) {
|
|
m_durationBackward = m_effort->effort(use);
|
|
switch (constraint()) {
|
|
case Node::ASAP:
|
|
case Node::ALAP:
|
|
cs->latestFinish = workFinishBefore(cs->latestFinish);
|
|
m_durationBackward = duration(cs->latestFinish, use, true);
|
|
break;
|
|
case Node::MustStartOn:
|
|
m_durationBackward = duration(m_constraintStartTime, use, false);
|
|
cs->latestFinish = m_constraintStartTime + m_durationBackward;
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
m_durationBackward = duration(cs->latestFinish, use, true);
|
|
if (cs->latestFinish - m_durationBackward < m_constraintStartTime) {
|
|
m_durationBackward = duration(m_constraintStartTime, use, false);
|
|
cs->latestFinish = m_constraintStartTime + m_durationBackward;
|
|
}
|
|
break;
|
|
case Node::MustFinishOn:
|
|
cs->latestFinish = m_constraintEndTime;
|
|
m_durationBackward = duration(cs->latestFinish, use, true);
|
|
break;
|
|
case Node::FinishNotLater:
|
|
if (cs->latestFinish > m_constraintEndTime) {
|
|
cs->latestFinish = m_constraintEndTime;
|
|
}
|
|
m_durationBackward = duration(cs->latestFinish, use, true);
|
|
break;
|
|
case Node::FixedInterval: {
|
|
cs->latestFinish = m_constraintEndTime;
|
|
m_durationBackward = m_constraintEndTime - m_constraintStartTime;
|
|
break;
|
|
}
|
|
}
|
|
} else if (type() == Node::Type_Milestone) {
|
|
m_durationBackward = Duration::zeroDuration;
|
|
switch (constraint()) {
|
|
case Node::MustFinishOn:
|
|
cs->latestFinish = m_constraintEndTime;
|
|
break;
|
|
case Node::FinishNotLater:
|
|
if (cs->latestFinish > m_constraintEndTime) {
|
|
cs->latestFinish = m_constraintEndTime;
|
|
}
|
|
break;
|
|
case Node::MustStartOn:
|
|
cs->latestFinish = m_constraintStartTime;
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
if (cs->latestFinish < m_constraintStartTime) {
|
|
cs->latestFinish = m_constraintStartTime;
|
|
}
|
|
break;
|
|
case Node::FixedInterval:
|
|
cs->latestFinish = m_constraintEndTime;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
//kdDebug()<<k_funcinfo<<m_name<<" "<<cs->latestFinish<<endl;
|
|
} else if (type() == Node::Type_Summarytask) {
|
|
kdWarning()<<k_funcinfo<<"Summarytasks should not be calculated here: "<<m_name<<endl;
|
|
} else { // ???
|
|
m_durationBackward = Duration::zeroDuration;
|
|
}
|
|
//kdDebug()<<"Latestart: "<<cs->latestFinish<<"-"<<m_durationBackward.toString()<<"="<<(cs->latestFinish-m_durationBackward).toString()<<" "<<m_name<<" calculateBackward()"<<endl;
|
|
m_visitedBackward = true;
|
|
return cs->latestFinish - m_durationBackward;
|
|
}
|
|
|
|
DateTime Task::schedulePredeccessors(const TQPtrList<Relation> &list, int use) {
|
|
DateTime time;
|
|
TQPtrListIterator<Relation> it = list;
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->tqparent()->type() == Type_Summarytask) {
|
|
//kdDebug()<<k_funcinfo<<"Skip summarytask: "<<it.current()->tqparent()->name()<<endl;
|
|
continue; // skip summarytasks
|
|
}
|
|
// schedule the predecessors
|
|
DateTime earliest = it.current()->tqparent()->getEarliestStart();
|
|
DateTime t = it.current()->tqparent()->scheduleForward(earliest, use);
|
|
switch (it.current()->type()) {
|
|
case Relation::StartStart:
|
|
// I can't start before my predesseccor
|
|
t = it.current()->tqparent()->startTime() + it.current()->lag();
|
|
break;
|
|
case Relation::FinishFinish:
|
|
// I can't end before my predecessor, so
|
|
// I can't start before it's endtime - my duration
|
|
t -= duration(t + it.current()->lag(), use, true);
|
|
break;
|
|
default:
|
|
t += it.current()->lag();
|
|
break;
|
|
}
|
|
if (!time.isValid() || t > time)
|
|
time = t;
|
|
}
|
|
//kdDebug()<<time.toString()<<" "<<m_name<<" schedulePredeccessors()"<<endl;
|
|
return time;
|
|
}
|
|
|
|
DateTime Task::scheduleForward(const DateTime &earliest, int use) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<" earliest="<<earliest<<endl;
|
|
if (m_currentSchedule == 0) {
|
|
return DateTime();
|
|
}
|
|
Schedule *cs = m_currentSchedule;
|
|
if (m_visitedForward) {
|
|
return cs->endTime;
|
|
}
|
|
cs->notScheduled = false;
|
|
cs->startTime = earliest > cs->earliestStart ? earliest : cs->earliestStart;
|
|
// First, calculate all my own predecessors
|
|
DateTime time = schedulePredeccessors(dependParentNodes(), use);
|
|
if (time.isValid() && time > cs->startTime) {
|
|
cs->startTime = time;
|
|
//kdDebug()<<k_funcinfo<<m_name<<" new startime="<<cs->startTime<<endl;
|
|
}
|
|
// Then my tqparents
|
|
time = schedulePredeccessors(m_parentProxyRelations, use);
|
|
if (time.isValid() && time > cs->startTime) {
|
|
cs->startTime = time;
|
|
//kdDebug()<<k_funcinfo<<m_name<<" new startime="<<cs->startTime<<endl;
|
|
}
|
|
//kdDebug()<<k_funcinfo<<m_name<<" startTime="<<cs->startTime<<endl;
|
|
if(type() == Node::Type_Task) {
|
|
cs->duration = m_effort->effort(use);
|
|
switch (m_constraint) {
|
|
case Node::ASAP:
|
|
// cs->startTime calculated above
|
|
//kdDebug()<<k_funcinfo<<m_name<<" startTime="<<cs->startTime<<endl;
|
|
cs->startTime = workStartAfter(cs->startTime);
|
|
cs->duration = duration(cs->startTime, use, false);
|
|
cs->endTime = cs->startTime + cs->duration;
|
|
//kdDebug()<<k_funcinfo<<m_name<<" startTime="<<cs->startTime<<endl;
|
|
break;
|
|
case Node::ALAP:
|
|
// cd->startTime calculated above
|
|
cs->duration = duration(cs->latestFinish, use, true);
|
|
cs->endTime = cs->latestFinish;
|
|
cs->startTime = cs->endTime - cs->duration;
|
|
//kdDebug()<<k_funcinfo<<m_name<<" endTime="<<cs->endTime<<" latest="<<cs->latestFinish<<endl;
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
// cs->startTime calculated above
|
|
//kdDebug()<<"StartNotEarlier="<<m_constraintStartTime.toString()<<" "<<cd->startTime.toString()<<endl;
|
|
if (cs->startTime < m_constraintStartTime) {
|
|
cs->startTime = m_constraintStartTime;
|
|
}
|
|
cs->startTime = workStartAfter(cs->startTime);
|
|
cs->duration = duration(cs->startTime, use, false);
|
|
cs->endTime = cs->startTime + cs->duration;
|
|
if (cs->endTime > cs->latestFinish) {
|
|
cs->schedulingError = true;
|
|
}
|
|
break;
|
|
case Node::FinishNotLater:
|
|
// cs->startTime calculated above
|
|
//kdDebug()<<"FinishNotLater="<<m_constraintEndTime.toString()<<" "<<cs->startTime.toString()<<endl;
|
|
cs->duration = duration(cs->startTime, use, false);
|
|
cs->endTime = cs->startTime + cs->duration;
|
|
if (cs->endTime > m_constraintEndTime) {
|
|
cs->schedulingError = true;
|
|
cs->endTime = m_constraintEndTime;
|
|
cs->duration = duration(cs->endTime, use, true);
|
|
cs->startTime = cs->endTime - cs->duration;
|
|
}
|
|
break;
|
|
case Node::MustStartOn:
|
|
// cs->startTime calculated above
|
|
//kdDebug()<<"MustStartOn="<<m_constraintStartTime.toString()<<" "<<cs->startTime.toString()<<endl;
|
|
if (m_constraintStartTime < cs->startTime ||
|
|
m_constraintStartTime > cs->latestFinish - m_durationBackward) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = m_constraintStartTime;
|
|
cs->duration = duration(cs->startTime, use, false);
|
|
cs->endTime = cs->startTime + cs->duration;
|
|
break;
|
|
case Node::MustFinishOn:
|
|
// cs->startTime calculated above
|
|
//kdDebug()<<"MustFinishOn="<<m_constraintEndTime.toString()<<" "<<cs->startTime.toString()<<endl;
|
|
if (m_constraintEndTime > cs->latestFinish ||
|
|
m_constraintEndTime < cs->earliestStart + m_durationForward) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->endTime = m_constraintEndTime;
|
|
cs->duration = duration(cs->endTime, use, true);
|
|
cs->startTime = cs->endTime - cs->duration;
|
|
break;
|
|
case Node::FixedInterval: {
|
|
// cs->startTime calculated above
|
|
//kdDebug()<<"FixedInterval="<<m_constraintStartTime<<" "<<cs->startTime<<endl;
|
|
if (cs->startTime < cs->earliestStart) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = m_constraintStartTime;
|
|
cs->endTime = m_constraintEndTime;
|
|
cs->duration = cs->endTime - cs->startTime;
|
|
cs->workStartTime = m_constraintStartTime;
|
|
cs->workEndTime = m_constraintEndTime;
|
|
//kdDebug()<<"FixedInterval="<<cs->startTime<<", "<<cs->endTime<<endl;
|
|
break;
|
|
}
|
|
default:
|
|
break;
|
|
}
|
|
if (m_requests) {
|
|
m_requests->reserve(cs->startTime, cs->duration);
|
|
}
|
|
} else if (type() == Node::Type_Milestone) {
|
|
switch (m_constraint) {
|
|
case Node::ASAP: {
|
|
cs->endTime = cs->startTime;
|
|
break;
|
|
}
|
|
case Node::ALAP: {
|
|
cs->startTime = cs->latestFinish;
|
|
cs->endTime = cs->latestFinish;
|
|
break;
|
|
}
|
|
case Node::MustStartOn:
|
|
case Node::FixedInterval:
|
|
//kdDebug()<<"Forw, MustStartOn: "<<m_constraintStartTime.toString()<<" "<<cs->startTime.toString()<<endl;
|
|
if (m_constraintStartTime < cs->startTime ||
|
|
m_constraintStartTime > cs->latestFinish) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = m_constraintStartTime;
|
|
cs->endTime = m_constraintStartTime;
|
|
break;
|
|
case Node::MustFinishOn:
|
|
if (m_constraintEndTime < cs->startTime ||
|
|
m_constraintEndTime > cs->latestFinish) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = m_constraintEndTime;
|
|
cs->endTime = m_constraintEndTime;
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
if (cs->startTime < m_constraintStartTime) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->endTime = cs->startTime;
|
|
break;
|
|
case Node::FinishNotLater:
|
|
if (cs->startTime > m_constraintEndTime) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->endTime = cs->startTime;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
cs->duration = Duration::zeroDuration;
|
|
//kdDebug()<<k_funcinfo<<m_name<<": "<<cs->startTime<<", "<<cs->endTime<<endl;
|
|
} else if (type() == Node::Type_Summarytask) {
|
|
//shouldn't come here
|
|
cs->endTime = cs->startTime;
|
|
cs->duration = cs->endTime - cs->startTime;
|
|
kdWarning()<<k_funcinfo<<"Summarytasks should not be calculated here: "<<m_name<<endl;
|
|
}
|
|
//kdDebug()<<cs->startTime.toString()<<" : "<<cs->endTime.toString()<<" "<<m_name<<" scheduleForward()"<<endl;
|
|
m_visitedForward = true;
|
|
return cs->endTime;
|
|
}
|
|
|
|
DateTime Task::scheduleSuccessors(const TQPtrList<Relation> &list, int use) {
|
|
DateTime time;
|
|
TQPtrListIterator<Relation> it = list;
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->child()->type() == Type_Summarytask) {
|
|
//kdDebug()<<k_funcinfo<<"Skip summarytask: "<<it.current()->child()->name()<<endl;
|
|
continue;
|
|
}
|
|
// get the successors starttime
|
|
DateTime latest = it.current()->child()->getLatestFinish();
|
|
DateTime t = it.current()->child()->scheduleBackward(latest, use);
|
|
switch (it.current()->type()) {
|
|
case Relation::StartStart:
|
|
// I can't start before my successor, so
|
|
// I can't finish later than it's starttime + my duration
|
|
t += duration(t - it.current()->lag(), use, false);
|
|
break;
|
|
case Relation::FinishFinish:
|
|
t = it.current()->child()->endTime() - it.current()->lag();
|
|
break;
|
|
default:
|
|
t -= it.current()->lag();
|
|
break;
|
|
}
|
|
if (!time.isValid() || t < time)
|
|
time = t;
|
|
}
|
|
return time;
|
|
}
|
|
DateTime Task::scheduleBackward(const DateTime &latest, int use) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<": latest="<<latest<<endl;
|
|
if (m_currentSchedule == 0) {
|
|
return DateTime();
|
|
}
|
|
Schedule *cs = m_currentSchedule;
|
|
if (m_visitedBackward) {
|
|
return cs->startTime;
|
|
}
|
|
cs->notScheduled = false;
|
|
cs->endTime = latest < cs->latestFinish ? latest : cs->latestFinish;
|
|
// First, calculate all my own successors
|
|
DateTime time = scheduleSuccessors(dependChildNodes(), use);
|
|
if (time.isValid() && time < cs->endTime) {
|
|
cs->endTime = time;
|
|
}
|
|
// Then my tqparents
|
|
time = scheduleSuccessors(m_childProxyRelations, use);
|
|
if (time.isValid() && time < cs->endTime) {
|
|
cs->endTime = time;
|
|
}
|
|
if (type() == Node::Type_Task) {
|
|
cs->duration = m_effort->effort(use);
|
|
switch (m_constraint) {
|
|
case Node::ASAP: {
|
|
// cs->endTime calculated above
|
|
//kdDebug()<<k_funcinfo<<m_name<<": end="<<cs->endTime<<" early="<<cs->earliestStart<<endl;
|
|
cs->endTime = workFinishBefore(cs->endTime);
|
|
cs->duration = duration(cs->earliestStart, use, false);
|
|
cs->startTime = cs->earliestStart;
|
|
DateTime e = cs->startTime + cs->duration;
|
|
if (e > cs->endTime) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->endTime = e;
|
|
//kdDebug()<<k_funcinfo<<m_name<<": start="<<cs->startTime<<"+"<<cs->duration.toString()<<"="<<e<<" -> end="<<cs->endTime<<endl;
|
|
break;
|
|
}
|
|
case Node::ALAP:
|
|
// cs->endTime calculated above
|
|
//kdDebug()<<k_funcinfo<<m_name<<": end="<<cs->endTime<<" late="<<cs->latestFinish<<endl;
|
|
cs->endTime = workFinishBefore(cs->endTime);
|
|
cs->duration = duration(cs->endTime, use, true);
|
|
cs->startTime = cs->endTime - cs->duration;
|
|
//kdDebug()<<k_funcinfo<<m_name<<": lateStart="<<cs->startTime<<endl;
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
// cs->endTime calculated above
|
|
//kdDebug()<<"StartNotEarlier="<<m_constraintStartTime.toString()<<" "<<cs->endTime.toString()<<endl;
|
|
cs->endTime = workFinishBefore(cs->endTime);
|
|
cs->duration = duration(cs->endTime, use, true);
|
|
cs->startTime = cs->endTime - cs->duration;
|
|
if (cs->startTime < m_constraintStartTime) {
|
|
cs->schedulingError = true;
|
|
cs->startTime = m_constraintStartTime;
|
|
cs->duration = duration(cs->startTime, use, false);
|
|
cs->endTime = cs->startTime + cs->duration;
|
|
}
|
|
break;
|
|
case Node::FinishNotLater:
|
|
// cs->endTime calculated above
|
|
//kdDebug()<<"FinishNotLater="<<m_constraintEndTime.toString()<<" "<<cs->endTime.toString()<<endl;
|
|
if (cs->endTime > m_constraintEndTime) {
|
|
cs->schedulingError = true;
|
|
cs->endTime = m_constraintEndTime;
|
|
}
|
|
cs->endTime = workFinishBefore(cs->endTime);
|
|
cs->duration = duration(cs->endTime, use, true);
|
|
cs->startTime = cs->endTime - cs->duration;
|
|
break;
|
|
case Node::MustStartOn:
|
|
// cs->endTime calculated above
|
|
//kdDebug()<<"MustStartOn="<<m_constraintStartTime.toString()<<" "<<cs->startTime.toString()<<endl;
|
|
if (m_constraintStartTime < cs->earliestStart ||
|
|
m_constraintStartTime > cs->latestFinish - m_durationBackward) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = m_constraintStartTime;
|
|
cs->duration = duration(cs->startTime, use, false);
|
|
cs->endTime = cs->startTime + cs->duration;
|
|
break;
|
|
case Node::MustFinishOn:
|
|
// cs->endTime calculated above
|
|
//kdDebug()<<"MustFinishOn="<<m_constraintEndTime.toString()<<" "<<cs->startTime.toString()<<endl;
|
|
if (m_constraintEndTime > cs->latestFinish ||
|
|
m_constraintEndTime < cs->earliestStart + m_durationForward) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->endTime = m_constraintEndTime;
|
|
cs->duration = duration(cs->endTime, use, true);
|
|
cs->startTime = cs->endTime - cs->duration;
|
|
break;
|
|
case Node::FixedInterval: {
|
|
// cs->endTime calculated above
|
|
//kdDebug()<<k_funcinfo<<"FixedInterval="<<m_constraintEndTime<<" "<<cs->endTime<<endl;
|
|
if (m_constraintEndTime > cs->endTime) {
|
|
cs->schedulingError = true;
|
|
//kdDebug()<<k_funcinfo<<"FixedInterval error: "<<m_constraintEndTime<<" > "<<cs->endTime<<endl;
|
|
}
|
|
cs->startTime = m_constraintStartTime;
|
|
cs->endTime = m_constraintEndTime;
|
|
cs->duration = cs->endTime - cs->startTime;
|
|
cs->workStartTime = m_constraintStartTime;
|
|
cs->workEndTime = m_constraintEndTime;
|
|
break;
|
|
}
|
|
default:
|
|
break;
|
|
}
|
|
if (m_requests) {
|
|
m_requests->reserve(cs->startTime, cs->duration);
|
|
}
|
|
} else if (type() == Node::Type_Milestone) {
|
|
switch (m_constraint) {
|
|
case Node::ASAP:
|
|
cs->startTime = cs->earliestStart;
|
|
cs->endTime = cs->earliestStart;
|
|
break;
|
|
case Node::ALAP:
|
|
cs->startTime = cs->latestFinish;
|
|
cs->endTime = cs->latestFinish;
|
|
break;
|
|
case Node::MustStartOn:
|
|
case Node::FixedInterval:
|
|
if (m_constraintStartTime < cs->earliestStart ||
|
|
m_constraintStartTime > cs->endTime) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = cs->earliestStart;
|
|
cs->endTime = cs->earliestStart;
|
|
break;
|
|
case Node::MustFinishOn:
|
|
if (m_constraintEndTime < cs->earliestStart ||
|
|
m_constraintEndTime > cs->endTime) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = cs->earliestStart;
|
|
cs->endTime = cs->earliestStart;
|
|
break;
|
|
case Node::StartNotEarlier:
|
|
if (m_constraintStartTime > cs->endTime) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = cs->endTime;
|
|
break;
|
|
case Node::FinishNotLater:
|
|
if (m_constraintEndTime < cs->endTime) {
|
|
cs->schedulingError = true;
|
|
}
|
|
cs->startTime = cs->endTime;
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
cs->duration = Duration::zeroDuration;
|
|
} else if (type() == Node::Type_Summarytask) {
|
|
//shouldn't come here
|
|
cs->startTime = cs->endTime;
|
|
cs->duration = cs->endTime - cs->startTime;
|
|
kdWarning()<<k_funcinfo<<"Summarytasks should not be calculated here: "<<m_name<<endl;
|
|
}
|
|
//kdDebug()<<k_funcinfo<<m_name<<": "<<cs->startTime.toString()<<" : "<<cs->endTime.toString()<<endl;
|
|
m_visitedBackward = true;
|
|
return cs->startTime;
|
|
}
|
|
|
|
void Task::adjustSummarytask() {
|
|
if (m_currentSchedule == 0)
|
|
return;
|
|
if (type() == Type_Summarytask) {
|
|
DateTime start = m_currentSchedule->latestFinish;
|
|
DateTime end = m_currentSchedule->earliestStart;
|
|
TQPtrListIterator<Node> it(m_nodes);
|
|
for (; it.current(); ++it) {
|
|
it.current()->adjustSummarytask();
|
|
if (it.current()->startTime() < start)
|
|
start = it.current()->startTime();
|
|
if (it.current()->endTime() > end)
|
|
end = it.current()->endTime();
|
|
}
|
|
m_currentSchedule->startTime = start;
|
|
m_currentSchedule->endTime = end;
|
|
m_currentSchedule->duration = end - start;
|
|
m_currentSchedule->notScheduled = false;
|
|
//kdDebug()<<k_funcinfo<<cs->name<<": "<<m_currentSchedule->startTime.toString()<<" : "<<m_currentSchedule->endTime.toString()<<endl;
|
|
}
|
|
}
|
|
|
|
Duration Task::calcDuration(const DateTime &time, const Duration &effort, bool backward) {
|
|
//kdDebug()<<"--------> calcDuration "<<(backward?"(B) ":"(F) ")<<m_name<<" time="<<time<<" effort="<<effort.toString(Duration::Format_Day)<<endl;
|
|
|
|
// Allready checked: m_effort, m_currentSchedule and time.
|
|
Duration dur = effort; // use effort as default duration
|
|
if (m_effort->type() == Effort::Type_Effort) {
|
|
if (m_requests == 0 || m_requests->isEmpty()) {
|
|
m_currentSchedule->resourceError = true;
|
|
return effort;
|
|
}
|
|
dur = m_requests->duration(time, effort, backward);
|
|
if (dur == Duration::zeroDuration) {
|
|
kdWarning()<<k_funcinfo<<"zero duration: Resource not available"<<endl;
|
|
m_currentSchedule->resourceNotAvailable = true;
|
|
dur = effort; //???
|
|
}
|
|
return dur;
|
|
}
|
|
if (m_effort->type() == Effort::Type_FixedDuration) {
|
|
//TODO: Different types of fixed duration
|
|
return dur; //
|
|
}
|
|
kdError()<<k_funcinfo<<"Unsupported effort type: "<<m_effort->type()<<endl;
|
|
return dur;
|
|
}
|
|
|
|
void Task::clearProxyRelations() {
|
|
m_parentProxyRelations.clear();
|
|
m_childProxyRelations.clear();
|
|
}
|
|
|
|
void Task::addParentProxyRelations(TQPtrList<Relation> &list) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<endl;
|
|
if (type() == Type_Summarytask) {
|
|
// propagate to my tqchildren
|
|
//kdDebug()<<k_funcinfo<<m_name<<" is summary task"<<endl;
|
|
TQPtrListIterator<Node> nodes = m_nodes;
|
|
for (; nodes.current(); ++nodes) {
|
|
nodes.current()->addParentProxyRelations(list);
|
|
nodes.current()->addParentProxyRelations(dependParentNodes());
|
|
}
|
|
} else {
|
|
// add 'this' as child relation to the relations tqparent
|
|
//kdDebug()<<k_funcinfo<<m_name<<" is not summary task"<<endl;
|
|
TQPtrListIterator<Relation> it = list;
|
|
for (; it.current(); ++it) {
|
|
it.current()->tqparent()->addChildProxyRelation(this, it.current());
|
|
// add a tqparent relation to myself
|
|
addParentProxyRelation(it.current()->tqparent(), it.current());
|
|
}
|
|
}
|
|
}
|
|
|
|
void Task::addChildProxyRelations(TQPtrList<Relation> &list) {
|
|
//kdDebug()<<k_funcinfo<<m_name<<endl;
|
|
if (type() == Type_Summarytask) {
|
|
// propagate to my tqchildren
|
|
//kdDebug()<<k_funcinfo<<m_name<<" is summary task"<<endl;
|
|
TQPtrListIterator<Node> nodes = m_nodes;
|
|
for (; nodes.current(); ++nodes) {
|
|
nodes.current()->addChildProxyRelations(list);
|
|
nodes.current()->addChildProxyRelations(dependChildNodes());
|
|
}
|
|
} else {
|
|
// add 'this' as tqparent relation to the relations child
|
|
//kdDebug()<<k_funcinfo<<m_name<<" is not summary task"<<endl;
|
|
TQPtrListIterator<Relation> it = list;
|
|
for (; it.current(); ++it) {
|
|
it.current()->child()->addParentProxyRelation(this, it.current());
|
|
// add a child relation to myself
|
|
addChildProxyRelation(it.current()->child(), it.current());
|
|
}
|
|
}
|
|
}
|
|
|
|
void Task::addParentProxyRelation(Node *node, const Relation *rel) {
|
|
if (node->type() != Type_Summarytask) {
|
|
if (type() == Type_Summarytask) {
|
|
//kdDebug()<<"Add tqparent proxy from my tqchildren "<<m_name<<" to "<<node->name()<<endl;
|
|
TQPtrListIterator<Node> nodes = m_nodes;
|
|
for (; nodes.current(); ++nodes) {
|
|
nodes.current()->addParentProxyRelation(node, rel);
|
|
}
|
|
} else {
|
|
//kdDebug()<<"Add tqparent proxy from "<<node->name()<<" to (me) "<<m_name<<endl;
|
|
m_parentProxyRelations.append(new ProxyRelation(node, this, rel->type(), rel->lag()));
|
|
}
|
|
}
|
|
}
|
|
|
|
void Task::addChildProxyRelation(Node *node, const Relation *rel) {
|
|
if (node->type() != Type_Summarytask) {
|
|
if (type() == Type_Summarytask) {
|
|
//kdDebug()<<"Add child proxy from my tqchildren "<<m_name<<" to "<<node->name()<<endl;
|
|
TQPtrListIterator<Node> nodes = m_nodes;
|
|
for (; nodes.current(); ++nodes) {
|
|
nodes.current()->addChildProxyRelation(node, rel);
|
|
}
|
|
} else {
|
|
//kdDebug()<<"Add child proxy from (me) "<<m_name<<" to "<<node->name()<<endl;
|
|
m_childProxyRelations.append(new ProxyRelation(this, node, rel->type(), rel->lag()));
|
|
}
|
|
}
|
|
}
|
|
|
|
bool Task::isEndNode() const {
|
|
TQPtrListIterator<Relation> it = m_dependChildNodes;
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->type() == Relation::FinishStart)
|
|
return false;
|
|
}
|
|
TQPtrListIterator<Relation> pit = m_childProxyRelations;
|
|
for (; pit.current(); ++pit) {
|
|
if (pit.current()->type() == Relation::FinishStart)
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
bool Task::isStartNode() const {
|
|
TQPtrListIterator<Relation> it = m_dependParentNodes;
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->type() == Relation::FinishStart ||
|
|
it.current()->type() == Relation::StartStart)
|
|
return false;
|
|
}
|
|
TQPtrListIterator<Relation> pit = m_parentProxyRelations;
|
|
for (; pit.current(); ++pit) {
|
|
if (pit.current()->type() == Relation::FinishStart ||
|
|
pit.current()->type() == Relation::StartStart)
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
DateTime Task::workStartTime() const {
|
|
if (m_currentSchedule == 0)
|
|
return DateTime();
|
|
if (m_requests)
|
|
return m_currentSchedule->workStartTime;
|
|
return m_currentSchedule->startTime;
|
|
}
|
|
|
|
DateTime Task::workEndTime() const {
|
|
if (m_currentSchedule == 0)
|
|
return DateTime();
|
|
return m_currentSchedule->endTime;
|
|
}
|
|
|
|
DateTime Task::workStartAfter(const DateTime &dt) {
|
|
if (m_requests) {
|
|
DateTime t = m_requests->availableAfter(dt);
|
|
return t.isValid() ? t : dt;
|
|
}
|
|
return dt;
|
|
}
|
|
|
|
DateTime Task::workFinishBefore(const DateTime &dt) {
|
|
if (m_requests) {
|
|
return m_requests->availableBefore(dt);
|
|
}
|
|
return dt;
|
|
}
|
|
|
|
Duration Task::positiveFloat() {
|
|
if (m_currentSchedule == 0 ||
|
|
m_currentSchedule->schedulingError ||
|
|
effortMetError()) {
|
|
return Duration::zeroDuration;
|
|
}
|
|
Duration f;
|
|
if (type() == Node::Type_Milestone) {
|
|
if (m_currentSchedule->startTime < m_currentSchedule->latestFinish) {
|
|
f = m_currentSchedule->latestFinish - m_currentSchedule->startTime;
|
|
}
|
|
} else if (m_effort->type() == Effort::Type_FixedDuration) {
|
|
if (m_currentSchedule->endTime.isValid()) {
|
|
if (m_currentSchedule->endTime < m_currentSchedule->latestFinish) {
|
|
f = m_currentSchedule->latestFinish - m_currentSchedule->endTime;
|
|
}
|
|
}
|
|
} else {
|
|
if (m_currentSchedule->workEndTime.isValid())
|
|
if (m_currentSchedule->workEndTime < m_currentSchedule->latestFinish) {
|
|
f = m_currentSchedule->latestFinish - m_currentSchedule->workEndTime;
|
|
} else if (m_currentSchedule->endTime.isValid()) {
|
|
if (m_currentSchedule->endTime < m_currentSchedule->latestFinish) {
|
|
f = m_currentSchedule->latestFinish - m_currentSchedule->endTime;
|
|
}
|
|
}
|
|
}
|
|
//kdDebug()<<k_funcinfo<<f.toString()<<endl;
|
|
return f;
|
|
}
|
|
|
|
bool Task::isCritical() {
|
|
Schedule *cs = m_currentSchedule;
|
|
if (cs == 0) {
|
|
return false;
|
|
}
|
|
return cs->earliestStart >= cs->startTime && cs->latestFinish <= cs->endTime;
|
|
}
|
|
|
|
bool Task::calcCriticalPath(bool fromEnd) {
|
|
if (m_currentSchedule == 0)
|
|
return false;
|
|
//kdDebug()<<k_funcinfo<<m_name<<" fromEnd="<<fromEnd<<" cp="<<m_currentSchedule->inCriticalPath<<endl;
|
|
if (m_currentSchedule->inCriticalPath) {
|
|
return true; // path allready calculated
|
|
}
|
|
if (!isCritical()) {
|
|
return false;
|
|
}
|
|
if (fromEnd) {
|
|
if (isEndNode()) {
|
|
m_currentSchedule->inCriticalPath = true;
|
|
//kdDebug()<<k_funcinfo<<m_name<<" end node"<<endl;
|
|
return true;
|
|
}
|
|
TQPtrListIterator<Relation> it(m_childProxyRelations);
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->child()->calcCriticalPath(fromEnd)) {
|
|
m_currentSchedule->inCriticalPath = true;
|
|
}
|
|
}
|
|
TQPtrListIterator<Relation> pit(m_dependChildNodes);
|
|
for (; pit.current(); ++pit) {
|
|
if (pit.current()->child()->calcCriticalPath(fromEnd)) {
|
|
m_currentSchedule->inCriticalPath = true;
|
|
}
|
|
}
|
|
} else {
|
|
if (isStartNode()) {
|
|
m_currentSchedule->inCriticalPath = true;
|
|
//kdDebug()<<k_funcinfo<<m_name<<" start node"<<endl;
|
|
return true;
|
|
}
|
|
TQPtrListIterator<Relation> it(m_parentProxyRelations);
|
|
for (; it.current(); ++it) {
|
|
if (it.current()->tqparent()->calcCriticalPath(fromEnd)) {
|
|
m_currentSchedule->inCriticalPath = true;
|
|
}
|
|
}
|
|
TQPtrListIterator<Relation> pit(m_dependParentNodes);
|
|
for (; pit.current(); ++pit) {
|
|
if (pit.current()->tqparent()->calcCriticalPath(fromEnd)) {
|
|
m_currentSchedule->inCriticalPath = true;
|
|
}
|
|
}
|
|
}
|
|
//kdDebug()<<k_funcinfo<<m_name<<" return cp="<<m_currentSchedule->inCriticalPath<<endl;
|
|
return m_currentSchedule->inCriticalPath;
|
|
}
|
|
|
|
void Task::setCurrentSchedule(long id) {
|
|
setCurrentSchedulePtr(findSchedule(id));
|
|
Node::setCurrentSchedule(id);
|
|
}
|
|
|
|
bool Task::effortMetError() const {
|
|
if (m_currentSchedule->notScheduled) {
|
|
return false;
|
|
}
|
|
return m_currentSchedule->plannedEffort() < effort()->effort(static_cast<Effort::Use>(static_cast<int>(m_currentSchedule->type())));
|
|
}
|
|
|
|
#ifndef NDEBUG
|
|
void Task::printDebug(bool tqchildren, TQCString indent) {
|
|
kdDebug()<<indent<<"+ Task node: "<<name()<<" type="<<type()<<endl;
|
|
indent += "! ";
|
|
kdDebug()<<indent<<"Requested resources (total): "<<units()<<"%"<<endl;
|
|
kdDebug()<<indent<<"Requested resources (work): "<<workUnits()<<"%"<<endl;
|
|
if (m_requests)
|
|
m_requests->printDebug(indent);
|
|
|
|
Node::printDebug(tqchildren, indent);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
} //KPlato namespace
|