← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/tcm/intrepid

« back to all changes in this revision

Viewing changes to src/sd/fv/eventflow.c

  • Committer: Bazaar Package Importer
  • Author(s): Otavio Salvador
  • Date: 2003-07-03 20:08:21 UTC
  • Revision ID: james.westby@ubuntu.com-20030703200821-se4xtqx25e5miczi
Tags: upstream-2.20
Import upstream version 2.20

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/sd/fv/eventflow.c
 
1
////////////////////////////////////////////////////////////////////////////////
 
2
//
 
3
// This file is part of Toolkit for Conceptual Modeling (TCM).
 
4
// (c) copyright 1996, Vrije Universiteit Amsterdam.
 
5
// Author: Frank Dehne (frank@cs.vu.nl).
 
6
//
 
7
// TCM is free software; you can redistribute it and/or modify
 
8
// it under the terms of the GNU General Public License as published by
 
9
// the Free Software Foundation; either version 2 of the License, or 
 
10
// (at your option) any later version.
 
11
//
 
12
// TCM is distributed in the hope that it will be useful,
 
13
// but WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
15
// GNU General Public License for more details.
 
16
//
 
17
// You should have received a copy of the GNU General Public License
 
18
// along with TCM; if not, write to the Free Software
 
19
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
20
// 02111-1307, USA.
 
21
////////////////////////////////////////////////////////////////////////////////
 
22
#include "eventflow.h"
 
23
#include "dcfgraph.h"
 
24
#include "dataprocess.h"
 
25
 
 
26
EventFlow::EventFlow(DCFGraph *g, Subject *n1, Subject *n2): DFEdge(g, n1, n2) {
 
27
        SetDirected(True);
 
28
}
 
29
 
 
30
Subject::NameErrType EventFlow::SetName(const string *s) {
 
31
        if (*s != "" && s->letters() == 0)
 
32
                return Subject::IMPOSSIBLE_NAME;
 
33
        if ((GetSubject1()->GetClassType() == Code::CONTROL_PROCESS) ||
 
34
            (GetSubject1()->GetClassType() == Code::DATA_PROCESS)) {
 
35
                if ((GetSubject2()->GetClassType()!=Code::CONTROL_PROCESS) &&
 
36
                    (GetSubject2()->GetClassType()!=Code::DATA_PROCESS)) {
 
37
                        // prompts nor triggers are allowed here.
 
38
                        // NB : DATA/CONTROL PROCESS->DATA/CONTROL PROCESS : ALL allowed (990827)
 
39
                        if (TriggerLabel(s) || E_D_Label(s))
 
40
                                return Subject::WRONG_NAME_CONNECTION;
 
41
                }
 
42
        }
 
43
        else if ((GetSubject1()->GetClassType() == Code::EXTERNAL_ENTITY) &&
 
44
                 (GetSubject2()->GetClassType() == Code::CONTROL_PROCESS)) {
 
45
                        // prompts but not triggers are allowed here.
 
46
                        if (TriggerLabel(s))
 
47
                                return Subject::WRONG_NAME_CONNECTION;
 
48
        }
 
49
        else if (TriggerLabel(s) || E_D_Label(s))
 
50
                // prompts nor triggers allowed.
 
51
                return Subject::WRONG_NAME_CONNECTION;
 
52
        if (*s != *GetName() && *s != "" &&
 
53
                        GetGraph()->CountEdges(
 
54
                                GetSubject1(), GetSubject2(), s) > 0)
 
55
                return Subject::DOUBLE_EDGE;
 
56
        DFEdge::SetName(s);
 
57
        if (TriggerLabel(s) && GetSubject2()->GetClassType() == Code::DATA_PROCESS)
 
58
                ((DataProcess *)GetSubject2())->SetActivationMechanism(DataProcess::TRIGGER);
 
59
        return Subject::OK;
 
60
}