File Coverage

blib/lib/Genealogy/Gedcom/Reader/Lexer.pm

Criterion	Covered	Total	%
statement	528	1305	40.4
branch	33	54	61.1
condition	11	17	64.7
subroutine	158	472	33.4
pod	10	175	5.7
total	740	2023	36.5

line	stmt	bran	cond	sub	pod	time	code
1							package Genealogy::Gedcom::Reader::Lexer;
2
3	1			1		1076	use strict;
	1					2
	1					24
4	1			1		4	use warnings;
	1					2
	1					25
5
6	1			1		863	use Genealogy::Gedcom::Date;
	1					343222
	1					56
7
8	1			1		42	use Log::Handler;
	1					2
	1					9
9
10	1			1		23	use Moo;
	1					2
	1					4
11
12	1			1		1192	use File::Slurper 'read_lines';
	1					5033
	1					70
13
14	1			1		2375	use Set::Array;
	1					21292
	1					153
15
16	1			1		52	use Types::Standard qw/Any ArrayRef Int Str/;
	1					2
	1					13
17
18							has counter =>
19							(
20							default => sub{return 0},
21							is => 'rw',
22							isa => Int,
23							required => 0,
24							);
25
26							has gedcom_data =>
27							(
28							default => sub{return []},
29							is => 'rw',
30							isa => ArrayRef,
31							required => 0,
32							);
33
34							has input_file =>
35							(
36							default => sub{return ''},
37							is => 'rw',
38							isa => Str,
39							required => 0,
40							);
41
42							has items =>
43							(
44							default => sub{return Set::Array -> new},
45							is => 'rw',
46							isa => Any,
47							required => 0,
48							);
49
50							has logger =>
51							(
52							default => sub{return undef},
53							is => 'rw',
54							isa => Any,
55							required => 0,
56							);
57
58							has maxlevel =>
59							(
60							default => sub{return 'notice'},
61							is => 'rw',
62							isa => Str,
63							required => 0,
64							);
65
66							has minlevel =>
67							(
68							default => sub{return 'error'},
69							is => 'rw',
70							isa => Str,
71							required => 0,
72							);
73
74							has parser =>
75							(
76							default => sub{return Genealogy::Gedcom::Date -> new},
77							is => 'rw',
78							isa => Any,
79							required => 0,
80							);
81
82							has report_items =>
83							(
84							default => sub{return 0},
85							is => 'rw',
86							isa => Int,
87							required => 0,
88							);
89
90							has result =>
91							(
92							default => sub{return 0},
93							is => 'rw',
94							isa => Int,
95							required => 0,
96							);
97
98							has strict =>
99							(
100							default => sub{return 0},
101							is => 'rw',
102							isa => Int,
103							required => 0,
104							);
105
106							our $VERSION = '0.87';
107
108							# --------------------------------------------------
109
110							sub BUILD
111							{
112	8			8	0	472	my($self) = @_;
113
114	8	50				174	if (! defined $self -> logger)
115							{
116	0					0	$self -> logger(Log::Handler -> new);
117	0					0	$self -> logger -> add
118							(
119							screen =>
120							{
121							maxlevel => $self -> maxlevel,
122							message_layout => '%m',
123							minlevel => $self -> minlevel,
124							utf8 => 1,
125							}
126							);
127							}
128
129							} # End of BUILD.
130
131							# --------------------------------------------------
132
133							sub check_date
134							{
135	498			498	1	1000	my($self, $id, $line) = @_;
136
137	498	50				1471	if ($self -> check_length($id, $line) )
138							{
139	0					0	$self -> push_item($line, 'Invalid date');
140							}
141							else
142							{
143	498					11427	my($date) = $self -> parser -> parse(date => $$line[4]);
144
145	498					12635817	$self -> log(debug => "$id: $date");
146	498	50				14846	$self -> push_item($line, $self -> parser -> error ? 'Invalid date' : 'Date');
147							}
148
149							} # End of check_date.
150
151							# --------------------------------------------------
152
153							sub check_date_period
154							{
155	1			1	0	3	my($self, $id, $line) = @_;
156
157	1	50				4	if ($self -> check_length($id, $line) )
158							{
159	0					0	$self -> push_item($line, 'Invalid date');
160							}
161							else
162							{
163	1					26	my($date) = $self -> parser -> parse(date => $$line[4]);
164
165	1					34111	$self -> log(debug => "$id: $date");
166	1	50				32	$self -> push_item($line, $self -> parser -> error ? 'Invalid date' : 'Date');
167							}
168
169							} # End of check_date_period.
170
171							# --------------------------------------------------
172
173							sub check_exact_date
174							{
175	256			256	0	625	my($self, $id, $line) = @_;
176
177	256	50				859	if ($self -> check_length($id, $line) )
178							{
179	0					0	$self -> push_item($line, 'Invalid date');
180							}
181							else
182							{
183	256					5905	my($date) = $self -> parser -> parse(date => $$line[4]);
184
185							# This is commented out because log has already been called by the caller.
186							# See also the previous 2 methods.
187
188							#$self -> log(debug => "$id: $date");
189	256	50				4901454	$self -> push_item($line, $self -> parser -> error ? 'Invalid date' : 'Date');
190							}
191
192							} # End of check_exact_date.
193
194							# --------------------------------------------------
195
196							sub check_length
197							{
198	1478			1478	1	3056	my($self, $id, $line) = @_;
199	1478					5295	$id =~ s/^tag_//;
200	1478					3061	my($value) = $$line[4];
201	1478					3691	my($length) = length($value);
202	1478					4375	my($min) = $self -> get_min_length($id, $line);
203	1478					12892	my($max) = $self -> get_max_length($id, $line);
204	1478	50	33			8523	my($result) = ( ($length < $min) \|\| ($length > $max) ) ? 1 : 0;
205
206	1478	50				3842	if ($result)
207							{
208	0					0	$self -> log(warning => "Line: $$line[0]. Field: $id. Value: $value. Length: $length. Valid length range $min .. $max");
209							}
210
211							# Return 0 for success and 1 for failure.
212
213	1478					4566	return $result;
214
215							} # End of check_length.
216
217							# --------------------------------------------------
218
219							sub cross_check_xrefs
220							{
221	8			8	1	19	my($self) = @_;
222
223	8					16	my(@link);
224							my(%target);
225
226	8					21	for my $item (@{$self -> items})
	8					163
227							{
228	4001	100				11831	if ($$item{type} =~ /^Link/)
229							{
230	788					2668	push @link, [$$item{data}, $$item{line_count}];
231							}
232
233	4001	100	66			11713	if ( ($$item{level} == 0) && $$item{xref})
234							{
235	571	50				1527	if ($target{$$item{xref} })
236							{
237	0					0	$self -> log(warning => "Line $$item{line_count}. Xref $$item{xref} was also used on line $target{$$item{xref} }");
238							}
239
240	571					1946	$target{$$item{xref} } = $$item{line_count};
241							}
242							}
243
244	8					17	my(%seen);
245
246	8					57	for my $link (@link)
247							{
248	788	100				2138	next if ($seen{$$link[0]});
249
250	383	50				864	$self -> log(warning => "Line $$link[1]. Link $$link[0] does not point to an existing xref") if (! $target{$$link[0]});
251
252	383					782	$seen{$$link[0]} = 1;
253							}
254
255							} # End of cross_check_xrefs.
256
257							# --------------------------------------------------
258
259							sub get_gedcom_data_from_file
260							{
261	8			8	0	19	my($self) = @_;
262
263	8					176	$self -> gedcom_data([map{s/^\s+//; s/\s+$//; $_} read_lines($self -> input_file)]);
	4059					839727
	4059					9118
	4059					7343
264
265							} # End of get_gedcom_data_from_file.
266
267							# --------------------------------------------------
268							# Source of max: Ged551-5.pdf.
269							# See also scripts/find.unused.limits.pl.
270
271							sub get_max_length
272							{
273	1478			1478	1	2988	my($self, $id, $line) = @_;
274	1478					109542	my(%max) =
275							(
276							address_city => 60,
277							address_country => 60,
278							address_email => 120,
279							address_fax => 60,
280							address_line => 60,
281							address_line1 => 60,
282							address_line2 => 60,
283							address_line3 => 60,
284							address_postal_code => 10,
285							address_state => 60,
286							address_web_page => 120,
287							adopted_by_which_parent => 4,
288							age_at_event => 12,
289							ancestral_file_number => 12,
290							approved_system_id => 20,
291							attribute_descriptor => 90,
292							attribute_type => 4,
293							automated_record_id => 12,
294							caste_name => 90,
295							cause_of_event => 90,
296							certainty_assessment => 1,
297							change_date => 11,
298							character_set => 8,
299							child_linkage_status => 15,
300							copyright_gedcom_file => 90,
301							copyright_source_data => 90,
302							count_of_children => 3,
303							count_of_marriages => 3,
304							date => 35,
305							date_approximated => 35,
306							date_calendar => 35,
307							date_calendar_escape => 15,
308							date_exact => 11,
309							date_fren => 35,
310							date_greg => 35,
311							date_hebr => 35,
312							date_juln => 35,
313							date_lds_ord => 35,
314							date_period => 35,
315							date_phrase => 35,
316							date_range => 35,
317							date_value => 35,
318							day => 2,
319							descriptive_title => 248,
320							digit => 1,
321							entry_recording_date => 90,
322							event_attribute_type => 15,
323							event_descriptor => 90,
324							event_or_fact_classification => 90,
325							event_type_family => 4,
326							event_type_individual => 4,
327							events_recorded => 90,
328							file_name => 90,
329							gedcom_content_description => 248,
330							gedcom_form => 20,
331							generations_of_ancestors => 4,
332							generations_of_descendants => 4,
333							language_id => 15,
334							language_of_text => 15,
335							language_preference => 90,
336							lds_baptism_date_status => 10,
337							lds_child_sealing_date_status => 10,
338							lds_endowment_date_status => 10,
339							lds_spouse_sealing_date_status => 10,
340							multimedia_file_reference => 30,
341							multimedia_format => 4,
342							name_of_business => 90,
343							name_of_family_file => 120,
344							name_of_product => 90,
345							name_of_repository => 90,
346							name_of_source_data => 90,
347							name_personal => 120,
348							name_phonetic_variation => 120,
349							name_piece => 90,
350							name_piece_given => 120,
351							name_piece_nickname => 30,
352							name_piece_prefix => 30,
353							name_piece_suffix => 30,
354							name_piece_surname => 120,
355							name_piece_surname_prefix => 30,
356							name_romanized_variation => 120,
357							name_text => 120,
358							name_type => 30,
359							national_id_number => 30,
360							national_or_tribal_origin => 120,
361							new_tag => 15,
362							nobility_type_title => 120,
363							null => 0,
364							occupation => 90,
365							ordinance_process_flag => 3,
366							pedigree_linkage_type => 7,
367							permanent_record_file_number => 90,
368							phone_number => 25,
369							phonetic_type => 30,
370							physical_description => 248,
371							place_hierarchy => 120,
372							place_latitude => 8,
373							place_living_ordinance => 120,
374							place_longitude => 8,
375							place_name => 120,
376							place_phonetic_variation => 120,
377							place_romanized_variation => 120,
378							place_text => 120,
379							possessions => 248,
380							publication_date => 11,
381							receiving_system_name => 20,
382							record_identifier => 18,
383							registered_resource_identifier => 25,
384							relation_is_descriptor => 25,
385							religious_affiliation => 90,
386							responsible_agency => 120,
387							restriction_notice => 7,
388							role_descriptor => 25,
389							role_in_event => 15,
390							romanized_type => 30,
391							scholastic_achievement => 248,
392							sex_value => 7,
393							social_security_number => 11,
394							source_call_number => 120,
395							source_description => 248,
396							source_descriptive_title => 248,
397							source_filed_by_entry => 60,
398							source_jurisdiction_place => 120,
399							source_media_type => 15,
400							source_originator => 248,
401							source_publication_facts => 248,
402							submitter_name => 60,
403							submitter_registered_rfn => 30,
404							submitter_text => 248,
405							temple_code => 5,
406							text => 248,
407							text_from_source => 248,
408							time_value => 12,
409							transmission_date => 11,
410							user_reference_number => 20,
411							user_reference_type => 40,
412							version_number => 15,
413							where_within_source => 248,
414							year => 4,
415							year_greg => 7,
416							);
417
418							# This dies rather than calls log(error...) because it's a coding error if $id is mis-spelt.
419
420	1478		50			32174	return $max{$id} \|\| die "Error: Line: $$line[0]. Invalid field name in get_max_length($id)";
421
422							} # End of get_max_length.
423
424							# --------------------------------------------------
425
426							sub get_min_length
427							{
428	1478			1478	1	2676	my($self, $id, $line) = @_;
429
430	1478					33804	return $self -> strict;
431
432							} # End of get_min_length.
433
434							# --------------------------------------------------
435
436							sub get_sub_name
437							{
438	4002			4002	0	14950	my($self, @caller) = @_;
439
440							# Remove package name prefix from sub name.
441
442	4002					17024	$caller[3] =~ s/^.+:://;
443
444	4002					14832	return $caller[3];
445
446							} # End of get_sub_name.
447
448							# --------------------------------------------------
449
450							sub log
451							{
452	4501			4501	1	8662	my($self, $level, $s) = @_;
453
454	4501	50				102517	$self -> logger -> $level($s) if ($self -> logger);
455
456							} # End of log.
457
458							# --------------------------------------------------
459
460							sub push_item
461							{
462	4001			4001	1	31598	my($self, $line, $type) = @_;
463
464	4001					82816	$self -> items -> push
465							(
466							{
467							count => $self -> counter($self -> counter + 1),
468							data => $$line[4],
469							level => $$line[1],
470							line_count => $$line[0],
471							tag => $$line[3],
472							type => $type,
473							xref => $$line[2],
474							}
475							);
476
477							} # End of push_item.
478
479							# -----------------------------------------------
480
481							sub renumber_items
482							{
483	0			0	1	0	my($self) = @_;
484	0					0	my(@item) = @{$self -> items};
	0					0
485
486	0					0	my(@new);
487
488	0					0	for my $i (0 .. $#item)
489							{
490	0					0	$item[$i]{count} = $i + 1;
491
492	0					0	push @new, $item[$i];
493							}
494
495	0					0	$self -> items(Set::Array -> new(@new) );
496
497							} # End of renumber_items.
498
499							# -----------------------------------------------
500
501							sub report
502							{
503	0			0	1	0	my($self) = @_;
504	0					0	my($format) = '%6s %6s %6s %-6s %-6s %-12s %-s';
505
506	0					0	$self -> log(info => sprintf($format, 'Count', 'Line', 'Level', 'Tag', 'Xref', 'Type', 'Data') );
507
508	0					0	my(%type);
509
510	0					0	for my $item ($self -> items -> print)
511							{
512	0					0	$type{$$item{type} } = 1;
513
514	0					0	$self -> log(info => sprintf($format, $$item{count}, $$item{line_count}, $$item{level}, $$item{tag}, $$item{xref}, $$item{type}, $$item{data}) );
515							}
516
517							} # End of report.
518
519							# --------------------------------------------------
520
521							sub run
522							{
523	8			8	1	978	my($self) = @_;
524
525	8	50				166	if ($self -> input_file)
526							{
527	8					782	$self -> get_gedcom_data_from_file;
528							}
529							else
530							{
531	0					0	my($lines) = $self -> gedcom_data;
532
533	0	0				0	die 'Error: You must provide a GEDCOM file with -input_file, or data with gedcom_data([...])' if ($#$lines < 0);
534							}
535
536	8					1503	my($line) = [];
537	8					31	my($line_count) = 0;
538	8					30	my($result) = 0; # Default to success.
539
540	8					20	for my $record (@{$self -> gedcom_data})
	8					266
541							{
542	4059					5231	$line_count++;
543
544	4059	100				10409	next if ($record =~ /^$/);
545
546							# Arrayref elements:
547							# 0: Input file line count.
548							# 1: Level.
549							# 2: Record id to be used as the target of a xref.
550							# 3: Tag.
551							# 4: Data belonging to tag.
552							# 5: Type (Item/Child of item) of record.
553							# 6: Input record.
554
555	4001	100				24922	if ($record =~ /^(0)\s+\@(.+?)\@\s+(_?(?:[A-Z]{3,4}))\s(.)$/)
		100
		50
556							{
557	571	50				3612	push @$line, [$line_count, $1, defined($2) ? $2 : '', $3, defined($4) ? $4 : '', $record];
		50
558							}
559							elsif ($record =~ /^(0)\s+(HEAD\|TRLR)$/)
560							{
561	16					128	push @$line, [$line_count, $1, '', $2, '', $record];
562							}
563							elsif ($record =~ /^(\d+)\s+(_?(?:ADR[123]\|[A-Z]{3,5}))\s\@?(.?)\@?$/)
564							{
565	3414	50				17821	push @$line, [$line_count, $1, '', $2, defined($3) ? $3 : '', $record];
566							}
567							else
568							{
569	0					0	die "Error: Line: $line_count. Invalid GEDCOM syntax in '$record'";
570							}
571							}
572
573	8					59	$self -> tag_lineage(0, $line);
574	8	50				176	$self -> report if ($self -> report_items);
575	8					946	$self -> cross_check_xrefs;
576
577							# Return 0 for success and 1 for failure.
578
579	8					3466	return $result;
580
581							} # End of run.
582
583							# --------------------------------------------------
584
585							sub tag_address_city
586							{
587	2			2	0	5	my($self, $index, $line) = @_;
588	2					21	my($id) = $self -> get_sub_name(caller 0);
589
590	2					16	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
591	2					20	$self -> check_length($id, $$line[$index]);
592	2					7	$self -> push_item($$line[$index], 'Address');
593
594	2					261	return ++$index;
595
596							} # End of tag_address_city.
597
598							# --------------------------------------------------
599
600							sub tag_address_country
601							{
602	7			7	0	17	my($self, $index, $line) = @_;
603	7					66	my($id) = $self -> get_sub_name(caller 0);
604
605	7					55	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
606	7					71	$self -> check_length($id, $$line[$index]);
607	7					27	$self -> push_item($$line[$index], 'Address');
608
609	7					957	return ++$index;
610
611							} # End of tag_address_country.
612
613							# --------------------------------------------------
614
615							sub tag_address_email
616							{
617	7			7	0	17	my($self, $index, $line) = @_;
618	7					57	my($id) = $self -> get_sub_name(caller 0);
619
620	7					51	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
621	7					65	$self -> check_length($id, $$line[$index]);
622	7					28	$self -> push_item($$line[$index], 'Address');
623
624	7					845	return ++$index;
625
626							} # End of tag_address_email.
627
628							# --------------------------------------------------
629
630							sub tag_address_fax
631							{
632	2			2	0	6	my($self, $index, $line) = @_;
633	2					16	my($id) = $self -> get_sub_name(caller 0);
634
635	2					14	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
636	2					19	$self -> check_length($id, $$line[$index]);
637	2					7	$self -> push_item($$line[$index], 'Address');
638
639	2					244	return ++$index;
640
641							} # End of tag_address_fax.
642
643							# --------------------------------------------------
644
645							sub tag_address_line
646							{
647	7			7	0	19	my($self, $index, $line) = @_;
648	7					68	my($id) = $self -> get_sub_name(caller 0);
649
650	7					55	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
651	7					73	$self -> check_length($id, $$line[$index]);
652	7					27	$self -> push_item($$line[$index], 'Address');
653
654							return $self -> tag_advance
655							(
656							$id,
657							++$index,
658							$line,
659							{
660	2			2		11	ADR1 => sub{return $self -> tag_address_line1(shift, shift)},
661	2			2		9	ADR2 => sub{return $self -> tag_address_line2(shift, shift)},
662	2			2		9	ADR3 => sub{return $self -> tag_address_line3(shift, shift)},
663	2			2		11	CITY => sub{return $self -> tag_address_city(shift, shift)},
664	2			2		12	CONT => sub{return $self -> tag_continue(shift, shift)},
665	7			7		42	CTRY => sub{return $self -> tag_address_country(shift, shift)},
666	7			7		36	POST => sub{return $self -> tag_address_postal_code(shift, shift)},
667	7			7		39	STAE => sub{return $self -> tag_address_state(shift, shift)},
668							}
669	7					1221	);
670
671							} # End of tag_address_line.
672
673							# --------------------------------------------------
674
675							sub tag_address_line1
676							{
677	2			2	0	5	my($self, $index, $line) = @_;
678	2					17	my($id) = $self -> get_sub_name(caller 0);
679
680	2					17	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
681	2					20	$self -> check_length($id, $$line[$index]);
682	2					8	$self -> push_item($$line[$index], 'Address');
683
684	2					267	return ++$index;
685
686							} # End of tag_address_line1.
687
688							# --------------------------------------------------
689
690							sub tag_address_line2
691							{
692	2			2	0	6	my($self, $index, $line) = @_;
693	2					16	my($id) = $self -> get_sub_name(caller 0);
694
695	2					16	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
696	2					20	$self -> check_length($id, $$line[$index]);
697	2					7	$self -> push_item($$line[$index], 'Address');
698
699	2					245	return ++$index;
700
701							} # End of tag_address_line2.
702
703							# --------------------------------------------------
704
705							sub tag_address_line3
706							{
707	2			2	0	6	my($self, $index, $line) = @_;
708	2					17	my($id) = $self -> get_sub_name(caller 0);
709
710	2					18	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
711	2					19	$self -> check_length($id, $$line[$index]);
712	2					8	$self -> push_item($$line[$index], 'Address');
713
714	2					242	return ++$index;
715
716							} # End of tag_address_line3.
717
718							# --------------------------------------------------
719
720							sub tag_address_postal_code
721							{
722	7			7	0	21	my($self, $index, $line) = @_;
723	7					66	my($id) = $self -> get_sub_name(caller 0);
724
725	7					55	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
726	7					72	$self -> check_length($id, $$line[$index]);
727	7					26	$self -> push_item($$line[$index], 'Address');
728
729	7					970	return ++$index;
730
731							} # End of tag_address_postal_code.
732
733							# --------------------------------------------------
734
735							sub tag_address_state
736							{
737	7			7	0	17	my($self, $index, $line) = @_;
738	7					64	my($id) = $self -> get_sub_name(caller 0);
739
740	7					52	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
741	7					69	$self -> check_length($id, $$line[$index]);
742	7					27	$self -> push_item($$line[$index], 'Address');
743
744	7					949	return ++$index;
745
746							} # End of tag_address_state.
747
748							# --------------------------------------------------
749
750							sub tag_address_structure
751							{
752	0			0	0	0	my($self, $index, $line) = @_;
753	0					0	my($id) = $self -> get_sub_name(caller 0);
754
755	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
756	0					0	$self -> check_length($index, 'address_line', $$line[$index][4]);
757	0					0	$self -> push_item($$line[$index], 'Address structure');
758
759							# Special case: $index, not ++$index. We're assumed to be already printing at the tag ADDR.
760
761	0					0	return $self -> tag_advance
762							(
763							$id,
764							++$index,
765							$line,
766							{
767							$self -> tag_address_structure_tags(),
768							}
769							);
770
771							} # End of tag_address_structure.
772
773							# --------------------------------------------------
774
775							sub tag_address_structure_tags
776							{
777	510			510	0	1044	my($self) = @_;
778
779							return
780							(
781	7			7		47	ADDR => sub{return $self -> tag_address_line(shift, shift)},
782	7			7		36	EMAIL => sub{return $self -> tag_address_email(shift, shift)},
783	2			2		11	FAX => sub{return $self -> tag_address_fax(shift, shift)},
784	2			2		12	PHON => sub{return $self -> tag_phone_number(shift, shift)},
785	9			9		50	WWW => sub{return $self -> tag_address_web_page(shift, shift)},
786	510					11399	);
787
788							} # End of tag_address_structure_tags.
789
790							# --------------------------------------------------
791
792							sub tag_address_web_page
793							{
794	9			9	0	21	my($self, $index, $line) = @_;
795	9					82	my($id) = $self -> get_sub_name(caller 0);
796
797	9					70	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
798	9					89	$self -> check_length($id, $$line[$index]);
799	9					32	$self -> push_item($$line[$index], 'Address');
800
801	9					1203	return ++$index;
802
803							} # End of tag_address_web_page.
804
805							# --------------------------------------------------
806
807							sub tag_advance
808							{
809	2499			2499	0	5362	my($self, $id, $index, $line, $jump) = @_;
810	2499					5917	my($level) = $$line[$index][1];
811	2499					4760	my($tag) = $$line[$index][3];
812
813	2499		66			25366	while ( ($index <= $#$line) && ($$line[$index][1] >= $level) && ($$jump{$$line[$index][3]} \|\| ($$line[$index][3] =~ /^_/) ) )
			100
			66
814							{
815	3985	100				12672	if ($$jump{$$line[$index][3]})
816							{
817	3978					12655	$index = $$jump{$$line[$index][3]} -> ($index, $line);
818							}
819							else
820							{
821	7					18	$self -> push_item($$line[$index], 'User');
822
823	7					921	$index++;
824							}
825							}
826
827	2499					83569	return $index;
828
829							} # End of tag_advance.
830
831							# --------------------------------------------------
832
833							sub tag_age_at_event
834							{
835	1			1	0	3	my($self, $index, $line) = @_;
836	1					17	my($id) = $self -> get_sub_name(caller 0);
837
838	1					9	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
839	1					15	$self -> check_length($id, $$line[$index]);
840	1					5	$self -> push_item($$line[$index], 'Individual');
841
842	1					125	return ++$index;
843
844							} # End of tag_age_at_event.
845
846							# --------------------------------------------------
847
848							sub tag_alias_xref
849							{
850	0			0	0	0	my($self, $index, $line) = @_;
851	0					0	my($id) = $self -> get_sub_name(caller 0);
852
853	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
854	0					0	$self -> push_item($$line[$index], 'Link to INDI');
855
856	0					0	return ++$index;
857
858							} # End of tag_alias_xref.
859
860							# --------------------------------------------------
861
862							sub tag_ancestral_file_number
863							{
864	0			0	0	0	my($self, $index, $line) = @_;
865	0					0	my($id) = $self -> get_sub_name(caller 0);
866
867	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
868	0					0	$self -> check_length($id, $$line[$index]);
869	0					0	$self -> push_item($$line[$index], '');
870
871	0					0	return ++$index;
872
873							} # End of tag_ancestral_file_number.
874
875							# --------------------------------------------------
876
877							sub tag_approved_system_id
878							{
879	8			8	0	24	my($self, $index, $line) = @_;
880	8					96	my($id) = $self -> get_sub_name(caller 0);
881
882	8					68	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
883	8					178	$self -> check_length($id, $$line[$index]);
884	8					37	$self -> push_item($$line[$index], '');
885
886							return $self -> tag_advance
887							(
888							$id,
889							++$index,
890							$line,
891							{
892	7			7		46	CORP => sub{return $self -> tag_name_of_business(shift, shift)},
893	6			6		32	DATA => sub{return $self -> tag_name_of_source_data(shift, shift)},
894	8			8		49	NAME => sub{return $self -> tag_name_of_product(shift, shift)},
895	8			8		51	VERS => sub{return $self -> tag_version_number(shift, shift)},
896							}
897	8					1457	);
898
899							} # End of tag_approved_system_id.
900
901							# --------------------------------------------------
902
903							sub tag_association_structure
904							{
905	0			0	0	0	my($self, $index, $line) = @_;
906	0					0	my($id) = $self -> get_sub_name(caller 0);
907
908	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
909	0					0	$self -> push_item($$line[$index], 'Individual');
910
911							return $self -> tag_advance
912							(
913							$id,
914							++$index,
915							$line,
916							{
917	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
918	0			0		0	RELA => sub{return $self -> tag_relation_is_descriptor(shift, shift)},
919	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
920							}
921	0					0	);
922
923							} # End of tag_association_structure.
924
925							# --------------------------------------------------
926
927							sub tag_automated_record_id
928							{
929	1			1	0	3	my($self, $index, $line) = @_;
930	1					14	my($id) = $self -> get_sub_name(caller 0);
931
932	1					9	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
933	1					12	$self -> check_length($id, $$line[$index]);
934	1					4	$self -> push_item($$line[$index], '');
935
936	1					129	return ++$index;
937
938							} # End of tag_automated_record_id.
939
940							# --------------------------------------------------
941
942							sub tag_bapl_conl
943							{
944	0			0	0	0	my($self, $index, $line) = @_;
945	0					0	my($id) = $self -> get_sub_name(caller 0);
946
947	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
948	0					0	$self -> push_item($$line[$index], 'Individual');
949
950							return $self -> tag_advance
951							(
952							$id,
953							++$index,
954							$line,
955							{
956	0			0		0	DATE => sub{return $self -> tag_date_lds_ord(shift, shift)},
957	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
958	0			0		0	PLAC => sub{return $self -> tag_place_living_ordinance(shift, shift)},
959	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
960	0			0		0	STAT => sub{return $self -> tag_lds_baptism_date_status(shift, shift)},
961	0			0		0	TEMP => sub{return $self -> tag_temple_code(shift, shift)},
962							}
963	0					0	);
964
965							} # End of tag_bapl_conl.
966
967							# --------------------------------------------------
968
969							sub tag_caste_name
970							{
971	0			0	0	0	my($self, $index, $line) = @_;
972	0					0	my($id) = $self -> get_sub_name(caller 0);
973
974	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
975	0					0	$self -> check_length($id, $$line[$index]);
976	0					0	$self -> push_item($$line[$index], 'Individual');
977
978							return $self -> tag_advance
979							(
980							$id,
981							+$index,
982							$line,
983							{
984	0			0		0	DATE => sub{return $self -> tag_change_date1(shift, shift)},
985	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
986							}
987	0					0	);
988
989							} # End of tag_caste_name.
990
991							# --------------------------------------------------
992
993							sub tag_cause_of_event
994							{
995	0			0	0	0	my($self, $index, $line) = @_;
996	0					0	my($id) = $self -> get_sub_name(caller 0);
997
998	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
999	0					0	$self -> check_length($id, $$line[$index]);
1000	0					0	$self -> push_item($$line[$index], 'Event');
1001
1002	0					0	return ++$index;
1003
1004							} # End of tag_cause_of_event.
1005
1006							# --------------------------------------------------
1007
1008							sub tag_certainty_assessment
1009							{
1010	0			0	0	0	my($self, $index, $line) = @_;
1011	0					0	my($id) = $self -> get_sub_name(caller 0);
1012
1013	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1014	0					0	$self -> check_length($id, $$line[$index]);
1015	0					0	$self -> push_item($$line[$index], 'Source');
1016
1017	0					0	return ++$index;
1018
1019							} # End of tag_certainty_assessment.
1020
1021							# --------------------------------------------------
1022
1023							sub tag_change_date
1024							{
1025	247			247	0	600	my($self, $index, $line) = @_;
1026	247					1887	my($id) = $self -> get_sub_name(caller 0);
1027
1028	247					1653	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1029	247					2437	$self -> check_exact_date($id, $$line[$index]);
1030
1031							return $self -> tag_advance
1032							(
1033							$id,
1034							++$index,
1035							$line,
1036							{
1037	0			0		0	TIME => sub{return $self -> tag_time_value(shift, shift)},
1038							}
1039	247					37572	);
1040
1041							} # End of tag_change_date.
1042
1043							# --------------------------------------------------
1044
1045							sub tag_change_date1
1046							{
1047	247			247	0	687	my($self, $index, $line) = @_;
1048	247					2065	my($id) = $self -> get_sub_name(caller 0);
1049
1050	247					1670	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1051	247					2154	$self -> push_item($$line[$index], '');
1052
1053							return $self -> tag_advance
1054							(
1055							$id,
1056							++$index,
1057							$line,
1058							{
1059	247			247		1228	DATE => sub{return $self -> tag_change_date(shift, shift)},
1060	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
1061							}
1062	247					28860	);
1063
1064							} # End of tag_change_date1.
1065
1066							# --------------------------------------------------
1067
1068							sub tag_character_set
1069							{
1070	6			6	0	15	my($self, $index, $line) = @_;
1071	6					77	my($id) = $self -> get_sub_name(caller 0);
1072
1073	6					46	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1074	6					68	$self -> check_length($id, $$line[$index]);
1075	6					23	$self -> push_item($$line[$index], 'Header');
1076
1077							return $self -> tag_advance
1078							(
1079							$id,
1080							++$index,
1081							$line,
1082							{
1083	0			0		0	VERS => sub{return $self -> tag_version_number(shift, shift)},
1084							}
1085	6					731	);
1086
1087							} # End of tag_character_set.
1088
1089							# --------------------------------------------------
1090
1091							sub tag_child_xref
1092							{
1093	153			153	0	305	my($self, $index, $line) = @_;
1094	153					1273	my($id) = $self -> get_sub_name(caller 0);
1095
1096	153					947	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1097	153					1324	$self -> push_item($$line[$index], 'Link to INDI');
1098
1099	153					18135	return ++$index;
1100
1101							} # End of tag_child_xref.
1102
1103							# --------------------------------------------------
1104
1105							sub tag_child_linkage_status
1106							{
1107	0			0	0	0	my($self, $index, $line) = @_;
1108	0					0	my($id) = $self -> get_sub_name(caller 0);
1109
1110	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1111	0					0	$self -> check_length($id, $$line[$index]);
1112	0					0	$self -> push_item($$line[$index], 'Individual');
1113
1114	0					0	return ++$index;
1115
1116							} # End of tag_child_linkage_status.
1117
1118							# --------------------------------------------------
1119
1120							sub tag_child_to_family_link
1121							{
1122	155			155	0	418	my($self, $index, $line) = @_;
1123	155					1675	my($id) = $self -> get_sub_name(caller 0);
1124
1125	155					1048	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1126	155					1428	$self -> push_item($$line[$index], 'Link to FAM');
1127
1128							return $self -> tag_advance
1129							(
1130							$id,
1131							++$index,
1132							$line,
1133							{
1134	7			7		43	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
1135	0			0		0	PEDI => sub{return $self -> tag_pedigree_linkage_type(shift, shift)},
1136	0			0		0	STAT => sub{return $self -> tag_child_linkage_status(shift, shift)},
1137							}
1138	155					19115	);
1139
1140							} # End of tag_child_to_family_link.
1141
1142							# --------------------------------------------------
1143
1144							sub tag_child_to_family_xref
1145							{
1146	0			0	0	0	my($self, $index, $line) = @_;
1147	0					0	my($id) = $self -> get_sub_name(caller 0);
1148
1149	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1150	0					0	$self -> push_item($$line[$index], 'Link to FAM');
1151
1152	0					0	return ++$index;
1153
1154							} # End of tag_child_to_family_xref.
1155
1156							# --------------------------------------------------
1157
1158							sub tag_concat
1159							{
1160	137			137	0	222	my($self, $index, $line) = @_;
1161	137					894	my($id) = $self -> get_sub_name(caller 0);
1162
1163	137					698	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1164	137					1146	$self -> push_item($$line[$index], 'Concat');
1165
1166	137					15802	return ++$index;
1167
1168							} # End of tag_concat.
1169
1170							# --------------------------------------------------
1171
1172							sub tag_continue
1173							{
1174	99			99	0	175	my($self, $index, $line) = @_;
1175	99					740	my($id) = $self -> get_sub_name(caller 0);
1176
1177	99					565	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1178	99					850	$self -> push_item($$line[$index], 'Continue');
1179
1180	99					12645	return ++$index;
1181
1182							} # End of tag_continue.
1183
1184							# --------------------------------------------------
1185
1186							sub tag_copyright_gedcom_file
1187							{
1188	0			0	0	0	my($self, $index, $line) = @_;
1189	0					0	my($id) = $self -> get_sub_name(caller 0);
1190
1191	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1192	0					0	$self -> check_length($id, $$line[$index]);
1193	0					0	$self -> push_item($$line[$index], 'Header');
1194
1195	0					0	return ++$index;
1196
1197							} # End of tag_copyright_gedcom_file.
1198
1199							# --------------------------------------------------
1200
1201							sub tag_copyright_source_data
1202							{
1203	4			4	0	10	my($self, $index, $line) = @_;
1204	4					35	my($id) = $self -> get_sub_name(caller 0);
1205
1206	4					29	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1207	4					38	$self -> check_length($id, $$line[$index]);
1208	4					16	$self -> push_item($$line[$index], 'Copyright');
1209
1210							return $self -> tag_advance
1211							(
1212							$id,
1213							++$index,
1214							$line,
1215							{
1216	0			0		0	CONC => sub{return $self -> tag_concat(shift, shift)},
1217	0			0		0	CONT => sub{return $self -> tag_continue(shift, shift)},
1218							}
1219	4					562	);
1220
1221							} # End of tag_copyright_source_data.
1222
1223							# --------------------------------------------------
1224
1225							sub tag_count_of_children
1226							{
1227	0			0	0	0	my($self, $index, $line) = @_;
1228	0					0	my($id) = $self -> get_sub_name(caller 0);
1229
1230	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1231	0					0	$self -> check_length($id, $$line[$index]);
1232	0					0	$self -> push_item($$line[$index], 'Family');
1233
1234	0					0	return ++$index;
1235
1236							} # End of tag_child_count.
1237
1238							# --------------------------------------------------
1239
1240							sub tag_count_of_marriages
1241							{
1242	0			0	0	0	my($self, $index, $line) = @_;
1243	0					0	my($id) = $self -> get_sub_name(caller 0);
1244
1245	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1246	0					0	$self -> check_length($id, $$line[$index]);
1247	0					0	$self -> push_item($$line[$index], 'Family');
1248
1249	0					0	return ++$index;
1250
1251							} # End of tag_count_of_marriages.
1252
1253							# --------------------------------------------------
1254
1255							sub tag_date_lds_ord
1256							{
1257	0			0	0	0	my($self, $index, $line) = @_;
1258	0					0	my($id) = $self -> get_sub_name(caller 0);
1259
1260	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1261	0					0	$self -> check_date($id, $$line[$index]);
1262
1263	0					0	return ++$index;
1264
1265							} # End of tag_date_lds_ord.
1266
1267							# --------------------------------------------------
1268
1269							sub tag_date_period
1270							{
1271	1			1	0	2	my($self, $index, $line) = @_;
1272	1					10	my($id) = $self -> get_sub_name(caller 0);
1273
1274	1					18	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1275	1					11	$self -> check_date_period($id, $$line[$index]);
1276
1277	1					179	return ++$index;
1278
1279							} # End of tag_date_period.
1280
1281							# --------------------------------------------------
1282
1283							sub tag_date_value
1284							{
1285	498			498	0	973	my($self, $index, $line) = @_;
1286	498					3754	my($id) = $self -> get_sub_name(caller 0);
1287
1288	498					3324	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1289	498					4901	$self -> check_date($id, $$line[$index]);
1290
1291	498					77668	return ++$index;
1292
1293							} # End of tag_date_value.
1294
1295							# --------------------------------------------------
1296
1297							sub tag_descriptive_title
1298							{
1299	0			0	0	0	my($self, $index, $line) = @_;
1300	0					0	my($id) = $self -> get_sub_name(caller 0);
1301
1302	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1303	0					0	$self -> check_length($id, $$line[$index]);
1304	0					0	$self -> push_item($$line[$index], '');
1305
1306	0					0	return ++$index;
1307
1308							} # End of tag_descriptive_title.
1309
1310							# --------------------------------------------------
1311
1312							sub tag_endl
1313							{
1314	0			0	0	0	my($self, $index, $line) = @_;
1315	0					0	my($id) = $self -> get_sub_name(caller 0);
1316
1317	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1318	0					0	$self -> push_item($$line[$index], 'Individual');
1319
1320							return $self -> tag_advance
1321							(
1322							$id,
1323							++$index,
1324							$line,
1325							{
1326	0			0		0	DATE => sub{return $self -> tag_date_lds_ord(shift, shift)},
1327	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
1328	0			0		0	PLAC => sub{return $self -> tag_place_living_ordinance(shift, shift)},
1329	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
1330	0			0		0	STAT => sub{return $self -> tag_lds_endowment_date_status(shift, shift)},
1331	0			0		0	TEMP => sub{return $self -> tag_temple_code(shift, shift)},
1332							}
1333	0					0	);
1334
1335							} # End of tag_endl.
1336
1337							# --------------------------------------------------
1338
1339							sub tag_entry_recording_date
1340							{
1341	0			0	0	0	my($self, $index, $line) = @_;
1342	0					0	my($id) = $self -> get_sub_name(caller 0);
1343
1344	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1345	0					0	$self -> check_date($id, $$line[$index]);
1346
1347	0					0	return ++$index;
1348
1349							} # End of tag_entry_recording_date.
1350
1351							# --------------------------------------------------
1352
1353							sub tag_event_detail
1354							{
1355	0			0	0	0	my($self, $index, $line) = @_;
1356	0					0	my($id) = $self -> get_sub_name(caller 0);
1357
1358	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1359	0					0	$self -> push_item($$line[$index], 'Event');
1360
1361	0					0	return $self -> tag_advance
1362							(
1363							$id,
1364							++$index,
1365							$line,
1366							{
1367							$self -> tag_event_detail_tags,
1368							}
1369							);
1370
1371							} # End of tag_event_detail.
1372
1373							# --------------------------------------------------
1374
1375							sub tag_event_detail_tags
1376							{
1377	501			501	0	995	my($self) = @_;
1378
1379							return
1380							(
1381	0			0		0	AGNC => sub{return $self -> tag_responsible_agency(shift, shift)},
1382	0			0		0	CAUS => sub{return $self -> tag_cause_of_event(shift, shift)},
1383	498			498		2105	DATE => sub{return $self -> tag_date_value(shift, shift)},
1384	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
1385	0			0		0	OBJE => sub{return $self -> tag_multimedia_link(shift, shift)},
1386	8			8		41	PLAC => sub{return $self -> tag_place_name(shift, shift)},
1387	0			0		0	RELI => sub{return $self -> tag_religious_affiliation(shift, shift)},
1388	0			0		0	RESN => sub{return $self -> tag_restriction_notice(shift, shift)},
1389	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
1390	0			0		0	TYPE => sub{return $self -> tag_event_or_fact_classification(shift, shift)},
1391	501					7141	$self -> tag_address_structure_tags,
1392							);
1393
1394							} # End of tag_event_detail_tags.
1395
1396							# --------------------------------------------------
1397
1398							sub tag_event_or_fact_classification
1399							{
1400	0			0	0	0	my($self, $index, $line) = @_;
1401	0					0	my($id) = $self -> get_sub_name(caller 0);
1402
1403	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1404	0					0	$self -> check_length($id, $$line[$index]);
1405	0					0	$self -> push_item($$line[$index], '');
1406
1407	0					0	return ++$index;
1408
1409							} # End of tag_event_or_fact_classification.
1410
1411							# --------------------------------------------------
1412
1413							sub tag_event_type_cited_from
1414							{
1415	0			0	0	0	my($self, $index, $line) = @_;
1416	0					0	my($id) = $self -> get_sub_name(caller 0);
1417
1418	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1419	0					0	$self -> push_item($$line[$index], 'Event');
1420
1421							return $self -> tag_advance
1422							(
1423							$id,
1424							++$index,
1425							$line,
1426							{
1427	0			0		0	ROLE => sub{return $self -> tag_role_in_event(shift, shift)},
1428							}
1429	0					0	);
1430
1431							} # End of tag_event_type_cited_from.
1432
1433							# --------------------------------------------------
1434
1435							sub tag_events_recorded
1436							{
1437	1			1	0	3	my($self, $index, $line) = @_;
1438	1					9	my($id) = $self -> get_sub_name(caller 0);
1439
1440	1					9	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1441	1					11	$self -> check_length($id, $$line[$index]);
1442	1					4	$self -> push_item($$line[$index], 'Event');
1443
1444							return $self -> tag_advance
1445							(
1446							$id,
1447							++$index,
1448							$line,
1449							{
1450	1			1		7	DATE => sub{return $self -> tag_date_period(shift, shift)},
1451	0			0		0	PLAC => sub{return $self -> tag_source_jurisdiction_place(shift, shift)},
1452							}
1453	1					121	);
1454
1455							} # End of tag_events_recorded.
1456
1457							# --------------------------------------------------
1458
1459							sub tag_family_event_detail
1460							{
1461	120			120	0	236	my($self, $index, $line) = @_;
1462	120					905	my($id) = $self -> get_sub_name(caller 0);
1463
1464	120					737	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1465	120					1052	$self -> push_item($$line[$index], 'Event');
1466
1467							return $self -> tag_advance
1468							(
1469							$id,
1470							++$index,
1471							$line,
1472							{
1473	0			0		0	HUSB => sub{return $self -> tag_age_at_event(shift, shift)},
1474	0			0		0	WIFE => sub{return $self -> tag_age_at_event(shift, shift)},
1475	120					13931	$self -> tag_event_detail_tags,
1476							}
1477							);
1478
1479							} # End of tag_family_event_detail.
1480
1481							# --------------------------------------------------
1482
1483							sub tag_file_name
1484							{
1485	1			1	0	3	my($self, $index, $line) = @_;
1486	1					9	my($id) = $self -> get_sub_name(caller 0);
1487
1488	1					8	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1489	1					9	$self -> check_length($id, $$line[$index]);
1490	1					4	$self -> push_item($$line[$index], 'File name');
1491
1492	1					121	return ++$index;
1493
1494							} # End of tag_file_name.
1495
1496							# --------------------------------------------------
1497
1498							sub tag_family_record
1499							{
1500	123			123	0	253	my($self, $index, $line) = @_;
1501	123					1086	my($id) = $self -> get_sub_name(caller 0);
1502
1503	123					809	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1504	123					1127	$self -> push_item($$line[$index], 'Family');
1505
1506							return $self -> tag_advance
1507							(
1508							$id,
1509							++$index,
1510							$line,
1511							{
1512	0			0		0	ANUL => sub{return $self -> tag_family_event_detail(shift, shift)},
1513	0			0		0	CENS => sub{return $self -> tag_family_event_detail(shift, shift)},
1514	0			0		0	CHAN => sub{return $self -> tag_change_date1(shift, shift)},
1515	153			153		517	CHIL => sub{return $self -> tag_child_xref(shift, shift)},
1516	6			6		25	DIV => sub{return $self -> tag_family_event_detail(shift, shift)},
1517	0			0		0	DIVF => sub{return $self -> tag_family_event_detail(shift, shift)},
1518	0			0		0	ENGA => sub{return $self -> tag_family_event_detail(shift, shift)},
1519	0			0		0	EVEN => sub{return $self -> tag_family_event_detail(shift, shift)},
1520	123			123		518	HUSB => sub{return $self -> tag_husband_xref(shift, shift)},
1521	0			0		0	MARB => sub{return $self -> tag_family_event_detail(shift, shift)},
1522	0			0		0	MARC => sub{return $self -> tag_family_event_detail(shift, shift)},
1523	0			0		0	MARL => sub{return $self -> tag_family_event_detail(shift, shift)},
1524	114			114		401	MARR => sub{return $self -> tag_family_event_detail(shift, shift)},
1525	0			0		0	MARS => sub{return $self -> tag_family_event_detail(shift, shift)},
1526	0			0		0	NCHIL => sub{return $self -> tag_count_of_children(shift, shift)},
1527	3			3		17	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
1528	0			0		0	OBJE => sub{return $self -> tag_multimedia_link(shift, shift)},
1529	0			0		0	REFN => sub{return $self -> tag_user_reference_number(shift, shift)},
1530	0			0		0	RESI => sub{return $self -> tag_family_event_detail(shift, shift)},
1531	0			0		0	RESN => sub{return $self -> tag_restriction_notice(shift, shift)},
1532	0			0		0	RIN => sub{return $self -> tag_rin(shift, shift)},
1533	0			0		0	SLGS => sub{return $self -> tag_lds_spouse_sealing(shift, shift)},
1534	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
1535	0			0		0	SUBM => sub{return $self -> tag_submitter_xref(shift, shift)},
1536	117			117		414	WIFE => sub{return $self -> tag_wife_xref(shift, shift)},
1537							}
1538	123					18666	);
1539
1540							} # End of tag_family_record.
1541
1542							# --------------------------------------------------
1543
1544							sub tag_gedcom
1545							{
1546	6			6	0	15	my($self, $index, $line) = @_;
1547	6					50	my($id) = $self -> get_sub_name(caller 0);
1548
1549	6					44	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1550	6					74	$self -> push_item($$line[$index], 'Header');
1551
1552							return $self -> tag_advance
1553							(
1554							$id,
1555							++$index,
1556							$line,
1557							{
1558	5			5		27	FORM => sub{return $self -> tag_gedcom_form(shift, shift)},
1559	6			6		26	VERS => sub{return $self -> tag_version_number(shift, shift)},
1560							}
1561	6					840	);
1562
1563							} # End of tag_gedcom.
1564
1565							# --------------------------------------------------
1566
1567							sub tag_gedcom_form
1568							{
1569	5			5	0	13	my($self, $index, $line) = @_;
1570	5					43	my($id) = $self -> get_sub_name(caller 0);
1571
1572	5					41	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1573	5					50	$self -> check_length($id, $$line[$index]);
1574	5					19	$self -> push_item($$line[$index], '');
1575
1576	5					685	return ++$index;
1577
1578							} # End of tag_gedcom_form.
1579
1580							# --------------------------------------------------
1581
1582							sub tag_generations_of_ancestors
1583							{
1584	0			0	0	0	my($self, $index, $line) = @_;
1585	0					0	my($id) = $self -> get_sub_name(caller 0);
1586
1587	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1588	0					0	$self -> check_length($id, $$line[$index]);
1589	0					0	$self -> push_item($$line[$index], 'Submission');
1590
1591	0					0	return ++$index;
1592
1593							} # End of tag_generations_of_ancestors.
1594
1595							# --------------------------------------------------
1596
1597							sub tag_generations_of_descendants
1598							{
1599	0			0	0	0	my($self, $index, $line) = @_;
1600	0					0	my($id) = $self -> get_sub_name(caller 0);
1601
1602	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1603	0					0	$self -> check_length($id, $$line[$index]);
1604	0					0	$self -> push_item($$line[$index], 'Submission');
1605
1606	0					0	return ++$index;
1607
1608							} # End of tag_generations_of_descendants.
1609
1610							# --------------------------------------------------
1611
1612							sub tag_header
1613							{
1614	8			8	0	21	my($self, $index, $line) = @_;
1615	8					78	my($id) = $self -> get_sub_name(caller 0);
1616
1617	8					64	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1618	8					103	$self -> push_item($$line[$index], 'Header');
1619
1620							return $self -> tag_advance
1621							(
1622							$id,
1623							++$index,
1624							$line,
1625							{
1626	6			6		36	CHAR => sub{return $self -> tag_character_set(shift, shift)},
1627	0			0		0	COPR => sub{return $self -> tag_copyright_gedcom_file(shift, shift)},
1628	7			7		47	DATE => sub{return $self -> tag_transmission_date(shift, shift)},
1629	0			0		0	DEST => sub{return $self -> tag_receiving_system_name(shift, shift)},
1630	1			1		5	FILE => sub{return $self -> tag_file_name(shift, shift)},
1631	6			6		33	GEDC => sub{return $self -> tag_gedcom(shift, shift)},
1632	0			0		0	LANG => sub{return $self -> tag_language_of_text(shift, shift)},
1633	5			5		32	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
1634	0			0		0	PLAC => sub{return $self -> tag_place(shift, shift)},
1635	4			4		24	SUBM => sub{return $self -> tag_submitter_xref(shift, shift)},
1636	0			0		0	SUBN => sub{return $self -> tag_submission_xref(shift, shift)},
1637	8			8		49	SOUR => sub{return $self -> tag_approved_system_id(shift, shift)},
1638							}
1639	8					3494	);
1640
1641							} # End of tag_header.
1642
1643							# --------------------------------------------------
1644
1645							sub tag_husband_xref
1646							{
1647	123			123	0	266	my($self, $index, $line) = @_;
1648	123					957	my($id) = $self -> get_sub_name(caller 0);
1649
1650	123					819	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1651	123					1072	$self -> push_item($$line[$index], 'Link to INDI');
1652
1653	123					14547	return ++$index;
1654
1655							} # End of tag_husband_xref.
1656
1657							# --------------------------------------------------
1658
1659							sub tag_individual_attribute_detail
1660							{
1661	0			0	0	0	my($self, $index, $line) = @_;
1662	0					0	my($id) = $self -> get_sub_name(caller 0);
1663
1664	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1665	0					0	$self -> push_item($$line[$index], 'Individual');
1666
1667	0					0	return ++$index;
1668
1669							} # End of tag_individual_attribute_detail.
1670
1671							# --------------------------------------------------
1672
1673							sub tag_individual_attribute_structure_tags
1674							{
1675	305			305	0	692	my($self) = @_;
1676
1677							return
1678							(
1679	0			0		0	CAST => sub{return $self -> tag_caste_name(shift, shift)},
1680	0			0		0	DSCR => sub{return $self -> tag_physical_description(shift, shift)},
1681	0			0		0	EDUC => sub{return $self -> tag_scholastic_achievement(shift, shift)},
1682	0			0		0	FACT => sub{return $self -> tag_individual_attribute_detail(shift, shift)},
1683	0			0		0	IDNO => sub{return $self -> tag_national_id_number(shift, shift)},
1684	0			0		0	NATI => sub{return $self -> tag_national_or_tribal_origin(shift, shift)},
1685	0			0		0	NCHI => sub{return $self -> tag_individual_attribute_detail(shift, shift)},
1686	0			0		0	NMR => sub{return $self -> tag_count_of_marriages(shift, shift)},
1687	1			1		5	OCCU => sub{return $self -> tag_occupation(shift, shift)},
1688	0			0		0	PROP => sub{return $self -> tag_possessions(shift, shift)},
1689	0			0		0	RELI => sub{return $self -> tag_individual_attribute_detail(shift, shift)},
1690	0			0		0	RESI => sub{return $self -> tag_individual_attribute_detail(shift, shift)},
1691	0			0		0	SSN => sub{return $self -> tag_social_security_number(shift, shift)},
1692	31			31		165	TITL => sub{return $self -> tag_nobility_type_title(shift, shift)},
1693	305					6024	);
1694
1695							} # End of tag_individual_attribute_structure_tags.
1696
1697							# --------------------------------------------------
1698
1699							sub tag_individual_event_detail
1700							{
1701	381			381	0	825	my($self, $index, $line) = @_;
1702	381					3687	my($id) = $self -> get_sub_name(caller 0);
1703
1704	381					2548	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1705	381					3658	$self -> push_item($$line[$index], 'Event');
1706
1707							return $self -> tag_advance
1708							(
1709							$id,
1710							++$index,
1711							$line,
1712							{
1713	1			1		8	AGE => sub{return $self -> tag_age_at_event(shift, shift)},
1714	381					45291	$self -> tag_event_detail_tags,
1715							}
1716							);
1717
1718							} # End of tag_individual_event_detail.
1719
1720							# --------------------------------------------------
1721
1722							sub tag_individual_event_structure_tags
1723							{
1724	305			305	0	585	my($self) = @_;
1725
1726							return
1727							(
1728	0			0		0	ADOP => sub{return $self -> tag_individual_event_detail(shift, shift)},
1729	0			0		0	BAPM => sub{return $self -> tag_individual_event_detail(shift, shift)},
1730	0			0		0	BARM => sub{return $self -> tag_individual_event_detail(shift, shift)},
1731	0			0		0	BASM => sub{return $self -> tag_individual_event_detail(shift, shift)},
1732	0			0		0	BLES => sub{return $self -> tag_individual_event_detail(shift, shift)},
1733	201			201		884	BIRT => sub{return $self -> tag_individual_event_detail(shift, shift)},
1734	0			0		0	BURI => sub{return $self -> tag_individual_event_detail(shift, shift)},
1735	0			0		0	CENS => sub{return $self -> tag_individual_event_detail(shift, shift)},
1736	247			247		1291	CHAN => sub{return $self -> tag_change_date1(shift, shift)},
1737	2			2		12	CHR => sub{return $self -> tag_individual_event_detail(shift, shift)},
1738	0			0		0	CHRA => sub{return $self -> tag_individual_event_detail(shift, shift)},
1739	0			0		0	CONF => sub{return $self -> tag_individual_event_detail(shift, shift)},
1740	0			0		0	CREM => sub{return $self -> tag_individual_event_detail(shift, shift)},
1741	178			178		749	DEAT => sub{return $self -> tag_individual_event_detail(shift, shift)},
1742	0			0		0	EMIG => sub{return $self -> tag_individual_event_detail(shift, shift)},
1743	0			0		0	EVEN => sub{return $self -> tag_individual_event_detail(shift, shift)},
1744	0			0		0	FCOM => sub{return $self -> tag_individual_event_detail(shift, shift)},
1745	0			0		0	GRAD => sub{return $self -> tag_individual_event_detail(shift, shift)},
1746	0			0		0	IMMI => sub{return $self -> tag_individual_event_detail(shift, shift)},
1747	0			0		0	NATU => sub{return $self -> tag_individual_event_detail(shift, shift)},
1748	0			0		0	ORDN => sub{return $self -> tag_individual_event_detail(shift, shift)},
1749	0			0		0	PROB => sub{return $self -> tag_individual_event_detail(shift, shift)},
1750	0			0		0	RETI => sub{return $self -> tag_individual_event_detail(shift, shift)},
1751	0			0		0	WILL => sub{return $self -> tag_individual_event_detail(shift, shift)},
1752	305					18449	);
1753
1754							} # End of tag_individual_event_structure_tags.
1755
1756							# --------------------------------------------------
1757
1758							sub tag_individual_record
1759							{
1760	305			305	0	703	my($self, $index, $line) = @_;
1761	305					3393	my($id) = $self -> get_sub_name(caller 0);
1762
1763	305					2136	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1764	305					3157	$self -> push_item($$line[$index], 'Individual');
1765
1766							return $self -> tag_advance
1767							(
1768							$id,
1769							++$index,
1770							$line,
1771							{
1772	0			0		0	AFN => sub{return $self -> tag_ancestral_file_number(shift, shift)},
1773	0			0		0	ALIA => sub{return $self -> tag_alias_xref(shift, shift)},
1774	0			0		0	ANCI => sub{return $self -> tag_submitter_xref(shift, shift)},
1775	0			0		0	ASSO => sub{return $self -> tag_association_structure(shift, shift)},
1776	0			0		0	BAPL => sub{return $self -> tag_bapl_conl(shift, shift)},
1777	0			0		0	CONL => sub{return $self -> tag_bapl_conl(shift, shift)},
1778	0			0		0	DESI => sub{return $self -> tag_submitter_xref(shift, shift)},
1779	0			0		0	ENDL => sub{return $self -> tag_endl(shift, shift)},
1780	155			155		812	FAMC => sub{return $self -> tag_child_to_family_link(shift, shift)},
1781	240			240		1398	FAMS => sub{return $self -> tag_spouse_to_family_link(shift, shift)},
1782	305			305		1308	NAME => sub{return $self -> tag_name_personal(shift, shift)},
1783	0			0		0	REFN => sub{return $self -> tag_user_reference_number(shift, shift)},
1784	0			0		0	RESN => sub{return $self -> tag_restriction_notice(shift, shift)},
1785	0			0		0	RFN => sub{return $self -> tag_permanent_record_file_number(shift, shift)},
1786	1			1		9	RIN => sub{return $self -> tag_automated_record_id(shift, shift)},
1787	254			254		1144	SEX => sub{return $self -> tag_sex_value(shift, shift)},
1788	0			0		0	SLGC => sub{return $self -> tag_slgc(shift, shift)},
1789	2			2		9	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
1790	0			0		0	SUBM => sub{return $self -> tag_submitter_xref(shift, shift)},
1791	305					41916	$self -> tag_individual_attribute_structure_tags,
1792							$self -> tag_individual_event_structure_tags,
1793							}
1794							);
1795
1796							} # End of tag_individual_record.
1797
1798							# --------------------------------------------------
1799
1800							sub tag_language_of_text
1801							{
1802	0			0	0	0	my($self, $index, $line) = @_;
1803	0					0	my($id) = $self -> get_sub_name(caller 0);
1804
1805	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1806	0					0	$self -> check_length($id, $$line[$index]);
1807	0					0	$self -> push_item($$line[$index], 'Header');
1808
1809	0					0	return ++$index;
1810
1811							} # End of tag_language_of_text.
1812
1813							# --------------------------------------------------
1814
1815							sub tag_language_preference
1816							{
1817	0			0	0	0	my($self, $index, $line) = @_;
1818	0					0	my($id) = $self -> get_sub_name(caller 0);
1819
1820	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1821	0					0	$self -> check_length($id, $$line[$index]);
1822	0					0	$self -> push_item($$line[$index], 'Submitter');
1823
1824	0					0	return ++$index;
1825
1826							} # End of tag_language_preference.
1827
1828							# --------------------------------------------------
1829
1830							sub tag_lds_baptism_date_status
1831							{
1832	0			0	0	0	my($self, $index, $line) = @_;
1833	0					0	my($id) = $self -> get_sub_name(caller 0);
1834
1835	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1836	0					0	$self -> check_length($id, $$line[$index]);
1837	0					0	$self -> push_item($$line[$index], 'Individual');
1838
1839							return $self -> tag_advance
1840							(
1841							$id,
1842							++$index,
1843							$line,
1844							{
1845	0			0		0	DATE => sub{return $self -> tag_change_date1(shift, shift)},
1846							}
1847	0					0	);
1848
1849							} # End of tag_lds_baptism_date_status.
1850
1851							# --------------------------------------------------
1852
1853							sub tag_lds_child_sealing_date_status
1854							{
1855	0			0	0	0	my($self, $index, $line) = @_;
1856	0					0	my($id) = $self -> get_sub_name(caller 0);
1857
1858	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1859	0					0	$self -> check_length($id, $$line[$index]);
1860	0					0	$self -> push_item($$line[$index], 'Individual');
1861
1862							return $self -> tag_advance
1863							(
1864							$id,
1865							++$index,
1866							$line,
1867							{
1868	0			0		0	DATE => sub{return $self -> tag_change_date1(shift, shift)},
1869							}
1870	0					0	);
1871
1872							} # End of tag_lds_child_sealing_date_status.
1873
1874							# --------------------------------------------------
1875
1876							sub tag_lds_endowment_date_status
1877							{
1878	0			0	0	0	my($self, $index, $line) = @_;
1879	0					0	my($id) = $self -> get_sub_name(caller 0);
1880
1881	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1882	0					0	$self -> check_length($id, $$line[$index]);
1883	0					0	$self -> push_item($$line[$index], 'Individual');
1884
1885							return $self -> tag_advance
1886							(
1887							$id,
1888							++$index,
1889							$line,
1890							{
1891	0			0		0	DATE => sub{return $self -> tag_change_date1(shift, shift)},
1892							}
1893	0					0	);
1894
1895							} # End of tag_lds_endowment_date_status.
1896
1897							# --------------------------------------------------
1898
1899							sub tag_lds_spouse_sealing
1900							{
1901	0			0	0	0	my($self, $index, $line) = @_;
1902	0					0	my($id) = $self -> get_sub_name(caller 0);
1903
1904	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1905	0					0	$self -> check_date($id, $$line[$index]);
1906
1907							return $self -> tag_advance
1908							(
1909							$id,
1910							++$index,
1911							$line,
1912							{
1913	0			0		0	DATE => sub{return $self -> tag_date_lds_ord(shift, shift)},
1914	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
1915	0			0		0	PLAC => sub{return $self -> tag_place_living_ordinance(shift, shift)},
1916	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
1917	0			0		0	STAT => sub{return $self -> tag_lds_spouse_sealing_date_status(shift, shift)},
1918	0			0		0	TEMP => sub{return $self -> tag_temple_code(shift, shift)},
1919							}
1920	0					0	);
1921
1922							} # End of tag_lds_spouse_sealing.
1923
1924							# --------------------------------------------------
1925
1926							sub tag_lds_spouse_sealing_date_status
1927							{
1928	0			0	0	0	my($self, $index, $line) = @_;
1929	0					0	my($id) = $self -> get_sub_name(caller 0);
1930
1931	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1932	0					0	$self -> check_length($id, $$line[$index]);
1933	0					0	$self -> push_item($$line[$index], 'Family');
1934
1935							return $self -> tag_advance
1936							(
1937							$id,
1938							++$index,
1939							$line,
1940							{
1941	0			0		0	DATE => sub{return $self -> tag_change_date1(shift, shift)},
1942							}
1943	0					0	);
1944
1945							} # End of tag_lds_spouse_sealing_date_status.
1946
1947							# --------------------------------------------------
1948
1949							sub tag_lineage
1950							{
1951	8			8	0	28	my($self, $index, $line) = @_;
1952	8					156	my($id) = $self -> get_sub_name(caller 0);
1953
1954	8					87	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1955
1956	8					143	$index = $self -> tag_header($index, $line);
1957							$index = $self -> tag_advance
1958							(
1959							$id,
1960							$index,
1961							$line,
1962							{
1963	0			0		0	SUBN => sub{return $self -> tag_submission_record(shift, shift)},
1964							}
1965	8					342	);
1966							$index = $self -> tag_advance
1967							(
1968							$id,
1969							$index,
1970							$line,
1971							{
1972	123			123		462	FAM => sub{return $self -> tag_family_record(shift, shift)},
1973	305			305		1168	INDI => sub{return $self -> tag_individual_record(shift, shift)},
1974	138			138		359	NOTE => sub{return $self -> tag_note_record(shift, shift)},
1975	0			0		0	OBJE => sub{return $self -> tag_multimedia_record(shift, shift)},
1976	0			0		0	REPO => sub{return $self -> tag_repository_record(shift, shift)},
1977	2			2		13	SOUR => sub{return $self -> tag_source_record(shift, shift)},
1978	2			2		44	SUBM => sub{return $self -> tag_submitter_record(shift, shift)},
1979							}
1980	8					183	);
1981
1982	8					133	$self -> tag_trailer($index, $line);
1983
1984							} # End of tag_lineage.
1985
1986							# --------------------------------------------------
1987
1988							sub tag_map
1989							{
1990	0			0	0	0	my($self, $index, $line) = @_;
1991	0					0	my($id) = $self -> get_sub_name(caller 0);
1992
1993	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
1994	0					0	$self -> push_item($$line[$index], 'Place');
1995
1996							return $self -> tag_advance
1997							(
1998							$id,
1999							++$index,
2000							$line,
2001							{
2002	0			0		0	LATI => sub{return $self -> tag_place_latitude(shift, shift)},
2003	0			0		0	LONG => sub{return $self -> tag_place_longitude(shift, shift)},
2004							}
2005	0					0	);
2006
2007							} # End of tag_map.
2008
2009							# --------------------------------------------------
2010
2011							sub tag_multimedia_link
2012							{
2013	0			0	0	0	my($self, $index, $line) = @_;
2014	0					0	my($id) = $self -> get_sub_name(caller 0);
2015
2016	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2017	0					0	$self -> push_item($$line[$index], 'Link to OBJE');
2018
2019							return $self -> tag_advance
2020							(
2021							$id,
2022							++$index,
2023							$line,
2024							{
2025	0			0		0	FILE => sub{return $self -> tag_multimedia_link_file_refn(shift, shift)},
2026	0			0		0	TITL => sub{return $self -> tag_descriptive_title(shift, shift)},
2027							}
2028	0					0	);
2029
2030							} # End of tag_multimedia_link.
2031
2032							# --------------------------------------------------
2033
2034							sub tag_multimedia_link_file_refn
2035							{
2036	0			0	0	0	my($self, $index, $line) = @_;
2037	0					0	my($id) = $self -> get_sub_name(caller 0);
2038
2039	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2040	0					0	$self -> check_length($index, 'multimedia_file_reference', $$line[$index][4]);
2041	0					0	$self -> push_item($$line[$index], 'Multimedia');
2042
2043							return $self -> tag_advance
2044							(
2045							$id,
2046							++$index,
2047							$line,
2048							{
2049	0			0		0	FORM => sub{return $self -> tag_multimedia_link_format(shift, shift)},
2050							}
2051	0					0	);
2052
2053							} # End of tag_multimedia_link_file_refn.
2054
2055							# --------------------------------------------------
2056
2057							sub tag_multimedia_link_format
2058							{
2059	0			0	0	0	my($self, $index, $line) = @_;
2060	0					0	my($id) = $self -> get_sub_name(caller 0);
2061
2062	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2063	0					0	$self -> check_length($id, $$line[$index]);
2064	0					0	$self -> push_item($$line[$index], 'Multimedia');
2065
2066							return $self -> tag_advance
2067							(
2068							$id,
2069							++$index,
2070							$line,
2071							{
2072	0			0		0	MEDI => sub{return $self -> tag_source_media_type(shift, shift)},
2073							}
2074	0					0	);
2075
2076							} # End of tag_multimedia_link_format.
2077
2078							# --------------------------------------------------
2079
2080							sub tag_multimedia_record
2081							{
2082	0			0	0	0	my($self, $index, $line) = @_;
2083	0					0	my($id) = $self -> get_sub_name(caller 0);
2084
2085	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2086	0					0	$self -> push_item($$line[$index], 'Multimedia');
2087
2088							return $self -> tag_advance
2089							(
2090							$id,
2091							++$index,
2092							$line,
2093							{
2094	0			0		0	CHAN => sub{return $self -> tag_change_date1(shift, shift)},
2095	0			0		0	FILE => sub{return $self -> tag_multimedia_record_file_refn(shift, shift)},
2096	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
2097	0			0		0	REFN => sub{return $self -> tag_user_reference_number(shift, shift)},
2098	0			0		0	RIN => sub{return $self -> tag_automated_record_id(shift, shift)},
2099	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
2100							}
2101	0					0	);
2102
2103							} # End of tag_multimedia_record.
2104
2105							# --------------------------------------------------
2106
2107							sub tag_multimedia_record_file_refn
2108							{
2109	0			0	0	0	my($self, $index, $line) = @_;
2110	0					0	my($id) = $self -> get_sub_name(caller 0);
2111
2112	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2113	0					0	$self -> check_length($index, 'multimedia_file_reference', $$line[$index][4]);
2114	0					0	$self -> push_item($$line[$index], 'Multimedia');
2115
2116							return $self -> tag_advance
2117							(
2118							$id,
2119							++$index,
2120							$line,
2121							{
2122	0			0		0	FORM => sub{return $self -> tag_multimedia_record_format(shift, shift)},
2123	0			0		0	TITL => sub{return $self -> tag_descriptive_title(shift, shift)},
2124							}
2125	0					0	);
2126
2127							} # End of tag_multimedia_record_file_refn.
2128
2129							# --------------------------------------------------
2130
2131							sub tag_multimedia_record_format
2132							{
2133	0			0	0	0	my($self, $index, $line) = @_;
2134	0					0	my($id) = $self -> get_sub_name(caller 0);
2135
2136	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2137	0					0	$self -> check_length($id, $$line[$index]);
2138	0					0	$self -> push_item($$line[$index], 'Multimedia');
2139
2140							return $self -> tag_advance
2141							(
2142							$id,
2143							++$index,
2144							$line,
2145							{
2146	0			0		0	TYPE => sub{return $self -> tag_source_media_type(shift, shift)},
2147							}
2148	0					0	);
2149
2150							} # End of tag_multimedia_record_format.
2151
2152							# --------------------------------------------------
2153
2154							sub tag_name_of_business
2155							{
2156	7			7	0	19	my($self, $index, $line) = @_;
2157	7					110	my($id) = $self -> get_sub_name(caller 0);
2158
2159	7					62	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2160	7					99	$self -> check_length($id, $$line[$index]);
2161	7					32	$self -> push_item($$line[$index], '');
2162
2163	7					1118	return $self -> tag_advance
2164							(
2165							$id,
2166							++$index,
2167							$line,
2168							{
2169							$self -> tag_address_structure_tags,
2170							}
2171							);
2172
2173							} # End of tag_name_of_business.
2174
2175							# --------------------------------------------------
2176
2177							sub tag_name_of_family_file
2178							{
2179	0			0	0	0	my($self, $index, $line) = @_;
2180	0					0	my($id) = $self -> get_sub_name(caller 0);
2181
2182	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2183	0					0	$self -> check_length($id, $$line[$index]);
2184	0					0	$self -> push_item($$line[$index], 'File name');
2185
2186	0					0	return ++$index;
2187
2188							} # End of tag_name_of_family_file.
2189
2190							# --------------------------------------------------
2191
2192							sub tag_name_of_product
2193							{
2194	8			8	0	26	my($self, $index, $line) = @_;
2195	8					89	my($id) = $self -> get_sub_name(caller 0);
2196
2197	8					76	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2198	8					95	$self -> check_length($id, $$line[$index]);
2199	8					54	$self -> push_item($$line[$index], '');
2200
2201	8					1304	return ++$index;
2202
2203							} # End of tag_name_of_product.
2204
2205							# --------------------------------------------------
2206
2207							sub tag_name_of_repository
2208							{
2209	0			0	0	0	my($self, $index, $line) = @_;
2210	0					0	my($id) = $self -> get_sub_name(caller 0);
2211
2212	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2213	0					0	$self -> check_length($id, $$line[$index]);
2214	0					0	$self -> push_item($$line[$index], 'Repository');
2215
2216	0					0	return ++$index;
2217
2218							} # End of tag_name_of_repository.
2219
2220							# --------------------------------------------------
2221
2222							sub tag_name_of_source_data
2223							{
2224	6			6	0	15	my($self, $index, $line) = @_;
2225	6					52	my($id) = $self -> get_sub_name(caller 0);
2226
2227	6					44	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2228	6					60	$self -> check_length($id, $$line[$index]);
2229	6					21	$self -> push_item($$line[$index], 'Source');
2230
2231							return $self -> tag_advance
2232							(
2233							$id,
2234							++$index,
2235							$line,
2236							{
2237	2			2		12	DATE => sub{return $self -> tag_publication_date(shift, shift)},
2238	4			4		26	COPR => sub{return $self -> tag_copyright_source_data(shift, shift)},
2239							}
2240	6					729	);
2241
2242							} # End of tag_name_of_source_data.
2243
2244							# --------------------------------------------------
2245
2246							sub tag_name_personal
2247							{
2248	305			305	0	704	my($self, $index, $line) = @_;
2249	305					2614	my($id) = $self -> get_sub_name(caller 0);
2250
2251	305					2313	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2252	305					3119	$self -> check_length($id, $$line[$index]);
2253	305					1036	$self -> push_item($$line[$index], 'Individual');
2254
2255							return $self -> tag_advance
2256							(
2257							$id,
2258							++$index,
2259							$line,
2260							{
2261	0			0		0	FONE => sub{return $self -> tag_name_phonetic_variation(shift, shift)},
2262	0			0		0	ROMN => sub{return $self -> tag_name_romanized_variation(shift, shift)},
2263	0			0		0	TYPE => sub{return $self -> tag_name_type(shift, shift)},
2264	305					37993	$self -> tag_personal_name_piece_tags,
2265							}
2266							);
2267
2268							} # End of tag_name_personal.
2269
2270							# --------------------------------------------------
2271
2272							sub tag_name_phonetic_variation
2273							{
2274	0			0	0	0	my($self, $index, $line) = @_;
2275	0					0	my($id) = $self -> get_sub_name(caller 0);
2276
2277	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2278	0					0	$self -> check_length($id, $$line[$index]);
2279	0					0	$self -> push_item($$line[$index], 'Individual');
2280
2281							return $self -> tag_advance
2282							(
2283							$id,
2284							++$index,
2285							$line,
2286							{
2287	0			0		0	TYPE => sub{return $self -> tag_phonetic_type(shift, shift)},
2288	0					0	$self -> tag_personal_name_piece_tags,
2289							}
2290							);
2291
2292							} # End of tag_name_phonetic_variation.
2293
2294							# --------------------------------------------------
2295
2296							sub tag_name_piece_given
2297							{
2298	0			0	0	0	my($self, $index, $line) = @_;
2299	0					0	my($id) = $self -> get_sub_name(caller 0);
2300
2301	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2302	0					0	$self -> check_length($id, $$line[$index]);
2303	0					0	$self -> push_item($$line[$index], 'Individual');
2304
2305	0					0	return ++$index;
2306
2307							} # End of tag_name_piece_given.
2308
2309							# --------------------------------------------------
2310
2311							sub tag_name_piece_nickname
2312							{
2313	0			0	0	0	my($self, $index, $line) = @_;
2314	0					0	my($id) = $self -> get_sub_name(caller 0);
2315
2316	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2317	0					0	$self -> check_length($id, $$line[$index]);
2318	0					0	$self -> push_item($$line[$index], 'Individual');
2319
2320	0					0	return ++$index;
2321
2322							} # End of tag_name_piece_nickname.
2323
2324							# --------------------------------------------------
2325
2326							sub tag_name_piece_prefix
2327							{
2328	0			0	0	0	my($self, $index, $line) = @_;
2329	0					0	my($id) = $self -> get_sub_name(caller 0);
2330
2331	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2332	0					0	$self -> check_length($id, $$line[$index]);
2333	0					0	$self -> push_item($$line[$index], 'Individual');
2334
2335	0					0	return ++$index;
2336
2337							} # End of tag_name_piece_prefix.
2338
2339							# --------------------------------------------------
2340
2341							sub tag_name_piece_suffix
2342							{
2343	0			0	0	0	my($self, $index, $line) = @_;
2344	0					0	my($id) = $self -> get_sub_name(caller 0);
2345
2346	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2347	0					0	$self -> check_length($id, $$line[$index]);
2348	0					0	$self -> push_item($$line[$index], 'Individual');
2349
2350	0					0	return ++$index;
2351
2352							} # End of tag_name_piece_suffix.
2353
2354							# --------------------------------------------------
2355
2356							sub tag_name_piece_surname
2357							{
2358	0			0	0	0	my($self, $index, $line) = @_;
2359	0					0	my($id) = $self -> get_sub_name(caller 0);
2360
2361	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2362	0					0	$self -> check_length($id, $$line[$index]);
2363	0					0	$self -> push_item($$line[$index], 'Individual');
2364
2365	0					0	return ++$index;
2366
2367							} # End of tag_name_piece_surname.
2368
2369							# --------------------------------------------------
2370
2371							sub tag_name_piece_surname_prefix
2372							{
2373	0			0	0	0	my($self, $index, $line) = @_;
2374	0					0	my($id) = $self -> get_sub_name(caller 0);
2375
2376	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2377	0					0	$self -> check_length($id, $$line[$index]);
2378	0					0	$self -> push_item($$line[$index], 'Individual');
2379
2380	0					0	return ++$index;
2381
2382							} # End of tag_name_piece_surname_prefix.
2383
2384							# --------------------------------------------------
2385
2386							sub tag_name_romanized_variation
2387							{
2388	0			0	0	0	my($self, $index, $line) = @_;
2389	0					0	my($id) = $self -> get_sub_name(caller 0);
2390
2391	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2392	0					0	$self -> check_length($id, $$line[$index]);
2393	0					0	$self -> push_item($$line[$index], 'Individual');
2394
2395							return $self -> tag_advance
2396							(
2397							$id,
2398							++$index,
2399							$line,
2400							{
2401	0			0		0	TYPE => sub{return $self -> tag_romanized_type(shift, shift)},
2402	0					0	$self -> tag_personal_name_piece_tags,
2403							}
2404							);
2405
2406							} # End of tag_name_romanized_variation.
2407
2408							# --------------------------------------------------
2409
2410							sub tag_name_type
2411							{
2412	0			0	0	0	my($self, $index, $line) = @_;
2413	0					0	my($id) = $self -> get_sub_name(caller 0);
2414
2415	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2416	0					0	$self -> check_length($id, $$line[$index]);
2417	0					0	$self -> push_item($$line[$index], 'Individual');
2418
2419	0					0	return ++$index;
2420
2421							} # End of tag_name_type.
2422
2423							# --------------------------------------------------
2424
2425							sub tag_national_or_tribal_origin
2426							{
2427	0			0	0	0	my($self, $index, $line) = @_;
2428	0					0	my($id) = $self -> get_sub_name(caller 0);
2429
2430	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2431	0					0	$self -> check_length($id, $$line[$index]);
2432	0					0	$self -> push_item($$line[$index], 'Individual');
2433
2434	0					0	return ++$index;
2435
2436							} # End of tag_national_or_tribal_origin.
2437
2438							# --------------------------------------------------
2439
2440							sub tag_national_id_number
2441							{
2442	0			0	0	0	my($self, $index, $line) = @_;
2443	0					0	my($id) = $self -> get_sub_name(caller 0);
2444
2445	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2446	0					0	$self -> check_length($id, $$line[$index]);
2447	0					0	$self -> push_item($$line[$index], 'Individual');
2448
2449	0					0	return ++$index;
2450
2451							} # End of tag_national_id_number.
2452
2453							# --------------------------------------------------
2454
2455							sub tag_nobility_type_title
2456							{
2457	31			31	0	68	my($self, $index, $line) = @_;
2458	31					387	my($id) = $self -> get_sub_name(caller 0);
2459
2460	31					235	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2461	31					315	$self -> check_length($id, $$line[$index]);
2462	31					113	$self -> push_item($$line[$index], 'Individual');
2463
2464	31					3980	return ++$index;
2465
2466							} # End of tag_nobility_type_title.
2467
2468							# --------------------------------------------------
2469
2470							sub tag_note_record
2471							{
2472	138			138	0	234	my($self, $index, $line) = @_;
2473	138					913	my($id) = $self -> get_sub_name(caller 0);
2474
2475	138					755	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2476	138					1108	$self -> push_item($$line[$index], 'Note');
2477
2478							return $self -> tag_advance
2479							(
2480							$id,
2481							++$index,
2482							$line,
2483							{
2484	0			0		0	CHAN => sub{return $self -> tag_change_date1(shift, shift)},
2485	135			135		335	CONC => sub{return $self -> tag_concat(shift, shift)},
2486	60			60		165	CONT => sub{return $self -> tag_continue(shift, shift)},
2487	0			0		0	REFN => sub{return $self -> tag_user_reference_number(shift, shift)},
2488	0			0		0	RIN => sub{return $self -> tag_automated_record_id(shift, shift)},
2489	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
2490							}
2491	138					16487	);
2492
2493							} # End of tag_note_record.
2494
2495							# --------------------------------------------------
2496
2497							sub tag_note_structure
2498							{
2499	145			145	0	338	my($self, $index, $line) = @_;
2500	145					1127	my($id) = $self -> get_sub_name(caller 0);
2501
2502	145					1130	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2503	145					1247	$self -> push_item($$line[$index], 'Note');
2504
2505							return $self -> tag_advance
2506							(
2507							$id,
2508							++$index,
2509							$line,
2510							{
2511	2			2		9	CONC => sub{return $self -> tag_concat(shift, shift)},
2512	37			37		124	CONT => sub{return $self -> tag_continue(shift, shift)},
2513							}
2514	145					17460	);
2515
2516							} # End of tag_note_structure.
2517
2518							# --------------------------------------------------
2519
2520							sub tag_occupation
2521							{
2522	1			1	0	3	my($self, $index, $line) = @_;
2523	1					8	my($id) = $self -> get_sub_name(caller 0);
2524
2525	1					7	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2526	1					10	$self -> check_length($id, $$line[$index]);
2527	1					3	$self -> push_item($$line[$index], 'Individual');
2528
2529	1					120	return ++$index;
2530
2531							} # End of tag_occupation.
2532
2533							# --------------------------------------------------
2534
2535							sub tag_ordinance_process_flag
2536							{
2537	0			0	0	0	my($self, $index, $line) = @_;
2538	0					0	my($id) = $self -> get_sub_name(caller 0);
2539
2540	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2541	0					0	$self -> check_length($id, $$line[$index]);
2542	0					0	$self -> push_item($$line[$index], 'Submission');
2543
2544	0					0	return ++$index;
2545
2546							} # End of tag_ordinance_process_flag.
2547
2548							# --------------------------------------------------
2549
2550							sub tag_pedigree_linkage_type
2551							{
2552	0			0	0	0	my($self, $index, $line) = @_;
2553	0					0	my($id) = $self -> get_sub_name(caller 0);
2554
2555	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2556	0					0	$self -> check_length($id, $$line[$index]);
2557	0					0	$self -> push_item($$line[$index], 'Individual');
2558
2559	0					0	return ++$index;
2560
2561							} # End of tag_pedigree_linkage_type.
2562
2563							# --------------------------------------------------
2564
2565							sub tag_permanent_record_file_number
2566							{
2567	0			0	0	0	my($self, $index, $line) = @_;
2568	0					0	my($id) = $self -> get_sub_name(caller 0);
2569
2570	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2571	0					0	$self -> check_length($id, $$line[$index]);
2572	0					0	$self -> push_item($$line[$index], '');
2573
2574	0					0	return ++$index;
2575
2576							} # End of tag_permanent_record_file_number.
2577
2578							# --------------------------------------------------
2579
2580							sub tag_personal_name_piece_tags
2581							{
2582	305			305	0	615	my($self) = @_;
2583
2584							return
2585							(
2586	0			0		0	GIVN => sub{return $self -> tag_name_piece_given(shift, shift)},
2587	0			0		0	NICK => sub{return $self -> tag_name_piece_nickname(shift, shift)},
2588	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
2589	0			0		0	NPFX => sub{return $self -> tag_name_piece_prefix(shift, shift)},
2590	0			0		0	NSFX => sub{return $self -> tag_name_piece_suffix(shift, shift)},
2591	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
2592	0			0		0	SPFX => sub{return $self -> tag_name_piece_surname_prefix(shift, shift)},
2593	0			0		0	SURN => sub{return $self -> tag_name_piece_surname(shift, shift)},
2594	305					6914	);
2595
2596							} # End of tag_personal_name_piece_tags.
2597
2598							# --------------------------------------------------
2599
2600							sub tag_personal_name_pieces
2601							{
2602	0			0	0	0	my($self, $index, $line) = @_;
2603	0					0	my($id) = $self -> get_sub_name(caller 0);
2604
2605	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2606	0					0	$self -> push_item($$line[$index], 'Individual');
2607
2608							# Special case. $index not ++$index.
2609
2610	0					0	return $self -> tag_advance
2611							(
2612							$id,
2613							++$index,
2614							$line,
2615							{
2616							$self -> tag_personal_name_piece_tags
2617							}
2618							);
2619
2620							} # End of tag_personal_name_pieces.
2621
2622							# --------------------------------------------------
2623
2624							sub tag_phone_number
2625							{
2626	2			2	0	5	my($self, $index, $line) = @_;
2627	2					22	my($id) = $self -> get_sub_name(caller 0);
2628
2629	2					15	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2630	2					20	$self -> check_length($id, $$line[$index]);
2631	2					7	$self -> push_item($$line[$index], '');
2632
2633	2					247	return ++$index;
2634
2635							} # End of tag_phone_number.
2636
2637							# --------------------------------------------------
2638
2639							sub tag_phonetic_type
2640							{
2641	0			0	0	0	my($self, $index, $line) = @_;
2642	0					0	my($id) = $self -> get_sub_name(caller 0);
2643
2644	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2645	0					0	$self -> check_length($id, $$line[$index]);
2646	0					0	$self -> push_item($$line[$index], '');
2647
2648	0					0	return ++$index;
2649
2650							} # End of tag_phonetic_type.
2651
2652							# --------------------------------------------------
2653
2654							sub tag_physical_description
2655							{
2656	0			0	0	0	my($self, $index, $line) = @_;
2657	0					0	my($id) = $self -> get_sub_name(caller 0);
2658
2659	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2660	0					0	$self -> check_length($id, $$line[$index]);
2661	0					0	$self -> push_item($$line[$index], '');
2662
2663	0					0	return ++$index;
2664
2665							} # End of tag_physical_description.
2666
2667							# --------------------------------------------------
2668
2669							sub tag_place
2670							{
2671	0			0	0	0	my($self, $index, $line) = @_;
2672	0					0	my($id) = $self -> get_sub_name(caller 0);
2673
2674	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2675	0					0	$self -> push_item($$line[$index], 'Place');
2676
2677							return $self -> tag_advance
2678							(
2679							$id,
2680							++$index,
2681							$line,
2682							{
2683	0			0		0	FORM => sub{return $self -> tag_place_hierarchy(shift, shift)},
2684							}
2685	0					0	);
2686
2687							} # End of tag_place.
2688
2689							# --------------------------------------------------
2690
2691							sub tag_place_hierarchy
2692							{
2693	0			0	0	0	my($self, $index, $line) = @_;
2694	0					0	my($id) = $self -> get_sub_name(caller 0);
2695
2696	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2697	0					0	$self -> check_length($id, $$line[$index]);
2698	0					0	$self -> push_item($$line[$index], 'Place');
2699
2700	0					0	return ++$index;
2701
2702							} # End of tag_place_hierarchy.
2703
2704							# --------------------------------------------------
2705
2706							sub tag_place_latitude
2707							{
2708	0			0	0	0	my($self, $index, $line) = @_;
2709	0					0	my($id) = $self -> get_sub_name(caller 0);
2710
2711	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2712	0					0	$self -> check_length($id, $$line[$index]);
2713	0					0	$self -> push_item($$line[$index], 'Place');
2714
2715	0					0	return ++$index;
2716
2717							} # End of tag_place_latitude.
2718
2719							# --------------------------------------------------
2720
2721							sub tag_place_living_ordinance
2722							{
2723	0			0	0	0	my($self, $index, $line) = @_;
2724	0					0	my($id) = $self -> get_sub_name(caller 0);
2725
2726	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2727	0					0	$self -> check_length($id, $$line[$index]);
2728	0					0	$self -> push_item($$line[$index], 'Place');
2729
2730	0					0	return ++$index;
2731
2732							} # End of tag_place_living_ordinance.
2733
2734							# --------------------------------------------------
2735
2736							sub tag_place_longitude
2737							{
2738	0			0	0	0	my($self, $index, $line) = @_;
2739	0					0	my($id) = $self -> get_sub_name(caller 0);
2740
2741	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2742	0					0	$self -> check_length($id, $$line[$index]);
2743	0					0	$self -> push_item($$line[$index], 'Place');
2744
2745	0					0	return ++$index;
2746
2747							} # End of tag_place_longitude.
2748
2749							# --------------------------------------------------
2750
2751							sub tag_place_name
2752							{
2753	8			8	0	17	my($self, $index, $line) = @_;
2754	8					85	my($id) = $self -> get_sub_name(caller 0);
2755
2756	8					54	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2757	8					77	$self -> check_length($id, $$line[$index]);
2758	8					25	$self -> push_item($$line[$index], 'Place');
2759
2760							return $self -> tag_advance
2761							(
2762							$id,
2763							++$index,
2764							$line,
2765							{
2766	0			0		0	FORM => sub{return $self -> tag_place_hierarchy(shift, shift)},
2767	0			0		0	FONE => sub{return $self -> tag_place_phonetic_variation(shift, shift)},
2768	0			0		0	MAP => sub{return $self -> tag_map(shift, shift)},
2769	0			0		0	ROMN => sub{return $self -> tag_place_romanized_variation(shift, shift)},
2770	2			2		10	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
2771							}
2772	8					1020	);
2773
2774							} # End of tag_place_name.
2775
2776							# --------------------------------------------------
2777
2778							sub tag_place_phonetic_variation
2779							{
2780	0			0	0	0	my($self, $index, $line) = @_;
2781	0					0	my($id) = $self -> get_sub_name(caller 0);
2782
2783	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2784	0					0	$self -> check_length($id, $$line[$index]);
2785	0					0	$self -> push_item($$line[$index], 'Place');
2786
2787							return $self -> tag_advance
2788							(
2789							$id,
2790							++$index,
2791							$line,
2792							{
2793	0			0		0	TYPE => sub{return $self -> tag_phonetic_type(shift, shift)},
2794							}
2795	0					0	);
2796
2797							} # End of tag_place_phonetic_variation.
2798
2799							# --------------------------------------------------
2800
2801							sub tag_place_romanized_variation
2802							{
2803	0			0	0	0	my($self, $index, $line) = @_;
2804	0					0	my($id) = $self -> get_sub_name(caller 0);
2805
2806	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2807	0					0	$self -> check_length($id, $$line[$index]);
2808	0					0	$self -> push_item($$line[$index], 'Place');
2809
2810							return $self -> tag_advance
2811							(
2812							$id,
2813							++$index,
2814							$line,
2815							{
2816	0			0		0	TYPE => sub{return $self -> tag_romanized_type(shift, shift)},
2817							}
2818	0					0	);
2819
2820							} # End of tag_place_romanized_variation.
2821
2822							# --------------------------------------------------
2823
2824							sub tag_possessions
2825							{
2826	0			0	0	0	my($self, $index, $line) = @_;
2827	0					0	my($id) = $self -> get_sub_name(caller 0);
2828
2829	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2830	0					0	$self -> check_length($id, $$line[$index]);
2831	0					0	$self -> push_item($$line[$index], '');
2832
2833	0					0	return ++$index;
2834
2835							} # End of tag_possessions.
2836
2837							# --------------------------------------------------
2838
2839							sub tag_publication_date
2840							{
2841	2			2	0	6	my($self, $index, $line) = @_;
2842	2					18	my($id) = $self -> get_sub_name(caller 0);
2843
2844	2					26	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2845	2					21	$self -> check_exact_date($id, $$line[$index]);
2846
2847	2					358	return ++$index;
2848
2849							} # End of tag_publication_date.
2850
2851							# --------------------------------------------------
2852
2853							sub tag_receiving_system_name
2854							{
2855	0			0	0	0	my($self, $index, $line) = @_;
2856	0					0	my($id) = $self -> get_sub_name(caller 0);
2857
2858	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2859	0					0	$self -> check_length($id, $$line[$index]);
2860	0					0	$self -> push_item($$line[$index], 'Header');
2861
2862	0					0	return ++$index;
2863
2864							} # End of tag_receiving_system_name.
2865
2866							# --------------------------------------------------
2867
2868							sub tag_relation_is_descriptor
2869							{
2870	0			0	0	0	my($self, $index, $line) = @_;
2871	0					0	my($id) = $self -> get_sub_name(caller 0);
2872
2873	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2874	0					0	$self -> check_length($id, $$line[$index]);
2875	0					0	$self -> push_item($$line[$index], '');
2876
2877	0					0	return ++$index;
2878
2879							} # End of tag_relation_is_descriptor.
2880
2881							# --------------------------------------------------
2882
2883							sub tag_religious_affiliation
2884							{
2885	0			0	0	0	my($self, $index, $line) = @_;
2886	0					0	my($id) = $self -> get_sub_name(caller 0);
2887
2888	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2889	0					0	$self -> check_length($id, $$line[$index]);
2890	0					0	$self -> push_item($$line[$index], 'Individual');
2891
2892	0					0	return ++$index;
2893
2894							} # End of tag_religious_affiliation.
2895
2896							# --------------------------------------------------
2897
2898							sub tag_repository_record
2899							{
2900	0			0	0	0	my($self, $index, $line) = @_;
2901	0					0	my($id) = $self -> get_sub_name(caller 0);
2902
2903	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2904	0					0	$self -> push_item($$line[$index], 'Repository');
2905
2906							return $self -> tag_advance
2907							(
2908							$id,
2909							++$index,
2910							$line,
2911							{
2912	0			0		0	CHAN => sub{return $self -> tag_change_date1(shift, shift)},
2913	0			0		0	NAME => sub{return $self -> tag_name_of_repository(shift, shift)},
2914	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
2915	0			0		0	REFN => sub{return $self -> tag_user_reference_number(shift, shift)},
2916	0			0		0	RIN => sub{return $self -> tag_automated_record_id(shift, shift)},
2917	0					0	$self -> tag_address_structure_tags,
2918							}
2919							);
2920
2921							} # End of tag_repository_record.
2922
2923							# --------------------------------------------------
2924
2925							sub tag_responsible_agency
2926							{
2927	0			0	0	0	my($self, $index, $line) = @_;
2928	0					0	my($id) = $self -> get_sub_name(caller 0);
2929
2930	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2931	0					0	$self -> check_length($id, $$line[$index]);
2932	0					0	$self -> push_item($$line[$index], 'Source');
2933
2934	0					0	return ++$index;
2935
2936							} # End of tag_responsible_agency.
2937
2938							# --------------------------------------------------
2939
2940							sub tag_restriction_notice
2941							{
2942	0			0	0	0	my($self, $index, $line) = @_;
2943	0					0	my($id) = $self -> get_sub_name(caller 0);
2944
2945	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2946	0					0	$self -> check_length($id, $$line[$index]);
2947	0					0	$self -> push_item($$line[$index], '');
2948
2949	0					0	return ++$index;
2950
2951							} # End of tag_restriction_notice.
2952
2953							# --------------------------------------------------
2954
2955							sub tag_rin
2956							{
2957	0			0	0	0	my($self, $index, $line) = @_;
2958	0					0	my($id) = $self -> get_sub_name(caller 0);
2959
2960	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2961	0					0	$self -> push_item($$line[$index], '');
2962
2963	0					0	return ++$index;
2964
2965							} # End of tag_rin.
2966
2967							# --------------------------------------------------
2968
2969							sub tag_role_in_event
2970							{
2971	0			0	0	0	my($self, $index, $line) = @_;
2972	0					0	my($id) = $self -> get_sub_name(caller 0);
2973
2974	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2975	0					0	$self -> check_length($id, $$line[$index]);
2976	0					0	$self -> push_item($$line[$index], 'Source');
2977
2978	0					0	return ++$index;
2979
2980							} # End of tag_role_in_event.
2981
2982							# --------------------------------------------------
2983
2984							sub tag_romanized_type
2985							{
2986	0			0	0	0	my($self, $index, $line) = @_;
2987	0					0	my($id) = $self -> get_sub_name(caller 0);
2988
2989	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
2990	0					0	$self -> check_length($id, $$line[$index]);
2991	0					0	$self -> push_item($$line[$index], '');
2992
2993	0					0	return ++$index;
2994
2995							} # End of tag_romanized_type.
2996
2997							# --------------------------------------------------
2998
2999							sub tag_scholastic_achievement
3000							{
3001	0			0	0	0	my($self, $index, $line) = @_;
3002	0					0	my($id) = $self -> get_sub_name(caller 0);
3003
3004	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3005	0					0	$self -> check_length($id, $$line[$index]);
3006	0					0	$self -> push_item($$line[$index], 'Individual');
3007
3008	0					0	return ++$index;
3009
3010							} # End of tag_scholastic_achievement.
3011
3012							# --------------------------------------------------
3013
3014							sub tag_sex_value
3015							{
3016	254			254	0	567	my($self, $index, $line) = @_;
3017	254					1917	my($id) = $self -> get_sub_name(caller 0);
3018
3019	254					1671	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3020	254					2573	$self -> check_length($id, $$line[$index]);
3021	254					727	$self -> push_item($$line[$index], 'Individual');
3022
3023	254					31570	return ++$index;
3024
3025							} # End of tag_sex_value.
3026
3027							# --------------------------------------------------
3028
3029							sub tag_slgc
3030							{
3031	0			0	0	0	my($self, $index, $line) = @_;
3032	0					0	my($id) = $self -> get_sub_name(caller 0);
3033
3034	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3035	0					0	$self -> push_item($$line[$index], 'Individual');
3036
3037							return $self -> tag_advance
3038							(
3039							$id,
3040							++$index,
3041							$line,
3042							{
3043	0			0		0	DATE => sub{return $self -> tag_date_lds_ord(shift, shift)},
3044	0			0		0	FAMC => sub{return $self -> tag_child_to_family_xref(shift, shift)},
3045	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3046	0			0		0	PLAC => sub{return $self -> tag_place_living_ordinance(shift, shift)},
3047	0			0		0	SOUR => sub{return $self -> tag_source_citation(shift, shift)},
3048	0			0		0	STAT => sub{return $self -> tag_lds_child_sealing_date_status(shift, shift)},
3049	0			0		0	TEMP => sub{return $self -> tag_temple_code(shift, shift)},
3050							}
3051	0					0	);
3052
3053							} # End of tag_slgc.
3054
3055							# --------------------------------------------------
3056
3057							sub tag_social_security_number
3058							{
3059	0			0	0	0	my($self, $index, $line) = @_;
3060	0					0	my($id) = $self -> get_sub_name(caller 0);
3061
3062	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3063	0					0	$self -> check_length($id, $$line[$index]);
3064	0					0	$self -> push_item($$line[$index], 'Individual');
3065
3066	0					0	return ++$index;
3067
3068							} # End of tag_social_security_number.
3069
3070							# --------------------------------------------------
3071
3072							sub tag_source_call_number
3073							{
3074	0			0	0	0	my($self, $index, $line) = @_;
3075	0					0	my($id) = $self -> get_sub_name(caller 0);
3076
3077	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3078	0					0	$self -> check_length($id, $$line[$index]);
3079	0					0	$self -> push_item($$line[$index], 'Source');
3080
3081	0					0	return ++$index;
3082
3083							} # End of tag_source_call_number.
3084
3085							# --------------------------------------------------
3086
3087							sub tag_source_citation
3088							{
3089	2			2	0	4	my($self, $index, $line) = @_;
3090	2					15	my($id) = $self -> get_sub_name(caller 0);
3091
3092	2					14	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3093	2					19	$self -> push_item($$line[$index], 'Source');
3094
3095							return $self -> tag_advance
3096							(
3097							$id,
3098							++$index,
3099							$line,
3100							{
3101	0			0		0	CONC => sub{return $self -> tag_concat(shift, shift)},
3102	0			0		0	CONT => sub{return $self -> tag_continue(shift, shift)},
3103	0			0		0	DATA => sub{return $self -> tag_source_citation_data(shift, shift)},
3104	0			0		0	EVEN => sub{return $self -> tag_event_type_cited_from(shift, shift)},
3105	0			0		0	OBJE => sub{return $self -> tag_multimedia_link(shift, shift)},
3106	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3107	0			0		0	PAGE => sub{return $self -> tag_where_within_source(shift, shift)},
3108	0			0		0	QUAY => sub{return $self -> tag_certainty_assessment(shift, shift)},
3109	0			0		0	TEXT => sub{return $self -> tag_text_from_source(shift, shift)},
3110							}
3111	2					251	);
3112
3113							} # End of tag_source_citation.
3114
3115							# --------------------------------------------------
3116
3117							sub tag_source_citation_data
3118							{
3119	0			0	0	0	my($self, $index, $line) = @_;
3120	0					0	my($id) = $self -> get_sub_name(caller 0);
3121
3122	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3123	0					0	$self -> push_item($$line[$index], 'Source');
3124
3125							return $self -> tag_advance
3126							(
3127							$id,
3128							++$index,
3129							$line,
3130							{
3131	0			0		0	DATE => sub{return $self -> tag_entry_recording_date(shift, shift)},
3132	0			0		0	TEXT => sub{return $self -> tag_text_from_source(shift, shift)},
3133							}
3134	0					0	);
3135
3136							} # End of tag_source_citation_data.
3137
3138							# --------------------------------------------------
3139
3140							sub tag_source_data
3141							{
3142	0			0	0	0	my($self, $index, $line) = @_;
3143	0					0	my($id) = $self -> get_sub_name(caller 0);
3144
3145	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3146	0					0	$self -> push_item($$line[$index], 'Source');
3147
3148							return $self -> tag_advance
3149							(
3150							$id,
3151							++$index,
3152							$line,
3153							{
3154	0			0		0	AGNC => sub{return $self -> tag_responsible_agency(shift, shift)},
3155	0			0		0	EVEN => sub{return $self -> tag_events_recorded(shift, shift)},
3156	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3157							}
3158	0					0	);
3159
3160							} # End of tag_source_data.
3161
3162							# --------------------------------------------------
3163
3164							sub tag_source_descriptive_title
3165							{
3166	0			0	0	0	my($self, $index, $line) = @_;
3167	0					0	my($id) = $self -> get_sub_name(caller 0);
3168
3169	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3170	0					0	$self -> check_length($id, $$line[$index]);
3171	0					0	$self -> push_item($$line[$index], 'Source');
3172
3173							return $self -> tag_advance
3174							(
3175							$id,
3176							++$index,
3177							$line,
3178							{
3179	0			0		0	CONC => sub{return $self -> tag_concat(shift, shift)},
3180	0			0		0	CONT => sub{return $self -> tag_continue(shift, shift)},
3181							}
3182	0					0	);
3183
3184							} # End of tag_source_descriptive_title.
3185
3186							# --------------------------------------------------
3187
3188							sub tag_source_filed_by_entry
3189							{
3190	0			0	0	0	my($self, $index, $line) = @_;
3191	0					0	my($id) = $self -> get_sub_name(caller 0);
3192
3193	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3194	0					0	$self -> check_length($id, $$line[$index]);
3195	0					0	$self -> push_item($$line[$index], 'Source');
3196
3197	0					0	return ++$index;
3198
3199							} # End of tag_source_filed_by_entry.
3200
3201							# --------------------------------------------------
3202
3203							sub tag_source_jurisdiction_place
3204							{
3205	0			0	0	0	my($self, $index, $line) = @_;
3206	0					0	my($id) = $self -> get_sub_name(caller 0);
3207
3208	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3209	0					0	$self -> check_length($id, $$line[$index]);
3210	0					0	$self -> push_item($$line[$index], 'Source');
3211
3212	0					0	return ++$index;
3213
3214							} # End of tag_source_jurisdiction_place.
3215
3216							# --------------------------------------------------
3217
3218							sub tag_source_media_type
3219							{
3220	0			0	0	0	my($self, $index, $line) = @_;
3221	0					0	my($id) = $self -> get_sub_name(caller 0);
3222
3223	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3224	0					0	$self -> check_length($id, $$line[$index]);
3225	0					0	$self -> push_item($$line[$index], 'Source');
3226
3227	0					0	return ++$index;
3228
3229							} # End of tag_source_media_type.
3230
3231							# --------------------------------------------------
3232
3233							sub tag_source_originator
3234							{
3235	1			1	0	3	my($self, $index, $line) = @_;
3236	1					8	my($id) = $self -> get_sub_name(caller 0);
3237
3238	1					7	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3239	1					12	$self -> check_length($id, $$line[$index]);
3240	1					9	$self -> push_item($$line[$index], 'Source');
3241
3242							return $self -> tag_advance
3243							(
3244							$id,
3245							++$index,
3246							$line,
3247							{
3248	0			0		0	CONC => sub{return $self -> tag_concat(shift, shift)},
3249	0			0		0	CONT => sub{return $self -> tag_continue(shift, shift)},
3250							}
3251	1					116	);
3252
3253							} # End of tag_source_originator.
3254
3255							# --------------------------------------------------
3256
3257							sub tag_source_publication_date
3258							{
3259	0			0	0	0	my($self, $index, $line) = @_;
3260	0					0	my($id) = $self -> get_sub_name(caller 0);
3261
3262	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3263	0					0	$self -> push_item($$line[$index], 'Source');
3264
3265	0					0	return ++$index;
3266
3267							} # End of tag_source_publication_date.
3268
3269							# --------------------------------------------------
3270
3271							sub tag_source_publication_facts
3272							{
3273	1			1	0	4	my($self, $index, $line) = @_;
3274	1					9	my($id) = $self -> get_sub_name(caller 0);
3275
3276	1					9	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3277	1					9	$self -> check_length($id, $$line[$index]);
3278	1					4	$self -> push_item($$line[$index], 'Source');
3279
3280							return $self -> tag_advance
3281							(
3282							$id,
3283							++$index,
3284							$line,
3285							{
3286	0			0		0	CONC => sub{return $self -> tag_concat(shift, shift)},
3287	0			0		0	CONT => sub{return $self -> tag_continue(shift, shift)},
3288							}
3289	1					114	);
3290
3291							} # End of tag_source_publication_facts.
3292
3293							# --------------------------------------------------
3294
3295							sub tag_source_record
3296							{
3297	2			2	0	6	my($self, $index, $line) = @_;
3298	2					16	my($id) = $self -> get_sub_name(caller 0);
3299
3300	2					17	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3301	2					19	$self -> push_item($$line[$index], 'Source');
3302
3303							return $self -> tag_advance
3304							(
3305							$id,
3306							++$index,
3307							$line,
3308							{
3309	0			0		0	ABBR => sub{return $self -> tag_source_filed_by_entry(shift, shift)},
3310	1			1		6	AUTH => sub{return $self -> tag_source_originator(shift, shift)},
3311	0			0		0	CHAN => sub{return $self -> tag_change_date1(shift, shift)},
3312	1			1		6	DATA => sub{return $self -> tag_source_record_data(shift, shift)},
3313	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3314	0			0		0	OBJE => sub{return $self -> tag_multimedia_link(shift, shift)},
3315	1			1		5	PUBL => sub{return $self -> tag_source_publication_facts(shift, shift)},
3316	0			0		0	REFN => sub{return $self -> tag_user_reference_number(shift, shift)},
3317	0			0		0	RIN => sub{return $self -> tag_automated_record_id(shift, shift)},
3318	0			0		0	REPO => sub{return $self -> tag_source_repository_citation(shift, shift)},
3319	0			0		0	TEXT => sub{return $self -> tag_text_from_source(shift, shift)},
3320	0			0		0	TITL => sub{return $self -> tag_source_descriptive_title(shift, shift)},
3321							}
3322	2					274	);
3323
3324							} # End of tag_source_record.
3325
3326							# --------------------------------------------------
3327
3328							sub tag_source_record_data
3329							{
3330	1			1	0	8	my($self, $index, $line) = @_;
3331	1					9	my($id) = $self -> get_sub_name(caller 0);
3332
3333	1					9	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3334	1					11	$self -> push_item($$line[$index], 'Source');
3335
3336							return $self -> tag_advance
3337							(
3338							$id,
3339							++$index,
3340							$line,
3341							{
3342	0			0		0	AGNC => sub{return $self -> tag_responsible_agency(shift, shift)},
3343	1			1		7	EVEN => sub{return $self -> tag_events_recorded(shift, shift)},
3344	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3345							}
3346	1					129	);
3347
3348							} # End of tag_source_record_data.
3349
3350							# --------------------------------------------------
3351
3352							sub tag_spouse_to_family_link
3353							{
3354	240			240	0	615	my($self, $index, $line) = @_;
3355	240					2218	my($id) = $self -> get_sub_name(caller 0);
3356
3357	240					1698	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3358	240					2204	$self -> push_item($$line[$index], 'Link to FAM');
3359
3360							return $self -> tag_advance
3361							(
3362							$id,
3363							++$index,
3364							$line,
3365							{
3366	126			126		667	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3367							}
3368	240					28134	);
3369
3370							} # End of tag_spouse_to_family_link.
3371
3372							# --------------------------------------------------
3373
3374							sub tag_submission_record
3375							{
3376	0			0	0	0	my($self, $index, $line) = @_;
3377	0					0	my($id) = $self -> get_sub_name(caller 0);
3378
3379	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3380	0					0	$self -> push_item($$line[$index], 'Link to SUBM');
3381
3382							return $self -> tag_advance
3383							(
3384							$id,
3385							++$index,
3386							$line,
3387							{
3388	0			0		0	ANCE => sub{return $self -> tag_generations_of_ancestors(shift, shift)},
3389	0			0		0	DESC => sub{return $self -> tag_generations_of_descendants(shift, shift)},
3390	0			0		0	FAMF => sub{return $self -> tag_name_of_family_file(shift, shift)},
3391	0			0		0	ORDI => sub{return $self -> tag_ordinance_process_flag(shift, shift)},
3392	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3393	0			0		0	RIN => sub{return $self -> tag_rin(shift, shift)},
3394	0			0		0	SUBM => sub{return $self -> tag_submitter_xref(shift, shift)},
3395	0			0		0	TEMP => sub{return $self -> tag_temple_code(shift, shift)},
3396							}
3397	0					0	);
3398
3399							} # End of tag_submission_record.
3400
3401							# --------------------------------------------------
3402
3403							sub tag_submission_repository_citation
3404							{
3405	0			0	0	0	my($self, $index, $line) = @_;
3406	0					0	my($id) = $self -> get_sub_name(caller 0);
3407
3408	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3409	0					0	$self -> push_item($$line[$index], 'Submission');
3410
3411							return $self -> tag_advance
3412							(
3413							$id,
3414							++$index,
3415							$line,
3416							{
3417	0			0		0	CALN => sub{return $self -> tag_source_call_number(shift, shift)},
3418	0			0		0	MEDI => sub{return $self -> tag_source_media_type(shift, shift)},
3419	0			0		0	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3420							}
3421	0					0	);
3422
3423							} # End of tag_submission_repository_citation.
3424
3425							# --------------------------------------------------
3426
3427							sub tag_submission_xref
3428							{
3429	0			0	0	0	my($self, $index, $line) = @_;
3430	0					0	my($id) = $self -> get_sub_name(caller 0);
3431
3432	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3433	0					0	$self -> push_item($$line[$index], 'Submission');
3434
3435	0					0	return ++$index;
3436
3437							} # End of tag_submission_xref.
3438
3439							# --------------------------------------------------
3440
3441							sub tag_submitter_record
3442							{
3443	2			2	0	7	my($self, $index, $line) = @_;
3444	2					27	my($id) = $self -> get_sub_name(caller 0);
3445
3446	2					16	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3447	2					20	$self -> push_item($$line[$index], 'Submitter');
3448
3449							return $self -> tag_advance
3450							(
3451							$id,
3452							++$index,
3453							$line,
3454							{
3455	0			0		0	CHAN => sub{return $self -> tag_change_date1(shift, shift)},
3456	0			0		0	LANG => sub{return $self -> tag_language_preference(shift, shift)},
3457	2			2		12	NAME => sub{return $self -> tag_submitter_name(shift, shift)},
3458	2			2		12	NOTE => sub{return $self -> tag_note_structure(shift, shift)},
3459	0			0		0	OBJE => sub{return $self -> tag_multimedia_link(shift, shift)},
3460	0			0		0	RFN => sub{return $self -> tag_submitter_registered_rfn(shift, shift)},
3461	0			0		0	RIN => sub{return $self -> tag_rin(shift, shift)},
3462	2					291	$self -> tag_address_structure_tags,
3463							}
3464							);
3465
3466							} # End of tag_submitter_record.
3467
3468							# --------------------------------------------------
3469
3470							sub tag_submitter_registered_rfn
3471							{
3472	0			0	0	0	my($self, $index, $line) = @_;
3473	0					0	my($id) = $self -> get_sub_name(caller 0);
3474
3475	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3476	0					0	$self -> check_length($id, $$line[$index]);
3477	0					0	$self -> push_item($$line[$index], 'Submitter');
3478
3479	0					0	return ++$index;
3480
3481							} # End of tag_rfn.
3482
3483							# --------------------------------------------------
3484
3485							sub tag_submitter_name
3486							{
3487	2			2	0	5	my($self, $index, $line) = @_;
3488	2					19	my($id) = $self -> get_sub_name(caller 0);
3489
3490	2					17	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3491	2					21	$self -> check_length($id, $$line[$index]);
3492	2					7	$self -> push_item($$line[$index], 'Submission');
3493
3494	2					292	return ++$index;
3495
3496							} # End of tag_submitter_name.
3497
3498							# --------------------------------------------------
3499
3500							sub tag_submitter_xref
3501							{
3502	4			4	0	9	my($self, $index, $line) = @_;
3503	4					38	my($id) = $self -> get_sub_name(caller 0);
3504
3505	4					33	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3506	4					40	$self -> push_item($$line[$index], 'Submission');
3507
3508	4					610	return ++$index;
3509
3510							} # End of tag_submitter_xref.
3511
3512							# --------------------------------------------------
3513
3514							sub tag_temple_code
3515							{
3516	0			0	0	0	my($self, $index, $line) = @_;
3517	0					0	my($id) = $self -> get_sub_name(caller 0);
3518
3519	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3520	0					0	$self -> check_length($id, $$line[$index]);
3521	0					0	$self -> push_item($$line[$index], '');
3522
3523	0					0	return ++$index;
3524
3525							} # End of tag_temple_code.
3526
3527							# --------------------------------------------------
3528
3529							sub tag_text_from_source
3530							{
3531	0			0	0	0	my($self, $index, $line) = @_;
3532	0					0	my($id) = $self -> get_sub_name(caller 0);
3533
3534	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3535	0					0	$self -> check_length($id, $$line[$index]);
3536	0					0	$self -> push_item($$line[$index], '');
3537
3538							return $self -> tag_advance
3539							(
3540							$id,
3541							++$index,
3542							$line,
3543							{
3544	0			0		0	CONC => sub{return $self -> tag_concat(shift, shift)},
3545	0			0		0	CONT => sub{return $self -> tag_continue(shift, shift)},
3546							}
3547	0					0	);
3548
3549							} # End of tag_text_from_source.
3550
3551							# --------------------------------------------------
3552
3553							sub tag_time_value
3554							{
3555	2			2	0	5	my($self, $index, $line) = @_;
3556	2					26	my($id) = $self -> get_sub_name(caller 0);
3557
3558	2					17	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3559	2					24	$self -> check_length($id, $$line[$index]);
3560	2					7	$self -> push_item($$line[$index], '');
3561
3562	2					240	return ++$index;
3563
3564							} # End of tag_time_value.
3565
3566							# --------------------------------------------------
3567
3568							sub tag_trailer
3569							{
3570	8			8	0	20	my($self, $index, $line) = @_;
3571	8					73	my($id) = $self -> get_sub_name(caller 0);
3572
3573	8					113	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3574	8	50				81	$self -> log(warning => "Line: $$line[$index][0]. The unknown tag $$line[$index][3] was detected") if ($$line[$index][3] ne 'TRLR');
3575	8					25	$self -> push_item($$line[$index], 'Trailer');
3576
3577	8					953	return ++$index;
3578
3579							} # End of tag_trailer.
3580
3581							# --------------------------------------------------
3582
3583							sub tag_transmission_date
3584							{
3585	7			7	0	19	my($self, $index, $line) = @_;
3586	7					75	my($id) = $self -> get_sub_name(caller 0);
3587
3588	7					62	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3589	7					82	$self -> check_exact_date($id, $$line[$index]);
3590
3591							return $self -> tag_advance
3592							(
3593							$id,
3594							++$index,
3595							$line,
3596							{
3597	2			2		11	TIME => sub{return $self -> tag_time_value(shift, shift)},
3598							}
3599	7					1154	);
3600
3601							} # End of tag_transmission_date.
3602
3603							# --------------------------------------------------
3604
3605							sub tag_user_reference_number
3606							{
3607	0			0	0	0	my($self, $index, $line) = @_;
3608	0					0	my($id) = $self -> get_sub_name(caller 0);
3609
3610	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3611	0					0	$self -> check_length($id, $$line[$index]);
3612	0					0	$self -> push_item($$line[$index], '');
3613
3614							return $self -> tag_advance
3615							(
3616							$id,
3617							++$index,
3618							$line,
3619							{
3620	0			0		0	TYPE => sub{return $self -> tag_user_reference_type(shift, shift)},
3621							}
3622	0					0	);
3623
3624							} # End of tag_user_reference_number.
3625
3626							# --------------------------------------------------
3627
3628							sub tag_user_reference_type
3629							{
3630	0			0	0	0	my($self, $index, $line) = @_;
3631	0					0	my($id) = $self -> get_sub_name(caller 0);
3632
3633	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3634	0					0	$self -> check_length($id, $$line[$index]);
3635	0					0	$self -> push_item($$line[$index], '');
3636
3637	0					0	return ++$index;
3638
3639							} # End of tag_user_reference_type.
3640
3641							# --------------------------------------------------
3642
3643							sub tag_version_number
3644							{
3645	14			14	0	31	my($self, $index, $line) = @_;
3646	14					139	my($id) = $self -> get_sub_name(caller 0);
3647
3648	14					106	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3649	14					152	$self -> check_length($id, $$line[$index]);
3650	14					52	$self -> push_item($$line[$index], '');
3651
3652	14					2086	return ++$index;
3653
3654							} # End of tag_version_number.
3655
3656							# --------------------------------------------------
3657
3658							sub tag_where_within_source
3659							{
3660	0			0	0	0	my($self, $index, $line) = @_;
3661	0					0	my($id) = $self -> get_sub_name(caller 0);
3662
3663	0					0	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3664	0					0	$self -> check_length($id, $$line[$index]);
3665	0					0	$self -> push_item($$line[$index], 'Source');
3666
3667	0					0	return ++$index;
3668
3669							} # End of tag_page.
3670
3671							# --------------------------------------------------
3672
3673							sub tag_wife_xref
3674							{
3675	117			117	0	238	my($self, $index, $line) = @_;
3676	117					852	my($id) = $self -> get_sub_name(caller 0);
3677
3678	117					751	$self -> log(debug => "$id($$line[$index][0], '$$line[$index][5]')");
3679	117					990	$self -> push_item($$line[$index], 'Link to INDI');
3680
3681	117					13848	return ++$index;
3682
3683							} # End of tag_wife_xref.
3684
3685							# --------------------------------------------------
3686
3687							1;
3688
3689							=pod
3690
3691							=head1 NAME
3692
3693							L - An OS-independent lexer for GEDCOM data
3694
3695							=head1 Synopsis
3696
3697							Run scripts/lex.pl -help.
3698
3699							A typical run would be:
3700
3701							perl -Ilib scripts/lex.pl -i data/royal.ged -r 1 -s 1
3702
3703							Turn on debugging prints with:
3704
3705							perl -Ilib scripts/lex.pl -i data/royal.ged -r 1 -s 1 -max debug
3706
3707							royal.ged was downloaded from L. It's more up-to-date than the one shipped with L.
3708
3709							Various sample GEDCOM files may be found in the data/ directory in the distro.
3710
3711							=head1 Description
3712
3713							L provides a lexer for GEDCOM data.
3714
3715							See L.
3716
3717							=head1 Installation
3718
3719							Install L as you would for any C module:
3720
3721							Run:
3722
3723							cpanm Genealogy::Gedcom
3724
3725							or run:
3726
3727							sudo cpan Genealogy::Gedcom
3728
3729							or unpack the distro, and then either:
3730
3731							perl Build.PL
3732							./Build
3733							./Build test
3734							sudo ./Build install
3735
3736							or:
3737
3738							perl Makefile.PL
3739							make (or dmake or nmake)
3740							make test
3741							make install
3742
3743							=head1 Constructor and Initialization
3744
3745							C is called as C<< my($lexer) = Genealogy::Gedcom::Reader::Lexer -> new(k1 => v1, k2 => v2, ...) >>.
3746
3747							It returns a new object of type C.
3748
3749							Key-value pairs accepted in the parameter list (see corresponding methods for details [e.g. input_file()]):
3750
3751							=over 4
3752
3753							=item o input_file => $gedcom_file_name
3754
3755							Read the GEDCOM data from this file.
3756
3757							Default: ''.
3758
3759							=item o logger => $logger_object
3760
3761							Specify a logger object.
3762
3763							To disable logging, just set logger to the empty string.
3764
3765							Default: An object of type L.
3766
3767							=item o maxlevel => $level
3768
3769							This option is only used if the lexer creates an object of type L. See L.
3770
3771							Default: 'info'.
3772
3773							Log levels are, from highest (i.e. most output) to lowest: 'debug', 'info', 'warning', 'error'. No lower levels are used.
3774
3775							=item o minlevel => $level
3776
3777							This option is only used if the lexer creates an object of type L. See L.
3778
3779							Default: 'error'.
3780
3781							=item o report_items => $Boolean
3782
3783							=over 4
3784
3785							=item o 0 => Report nothing
3786
3787							=item o 1 => Call L to report, via the log, the items recognized by the lexer
3788
3789							This output is at log level 'info'.
3790
3791							=back
3792
3793							Default: 0.
3794
3795							=item o strict => $Boolean
3796
3797							Specifies lax or strict string length checking during validation.
3798
3799							=over 4
3800
3801							=item o 0 => String lengths can be 0, allowing blank NOTE etc records
3802
3803							=item o 1 => String lengths must be > 0, as per the GEDCOM Specification
3804
3805							Note: A string of length 1 - e.g. '0' - might still be an error.
3806
3807							=back
3808
3809							Default: 0.
3810
3811							The upper lengths on strings are always as per the GEDCOM Specification.
3812							See L for details.
3813
3814							String lengths out of range (as with all validation failures) are reported as log messages at level 'warning'.
3815
3816							=back
3817
3818							=head1 Methods
3819
3820							=head2 check_date($id, $line)
3821
3822							Checks the date field in the input arrayref $line, $$line[4].
3823
3824							$id identifies what type of record the $line is expected to be.
3825
3826							=head2 check_length($id, $line)
3827
3828							Checks the length of the data component (after the tag) on the input arrayref $line, $$line[4].
3829
3830							$id identifies what type of record the $line is expected to be.
3831
3832							=head2 cross_check_xrefs
3833
3834							Ensure that all xrefs point to existing records.
3835
3836							See L for details.
3837
3838							=head2 get_gedcom_from_file()
3839
3840							If the caller has requested GEDCOM data be read from a file, with the input_file option to new(), this method reads that file.
3841
3842							Called as appropriate by L, if you do not suppy data with L.
3843
3844							=head2 gedcom_data([$gedcom_data])
3845
3846							The [] indicate an optional parameter.
3847
3848							Get or set the arrayref of GEDCOM records to be processed.
3849
3850							This is normally only used internally, but can be used to bypass reading from a file.
3851
3852							Note: If supplying data this way rather than via the file, you must strip newlines etc on every line, as well as leading and trailing blanks.
3853
3854							=head2 get_max_length($id, $line)
3855
3856							Get the maximum string length of the data component (after the tag) on the given $line.
3857
3858							$id identifies what type of record the $line is expected to be.
3859
3860							=head2 get_min_length($id, $line)
3861
3862							Get the minimum string length of the data component (after the tag) on the given $line.
3863
3864							Currently, this value is actually the value of strict(), i.e. 0 or 1.
3865
3866							$id identifies what type of record the $line is expected to be.
3867
3868							=head2 input_file([$gedcom_file_name])
3869
3870							Here, the [] indicate an optional parameter.
3871
3872							Get or set the name of the file to read the GEDCOM data from.
3873
3874							=head2 items()
3875
3876							Returns a object of type L, which is an arrayref of items output by the lexer.
3877
3878							See the L for details.
3879
3880							=head2 log($level, $s)
3881
3882							Calls $self -> logger -> $level($s).
3883
3884							=head2 logger([$logger_object])
3885
3886							Here, the [] indicate an optional parameter.
3887
3888							Get or set the logger object.
3889
3890							To disable logging, just set logger to the empty string.
3891
3892							=head2 maxlevel([$string])
3893
3894							Here, the [] indicate an optional parameter.
3895
3896							Get or set the value used by the logger object.
3897
3898							This option is only used if the lexer creates an object of type L. See L.
3899
3900							=head2 minlevel([$string])
3901
3902							Here, the [] indicate an optional parameter.
3903
3904							Get or set the value used by the logger object.
3905
3906							This option is only used if the lexer creates an object of type L. See L.
3907
3908							=head2 push_item($line, $type)
3909
3910							Pushes a hashref of components of the $line, with type $type, onto the arrayref of items returned by L.
3911
3912							See the L for details.
3913
3914							=head2 renumber_items()
3915
3916							Scan the arrayref of hashrefs returned by items() and ensure the 'count' field is ok.
3917
3918							This is done in case array elements have been combined, e.g. when processing CONCs and CONTs for NOTEs.
3919
3920							=head2 report()
3921
3922							Report, via the log, the list of items recognized by the lexer.
3923
3924							=head2 report_items([0 or 1])
3925
3926							The [] indicate an optional parameter.
3927
3928							Get or set the value which determines whether or not to report the items recognised by the lexer.
3929
3930							=head2 run()
3931
3932							This is the only method the caller needs to call. All parameters are supplied to new(), or via previous calls to various methods.
3933
3934							Returns 0 for success and 1 for failure.
3935
3936							=head2 strict([0 or 1])
3937
3938							The [] indicate an optional parameter.
3939
3940							Get or set the value which determines whether or not to use 0 or 1 as the minimum string length.
3941
3942							=head1 FAQ
3943
3944							See L.
3945
3946							=head1 Repository
3947
3948							L
3949
3950							=head1 See Also
3951
3952							L.
3953
3954							.
3955
3956							=head1 Machine-Readable Change Log
3957
3958							The file Changes was converted into Changelog.ini by L.
3959
3960							=head1 Version Numbers
3961
3962							Version numbers < 1.00 represent development versions. From 1.00 up, they are production versions.
3963
3964							=head1 References
3965
3966							=over 4
3967
3968							=item o The original Perl L
3969
3970							=item o GEDCOM
3971
3972							=over 4
3973
3974							=item o L
3975
3976							=item o L
3977
3978							=item o L
3979
3980							=back
3981
3982							=item o Usage of non-standard tags
3983
3984							=over 4
3985
3986							=item o L
3987
3988							This is apparently the worst offender he's seen. Search that page for 'tags'.
3989
3990							=item o L
3991
3992							=item o L
3993
3994							=item o L
3995
3996							=back
3997
3998							=item o Other articles on Tamura's site
3999
4000							=over 4
4001
4002							=item o L
4003
4004							=item o L
4005
4006							=back
4007
4008							=item o Other projects
4009
4010							Many of these are discussed on Tamura's site.
4011
4012							=over 4
4013
4014							=item o L
4015
4016							=item o L
4017
4018							=item o L
4019
4020							=item o L
4021
4022							=item o L
4023
4024							=item o L
4025
4026							=item o L
4027
4028							=item o L
4029
4030							=item o L
4031
4032							=item o L
4033
4034							=item o L
4035
4036							=item o L
4037
4038							=back
4039
4040							=back
4041
4042							=head1 The Gedcom Mailing List
4043
4044							Contact perl-gedcom-help@perl.org.
4045
4046							=head1 Support
4047
4048							Email the author, or log a bug on RT:
4049
4050							L.
4051
4052							=head1 Author
4053
4054							L was written by Ron Savage Iron@savage.net.auE> in 2011.
4055
4056							Home page: L.
4057
4058							=head1 Copyright
4059
4060							Australian copyright (c) 2011, Ron Savage.
4061
4062							All Programs of mine are 'OSI Certified Open Source Software';
4063							you can redistribute them and/or modify them under the terms of
4064							The Artistic License, a copy of which is available at:
4065							http://www.opensource.org/licenses/index.html
4066