RelationshipController::oldStyleRelationshipPath() - Code Metrics - Inspection of "PHP 5.3 compatibility" - fisharebest/webtrees - Measure and Improve Code Quality continuously with Scrutinizer

Completed

Push — 1.7 ( fa0ef8...580c36 )

by Greg

created 2016-12-23 17:49 UTC

RelationshipController::oldStyleRelationshipPath() C

↳ Parent: Project

Complexity

Conditions	16
Paths	8

Size

Total Lines	36
Code Lines	28

Duplication

Lines	10
Ratio	27.78 %

Importance

Changes

Metric	Value
cc	16
eloc	28
nc	8
nop	1
dl	10
loc	36
rs	5.0151
c	0
b	0
f	0

How to fix Complexity

<?php
/**
 * webtrees: online genealogy
 * Copyright (C) 2016 webtrees development team
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <http://www.gnu.org/licenses/>.
 */
namespace Fisharebest\Webtrees\Controller;

use Fisharebest\Algorithm\Dijkstra;
use Fisharebest\Webtrees\Database;
use Fisharebest\Webtrees\Family;
use Fisharebest\Webtrees\GedcomRecord;
use Fisharebest\Webtrees\Individual;

/**
 * Controller for the relationships calculations
 */
class RelationshipController extends PageController {
	/**
	 * Calculate the shortest paths - or all paths - between two individuals.
	 *
	 * @param Individual $individual1
	 * @param Individual $individual2
	 * @param int        $recursion   How many levels of recursion to use
	 * @param boo;       $ancestor    Restrict to relationships via a common ancestor
	 *
	 * @return string[][]
	 */
	public function calculateRelationships(Individual $individual1, Individual $individual2, $recursion, $ancestor = false) {

		$rows = Database::prepare(
			"SELECT l_from, l_to FROM `##link` WHERE l_file = :tree_id AND l_type IN ('FAMS', 'FAMC')"
		)->execute(array(
			'tree_id' => $individual1->getTree()->getTreeId(),
		))->fetchAll();

		// Optionally restrict the graph to the ancestors of the individuals.
		if ($ancestor) {
			$ancestors = $this->allAncestors($individual1->getXref(), $individual2->getXref(), $individual1->getTree()->getTreeId());
			$exclude   = $this->excludeFamilies($individual1->getXref(), $individual2->getXref(), $individual1->getTree()->getTreeId());
		} else {
			$ancestors = array();
			$exclude   = array();
		}

		$graph = array();

		foreach ($rows as $row) {
			if (!$ancestors || in_array($row->l_from, $ancestors) && !in_array($row->l_to, $exclude)) {
				$graph[$row->l_from][$row->l_to] = 1;
				$graph[$row->l_to][$row->l_from] = 1;
			}
		}

		$xref1    = $individual1->getXref();
		$xref2    = $individual2->getXref();
		$dijkstra = new Dijkstra($graph);
		$paths    = $dijkstra->shortestPaths($xref1, $xref2);

		// Only process each exclusion list once;
		$excluded = array();

		$queue = array();
		foreach ($paths as $path) {
			// Insert the paths into the queue, with an exclusion list.
			$queue[] = array('path' => $path, 'exclude' => array());
			// While there are un-extended paths
			while (list(, $next) = each($queue)) {
				// For each family on the path
				for ($n = count($next['path']) - 2; $n >= 1; $n -= 2) {
					$exclude = $next['exclude'];
					if (count($exclude) >= $recursion) {
						continue;
					}
					$exclude[] = $next['path'][$n];
					sort($exclude);
					$tmp = implode('-', $exclude);
					if (in_array($tmp, $excluded)) {
						continue;
					} else {
						$excluded[] = $tmp;
					}
					// Add any new path to the queue
					foreach ($dijkstra->shortestPaths($xref1, $xref2, $exclude) as $new_path) {
						$queue[] = array('path' => $new_path, 'exclude' => $exclude);
					}
				}
			}
		}
		// Extract the paths from the queue, removing duplicates.
		$paths = array();
		foreach ($queue as $next) {
			$paths[implode('-', $next['path'])] = $next['path'];
		}

		return $paths;
	}

	/**
	 * Convert a path (list of XREFs) to an "old-style" string of relationships.
	 *
	 * Return an empty array, if privacy rules prevent us viewing any node.
	 *
	 * @param GedcomRecord[] $path Alternately Individual / Family
	 *
	 * @return string[]
	 */
	public function oldStyleRelationshipPath(array $path) {
		global $WT_TREE;
function myFunction($a, $b) {
    // Do something
}

		$spouse_codes  = array('M' => 'hus', 'F' => 'wif', 'U' => 'spo');
		$parent_codes  = array('M' => 'fat', 'F' => 'mot', 'U' => 'par');
		$child_codes   = array('M' => 'son', 'F' => 'dau', 'U' => 'chi');
		$sibling_codes = array('M' => 'bro', 'F' => 'sis', 'U' => 'sib');
		$relationships = array();

		for ($i = 1; $i < count($path); $i += 2) {
			$family = Family::getInstance($path[$i], $WT_TREE);
			$prev   = Individual::getInstance($path[$i - 1], $WT_TREE);
			$next   = Individual::getInstance($path[$i + 1], $WT_TREE);
			if (preg_match('/\n\d (HUSB|WIFE|CHIL) @' . $prev->getXref() . '@/', $family->getGedcom(), $match)) {
				$rel1 = $match[1];
			} else {
				return array();
			}
			if (preg_match('/\n\d (HUSB|WIFE|CHIL) @' . $next->getXref() . '@/', $family->getGedcom(), $match)) {
				$rel2 = $match[1];
			} else {
				return array();
			}
			if (($rel1 === 'HUSB' || $rel1 === 'WIFE') && ($rel2 === 'HUSB' || $rel2 === 'WIFE')) {
				$relationships[$i] = $spouse_codes[$next->getSex()];
			} elseif (($rel1 === 'HUSB' || $rel1 === 'WIFE') && $rel2 === 'CHIL') {
				$relationships[$i] = $child_codes[$next->getSex()];
			} elseif ($rel1 === 'CHIL' && ($rel2 === 'HUSB' || $rel2 === 'WIFE')) {
				$relationships[$i] = $parent_codes[$next->getSex()];
			} elseif ($rel1 === 'CHIL' && $rel2 === 'CHIL') {
				$relationships[$i] = $sibling_codes[$next->getSex()];
			}
		}

		return $relationships;
	}

	/**
	 * Find all ancestors of a list of individuals
	 *
	 * @param string $xref1
	 * @param string $xref2
	 * @param int    $tree_id
	 *
	 * @return array
	 */
	private function allAncestors($xref1, $xref2, $tree_id) {
		$ancestors = array($xref1, $xref2);

		$queue = array($xref1, $xref2);
		while (!empty($queue)) {
			$placeholders = implode(',', array_fill(0, count($queue), '?'));
			$parameters = $queue;
			$parameters[] = $tree_id;

			$parents = Database::prepare(
				"SELECT l2.l_from" .
				" FROM `##link` AS l1" .
				" JOIN `##link` AS l2 USING (l_to, l_file) " .
				" WHERE l1.l_type = 'FAMC' AND l2.l_type = 'FAMS' AND l1.l_from IN (" . $placeholders . ") AND l_file = ?"
			)->execute(
				$parameters
			)->fetchOneColumn();

			$queue = array()
			foreach ($parents as $parent) {

				if (!in_array($parent, $ancestors)) {
					$ancestors[] = $parent;
					$queue[]     = $parent;
				}
			}
		}

		return $ancestors;
	}

	/**
	 * Find all families of two individuals
	 *
	 * @param string $xref1
	 * @param string $xref2
	 * @param int    $tree_id
	 *
	 * @return array
	 */
	private function excludeFamilies($xref1, $xref2, $tree_id) {
		return Database::prepare(
			"SELECT l_to" .
			" FROM `##link` AS l1" .
			" JOIN `##link` AS l2 USING (l_type, l_to, l_file) " .
			" WHERE l_type = 'FAMS' AND l1.l_from = :spouse1 AND l2.l_from = :spouse2 AND l_file = :tree_id"
		)->execute(array(
			'spouse1' => $xref1,
			'spouse2' => $xref2,
			'tree_id' => $tree_id,
		))->fetchOneColumn();
	}
}


Push — 1.7 ( fa0ef8...580c36 )

RelationshipController::oldStyleRelationshipPath() C

Complexity

Size

Duplication

Importance

How to fix Complexity

Long Method

1. Pass all data via parameters

2. Create a class that maintains your state

1			<?php
2			/**
3			* webtrees: online genealogy
4			* Copyright (C) 2016 webtrees development team
5			* This program is free software: you can redistribute it and/or modify
6			* it under the terms of the GNU General Public License as published by
7			* the Free Software Foundation, either version 3 of the License, or
8			* (at your option) any later version.
9			* This program is distributed in the hope that it will be useful,
10			* but WITHOUT ANY WARRANTY; without even the implied warranty of
11			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12			* GNU General Public License for more details.
13			* You should have received a copy of the GNU General Public License
14			* along with this program. If not, see <http://www.gnu.org/licenses/>.
15			*/
16			namespace Fisharebest\Webtrees\Controller;
17
18			use Fisharebest\Algorithm\Dijkstra;
19			use Fisharebest\Webtrees\Database;
20			use Fisharebest\Webtrees\Family;
21			use Fisharebest\Webtrees\GedcomRecord;
22			use Fisharebest\Webtrees\Individual;
23
24			/**
25			* Controller for the relationships calculations
26			*/
27			class RelationshipController extends PageController {
28			/**
29			* Calculate the shortest paths - or all paths - between two individuals.
30			*
31			* @param Individual $individual1
32			* @param Individual $individual2
33			* @param int $recursion How many levels of recursion to use
34			* @param boo; $ancestor Restrict to relationships via a common ancestor
35			*
36			* @return string[][]
37			*/
38			public function calculateRelationships(Individual $individual1, Individual $individual2, $recursion, $ancestor = false) {
39
40			$rows = Database::prepare(
41			"SELECT l_from, l_to FROM `##link` WHERE l_file = :tree_id AND l_type IN ('FAMS', 'FAMC')"
42			)->execute(array(
43			'tree_id' => $individual1->getTree()->getTreeId(),
44			))->fetchAll();
45
46			// Optionally restrict the graph to the ancestors of the individuals.
47			if ($ancestor) {
48			$ancestors = $this->allAncestors($individual1->getXref(), $individual2->getXref(), $individual1->getTree()->getTreeId());
49			$exclude = $this->excludeFamilies($individual1->getXref(), $individual2->getXref(), $individual1->getTree()->getTreeId());
50			} else {
51			$ancestors = array();
52			$exclude = array();
53			}
54
55			$graph = array();
56
57			foreach ($rows as $row) {
58			if (!$ancestors \|\| in_array($row->l_from, $ancestors) && !in_array($row->l_to, $exclude)) {
59			$graph[$row->l_from][$row->l_to] = 1;
60			$graph[$row->l_to][$row->l_from] = 1;
61			}
62			}
63
64			$xref1 = $individual1->getXref();
65			$xref2 = $individual2->getXref();
66			$dijkstra = new Dijkstra($graph);
67			$paths = $dijkstra->shortestPaths($xref1, $xref2);
68
69			// Only process each exclusion list once;
70			$excluded = array();
71
72			$queue = array();
73			foreach ($paths as $path) {
74			// Insert the paths into the queue, with an exclusion list.
75			$queue[] = array('path' => $path, 'exclude' => array());
76			// While there are un-extended paths
77			while (list(, $next) = each($queue)) {
78			// For each family on the path
79			for ($n = count($next['path']) - 2; $n >= 1; $n -= 2) {
80			$exclude = $next['exclude'];
81			if (count($exclude) >= $recursion) {
82			continue;
83			}
84			$exclude[] = $next['path'][$n];
85			sort($exclude);
86			$tmp = implode('-', $exclude);
87			if (in_array($tmp, $excluded)) {
88			continue;
89			} else {
90			$excluded[] = $tmp;
91			}
92			// Add any new path to the queue
93			foreach ($dijkstra->shortestPaths($xref1, $xref2, $exclude) as $new_path) {
94			$queue[] = array('path' => $new_path, 'exclude' => $exclude);
95			}
96			}
97			}
98			}
99			// Extract the paths from the queue, removing duplicates.
100			$paths = array();
101			foreach ($queue as $next) {
102			$paths[implode('-', $next['path'])] = $next['path'];
103			}
104
105			return $paths;
106			}
107
108			/**
109			* Convert a path (list of XREFs) to an "old-style" string of relationships.
110			*
111			* Return an empty array, if privacy rules prevent us viewing any node.
112			*
113			* @param GedcomRecord[] $path Alternately Individual / Family
114			*
115			* @return string[]
116			*/
117			public function oldStyleRelationshipPath(array $path) {
118			global $WT_TREE;
			0 ignored issues – show Compatibility Best Practice introduced 2015-11-21 10:27 UTC by Report Bug Copy Issue Report Use of `global` functionality is not recommended; it makes your code harder to test, and less reusable. Instead of relying on `global` state, we recommend one of these alternatives: 1. Pass all data via parameters function myFunction($a, $b) { // Do something } 2. Create a class that maintains your state class MyClass { private $a; private $b; public function __construct($a, $b) { $this->a = $a; $this->b = $b; } public function myFunction() { // Do something } } Loading history...
119
120			$spouse_codes = array('M' => 'hus', 'F' => 'wif', 'U' => 'spo');
121			$parent_codes = array('M' => 'fat', 'F' => 'mot', 'U' => 'par');
122			$child_codes = array('M' => 'son', 'F' => 'dau', 'U' => 'chi');
123			$sibling_codes = array('M' => 'bro', 'F' => 'sis', 'U' => 'sib');
124			$relationships = array();
125
126			for ($i = 1; $i < count($path); $i += 2) {
127			$family = Family::getInstance($path[$i], $WT_TREE);
128			$prev = Individual::getInstance($path[$i - 1], $WT_TREE);
129			$next = Individual::getInstance($path[$i + 1], $WT_TREE);
130			if (preg_match('/\n\d (HUSB\|WIFE\|CHIL) @' . $prev->getXref() . '@/', $family->getGedcom(), $match)) {
131			$rel1 = $match[1];
132			} else {
133			return array();
134			}
135			if (preg_match('/\n\d (HUSB\|WIFE\|CHIL) @' . $next->getXref() . '@/', $family->getGedcom(), $match)) {
136			$rel2 = $match[1];
137			} else {
138			return array();
139			}
140			if (($rel1 === 'HUSB' \|\| $rel1 === 'WIFE') && ($rel2 === 'HUSB' \|\| $rel2 === 'WIFE')) {
141			$relationships[$i] = $spouse_codes[$next->getSex()];
142			} elseif (($rel1 === 'HUSB' \|\| $rel1 === 'WIFE') && $rel2 === 'CHIL') {
143			$relationships[$i] = $child_codes[$next->getSex()];
144			} elseif ($rel1 === 'CHIL' && ($rel2 === 'HUSB' \|\| $rel2 === 'WIFE')) {
145			$relationships[$i] = $parent_codes[$next->getSex()];
146			} elseif ($rel1 === 'CHIL' && $rel2 === 'CHIL') {
147			$relationships[$i] = $sibling_codes[$next->getSex()];
148			}
149			}
150
151			return $relationships;
152			}
153
154			/**
155			* Find all ancestors of a list of individuals
156			*
157			* @param string $xref1
158			* @param string $xref2
159			* @param int $tree_id
160			*
161			* @return array
162			*/
163			private function allAncestors($xref1, $xref2, $tree_id) {
164			$ancestors = array($xref1, $xref2);
165
166			$queue = array($xref1, $xref2);
167			while (!empty($queue)) {
168			$placeholders = implode(',', array_fill(0, count($queue), '?'));
169			$parameters = $queue;
170			$parameters[] = $tree_id;
171
172			$parents = Database::prepare(
173			"SELECT l2.l_from" .
174			" FROM `##link` AS l1" .
175			" JOIN `##link` AS l2 USING (l_to, l_file) " .
176			" WHERE l1.l_type = 'FAMC' AND l2.l_type = 'FAMS' AND l1.l_from IN (" . $placeholders . ") AND l_file = ?"
177			)->execute(
178			$parameters
179			)->fetchOneColumn();
180
181			$queue = array()
182			foreach ($parents as $parent) {
			0 ignored issues – show Bug introduced 2016-12-23 17:57 UTC by Report Bug Copy Issue Report This code did not parse for me. Apparently, there is an error somewhere around this line: Syntax error, unexpected T_FOREACH Loading history...
183			if (!in_array($parent, $ancestors)) {
184			$ancestors[] = $parent;
185			$queue[] = $parent;
186			}
187			}
188			}
189
190			return $ancestors;
191			}
192
193			/**
194			* Find all families of two individuals
195			*
196			* @param string $xref1
197			* @param string $xref2
198			* @param int $tree_id
199			*
200			* @return array
201			*/
202			private function excludeFamilies($xref1, $xref2, $tree_id) {
203			return Database::prepare(
204			"SELECT l_to" .
205			" FROM `##link` AS l1" .
206			" JOIN `##link` AS l2 USING (l_type, l_to, l_file) " .
207			" WHERE l_type = 'FAMS' AND l1.l_from = :spouse1 AND l2.l_from = :spouse2 AND l_file = :tree_id"
208			)->execute(array(
209			'spouse1' => $xref1,
210			'spouse2' => $xref2,
211			'tree_id' => $tree_id,
212			))->fetchOneColumn();
213			}
214			}
215

fisharebest / webtrees

Push — 1.7 ( fa0ef8...580c36 )

RelationshipController::oldStyleRelationshipPath() C

Complexity

Size

Duplication

Importance

How to fix Complexity

Long Method

1. Pass all data via parameters

2. Create a class that maintains your state

Duplication Side-by-Side

Filter issues like