summaryrefslogtreecommitdiff
path: root/Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-12-23 16:27:24 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-12-23 16:27:24 +0000
commitd1cfc0855275b55794810162e7ce04a1e16d5188 (patch)
tree2e2626ee0e4738e8d6b6624c2d7fafe506b3dbfb /Build/source/libs/gd/libgd-src/docs/naturaldocs/nobgd.pl
parent932a0f6f62cb2f33be1bade4059504d9c2749f9c (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.pl116
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);
+}
+