Permalink
Browse files

Version 1.12

  • Loading branch information...
1 parent e9aa8a7 commit aca2178b9184d92bc0caf8e0e8482e22811a3faa @pjcj committed Feb 21, 2005
Showing with 2,768 additions and 2,633 deletions.
  1. +5 −0 CHANGES
  2. +17 −15 Gedcom.pm
  3. +5 −5 Gedcom/CGI.pm
  4. +4 −4 Gedcom/Event.pm
  5. +7 −4 Gedcom/Family.pm
  6. +4 −4 Gedcom/Grammar.pm
  7. +2,475 −2,475 Gedcom/Grammar_5_5.pm
  8. +4 −4 Gedcom/Individual.pm
  9. +56 −18 Gedcom/Item.pm
  10. +4 −4 Gedcom/LifeLines.pm
  11. +4 −4 Gedcom/Record.pm
  12. +1 −0 MANIFEST
  13. +10 −3 Makefile.PL
  14. +2 −2 README
  15. +2 −0 TODO
  16. +6 −6 cgi-bin/gedcom.cgi
  17. +15 −10 ged
  18. +1 −1 gedcom.vim
  19. +50 −10 lines2perl
  20. +5 −5 parse_grammar
  21. +14 −7 t/Basic.pm
  22. +4 −4 t/Engine.pm
  23. +4 −4 t/Lines.pm
  24. +2 −2 t/basic.t
  25. +2 −2 t/bias.t
  26. +12 −5 t/birthdates.t
  27. +6 −6 t/ged_create.t
  28. +18 −0 t/grammar_file.t
  29. +2 −2 t/lines.t
  30. +1 −1 t/lines/bias
  31. +5 −5 t/lines/bias.plx
  32. +3 −3 t/lines/lines.plx
  33. +3 −3 t/lines/namefreq.plx
  34. +2 −2 t/namefreq.t
  35. +2 −2 t/parse_grammar.t
  36. +2 −2 t/read_only.t
  37. +2 −2 t/resolve.t
  38. +2 −2 t/resolve_read_only.t
  39. +5 −5 tkged
View
@@ -219,3 +219,8 @@ Release 1.10 - 5th March 2002
Release 1.11 - 7th April 2002
- Improvements to the algorithm in Gedcom::Grammar::item().
+
+Release 1.12 - 2nd February 2003
+ - Ignore CRLF differences in tests.
+ - Tighten up and improve XML output.
+ - Add some missing functions to lines2perl (John S. Quarterman).
View
@@ -1,4 +1,4 @@
-# Copyright 1998-2002, Paul Johnson (pjcj@cpan.org)
+# Copyright 1998-2003, Paul Johnson (pjcj@cpan.org)
# This software is free. It is licensed under the same terms as Perl itself.
@@ -26,7 +26,7 @@ my %Top_tag_order;
BEGIN
{
- $VERSION = "1.11";
+ $VERSION = "1.12";
$Tags =
{
@@ -216,10 +216,10 @@ sub AUTOLOAD
goto &$func
}
-use Gedcom::Grammar 1.11;
-use Gedcom::Individual 1.11;
-use Gedcom::Family 1.11;
-use Gedcom::Event 1.11;
+use Gedcom::Grammar 1.12;
+use Gedcom::Individual 1.12;
+use Gedcom::Family 1.12;
+use Gedcom::Event 1.12;
sub new
{
@@ -318,12 +318,12 @@ sub new
$l2->add("ADDR", "http://www.pjcj.net");
$l2 = $l1->add("DATA");
$l3 = $l2->add("COPR",
- 'Copyright 1998-2002, Paul Johnson (pjcj@cpan.org)');
+ 'Copyright 1998-2003, Paul Johnson (pjcj@cpan.org)');
$l1 = $l0->add("NOTE", "");
for (split /\n/, <<'EOH')
This output was generated by Gedcom.pm.
-Gedcom.pm is Copyright 1999-2002, Paul Johnson (pjcj@cpan.org)
-Version 1.11 - 7th April 2002
+Gedcom.pm is Copyright 1999-2003, Paul Johnson (pjcj@cpan.org)
+Version 1.12 - 2nd February 2003
Gedcom.pm is free. It is licensed under the same terms as Perl itself.
@@ -371,11 +371,13 @@ sub write_xml
my $file = shift or die "No filename specified";
$self->{fh} = FileHandle->new($file, "w") or die "Can't open $file: $!";
$self->{fh}->print(<<'EOH');
+<?xml version="1.0" encoding="utf-8"?>
+
<!--
This output was generated by Gedcom.pm.
-Gedcom.pm is Copyright 1999-2002, Paul Johnson (pjcj@cpan.org)
-Version 1.11 - 7th April 2002
+Gedcom.pm is Copyright 1999-2003, Paul Johnson (pjcj@cpan.org)
+Version 1.12 - 2nd February 2003
Gedcom.pm is free. It is licensed under the same terms as Perl itself.
@@ -634,7 +636,7 @@ __END__
Gedcom - a module to manipulate Gedcom genealogy files
-Version 1.11 - 7th April 2002
+Version 1.12 - 2nd February 2003
=head1 SYNOPSIS
@@ -667,7 +669,7 @@ Version 1.11 - 7th April 2002
=head1 DESCRIPTION
-Copyright 1998-2002, Paul Johnson (pjcj@cpan.org)
+Copyright 1998-2003, Paul Johnson (pjcj@cpan.org)
This software is free. It is licensed under the same terms as Perl itself.
@@ -857,8 +859,8 @@ DECstation, and partly because of laziness again. I'm not too sure
whether this is good or bad laziness yet. Time will tell no doubt.
As of version 1.05, you should be able to access all the data through
-functions. Well, read access anyway. The TODO list mentions something
-about improving the situation as far as write access is concerned.
+functions, and as of version 1.10 write access is available. I have a
+faster machine now.
Some of the more important hash members are:
View
@@ -1,4 +1,4 @@
-# Copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
+# Copyright 2001-2003, Paul Johnson (pjcj@cpan.org)
# This software is free. It is licensed under the same terms as Perl itself.
@@ -15,15 +15,15 @@ package Gedcom::CGI;
use CGI qw(:cgi :html);
-use Gedcom 1.11;
+use Gedcom 1.12;
use vars qw($VERSION);
-$VERSION = "1.11";
+$VERSION = "1.12";
sub gedcom
{
my ($gedcom_file) = @_;
- $gedcom_file = "/home/pjcj/ged/latest/$gedcom_file.ged";
+ $gedcom_file = "/home/pjcj/g/perl/dev/Gedcom/$gedcom_file.ged";
Gedcom->new(gedcom_file => $gedcom_file,
read_only => 1);
}
@@ -142,7 +142,7 @@ __END__
Gedcom::CGI - Basic CGI routines for Gedcom.pm
-Version 1.11 - 7th April 2002
+Version 1.12 - 2nd February 2003
=head1 SYNOPSIS
View
@@ -1,4 +1,4 @@
-# Copyright 1999-2002, Paul Johnson (pjcj@cpan.org)
+# Copyright 1999-2003, Paul Johnson (pjcj@cpan.org)
# This software is free. It is licensed under the same terms as Perl itself.
@@ -13,10 +13,10 @@ require 5.005;
package Gedcom::Event;
-use Gedcom::Record 1.11;
+use Gedcom::Record 1.12;
use vars qw($VERSION @ISA);
-$VERSION = "1.11";
+$VERSION = "1.12";
@ISA = qw( Gedcom::Record );
# sub type
@@ -45,7 +45,7 @@ __END__
Gedcom::Event - a module to manipulate Gedcom events
-Version 1.11 - 7th April 2002
+Version 1.12 - 2nd February 2003
=head1 SYNOPSIS
View
@@ -1,4 +1,4 @@
-# Copyright 1998-2002, Paul Johnson (pjcj@cpan.org)
+# Copyright 1998-2003, Paul Johnson (pjcj@cpan.org)
# This software is free. It is licensed under the same terms as Perl itself.
@@ -13,10 +13,10 @@ require 5.005;
package Gedcom::Family;
-use Gedcom::Record 1.11;
+use Gedcom::Record 1.12;
use vars qw($VERSION @ISA);
-$VERSION = "1.11";
+$VERSION = "1.12";
@ISA = qw( Gedcom::Record );
sub husband
@@ -112,7 +112,7 @@ __END__
Gedcom::Family - a module to manipulate Gedcom families
-Version 1.11 - 7th April 2002
+Version 1.12 - 2nd February 2003
=head1 SYNOPSIS
@@ -125,6 +125,9 @@ Version 1.11 - 7th April 2002
my @rel = $f->children;
my @rel = $f->boys;
my @rel = $f->girls;
+ $f->add_husband($i);
+ $f->add_wife($i);
+ $f->add_child($i);
=head1 DESCRIPTION
View
@@ -1,4 +1,4 @@
-# Copyright 1998-2002, Paul Johnson (pjcj@cpan.org)
+# Copyright 1998-2003, Paul Johnson (pjcj@cpan.org)
# This software is free. It is licensed under the same terms as Perl itself.
@@ -15,10 +15,10 @@ package Gedcom::Grammar;
use Data::Dumper;
-use Gedcom::Item 1.11;
+use Gedcom::Item 1.12;
use vars qw($VERSION @ISA);
-$VERSION = "1.11";
+$VERSION = "1.12";
@ISA = qw( Gedcom::Item );
sub structure
@@ -138,7 +138,7 @@ __END__
Gedcom::Grammar - a module to manipulate Gedcom grammars
-Version 1.11 - 7th April 2002
+Version 1.12 - 2nd February 2003
=head1 SYNOPSIS
Oops, something went wrong.

0 comments on commit aca2178

Please sign in to comment.