diff options
author | Karl Berry <karl@freefriends.org> | 2010-10-25 17:38:06 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-10-25 17:38:06 +0000 |
commit | d7446913ee9709a8ff4eefe0f3f04bc47c47c6fa (patch) | |
tree | b3923b16ad78a78565f110fd11b44aebedb7f98a /Master | |
parent | 98e9103a6f04557043c6860cdaf0e96fb33aaa32 (diff) |
add generated line
git-svn-id: svn://tug.org/texlive/trunk@20200 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-keywords | 12 | ||||
-rw-r--r-- | Master/tlpkg/texcatalogue.keywords | 1 |
2 files changed, 8 insertions, 5 deletions
diff --git a/Master/tlpkg/bin/tl-update-keywords b/Master/tlpkg/bin/tl-update-keywords index 52de2036601..42ac24f0309 100755 --- a/Master/tlpkg/bin/tl-update-keywords +++ b/Master/tlpkg/bin/tl-update-keywords @@ -48,11 +48,10 @@ sub main if (!defined($tcfile)) { $io = \*STDIN; } else { - if (! -f $tcfile) { - die "$progname: argument to --input is not a file: $!.\n"; - } - open($io, "<", $tcfile) or die "Cannot open input file $tcfile: $!"; + -f $tcfile || die "$progname: argument to --input is not a file: $!\n"; + open($io, "<", $tcfile) || die "Cannot open input file $tcfile: $!"; } + parse_texcatalogue($io); $Data::Dumper::Indent = 1; @@ -60,8 +59,11 @@ sub main if (!defined($output)) { $out = \*STDOUT; } else { - open($out, ">$output") or die "Cannot open $output for writing: $!"; + open($out, ">$output") || die "Cannot open output file $output: $!"; } + chomp (my $date = `LC_ALL=C date`); + chomp (my $progname = `basename $0`); + print $out "# Generated $date by $progname.\n"; print $out Data::Dumper->Dump([\%taxonomy], ["taxonomy"]), $/; } diff --git a/Master/tlpkg/texcatalogue.keywords b/Master/tlpkg/texcatalogue.keywords index 76dbc7ba2d6..56ae87d7d1a 100644 --- a/Master/tlpkg/texcatalogue.keywords +++ b/Master/tlpkg/texcatalogue.keywords @@ -1,3 +1,4 @@ +# Generated Mon Oct 25 19:37:27 CEST 2010 by tl-update-keywords. $taxonomy = { 'by-package' => { 'keyword' => { |