1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
<?php
/**
* webtrees: online genealogy
* Copyright (C) 2023 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 <https://www.gnu.org/licenses/>.
*/
declare(strict_types=1);
namespace Fisharebest\Webtrees\Factories;
use Closure;
use Fisharebest\Webtrees\Contracts\FamilyFactoryInterface;
use Fisharebest\Webtrees\DB;
use Fisharebest\Webtrees\Family;
use Fisharebest\Webtrees\Gedcom;
use Fisharebest\Webtrees\Registry;
use Fisharebest\Webtrees\Tree;
use function preg_match;
/**
* Make a Family object.
*/
class FamilyFactory extends AbstractGedcomRecordFactory implements FamilyFactoryInterface
{
private const TYPE_CHECK_REGEX = '/^0 @[^@]+@ ' . Family::RECORD_TYPE . '/';
/**
* Create a family.
*
* @param string $xref
* @param Tree $tree
* @param string|null $gedcom
*
* @return Family|null
*/
public function make(string $xref, Tree $tree, string $gedcom = null): ?Family
{
return Registry::cache()->array()->remember(self::class . $xref . '@' . $tree->id(), function () use ($xref, $tree, $gedcom) {
$gedcom ??= $this->gedcom($xref, $tree);
$pending = $this->pendingChanges($tree)->get($xref);
if ($gedcom === null && ($pending === null || !preg_match(self::TYPE_CHECK_REGEX, $pending))) {
return null;
}
$xref = $this->extractXref($gedcom ?? $pending, $xref);
// Preload all the family members using a single database query.
preg_match_all('/\n1 (?:HUSB|WIFE|CHIL) @(' . Gedcom::REGEX_XREF . ')@/', $gedcom . "\n" . $pending, $match);
DB::table('individuals')
->where('i_file', '=', $tree->id())
->whereIn('i_id', $match[1])
->get()
->map(Registry::individualFactory()->mapper($tree));
return $this->new($xref, $gedcom ?? '', $pending, $tree);
});
}
/**
* Create a Family object from a row in the database.
*
* @param Tree $tree
*
* @return Closure(object):Family
*/
public function mapper(Tree $tree): Closure
{
return fn (object $row): Family => $this->make($row->f_id, $tree, $row->f_gedcom);
}
/**
* Create a Family object from raw GEDCOM data.
*
* @param string $xref
* @param string $gedcom an empty string for new/pending records
* @param string|null $pending null for a record with no pending edits,
* empty string for records with pending deletions
* @param Tree $tree
*
* @return Family
*/
public function new(string $xref, string $gedcom, ?string $pending, Tree $tree): Family
{
return new Family($xref, $gedcom, $pending, $tree);
}
/**
* Fetch GEDCOM data from the database.
*
* @param string $xref
* @param Tree $tree
*
* @return string|null
*/
protected function gedcom(string $xref, Tree $tree): ?string
{
return DB::table('families')
->where('f_id', '=', $xref)
->where('f_file', '=', $tree->id())
->value('f_gedcom');
}
}
|
