diff options
author | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-12-23 16:27:24 +0000 |
---|---|---|
committer | Akira Kakuto <kakuto@fuk.kindai.ac.jp> | 2016-12-23 16:27:24 +0000 |
commit | d1cfc0855275b55794810162e7ce04a1e16d5188 (patch) | |
tree | 2e2626ee0e4738e8d6b6624c2d7fafe506b3dbfb /Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl | |
parent | 932a0f6f62cb2f33be1bade4059504d9c2749f9c (diff) |
libgd 2.2.3
git-svn-id: svn://tug.org/texlive/trunk@42778 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl')
-rw-r--r-- | Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl | 116 |
1 files changed, 58 insertions, 58 deletions
diff --git a/Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl b/Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl index bcccabe8929..e1c34624a81 100644 --- a/Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl +++ b/Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl @@ -1,58 +1,58 @@ -#!/usr/bin/env perl
-
-# Copy C source files (i.e. *.[ch]) from $src to $dest, first
-# stripping out uses of the macro BGD_DECLARE(<type>). A line must
-# begin with 'BGD_DECLARE' for it to be considered a use.
-
-use strict;
-use warnings;
-
-use File::Basename;
-
-my ($src, $dest) = @ARGV;
-
-die "Invalid arguments: nobgd.pl <src-dir> <dest-dir>\n"
- unless ($src && $dest && -d $src && -d $dest);
-
-for my $file (glob("$src/*.c"), glob("$src/*.h")) {
- do {local $| = 1; print "."};
- fixup($file, $dest);
-}
-print "\n";
-
-sub fixup {
- my ($src, $destDir) = @_;
- my $dest = $destDir . "/" . basename($src);
-
- my $content = slurp($src);
- $content =~ s{^ BGD_DECLARE \( ([^)]+) \)}{$1}gmx;
- unslurp($dest, $content);
-}
-
-
-sub slurp {
- my ($filename) = @_;
- local $/; # no file separator
- my $data;
-
- open my $fh, "<", $filename
- or die "Unable to read file '$filename'.\n";
- $data = <$fh>;
- close($fh);
-
- return $data;
-}
-
-
-sub unslurp {
- my ($filename, $data) = @_;
-
- die "Refusing to overwrite file '$filename'\n" if -f $filename;
-
- open my $fh, ">", $filename
- or die "Unable to open '$filename' for writing.\n";
- print {$fh} $data
- or die "Error writing file '$filename'\n";
- close ($fh);
-}
-
+#!/usr/bin/env perl + +# Copy C source files (i.e. *.[ch]) from $src to $dest, first +# stripping out uses of the macro BGD_DECLARE(<type>). A line must +# begin with 'BGD_DECLARE' for it to be considered a use. + +use strict; +use warnings; + +use File::Basename; + +my ($src, $dest) = @ARGV; + +die "Invalid arguments: nobgd.pl <src-dir> <dest-dir>\n" + unless ($src && $dest && -d $src && -d $dest); + +for my $file (glob("$src/*.c"), glob("$src/*.h")) { + do {local $| = 1; print "."}; + fixup($file, $dest); +} +print "\n"; + +sub fixup { + my ($src, $destDir) = @_; + my $dest = $destDir . "/" . basename($src); + + my $content = slurp($src); + $content =~ s{^ BGD_DECLARE \( ([^)]+) \)}{$1}gmx; + unslurp($dest, $content); +} + + +sub slurp { + my ($filename) = @_; + local $/; # no file separator + my $data; + + open my $fh, "<", $filename + or die "Unable to read file '$filename'.\n"; + $data = <$fh>; + close($fh); + + return $data; +} + + +sub unslurp { + my ($filename, $data) = @_; + + die "Refusing to overwrite file '$filename'\n" if -f $filename; + + open my $fh, ">", $filename + or die "Unable to open '$filename' for writing.\n"; + print {$fh} $data + or die "Error writing file '$filename'\n"; + close ($fh); +} + |