diff options
author | Karl Berry <karl@freefriends.org> | 2021-10-03 20:29:06 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-10-03 20:29:06 +0000 |
commit | 28f1c89e56d775bac40b823db5f68910946938f0 (patch) | |
tree | a00ea8a3cc58b0e68606dd9c6d3cd37c180e0ac6 /Master/texmf-dist/scripts | |
parent | 26d496f10139dab271159080e44518addcaf8a3d (diff) |
pedigree-perl (3oct21)
git-svn-id: svn://tug.org/texlive/trunk@60686 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
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 |