summaryrefslogtreecommitdiff
path: root/pl/copyright.pl
diff options
context:
space:
mode:
Diffstat (limited to 'pl/copyright.pl')
-rw-r--r--pl/copyright.pl71
1 files changed, 71 insertions, 0 deletions
diff --git a/pl/copyright.pl b/pl/copyright.pl
new file mode 100644
index 0000000..9725937
--- /dev/null
+++ b/pl/copyright.pl
@@ -0,0 +1,71 @@
+;# $Id: copyright.pl,v 3.0 1993/08/18 12:10:51 ram Exp $
+;#
+;# Copyright (c) 1991-1993, Raphael Manfredi
+;#
+;# You may redistribute only under the terms of the Artistic Licence,
+;# as specified in the README file that comes with the distribution.
+;# You may reuse parts of this distribution only within the terms of
+;# that same Artistic Licence; a copy of which may be found at the root
+;# of the source tree for dist 3.0.
+;#
+;# $Log: copyright.pl,v $
+;# Revision 3.0 1993/08/18 12:10:51 ram
+;# Baseline for dist 3.0 netwide release.
+;#
+;#
+;# Copyright expansion. The @COPYRIGHT@ symbol is expanded the first time
+;# it is seen in a file, and before the $Log RCS marker is reached. The
+;# automaton needs to be reset for each file.
+;#
+package copyright;
+
+# Read in copyright file
+sub init {
+ local($file) = @_; # Copyright file
+ undef @copyright;
+ open(COPYRIGHT, $file) || die "Can't open $file: $!\n";
+ chop(@copyright = <COPYRIGHT>);
+ close COPYRIGHT;
+}
+
+# Reset the automaton for a new file.
+sub reset {
+ $copyright_seen = @copyright ? 0 : 1;
+ $marker_seen = 0;
+}
+
+# Filter file, line by line, and expand the copyright string. The @COPYRIGHT@
+# symbol may be preceded by some random comment. A leader can be defined and
+# will be pre-pended to all the input lines.
+sub filter {
+ local($line, $leader) = @_; # Leader is optional
+ return $leader . $line if $copyright_seen || $marker_seen;
+ $marker_seen = 1 if $line =~ /\$Log[:\$]/;
+ $copyright_seen = 1 if $line =~ /\@COPYRIGHT\@/;
+ return $leader . $line unless $copyright_seen;
+ local($comment, $trailer) = $line =~ /^(.*)\@COPYRIGHT\@\s*(.*)/;
+ $comment = $leader . $comment;
+ $comment . join("\n$comment", @copyright) . "\n";
+}
+
+# Filter output of $cmd redirected into $file by expanding copyright, if any.
+sub expand {
+ local($cmd, $file) = @_;
+ if (@copyright) {
+ open(CMD,"$cmd|") || die "Can't start '$cmd': $!\n";
+ open(OUT, ">$file") || die "Can't create $file: $!\n";
+ &reset;
+ local($_);
+ while (<CMD>) {
+ print OUT &filter($_);
+ }
+ close OUT;
+ close CMD;
+ } else {
+ system "$cmd > $file";
+ die "Command '$cmd' failed!" if $?;
+ }
+}
+
+package main;
+