-
Notifications
You must be signed in to change notification settings - Fork 2
/
Outgoing_Incoming_links.dxl
271 lines (223 loc) · 9.67 KB
/
Outgoing_Incoming_links.dxl
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
/* ***************************************************************************************
\file Outgoing_Incoming_links.dxl
\brief Get all outgoing incoming links und link modules from selected objects.
But source and target modules are not in the same project
\author nguye003
\date
\note (C) Copyright Leopold Kostal GmbH&Co KG \n\n
Contents and presentations are protected world-wide.\n
Any kind of using, copying etc. is prohibited without prior permission. \n
All rights - incl. industrial property rights - are reserved.
*************************************************************************************** */
pragma runLim, 0
Project p = current
Module m = current
string str_current_project_name = fullName p
print "Current Project: "str_current_project_name "\n"
if (null m) //Script muss run in open module
{
ack "Please run this script in an open module - halting"
halt
}
/** Get all source module of incoming link, which not in same current project **/
void get_incoming_link(Object obj, Skip &sk_project_name_incoming, Skip &sk_object_id_incoming, Skip &sk_link_module_incoming, int &key_sk_project_name_object_id){
Link incoming_link = null
ModName_ src_mod = null
Module source_module = null
Module link_module = null
Project source_mod_project = null
string str_src_mod = ""
string str_project_src_mod = ""
string str_source_name = ""
int count_module_from_incoming_link = 0
int count_incoming_link = 0
//Open all module from incoming links
for src_mod in obj <- "*" do{
str_source_name = fullName(src_mod)
source_module = read(str_source_name, false)
count_incoming_link++
if(null source_module){
print "Cannot open source module "str_source_name" in read for object "identifier(obj)".\n"
}else{
count_module_from_incoming_link++
}
}
if(count_incoming_link > 0){
if(count_module_from_incoming_link > 0){
for incoming_link in obj <- "*" do{
src_mod = source incoming_link
link_module = module(incoming_link)
if(link_module != null){
if(src_mod != null){
str_src_mod = fullName(src_mod)
if(str_src_mod != ""){
//Get project of source module
source_mod_project = getParentProject(src_mod)
if(source_mod_project != null){
str_project_src_mod = fullName(source_mod_project)
if(str_project_src_mod != ""){
//Compare with project of current module
if(str_project_src_mod != str_current_project_name){
put(sk_project_name_incoming, key_sk_project_name_object_id, str_project_src_mod)
put(sk_object_id_incoming, key_sk_project_name_object_id, identifier(obj))
put(sk_link_module_incoming, key_sk_project_name_object_id, fullName(link_module))
key_sk_project_name_object_id++
}
}
}else{
print "Cannot open project of source module "fullName(src_mod)" in incoming link "fullName(link_module)" of object "identifier(obj)".\n"
}
}
}
}else{
print "Cannot open link module between source module "fullName(src_mod) " and current module "fullName(m) " of object "identifier(obj)".\n"
}
}
}else{
print "Cannot open any source module from incoming links of object "identifier(obj)".\n"
}
}/*else{
print "Object "identifier(obj) " has no incoming link.\n"
}*/
}
/** Get all target module of outgoing link, which not in same current project **/
void get_outgoing_link(Object obj, Skip &sk_project_name_outgoing, Skip &sk_object_id_outgoing, Skip &sk_link_module_outgoing, int &key_sk_project_name_object_id){
Project target_mod_project = null
Link outgoing_link = null
ModName_ target_mod = null
Module link_module = null
Module target_module = null
string str_target_mod = ""
string str_project_target_mod = ""
int count_open_mod_from_outgoing_lk = 0
int count_out_going_link = 0
//Open all module from outgoing links
for outgoing_link in obj -> "*" do{
target_mod = target outgoing_link
str_target_mod = fullName(target_mod)
target_module = read(str_target_mod, false)
count_out_going_link++
if(target_module != null){
count_open_mod_from_outgoing_lk++
}else{
print "Cannot open target module "str_target_mod" in read for object "identifier(obj)".\n"
}
}
if(count_out_going_link > 0){
if(count_open_mod_from_outgoing_lk > 0){
for outgoing_link in obj -> "*" do{
target_mod = target outgoing_link
if(target_mod != null){
str_target_mod = fullName(target_mod)
target_module = read(str_target_mod, false)
//Get project of target module
target_mod_project = getParentProject(target_module)
link_module = module(outgoing_link)
if(null link_module){
print "Cannot open link module between source module "str_target_mod" and current module "fullName(m) " of object "identifier(obj)".\n"
}else{
if(null target_mod_project){
print "Cannot open project of target module "str_target_mod".\n"
}else{
str_project_target_mod = fullName target_mod_project
//Compare to current project
if(str_project_target_mod != str_current_project_name){
put(sk_project_name_outgoing, key_sk_project_name_object_id, str_project_target_mod)
put(sk_object_id_outgoing, key_sk_project_name_object_id, identifier(obj))
put(sk_link_module_outgoing, key_sk_project_name_object_id, fullName(link_module))
key_sk_project_name_object_id++
}
}
}
}else{
print "Cannot open target module "fullName(target_mod)" for read of outgoing link in object "identifier(obj)".\n"
}
}
}else{
print "Cannot open any target module from outgoing links of object "identifier(obj)".\n"
}
}/*else{
print "Object "identifier(obj) " has no outgoing link.\n"
}*/
}
/** Print all result from incoming link **/
void display_all_from_incoming_link(Skip sk_project_name_incoming, Skip sk_object_id_incoming, Skip sk_link_module_incoming){
int key_sk_incoming_links = 0
string str_project_name_incoming_link = ""
string str_object_id_incoming_link = ""
string str_link_module_incoming_link = ""
for key_sk_incoming_links in sk_project_name_incoming do{
key_sk_incoming_links = (int key sk_project_name_incoming)
//Get project name
if(find(sk_project_name_incoming, key_sk_incoming_links, str_project_name_incoming_link)){
//Get object id
if(find(sk_object_id_incoming, key_sk_incoming_links, str_object_id_incoming_link)){
//Get link module
if(find(sk_link_module_incoming, key_sk_incoming_links, str_link_module_incoming_link)){
print "Object "str_object_id_incoming_link " in current module "fullName(m) " has incoming link from project "str_project_name_incoming_link " and link module is "str_link_module_incoming_link".\n\n"
}
}
}
}
}
/** Print all result from outgoing link **/
void display_all_from_outgoing_link(Skip sk_project_name_outgoing, Skip sk_object_id_outgoing, Skip sk_link_module_outgoing){
int key_outgoing_links = 0
string str_project_name_outgoing_link = ""
string str_object_id_outgoing_link = ""
string str_link_module_outgoing_link = ""
for key_outgoing_links in sk_project_name_outgoing do{
key_outgoing_links = (int key sk_project_name_outgoing)
//Get project name
if(find(sk_project_name_outgoing, key_outgoing_links, str_project_name_outgoing_link)){
//Get object id
if(find(sk_object_id_outgoing, key_outgoing_links, str_object_id_outgoing_link)){
//Get link module
if(find(sk_link_module_outgoing, key_outgoing_links, str_link_module_outgoing_link)){
print "Object "str_object_id_outgoing_link " in current module "fullName(m) " has outgoing link to project "str_project_name_outgoing_link " and link module is "str_link_module_outgoing_link".\n\n"
}
}
}
}
}
/** Main function **/
void main(){
Object obj = null
/** Use for incoming link **/
Skip sk_project_name_incoming = create
Skip sk_object_id_incoming = create
Skip sk_link_module_incoming = create
/** Use for outgoing link **/
Skip sk_project_name_outgoing = create
Skip sk_object_id_outgoing = create
Skip sk_link_module_outgoing = create
bool bl_check_selected_obj = false
int key_sk_incoming_links = 0
int key_sk_outgoing_links = 0
//Loop through selected obj in current module
for obj in m do{
if(isSelected(obj)){
get_incoming_link(obj, sk_project_name_incoming, sk_object_id_incoming, sk_link_module_incoming, key_sk_incoming_links)
get_outgoing_link(obj, sk_project_name_outgoing, sk_object_id_outgoing, sk_link_module_outgoing, key_sk_outgoing_links)
bl_check_selected_obj = true
}
}
if(!bl_check_selected_obj){
print "No object in current module "fullName(m) " is selected.\n"
}
if(key_sk_incoming_links > 0){
print "\nAll incoming link not from current project "str_current_project_name" in all selected objects: \n\n"
display_all_from_incoming_link(sk_project_name_incoming, sk_object_id_incoming, sk_link_module_incoming)
}else{
print "The selected objects in the current project "str_current_project_name " have no incoming links from other projects.\n"
}
if(key_sk_outgoing_links > 0){
print "\nAll outgoing link not from current project "str_current_project_name" in all selected objects: \n\n"
display_all_from_outgoing_link(sk_project_name_outgoing, sk_object_id_outgoing, sk_link_module_outgoing)
}else{
print "The selected objects in the current project "str_current_project_name " have no outgoing links to other projects.\n"
}
delete sk_project_name_incoming, sk_object_id_incoming, sk_link_module_incoming
delete sk_project_name_outgoing, sk_object_id_outgoing, sk_link_module_outgoing
}
main