annotate mayachemtools/docs/modules/html/code/Graph.html @ 9:ab29fa5c8c1f draft default tip

Uploaded
author deepakjadmin
date Thu, 15 Dec 2016 14:18:03 -0500
parents 73ae111cf86f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1 <html>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2 <head>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3 <title>MayaChemTools:Code:Graph.pm</title>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
4 <meta http-equiv="content-type" content="text/html;charset=utf-8">
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
5 <link rel="stylesheet" type="text/css" href="../../../css/MayaChemToolsCode.css">
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
6 </head>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
7 <body leftmargin="20" rightmargin="20" topmargin="10" bottommargin="10">
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
8 <br/>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
9 <center>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
10 <a href="http://www.mayachemtools.org" title="MayaChemTools Home"><img src="../../../images/MayaChemToolsLogo.gif" border="0" alt="MayaChemTools"></a>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
11 </center>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
12 <br/>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
13 <pre>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
14 <a name="package-Graph-"></a> 1 <span class="k">package </span><span class="i">Graph</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
15 2 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
16 3 <span class="c"># $RCSfile: Graph.pm,v $</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
17 4 <span class="c"># $Date: 2015/02/28 20:47:17 $</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
18 5 <span class="c"># $Revision: 1.46 $</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
19 6 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
20 7 <span class="c"># Author: Manish Sud &lt;msud@san.rr.com&gt;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
21 8 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
22 9 <span class="c"># Copyright (C) 2015 Manish Sud. All rights reserved.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
23 10 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
24 11 <span class="c"># This file is part of MayaChemTools.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
25 12 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
26 13 <span class="c"># MayaChemTools is free software; you can redistribute it and/or modify it under</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
27 14 <span class="c"># the terms of the GNU Lesser General Public License as published by the Free</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
28 15 <span class="c"># Software Foundation; either version 3 of the License, or (at your option) any</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
29 16 <span class="c"># later version.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
30 17 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
31 18 <span class="c"># MayaChemTools is distributed in the hope that it will be useful, but without</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
32 19 <span class="c"># any warranty; without even the implied warranty of merchantability of fitness</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
33 20 <span class="c"># for a particular purpose. See the GNU Lesser General Public License for more</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
34 21 <span class="c"># details.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
35 22 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
36 23 <span class="c"># You should have received a copy of the GNU Lesser General Public License</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
37 24 <span class="c"># along with MayaChemTools; if not, see &lt;http://www.gnu.org/licenses/&gt; or</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
38 25 <span class="c"># write to the Free Software Foundation Inc., 59 Temple Place, Suite 330,</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
39 26 <span class="c"># Boston, MA, 02111-1307, USA.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
40 27 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
41 28
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
42 29 <span class="k">use</span> <span class="w">strict</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
43 30 <span class="k">use</span> <span class="w">Carp</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
44 31 <span class="k">use</span> <span class="w">Exporter</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
45 32 <span class="k">use</span> <span class="w">Storable</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
46 33 <span class="k">use</span> <span class="w">Scalar::Util</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
47 34 <span class="k">use</span> <span class="w">Graph::CyclesDetection</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
48 35 <span class="k">use</span> <span class="w">Graph::PathsTraversal</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
49 36 <span class="k">use</span> <span class="w">Graph::GraphMatrix</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
50 37
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
51 38 <span class="k">use</span> <span class="w">vars</span> <span class="q">qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
52 39
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
53 40 <span class="i">@ISA</span> = <span class="q">qw(Exporter)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
54 41 <span class="i">@EXPORT</span> = <span class="q">qw(IsGraph)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
55 42 <span class="i">@EXPORT_OK</span> = <span class="q">qw()</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
56 43
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
57 44 <span class="i">%EXPORT_TAGS</span> = <span class="s">(</span><span class="w">all</span> <span class="cm">=&gt;</span> <span class="s">[</span><span class="i">@EXPORT</span><span class="cm">,</span> <span class="i">@EXPORT_OK</span><span class="s">]</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
58 45
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
59 46 <span class="c"># Setup class variables...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
60 47 <span class="k">my</span><span class="s">(</span><span class="i">$ClassName</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
61 48 <span class="i">_InitializeClass</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
62 49
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
63 50 <span class="c"># Overload Perl functions...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
64 51 <span class="k">use</span> <span class="w">overload</span> <span class="q">&#39;&quot;&quot;&#39;</span> <span class="cm">=&gt;</span> <span class="q">&#39;StringifyGraph&#39;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
65 52
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
66 53 <span class="c"># Class constructor...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
67 <a name="new-"></a> 54 <span class="k">sub </span><span class="m">new</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
68 55 <span class="k">my</span><span class="s">(</span><span class="i">$Class</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
69 56
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
70 57 <span class="c"># Initialize object...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
71 58 <span class="k">my</span> <span class="i">$This</span> = <span class="s">{</span><span class="s">}</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
72 59 <span class="k">bless</span> <span class="i">$This</span><span class="cm">,</span> <span class="k">ref</span><span class="s">(</span><span class="i">$Class</span><span class="s">)</span> || <span class="i">$Class</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
73 60 <span class="i">$This</span><span class="i">-&gt;_InitializeGraph</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
74 61
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
75 62 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span> <span class="i">$This</span><span class="i">-&gt;AddVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
76 63
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
77 64 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
78 65 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
79 66
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
80 67 <span class="c"># Initialize object data...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
81 <a name="_InitializeGraph-"></a> 68 <span class="k">sub </span><span class="m">_InitializeGraph</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
82 69 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
83 70
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
84 71 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
85 72
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
86 73 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
87 74 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
88 75 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
89 76
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
90 77 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
91 78 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
92 79 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
93 80 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
94 81 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
95 82
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
96 83 <span class="c"># Initialize class ...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
97 <a name="_InitializeClass-"></a> 84 <span class="k">sub </span><span class="m">_InitializeClass</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
98 85 <span class="c">#Class name...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
99 86 <span class="i">$ClassName</span> = <span class="w">__PACKAGE__</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
100 87 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
101 88
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
102 89 <span class="c"># Add a vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
103 <a name="AddVertex-"></a> 90 <span class="k">sub </span><span class="m">AddVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
104 91 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
105 92
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
106 93 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span> <span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
107 94 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddVertex: No vertex added: Vertex ID must be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
108 95 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
109 96 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
110 97 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
111 98 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddVertex: Didn&#39;t add vertex $VertexID: Already exists in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
112 99 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
113 100 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
114 101
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
115 102 <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>} = <span class="i">$VertexID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
116 103
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
117 104 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
118 105 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
119 106
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
120 107 <span class="c"># Add vertices to the graph and return graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
121 <a name="AddVertices-"></a> 108 <span class="k">sub </span><span class="m">AddVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
122 109 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
123 110
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
124 111 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
125 112 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddVertices: No vertices added: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
126 113 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
127 114 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
128 115
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
129 116 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
130 117 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
131 118 <span class="i">$This</span><span class="i">-&gt;AddVertex</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
132 119 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
133 120
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
134 121 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
135 122 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
136 123
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
137 124 <span class="c"># Delete a vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
138 <a name="DeleteVertex-"></a> 125 <span class="k">sub </span><span class="m">DeleteVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
139 126 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
140 127
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
141 128 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span> <span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
142 129 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteVertex: No vertex deleted: Vertex ID must be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
143 130 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
144 131 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
145 132 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
146 133 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteVertex: Didn&#39;t delete vertex $VertexID: Vertex $VertexID doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
147 134 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
148 135 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
149 136 <span class="i">$This</span><span class="i">-&gt;_DeleteVertex</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
150 137
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
151 138 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
152 139 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
153 140
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
154 141 <span class="c"># Delete vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
155 <a name="_DeleteVertex-"></a> 142 <span class="k">sub </span><span class="m">_DeleteVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
156 143 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
157 144
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
158 145 <span class="c"># Delete corresponding edges; the corresponding edge properties are deleted during</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
159 146 <span class="c"># edges deletetion...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
160 147 <span class="k">my</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
161 148 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
162 149 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
163 150 <span class="i">$This</span><span class="i">-&gt;DeleteEdges</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
164 151 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
165 152
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
166 153 <span class="c"># Delete the vertex and any properties associated with vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
167 154 <span class="i">$This</span><span class="i">-&gt;DeleteVertexProperties</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
168 155 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
169 156 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
170 157
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
171 158 <span class="c"># Delete vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
172 <a name="DeleteVertices-"></a> 159 <span class="k">sub </span><span class="m">DeleteVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
173 160 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
174 161
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
175 162 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
176 163 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteVertices: No vertices deleted: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
177 164 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
178 165 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
179 166 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
180 167 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
181 168 <span class="i">$This</span><span class="i">-&gt;DeleteVertex</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
182 169 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
183 170
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
184 171 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
185 172 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
186 173
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
187 174 <span class="c"># Get vertex data...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
188 <a name="GetVertex-"></a> 175 <span class="k">sub </span><span class="m">GetVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
189 176 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
190 177
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
191 178 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
192 179 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
193 180 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
194 181
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
195 182 <span class="k">return</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> ? <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>} <span class="co">:</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
196 183 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
197 184
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
198 185 <span class="c"># Get data for all vertices or those specifed in the list. In scalar context, returned</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
199 186 <span class="c"># the number of vertices found.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
200 187 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
201 <a name="GetVertices-"></a> 188 <span class="k">sub </span><span class="m">GetVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
202 189 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
203 190 <span class="k">my</span><span class="s">(</span><span class="i">$ValuesCount</span><span class="cm">,</span> <span class="i">@VertexValues</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
204 191
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
205 192 <span class="i">@VertexValues</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
206 193 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
207 194 <span class="i">@VertexValues</span> = <span class="k">map</span> <span class="s">{</span> <span class="i">$This</span><span class="i">-&gt;GetVertex</span><span class="s">(</span><span class="i">$_</span><span class="s">)</span> <span class="s">}</span> <span class="i">@VertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
208 195 <span class="i">$ValuesCount</span> = <span class="k">grep</span> <span class="s">{</span> <span class="n">1</span> <span class="s">}</span> <span class="i">@VertexValues</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
209 196 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
210 197 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
211 198 <span class="i">@VertexValues</span> = <span class="k">sort</span> <span class="s">{</span> <span class="i">$a</span> &lt;=&gt; <span class="i">$b</span> <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
212 199 <span class="i">$ValuesCount</span> = <span class="i">@VertexValues</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
213 200 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
214 201
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
215 202 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@VertexValues</span> <span class="co">:</span> <span class="i">$ValuesCount</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
216 203 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
217 204
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
218 205 <span class="c"># Is this vertex present?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
219 <a name="HasVertex-"></a> 206 <span class="k">sub </span><span class="m">HasVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
220 207 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
221 208
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
222 209 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
223 210 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
224 211 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
225 212 <span class="k">return</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
226 213 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
227 214
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
228 215 <span class="c"># Are these vertices present? Return an array containing 1 or 0 for each vertex.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
229 216 <span class="c"># In scalar context, return number of vertices found.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
230 <a name="HasVertices-"></a> 217 <span class="k">sub </span><span class="m">HasVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
231 218 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
232 219
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
233 220 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
234 221 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
235 222 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
236 223 <span class="k">my</span><span class="s">(</span><span class="i">$VerticesCount</span><span class="cm">,</span> <span class="i">@VerticesStatus</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
237 224
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
238 225 <span class="i">@VerticesStatus</span> = <span class="k">map</span> <span class="s">{</span> <span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$_</span><span class="s">)</span> <span class="s">}</span> <span class="i">@VertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
239 226 <span class="i">$VerticesCount</span> = <span class="k">grep</span> <span class="s">{</span> <span class="n">1</span> <span class="s">}</span> <span class="i">@VerticesStatus</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
240 227
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
241 228 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@VerticesStatus</span> <span class="co">:</span> <span class="i">$VerticesCount</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
242 229 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
243 230
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
244 231 <span class="c"># Add an edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
245 <a name="AddEdge-"></a> 232 <span class="k">sub </span><span class="m">AddEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
246 233 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
247 234
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
248 235 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
249 236 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddEdge: No edge added: Both vertices must be defined...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
250 237 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
251 238 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
252 239 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
253 240 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddEdge: Didn&#39;t add edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID1 doesn&#39;s exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
254 241 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
255 242 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
256 243 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
257 244 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddEdge: Didn&#39;t add edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID2 doesn&#39;s exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
258 245 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
259 246 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
260 247 <span class="k">if</span> <span class="s">(</span><span class="i">$VertexID1</span> == <span class="i">$VertexID2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
261 248 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddEdge: Didn&#39;t add edge between vertices $VertexID1 and $VertexID2: Vertices must be different...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
262 249 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
263 250 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
264 251 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
265 252 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddEdge: Didn&#39;t add edge between vertices $VertexID1 and $VertexID2: Edge already exists...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
266 253 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
267 254 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
268 255
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
269 256 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
270 257 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
271 258 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
272 259 <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>} = <span class="i">$VertexID2</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
273 260
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
274 261 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
275 262 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
276 263 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
277 264 <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$VertexID1</span>} = <span class="i">$VertexID1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
278 265
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
279 266 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
280 267 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
281 268
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
282 269 <span class="c"># Add edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
283 <a name="AddEdges-"></a> 270 <span class="k">sub </span><span class="m">AddEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
284 271 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
285 272
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
286 273 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
287 274 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddEdges: No edges added: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
288 275 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
289 276 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
290 277 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
291 278 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddEdges: No edges added: Invalid vertices data: Input list must contain even number of vertex IDs...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
292 279 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
293 280 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
294 281 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
295 282 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#VertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
296 283 <span class="i">$VertexID1</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
297 284 <span class="i">$This</span><span class="i">-&gt;AddEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
298 285 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
299 286
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
300 287 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
301 288 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
302 289
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
303 290 <span class="c"># Delete an edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
304 <a name="DeleteEdge-"></a> 291 <span class="k">sub </span><span class="m">DeleteEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
305 292 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
306 293
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
307 294 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
308 295 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;Delete: No edge deleted: Both vertices must be defined...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
309 296 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
310 297 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
311 298 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
312 299 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdge: Didn&#39;t delete edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID1 doesn&#39;s exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
313 300 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
314 301 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
315 302 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
316 303 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdge: Didn&#39;t delete edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID2 doesn&#39;s exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
317 304 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
318 305 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
319 306 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
320 307 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdge: Didn&#39;t delete edge between vertices $VertexID1 and $VertexID2: Edge doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
321 308 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
322 309 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
323 310 <span class="i">$This</span><span class="i">-&gt;_DeleteEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
324 311 <span class="i">$This</span><span class="i">-&gt;_DeleteEdge</span><span class="s">(</span><span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
325 312 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
326 313
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
327 314 <span class="c"># Delete edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
328 <a name="_DeleteEdge-"></a> 315 <span class="k">sub </span><span class="m">_DeleteEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
329 316 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
330 317
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
331 318 <span class="c"># Delete the edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
332 319 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
333 320 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
334 321 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
335 322 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
336 323 <span class="k">if</span> <span class="s">(</span>! <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
337 324 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
338 325 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
339 326 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
340 327
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
341 328 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
342 329 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
343 330 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
344 331 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
345 332 <span class="k">if</span> <span class="s">(</span>! <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
346 333 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
347 334 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
348 335 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
349 336
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
350 337 <span class="c"># Delete properties associated with the edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
351 338 <span class="i">$This</span><span class="i">-&gt;DeleteEdgeProperties</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
352 339 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
353 340
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
354 341 <span class="c"># Delete edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
355 <a name="DeleteEdges-"></a> 342 <span class="k">sub </span><span class="m">DeleteEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
356 343 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
357 344
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
358 345 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
359 346 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdges: No edges deleted: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
360 347 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
361 348 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
362 349 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
363 350 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdges: No edges deleted: Invalid vertices data: Input list must contain even number of vertex IDs...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
364 351 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
365 352 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
366 353 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
367 354 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#VertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
368 355 <span class="i">$VertexID1</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
369 356 <span class="i">$This</span><span class="i">-&gt;DeleteEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
370 357 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
371 358
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
372 359 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
373 360 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
374 361
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
375 362 <span class="c"># Does the edge defiend by a vertex pair exists? Edges defined from VertexID1 to VertecID2</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
376 363 <span class="c"># and VertexID2 to VertexID1 are considered equivalent...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
377 <a name="HasEdge-"></a> 364 <span class="k">sub </span><span class="m">HasEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
378 365 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
379 366
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
380 367 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
381 368 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
382 369 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
383 370
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
384 371 <span class="k">return</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;_HasEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> || <span class="i">$This</span><span class="i">-&gt;_HasEdge</span><span class="s">(</span><span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
385 372 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
386 373
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
387 374 <span class="c"># Does edge exists?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
388 <a name="_HasEdge-"></a> 375 <span class="k">sub </span><span class="m">_HasEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
389 376 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
390 377
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
391 378 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
392 379 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
393 380 <span class="k">return</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
394 381 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
395 382 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
396 383 <span class="k">elsif</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
397 384 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
398 385 <span class="k">return</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
399 386 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
400 387 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
401 388 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
402 389 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
403 390
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
404 391 <span class="c"># Do the edges defiend by vertex pairs exist? In scalar context, return the number</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
405 392 <span class="c"># of edges found...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
406 <a name="HasEdges-"></a> 393 <span class="k">sub </span><span class="m">HasEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
407 394 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
408 395
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
409 396 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
410 397 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
411 398 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
412 399 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
413 400 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
414 401 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
415 402 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Index</span><span class="cm">,</span> <span class="i">$Status</span><span class="cm">,</span> <span class="i">$EdgesCount</span><span class="cm">,</span> <span class="i">@EdgesStatus</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
416 403 <span class="i">@EdgesStatus</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
417 404 <span class="i">$EdgesCount</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
418 405 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#VertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
419 406 <span class="i">$VertexID1</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
420 407 <span class="i">$Status</span> = <span class="i">$This</span><span class="i">-&gt;HasEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
421 408 <span class="k">push</span> <span class="i">@EdgesStatus</span><span class="cm">,</span> <span class="s">(</span><span class="i">$Status</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
422 409 <span class="k">if</span> <span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Status</span><span class="s">)</span> &amp;&amp; <span class="i">$Status</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
423 410 <span class="i">$EdgesCount</span>++<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
424 411 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
425 412 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
426 413 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@EdgesStatus</span> <span class="co">:</span> <span class="i">$EdgesCount</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
427 414 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
428 415
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
429 416 <span class="c"># Get edges for a vertex ID or retrieve all the edges. In scalar context,</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
430 417 <span class="c"># return the number of edges.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
431 418 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
432 <a name="GetEdges-"></a> 419 <span class="k">sub </span><span class="m">GetEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
433 420 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
434 421 <span class="k">my</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
435 422
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
436 423 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
437 424 <span class="k">if</span> <span class="s">(</span><span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
438 425 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;_GetEdgesFrom</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;_GetEdgesTo</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
439 426 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
440 427 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
441 428 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;_GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
442 429 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
443 430 <span class="k">return</span> <span class="s">(</span><span class="k">wantarray</span> ? <span class="i">@VertexIDs</span> <span class="co">:</span> <span class="i">@VertexIDs</span>/<span class="n">2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
444 431 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
445 432
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
446 433 <span class="c"># Get edge starting from the vertex to its successor vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
447 <a name="_GetEdgesFrom-"></a> 434 <span class="k">sub </span><span class="m">_GetEdgesFrom</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
448 435 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
449 436 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span> = <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
450 437
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
451 438 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEdges</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
452 439 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
453 440
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
454 441 <span class="c"># Get edge starting from predecessors to the vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
455 <a name="_GetEdgesTo-"></a> 442 <span class="k">sub </span><span class="m">_GetEdgesTo</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
456 443 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
457 444 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> = <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
458 445
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
459 446 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEdges</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
460 447 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
461 448
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
462 449 <span class="c"># Get edges as pair of vertex IDs. Edges data can be retrieved in three</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
463 450 <span class="c"># different ways:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
464 451 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
465 452 <span class="c"># Both vertex IDs are defined: Returns existing edge between the vertices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
466 453 <span class="c"># Only first vertex ID defined: Returns all edges at the vertex</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
467 454 <span class="c"># Only second vertex defined: Returns all edges at the vertex</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
468 455 <span class="c"># No vertex IDs defined: Returns all edges</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
469 456 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
470 <a name="_GetEdges-"></a> 457 <span class="k">sub </span><span class="m">_GetEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
471 458 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
472 459 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
473 460
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
474 461 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
475 462
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
476 463 <span class="k">if</span> <span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
477 464 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
478 465 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
479 466 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
480 467 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
481 468 <span class="k">elsif</span> <span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
482 469 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;_GetNeighborsFrom</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
483 470 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;_GetEdges</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
484 471 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
485 472 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
486 473 <span class="k">elsif</span> <span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
487 474 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;_GetNeighborsTo</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
488 475 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;_GetEdges</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
489 476 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
490 477 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
491 478 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
492 479 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
493 480 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;_GetEdges</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
494 481 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
495 482 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
496 483
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
497 484 <span class="k">return</span> <span class="i">@VertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
498 485 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
499 486
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
500 487 <span class="c"># Add edges between successive pair of vertex IDs......</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
501 <a name="AddPath-"></a> 488 <span class="k">sub </span><span class="m">AddPath</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
502 489 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
503 490
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
504 491 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
505 492 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddPath: No path added: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
506 493 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
507 494 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
508 495 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
509 496 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddPath: No path added: Invalid vertices data: Input list must contain more than on vertex ID...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
510 497 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
511 498 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
512 499 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
513 500 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddPath: No path added: Some of the vertex IDs don&#39;t exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
514 501 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
515 502 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
516 503 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasPath</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
517 504 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddPath: No path added: Path already exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
518 505 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
519 506 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
520 507 <span class="k">my</span><span class="s">(</span><span class="i">@PathVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
521 508 <span class="i">@PathVertexIDs</span> =<span class="i">$This</span><span class="i">-&gt; _SetupPathVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
522 509
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
523 510 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;AddEdges</span><span class="s">(</span><span class="i">@PathVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
524 511 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
525 512
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
526 513
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
527 514 <span class="c"># Delete edges between successive pair of vertex IDs......</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
528 <a name="DeletePath-"></a> 515 <span class="k">sub </span><span class="m">DeletePath</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
529 516 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
530 517
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
531 518 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
532 519 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeletePath: No path deleted: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
533 520 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
534 521 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
535 522 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
536 523 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeletePath: No path deleted: Invalid vertices data: Input list must contain more than on vertex ID...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
537 524 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
538 525 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
539 526 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
540 527 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeletePath: No path deleted: Some of the vertex IDs don&#39;t exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
541 528 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
542 529 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
543 530 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasPath</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
544 531 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeletePath: No path deleted: Path doesn&#39;t exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
545 532 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
546 533 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
547 534 <span class="k">my</span><span class="s">(</span><span class="i">@PathVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
548 535 <span class="i">@PathVertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;_SetupPathVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
549 536
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
550 537 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;DeleteEdges</span><span class="s">(</span><span class="i">@PathVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
551 538 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
552 539
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
553 540 <span class="c"># Does the path defiend by edges between successive pairs of vertex IDs exist?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
554 <a name="HasPath-"></a> 541 <span class="k">sub </span><span class="m">HasPath</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
555 542 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
556 543
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
557 544 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
558 545 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
559 546 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
560 547 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
561 548 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
562 549 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
563 550 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
564 551 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
565 552 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
566 553 <span class="k">my</span><span class="s">(</span><span class="i">$Status</span><span class="cm">,</span> <span class="i">@PathVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
567 554 <span class="i">@PathVertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;_SetupPathVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
568 555 <span class="i">$Status</span> = <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasEdges</span><span class="s">(</span><span class="i">@PathVertexIDs</span><span class="s">)</span> == <span class="s">(</span><span class="i">@PathVertexIDs</span>/<span class="n">2</span><span class="s">)</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
569 556
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
570 557 <span class="k">return</span> <span class="i">$Status</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
571 558 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
572 559
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
573 560 <span class="c"># Setup vertices for the path to define edges between successive pair of vertex IDs...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
574 <a name="_SetupPathVertices-"></a> 561 <span class="k">sub </span><span class="m">_SetupPathVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
575 562 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
576 563 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Index</span><span class="cm">,</span> <span class="i">@PathVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
577 564
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
578 565 <span class="i">@PathVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
579 566 <span class="k">for</span> <span class="i">$Index</span> <span class="s">(</span><span class="n">0</span> .. <span class="s">(</span><span class="i">$#VertexIDs</span> - <span class="n">1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
580 567 <span class="i">$VertexID1</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
581 568 <span class="i">$VertexID2</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
582 569 <span class="k">push</span> <span class="i">@PathVertexIDs</span><span class="cm">,</span> <span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
583 570 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
584 571
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
585 572 <span class="k">return</span> <span class="i">@PathVertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
586 573 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
587 574
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
588 575 <span class="c"># Add edges between successive pair of vertex IDs and an additional edge from the last to</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
589 576 <span class="c"># the first ID to complete the cycle......</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
590 <a name="AddCycle-"></a> 577 <span class="k">sub </span><span class="m">AddCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
591 578 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
592 579
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
593 580 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
594 581 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddCycle: No cycle added: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
595 582 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
596 583 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
597 584 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
598 585 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddCycle: No cycle added: Invalid vertices data: Input list must contain more than on vertex ID...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
599 586 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
600 587 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
601 588 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
602 589 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddCycle: No cycle added: Some of the vertex IDs don&#39;t exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
603 590 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
604 591 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
605 592 <span class="k">my</span><span class="s">(</span><span class="i">$FirstVertextID</span><span class="s">)</span> = <span class="i">$VertexIDs</span>[<span class="n">0</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
606 593 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="s">(</span><span class="i">$FirstVertextID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
607 594
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
608 595 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasCycle</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
609 596 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;AddCycle: No cycle added: Cycle already exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
610 597 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
611 598 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
612 599
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
613 600 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;AddPath</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
614 601 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
615 602
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
616 603 <span class="c"># Delete edges between successive pair of vertex IDs and an additional edge from the last to</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
617 604 <span class="c"># the first ID to complete the cycle......</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
618 <a name="DeleteCycle-"></a> 605 <span class="k">sub </span><span class="m">DeleteCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
619 606 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
620 607
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
621 608 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
622 609 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteCycle: No cycle deleted: Vertices list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
623 610 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
624 611 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
625 612 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
626 613 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteCycle: No cycle deleted: Invalid vertices data: Input list must contain more than on vertex ID...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
627 614 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
628 615 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
629 616 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertices</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
630 617 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteCycle: No cycle deleted: Some of the vertex IDs don&#39;t exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
631 618 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
632 619 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
633 620 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasCycle</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
634 621 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteCycle: No cycle deleted: Cycle doesn&#39;t exist in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
635 622 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
636 623 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
637 624
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
638 625 <span class="k">my</span><span class="s">(</span><span class="i">$FirstVertextID</span><span class="s">)</span> = <span class="i">$VertexIDs</span>[<span class="n">0</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
639 626 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="s">(</span><span class="i">$FirstVertextID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
640 627
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
641 628 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;DeletePath</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
642 629 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
643 630
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
644 631 <span class="c"># Does the cycle defiend by edges between successive pairs of vertex IDs along with an additional</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
645 632 <span class="c"># edge from last to first vertex ID exist?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
646 <a name="HasCycle-"></a> 633 <span class="k">sub </span><span class="m">HasCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
647 634 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
648 635
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
649 636 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
650 637 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
651 638 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
652 639 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
653 640 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
654 641 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
655 642 <span class="k">my</span><span class="s">(</span><span class="i">$FirstVertextID</span><span class="s">)</span> = <span class="i">$VertexIDs</span>[<span class="n">0</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
656 643 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="s">(</span><span class="i">$FirstVertextID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
657 644
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
658 645 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;HasPath</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
659 646 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
660 647
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
661 648 <span class="c"># Get neighbors...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
662 <a name="GetNeighbors-"></a> 649 <span class="k">sub </span><span class="m">GetNeighbors</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
663 650 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
664 651
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
665 652 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
666 653 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
667 654 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
668 655 <span class="k">if</span> <span class="s">(</span>! <span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
669 656 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
670 657 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
671 658
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
672 659 <span class="c"># Get a list of unsorted vertices and sort &#39;em once before returning...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
673 660 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
674 661 <span class="k">my</span><span class="s">(</span><span class="i">$VerticesCount</span><span class="cm">,</span> <span class="i">$SortVertices</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
675 662
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
676 663 <span class="i">$SortVertices</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
677 664 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
678 665
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
679 666 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;_GetNeighborsFrom</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$SortVertices</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
680 667 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;_GetNeighborsTo</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$SortVertices</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
681 668 <span class="i">$VerticesCount</span> = <span class="i">@VertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
682 669
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
683 670 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="k">sort</span> <span class="s">{</span><span class="i">$a</span> &lt;=&gt; <span class="i">$b</span><span class="s">}</span> <span class="i">@VertexIDs</span> <span class="co">:</span> <span class="i">$VerticesCount</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
684 671 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
685 672
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
686 673 <span class="c"># Get neighbors added by defining edges from the vertex. For undirected graph, it has no</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
687 674 <span class="c"># strict meaning...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
688 <a name="_GetNeighborsFrom-"></a> 675 <span class="k">sub </span><span class="m">_GetNeighborsFrom</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
689 676 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$SortVertices</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
690 677 <span class="k">my</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
691 678
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
692 679 <span class="i">$SortVertices</span> = <span class="k">defined</span> <span class="i">$SortVertices</span> ? <span class="i">$SortVertices</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
693 680 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
694 681
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
695 682 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
696 683 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="k">map</span> <span class="s">{</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID</span>}-&gt;{<span class="i">$_</span>} <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
697 684 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
698 685 <span class="k">return</span> <span class="i">$SortVertices</span> ? <span class="k">sort</span> <span class="s">{</span><span class="i">$a</span> &lt;=&gt; <span class="i">$b</span><span class="s">}</span> <span class="i">@VertexIDs</span> <span class="co">:</span> <span class="i">@VertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
699 686 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
700 687
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
701 688 <span class="c"># Get neighbors added by defining edges to the vertex. For undirected graphs, it has no</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
702 689 <span class="c"># strict meaning.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
703 <a name="_GetNeighborsTo-"></a> 690 <span class="k">sub </span><span class="m">_GetNeighborsTo</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
704 691 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$SortVertices</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
705 692 <span class="k">my</span><span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
706 693
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
707 694 <span class="i">$SortVertices</span> = <span class="k">defined</span> <span class="i">$SortVertices</span> ? <span class="i">$SortVertices</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
708 695 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
709 696
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
710 697 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
711 698 <span class="k">push</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="k">map</span> <span class="s">{</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID</span>}-&gt;{<span class="i">$_</span>} <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
712 699 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
713 700 <span class="k">return</span> <span class="i">$SortVertices</span> ? <span class="k">sort</span> <span class="s">{</span><span class="i">$a</span> &lt;=&gt; <span class="i">$b</span><span class="s">}</span> <span class="i">@VertexIDs</span> <span class="co">:</span> <span class="i">@VertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
714 701 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
715 702
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
716 703 <span class="c"># Get vertex degree...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
717 704 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
718 <a name="GetDegree-"></a> 705 <span class="k">sub </span><span class="m">GetDegree</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
719 706 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
720 707
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
721 708 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
722 709 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
723 710 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
724 711 <span class="k">if</span> <span class="s">(</span>! <span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
725 712 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
726 713 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
727 714 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
728 715 <span class="i">$Degree</span> = <span class="i">$This</span><span class="i">-&gt;_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">-&gt;_GetOutDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
729 716
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
730 717 <span class="k">return</span> <span class="i">$Degree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
731 718 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
732 719
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
733 720 <span class="c"># Get in degree added by defining edges to the vertex. For undirected graphs, it has no</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
734 721 <span class="c"># strict meaning.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
735 722 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
736 <a name="_GetInDegree-"></a> 723 <span class="k">sub </span><span class="m">_GetInDegree</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
737 724 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
738 725 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
739 726
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
740 727 <span class="i">$Degree</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
741 728 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
742 729 <span class="i">$Degree</span> = <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">To</span>}-&gt;{<span class="i">$VertexID</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
743 730 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
744 731 <span class="k">return</span> <span class="i">$Degree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
745 732 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
746 733
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
747 734 <span class="c"># Get out degree added by defining edges from the vertex. For undirected graphs, it has no</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
748 735 <span class="c"># strict meaning.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
749 736 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
750 <a name="_GetOutDegree-"></a> 737 <span class="k">sub </span><span class="m">_GetOutDegree</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
751 738 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
752 739 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
753 740
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
754 741 <span class="i">$Degree</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
755 742 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
756 743 <span class="i">$Degree</span> = <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Edges</span>}-&gt;{<span class="w">From</span>}-&gt;{<span class="i">$VertexID</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
757 744 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
758 745 <span class="k">return</span> <span class="i">$Degree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
759 746 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
760 747
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
761 748 <span class="c"># Get vertex with smallest degree...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
762 749 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
763 <a name="GetVertexWithSmallestDegree-"></a> 750 <span class="k">sub </span><span class="m">GetVertexWithSmallestDegree</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
764 751 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
765 752 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="cm">,</span> <span class="i">$SmallestDegree</span><span class="cm">,</span> <span class="i">$SmallestDegreeVertexID</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
766 753
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
767 754 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
768 755 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
769 756 <span class="k">if</span> <span class="s">(</span>! <span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
770 757 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
771 758 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
772 759 <span class="i">$SmallestDegree</span> = <span class="n">99999</span><span class="sc">;</span> <span class="i">$SmallestDegreeVertexID</span> = <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
773 760
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
774 761 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
775 762 <span class="i">$Degree</span> = <span class="i">$This</span><span class="i">-&gt;_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">-&gt;_GetOutDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
776 763 <span class="k">if</span> <span class="s">(</span><span class="i">$Degree</span> &lt; <span class="i">$SmallestDegree</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
777 764 <span class="i">$SmallestDegree</span> = <span class="i">$Degree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
778 765 <span class="i">$SmallestDegreeVertexID</span> = <span class="i">$VertexID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
779 766 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
780 767 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
781 768 <span class="k">return</span> <span class="i">$SmallestDegreeVertexID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
782 769 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
783 770
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
784 771 <span class="c"># Get vertex with largest degree...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
785 772 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
786 <a name="GetVertexWithLargestDegree-"></a> 773 <span class="k">sub </span><span class="m">GetVertexWithLargestDegree</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
787 774 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
788 775 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="cm">,</span> <span class="i">$LargestDegree</span><span class="cm">,</span> <span class="i">$LargestDegreeVertexID</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
789 776
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
790 777 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
791 778 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
792 779 <span class="k">if</span> <span class="s">(</span>! <span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
793 780 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
794 781 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
795 782 <span class="i">$LargestDegree</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$LargestDegreeVertexID</span> = <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
796 783
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
797 784 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
798 785 <span class="i">$Degree</span> = <span class="i">$This</span><span class="i">-&gt;_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">-&gt;_GetOutDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
799 786 <span class="k">if</span> <span class="s">(</span><span class="i">$Degree</span> &gt; <span class="i">$LargestDegree</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
800 787 <span class="i">$LargestDegree</span> = <span class="i">$Degree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
801 788 <span class="i">$LargestDegreeVertexID</span> = <span class="i">$VertexID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
802 789 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
803 790 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
804 791 <span class="k">return</span> <span class="i">$LargestDegreeVertexID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
805 792 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
806 793
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
807 794 <span class="c"># Get maximum degree in the graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
808 795 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
809 <a name="GetMaximumDegree-"></a> 796 <span class="k">sub </span><span class="m">GetMaximumDegree</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
810 797 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
811 798 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="cm">,</span> <span class="i">$MaximumDegree</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
812 799
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
813 800 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
814 801 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
815 802 <span class="k">if</span> <span class="s">(</span>! <span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
816 803 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
817 804 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
818 805 <span class="i">$MaximumDegree</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
819 806
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
820 807 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
821 808 <span class="i">$Degree</span> = <span class="i">$This</span><span class="i">-&gt;GetDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
822 809 <span class="k">if</span> <span class="s">(</span><span class="i">$Degree</span> &gt; <span class="i">$MaximumDegree</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
823 810 <span class="i">$MaximumDegree</span> = <span class="i">$Degree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
824 811 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
825 812 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
826 813 <span class="k">return</span> <span class="i">$MaximumDegree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
827 814 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
828 815
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
829 816 <span class="c"># Get minimum degree in the graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
830 817 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
831 <a name="GetMininumDegree-"></a> 818 <span class="k">sub </span><span class="m">GetMininumDegree</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
832 819 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
833 820 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="cm">,</span> <span class="i">$MininumDegree</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
834 821
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
835 822 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
836 823 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
837 824 <span class="k">if</span> <span class="s">(</span>! <span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
838 825 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
839 826 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
840 827 <span class="i">$MininumDegree</span> = <span class="n">99999</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
841 828
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
842 829 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
843 830 <span class="i">$Degree</span> = <span class="i">$This</span><span class="i">-&gt;GetDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
844 831 <span class="k">if</span> <span class="s">(</span><span class="i">$Degree</span> &lt; <span class="i">$MininumDegree</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
845 832 <span class="i">$MininumDegree</span> = <span class="i">$Degree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
846 833 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
847 834 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
848 835 <span class="k">return</span> <span class="i">$MininumDegree</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
849 836 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
850 837
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
851 838 <span class="c"># Is it a isolated vertex?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
852 839 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
853 <a name="IsIsolatedVertex-"></a> 840 <span class="k">sub </span><span class="m">IsIsolatedVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
854 841 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
855 842
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
856 843 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
857 844 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
858 845 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
859 846 <span class="k">if</span> <span class="s">(</span>! <span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
860 847 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
861 848 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
862 849 <span class="k">return</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;GetDegree</span><span class="s">(</span><span class="s">)</span> == <span class="n">0</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
863 850 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
864 851
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
865 852 <span class="c"># Get all isolated vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
866 853 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
867 <a name="GetIsolatedVertices-"></a> 854 <span class="k">sub </span><span class="m">GetIsolatedVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
868 855 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
869 856
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
870 857 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetVerticesWithDegreeLessThan</span><span class="s">(</span><span class="n">1</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
871 858 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
872 859
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
873 860 <span class="c"># Is it a leaf vertex?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
874 861 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
875 <a name="IsLeafVertex-"></a> 862 <span class="k">sub </span><span class="m">IsLeafVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
876 863 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
877 864
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
878 865 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
879 866 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
880 867 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
881 868 <span class="k">if</span> <span class="s">(</span>! <span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
882 869 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
883 870 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
884 871 <span class="k">return</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;GetDegree</span><span class="s">(</span><span class="s">)</span> == <span class="n">1</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
885 872 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
886 873
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
887 874 <span class="c"># Get all leaf vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
888 875 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
889 <a name="GetLeafVertices-"></a> 876 <span class="k">sub </span><span class="m">GetLeafVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
890 877 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
891 878
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
892 879 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetVerticesWithDegreeLessThan</span><span class="s">(</span><span class="n">2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
893 880 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
894 881
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
895 882 <span class="c"># Get vertices with degree less than a specified value...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
896 883 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
897 <a name="GetVerticesWithDegreeLessThan-"></a> 884 <span class="k">sub </span><span class="m">GetVerticesWithDegreeLessThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
898 885 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$SpecifiedDegree</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
899 886 <span class="k">my</span><span class="s">(</span><span class="i">$Degree</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">@FilteredVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
900 887
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
901 888 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">@FilteredVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
902 889
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
903 890 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
904 891 <span class="k">if</span> <span class="s">(</span>! <span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
905 892 <span class="k">return</span> <span class="i">@FilteredVertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
906 893 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
907 894
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
908 895 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
909 896 <span class="i">$Degree</span> = <span class="i">$This</span><span class="i">-&gt;_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">-&gt;_GetOutDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
910 897 <span class="k">if</span> <span class="s">(</span><span class="i">$Degree</span> &lt; <span class="i">$SpecifiedDegree</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
911 898 <span class="k">push</span> <span class="i">@FilteredVertexIDs</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
912 899 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
913 900 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
914 901 <span class="k">return</span> <span class="i">@FilteredVertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
915 902 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
916 903
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
917 904 <span class="c"># Set a property for graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
918 <a name="SetGraphProperty-"></a> 905 <span class="k">sub </span><span class="m">SetGraphProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
919 906 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
920 907
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
921 908 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
922 909 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetGraphProperty: Didn&#39;t set property: Both property name and value should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
923 910 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
924 911 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
925 912 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}-&gt;{<span class="i">$Name</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
926 913 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetGraphProperty: Didn&#39;t set property $Name: Already exists in the graph...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
927 914 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
928 915 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
929 916
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
930 917 <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}-&gt;{<span class="i">$Name</span>} = <span class="i">$Value</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
931 918
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
932 919 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
933 920 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
934 921
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
935 922 <span class="c"># Set a properties for graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
936 <a name="SetGraphProperties-"></a> 923 <span class="k">sub </span><span class="m">SetGraphProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
937 924 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">%NamesAndValues</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
938 925
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
939 926 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">keys</span> <span class="i">%NamesAndValues</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
940 927 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetGraphProperties: Didn&#39;t set properties: Names and values list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
941 928 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
942 929 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
943 930
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
944 931 <span class="k">my</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
945 932 <span class="k">while</span> <span class="s">(</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span> = <span class="k">each</span> <span class="i">%NamesAndValues</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
946 933 <span class="i">$This</span><span class="i">-&gt;SetGraphProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
947 934 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
948 935
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
949 936 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
950 937 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
951 938
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
952 939 <span class="c"># Get a property value for graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
953 <a name="GetGraphProperty-"></a> 940 <span class="k">sub </span><span class="m">GetGraphProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
954 941 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
955 942
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
956 943 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
957 944 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
958 945 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
959 946
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
960 947 <span class="k">return</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}-&gt;{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
961 948 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
962 949
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
963 950 <span class="c"># Get all poperty name/value pairs for graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
964 <a name="GetGraphProperties-"></a> 951 <span class="k">sub </span><span class="m">GetGraphProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
965 952 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
966 953
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
967 954 <span class="k">return</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
968 955 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
969 956
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
970 957 <span class="c"># Delete a property for graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
971 <a name="DeleteGraphProperty-"></a> 958 <span class="k">sub </span><span class="m">DeleteGraphProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
972 959 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
973 960
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
974 961 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
975 962 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteGraphProperty: Didn&#39;t delete graph property: Name must be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
976 963 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
977 964 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
978 965 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
979 966 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt; DeleteGraphProperty: Didn&#39;t delete graph property $Name: Property doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
980 967 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
981 968 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
982 969 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}-&gt;{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
983 970
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
984 971 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
985 972 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
986 973
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
987 974 <span class="c"># Delete graph properites...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
988 <a name="DeleteGraphProperties-"></a> 975 <span class="k">sub </span><span class="m">DeleteGraphProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
989 976 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
990 977
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
991 978 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
992 979
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
993 980 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
994 981 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
995 982
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
996 983
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
997 984 <span class="c"># Is this property associated with graph?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
998 <a name="HasGraphProperty-"></a> 985 <span class="k">sub </span><span class="m">HasGraphProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
999 986 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1000 987
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1001 988 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1002 989 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1003 990 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1004 991 <span class="k">return</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Graph</span>}-&gt;{<span class="i">$Name</span>}<span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1005 992 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1006 993
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1007 994 <span class="c"># Set a property for vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1008 <a name="SetVertexProperty-"></a> 995 <span class="k">sub </span><span class="m">SetVertexProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1009 996 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1010 997
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1011 998 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1012 999 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVertexProperty: Didn&#39;t set property: Property name, value and vertexID should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1013 1000 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1014 1001 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1015 1002 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1016 1003 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVertexProperty: Didn&#39;t set property $Name for vertex $VertexID: Vertex doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1017 1004 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1018 1005 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1019 1006 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1020 1007 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVertexProperty: Didn&#39;t set property $Name for vertex $VertexID: Property already exists...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1021 1008 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1022 1009 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1023 1010
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1024 1011 <span class="i">$This</span><span class="i">-&gt;_SetVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1025 1012
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1026 1013 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1027 1014 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1028 1015
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1029 1016 <span class="c"># Update a property for vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1030 <a name="UpdateVertexProperty-"></a>1017 <span class="k">sub </span><span class="m">UpdateVertexProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1031 1018 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1032 1019
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1033 1020 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1034 1021 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;UpdateVextexProperty: Didn&#39;t update property: Property name, value and vertexID should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1035 1022 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1036 1023 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1037 1024 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1038 1025 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;UpdateVextexProperty: Didn&#39;t update property $Name for vertex $VertexID: Vertex doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1039 1026 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1040 1027 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1041 1028 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1042 1029 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;UpdateVextexProperty: Didn&#39;t update property $Name for vertex $VertexID: Property doesn&#39;t exists...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1043 1030 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1044 1031 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1045 1032 <span class="i">$This</span><span class="i">-&gt;_SetVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1046 1033
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1047 1034 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1048 1035 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1049 1036
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1050 1037 <span class="c"># Set a vextex property...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1051 <a name="_SetVertexProperty-"></a>1038 <span class="k">sub </span><span class="m">_SetVertexProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1052 1039 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1053 1040
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1054 1041 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1055 1042 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1056 1043 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1057 1044 <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}-&gt;{<span class="i">$Name</span>} = <span class="i">$Value</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1058 1045
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1059 1046 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1060 1047 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1061 1048
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1062 1049 <span class="c"># Set a properties for vertex..</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1063 <a name="SetVertexProperties-"></a>1050 <span class="k">sub </span><span class="m">SetVertexProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1064 1051 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@NamesAndValues</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1065 1052
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1066 1053 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1067 1054 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVertexProperties: Didn&#39;t set property: VertexID should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1068 1055 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1069 1056 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1070 1057 <span class="k">if</span> <span class="s">(</span>!<span class="i">@NamesAndValues</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1071 1058 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVertexProperties: Didn&#39;t set property: Names and values list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1072 1059 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1073 1060 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1074 1061 <span class="k">if</span> <span class="s">(</span><span class="i">@NamesAndValues</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1075 1062 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVertexProperties: Didn&#39;t set property: Invalid property name and values IDs data: Input list must contain even number of values...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1076 1063 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1077 1064 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1078 1065
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1079 1066 <span class="k">my</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1080 1067 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#NamesAndValues</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1081 1068 <span class="i">$Name</span> = <span class="i">$NamesAndValues</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$Value</span> = <span class="i">$NamesAndValues</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1082 1069 <span class="i">$This</span><span class="i">-&gt;SetVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1083 1070 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1084 1071
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1085 1072 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1086 1073 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1087 1074
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1088 1075
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1089 1076 <span class="c"># Set a property for vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1090 <a name="SetVerticesProperty-"></a>1077 <span class="k">sub </span><span class="m">SetVerticesProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1091 1078 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">@ValuesAndVertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1092 1079
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1093 1080 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1094 1081 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVerticesProperty: Didn&#39;t set property: Property name should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1095 1082 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1096 1083 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1097 1084 <span class="k">if</span> <span class="s">(</span>!<span class="i">@ValuesAndVertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1098 1085 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVerticesProperty: Didn&#39;t set property: Values and vertex IDs list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1099 1086 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1100 1087 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1101 1088 <span class="k">if</span> <span class="s">(</span><span class="i">@ValuesAndVertexIDs</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1102 1089 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetVerticesProperty: Didn&#39;t set property: Invalid property values and vertex IDs data: Input list must contain even number of values...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1103 1090 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1104 1091 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1105 1092
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1106 1093 <span class="k">my</span><span class="s">(</span><span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1107 1094 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#ValuesAndVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1108 1095 <span class="i">$Value</span> = <span class="i">$ValuesAndVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID</span> = <span class="i">$ValuesAndVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1109 1096 <span class="i">$This</span><span class="i">-&gt;SetVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1110 1097 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1111 1098
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1112 1099 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1113 1100 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1114 1101
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1115 1102 <span class="c"># Get a property value for vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1116 <a name="GetVertexProperty-"></a>1103 <span class="k">sub </span><span class="m">GetVertexProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1117 1104 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1118 1105
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1119 1106 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1120 1107 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1121 1108 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1122 1109
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1123 1110 <span class="k">return</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}-&gt;{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1124 1111 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1125 1112
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1126 1113 <span class="c"># Get a property values for vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1127 <a name="GetVerticesProperty-"></a>1114 <span class="k">sub </span><span class="m">GetVerticesProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1128 1115 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1129 1116 <span class="k">my</span><span class="s">(</span><span class="i">$ValuesCount</span><span class="cm">,</span> <span class="i">@Values</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1130 1117
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1131 1118 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1132 1119 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1133 1120 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1134 1121 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1135 1122 <span class="i">@Values</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1136 1123 <span class="i">@Values</span> = <span class="k">map</span> <span class="s">{</span> <span class="i">$This</span><span class="i">-&gt;GetVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$_</span> <span class="s">)</span> <span class="s">}</span> <span class="i">@VertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1137 1124 <span class="i">$ValuesCount</span> = <span class="k">grep</span> <span class="s">{</span> <span class="k">defined</span><span class="s">(</span><span class="i">$_</span><span class="s">)</span> <span class="s">}</span> <span class="i">@Values</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1138 1125
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1139 1126 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@Values</span> <span class="co">:</span> <span class="i">$ValuesCount</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1140 1127 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1141 1128
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1142 1129 <span class="c"># Get all property name/values pairs for vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1143 <a name="GetVertexProperties-"></a>1130 <span class="k">sub </span><span class="m">GetVertexProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1144 1131 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1145 1132
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1146 1133 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertex</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1147 1134 <span class="k">return</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1148 1135 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1149 1136
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1150 1137 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1151 1138 <span class="k">return</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1152 1139 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1153 1140 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1154 1141 <span class="k">return</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1155 1142 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1156 1143 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1157 1144
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1158 1145
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1159 1146 <span class="c"># Delete a property for vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1160 <a name="DeleteVertexProperty-"></a>1147 <span class="k">sub </span><span class="m">DeleteVertexProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1161 1148 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1162 1149
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1163 1150 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1164 1151 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteVertexProperty: Didn&#39;t delete property: Property name and vertex ID must be defined...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1165 1152 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1166 1153 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1167 1154 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1168 1155 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteVertexProperty: Didn&#39;t delete property $Name for vertex $VertexID: Vertex property doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1169 1156 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1170 1157 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1171 1158 <span class="i">$This</span><span class="i">-&gt;_DeleteVertexProperty</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1172 1159
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1173 1160 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1174 1161 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1175 1162
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1176 1163 <span class="c"># Delete vertex property or all properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1177 <a name="_DeleteVertexProperty-"></a>1164 <span class="k">sub </span><span class="m">_DeleteVertexProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1178 1165 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1179 1166
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1180 1167 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1181 1168 <span class="k">if</span> <span class="s">(</span><span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1182 1169 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}-&gt;{<span class="i">$Name</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1183 1170 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}-&gt;{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1184 1171 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1185 1172 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1186 1173 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1187 1174 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1188 1175 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1189 1176 <span class="k">if</span> <span class="s">(</span>! <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1190 1177 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1191 1178 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1192 1179 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1193 1180 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1194 1181 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1195 1182
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1196 1183 <span class="c"># Delete a property for specified vertices or all the vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1197 <a name="DeleteVerticesProperty-"></a>1184 <span class="k">sub </span><span class="m">DeleteVerticesProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1198 1185 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1199 1186
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1200 1187 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1201 1188 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteVerticesProperty: Didn&#39;t delete property: Property name should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1202 1189 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1203 1190 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1204 1191 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1205 1192 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1206 1193 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1207 1194 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1208 1195 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1209 1196 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1210 1197 <span class="i">$This</span><span class="i">-&gt;DeleteVertexProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1211 1198 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1212 1199
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1213 1200 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1214 1201 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1215 1202
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1216 1203 <span class="c"># Delete all properities for vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1217 <a name="DeleteVertexProperties-"></a>1204 <span class="k">sub </span><span class="m">DeleteVertexProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1218 1205 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1219 1206
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1220 1207 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$VertexID</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1221 1208 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteVertexProperties: Didn&#39;t delete properties: Vertex ID must be defined...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1222 1209 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1223 1210 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1224 1211 <span class="i">$This</span><span class="i">-&gt;_DeleteVertexProperty</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1225 1212
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1226 1213 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1227 1214 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1228 1215
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1229 1216 <span class="c"># Is this property associated with vertex?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1230 <a name="HasVertexProperty-"></a>1217 <span class="k">sub </span><span class="m">HasVertexProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1231 1218 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1232 1219
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1233 1220 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1234 1221 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1235 1222 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1236 1223
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1237 1224 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1238 1225 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Vertices</span>}-&gt;{<span class="i">$VertexID</span>}-&gt;{<span class="i">$Name</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1239 1226 <span class="k">return</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1240 1227 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1241 1228 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1242 1229 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1243 1230 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1244 1231
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1245 1232 <span class="c"># Set a property for edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1246 <a name="SetEdgeProperty-"></a>1233 <span class="k">sub </span><span class="m">SetEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1247 1234 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1248 1235
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1249 1236 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1250 1237 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgeProperty: Didn&#39;t set property: Property name, value, vertexID1 and vertexID2 should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1251 1238 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1252 1239 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1253 1240 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1254 1241 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgeProperty: Didn&#39;t set property $Name for edge between vertices $VertexID1 and $VertexID2: Edge doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1255 1242 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1256 1243 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1257 1244 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1258 1245 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgeProperty: Didn&#39;t set property $Name for edge between vertices $VertexID1 and $VertexID2: Edge property already exists...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1259 1246 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1260 1247 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1261 1248 <span class="i">$This</span><span class="i">-&gt;_SetEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1262 1249 <span class="i">$This</span><span class="i">-&gt;_SetEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1263 1250
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1264 1251 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1265 1252 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1266 1253
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1267 1254 <span class="c"># Update a property for edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1268 <a name="UpdateEdgeProperty-"></a>1255 <span class="k">sub </span><span class="m">UpdateEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1269 1256 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1270 1257
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1271 1258 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1272 1259 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;UpdateEdgeProperty: Didn&#39;t update property: Property name, value, vertexID1 and vertexID2 should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1273 1260 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1274 1261 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1275 1262 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdge</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1276 1263 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;UpdateEdgeProperty: Didn&#39;t update property $Name for edge between vertices $VertexID1 and $VertexID2: Edge doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1277 1264 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1278 1265 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1279 1266 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1280 1267 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;UpdateEdgeProperty: Didn&#39;t update property $Name for edge between vertices $VertexID1 and $VertexID2: Edge property doesn&#39;t exists...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1281 1268 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1282 1269 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1283 1270 <span class="i">$This</span><span class="i">-&gt;_SetEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1284 1271 <span class="i">$This</span><span class="i">-&gt;_SetEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1285 1272
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1286 1273 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1287 1274 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1288 1275 <span class="c"># Set a property for edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1289 <a name="SetEdgesProperty-"></a>1276 <span class="k">sub </span><span class="m">SetEdgesProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1290 1277 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">@ValuesAndVertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1291 1278
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1292 1279 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1293 1280 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgesProperty: Didn&#39;t set property: Property name should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1294 1281 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1295 1282 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1296 1283 <span class="k">if</span> <span class="s">(</span>!<span class="i">@ValuesAndVertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1297 1284 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgesProperty: Didn&#39;t set property: Values and vertex IDs list is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1298 1285 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1299 1286 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1300 1287 <span class="k">if</span> <span class="s">(</span><span class="i">@ValuesAndVertexIDs</span> % <span class="n">3</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1301 1288 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgesProperty: Didn&#39;t set property: Invalid property values and vertex IDs data: Input list must contain triplets of values...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1302 1289 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1303 1290 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1304 1291
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1305 1292 <span class="k">my</span><span class="s">(</span><span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1306 1293 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#ValuesAndVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">3</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1307 1294 <span class="i">$Value</span> = <span class="i">$ValuesAndVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1308 1295 <span class="i">$VertexID1</span> = <span class="i">$ValuesAndVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$ValuesAndVertexIDs</span>[<span class="i">$Index</span> + <span class="n">2</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1309 1296 <span class="i">$This</span><span class="i">-&gt;SetEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1310 1297 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1311 1298
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1312 1299 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1313 1300 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1314 1301
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1315 1302 <span class="c"># Set a properties for a edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1316 <a name="SetEdgeProperties-"></a>1303 <span class="k">sub </span><span class="m">SetEdgeProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1317 1304 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">@NamesAndValues</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1318 1305
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1319 1306 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1320 1307 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgeProperties: Didn&#39;t set property: Both vertexID1 and vertexID2 should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1321 1308 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1322 1309 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1323 1310 <span class="k">if</span> <span class="s">(</span>!<span class="i">@NamesAndValues</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1324 1311 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgeProperties: Didn&#39;t set property: Property name and values ist is empty...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1325 1312 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1326 1313 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1327 1314 <span class="k">if</span> <span class="s">(</span><span class="i">@NamesAndValues</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1328 1315 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetEdgeProperties: Didn&#39;t set property: Invalid property name and values data: Input list must contain triplets of values...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1329 1316 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1330 1317 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1331 1318
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1332 1319 <span class="k">my</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1333 1320 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#NamesAndValues</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1334 1321 <span class="i">$Name</span> = <span class="i">$NamesAndValues</span>[<span class="i">$Index</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1335 1322 <span class="i">$Value</span> = <span class="i">$NamesAndValues</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1336 1323 <span class="i">$This</span><span class="i">-&gt;SetEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1337 1324 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1338 1325
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1339 1326 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1340 1327 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1341 1328
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1342 1329 <span class="c"># Set edge property...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1343 <a name="_SetEdgeProperty-"></a>1330 <span class="k">sub </span><span class="m">_SetEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1344 1331 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1345 1332
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1346 1333 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1347 1334 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1348 1335 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1349 1336 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1350 1337 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1351 1338 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1352 1339 <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$Name</span>} = <span class="i">$Value</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1353 1340
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1354 1341 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1355 1342 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1356 1343
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1357 1344 <span class="c"># Get a property value for edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1358 <a name="GetEdgeProperty-"></a>1345 <span class="k">sub </span><span class="m">GetEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1359 1346 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1360 1347
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1361 1348 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1362 1349 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1363 1350 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1364 1351 <span class="k">return</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1365 1352 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1366 1353
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1367 1354 <span class="c"># Get a property values for edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1368 <a name="GetEdgesProperty-"></a>1355 <span class="k">sub </span><span class="m">GetEdgesProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1369 1356 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1370 1357
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1371 1358 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1372 1359 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1373 1360 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1374 1361 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1375 1362 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1376 1363 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1377 1364 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1378 1365
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1379 1366 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Index</span><span class="cm">,</span> <span class="i">$ValuesCount</span><span class="cm">,</span> <span class="i">@Values</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1380 1367 <span class="i">@Values</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1381 1368 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#VertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1382 1369 <span class="i">$VertexID1</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1383 1370 <span class="k">push</span> <span class="i">@Values</span><span class="cm">,</span> <span class="i">$This</span><span class="i">-&gt;GetEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1384 1371 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1385 1372 <span class="i">$ValuesCount</span> = <span class="k">grep</span> <span class="s">{</span> <span class="k">defined</span><span class="s">(</span><span class="i">$_</span><span class="s">)</span> <span class="s">}</span> <span class="i">@Values</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1386 1373
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1387 1374 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@Values</span> <span class="co">:</span> <span class="i">$ValuesCount</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1388 1375 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1389 1376
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1390 1377 <span class="c"># Get all property name/value paries for edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1391 <a name="GetEdgeProperties-"></a>1378 <span class="k">sub </span><span class="m">GetEdgeProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1392 1379 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1393 1380
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1394 1381 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1395 1382 <span class="k">return</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1396 1383 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1397 1384 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1398 1385 <span class="k">return</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1399 1386 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1400 1387 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1401 1388 <span class="k">return</span> <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1402 1389 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1403 1390 <span class="k">return</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1404 1391 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1405 1392
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1406 1393 <span class="c"># Delete a property for edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1407 <a name="DeleteEdgeProperty-"></a>1394 <span class="k">sub </span><span class="m">DeleteEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1408 1395 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1409 1396
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1410 1397 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1411 1398 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdgeProperty: Didn&#39;t delete property: Property name, vertexID1 and vertexID2 should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1412 1399 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1413 1400 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1414 1401 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1415 1402 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdgeProperty: Didn&#39;t delete property $Name for edge between vertices $VertexID1 and $VertexID2: Edge property doesn&#39;t exist...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1416 1403 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1417 1404 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1418 1405 <span class="i">$This</span><span class="i">-&gt;_DeleteEdgeProperty</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1419 1406 <span class="i">$This</span><span class="i">-&gt;_DeleteEdgeProperty</span><span class="s">(</span><span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1420 1407
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1421 1408 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1422 1409 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1423 1410
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1424 1411 <span class="c"># Delete a property for edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1425 <a name="DeleteEdgesProperty-"></a>1412 <span class="k">sub </span><span class="m">DeleteEdgesProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1426 1413 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1427 1414
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1428 1415 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1429 1416 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdgesProperty: Didn&#39;t delete property: Property name should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1430 1417 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1431 1418 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1432 1419 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1433 1420 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1434 1421 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1435 1422 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1436 1423 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1437 1424 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdgesProperty: Didn&#39;t set property: Invalid property values and vertex IDs data: Input list must contain even number of values...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1438 1425 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1439 1426 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1440 1427 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1441 1428 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#VertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1442 1429 <span class="i">$VertexID1</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1443 1430 <span class="i">$This</span><span class="i">-&gt;DeleteEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1444 1431 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1445 1432
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1446 1433 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1447 1434 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1448 1435
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1449 1436 <span class="c"># Delete all properties for edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1450 <a name="DeleteEdgeProperties-"></a>1437 <span class="k">sub </span><span class="m">DeleteEdgeProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1451 1438 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1452 1439
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1453 1440 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1454 1441 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdgeProperties: Didn&#39;t delete property: VertexID1 and vertexID2 should be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1455 1442 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1456 1443 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1457 1444 <span class="i">$This</span><span class="i">-&gt;_DeleteEdgeProperty</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1458 1445 <span class="i">$This</span><span class="i">-&gt;_DeleteEdgeProperty</span><span class="s">(</span><span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1459 1446
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1460 1447 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1461 1448 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1462 1449
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1463 1450 <span class="c"># Delete properties for edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1464 <a name="DeleteEdgesProperties-"></a>1451 <span class="k">sub </span><span class="m">DeleteEdgesProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1465 1452 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1466 1453
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1467 1454 <span class="k">if</span> <span class="s">(</span>!<span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1468 1455 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1469 1456 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1470 1457 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1471 1458 <span class="k">if</span> <span class="s">(</span><span class="i">@VertexIDs</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1472 1459 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;DeleteEdgesProperty: Didn&#39;t set property: Invalid property values and vertex IDs data: Input list must contain even number of values...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1473 1460 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1474 1461 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1475 1462 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1476 1463 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#VertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1477 1464 <span class="i">$VertexID1</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$VertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1478 1465 <span class="i">$This</span><span class="i">-&gt;DeleteEdgeProperties</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1479 1466 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1480 1467 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1481 1468 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1482 1469
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1483 1470
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1484 1471 <span class="c"># Delete a specific edge property or all edge properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1485 <a name="_DeleteEdgeProperty-"></a>1472 <span class="k">sub </span><span class="m">_DeleteEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1486 1473 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1487 1474
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1488 1475 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1489 1476 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1490 1477 <span class="k">if</span> <span class="s">(</span><span class="k">defined</span> <span class="i">$Name</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1491 1478 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$Name</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1492 1479 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1493 1480 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1494 1481 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1495 1482 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1496 1483 <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1497 1484 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1498 1485 <span class="k">if</span> <span class="s">(</span>! <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1499 1486 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1500 1487 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1501 1488 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1502 1489 <span class="k">if</span> <span class="s">(</span>! <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1503 1490 <span class="k">delete</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1504 1491 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1505 1492 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1506 1493
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1507 1494 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1508 1495 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1509 1496
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1510 1497 <span class="c"># Is this property associated with edge?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1511 <a name="HasEdgeProperty-"></a>1498 <span class="k">sub </span><span class="m">HasEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1512 1499 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1513 1500
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1514 1501 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">defined</span><span class="s">(</span><span class="i">$Name</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</span><span class="s">)</span> &amp;&amp; <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1515 1502 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1516 1503 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1517 1504 <span class="k">my</span><span class="s">(</span><span class="i">$Status</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1518 1505
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1519 1506 <span class="i">$Status</span> = <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;_HasEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> || <span class="i">$This</span><span class="i">-&gt;_HasEdgeProperty</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1520 1507
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1521 1508 <span class="k">return</span> <span class="i">$Status</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1522 1509 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1523 1510
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1524 1511 <span class="c"># Does edge proprty exists?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1525 <a name="_HasEdgeProperty-"></a>1512 <span class="k">sub </span><span class="m">_HasEdgeProperty</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1526 1513 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Name</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1527 1514
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1528 1515 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1529 1516 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1530 1517 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>-&gt;{<span class="w">Properties</span>}-&gt;{<span class="w">Edges</span>}-&gt;{<span class="i">$VertexID1</span>}-&gt;{<span class="i">$VertexID2</span>}-&gt;{<span class="i">$Name</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1531 1518 <span class="k">return</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1532 1519 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1533 1520 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1534 1521 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1535 1522 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1536 1523 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1537 1524
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1538 1525 <span class="c"># Is it a graph object?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1539 <a name="IsGraph-"></a>1526 <span class="k">sub </span><span class="m">IsGraph ($)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1540 1527 <span class="k">my</span><span class="s">(</span><span class="i">$Object</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1541 1528
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1542 1529 <span class="k">return</span> <span class="i">_IsGraph</span><span class="s">(</span><span class="i">$Object</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1543 1530 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1544 1531
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1545 1532 <span class="c"># Return a string containg vertices, edges and other properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1546 <a name="StringifyGraph-"></a>1533 <span class="k">sub </span><span class="m">StringifyGraph</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1547 1534 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1548 1535 <span class="k">my</span><span class="s">(</span><span class="i">$GraphString</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1549 1536
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1550 1537 <span class="i">$GraphString</span> = <span class="q">&#39;Graph:&#39;</span> . <span class="i">$This</span><span class="i">-&gt;StringifyVerticesAndEdges</span><span class="s">(</span><span class="s">)</span> . <span class="q">&#39;; &#39;</span> . <span class="i">$This</span><span class="i">-&gt;StringifyProperties</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1551 1538
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1552 1539 <span class="k">return</span> <span class="i">$GraphString</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1553 1540 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1554 1541
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1555 1542 <span class="c"># Return a string containg vertices, edges and other properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1556 <a name="StringifyProperties-"></a>1543 <span class="k">sub </span><span class="m">StringifyProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1557 1544 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1558 1545 <span class="k">my</span><span class="s">(</span><span class="i">$PropertiesString</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1559 1546
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1560 1547 <span class="i">$PropertiesString</span> = <span class="i">$This</span><span class="i">-&gt;StringifyGraphProperties</span><span class="s">(</span><span class="s">)</span> . <span class="q">&#39;; &#39;</span> . <span class="i">$This</span><span class="i">-&gt;StringifyVerticesProperties</span><span class="s">(</span><span class="s">)</span>. <span class="q">&#39;; &#39;</span> . <span class="i">$This</span><span class="i">-&gt;StringifyEdgesProperties</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1561 1548
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1562 1549 <span class="k">return</span> <span class="i">$PropertiesString</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1563 1550 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1564 1551
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1565 1552 <span class="c"># Return a string containg vertices and edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1566 <a name="StringifyVerticesAndEdges-"></a>1553 <span class="k">sub </span><span class="m">StringifyVerticesAndEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1567 1554 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1568 1555 <span class="k">my</span><span class="s">(</span><span class="i">$GraphString</span><span class="cm">,</span> <span class="i">$Index</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$Count</span><span class="cm">,</span> <span class="i">@EdgeVertexIDs</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1569 1556
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1570 1557 <span class="c"># Get vertices and edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1571 1558 <span class="i">$GraphString</span> = <span class="q">&#39;&#39;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1572 1559 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1573 1560 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1574 1561 <span class="i">$Count</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1575 1562 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1576 1563 <span class="i">$Count</span>++<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1577 1564 <span class="i">@EdgeVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1578 1565 <span class="i">@EdgeVertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;_GetEdgesFrom</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1579 1566 <span class="k">if</span> <span class="s">(</span><span class="i">@EdgeVertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1580 1567 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#EdgeVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1581 1568 <span class="i">$VertexID1</span> = <span class="i">$EdgeVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$EdgeVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1582 1569 <span class="i">$GraphString</span> .= <span class="q">&quot; ${VertexID1}-${VertexID2}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1583 1570 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1584 1571 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1585 1572 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1586 1573 <span class="i">$GraphString</span> .= <span class="q">&quot; ${VertexID}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1587 1574 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1588 1575 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1589 1576 <span class="k">if</span> <span class="s">(</span>!<span class="i">$Count</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1590 1577 <span class="i">$GraphString</span> = <span class="q">&#39;Graph: None&#39;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1591 1578 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1592 1579 <span class="k">return</span> <span class="i">$GraphString</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1593 1580 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1594 1581
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1595 1582 <span class="c"># Return a string containg graph properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1596 <a name="StringifyGraphProperties-"></a>1583 <span class="k">sub </span><span class="m">StringifyGraphProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1597 1584 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1598 1585 <span class="k">my</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$Count</span><span class="cm">,</span> <span class="i">$GraphPropertyString</span><span class="cm">,</span> <span class="i">%GraphProperties</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1599 1586
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1600 1587 <span class="i">$GraphPropertyString</span> = <span class="q">&quot;GraphProperties: &quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1601 1588 <span class="i">%GraphProperties</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1602 1589 <span class="i">%GraphProperties</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperties</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1603 1590 <span class="k">if</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%GraphProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1604 1591 <span class="k">for</span> <span class="i">$Name</span> <span class="s">(</span><span class="k">sort</span> <span class="k">keys</span> <span class="i">%GraphProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1605 1592 <span class="i">$Value</span> = <span class="i">$GraphProperties</span>{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1606 1593 <span class="k">if</span> <span class="s">(</span><span class="k">ref</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> =~ <span class="q">/^ARRAY/</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1607 1594 <span class="k">if</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1608 1595 <span class="i">$GraphPropertyString</span> .= <span class="q">&quot; ${Name}=(Count: &quot;</span> . <span class="k">scalar</span> <span class="i">@</span>{<span class="i">$Value</span>} . <span class="q">&quot;; &quot;</span> . <span class="k">join</span><span class="s">(</span><span class="q">&#39;, &#39;</span><span class="cm">,</span> <span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> . <span class="q">&quot;)&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1609 1596 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1610 1597 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1611 1598 <span class="i">$GraphPropertyString</span> .= <span class="q">&quot; ${Name}=None&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1612 1599 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1613 1600 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1614 1601 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1615 1602 <span class="i">$GraphPropertyString</span> .= <span class="q">&quot; ${Name}=${Value}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1616 1603 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1617 1604 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1618 1605 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1619 1606 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1620 1607 <span class="i">$GraphPropertyString</span> .= <span class="q">&quot; None&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1621 1608 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1622 1609 <span class="k">return</span> <span class="i">$GraphPropertyString</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1623 1610 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1624 1611
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1625 1612 <span class="c"># Return a string containg vertices properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1626 <a name="StringifyVerticesProperties-"></a>1613 <span class="k">sub </span><span class="m">StringifyVerticesProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1627 1614 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1628 1615 <span class="k">my</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$Count</span><span class="cm">,</span> <span class="i">$VertexPropertyString</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">%VertexProperties</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1629 1616
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1630 1617 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1631 1618 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1632 1619 <span class="i">$Count</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1633 1620 <span class="i">$VertexPropertyString</span> = <span class="q">&quot;VertexProperties:&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1634 1621 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1635 1622 <span class="i">%VertexProperties</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1636 1623 <span class="i">%VertexProperties</span> = <span class="i">$This</span><span class="i">-&gt;GetVertexProperties</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1637 1624 <span class="k">if</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%VertexProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1638 1625 <span class="i">$Count</span>++<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1639 1626 <span class="i">$VertexPropertyString</span> .= <span class="q">&quot; &lt;Vertex ${VertexID}: &quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1640 1627 <span class="k">for</span> <span class="i">$Name</span> <span class="s">(</span><span class="k">sort</span> <span class="k">keys</span> <span class="i">%VertexProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1641 1628 <span class="i">$Value</span> = <span class="i">$VertexProperties</span>{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1642 1629 <span class="k">if</span> <span class="s">(</span><span class="k">ref</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> =~ <span class="q">/^ARRAY/</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1643 1630 <span class="k">if</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1644 1631 <span class="i">$VertexPropertyString</span> .= <span class="q">&quot; ${Name}=(&quot;</span> . <span class="k">join</span><span class="s">(</span><span class="q">&#39;, &#39;</span><span class="cm">,</span> <span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> . <span class="q">&quot;)&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1645 1632 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1646 1633 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1647 1634 <span class="i">$VertexPropertyString</span> .= <span class="q">&quot; ${Name}=None&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1648 1635 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1649 1636 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1650 1637 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1651 1638 <span class="i">$VertexPropertyString</span> .= <span class="q">&quot; ${Name}=${Value}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1652 1639 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1653 1640 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1654 1641 <span class="i">$VertexPropertyString</span> .= <span class="q">&quot;&gt;&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1655 1642 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1656 1643 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1657 1644 <span class="k">if</span> <span class="s">(</span>!<span class="i">$Count</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1658 1645 <span class="i">$VertexPropertyString</span> = <span class="q">&quot;VertexProperties: None&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1659 1646 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1660 1647 <span class="k">return</span> <span class="i">$VertexPropertyString</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1661 1648 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1662 1649
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1663 1650 <span class="c"># Return a string containg edges properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1664 <a name="StringifyEdgesProperties-"></a>1651 <span class="k">sub </span><span class="m">StringifyEdgesProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1665 1652 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1666 1653 <span class="k">my</span><span class="s">(</span><span class="i">$Name</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$Index</span><span class="cm">,</span> <span class="i">$EdgePropertyString</span><span class="cm">,</span> <span class="i">$Count</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">@EdgesVertexIDs</span><span class="cm">,</span> <span class="i">%EdgeProperties</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1667 1654
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1668 1655 <span class="i">@EdgesVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1669 1656 <span class="i">@EdgesVertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1670 1657 <span class="i">$Count</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1671 1658 <span class="i">$EdgePropertyString</span> = <span class="q">&quot;EdgeProperties:&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1672 1659 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#EdgesVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1673 1660 <span class="i">$VertexID1</span> = <span class="i">$EdgesVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$EdgesVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1674 1661 <span class="i">%EdgeProperties</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1675 1662 <span class="i">%EdgeProperties</span> = <span class="i">$This</span><span class="i">-&gt;GetEdgeProperties</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1676 1663 <span class="k">if</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%EdgeProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1677 1664 <span class="i">$Count</span>++<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1678 1665 <span class="i">$EdgePropertyString</span> .= <span class="q">&quot; &lt;Edge ${VertexID1}-${VertexID2}:&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1679 1666 <span class="k">for</span> <span class="i">$Name</span> <span class="s">(</span><span class="k">sort</span> <span class="k">keys</span> <span class="i">%EdgeProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1680 1667 <span class="i">$Value</span> = <span class="i">$EdgeProperties</span>{<span class="i">$Name</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1681 1668 <span class="k">if</span> <span class="s">(</span><span class="k">ref</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> =~ <span class="q">/^ARRAY/</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1682 1669 <span class="k">if</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1683 1670 <span class="i">$EdgePropertyString</span> .= <span class="q">&quot; ${Name}=(&quot;</span> . <span class="k">join</span><span class="s">(</span><span class="q">&#39;, &#39;</span><span class="cm">,</span> <span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> . <span class="q">&quot;)&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1684 1671 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1685 1672 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1686 1673 <span class="i">$EdgePropertyString</span> .= <span class="q">&quot; ${Name}=None&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1687 1674 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1688 1675 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1689 1676 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1690 1677 <span class="i">$EdgePropertyString</span> .= <span class="q">&quot; ${Name}=${Value}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1691 1678 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1692 1679 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1693 1680 <span class="i">$EdgePropertyString</span> .= <span class="q">&quot;&gt;&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1694 1681 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1695 1682 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1696 1683 <span class="k">if</span> <span class="s">(</span>!<span class="i">$Count</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1697 1684 <span class="i">$EdgePropertyString</span> = <span class="q">&quot;EdgeProperties: None&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1698 1685 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1699 1686
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1700 1687 <span class="k">return</span> <span class="i">$EdgePropertyString</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1701 1688 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1702 1689
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1703 1690 <span class="c"># Is it a graph object?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1704 <a name="_IsGraph-"></a>1691 <span class="k">sub </span><span class="m">_IsGraph</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1705 1692 <span class="k">my</span><span class="s">(</span><span class="i">$Object</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1706 1693
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1707 1694 <span class="k">return</span> <span class="s">(</span><span class="i">Scalar::Util::blessed</span><span class="s">(</span><span class="i">$Object</span><span class="s">)</span> &amp;&amp; <span class="i">$Object</span><span class="i">-&gt;isa</span><span class="s">(</span><span class="i">$ClassName</span><span class="s">)</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1708 1695 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1709 1696
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1710 1697 <span class="c"># Copy graph and its associated data using Storable::dclone and return a new graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1711 1698 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1712 <a name="Copy-"></a>1699 <span class="k">sub </span><span class="m">Copy</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1713 1700 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1714 1701 <span class="k">my</span><span class="s">(</span><span class="i">$NewGraph</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1715 1702
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1716 1703 <span class="i">$NewGraph</span> = <span class="i">Storable::dclone</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1717 1704
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1718 1705 <span class="k">return</span> <span class="i">$NewGraph</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1719 1706 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1720 1707
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1721 1708 <span class="c"># Copy vertrices and edges from This graph to NewGraph specified...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1722 1709 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1723 <a name="CopyVerticesAndEdges-"></a>1710 <span class="k">sub </span><span class="m">CopyVerticesAndEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1724 1711 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$NewGraph</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1725 1712
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1726 1713 <span class="c"># Copy vertices and edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1727 1714 <span class="k">my</span><span class="s">(</span><span class="i">@Vertices</span><span class="cm">,</span> <span class="i">@Edges</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1728 1715 <span class="i">@Vertices</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1729 1716 <span class="k">if</span> <span class="s">(</span><span class="i">@Vertices</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1730 1717 <span class="i">$NewGraph</span><span class="i">-&gt;AddVertices</span><span class="s">(</span><span class="i">@Vertices</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1731 1718 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1732 1719 <span class="i">@Edges</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1733 1720 <span class="k">if</span> <span class="s">(</span><span class="i">@Edges</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1734 1721 <span class="i">$NewGraph</span><span class="i">-&gt;AddEdges</span><span class="s">(</span><span class="i">@Edges</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1735 1722 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1736 1723
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1737 1724 <span class="k">return</span> <span class="i">$NewGraph</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1738 1725 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1739 1726
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1740 1727 <span class="c"># Copy properties of vertices from This graph to NewGraph specified...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1741 1728 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1742 <a name="CopyVerticesProperties-"></a>1729 <span class="k">sub </span><span class="m">CopyVerticesProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1743 1730 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$NewGraph</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1744 1731
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1745 1732 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="cm">,</span> <span class="i">%VertexProperties</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1746 1733 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1747 1734 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1748 1735 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1749 1736 <span class="i">%VertexProperties</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">%VertexProperties</span> = <span class="i">$This</span><span class="i">-&gt;GetVertexProperties</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1750 1737 <span class="k">if</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%VertexProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1751 1738 <span class="i">$NewGraph</span><span class="i">-&gt;SetVertexProperties</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">%VertexProperties</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1752 1739 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1753 1740 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1754 1741 <span class="k">return</span> <span class="i">$NewGraph</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1755 1742 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1756 1743
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1757 1744 <span class="c"># Copy properties of edges from This graph to NewGraph specified...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1758 1745 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1759 <a name="CopyEdgesProperties-"></a>1746 <span class="k">sub </span><span class="m">CopyEdgesProperties</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1760 1747 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$NewGraph</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1761 1748
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1762 1749 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">@EdgesVertexIDs</span><span class="cm">,</span> <span class="i">%EdgeProperties</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1763 1750 <span class="i">@EdgesVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1764 1751 <span class="i">@EdgesVertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1765 1752 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#EdgesVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1766 1753 <span class="i">$VertexID1</span> = <span class="i">$EdgesVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$EdgesVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1767 1754 <span class="i">%EdgeProperties</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">%EdgeProperties</span> = <span class="i">$This</span><span class="i">-&gt;GetEdgeProperties</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1768 1755 <span class="k">if</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%EdgeProperties</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1769 1756 <span class="i">$NewGraph</span><span class="i">-&gt;SetEdgeProperties</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">%EdgeProperties</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1770 1757 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1771 1758 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1772 1759 <span class="k">return</span> <span class="i">$NewGraph</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1773 1760 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1774 1761
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1775 1762 <span class="c"># Detect cycles and associate &#39;em to graph as graph property...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1776 1763 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1777 1764 <span class="c"># Note:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1778 1765 <span class="c"># . CyclesDetection class detects all cycles in the graph and filters &#39;em to find</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1779 1766 <span class="c"># independent cycles.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1780 1767 <span class="c"># . All cycles related methods in the graph operate on active cyclic paths. By default,</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1781 1768 <span class="c"># active cyclic paths correspond to independent cycles. This behavior can be changed</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1782 1769 <span class="c"># using SetActiveCyclicPaths method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1783 1770 <span class="c"># . For topologically complex graphs containing large number of cycles, DetectCycles method</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1784 1771 <span class="c"># implemented in CyclesDetection can time out in which case no cycles are detected or</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1785 1772 <span class="c"># assigned.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1786 1773 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1787 <a name="DetectCycles-"></a>1774 <span class="k">sub </span><span class="m">DetectCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1788 1775 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1789 1776 <span class="k">my</span><span class="s">(</span><span class="i">$CyclesDetection</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1790 1777
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1791 1778 <span class="c"># Delete existing graph cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1792 1779 <span class="i">$This</span><span class="i">-&gt;_DeleteCyclesAssociatedWithGraph</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1793 1780
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1794 1781 <span class="c"># Detect cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1795 1782 <span class="i">$CyclesDetection</span> = <span class="i">new</span> <span class="i">Graph::CyclesDetection</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1796 1783 <span class="k">if</span> <span class="s">(</span>!<span class="i">$CyclesDetection</span><span class="i">-&gt;DetectCycles</span><span class="s">(</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1797 1784 <span class="c"># Cycles detection didn&#39;t finish...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1798 1785 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1799 1786 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1800 1787
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1801 1788 <span class="c"># Get cycles and associate &#39;em to graph as properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1802 1789 <span class="k">my</span><span class="s">(</span><span class="i">@AllCyclicPaths</span><span class="cm">,</span> <span class="i">@IndependentCyclicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1803 1790 <span class="i">@AllCyclicPaths</span> = <span class="i">$CyclesDetection</span><span class="i">-&gt;GetAllCyclicPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1804 1791 <span class="i">@IndependentCyclicPaths</span> = <span class="i">$CyclesDetection</span><span class="i">-&gt;GetIndependentCyclicPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1805 1792
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1806 1793 <span class="i">$This</span><span class="i">-&gt;SetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> \<span class="i">@IndependentCyclicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1807 1794 <span class="i">$This</span><span class="i">-&gt;SetGraphProperty</span><span class="s">(</span><span class="q">&#39;AllCyclicPaths&#39;</span><span class="cm">,</span> \<span class="i">@AllCyclicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1808 1795 <span class="i">$This</span><span class="i">-&gt;SetGraphProperty</span><span class="s">(</span><span class="q">&#39;IndependentCyclicPaths&#39;</span><span class="cm">,</span> \<span class="i">@IndependentCyclicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1809 1796
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1810 1797 <span class="c"># Map cycles information to vertices and edges; identify fused cycles as well...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1811 1798 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_ProcessDetectedCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1812 1799 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1813 1800
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1814 1801 <span class="c"># Delete any cycle properties assigned to graph, vertices and edges during detect cycles operation...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1815 1802 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1816 <a name="ClearCycles-"></a>1803 <span class="k">sub </span><span class="m">ClearCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1817 1804 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1818 1805
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1819 1806 <span class="c"># Delete cycle properties associated with graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1820 1807 <span class="i">$This</span><span class="i">-&gt;_DeleteCyclesAssociatedWithGraph</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1821 1808 <span class="i">$This</span><span class="i">-&gt;_DeleteFusedCyclesAssociatedWithGraph</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1822 1809
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1823 1810 <span class="c"># Delete cycle properties associated with vertices and edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1824 1811 <span class="i">$This</span><span class="i">-&gt;_DeleteCyclesAssociatedWithVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1825 1812 <span class="i">$This</span><span class="i">-&gt;_DeleteCyclesAssociatedWithEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1826 1813
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1827 1814 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1828 1815 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1829 1816
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1830 1817 <span class="c"># Setup cyclic paths to use during all cycle related methods. Possible values:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1831 1818 <span class="c"># Independent or All. Default is to use Independent cyclic paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1832 1819 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1833 <a name="SetActiveCyclicPaths-"></a>1820 <span class="k">sub </span><span class="m">SetActiveCyclicPaths</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1834 1821 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$CyclicPathsType</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1835 1822
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1836 1823 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$CyclicPathsType</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1837 1824 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetActiveCyclicPaths: Didn&#39;t set active cyclic path: Cyclic path must be specified...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1838 1825 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1839 1826 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1840 1827 <span class="k">if</span> <span class="s">(</span><span class="i">$CyclicPathsType</span> !~ <span class="q">/^(Independent|All)$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1841 1828 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetActiveCyclicPaths: Didn&#39;t set active cyclic path: Specified path type, $CyclicPathsType, is not valid. Supported valeus: Independent or All...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1842 1829 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1843 1830 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1844 1831 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1845 1832 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;SetActiveCyclicPaths: Didn&#39;t set active cyclic path: Cycles haven&#39;t been detected yet...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1846 1833 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1847 1834 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1848 1835 <span class="i">$This</span><span class="i">-&gt;DeleteGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1849 1836
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1850 1837 <span class="k">my</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1851 1838 <span class="k">if</span> <span class="s">(</span><span class="i">$CyclicPathsType</span> =~ <span class="q">/^Independent$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1852 1839 <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;IndependentCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1853 1840 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1854 1841 <span class="k">elsif</span> <span class="s">(</span><span class="i">$CyclicPathsType</span> =~ <span class="q">/^All$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1855 1842 <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;AllCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1856 1843 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1857 1844 <span class="i">$This</span><span class="i">-&gt;SetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1858 1845
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1859 1846 <span class="c"># Map cycles information to vertices and edges; identify fused cycles as well...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1860 1847 <span class="i">$This</span><span class="i">-&gt;_ProcessDetectedCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1861 1848
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1862 1849 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1863 1850 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1864 1851
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1865 1852 <span class="c"># Assign cycles information on to vertices and edges as vertex edge properties properties;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1866 1853 <span class="c"># identify fused cycles as well...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1867 1854 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1868 <a name="_ProcessDetectedCycles-"></a>1855 <span class="k">sub </span><span class="m">_ProcessDetectedCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1869 1856 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1870 1857
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1871 1858 <span class="i">$This</span><span class="i">-&gt;_AssociateCyclesWithVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1872 1859 <span class="i">$This</span><span class="i">-&gt;_AssociateCyclesWithEdgesAndIdentifyFusedCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1873 1860
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1874 1861 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1875 1862 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1876 1863
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1877 1864 <span class="c"># Associate cycles information to vertices as vertex properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1878 1865 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1879 <a name="_AssociateCyclesWithVertices-"></a>1866 <span class="k">sub </span><span class="m">_AssociateCyclesWithVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1880 1867 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1881 1868
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1882 1869 <span class="c"># Clear up any exisiting properties...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1883 1870 <span class="i">$This</span><span class="i">-&gt;_DeleteCyclesAssociatedWithVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1884 1871
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1885 1872 <span class="c"># Collects CyclicPaths for each vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1886 1873 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$ActiveCyclicPath</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">@CyclicPathVertexIDs</span><span class="cm">,</span> <span class="i">%VertexIDToCylicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1887 1874
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1888 1875 <span class="i">%VertexIDToCylicPaths</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1889 1876 <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1890 1877
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1891 1878 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1892 1879 <span class="c"># No cycles out there...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1893 1880 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1894 1881 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1895 1882
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1896 1883 <span class="k">for</span> <span class="i">$ActiveCyclicPath</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1897 1884 <span class="i">@CyclicPathVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1898 1885 <span class="i">@CyclicPathVertexIDs</span> = <span class="i">$ActiveCyclicPath</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1899 1886 <span class="c"># Take out end vertex: It&#39;s same as start vertex for cyclic path...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1900 1887 <span class="k">pop</span> <span class="i">@CyclicPathVertexIDs</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1901 1888 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@CyclicPathVertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1902 1889 <span class="k">if</span> <span class="s">(</span>!<span class="k">exists</span> <span class="i">$VertexIDToCylicPaths</span>{<span class="i">$VertexID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1903 1890 <span class="i">@</span>{<span class="i">$VertexIDToCylicPaths</span>{<span class="i">$VertexID</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1904 1891 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1905 1892 <span class="k">push</span> <span class="i">@</span>{<span class="i">$VertexIDToCylicPaths</span>{<span class="i">$VertexID</span>}}<span class="cm">,</span> <span class="i">$ActiveCyclicPath</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1906 1893 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1907 1894 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1908 1895
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1909 1896 <span class="c"># Associate CyclicPaths to vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1910 1897 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%VertexIDToCylicPaths</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1911 1898 <span class="i">$This</span><span class="i">-&gt;SetVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> \<span class="i">@</span>{<span class="i">$VertexIDToCylicPaths</span>{<span class="i">$VertexID</span>}}<span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1912 1899 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1913 1900 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1914 1901 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1915 1902
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1916 1903 <span class="c"># Associate cycles information to edges as edge properties and identify fused</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1917 1904 <span class="c"># cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1918 1905 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1919 <a name="_AssociateCyclesWithEdgesAndIdentifyFusedCycles-"></a>1906 <span class="k">sub </span><span class="m">_AssociateCyclesWithEdgesAndIdentifyFusedCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1920 1907 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1921 1908
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1922 1909 <span class="c"># Delete existing cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1923 1910 <span class="i">$This</span><span class="i">-&gt;_DeleteCyclesAssociatedWithEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1924 1911 <span class="i">$This</span><span class="i">-&gt;_DeleteFusedCyclesAssociatedWithGraph</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1925 1912
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1926 1913 <span class="c"># Collect cyclic paths for each edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1927 1914 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$ActiveCyclicPath</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$EdgeID</span><span class="cm">,</span> <span class="i">$EdgeIDDelimiter</span><span class="cm">,</span> <span class="i">$CyclesWithCommonEdgesPresent</span><span class="cm">,</span> <span class="i">@CyclicPathEdgeVertexIDs</span><span class="cm">,</span> <span class="i">%EdgeIDToCylicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1928 1915
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1929 1916 <span class="i">%EdgeIDToCylicPaths</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1930 1917 <span class="i">$EdgeIDDelimiter</span> = <span class="q">&quot;~&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1931 1918 <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1932 1919
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1933 1920 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1934 1921 <span class="c"># No cycles out there...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1935 1922 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1936 1923 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1937 1924
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1938 1925 <span class="i">$CyclesWithCommonEdgesPresent</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1939 1926 <span class="k">for</span> <span class="i">$ActiveCyclicPath</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1940 1927 <span class="i">@CyclicPathEdgeVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1941 1928 <span class="i">@CyclicPathEdgeVertexIDs</span> = <span class="i">$ActiveCyclicPath</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1942 1929 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#CyclicPathEdgeVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1943 1930 <span class="i">$VertexID1</span> = <span class="i">$CyclicPathEdgeVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$CyclicPathEdgeVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1944 1931 <span class="i">$EdgeID</span> = <span class="s">(</span><span class="i">$VertexID1</span> &lt; <span class="i">$VertexID2</span><span class="s">)</span> ? <span class="q">&quot;${VertexID1}${EdgeIDDelimiter}${VertexID2}&quot;</span> <span class="co">:</span> <span class="q">&quot;${VertexID2}${EdgeIDDelimiter}${VertexID1}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1945 1932 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$EdgeIDToCylicPaths</span>{<span class="i">$EdgeID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1946 1933 <span class="c"># A common edge between two cycles indicates a potential fused cycle...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1947 1934 <span class="i">$CyclesWithCommonEdgesPresent</span> = <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1948 1935 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1949 1936 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1950 1937 <span class="i">@</span>{<span class="i">$EdgeIDToCylicPaths</span>{<span class="i">$EdgeID</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1951 1938 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1952 1939 <span class="k">push</span> <span class="i">@</span>{<span class="i">$EdgeIDToCylicPaths</span>{<span class="i">$EdgeID</span>}}<span class="cm">,</span> <span class="i">$ActiveCyclicPath</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1953 1940 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1954 1941 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1955 1942
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1956 1943 <span class="c"># Associate CyclicPaths with edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1957 1944 <span class="k">for</span> <span class="i">$EdgeID</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%EdgeIDToCylicPaths</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1958 1945 <span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="k">split</span><span class="s">(</span><span class="i">$EdgeIDDelimiter</span><span class="cm">,</span> <span class="i">$EdgeID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1959 1946 <span class="i">$This</span><span class="i">-&gt;SetEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> \<span class="i">@</span>{<span class="i">$EdgeIDToCylicPaths</span>{<span class="i">$EdgeID</span>}}<span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1960 1947 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1961 1948
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1962 1949 <span class="k">if</span> <span class="s">(</span><span class="i">$CyclesWithCommonEdgesPresent</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1963 1950 <span class="c"># Identify fused cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1964 1951 <span class="i">$This</span><span class="i">-&gt;_IdentifyAndAssociateFusedCyclesWithGraph</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1965 1952 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1966 1953
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1967 1954 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1968 1955 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1969 1956
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1970 1957 <span class="c"># Identify fused cycles and associate them to graph as graph property after cycles</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1971 1958 <span class="c"># have been associated with edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1972 1959 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1973 1960 <span class="c"># Note:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1974 1961 <span class="c"># . During aromaticity detection, fused cycles are treated as one set for counting</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1975 1962 <span class="c"># number of available pi electrons to check against Huckel&#39;s rule.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1976 1963 <span class="c"># . Fused cylce sets contain cycles with at least one common edge between pair</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1977 1964 <span class="c"># of cycles. A specific pair of cycles might not have a direct common edge, but</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1978 1965 <span class="c"># ends up in the same set due to a common edge with another cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1979 1966 <span class="c"># . Fused cycles are attached to graph as &#39;FusedActiveCyclicPaths&#39; property with</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1980 1967 <span class="c"># its value as a reference to list of reference where each refernece corresponds</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1981 1968 <span class="c"># to a list of cyclic path objects in a fused set.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1982 1969 <span class="c"># . For graphs containing fused cycles, non-fused cycles are separeted from fused</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1983 1970 <span class="c"># cycles and attached to the graph as &#39;NonFusedActiveCyclicPaths&#39;. It&#39;s a reference</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1984 1971 <span class="c"># to list containing cylic path objects.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1985 1972 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1986 <a name="_IdentifyAndAssociateFusedCyclesWithGraph-"></a>1973 <span class="k">sub </span><span class="m">_IdentifyAndAssociateFusedCyclesWithGraph</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1987 1974 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1988 1975
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1989 1976 <span class="c"># Delete exisiting fused and non-fused cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1990 1977 <span class="i">$This</span><span class="i">-&gt;_DeleteFusedCyclesAssociatedWithGraph</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1991 1978
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1992 1979 <span class="k">my</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1993 1980 <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1994 1981 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1995 1982 <span class="c"># No cycles out there...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1996 1983 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1997 1984 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1998 1985
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
1999 1986 <span class="c"># Get fused cycle pairs...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2000 1987 <span class="k">my</span><span class="s">(</span><span class="i">$FusedCyclePairsRef</span><span class="cm">,</span> <span class="i">$FusedCyclesRef</span><span class="cm">,</span> <span class="i">$InValidFusedCycleRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2001 1988 <span class="s">(</span><span class="i">$FusedCyclePairsRef</span><span class="cm">,</span> <span class="i">$FusedCyclesRef</span><span class="cm">,</span> <span class="i">$InValidFusedCycleRef</span><span class="s">)</span> = <span class="i">$This</span><span class="i">-&gt;_GetFusedCyclePairs</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2002 1989
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2003 1990 <span class="c"># Get fused cycle set indices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2004 1991 <span class="k">my</span><span class="s">(</span><span class="i">$FusedCycleSetsIndicesRef</span><span class="cm">,</span> <span class="i">$FusedCycleSetsCommonEdgesRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2005 1992 <span class="i">$FusedCycleSetsIndicesRef</span> = <span class="i">$This</span><span class="i">-&gt;_GetFusedCycleSetsIndices</span><span class="s">(</span><span class="i">$FusedCyclePairsRef</span><span class="cm">,</span> <span class="i">$FusedCyclesRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2006 1993 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$FusedCycleSetsIndicesRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2007 1994 <span class="c"># No fused cycles out there...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2008 1995 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2009 1996 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2010 1997
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2011 1998 <span class="c"># Get fused and non-fused cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2012 1999 <span class="k">my</span><span class="s">(</span><span class="i">$FusedCycleSetsRef</span><span class="cm">,</span> <span class="i">$NonFusedCyclesRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2013 2000 <span class="s">(</span><span class="i">$FusedCycleSetsRef</span><span class="cm">,</span> <span class="i">$NonFusedCyclesRef</span><span class="s">)</span> = <span class="i">$This</span><span class="i">-&gt;_GetFusedAndNonFusedCycles</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$FusedCycleSetsIndicesRef</span><span class="cm">,</span> <span class="i">$InValidFusedCycleRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2014 2001 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$FusedCycleSetsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2015 2002 <span class="c"># No fused cycles out there...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2016 2003 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2017 2004 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2018 2005
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2019 2006 <span class="c"># Associate fused and non fused cycles to graph....</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2020 2007 <span class="i">$This</span><span class="i">-&gt;SetGraphProperty</span><span class="s">(</span><span class="q">&#39;FusedActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$FusedCycleSetsRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2021 2008 <span class="i">$This</span><span class="i">-&gt;SetGraphProperty</span><span class="s">(</span><span class="q">&#39;NonFusedActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$NonFusedCyclesRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2022 2009
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2023 2010 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2024 2011 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2025 2012
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2026 2013 <span class="c"># Collect fused cycle pairs...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2027 2014 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2028 <a name="_GetFusedCyclePairs-"></a>2015 <span class="k">sub </span><span class="m">_GetFusedCyclePairs</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2029 2016 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2030 2017
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2031 2018 <span class="c"># Setup a CyclicPathID to CyclicPathIndex map...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2032 2019 <span class="k">my</span><span class="s">(</span><span class="i">$CyclicPathIndex</span><span class="cm">,</span> <span class="i">$CyclicPathID</span><span class="cm">,</span> <span class="i">$ActiveCyclicPath</span><span class="cm">,</span> <span class="i">%CyclicPathIDToIndex</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2033 2020
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2034 2021 <span class="i">%CyclicPathIDToIndex</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2035 2022 <span class="k">for</span> <span class="i">$CyclicPathIndex</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2036 2023 <span class="i">$ActiveCyclicPath</span> = <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="i">$CyclicPathIndex</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2037 2024 <span class="i">$CyclicPathID</span> = <span class="q">&quot;$ActiveCyclicPath&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2038 2025 <span class="i">$CyclicPathIDToIndex</span>{<span class="i">$CyclicPathID</span>} = <span class="i">$CyclicPathIndex</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2039 2026 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2040 2027 <span class="c"># Go over cycle edges and collect fused cycle pairs...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2041 2028 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$EdgeCyclicPathsRef</span><span class="cm">,</span> <span class="i">$EdgeID</span><span class="cm">,</span> <span class="i">$CyclicPath1</span><span class="cm">,</span> <span class="i">$CyclicPath2</span><span class="cm">,</span> <span class="i">$CyclicPathID1</span><span class="cm">,</span> <span class="i">$CyclicPathID2</span><span class="cm">,</span> <span class="i">$FusedCyclePairID</span><span class="cm">,</span> <span class="i">$FusedCyclicPath1</span><span class="cm">,</span> <span class="i">$FusedCyclicPath2</span><span class="cm">,</span> <span class="i">$FusedCyclicPathID1</span><span class="cm">,</span> <span class="i">$FusedCyclicPathID2</span><span class="cm">,</span> <span class="i">$FusedCyclicPathIndex1</span><span class="cm">,</span> <span class="i">$FusedCyclicPathIndex2</span><span class="cm">,</span> <span class="i">$FusedCyclePairEdgeCount</span><span class="cm">,</span> <span class="i">@CyclicPathEdgeVertexIDs</span><span class="cm">,</span> <span class="i">%FusedCyclePairs</span><span class="cm">,</span> <span class="i">%CommonEdgeVisited</span><span class="cm">,</span> <span class="i">%CommonEdgesCount</span><span class="cm">,</span> <span class="i">%FusedCycles</span><span class="cm">,</span> <span class="i">%InValidFusedCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2042 2029
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2043 2030 <span class="i">%FusedCyclePairs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">%CommonEdgeVisited</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2044 2031 <span class="i">%CommonEdgesCount</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2045 2032 <span class="i">%InValidFusedCycles</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">%FusedCycles</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2046 2033
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2047 2034 <span class="k">for</span> <span class="i">$ActiveCyclicPath</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2048 2035 <span class="i">@CyclicPathEdgeVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2049 2036 <span class="i">@CyclicPathEdgeVertexIDs</span> = <span class="i">$ActiveCyclicPath</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2050 2037 <span class="j">EDGE:</span> <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#CyclicPathEdgeVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2051 2038 <span class="i">$VertexID1</span> = <span class="i">$CyclicPathEdgeVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$CyclicPathEdgeVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2052 2039 <span class="i">$EdgeCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2053 2040 <span class="k">if</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$EdgeCyclicPathsRef</span>} != <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2054 2041 <span class="c"># Not considered a fused edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2055 2042 <span class="k">next</span> <span class="j">EDGE</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2056 2043 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2057 2044 <span class="c"># Set up a fused cycle pair...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2058 2045 <span class="s">(</span><span class="i">$FusedCyclicPath1</span><span class="cm">,</span> <span class="i">$FusedCyclicPath2</span><span class="s">)</span> = <span class="i">@</span>{<span class="i">$EdgeCyclicPathsRef</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2059 2046 <span class="s">(</span><span class="i">$FusedCyclicPathID1</span><span class="cm">,</span> <span class="i">$FusedCyclicPathID2</span><span class="s">)</span> = <span class="s">(</span><span class="q">&quot;${FusedCyclicPath1}&quot;</span><span class="cm">,</span> <span class="q">&quot;${FusedCyclicPath2}&quot;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2060 2047 <span class="s">(</span><span class="i">$FusedCyclicPathIndex1</span><span class="cm">,</span> <span class="i">$FusedCyclicPathIndex2</span><span class="s">)</span> = <span class="s">(</span><span class="i">$CyclicPathIDToIndex</span>{<span class="i">$FusedCyclicPathID1</span>}<span class="cm">,</span> <span class="i">$CyclicPathIDToIndex</span>{<span class="i">$FusedCyclicPathID2</span>}<span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2061 2048 <span class="i">$FusedCyclePairID</span> = <span class="s">(</span><span class="i">$FusedCyclicPathIndex1</span> &lt; <span class="i">$FusedCyclicPathIndex2</span><span class="s">)</span> ? <span class="q">&quot;${FusedCyclicPathIndex1}-${FusedCyclicPathIndex2}&quot;</span> <span class="co">:</span> <span class="q">&quot;${FusedCyclicPathIndex2}-${FusedCyclicPathIndex1}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2062 2049 <span class="i">$EdgeID</span> = <span class="s">(</span><span class="i">$VertexID1</span> &lt; <span class="i">$VertexID2</span><span class="s">)</span> ? <span class="q">&quot;${VertexID1}-${VertexID2}&quot;</span> <span class="co">:</span> <span class="q">&quot;${VertexID2}-${VertexID1}&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2063 2050
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2064 2051 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$FusedCyclePairs</span>{<span class="i">$FusedCyclePairID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2065 2052 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$CommonEdgeVisited</span>{<span class="i">$FusedCyclePairID</span>}{<span class="i">$EdgeID</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2066 2053 <span class="c"># Edge already processed...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2067 2054 <span class="k">next</span> <span class="j">EDGE</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2068 2055 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2069 2056 <span class="i">$CommonEdgeVisited</span>{<span class="i">$FusedCyclePairID</span>}{<span class="i">$EdgeID</span>} = <span class="i">$EdgeID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2070 2057
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2071 2058 <span class="i">$CommonEdgesCount</span>{<span class="i">$FusedCyclePairID</span>} += <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2072 2059 <span class="k">push</span> <span class="i">@</span>{<span class="i">$FusedCyclePairs</span>{<span class="i">$FusedCyclePairID</span>}}<span class="cm">,</span> <span class="i">$EdgeID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2073 2060 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2074 2061 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2075 2062 <span class="i">@</span>{<span class="i">$FusedCyclePairs</span>{<span class="i">$FusedCyclePairID</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2076 2063 <span class="k">push</span> <span class="i">@</span>{<span class="i">$FusedCyclePairs</span>{<span class="i">$FusedCyclePairID</span>}}<span class="cm">,</span> <span class="i">$EdgeID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2077 2064
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2078 2065 <span class="i">%</span>{<span class="i">$CommonEdgeVisited</span>{<span class="i">$FusedCyclePairID</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2079 2066 <span class="i">$CommonEdgeVisited</span>{<span class="i">$FusedCyclePairID</span>}{<span class="i">$EdgeID</span>} = <span class="i">$EdgeID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2080 2067
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2081 2068 <span class="i">$CommonEdgesCount</span>{<span class="i">$FusedCyclePairID</span>} = <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2082 2069 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2083 2070 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2084 2071 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2085 2072 <span class="c"># Valid fused cyle in fused cycle pairs must have only one common egde...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2086 2073 <span class="k">for</span> <span class="i">$FusedCyclePairID</span> <span class="s">(</span><span class="k">keys</span> <span class="i">%FusedCyclePairs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2087 2074 <span class="s">(</span><span class="i">$FusedCyclicPathIndex1</span><span class="cm">,</span> <span class="i">$FusedCyclicPathIndex2</span><span class="s">)</span> = <span class="k">split</span> <span class="q">/-/</span><span class="cm">,</span> <span class="i">$FusedCyclePairID</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2088 2075 <span class="i">$FusedCycles</span>{<span class="i">$FusedCyclicPathIndex1</span>} = <span class="i">$FusedCyclicPathIndex1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2089 2076 <span class="i">$FusedCycles</span>{<span class="i">$FusedCyclicPathIndex2</span>} = <span class="i">$FusedCyclicPathIndex2</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2090 2077 <span class="k">if</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$FusedCyclePairs</span>{<span class="i">$FusedCyclePairID</span>}} != <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2091 2078 <span class="c"># Mark the cycles involved as invalid fused cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2092 2079 <span class="i">$InValidFusedCycles</span>{<span class="i">$FusedCyclicPathIndex1</span>} = <span class="i">$FusedCyclicPathIndex1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2093 2080 <span class="i">$InValidFusedCycles</span>{<span class="i">$FusedCyclicPathIndex2</span>} = <span class="i">$FusedCyclicPathIndex2</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2094 2081 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2095 2082 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2096 2083 <span class="k">return</span> <span class="s">(</span>\<span class="i">%FusedCyclePairs</span><span class="cm">,</span> \<span class="i">%FusedCycles</span><span class="cm">,</span> \<span class="i">%InValidFusedCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2097 2084 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2098 2085
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2099 2086 <span class="c"># Go over fused cycles and set up a graph to collect fused cycle sets. Graph vertices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2100 2087 <span class="c"># correspond to cylce indices; edges correspond to pair of fused cylcles; fused cycle</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2101 2088 <span class="c"># sets correspond to connected components. Addionally set up common edges for</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2102 2089 <span class="c"># fused cycle sets.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2103 2090 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2104 <a name="_GetFusedCycleSetsIndices-"></a>2091 <span class="k">sub </span><span class="m">_GetFusedCycleSetsIndices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2105 2092 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$FusedCyclePairsRef</span><span class="cm">,</span> <span class="i">$FusedCyclesRef</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2106 2093 <span class="k">my</span><span class="s">(</span><span class="i">$FusedCyclesGraph</span><span class="cm">,</span> <span class="i">@FusedCycleIndices</span><span class="cm">,</span> <span class="i">@FusedCyclePairIndices</span><span class="cm">,</span> <span class="i">@FusedCycleSetsIndices</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2107 2094
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2108 2095 <span class="i">@FusedCycleIndices</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">@FusedCyclePairIndices</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2109 2096 <span class="i">@FusedCycleSetsIndices</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2110 2097
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2111 2098 <span class="i">@FusedCycleIndices</span> = <span class="k">sort</span> <span class="s">{</span> <span class="i">$a</span> &lt;=&gt; <span class="i">$b</span> <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$FusedCyclesRef</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2112 2099 <span class="i">@FusedCyclePairIndices</span> = <span class="k">map</span> <span class="s">{</span> <span class="k">split</span> <span class="q">/-/</span><span class="cm">,</span> <span class="i">$_</span><span class="sc">;</span> <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$FusedCyclePairsRef</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2113 2100 <span class="k">if</span> <span class="s">(</span>!<span class="i">@FusedCycleIndices</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2114 2101 <span class="c"># No fused cycles out there...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2115 2102 <span class="k">return</span> \<span class="i">@FusedCycleSetsIndices</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2116 2103 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2117 2104 <span class="i">$FusedCyclesGraph</span> = <span class="i">new</span> <span class="i">Graph</span><span class="s">(</span><span class="i">@FusedCycleIndices</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2118 2105 <span class="i">$FusedCyclesGraph</span><span class="i">-&gt;AddEdges</span><span class="s">(</span><span class="i">@FusedCyclePairIndices</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2119 2106
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2120 2107 <span class="i">@FusedCycleSetsIndices</span> = <span class="i">$FusedCyclesGraph</span><span class="i">-&gt;GetConnectedComponentsVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2121 2108
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2122 2109 <span class="k">return</span> \<span class="i">@FusedCycleSetsIndices</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2123 2110 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2124 2111
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2125 2112 <span class="c"># Go over indices of fused cycle sets and map cyclic path indices to cyclic path objects.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2126 2113 <span class="c"># For fused sets containing a cycle with more than one common edge, the whole set is treated</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2127 2114 <span class="c"># as non-fused set...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2128 2115 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2129 <a name="_GetFusedAndNonFusedCycles-"></a>2116 <span class="k">sub </span><span class="m">_GetFusedAndNonFusedCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2130 2117 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$FusedCycleSetsIndicesRef</span><span class="cm">,</span> <span class="i">$InValidFusedCycleRef</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2131 2118 <span class="k">my</span><span class="s">(</span><span class="i">$CycleSetIndicesRef</span><span class="cm">,</span> <span class="i">$CyclicPathIndex</span><span class="cm">,</span> <span class="i">$ValidFusedCycleSet</span><span class="cm">,</span> <span class="i">@FusedCycleSets</span><span class="cm">,</span> <span class="i">@UnsortedNonFusedCycles</span><span class="cm">,</span> <span class="i">@NonFusedCycles</span><span class="cm">,</span> <span class="i">%CycleIndexVisited</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2132 2119
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2133 2120 <span class="i">@FusedCycleSets</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">@NonFusedCycles</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">@UnsortedNonFusedCycles</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2134 2121 <span class="i">%CycleIndexVisited</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2135 2122 <span class="k">for</span> <span class="i">$CycleSetIndicesRef</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$FusedCycleSetsIndicesRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2136 2123 <span class="c"># Is it a valid fused cycle set? Fused cycle set containing any cycle with more than one common</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2137 2124 <span class="c"># edge is considered invalid and all its cycles are treated as non-fused cycles.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2138 2125 <span class="i">$ValidFusedCycleSet</span> = <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2139 2126 <span class="k">for</span> <span class="i">$CyclicPathIndex</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$CycleSetIndicesRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2140 2127 <span class="i">$CycleIndexVisited</span>{<span class="i">$CyclicPathIndex</span>} = <span class="i">$CyclicPathIndex</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2141 2128 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$InValidFusedCycleRef</span>-&gt;{<span class="i">$CyclicPathIndex</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2142 2129 <span class="i">$ValidFusedCycleSet</span> = <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2143 2130 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2144 2131 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2145 2132 <span class="k">if</span> <span class="s">(</span><span class="i">$ValidFusedCycleSet</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2146 2133 <span class="k">my</span><span class="s">(</span><span class="i">@FusedCycleSet</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2147 2134 <span class="i">@FusedCycleSet</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2148 2135 <span class="k">push</span> <span class="i">@FusedCycleSet</span><span class="cm">,</span> <span class="k">sort</span> <span class="s">{</span> <span class="i">$a</span><span class="i">-&gt;GetLength</span><span class="s">(</span><span class="s">)</span> &lt;=&gt; <span class="i">$b</span><span class="i">-&gt;GetLength</span><span class="s">(</span><span class="s">)</span> <span class="s">}</span> <span class="k">map</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="i">$_</span>] <span class="s">}</span> <span class="i">@</span>{<span class="i">$CycleSetIndicesRef</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2149 2136 <span class="k">push</span> <span class="i">@FusedCycleSets</span><span class="cm">,</span> \<span class="i">@FusedCycleSet</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2150 2137 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2151 2138 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2152 2139 <span class="k">push</span> <span class="i">@UnsortedNonFusedCycles</span><span class="cm">,</span> <span class="k">map</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="i">$_</span>] <span class="s">}</span> <span class="i">@</span>{<span class="i">$CycleSetIndicesRef</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2153 2140 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2154 2141 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2155 2142
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2156 2143 <span class="c"># Add any leftover cycles to non-fused cycles list...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2157 2144 <span class="j">CYCLICPATH:</span> <span class="k">for</span> <span class="i">$CyclicPathIndex</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2158 2145 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$CycleIndexVisited</span>{<span class="i">$CyclicPathIndex</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2159 2146 <span class="k">next</span> <span class="j">CYCLICPATH</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2160 2147 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2161 2148 <span class="k">push</span> <span class="i">@UnsortedNonFusedCycles</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="i">$CyclicPathIndex</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2162 2149 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2163 2150 <span class="i">@NonFusedCycles</span> = <span class="k">sort</span> <span class="s">{</span> <span class="i">$a</span><span class="i">-&gt;GetLength</span><span class="s">(</span><span class="s">)</span> &lt;=&gt; <span class="i">$b</span><span class="i">-&gt;GetLength</span><span class="s">(</span><span class="s">)</span> <span class="s">}</span> <span class="i">@UnsortedNonFusedCycles</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2164 2151
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2165 2152 <span class="k">return</span> <span class="s">(</span>\<span class="i">@FusedCycleSets</span><span class="cm">,</span> \<span class="i">@NonFusedCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2166 2153 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2167 2154
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2168 2155 <span class="c"># Delete cycles associated with graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2169 2156 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2170 <a name="_DeleteCyclesAssociatedWithGraph-"></a>2157 <span class="k">sub </span><span class="m">_DeleteCyclesAssociatedWithGraph</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2171 2158 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2172 2159
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2173 2160 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2174 2161 <span class="i">$This</span><span class="i">-&gt;DeleteGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2175 2162 <span class="i">$This</span><span class="i">-&gt;DeleteGraphProperty</span><span class="s">(</span><span class="q">&#39;AllCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2176 2163 <span class="i">$This</span><span class="i">-&gt;DeleteGraphProperty</span><span class="s">(</span><span class="q">&#39;IndependentCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2177 2164 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2178 2165 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2179 2166 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2180 2167
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2181 2168 <span class="c"># Delete cycles associated with vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2182 2169 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2183 <a name="_DeleteCyclesAssociatedWithVertices-"></a>2170 <span class="k">sub </span><span class="m">_DeleteCyclesAssociatedWithVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2184 2171 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2185 2172 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@VertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2186 2173
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2187 2174 <span class="i">@VertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2188 2175 <span class="i">@VertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2189 2176 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">@VertexIDs</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2190 2177 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2191 2178 <span class="i">$This</span><span class="i">-&gt;DeleteVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2192 2179 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2193 2180 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2194 2181 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2195 2182 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2196 2183
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2197 2184 <span class="c"># Delete cycles associated with edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2198 2185 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2199 <a name="_DeleteCyclesAssociatedWithEdges-"></a>2186 <span class="k">sub </span><span class="m">_DeleteCyclesAssociatedWithEdges</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2200 2187 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2201 2188 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">@EdgeVertexIDs</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2202 2189
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2203 2190 <span class="i">@EdgeVertexIDs</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2204 2191 <span class="i">@EdgeVertexIDs</span> = <span class="i">$This</span><span class="i">-&gt;GetEdges</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2205 2192 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> &lt; <span class="i">$#EdgeVertexIDs</span><span class="sc">;</span> <span class="i">$Index</span> += <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2206 2193 <span class="i">$VertexID1</span> = <span class="i">$EdgeVertexIDs</span>[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$VertexID2</span> = <span class="i">$EdgeVertexIDs</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2207 2194 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2208 2195 <span class="i">$This</span><span class="i">-&gt;DeleteEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2209 2196 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2210 2197 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2211 2198 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2212 2199 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2213 2200
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2214 2201 <span class="c"># Delete fused cycles associated with edges...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2215 2202 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2216 <a name="_DeleteFusedCyclesAssociatedWithGraph-"></a>2203 <span class="k">sub </span><span class="m">_DeleteFusedCyclesAssociatedWithGraph</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2217 2204 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2218 2205
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2219 2206 <span class="c"># Delete exisiting cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2220 2207 <span class="k">if</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;FusedActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2221 2208 <span class="i">$This</span><span class="i">-&gt;DeleteGraphProperty</span><span class="s">(</span><span class="q">&#39;FusedActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2222 2209 <span class="i">$This</span><span class="i">-&gt;DeleteGraphProperty</span><span class="s">(</span><span class="q">&#39;NonFusedActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2223 2210 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2224 2211 <span class="k">return</span> <span class="i">$This</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2225 2212 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2226 2213
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2227 2214 <span class="c"># Does graph contains any cycles?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2228 2215 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2229 <a name="IsAcyclic-"></a>2216 <span class="k">sub </span><span class="m">IsAcyclic</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2230 2217 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2231 2218
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2232 2219 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetNumOfCycles</span><span class="s">(</span><span class="s">)</span> ? <span class="n">0</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2233 2220 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2234 2221
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2235 2222 <span class="c"># Does graph contains cycles?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2236 2223 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2237 <a name="IsCyclic-"></a>2224 <span class="k">sub </span><span class="m">IsCyclic</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2238 2225 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2239 2226
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2240 2227 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetNumOfCycles</span><span class="s">(</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2241 2228 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2242 2229
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2243 2230 <span class="c"># Does graph contains only any cycle?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2244 2231 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2245 <a name="IsUnicyclic-"></a>2232 <span class="k">sub </span><span class="m">IsUnicyclic</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2246 2233 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2247 2234
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2248 2235 <span class="k">return</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;GetNumOfCycles</span><span class="s">(</span><span class="s">)</span> == <span class="n">1</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2249 2236 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2250 2237
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2251 2238 <span class="c"># Get size of smallest cycle in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2252 2239 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2253 <a name="GetGirth-"></a>2240 <span class="k">sub </span><span class="m">GetGirth</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2254 2241 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2255 2242
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2256 2243 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetSizeOfSmallestCycle</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2257 2244 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2258 2245
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2259 2246 <span class="c"># Get size of smallest cycle in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2260 2247 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2261 <a name="GetSizeOfSmallestCycle-"></a>2248 <span class="k">sub </span><span class="m">GetSizeOfSmallestCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2262 2249 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2263 2250
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2264 2251 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycleSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SmallestCycle&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2265 2252 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2266 2253
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2267 2254 <span class="c"># Get size of largest cycle in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2268 2255 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2269 <a name="GetCircumference-"></a>2256 <span class="k">sub </span><span class="m">GetCircumference</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2270 2257 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2271 2258
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2272 2259 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetSizeOfLargestCycle</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2273 2260 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2274 2261
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2275 2262 <span class="c"># Get size of largest cycle in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2276 2263 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2277 <a name="GetSizeOfLargestCycle-"></a>2264 <span class="k">sub </span><span class="m">GetSizeOfLargestCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2278 2265 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2279 2266
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2280 2267 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycleSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;LargestCycle&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2281 2268 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2282 2269
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2283 2270 <span class="c"># Get number of cycles in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2284 2271 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2285 <a name="GetNumOfCycles-"></a>2272 <span class="k">sub </span><span class="m">GetNumOfCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2286 2273 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2287 2274
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2288 2275 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;AllSizes&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2289 2276 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2290 2277
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2291 2278 <span class="c"># Get number of cycles with odd size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2292 2279 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2293 <a name="GetNumOfCyclesWithOddSize-"></a>2280 <span class="k">sub </span><span class="m">GetNumOfCyclesWithOddSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2294 2281 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2295 2282
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2296 2283 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;OddSize&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2297 2284 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2298 2285
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2299 2286 <span class="c"># Get number of cycles with even size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2300 2287 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2301 <a name="GetNumOfCyclesWithEvenSize-"></a>2288 <span class="k">sub </span><span class="m">GetNumOfCyclesWithEvenSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2302 2289 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2303 2290
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2304 2291 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;EvenSize&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2305 2292 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2306 2293
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2307 2294 <span class="c"># Get number of cycles with specific size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2308 2295 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2309 <a name="GetNumOfCyclesWithSize-"></a>2296 <span class="k">sub </span><span class="m">GetNumOfCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2310 2297 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2311 2298
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2312 2299 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SpecifiedSize&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2313 2300 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2314 2301
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2315 2302 <span class="c"># Get number of cycles with size less than a specific size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2316 2303 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2317 <a name="GetNumOfCyclesWithSizeLessThan-"></a>2304 <span class="k">sub </span><span class="m">GetNumOfCyclesWithSizeLessThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2318 2305 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2319 2306
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2320 2307 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeLessThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2321 2308 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2322 2309
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2323 2310 <span class="c"># Get number of cycles with size greater than a specific size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2324 2311 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2325 <a name="GetNumOfCyclesWithSizeGreaterThan-"></a>2312 <span class="k">sub </span><span class="m">GetNumOfCyclesWithSizeGreaterThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2326 2313 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2327 2314
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2328 2315 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeGreaterThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2329 2316 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2330 2317
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2331 2318 <span class="c"># Get largest cyclic path in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2332 2319 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2333 <a name="GetLargestCycle-"></a>2320 <span class="k">sub </span><span class="m">GetLargestCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2334 2321 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2335 2322
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2336 2323 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycle</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;LargestCycle&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2337 2324 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2338 2325
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2339 2326 <span class="c"># Get smallest cyclic path in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2340 2327 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2341 <a name="GetSmallestCycle-"></a>2328 <span class="k">sub </span><span class="m">GetSmallestCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2342 2329 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2343 2330
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2344 2331 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycle</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SmallestCycle&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2345 2332 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2346 2333
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2347 2334 <span class="c"># Get all cycles in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2348 2335 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2349 <a name="GetCycles-"></a>2336 <span class="k">sub </span><span class="m">GetCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2350 2337 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2351 2338
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2352 2339 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;AllSizes&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2353 2340 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2354 2341
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2355 2342 <span class="c"># Get cycles with odd size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2356 2343 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2357 <a name="GetCyclesWithOddSize-"></a>2344 <span class="k">sub </span><span class="m">GetCyclesWithOddSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2358 2345 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2359 2346
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2360 2347 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;OddSize&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2361 2348 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2362 2349
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2363 2350 <span class="c"># Get cycles with even size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2364 2351 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2365 <a name="GetCyclesWithEvenSize-"></a>2352 <span class="k">sub </span><span class="m">GetCyclesWithEvenSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2366 2353 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2367 2354
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2368 2355 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;EvenSize&#39;</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2369 2356 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2370 2357
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2371 2358 <span class="c"># Get cycles with specific size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2372 2359 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2373 <a name="GetCyclesWithSize-"></a>2360 <span class="k">sub </span><span class="m">GetCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2374 2361 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2375 2362
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2376 2363 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SpecifiedSize&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2377 2364 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2378 2365
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2379 2366 <span class="c"># Get cycles with size less than a specific size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2380 2367 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2381 <a name="GetCyclesWithSizeLessThan-"></a>2368 <span class="k">sub </span><span class="m">GetCyclesWithSizeLessThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2382 2369 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2383 2370
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2384 2371 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeLessThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2385 2372 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2386 2373
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2387 2374 <span class="c"># Get cycles with size greater than a specific size in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2388 2375 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2389 <a name="GetCyclesWithSizeGreaterThan-"></a>2376 <span class="k">sub </span><span class="m">GetCyclesWithSizeGreaterThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2390 2377 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2391 2378
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2392 2379 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;GraphCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeGreaterThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2393 2380 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2394 2381
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2395 2382 <span class="c"># Is vertex in a cycle?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2396 2383 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2397 <a name="IsCyclicVertex-"></a>2384 <span class="k">sub </span><span class="m">IsCyclicVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2398 2385 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2399 2386
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2400 2387 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetNumOfVertexCycles</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2401 2388 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2402 2389
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2403 2390 <span class="c"># Is vertex in a only one cycle?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2404 2391 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2405 <a name="IsUnicyclicVertex-"></a>2392 <span class="k">sub </span><span class="m">IsUnicyclicVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2406 2393 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2407 2394
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2408 2395 <span class="k">return</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;GetNumOfVertexCycles</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> == <span class="n">1</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2409 2396 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2410 2397
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2411 2398 <span class="c"># Is vertex not in a cycle?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2412 2399 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2413 <a name="IsAcyclicVertex-"></a>2400 <span class="k">sub </span><span class="m">IsAcyclicVertex</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2414 2401 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2415 2402
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2416 2403 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetNumOfVertexCycles</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> ? <span class="n">0</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2417 2404 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2418 2405
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2419 2406 <span class="c"># Get size of smallest cycle containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2420 2407 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2421 <a name="GetSizeOfSmallestVertexCycle-"></a>2408 <span class="k">sub </span><span class="m">GetSizeOfSmallestVertexCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2422 2409 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2423 2410
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2424 2411 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycleSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SmallestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2425 2412 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2426 2413
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2427 2414 <span class="c"># Get size of largest cycle containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2428 2415 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2429 <a name="GetSizeOfLargestVertexCycle-"></a>2416 <span class="k">sub </span><span class="m">GetSizeOfLargestVertexCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2430 2417 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2431 2418
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2432 2419 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycleSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;LargestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2433 2420 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2434 2421
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2435 2422 <span class="c"># Get number of cycles containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2436 2423 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2437 <a name="GetNumOfVertexCycles-"></a>2424 <span class="k">sub </span><span class="m">GetNumOfVertexCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2438 2425 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2439 2426
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2440 2427 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;AllSizes&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2441 2428 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2442 2429
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2443 2430 <span class="c"># Get number of cycles with odd size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2444 2431 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2445 <a name="GetNumOfVertexCyclesWithOddSize-"></a>2432 <span class="k">sub </span><span class="m">GetNumOfVertexCyclesWithOddSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2446 2433 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2447 2434
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2448 2435 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;OddSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2449 2436 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2450 2437
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2451 2438 <span class="c"># Get number of cycles with even size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2452 2439 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2453 <a name="GetNumOfVertexCyclesWithEvenSize-"></a>2440 <span class="k">sub </span><span class="m">GetNumOfVertexCyclesWithEvenSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2454 2441 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2455 2442
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2456 2443 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;EvenSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2457 2444 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2458 2445
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2459 2446 <span class="c"># Get number of cycles with specified size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2460 2447 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2461 <a name="GetNumOfVertexCyclesWithSize-"></a>2448 <span class="k">sub </span><span class="m">GetNumOfVertexCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2462 2449 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2463 2450
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2464 2451 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SpecifiedSize&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2465 2452 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2466 2453
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2467 2454 <span class="c"># Get number of cycles with size less than specified size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2468 2455 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2469 <a name="GetNumOfVertexCyclesWithSizeLessThan-"></a>2456 <span class="k">sub </span><span class="m">GetNumOfVertexCyclesWithSizeLessThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2470 2457 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2471 2458
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2472 2459 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeLessThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2473 2460 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2474 2461
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2475 2462 <span class="c"># Get number of cycles with size greater than specified size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2476 2463 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2477 <a name="GetNumOfVertexCyclesWithSizeGreaterThan-"></a>2464 <span class="k">sub </span><span class="m">GetNumOfVertexCyclesWithSizeGreaterThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2478 2465 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2479 2466
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2480 2467 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeGreaterThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2481 2468 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2482 2469
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2483 2470 <span class="c"># Get smallest cycle containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2484 2471 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2485 <a name="GetSmallestVertexCycle-"></a>2472 <span class="k">sub </span><span class="m">GetSmallestVertexCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2486 2473 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2487 2474
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2488 2475 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycle</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SmallestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2489 2476 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2490 2477
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2491 2478 <span class="c"># Get largest cycle containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2492 2479 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2493 <a name="GetLargestVertexCycle-"></a>2480 <span class="k">sub </span><span class="m">GetLargestVertexCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2494 2481 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2495 2482
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2496 2483 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycle</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;LargestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2497 2484 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2498 2485
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2499 2486 <span class="c"># Get cycles containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2500 2487 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2501 <a name="GetVertexCycles-"></a>2488 <span class="k">sub </span><span class="m">GetVertexCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2502 2489 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2503 2490
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2504 2491 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;AllSizes&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2505 2492 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2506 2493
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2507 2494 <span class="c"># Get cycles with odd size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2508 2495 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2509 <a name="GetVertexCyclesWithOddSize-"></a>2496 <span class="k">sub </span><span class="m">GetVertexCyclesWithOddSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2510 2497 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2511 2498
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2512 2499 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;OddSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2513 2500 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2514 2501
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2515 2502 <span class="c"># Get cycles with even size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2516 2503 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2517 <a name="GetVertexCyclesWithEvenSize-"></a>2504 <span class="k">sub </span><span class="m">GetVertexCyclesWithEvenSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2518 2505 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2519 2506
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2520 2507 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;EvenSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2521 2508 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2522 2509
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2523 2510 <span class="c"># Get cycles with specified size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2524 2511 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2525 <a name="GetVertexCyclesWithSize-"></a>2512 <span class="k">sub </span><span class="m">GetVertexCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2526 2513 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2527 2514
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2528 2515 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SpecifiedSize&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2529 2516 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2530 2517
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2531 2518 <span class="c"># Get cycles with size less than specified size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2532 2519 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2533 <a name="GetVertexCyclesWithSizeLessThan-"></a>2520 <span class="k">sub </span><span class="m">GetVertexCyclesWithSizeLessThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2534 2521 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2535 2522
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2536 2523 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeLessThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2537 2524 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2538 2525
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2539 2526 <span class="c"># Get cycles with size greater than specified size containing specified vertex...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2540 2527 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2541 <a name="GetVertexCyclesWithSizeGreaterThan-"></a>2528 <span class="k">sub </span><span class="m">GetVertexCyclesWithSizeGreaterThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2542 2529 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2543 2530
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2544 2531 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;VertexCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeGreaterThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2545 2532 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2546 2533
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2547 2534 <span class="c"># Is edge in a cycle?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2548 2535 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2549 <a name="IsCyclicEdge-"></a>2536 <span class="k">sub </span><span class="m">IsCyclicEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2550 2537 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2551 2538
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2552 2539 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetNumOfEdgeCycles</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2553 2540 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2554 2541
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2555 2542 <span class="c"># Is edge in a only one cycle?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2556 2543 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2557 <a name="IsUnicyclicEdge-"></a>2544 <span class="k">sub </span><span class="m">IsUnicyclicEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2558 2545 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2559 2546
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2560 2547 <span class="k">return</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;GetNumOfEdgeCycles</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> == <span class="n">1</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2561 2548 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2562 2549
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2563 2550 <span class="c"># Is Edge not in a cycle?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2564 2551 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2565 <a name="IsAcyclicEdge-"></a>2552 <span class="k">sub </span><span class="m">IsAcyclicEdge</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2566 2553 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2567 2554
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2568 2555 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetNumOfEdgeCycles</span><span class="s">(</span><span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> ? <span class="n">0</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2569 2556 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2570 2557
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2571 2558 <span class="c"># Get size of smallest cycle containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2572 2559 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2573 <a name="GetSizeOfSmallestEdgeCycle-"></a>2560 <span class="k">sub </span><span class="m">GetSizeOfSmallestEdgeCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2574 2561 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2575 2562
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2576 2563 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycleSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SmallestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2577 2564 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2578 2565
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2579 2566 <span class="c"># Get size of largest cycle containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2580 2567 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2581 <a name="GetSizeOfLargestEdgeCycle-"></a>2568 <span class="k">sub </span><span class="m">GetSizeOfLargestEdgeCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2582 2569 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2583 2570
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2584 2571 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycleSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;LargestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2585 2572 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2586 2573
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2587 2574 <span class="c"># Get number of cycles containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2588 2575 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2589 <a name="GetNumOfEdgeCycles-"></a>2576 <span class="k">sub </span><span class="m">GetNumOfEdgeCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2590 2577 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2591 2578
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2592 2579 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;AllSizes&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2593 2580 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2594 2581
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2595 2582 <span class="c"># Get number of cycles with odd size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2596 2583 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2597 <a name="GetNumOfEdgeCyclesWithOddSize-"></a>2584 <span class="k">sub </span><span class="m">GetNumOfEdgeCyclesWithOddSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2598 2585 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2599 2586
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2600 2587 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;OddSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2601 2588 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2602 2589
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2603 2590 <span class="c"># Get number of cycles with even size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2604 2591 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2605 <a name="GetNumOfEdgeCyclesWithEvenSize-"></a>2592 <span class="k">sub </span><span class="m">GetNumOfEdgeCyclesWithEvenSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2606 2593 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2607 2594
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2608 2595 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;EvenSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2609 2596 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2610 2597
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2611 2598 <span class="c"># Get number of cycles with specified size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2612 2599 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2613 <a name="GetNumOfEdgeCyclesWithSize-"></a>2600 <span class="k">sub </span><span class="m">GetNumOfEdgeCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2614 2601 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2615 2602
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2616 2603 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SpecifiedSize&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2617 2604 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2618 2605
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2619 2606 <span class="c"># Get number of cycles with size less than specified size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2620 2607 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2621 <a name="GetNumOfEdgeCyclesWithSizeLessThan-"></a>2608 <span class="k">sub </span><span class="m">GetNumOfEdgeCyclesWithSizeLessThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2622 2609 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2623 2610
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2624 2611 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeLessThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2625 2612 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2626 2613
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2627 2614 <span class="c"># Get number of cycles with size greater than specified size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2628 2615 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2629 <a name="GetNumOfEdgeCyclesWithSizeGreaterThan-"></a>2616 <span class="k">sub </span><span class="m">GetNumOfEdgeCyclesWithSizeGreaterThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2630 2617 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2631 2618
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2632 2619 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeGreaterThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2633 2620 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2634 2621
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2635 2622 <span class="c"># Get smallest cycle containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2636 2623 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2637 <a name="GetSmallestEdgeCycle-"></a>2624 <span class="k">sub </span><span class="m">GetSmallestEdgeCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2638 2625 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2639 2626
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2640 2627 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycle</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SmallestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2641 2628 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2642 2629
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2643 2630 <span class="c"># Get largest cycle containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2644 2631 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2645 <a name="GetLargestEdgeCycle-"></a>2632 <span class="k">sub </span><span class="m">GetLargestEdgeCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2646 2633 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2647 2634
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2648 2635 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycle</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;LargestCycle&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2649 2636 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2650 2637
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2651 2638 <span class="c"># Get cycles containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2652 2639 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2653 <a name="GetEdgeCycles-"></a>2640 <span class="k">sub </span><span class="m">GetEdgeCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2654 2641 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2655 2642
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2656 2643 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;AllSizes&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2657 2644 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2658 2645
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2659 2646 <span class="c"># Get cycles with odd size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2660 2647 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2661 <a name="GetEdgeCyclesWithOddSize-"></a>2648 <span class="k">sub </span><span class="m">GetEdgeCyclesWithOddSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2662 2649 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2663 2650
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2664 2651 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;OddSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2665 2652 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2666 2653
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2667 2654 <span class="c"># Get cycles with even size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2668 2655 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2669 <a name="GetEdgeCyclesWithEvenSize-"></a>2656 <span class="k">sub </span><span class="m">GetEdgeCyclesWithEvenSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2670 2657 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2671 2658
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2672 2659 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;EvenSize&#39;</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2673 2660 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2674 2661
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2675 2662 <span class="c"># Get cycles with specified size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2676 2663 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2677 <a name="GetEdgeCyclesWithSize-"></a>2664 <span class="k">sub </span><span class="m">GetEdgeCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2678 2665 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2679 2666
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2680 2667 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SpecifiedSize&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2681 2668 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2682 2669
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2683 2670 <span class="c"># Get cycles with size less than specified size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2684 2671 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2685 <a name="GetEdgeCyclesWithSizeLessThan-"></a>2672 <span class="k">sub </span><span class="m">GetEdgeCyclesWithSizeLessThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2686 2673 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2687 2674
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2688 2675 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeLessThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2689 2676 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2690 2677
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2691 2678 <span class="c"># Get cycles with size greater than specified size containing specified edge...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2692 2679 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2693 <a name="GetEdgeCyclesWithSizeGreaterThan-"></a>2680 <span class="k">sub </span><span class="m">GetEdgeCyclesWithSizeGreaterThan</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2694 2681 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2695 2682
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2696 2683 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCyclesWithSize</span><span class="s">(</span><span class="q">&#39;EdgeCycle&#39;</span><span class="cm">,</span> <span class="q">&#39;SizeGreaterThan&#39;</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2697 2684 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2698 2685
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2699 2686 <span class="c"># Get size of specified cycle type...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2700 2687 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2701 <a name="_GetCycleSize-"></a>2688 <span class="k">sub </span><span class="m">_GetCycleSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2702 2689 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Mode</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2703 2690 <span class="k">my</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="cm">,</span> <span class="i">$Size</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2704 2691
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2705 2692 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2706 2693 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2707 2694 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2708 2695 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2709 2696 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2710 2697 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2711 2698 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2712 2699 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2713 2700 <span class="k">elsif</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2714 2701 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2715 2702 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2716 2703 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2717 2704 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2718 2705
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2719 2706 <span class="j">MODE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2720 2707 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^GraphCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2721 2708 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2722 2709 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2723 2710 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2724 2711 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2725 2712
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2726 2713 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2727 2714 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2728 2715 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2729 2716
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2730 2717 <span class="j">CYCLESIZE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2731 2718 <span class="k">if</span> <span class="s">(</span><span class="i">$CycleSize</span> =~ <span class="q">/^SmallestCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$CyclicPath</span> = <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="n">0</span>]<span class="sc">;</span> <span class="k">last</span> <span class="j">CYCLESIZE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2732 2719 <span class="k">if</span> <span class="s">(</span><span class="i">$CycleSize</span> =~ <span class="q">/^LargestCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$CyclicPath</span> = <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="i">$#</span>{<span class="i">$ActiveCyclicPathsRef</span>}]<span class="sc">;</span> <span class="k">last</span> <span class="j">CYCLESIZE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2733 2720 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2734 2721 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2735 2722 <span class="i">$Size</span> = <span class="i">$CyclicPath</span><span class="i">-&gt;GetLength</span><span class="s">(</span><span class="s">)</span> - <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2736 2723
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2737 2724 <span class="k">return</span> <span class="i">$Size</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2738 2725 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2739 2726
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2740 2727 <span class="c"># Get of specified cycle size...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2741 2728 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2742 <a name="_GetCycle-"></a>2729 <span class="k">sub </span><span class="m">_GetCycle</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2743 2730 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Mode</span><span class="cm">,</span> <span class="i">$CycleSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2744 2731 <span class="k">my</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="cm">,</span> <span class="i">$Size</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2745 2732
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2746 2733 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2747 2734 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2748 2735 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2749 2736 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2750 2737 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2751 2738 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2752 2739 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2753 2740 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2754 2741 <span class="k">elsif</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2755 2742 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2756 2743 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2757 2744 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2758 2745 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2759 2746
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2760 2747 <span class="j">MODE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2761 2748 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^GraphCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2762 2749 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2763 2750 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2764 2751 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2765 2752 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2766 2753
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2767 2754 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2768 2755 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2769 2756 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2770 2757
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2771 2758 <span class="j">CYCLESIZE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2772 2759 <span class="k">if</span> <span class="s">(</span><span class="i">$CycleSize</span> =~ <span class="q">/^SmallestCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$CyclicPath</span> = <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="n">0</span>]<span class="sc">;</span> <span class="k">last</span> <span class="j">CYCLESIZE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2773 2760 <span class="k">if</span> <span class="s">(</span><span class="i">$CycleSize</span> =~ <span class="q">/^LargestCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$CyclicPath</span> = <span class="i">$ActiveCyclicPathsRef</span>-&gt;[<span class="i">$#</span>{<span class="i">$ActiveCyclicPathsRef</span>}]<span class="sc">;</span> <span class="k">last</span> <span class="j">CYCLESIZE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2774 2761 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2775 2762 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2776 2763 <span class="k">return</span> <span class="i">$CyclicPath</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2777 2764 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2778 2765
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2779 2766 <span class="c"># Get num of cycles in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2780 2767 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2781 <a name="_GetNumOfCyclesWithSize-"></a>2768 <span class="k">sub </span><span class="m">_GetNumOfCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2782 2769 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Mode</span><span class="cm">,</span> <span class="i">$SizeMode</span><span class="cm">,</span> <span class="i">$SpecifiedSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2783 2770 <span class="k">my</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2784 2771
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2785 2772 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2786 2773 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2787 2774 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2788 2775 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2789 2776 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2790 2777 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2791 2778 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2792 2779 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2793 2780 <span class="k">elsif</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2794 2781 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2795 2782 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2796 2783 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2797 2784 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2798 2785
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2799 2786 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^(SizeLessThan|SizeGreaterThan|SpecifiedSize)$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2800 2787 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$SpecifiedSize</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2801 2788 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;_GetNumOfCyclesWithSize: Cycle size muse be defined...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2802 2789 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2803 2790 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2804 2791 <span class="k">if</span> <span class="s">(</span><span class="i">$SpecifiedSize</span> &lt; <span class="n">0</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2805 2792 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;_GetNumOfCyclesWithSize: Specified cycle size, $SpecifiedSize, must be &gt; 0 ...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2806 2793 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2807 2794 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2808 2795 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2809 2796
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2810 2797 <span class="j">MODE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2811 2798 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^GraphCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2812 2799 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2813 2800 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2814 2801 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2815 2802 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2816 2803
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2817 2804 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2818 2805 <span class="k">return</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2819 2806 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2820 2807 <span class="k">my</span><span class="s">(</span><span class="i">$NumOfCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2821 2808
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2822 2809 <span class="i">$NumOfCycles</span> = <span class="i">$This</span><span class="i">-&gt;_GetCycles</span><span class="s">(</span><span class="i">$Mode</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$SizeMode</span><span class="cm">,</span> <span class="i">$SpecifiedSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2823 2810
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2824 2811 <span class="k">return</span> <span class="i">$NumOfCycles</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2825 2812 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2826 2813
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2827 2814 <span class="c"># Get cycles in graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2828 2815 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2829 <a name="_GetCyclesWithSize-"></a>2816 <span class="k">sub </span><span class="m">_GetCyclesWithSize</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2830 2817 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Mode</span><span class="cm">,</span> <span class="i">$SizeMode</span><span class="cm">,</span> <span class="i">$SpecifiedSize</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2831 2818 <span class="k">my</span><span class="s">(</span><span class="i">$ActiveCyclicPathsRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2832 2819
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2833 2820 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2834 2821 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2835 2822 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2836 2823 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2837 2824 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2838 2825 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2839 2826 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2840 2827 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2841 2828 <span class="k">elsif</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2842 2829 <span class="k">if</span> <span class="s">(</span>!<span class="i">$This</span><span class="i">-&gt;HasEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2843 2830 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2844 2831 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2845 2832 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2846 2833
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2847 2834 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^(SizeLessThan|SizeGreaterThan|SpecifiedSize)$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2848 2835 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$SpecifiedSize</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2849 2836 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;_GetCyclesWithSize: Cycle size must be defined...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2850 2837 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2851 2838 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2852 2839 <span class="k">if</span> <span class="s">(</span><span class="i">$SpecifiedSize</span> &lt; <span class="n">0</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2853 2840 <span class="w">carp</span> <span class="q">&quot;Warning: ${ClassName}-&gt;_GetCyclesWithSize: Specified cycle size, $SpecifiedSize, must be &gt; 0 ...&quot;</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2854 2841 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2855 2842 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2856 2843 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2857 2844
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2858 2845 <span class="j">MODE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2859 2846 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^GraphCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2860 2847 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^VertexCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetVertexProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2861 2848 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^EdgeCycle$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ActiveCyclicPathsRef</span> = <span class="i">$This</span><span class="i">-&gt;GetEdgeProperty</span><span class="s">(</span><span class="q">&#39;ActiveCyclicPaths&#39;</span><span class="cm">,</span> <span class="i">$VertexID1</span><span class="cm">,</span> <span class="i">$VertexID2</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2862 2849 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2863 2850 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2864 2851
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2865 2852 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2866 2853 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2867 2854 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2868 2855 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetCycles</span><span class="s">(</span><span class="i">$Mode</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$SizeMode</span><span class="cm">,</span> <span class="i">$SpecifiedSize</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2869 2856 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2870 2857
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2871 2858 <span class="c"># Get cycles information...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2872 2859 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2873 <a name="_GetCycles-"></a>2860 <span class="k">sub </span><span class="m">_GetCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2874 2861 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Mode</span><span class="cm">,</span> <span class="i">$ActiveCyclicPathsRef</span><span class="cm">,</span> <span class="i">$SizeMode</span><span class="cm">,</span> <span class="i">$SpecifiedSize</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2875 2862
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2876 2863 <span class="k">if</span> <span class="s">(</span>!<span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2877 2864 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetEmptyCycles</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2878 2865 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2879 2866
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2880 2867 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^AllSizes$/i</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2881 2868 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>} <span class="co">:</span> <span class="k">scalar</span> <span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2882 2869 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2883 2870
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2884 2871 <span class="c"># Get appropriate cycles...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2885 2872 <span class="k">my</span><span class="s">(</span><span class="i">$Size</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="cm">,</span> <span class="i">@FilteredCyclicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2886 2873 <span class="i">@FilteredCyclicPaths</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2887 2874
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2888 2875 <span class="k">for</span> <span class="i">$CyclicPath</span> <span class="s">(</span><span class="i">@</span>{<span class="i">$ActiveCyclicPathsRef</span>}<span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2889 2876 <span class="i">$Size</span> = <span class="i">$CyclicPath</span><span class="i">-&gt;GetLength</span><span class="s">(</span><span class="s">)</span> - <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2890 2877 <span class="j">SIZEMODE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2891 2878 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^OddSize$/i</span><span class="s">)</span> <span class="s">{</span> <span class="k">if</span> <span class="s">(</span><span class="i">$Size</span> % <span class="n">2</span><span class="s">)</span> <span class="s">{</span> <span class="k">push</span> <span class="i">@FilteredCyclicPaths</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="sc">;</span> <span class="s">}</span> <span class="k">last</span> <span class="j">SIZEMODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2892 2879 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^EvenSize$/i</span><span class="s">)</span> <span class="s">{</span> <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="i">$Size</span> % <span class="n">2</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span> <span class="k">push</span> <span class="i">@FilteredCyclicPaths</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="sc">;</span> <span class="s">}</span> <span class="k">last</span> <span class="j">SIZEMODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2893 2880 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^SizeLessThan$/i</span><span class="s">)</span> <span class="s">{</span> <span class="k">if</span> <span class="s">(</span><span class="i">$Size</span> &lt; <span class="i">$SpecifiedSize</span><span class="s">)</span> <span class="s">{</span> <span class="k">push</span> <span class="i">@FilteredCyclicPaths</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="sc">;</span> <span class="s">}</span> <span class="k">last</span> <span class="j">SIZEMODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2894 2881 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^SizeGreaterThan$/i</span><span class="s">)</span> <span class="s">{</span> <span class="k">if</span> <span class="s">(</span><span class="i">$Size</span> &gt; <span class="i">$SpecifiedSize</span><span class="s">)</span> <span class="s">{</span> <span class="k">push</span> <span class="i">@FilteredCyclicPaths</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="sc">;</span> <span class="s">}</span> <span class="k">last</span> <span class="j">SIZEMODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2895 2882 <span class="k">if</span> <span class="s">(</span><span class="i">$SizeMode</span> =~ <span class="q">/^SpecifiedSize$/i</span><span class="s">)</span> <span class="s">{</span> <span class="k">if</span> <span class="s">(</span><span class="i">$Size</span> == <span class="i">$SpecifiedSize</span><span class="s">)</span> <span class="s">{</span> <span class="k">push</span> <span class="i">@FilteredCyclicPaths</span><span class="cm">,</span> <span class="i">$CyclicPath</span><span class="sc">;</span> <span class="s">}</span> <span class="k">last</span> <span class="j">SIZEMODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2896 2883 <span class="k">return</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2897 2884 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2898 2885 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2899 2886 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@FilteredCyclicPaths</span> <span class="co">:</span> <span class="k">scalar</span> <span class="i">@FilteredCyclicPaths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2900 2887 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2901 2888
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2902 2889 <span class="c"># Return empty cyles array...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2903 2890 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2904 <a name="_GetEmptyCycles-"></a>2891 <span class="k">sub </span><span class="m">_GetEmptyCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2905 2892 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2906 2893 <span class="k">my</span><span class="s">(</span><span class="i">@CyclicPaths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2907 2894
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2908 2895 <span class="i">@CyclicPaths</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2909 2896
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2910 2897 <span class="k">return</span> <span class="k">wantarray</span> ? <span class="i">@CyclicPaths</span> <span class="co">:</span> <span class="k">scalar</span> <span class="i">@CyclicPaths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2911 2898 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2912 2899
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2913 2900 <span class="c"># Does graph contains fused cycles?</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2914 <a name="HasFusedCycles-"></a>2901 <span class="k">sub </span><span class="m">HasFusedCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2915 2902 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2916 2903
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2917 2904 <span class="k">return</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;FusedActiveCyclicPaths&#39;</span><span class="s">)</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2918 2905 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2919 2906
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2920 2907 <span class="c"># Return a reference to fused cycle sets lists containing references to lists of cyclic path objects</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2921 2908 <span class="c"># in each fused cycle set and a reference to a list containing non-fused cyclic paths...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2922 2909 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2923 <a name="GetFusedAndNonFusedCycles-"></a>2910 <span class="k">sub </span><span class="m">GetFusedAndNonFusedCycles</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2924 2911 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2925 2912 <span class="k">my</span><span class="s">(</span><span class="i">$FusedCycleSetsRef</span><span class="cm">,</span> <span class="i">$NonFusedCyclesRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2926 2913
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2927 2914 <span class="i">$FusedCycleSetsRef</span> = <span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;FusedActiveCyclicPaths&#39;</span><span class="s">)</span> ? <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;FusedActiveCyclicPaths&#39;</span><span class="s">)</span> <span class="co">:</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2928 2915 <span class="i">$NonFusedCyclesRef</span> = <span class="i">$This</span><span class="i">-&gt;HasGraphProperty</span><span class="s">(</span><span class="q">&#39;NonFusedActiveCyclicPaths&#39;</span><span class="s">)</span> ? <span class="i">$This</span><span class="i">-&gt;GetGraphProperty</span><span class="s">(</span><span class="q">&#39;NonFusedActiveCyclicPaths&#39;</span><span class="s">)</span> <span class="co">:</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2929 2916
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2930 2917 <span class="k">return</span> <span class="s">(</span><span class="i">$FusedCycleSetsRef</span><span class="cm">,</span> <span class="i">$NonFusedCyclesRef</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2931 2918 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2932 2919
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2933 2920 <span class="c"># Get vertices of connected components as a list containing references to</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2934 2921 <span class="c"># lists of vertices for each component sorted in order of its decreasing size...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2935 2922 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2936 <a name="GetConnectedComponentsVertices-"></a>2923 <span class="k">sub </span><span class="m">GetConnectedComponentsVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2937 2924 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2938 2925 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2939 2926
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2940 2927 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2941 2928 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformDepthFirstSearch</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2942 2929
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2943 2930 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetConnectedComponentsVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2944 2931 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2945 2932
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2946 2933 <span class="c"># Get a list of topologically sorted vertrices starting from a specified vertex or</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2947 2934 <span class="c"># an arbitrary vertex in the graph...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2948 2935 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2949 <a name="GetTopologicallySortedVertices-"></a>2936 <span class="k">sub </span><span class="m">GetTopologicallySortedVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2950 2937 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$RootVertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2951 2938 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2952 2939
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2953 2940 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2954 2941 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformBreadthFirstSearch</span><span class="s">(</span><span class="i">$RootVertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2955 2942
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2956 2943 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2957 2944 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2958 2945
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2959 2946 <span class="c"># Get a list of paths starting from a specified vertex with length upto specified length</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2960 2947 <span class="c"># and no sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2961 2948 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2962 2949 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2963 <a name="GetPathsStartingAtWithLengthUpto-"></a>2950 <span class="k">sub </span><span class="m">GetPathsStartingAtWithLengthUpto</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2964 2951 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2965 2952 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2966 2953
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2967 2954 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2968 2955 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformPathsSearchWithLengthUpto</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2969 2956
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2970 2957 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2971 2958 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2972 2959
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2973 2960 <span class="c"># Get a list of paths starting from a specified vertex with specified length</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2974 2961 <span class="c"># and no sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2975 2962 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2976 2963 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2977 <a name="GetPathsStartingAtWithLength-"></a>2964 <span class="k">sub </span><span class="m">GetPathsStartingAtWithLength</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2978 2965 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2979 2966 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2980 2967
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2981 2968 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2982 2969 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformPathsSearchWithLength</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2983 2970
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2984 2971 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2985 2972 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2986 2973
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2987 2974 <span class="c"># Get a list of paths with all possible lengths starting from a specified vertex</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2988 2975 <span class="c"># with no sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2989 2976 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2990 2977 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2991 <a name="GetPathsStartingAt-"></a>2978 <span class="k">sub </span><span class="m">GetPathsStartingAt</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2992 2979 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2993 2980 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2994 2981
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2995 2982 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2996 2983 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformPathsSearch</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2997 2984
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2998 2985 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
2999 2986 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3000 2987
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3001 2988 <span class="c"># Get a list of all paths starting from a specified vertex with length upto a specified length</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3002 2989 <span class="c"># with sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3003 2990 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3004 2991 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3005 <a name="GetAllPathsStartingAtWithLengthUpto-"></a>2992 <span class="k">sub </span><span class="m">GetAllPathsStartingAtWithLengthUpto</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3006 2993 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3007 2994 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3008 2995
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3009 2996 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3010 2997 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformAllPathsSearchWithLengthUpto</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3011 2998
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3012 2999 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3013 3000 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3014 3001
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3015 3002 <span class="c"># Get a list of all paths starting from a specified vertex with specified length</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3016 3003 <span class="c"># with sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3017 3004 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3018 3005 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3019 <a name="GetAllPathsStartingAtWithLength-"></a>3006 <span class="k">sub </span><span class="m">GetAllPathsStartingAtWithLength</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3020 3007 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3021 3008 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3022 3009
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3023 3010 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3024 3011 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformAllPathsSearchWithLength</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3025 3012
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3026 3013 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3027 3014 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3028 3015
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3029 3016
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3030 3017 <span class="c"># Get a list of all paths with all possible lengths starting from a specified vertex</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3031 3018 <span class="c"># with sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3032 3019 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3033 3020 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3034 <a name="GetAllPathsStartingAt-"></a>3021 <span class="k">sub </span><span class="m">GetAllPathsStartingAt</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3035 3022 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3036 3023 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3037 3024
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3038 3025 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3039 3026 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformAllPathsSearch</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3040 3027
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3041 3028 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3042 3029 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3043 3030
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3044 3031 <span class="c"># Get a reference to list of paths starting from each vertex in graph with length upto specified</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3045 3032 <span class="c"># length and no sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3046 3033 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3047 3034 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3048 <a name="GetPathsWithLengthUpto-"></a>3035 <span class="k">sub </span><span class="m">GetPathsWithLengthUpto</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3049 3036 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3050 3037
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3051 3038 <span class="i">$AllowCycles</span> = <span class="s">(</span><span class="k">defined</span> <span class="i">$AllowCycles</span><span class="s">)</span> ? <span class="i">$AllowCycles</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3052 3039
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3053 3040 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetPaths</span><span class="s">(</span><span class="q">&#39;PathsWithLengthUpto&#39;</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3054 3041 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3055 3042
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3056 3043 <span class="c"># Get a reference to list of paths starting from each vertex in graph with specified</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3057 3044 <span class="c"># length and no sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3058 3045 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3059 3046 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3060 <a name="GetPathsWithLength-"></a>3047 <span class="k">sub </span><span class="m">GetPathsWithLength</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3061 3048 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3062 3049
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3063 3050 <span class="i">$AllowCycles</span> = <span class="s">(</span><span class="k">defined</span> <span class="i">$AllowCycles</span><span class="s">)</span> ? <span class="i">$AllowCycles</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3064 3051
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3065 3052 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetPaths</span><span class="s">(</span><span class="q">&#39;PathsWithLength&#39;</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3066 3053 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3067 3054
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3068 3055 <span class="c"># Get a reference to list of paths with all possible lengths starting from each vertex</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3069 3056 <span class="c"># with no sharing of edges in paths traversed. By default, cycles are included in paths.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3070 3057 <span class="c"># A path containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3071 3058 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3072 3059 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3073 <a name="GetPaths-"></a>3060 <span class="k">sub </span><span class="m">GetPaths</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3074 3061 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3075 3062
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3076 3063 <span class="i">$AllowCycles</span> = <span class="s">(</span><span class="k">defined</span> <span class="i">$AllowCycles</span><span class="s">)</span> ? <span class="i">$AllowCycles</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3077 3064
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3078 3065 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetPaths</span><span class="s">(</span><span class="q">&#39;PathsWithAllLengths&#39;</span><span class="cm">,</span> <span class="k">undef</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3079 3066 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3080 3067
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3081 3068 <span class="c"># Get a reference to list of all paths starting from each vertex in graph with length upto a specified</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3082 3069 <span class="c"># length with sharing of edges in paths traversed. By default, cycles are included in paths. A path</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3083 3070 <span class="c"># containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3084 3071 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3085 3072 <span class="c"># Note:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3086 3073 <span class="c"># . Duplicate paths are not removed.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3087 3074 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3088 <a name="GetAllPathsWithLengthUpto-"></a>3075 <span class="k">sub </span><span class="m">GetAllPathsWithLengthUpto</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3089 3076 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3090 3077
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3091 3078 <span class="i">$AllowCycles</span> = <span class="s">(</span><span class="k">defined</span> <span class="i">$AllowCycles</span><span class="s">)</span> ? <span class="i">$AllowCycles</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3092 3079
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3093 3080 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetPaths</span><span class="s">(</span><span class="q">&#39;AllPathsWithLengthUpto&#39;</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3094 3081 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3095 3082
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3096 3083 <span class="c"># Get a reference to list of all paths starting from each vertex in graph with specified</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3097 3084 <span class="c"># length with sharing of edges in paths traversed. By default, cycles are included in paths. A path</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3098 3085 <span class="c"># containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3099 3086 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3100 3087 <span class="c"># Note:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3101 3088 <span class="c"># . Duplicate paths are not removed.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3102 3089 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3103 <a name="GetAllPathsWithLength-"></a>3090 <span class="k">sub </span><span class="m">GetAllPathsWithLength</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3104 3091 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3105 3092
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3106 3093 <span class="i">$AllowCycles</span> = <span class="s">(</span><span class="k">defined</span> <span class="i">$AllowCycles</span><span class="s">)</span> ? <span class="i">$AllowCycles</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3107 3094
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3108 3095 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetPaths</span><span class="s">(</span><span class="q">&#39;AllPathsWithLength&#39;</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3109 3096 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3110 3097
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3111 3098 <span class="c"># Get a reference to list of all paths with all possible lengths starting from each vertex in graph</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3112 3099 <span class="c"># with sharing of edges in paths traversed. By default, cycles are included in paths. A path</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3113 3100 <span class="c"># containing a cycle is terminated at a vertex completing the cycle.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3114 3101 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3115 3102 <span class="c"># Note:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3116 3103 <span class="c"># . Duplicate paths are not removed.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3117 3104 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3118 <a name="GetAllPaths-"></a>3105 <span class="k">sub </span><span class="m">GetAllPaths</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3119 3106 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3120 3107
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3121 3108 <span class="i">$AllowCycles</span> = <span class="s">(</span><span class="k">defined</span> <span class="i">$AllowCycles</span><span class="s">)</span> ? <span class="i">$AllowCycles</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3122 3109
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3123 3110 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;_GetPaths</span><span class="s">(</span><span class="q">&#39;AllPathsWithAllLengths&#39;</span><span class="cm">,</span> <span class="k">undef</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3124 3111 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3125 3112
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3126 3113
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3127 3114 <span class="c"># Retrieve appropriate paths for each vertex in graph and return a referernce to list</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3128 3115 <span class="c"># containing path objects...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3129 3116 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3130 <a name="_GetPaths-"></a>3117 <span class="k">sub </span><span class="m">_GetPaths</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3131 3118 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$Mode</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3132 3119 <span class="k">my</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">@EmptyPaths</span><span class="cm">,</span> <span class="i">@Paths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3133 3120
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3134 3121 <span class="i">@Paths</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span> <span class="i">@EmptyPaths</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3135 3122
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3136 3123 <span class="k">for</span> <span class="i">$VertexID</span> <span class="s">(</span><span class="i">$This</span><span class="i">-&gt;GetVertices</span><span class="s">(</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3137 3124 <span class="k">my</span><span class="s">(</span><span class="i">$Status</span><span class="cm">,</span> <span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3138 3125
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3139 3126 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3140 3127 <span class="j">MODE:</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3141 3128 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^PathsWithLengthUpto$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$Status</span> = <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformPathsSearchWithLengthUpto</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3142 3129 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^PathsWithLength$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$Status</span> = <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformPathsSearchWithLength</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3143 3130 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^PathsWithAllLengths$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$Status</span> = <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformPathsSearch</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3144 3131
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3145 3132 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^AllPathsWithLengthUpto$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$Status</span> = <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformAllPathsSearchWithLengthUpto</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3146 3133 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^AllPathsWithLength$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$Status</span> = <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformAllPathsSearchWithLength</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$Length</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3147 3134 <span class="k">if</span> <span class="s">(</span><span class="i">$Mode</span> =~ <span class="q">/^AllPathsWithAllLengths$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$Status</span> = <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformAllPathsSearch</span><span class="s">(</span><span class="i">$VertexID</span><span class="cm">,</span> <span class="i">$AllowCycles</span><span class="s">)</span><span class="sc">;</span> <span class="k">last</span> <span class="j">MODE</span><span class="sc">;</span> <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3148 3135
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3149 3136 <span class="k">return</span> \<span class="i">@EmptyPaths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3150 3137 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3151 3138 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Status</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3152 3139 <span class="k">return</span> \<span class="i">@EmptyPaths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3153 3140 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3154 3141 <span class="k">push</span> <span class="i">@Paths</span><span class="cm">,</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3155 3142 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3156 3143 <span class="k">return</span> \<span class="i">@Paths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3157 3144 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3158 3145
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3159 3146 <span class="c"># Get a list of paths between two vertices. For cyclic graphs, the list contains</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3160 3147 <span class="c"># may contain two paths...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3161 3148 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3162 <a name="GetPathsBetween-"></a>3149 <span class="k">sub </span><span class="m">GetPathsBetween</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3163 3150 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$EndVertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3164 3151 <span class="k">my</span><span class="s">(</span><span class="i">$Path</span><span class="cm">,</span> <span class="i">$ReversePath</span><span class="cm">,</span> <span class="i">@Paths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3165 3152
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3166 3153 <span class="i">@Paths</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3167 3154
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3168 3155 <span class="i">$Path</span> = <span class="i">$This</span><span class="i">-&gt;_GetPathBetween</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$EndVertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3169 3156 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$Path</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3170 3157 <span class="k">return</span> \<span class="i">@Paths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3171 3158 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3172 3159
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3173 3160 <span class="i">$ReversePath</span> = <span class="i">$This</span><span class="i">-&gt;_GetPathBetween</span><span class="s">(</span><span class="i">$EndVertexID</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3174 3161 <span class="k">if</span> <span class="s">(</span>!<span class="k">defined</span> <span class="i">$ReversePath</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3175 3162 <span class="k">return</span> \<span class="i">@Paths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3176 3163 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3177 3164 <span class="k">if</span> <span class="s">(</span><span class="i">$Path</span> <span class="k">eq</span> <span class="i">$ReversePath</span><span class="s">)</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3178 3165 <span class="k">push</span> <span class="i">@Paths</span><span class="cm">,</span> <span class="i">$Path</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3179 3166 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3180 3167 <span class="k">else</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3181 3168 <span class="c"># Make sure first vertex in reverse path corresponds to specified start vertex ID...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3182 3169 <span class="i">$ReversePath</span><span class="i">-&gt;Reverse</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3183 3170 <span class="k">push</span> <span class="i">@Paths</span><span class="cm">,</span> <span class="s">(</span><span class="i">$Path</span><span class="i">-&gt;GetLength</span> &lt;= <span class="i">$ReversePath</span><span class="i">-&gt;GetLength</span><span class="s">(</span><span class="s">)</span><span class="s">)</span> ? <span class="s">(</span><span class="i">$Path</span><span class="cm">,</span> <span class="i">$ReversePath</span><span class="s">)</span> <span class="co">:</span> <span class="s">(</span><span class="i">$ReversePath</span><span class="cm">,</span> <span class="i">$Path</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3184 3171 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3185 3172 <span class="k">return</span> <span class="i">@Paths</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3186 3173 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3187 3174
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3188 3175 <span class="c"># Get a path beween two vertices...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3189 3176 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3190 <a name="_GetPathBetween-"></a>3177 <span class="k">sub </span><span class="m">_GetPathBetween</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3191 3178 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$EndVertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3192 3179 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="cm">,</span> <span class="i">@Paths</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3193 3180
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3194 3181 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3195 3182 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformPathsSearchBetween</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$EndVertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3196 3183
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3197 3184 <span class="i">@Paths</span> = <span class="i">$PathsTraversal</span><span class="i">-&gt;GetPaths</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3198 3185
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3199 3186 <span class="k">return</span> <span class="s">(</span><span class="i">@Paths</span><span class="s">)</span> ? <span class="i">$Paths</span>[<span class="n">0</span>] <span class="co">:</span> <span class="k">undef</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3200 3187 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3201 3188
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3202 3189 <span class="c"># Get a list containing lists of neighborhood vertices around a specified vertex with in a</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3203 3190 <span class="c"># specified radius...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3204 3191 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3205 <a name="GetNeighborhoodVerticesWithRadiusUpto-"></a>3192 <span class="k">sub </span><span class="m">GetNeighborhoodVerticesWithRadiusUpto</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3206 3193 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Radius</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3207 3194 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3208 3195
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3209 3196 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3210 3197 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformNeighborhoodVerticesSearchWithRadiusUpto</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Radius</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3211 3198
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3212 3199 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetVerticesNeighborhoods</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3213 3200 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3214 3201
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3215 3202 <span class="c"># Get a list containing lists of neighborhood vertices around a specified vertex at all</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3216 3203 <span class="c"># radii levels...</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3217 3204 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3218 <a name="GetNeighborhoodVertices-"></a>3205 <span class="k">sub </span><span class="m">GetNeighborhoodVertices</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3219 3206 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3220 3207 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3221 3208
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3222 3209 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3223 3210 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformNeighborhoodVerticesSearch</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3224 3211
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3225 3212 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetVerticesNeighborhoods</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3226 3213 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3227 3214
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3228 3215 <span class="c"># Get neighborhood vertices around a specified vertex, along with their successor connected vertices, collected</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3229 3216 <span class="c"># with in a specified radius as a list containing references to lists with first value corresponding to vertex</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3230 3217 <span class="c"># ID and second value as reference to a list containing its successor connected vertices.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3231 3218 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3232 3219 <span class="c"># For a neighborhood vertex at each radius level, the successor connected vertices correspond to the</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3233 3220 <span class="c"># neighborhood vertices at the next radius level. Consequently, the neighborhood vertices at the last</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3234 3221 <span class="c"># radius level don&#39;t contain any successor vertices which fall outside the range of specified radius.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3235 3222 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3236 <a name="GetNeighborhoodVerticesWithSuccessorsAndRadiusUpto-"></a>3223 <span class="k">sub </span><span class="m">GetNeighborhoodVerticesWithSuccessorsAndRadiusUpto</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3237 3224 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Radius</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3238 3225 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3239 3226
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3240 3227 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3241 3228 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformNeighborhoodVerticesSearchWithSuccessorsAndRadiusUpto</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="cm">,</span> <span class="i">$Radius</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3242 3229
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3243 3230 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetVerticesNeighborhoodsWithSuccessors</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3244 3231 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3245 3232
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3246 3233 <span class="c"># Get neighborhood vertices around a specified vertex, along with their successor connected vertices, collected</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3247 3234 <span class="c"># at all neighborhood radii as a list containing references to lists with first value corresponding to vertex</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3248 3235 <span class="c"># ID and second value as reference to a list containing its successor connected vertices.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3249 3236 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3250 3237 <span class="c"># For a neighborhood vertex at each radius level, the successor connected vertices correspond to the</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3251 3238 <span class="c"># neighborhood vertices at the next radius level. Consequently, the neighborhood vertices at the last</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3252 3239 <span class="c"># radius level don&#39;t contain any successor vertices which fall outside the range of specified radius.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3253 3240 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3254 <a name="GetNeighborhoodVerticesWithSuccessors-"></a>3241 <span class="k">sub </span><span class="m">GetNeighborhoodVerticesWithSuccessors</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3255 3242 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="cm">,</span> <span class="i">$StartVertexID</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3256 3243 <span class="k">my</span><span class="s">(</span><span class="i">$PathsTraversal</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3257 3244
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3258 3245 <span class="i">$PathsTraversal</span> = <span class="i">new</span> <span class="i">Graph::PathsTraversal</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3259 3246 <span class="i">$PathsTraversal</span><span class="i">-&gt;PerformNeighborhoodVerticesSearchWithSuccessors</span><span class="s">(</span><span class="i">$StartVertexID</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3260 3247
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3261 3248 <span class="k">return</span> <span class="i">$PathsTraversal</span><span class="i">-&gt;GetVerticesNeighborhoodsWithSuccessors</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3262 3249 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3263 3250
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3264 3251 <span class="c"># Get adjacency matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3265 3252 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3266 3253 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3267 3254 <span class="c"># For a simple graph G with n vertices, the adjacency matrix for G is a n x n square matrix and</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3268 3255 <span class="c"># its elements Mij are:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3269 3256 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3270 3257 <span class="c"># . 0 if i == j</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3271 3258 <span class="c"># . 1 if i != j and vertex Vi is adjacent to vertex Vj</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3272 3259 <span class="c"># . 0 if i != j and vertex Vi is not adjacent to vertex Vj</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3273 3260 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3274 <a name="GetAdjacencyMatrix-"></a>3261 <span class="k">sub </span><span class="m">GetAdjacencyMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3275 3262 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3276 3263 <span class="k">my</span><span class="s">(</span><span class="i">$GraphMatrix</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3277 3264
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3278 3265 <span class="i">$GraphMatrix</span> = <span class="i">new</span> <span class="i">Graph::GraphMatrix</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3279 3266 <span class="i">$GraphMatrix</span><span class="i">-&gt;GenerateAdjacencyMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3280 3267
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3281 3268 <span class="k">return</span> <span class="i">$GraphMatrix</span><span class="i">-&gt;GetMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3282 3269 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3283 3270
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3284 3271 <span class="c"># Get Siedel adjacency matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3285 3272 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3286 3273 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3287 3274 <span class="c"># For a simple graph G with n vertices, the Siedal adjacency matrix for G is a n x n square matrix and</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3288 3275 <span class="c"># its elements Mij are:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3289 3276 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3290 3277 <span class="c"># . 0 if i == j</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3291 3278 <span class="c"># . -1 if i != j and vertex Vi is adjacent to vertex Vj</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3292 3279 <span class="c"># . 1 if i != j and vertex Vi is not adjacent to vertex Vj</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3293 3280 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3294 <a name="GetSiedelAdjacencyMatrix-"></a>3281 <span class="k">sub </span><span class="m">GetSiedelAdjacencyMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3295 3282 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3296 3283 <span class="k">my</span><span class="s">(</span><span class="i">$GraphMatrix</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3297 3284
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3298 3285 <span class="i">$GraphMatrix</span> = <span class="i">new</span> <span class="i">Graph::GraphMatrix</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3299 3286 <span class="i">$GraphMatrix</span><span class="i">-&gt;GenerateSiedelAdjacencyMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3300 3287
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3301 3288 <span class="k">return</span> <span class="i">$GraphMatrix</span><span class="i">-&gt;GetMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3302 3289 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3303 3290
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3304 3291 <span class="c"># Get distance matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3305 3292 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3306 3293 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3307 3294 <span class="c"># For a simple graph G with n vertices, the distance matrix for G is a n x n square matrix and</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3308 3295 <span class="c"># its elements Mij are:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3309 3296 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3310 3297 <span class="c"># . 0 if i == j</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3311 3298 <span class="c"># . d if i != j and d is the shortest distance between vertex Vi and vertex Vj</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3312 3299 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3313 3300 <span class="c"># Note:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3314 3301 <span class="c"># . In the final matrix, BigNumber values correspond to vertices with no edges.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3315 3302 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3316 <a name="GetDistanceMatrix-"></a>3303 <span class="k">sub </span><span class="m">GetDistanceMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3317 3304 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3318 3305 <span class="k">my</span><span class="s">(</span><span class="i">$GraphMatrix</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3319 3306
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3320 3307 <span class="i">$GraphMatrix</span> = <span class="i">new</span> <span class="i">Graph::GraphMatrix</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3321 3308 <span class="i">$GraphMatrix</span><span class="i">-&gt;GenerateDistanceMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3322 3309
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3323 3310 <span class="k">return</span> <span class="i">$GraphMatrix</span><span class="i">-&gt;GetMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3324 3311 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3325 3312
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3326 3313 <span class="c"># Get incidence matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3327 3314 <span class="c"># corresponding to graph vertices and edges returned by GetVertices and GetEdges</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3328 3315 <span class="c"># methods respectively.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3329 3316 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3330 3317 <span class="c"># For a simple graph G with n vertices and e edges, the incidence matrix for G is a n x e matrix</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3331 3318 <span class="c"># its elements Mij are:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3332 3319 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3333 3320 <span class="c"># . 1 if vertex Vi and the edge Ej are incident; in other words, Vi and Ej are related</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3334 3321 <span class="c"># . 0 otherwise</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3335 3322 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3336 <a name="GetIncidenceMatrix-"></a>3323 <span class="k">sub </span><span class="m">GetIncidenceMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3337 3324 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3338 3325 <span class="k">my</span><span class="s">(</span><span class="i">$GraphMatrix</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3339 3326
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3340 3327 <span class="i">$GraphMatrix</span> = <span class="i">new</span> <span class="i">Graph::GraphMatrix</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3341 3328 <span class="i">$GraphMatrix</span><span class="i">-&gt;GenerateIncidenceMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3342 3329
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3343 3330 <span class="k">return</span> <span class="i">$GraphMatrix</span><span class="i">-&gt;GetMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3344 3331 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3345 3332
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3346 3333 <span class="c"># Get degree matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3347 3334 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3348 3335 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3349 3336 <span class="c"># For a simple graph G with n vertices, the degree matrix for G is a n x n square matrix and</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3350 3337 <span class="c"># its elements Mij are:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3351 3338 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3352 3339 <span class="c"># . deg(Vi) if i == j and deg(Vi) is the degree of vertex Vi</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3353 3340 <span class="c"># . 0 otherwise</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3354 3341 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3355 <a name="GetDegreeMatrix-"></a>3342 <span class="k">sub </span><span class="m">GetDegreeMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3356 3343 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3357 3344 <span class="k">my</span><span class="s">(</span><span class="i">$GraphMatrix</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3358 3345
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3359 3346 <span class="i">$GraphMatrix</span> = <span class="i">new</span> <span class="i">Graph::GraphMatrix</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3360 3347 <span class="i">$GraphMatrix</span><span class="i">-&gt;GenerateDegreeMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3361 3348
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3362 3349 <span class="k">return</span> <span class="i">$GraphMatrix</span><span class="i">-&gt;GetMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3363 3350 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3364 3351
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3365 3352 <span class="c"># Get Laplacian matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3366 3353 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3367 3354 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3368 3355 <span class="c"># For a simple graph G with n vertices, the Laplacian matrix for G is a n x n square matrix and</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3369 3356 <span class="c"># its elements Mij are:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3370 3357 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3371 3358 <span class="c"># . deg(Vi) if i == j and deg(Vi) is the degree of vertex Vi</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3372 3359 <span class="c"># . -1 if i != j and vertex Vi is adjacent to vertex Vj</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3373 3360 <span class="c"># . 0 otherwise</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3374 3361 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3375 3362 <span class="c"># Note: The Laplacian matrix is the difference between the degree matrix and adjacency matrix.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3376 3363 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3377 <a name="GetLaplacianMatrix-"></a>3364 <span class="k">sub </span><span class="m">GetLaplacianMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3378 3365 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3379 3366 <span class="k">my</span><span class="s">(</span><span class="i">$GraphMatrix</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3380 3367
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3381 3368 <span class="i">$GraphMatrix</span> = <span class="i">new</span> <span class="i">Graph::GraphMatrix</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3382 3369 <span class="i">$GraphMatrix</span><span class="i">-&gt;GenerateLaplacianMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3383 3370
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3384 3371 <span class="k">return</span> <span class="i">$GraphMatrix</span><span class="i">-&gt;GetMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3385 3372 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3386 3373
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3387 3374 <span class="c"># Get normalized Laplacian matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3388 3375 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3389 3376 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3390 3377 <span class="c"># For a simple graph G with n vertices, the normalized Laplacian matrix L for G is a n x n square matrix and</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3391 3378 <span class="c"># its elements Lij are:</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3392 3379 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3393 3380 <span class="c"># . 1 if i == j and deg(Vi) != 0</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3394 3381 <span class="c"># . -1/SQRT(deg(Vi) * deg(Vj)) if i != j and vertex Vi is adjacent to vertex Vj</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3395 3382 <span class="c"># . 0 otherwise</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3396 3383 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3397 3384 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3398 <a name="GetNormalizedLaplacianMatrix-"></a>3385 <span class="k">sub </span><span class="m">GetNormalizedLaplacianMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3399 3386 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3400 3387 <span class="k">my</span><span class="s">(</span><span class="i">$GraphMatrix</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3401 3388
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3402 3389 <span class="i">$GraphMatrix</span> = <span class="i">new</span> <span class="i">Graph::GraphMatrix</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3403 3390 <span class="i">$GraphMatrix</span><span class="i">-&gt;GenerateNormalizedLaplacianMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3404 3391
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3405 3392 <span class="k">return</span> <span class="i">$GraphMatrix</span><span class="i">-&gt;GetMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3406 3393 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3407 3394
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3408 3395 <span class="c"># Get admittance matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3409 3396 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3410 3397 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3411 <a name="GetAdmittanceMatrix-"></a>3398 <span class="k">sub </span><span class="m">GetAdmittanceMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3412 3399 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3413 3400
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3414 3401 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetLaplacianMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3415 3402 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3416 3403
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3417 3404 <span class="c"># Get Kirchhoff matrix for the graph as a Matrix object with row and column indices</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3418 3405 <span class="c"># corresponding to graph vertices returned by GetVertices method.</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3419 3406 <span class="c">#</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3420 <a name="GetKirchhoffMatrix-"></a>3407 <span class="k">sub </span><span class="m">GetKirchhoffMatrix</span> <span class="s">{</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3421 3408 <span class="k">my</span><span class="s">(</span><span class="i">$This</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3422 3409
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3423 3410 <span class="k">return</span> <span class="i">$This</span><span class="i">-&gt;GetLaplacianMatrix</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3424 3411 <span class="s">}</span>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3425 3412
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3426 <a name="EOF-"></a></pre>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3427 <p>&nbsp;</p>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3428 <br />
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3429 <center>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3430 <img src="../../../images/h2o2.png">
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3431 </center>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3432 </body>
73ae111cf86f Uploaded
deepakjadmin
parents:
diff changeset
3433 </html>