1#**************************************************************
2#
3#  Licensed to the Apache Software Foundation (ASF) under one
4#  or more contributor license agreements.  See the NOTICE file
5#  distributed with this work for additional information
6#  regarding copyright ownership.  The ASF licenses this file
7#  to you under the Apache License, Version 2.0 (the
8#  "License"); you may not use this file except in compliance
9#  with the License.  You may obtain a copy of the License at
10#
11#    http://www.apache.org/licenses/LICENSE-2.0
12#
13#  Unless required by applicable law or agreed to in writing,
14#  software distributed under the License is distributed on an
15#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16#  KIND, either express or implied.  See the License for the
17#  specific language governing permissions and limitations
18#  under the License.
19#
20#**************************************************************
21
22
23
24package installer::sorter;
25
26#########################################
27# Sorting an array of hashes
28#########################################
29
30sub sorting_array_of_hashes
31{
32	my ($arrayref, $sortkey) = @_;
33
34	for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
35	{
36		my $onehashunder = ${$arrayref}[$i];
37		my $sortvalueunder = $onehashunder->{$sortkey};
38
39		for ( my $j = $i + 1; $j <= $#{$arrayref}; $j++ )
40		{
41			my $onehashover = ${$arrayref}[$j];
42			my $sortvalueover = $onehashover->{$sortkey};
43
44			if ( $sortvalueunder gt $sortvalueover)
45			{
46				${$arrayref}[$i] = $onehashover;
47				${$arrayref}[$j] = $onehashunder;
48
49				$onehashunder = $onehashover;
50				$sortvalueunder = $sortvalueover;
51			}
52		}
53	}
54}
55
56######################################################
57# Sorting an array of hashes with a numerical value
58######################################################
59
60sub sort_array_of_hashes_numerically
61{
62	my ($arrayref, $sortkey) = @_;
63
64	for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
65	{
66		my $onehashunder = ${$arrayref}[$i];
67		my $sortvalueunder = $onehashunder->{$sortkey};
68
69		for ( my $j = $i + 1; $j <= $#{$arrayref}; $j++ )
70		{
71			my $onehashover = ${$arrayref}[$j];
72			my $sortvalueover = $onehashover->{$sortkey};
73
74			if ( $sortvalueunder > $sortvalueover)
75			{
76				${$arrayref}[$i] = $onehashover;
77				${$arrayref}[$j] = $onehashunder;
78
79				$onehashunder = $onehashover;
80				$sortvalueunder = $sortvalueover;
81			}
82		}
83	}
84}
85
86#########################################
87# Sorting an array of of strings
88#########################################
89
90sub sorting_array_of_strings
91{
92	my ($arrayref) = @_;
93
94	for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
95	{
96		my $onestringunder = ${$arrayref}[$i];
97
98		for ( my $j = $i + 1; $j <= $#{$arrayref}; $j++ )
99		{
100			my $onestringover = ${$arrayref}[$j];
101
102			if ( $onestringunder gt $onestringover)
103			{
104				${$arrayref}[$i] = $onestringover;
105				${$arrayref}[$j] = $onestringunder;
106				$onestringunder = $onestringover;
107			}
108		}
109	}
110}
111
1121;
113