summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/pedigree-perl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/scripts/pedigree-perl')
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree.pm6
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm5
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm2
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm5
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm3
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm4
-rw-r--r--Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm3
-rwxr-xr-xMaster/texmf-dist/scripts/pedigree-perl/pedigree.pl32
11 files changed, 38 insertions, 31 deletions
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree.pm
index c92a027b865..4237a0bd358 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree.pm
@@ -15,8 +15,6 @@ $node = Pedigree->MakeNode($params);
This is the main package for pedigree construction. It calls other
libraries in the Pedigree:: family
-=over 4
-
=cut
@@ -43,6 +41,8 @@ use strict;
=pod
+=over 4
+
=item B<MakeNode>(I<$params>);
Construct a new node from the given parameters. Check what kind of node
@@ -103,7 +103,7 @@ Pedigree::TwinsNode(3),
=head1 AUTHOR
-Boris Veytsman, Leila Akhmadeeva, 2007
+Boris Veytsman, Leila Akhmadeeva, 2007-2021
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm
index df56988c16d..9f18768d2d9 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/AbortionNode.pm
@@ -20,7 +20,6 @@ $node->PrintLegend(I<$land>, I<@fields>);
This package contains data about an abortion. Abortion is like a person,
but it cannot have kids, and it is drawn differently
-=over 4
=cut
@@ -43,6 +42,8 @@ our @ISA=('Pedigree::PersonNode');
=pod
+=over 4
+
=item B<DrawNode>(I<$xdist>, I<$ydist>, I<$belowtextfont>, I<$abovetextfont>,
I<@fieldsfornode>);
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm
index 12cda99deb9..d62cc7b1b70 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Area.pm
@@ -48,7 +48,6 @@ The units are distances between the nodes in X and Y direction. The
Y axis is I<downward>: the earlier generations have smaller Y
coordinates.
-=over 4
=cut
@@ -66,6 +65,8 @@ use strict;
=pod
+=over 4
+
=item B<new>(I<$rootnode>);
Construct a new area around the given rootnode
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm
index db4b1c985b6..c932d97809c 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/ChildlessNode.pm
@@ -21,8 +21,6 @@ $node->PrintLegend(I<$land>, I<@fields>);
This package contains data about a "childlessness" node. This node
is not numbered in pedigree.
-=over 4
-
=cut
@@ -42,6 +40,9 @@ our @ISA=('Pedigree::PersonNode');
=pod
+=over 4
+
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm
index bcae95d3074..79494d617c9 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Language.pm
@@ -31,7 +31,6 @@ This package defines the language-dependent parts of the pedigree
library. The idea is to gather everything about language here, so adding
a new language should be (presumably) be easy.
-=over 4
=cut
@@ -53,6 +52,7 @@ use strict;
=pod
+=over 4
=item B<new>(I<$language>[, I<$encoding>]);
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm
index 39e20bf58f9..9061fd949a9 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/MarriageNode.pm
@@ -30,7 +30,6 @@ $node->DrawConnections();
This package contains data about a marriage.
-=over 4
=cut
@@ -52,6 +51,8 @@ our @ISA=('Pedigree::Node');
=pod
+=over 4
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm
index 445f92abafb..bf4b2a61cc5 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Node.pm
@@ -77,8 +77,6 @@ This is the basic package that defines nodes for pedigrees.
Pedigree::PersonNode(3) and Pedigree::MarriageNode(3) inherit from
this package.
-=over 4
-
=cut
####################################################################
@@ -133,6 +131,9 @@ our @twin_sets;
=pod
+=over 4
+
+
=item B<new>(I<%params>);
Construct a new node from the given parameters. If a node with
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm
index 7978064f473..53814777e12 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/Parser.pm
@@ -18,7 +18,6 @@ $parser->Parse($inputline);
This package parses input for the pedigree library and is used to
define nodes.
-=over 4
=cut
@@ -56,6 +55,8 @@ my %fields_to_convert = (
=pod
+=over 4
+
=item B<new>(I<$inputline>, I<$lang>);
Construct a new parser from the pipe-separated line at input
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm
index 6d341cb7157..bd98dda06b3 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/PersonNode.pm
@@ -36,8 +36,6 @@ $node->PrintLegend(I<$land>, I<@fields>);
This package contains data about a person.
-=over 4
-
=cut
####################################################################
@@ -55,6 +53,8 @@ our @ISA=('Pedigree::Node');
=pod
+=over 4
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.
diff --git a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm
index c8557230bd7..85f8454b76b 100644
--- a/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm
+++ b/Master/texmf-dist/scripts/pedigree-perl/Pedigree/TwinsNode.pm
@@ -22,7 +22,6 @@ $node->DrawConnections();
This package contains data about a twins node. Twins node is
a special node between the parent and the twins.
-=over 4
=cut
@@ -44,6 +43,8 @@ our @ISA=('Pedigree::Node');
=pod
+=over 4
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.
diff --git a/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl b/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl
index 209c3131bed..d5cc70a4e99 100755
--- a/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl
+++ b/Master/texmf-dist/scripts/pedigree-perl/pedigree.pl
@@ -1,6 +1,6 @@
#!/usr/bin/env perl
#
-# Copyright (C) 2006-2012 Boris Veytsman & Leila Akhmadeeva
+# Copyright (C) 2006-2021 Boris Veytsman & Leila Akhmadeeva
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -92,7 +92,7 @@ Pedigree::MarriageNode(3), Pedigree::Area(3).
=head1 AUTHOR
-Boris Veytsman, Leila Akhmadeeva, 2006-2012
+Boris Veytsman, Leila Akhmadeeva, 2006-2021
=cut
@@ -105,18 +105,18 @@ Boris Veytsman, Leila Akhmadeeva, 2006-2012
use strict;
use vars qw($opt_c $opt_d $opt_o $opt_s $opt_v);
-our $TLCONF; # TL config file
-our $TLCONFLOCAL; # TL local config file
-
-BEGIN {
- # find files relative to our installed location within TeX Live
- chomp(my $TLMaster = `kpsewhich -var-value=SELFAUTOPARENT`); # TL root
- if (length($TLMaster)) {
- unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
- $TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
- chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
- $TLCONFLOCAL .= "/pedigree/pedigree.cfg";
- }
+##############################
+# TeXLive compatibility stuff
+##############################
+my $TLMaster; # Where TeXlive is
+my $TLCONF; # TL config file
+my $TLCONFLOCAL; # TL local config file
+chomp($TLMaster = `kpsewhich -var-value=TEXMFROOT`);
+if (length($TLMaster)) {
+ unshift @INC, "$TLMaster/texmf-dist/scripts/pedigree-perl";
+ $TLCONF = "$TLMaster/texmf-config/pedigree/pedigree.cfg";
+ chomp($TLCONFLOCAL = `kpsewhich -var-value=TEXMFLOCAL`);
+ $TLCONFLOCAL .= "/pedigree/pedigree.cfg";
}
use Getopt::Std;
@@ -129,9 +129,9 @@ use Pedigree;
my $USAGE="Usage: $0 [-c configuration_file] [-d] [-o output_file] [-s start_id] input_file\n";
my $COPYRIGHT=<<END;
-$0 Version 1.0, April 2012
+$0 Version 0.5, October 2021
-Copyright (C) 2006-2012 Boris Veytsman & Leila Akhmadeeva
+Copyright (C) 2006-2021 Boris Veytsman & Leila Akhmadeeva
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by