mayatool3_test3: mayachemtools/docs/modules/html/code/Graph.html annotate

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

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 <msud@san.rr.com></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 <http://www.gnu.org/licenses/> 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">=></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">'""'</span> <span class="cm">=></span> <span class="q">'StringifyGraph'</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">->_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">->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>->{<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>->{<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>->{<span class="w">Edges</span>}->{<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>->{<span class="w">Edges</span>}->{<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>->{<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>->{<span class="w">Properties</span>}->{<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>->{<span class="w">Properties</span>}->{<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>->{<span class="w">Properties</span>}->{<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">"Warning: ${ClassName}->AddVertex: No vertex added: Vertex ID must be specified..."</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>->{<span class="w">Vertices</span>}->{<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">"Warning: ${ClassName}->AddVertex: Didn't add vertex $VertexID: Already exists in the graph..."</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>->{<span class="w">Vertices</span>}->{<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">"Warning: ${ClassName}->AddVertices: No vertices added: Vertices list is empty..."</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">->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">"Warning: ${ClassName}->DeleteVertex: No vertex deleted: Vertex ID must be specified..."</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">->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">"Warning: ${ClassName}->DeleteVertex: Didn't delete vertex $VertexID: Vertex $VertexID doesn't exist..."</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">->_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">->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">->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">->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>->{<span class="w">Vertices</span>}->{<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">"Warning: ${ClassName}->DeleteVertices: No vertices deleted: Vertices list is empty..."</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">->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>->{<span class="w">Vertices</span>}->{<span class="i">$VertexID</span>}<span class="s">)</span> ? <span class="i">$This</span>->{<span class="w">Vertices</span>}->{<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">->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> <=> <span class="i">$b</span> <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>->{<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>->{<span class="w">Vertices</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	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">->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> && <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">"Warning: ${ClassName}->AddEdge: No edge added: Both vertices must be defined..."</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">->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">"Warning: ${ClassName}->AddEdge: Didn't add edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID1 doesn's exist..."</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">->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">"Warning: ${ClassName}->AddEdge: Didn't add edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID2 doesn's exist..."</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">"Warning: ${ClassName}->AddEdge: Didn't add edge between vertices $VertexID1 and $VertexID2: Vertices must be different..."</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">->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">"Warning: ${ClassName}->AddEdge: Didn't add edge between vertices $VertexID1 and $VertexID2: Edge already exists..."</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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<span class="i">$VertexID1</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<span class="i">$VertexID2</span>}->{<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">"Warning: ${ClassName}->AddEdges: No edges added: Vertices list is empty..."</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">"Warning: ${ClassName}->AddEdges: No edges added: Invalid vertices data: Input list must contain even number of vertex IDs..."</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> < <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">->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> && <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">"Warning: ${ClassName}->Delete: No edge deleted: Both vertices must be defined..."</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">->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">"Warning: ${ClassName}->DeleteEdge: Didn't delete edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID1 doesn's exist..."</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">->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">"Warning: ${ClassName}->DeleteEdge: Didn't delete edge between vertices $VertexID1 and $VertexID2: Vertex $VertexID2 doesn's exist..."</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">->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">"Warning: ${ClassName}->DeleteEdge: Didn't delete edge between vertices $VertexID1 and $VertexID2: Edge doesn't exist..."</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">->_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">->_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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</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	334 321 <span class="k">delete</span> <span class="i">$This</span>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<span class="i">$VertexID1</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<span class="i">$VertexID2</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<span class="i">$VertexID2</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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">->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">"Warning: ${ClassName}->DeleteEdges: No edges deleted: Vertices list is empty..."</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">"Warning: ${ClassName}->DeleteEdges: No edges deleted: Invalid vertices data: Input list must contain even number of vertex IDs..."</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> < <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">->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> && <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">->_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">->_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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</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	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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<span class="i">$VertexID2</span>}->{<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> < <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">->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> && <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">->_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">->_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">->_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">->_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">->_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> && <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">->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">->_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">->_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">->_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">->_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">->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">->_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">"Warning: ${ClassName}->AddPath: No path added: Vertices list is empty..."</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">"Warning: ${ClassName}->AddPath: No path added: Invalid vertices data: Input list must contain more than on vertex ID..."</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">->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">"Warning: ${ClassName}->AddPath: No path added: Some of the vertex IDs don't exist in the graph..."</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">->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">"Warning: ${ClassName}->AddPath: No path added: Path already exist in the graph..."</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">-> _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">->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">"Warning: ${ClassName}->DeletePath: No path deleted: Vertices list is empty..."</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">"Warning: ${ClassName}->DeletePath: No path deleted: Invalid vertices data: Input list must contain more than on vertex ID..."</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">->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">"Warning: ${ClassName}->DeletePath: No path deleted: Some of the vertex IDs don't exist in the graph..."</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">->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">"Warning: ${ClassName}->DeletePath: No path deleted: Path doesn't exist in the graph..."</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">->_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">->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">->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">->_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">->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">"Warning: ${ClassName}->AddCycle: No cycle added: Vertices list is empty..."</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">"Warning: ${ClassName}->AddCycle: No cycle added: Invalid vertices data: Input list must contain more than on vertex ID..."</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">->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">"Warning: ${ClassName}->AddCycle: No cycle added: Some of the vertex IDs don't exist in the graph..."</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">->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">"Warning: ${ClassName}->AddCycle: No cycle added: Cycle already exist in the graph..."</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">->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">"Warning: ${ClassName}->DeleteCycle: No cycle deleted: Vertices list is empty..."</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">"Warning: ${ClassName}->DeleteCycle: No cycle deleted: Invalid vertices data: Input list must contain more than on vertex ID..."</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">->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">"Warning: ${ClassName}->DeleteCycle: No cycle deleted: Some of the vertex IDs don't exist in the graph..."</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">->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">"Warning: ${ClassName}->DeleteCycle: No cycle deleted: Cycle doesn't exist in the graph..."</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">->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">->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>->{<span class="w">Vertices</span>}->{<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 '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">->_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">->_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> <=> <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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<span class="i">$VertexID</span>}->{<span class="i">$_</span>} <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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> <=> <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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<span class="i">$VertexID</span>}->{<span class="i">$_</span>} <span class="s">}</span> <span class="k">keys</span> <span class="i">%</span>{<span class="i">$This</span>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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> <=> <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>->{<span class="w">Vertices</span>}->{<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">->_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">->_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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">To</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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>->{<span class="w">Edges</span>}->{<span class="w">From</span>}->{<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">->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">->_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">->_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> < <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">->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">->_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">->_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> > <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">->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">->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> > <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">->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">->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> < <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>->{<span class="w">Vertices</span>}->{<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">->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">->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>->{<span class="w">Vertices</span>}->{<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">->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">->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">->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">->_GetInDegree</span><span class="s">(</span><span class="i">$VertexID</span><span class="s">)</span> + <span class="i">$This</span><span class="i">->_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> < <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> && <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">"Warning: ${ClassName}->SetGraphProperty: Didn't set property: Both property name and value should be specified..."</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>->{<span class="w">Properties</span>}->{<span class="w">Graph</span>}->{<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">"Warning: ${ClassName}->SetGraphProperty: Didn't set property $Name: Already exists in the graph..."</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>->{<span class="w">Properties</span>}->{<span class="w">Graph</span>}->{<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">"Warning: ${ClassName}->SetGraphProperties: Didn't set properties: Names and values list is empty..."</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">->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">->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>->{<span class="w">Properties</span>}->{<span class="w">Graph</span>}->{<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>->{<span class="w">Properties</span>}->{<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">"Warning: ${ClassName}->DeleteGraphProperty: Didn't delete graph property: Name must be specified..."</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">->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">"Warning: ${ClassName}-> DeleteGraphProperty: Didn't delete graph property $Name: Property doesn't exist..."</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>->{<span class="w">Properties</span>}->{<span class="w">Graph</span>}->{<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>->{<span class="w">Properties</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Graph</span>}->{<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> && <span class="k">defined</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> && <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">"Warning: ${ClassName}->SetVertexProperty: Didn't set property: Property name, value and vertexID should be specified..."</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">->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">"Warning: ${ClassName}->SetVertexProperty: Didn't set property $Name for vertex $VertexID: Vertex doesn't exist..."</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">->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">"Warning: ${ClassName}->SetVertexProperty: Didn't set property $Name for vertex $VertexID: Property already exists..."</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">->_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> && <span class="k">defined</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span> && <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">"Warning: ${ClassName}->UpdateVextexProperty: Didn't update property: Property name, value and vertexID should be specified..."</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">->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">"Warning: ${ClassName}->UpdateVextexProperty: Didn't update property $Name for vertex $VertexID: Vertex doesn't exist..."</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">->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">"Warning: ${ClassName}->UpdateVextexProperty: Didn't update property $Name for vertex $VertexID: Property doesn't exists..."</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">->_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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<span class="i">$VertexID</span>}->{<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">"Warning: ${ClassName}->SetVertexProperties: Didn't set property: VertexID should be specified..."</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">"Warning: ${ClassName}->SetVertexProperties: Didn't set property: Names and values list is empty..."</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">"Warning: ${ClassName}->SetVertexProperties: Didn't set property: Invalid property name and values IDs data: Input list must contain even number of values..."</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> < <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">->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">"Warning: ${ClassName}->SetVerticesProperty: Didn't set property: Property name should be specified..."</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">"Warning: ${ClassName}->SetVerticesProperty: Didn't set property: Values and vertex IDs list is empty..."</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">"Warning: ${ClassName}->SetVerticesProperty: Didn't set property: Invalid property values and vertex IDs data: Input list must contain even number of values..."</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> < <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">->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">->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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<span class="i">$VertexID</span>}->{<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">->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">->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">->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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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> && <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">"Warning: ${ClassName}->DeleteVertexProperty: Didn't delete property: Property name and vertex ID must be defined..."</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">->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">"Warning: ${ClassName}->DeleteVertexProperty: Didn't delete property $Name for vertex $VertexID: Vertex property doesn't exist..."</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">->_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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<span class="i">$VertexID</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<span class="i">$VertexID</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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">"Warning: ${ClassName}->DeleteVerticesProperty: Didn't delete property: Property name should be specified..."</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">->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">->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">"Warning: ${ClassName}->DeleteVertexProperties: Didn't delete properties: Vertex ID must be defined..."</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">->_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> && <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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Vertices</span>}->{<span class="i">$VertexID</span>}->{<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> && <span class="k">defined</span><span class="s">(</span><span class="i">$Value</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="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">"Warning: ${ClassName}->SetEdgeProperty: Didn't set property: Property name, value, vertexID1 and vertexID2 should be specified..."</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">->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">"Warning: ${ClassName}->SetEdgeProperty: Didn't set property $Name for edge between vertices $VertexID1 and $VertexID2: Edge doesn't exist..."</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">->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">"Warning: ${ClassName}->SetEdgeProperty: Didn't set property $Name for edge between vertices $VertexID1 and $VertexID2: Edge property already exists..."</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">->_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">->_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> && <span class="k">defined</span><span class="s">(</span><span class="i">$Value</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="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">"Warning: ${ClassName}->UpdateEdgeProperty: Didn't update property: Property name, value, vertexID1 and vertexID2 should be specified..."</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">->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">"Warning: ${ClassName}->UpdateEdgeProperty: Didn't update property $Name for edge between vertices $VertexID1 and $VertexID2: Edge doesn't exist..."</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">->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">"Warning: ${ClassName}->UpdateEdgeProperty: Didn't update property $Name for edge between vertices $VertexID1 and $VertexID2: Edge property doesn't exists..."</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">->_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">->_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">"Warning: ${ClassName}->SetEdgesProperty: Didn't set property: Property name should be specified..."</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">"Warning: ${ClassName}->SetEdgesProperty: Didn't set property: Values and vertex IDs list is empty..."</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">"Warning: ${ClassName}->SetEdgesProperty: Didn't set property: Invalid property values and vertex IDs data: Input list must contain triplets of values..."</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> < <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">->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> && <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">"Warning: ${ClassName}->SetEdgeProperties: Didn't set property: Both vertexID1 and vertexID2 should be specified..."</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">"Warning: ${ClassName}->SetEdgeProperties: Didn't set property: Property name and values ist is empty..."</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">"Warning: ${ClassName}->SetEdgeProperties: Didn't set property: Invalid property name and values data: Input list must contain triplets of values..."</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> < <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">->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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</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	1350 1337 <span class="i">%</span>{<span class="i">$This</span>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<span class="i">$VertexID2</span>}->{<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">->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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<span class="i">$VertexID2</span>}->{<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">->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> < <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">->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> && <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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</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	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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<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> && <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</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> <span class="s">{</span>
73ae111cf86f Uploaded deepakjadmin parents: diff changeset	1411 1398 <span class="w">carp</span> <span class="q">"Warning: ${ClassName}->DeleteEdgeProperty: Didn't delete property: Property name, vertexID1 and vertexID2 should be specified..."</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">->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">"Warning: ${ClassName}->DeleteEdgeProperty: Didn't delete property $Name for edge between vertices $VertexID1 and $VertexID2: Edge property doesn't exist..."</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">->_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">->_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">"Warning: ${ClassName}->DeleteEdgesProperty: Didn't delete property: Property name should be specified..."</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">->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">"Warning: ${ClassName}->DeleteEdgesProperty: Didn't set property: Invalid property values and vertex IDs data: Input list must contain even number of values..."</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> < <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">->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> && <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">"Warning: ${ClassName}->DeleteEdgeProperties: Didn't delete property: VertexID1 and vertexID2 should be specified..."</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">->_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">->_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">->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">"Warning: ${ClassName}->DeleteEdgesProperty: Didn't set property: Invalid property values and vertex IDs data: Input list must contain even number of values..."</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> < <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">->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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</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	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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<span class="i">$VertexID2</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<span class="i">$VertexID2</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</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	1499 1486 <span class="k">delete</span> <span class="i">$This</span>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<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> && <span class="k">defined</span><span class="s">(</span><span class="i">$VertexID1</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> <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">->_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">->_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>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<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>->{<span class="w">Properties</span>}->{<span class="w">Edges</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	1530 1517 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span> <span class="i">$This</span>->{<span class="w">Properties</span>}->{<span class="w">Edges</span>}->{<span class="i">$VertexID1</span>}->{<span class="i">$VertexID2</span>}->{<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">'Graph:'</span> . <span class="i">$This</span><span class="i">->StringifyVerticesAndEdges</span><span class="s">(</span><span class="s">)</span> . <span class="q">'; '</span> . <span class="i">$This</span><span class="i">->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">->StringifyGraphProperties</span><span class="s">(</span><span class="s">)</span> . <span class="q">'; '</span> . <span class="i">$This</span><span class="i">->StringifyVerticesProperties</span><span class="s">(</span><span class="s">)</span>. <span class="q">'; '</span> . <span class="i">$This</span><span class="i">->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">''</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">->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">->_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> < <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">" ${VertexID1}-${VertexID2}"</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">" ${VertexID}"</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">'Graph: None'</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">"GraphProperties: "</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">->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">" ${Name}=(Count: "</span> . <span class="k">scalar</span> <span class="i">@</span>{<span class="i">$Value</span>} . <span class="q">"; "</span> . <span class="k">join</span><span class="s">(</span><span class="q">', '</span><span class="cm">,</span> <span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> . <span class="q">")"</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">" ${Name}=None"</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">" ${Name}=${Value}"</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">" None"</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">->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">"VertexProperties:"</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">->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">" <Vertex ${VertexID}: "</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">" ${Name}=("</span> . <span class="k">join</span><span class="s">(</span><span class="q">', '</span><span class="cm">,</span> <span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> . <span class="q">")"</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">" ${Name}=None"</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">" ${Name}=${Value}"</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">">"</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">"VertexProperties: None"</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">->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">"EdgeProperties:"</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> < <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">->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">" <Edge ${VertexID1}-${VertexID2}:"</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">" ${Name}=("</span> . <span class="k">join</span><span class="s">(</span><span class="q">', '</span><span class="cm">,</span> <span class="i">@</span>{<span class="i">$Value</span>}<span class="s">)</span> . <span class="q">")"</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">" ${Name}=None"</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">" ${Name}=${Value}"</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">">"</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">"EdgeProperties: None"</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> && <span class="i">$Object</span><span class="i">->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">->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">->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">->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">->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">->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">->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">->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">->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> < <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">->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">->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 '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 '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">->_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">->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'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 '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">->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">->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">->SetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->SetGraphProperty</span><span class="s">(</span><span class="q">'AllCyclicPaths'</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">->SetGraphProperty</span><span class="s">(</span><span class="q">'IndependentCyclicPaths'</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">->_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">->_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">->_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">->_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">->_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">"Warning: ${ClassName}->SetActiveCyclicPaths: Didn't set active cyclic path: Cyclic path must be specified..."</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">"Warning: ${ClassName}->SetActiveCyclicPaths: Didn't set active cyclic path: Specified path type, $CyclicPathsType, is not valid. Supported valeus: Independent or All..."</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">->HasGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">"Warning: ${ClassName}->SetActiveCyclicPaths: Didn't set active cyclic path: Cycles haven't been detected yet..."</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">->DeleteGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetGraphProperty</span><span class="s">(</span><span class="q">'IndependentCyclicPaths'</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">->GetGraphProperty</span><span class="s">(</span><span class="q">'AllCyclicPaths'</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">->SetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->_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">->_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">->_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">->GetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->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'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">->SetVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->_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">"~"</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">->GetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->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> < <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> < <span class="i">$VertexID2</span><span class="s">)</span> ? <span class="q">"${VertexID1}${EdgeIDDelimiter}${VertexID2}"</span> <span class="co">:</span> <span class="q">"${VertexID2}${EdgeIDDelimiter}${VertexID1}"</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">->SetEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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'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 'FusedActiveCyclicPaths' 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 'NonFusedActiveCyclicPaths'. It'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">->_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">->GetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->_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">->_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">->SetGraphProperty</span><span class="s">(</span><span class="q">'FusedActiveCyclicPaths'</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">->SetGraphProperty</span><span class="s">(</span><span class="q">'NonFusedActiveCyclicPaths'</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>->[<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">"$ActiveCyclicPath"</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">->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> < <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">->GetEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">"${FusedCyclicPath1}"</span><span class="cm">,</span> <span class="q">"${FusedCyclicPath2}"</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> < <span class="i">$FusedCyclicPathIndex2</span><span class="s">)</span> ? <span class="q">"${FusedCyclicPathIndex1}-${FusedCyclicPathIndex2}"</span> <span class="co">:</span> <span class="q">"${FusedCyclicPathIndex2}-${FusedCyclicPathIndex1}"</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> < <span class="i">$VertexID2</span><span class="s">)</span> ? <span class="q">"${VertexID1}-${VertexID2}"</span> <span class="co">:</span> <span class="q">"${VertexID2}-${VertexID1}"</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> <=> <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">->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">->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>->{<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">->GetLength</span><span class="s">(</span><span class="s">)</span> <=> <span class="i">$b</span><span class="i">->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>->[<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>->[<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>->[<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">->GetLength</span><span class="s">(</span><span class="s">)</span> <=> <span class="i">$b</span><span class="i">->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">->HasGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->DeleteGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->DeleteGraphProperty</span><span class="s">(</span><span class="q">'AllCyclicPaths'</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">->DeleteGraphProperty</span><span class="s">(</span><span class="q">'IndependentCyclicPaths'</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">->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">->HasVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->DeleteVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->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> < <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">->HasEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->DeleteEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->HasGraphProperty</span><span class="s">(</span><span class="q">'FusedActiveCyclicPaths'</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">->DeleteGraphProperty</span><span class="s">(</span><span class="q">'FusedActiveCyclicPaths'</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">->DeleteGraphProperty</span><span class="s">(</span><span class="q">'NonFusedActiveCyclicPaths'</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">->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">->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">->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">->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">->_GetCycleSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SmallestCycle'</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">->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">->_GetCycleSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'LargestCycle'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'AllSizes'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'OddSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'EvenSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SpecifiedSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SizeLessThan'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SizeGreaterThan'</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">->_GetCycle</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'LargestCycle'</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">->_GetCycle</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SmallestCycle'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'AllSizes'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'OddSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'EvenSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SpecifiedSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SizeLessThan'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'GraphCycle'</span><span class="cm">,</span> <span class="q">'SizeGreaterThan'</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">->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">->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">->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">->_GetCycleSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SmallestCycle'</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">->_GetCycleSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'LargestCycle'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'AllSizes'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'OddSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'EvenSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SpecifiedSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SizeLessThan'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SizeGreaterThan'</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">->_GetCycle</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SmallestCycle'</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">->_GetCycle</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'LargestCycle'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'AllSizes'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'OddSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'EvenSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SpecifiedSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SizeLessThan'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'VertexCycle'</span><span class="cm">,</span> <span class="q">'SizeGreaterThan'</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">->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">->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">->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">->_GetCycleSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SmallestCycle'</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">->_GetCycleSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'LargestCycle'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'AllSizes'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'OddSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'EvenSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SpecifiedSize'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SizeLessThan'</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">->_GetNumOfCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SizeGreaterThan'</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">->_GetCycle</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SmallestCycle'</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">->_GetCycle</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'LargestCycle'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'AllSizes'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'OddSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'EvenSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SpecifiedSize'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SizeLessThan'</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">->_GetCyclesWithSize</span><span class="s">(</span><span class="q">'EdgeCycle'</span><span class="cm">,</span> <span class="q">'SizeGreaterThan'</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">->HasGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->HasVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->HasEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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>->[<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>->[<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">->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">->HasGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->HasVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->HasEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->GetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->_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>->[<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>->[<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">->_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">->HasGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->HasVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->HasEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">"Warning: ${ClassName}->_GetNumOfCyclesWithSize: Cycle size muse be defined..."</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> < <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">"Warning: ${ClassName}->_GetNumOfCyclesWithSize: Specified cycle size, $SpecifiedSize, must be > 0 ..."</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">->GetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->HasGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->HasVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->HasEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">"Warning: ${ClassName}->_GetCyclesWithSize: Cycle size must be defined..."</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">->_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> < <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">"Warning: ${ClassName}->_GetCyclesWithSize: Specified cycle size, $SpecifiedSize, must be > 0 ..."</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">->_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">->GetGraphProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetVertexProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->GetEdgeProperty</span><span class="s">(</span><span class="q">'ActiveCyclicPaths'</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">->_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">->_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">->_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">->_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">->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> < <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> > <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">->HasGraphProperty</span><span class="s">(</span><span class="q">'FusedActiveCyclicPaths'</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">->HasGraphProperty</span><span class="s">(</span><span class="q">'FusedActiveCyclicPaths'</span><span class="s">)</span> ? <span class="i">$This</span><span class="i">->GetGraphProperty</span><span class="s">(</span><span class="q">'FusedActiveCyclicPaths'</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">->HasGraphProperty</span><span class="s">(</span><span class="q">'NonFusedActiveCyclicPaths'</span><span class="s">)</span> ? <span class="i">$This</span><span class="i">->GetGraphProperty</span><span class="s">(</span><span class="q">'NonFusedActiveCyclicPaths'</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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->_GetPaths</span><span class="s">(</span><span class="q">'PathsWithLengthUpto'</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">->_GetPaths</span><span class="s">(</span><span class="q">'PathsWithLength'</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">->_GetPaths</span><span class="s">(</span><span class="q">'PathsWithAllLengths'</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">->_GetPaths</span><span class="s">(</span><span class="q">'AllPathsWithLengthUpto'</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">->_GetPaths</span><span class="s">(</span><span class="q">'AllPathsWithLength'</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">->_GetPaths</span><span class="s">(</span><span class="q">'AllPathsWithAllLengths'</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">->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">->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">->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">->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">->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">->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">->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">->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">->_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">->_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">->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">->GetLength</span> <= <span class="i">$ReversePath</span><span class="i">->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">->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">->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">->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">->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">->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">->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'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">->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">->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'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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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">->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> </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>

Mercurial > repos > deepakjadmin > mayatool3_test3

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