Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
/**
* Copyright (c) 2017 CentraleSupélec & EDF.
* All rights reserved. This program and the accompanying materials
* are made available under the terms of the Eclipse Public License v1.0
* which accompanies this distribution, and is available at
* http://www.eclipse.org/legal/epl-v10.html
*
* This file is part of the RiseClipse tool
*
* Contributors:
* Computer Science Department, CentraleSupélec
* EDF R&D
* Contacts:
* dominique.marcadet@centralesupelec.fr
* aurelie.dehouck-neveu@edf.fr
* Web site:
* http://wdi.supelec.fr/software/RiseClipse/
*/
import scl: 'http://www.iec.ch/61850/2003/SCL'
import '../Helpers/BaseSimpleTypes.ocl'
package scl
context ConnectivityNode
-- The name attribute is verified in Naming.ocl
-- The pathName attribute shall be present
inv ConnectivityNode_pathName_required
( 'name attribute shall be present in ConnectivityNode (line ' + self.lineNumber.toString() + ')' )
:
self.pathName <> null
-- The pathName attribute shall be valid
inv ConnectivityNode_pathName_valid
( 'name attribute shall be valid in ConnectivityNode (line ' + self.lineNumber.toString() + '). '
+ 'Current value is ' + self.pathName.toString()
)
:
self.pathName <> null implies self.pathName.validSclRef()
-- The Bay's name attribute identifies the ConnectivityNode instance within the
-- bay; its pathName is an absolute reference within the SCL file. The
-- pathname is build by all higher level references down to the connectivity
-- nodes name, concatenated with the character “/”
inv ConnectivityNode_pathName_value
( 'pathName of ConnectivityNode shall be its path starting from Substation (line ' + self.lineNumber.toString() + '). '
+ 'Current value is ' + self.pathName + ', '
+ 'expected value is ' + self.Bay.VoltageLevel.Substation.name
+ '/' + self.Bay.VoltageLevel.name
+ '/' + self.Bay.name
+ '/' + self.name
)
:
self.pathName <> null
implies
self.pathName = self.Bay.VoltageLevel.Substation.name
+ '/' + self.Bay.VoltageLevel.name
+ '/' + self.Bay.name
+ '/' + self.name
endpackage