Lines Matching refs:gedcom
229 $gedcom = $datum;
231 $gedcom = $datum->privatizeGedcom($access_level);
233 if ($gedcom === '') {
237 $gedcom =
245 …& $zip_filesystem !== null && preg_match('/0 @' . Gedcom::REGEX_XREF . '@ OBJE/', $gedcom) === 1) {
246 preg_match_all('/\n1 FILE (.+)/', $gedcom, $matches, PREG_SET_ORDER);
257 $gedcom = $this->wrapLongLines($gedcom, Gedcom::LINE_LENGTH) . "\n";
260 $gedcom = strtr($gedcom, ["\n" => "\r\n"]);
263 $bytes_written = fwrite($stream, $gedcom);
265 if ($bytes_written !== strlen($gedcom)) {
296 $gedcom = '0 HEAD';
297 $gedcom .= "\n1 SOUR " . Webtrees::NAME;
298 $gedcom .= "\n2 NAME " . Webtrees::NAME;
299 $gedcom .= "\n2 VERS " . Webtrees::VERSION;
300 $gedcom .= "\n1 DEST DISKETTE";
301 $gedcom .= "\n1 DATE " . strtoupper(date('d M Y'));
302 $gedcom .= "\n2 TIME " . date('H:i:s');
303 $gedcom .= "\n1 GEDC\n2 VERS 5.5.1\n2 FORM LINEAGE-LINKED";
304 $gedcom .= "\n1 CHAR " . $encoding;
305 $gedcom .= "\n1 FILE " . $filename;
313 $gedcom .= "\n" . $fact->gedcom();
318 $gedcom .= "\n" . $fact->gedcom();
323 return $gedcom;
326 public function wrapLongLines(string $gedcom, int $max_line_length): string argument
330 foreach (explode("\n", $gedcom) as $line) {