245 lines
6.7 KiB
Perl
245 lines
6.7 KiB
Perl
#!/usr/pkg/bin/perl
|
||
#
|
||
# Copyright (c) 2004 Hubert Feyrer <hubert@feyrer.de>
|
||
# All rights reserved.
|
||
#
|
||
# Redistribution and use in source and binary forms, with or without
|
||
# modification, are permitted provided that the following conditions
|
||
# are met:
|
||
# 1. Redistributions of source code must retain the above copyright
|
||
# notice, this list of conditions and the following disclaimer.
|
||
# 2. Redistributions in binary form must reproduce the above copyright
|
||
# notice, this list of conditions and the following disclaimer in the
|
||
# documentation and/or other materials provided with the distribution.
|
||
# 3. All advertising materials mentioning features or use of this software
|
||
# must display the following acknowledgement:
|
||
# This product includes software developed by Hubert Feyrer
|
||
# for the NetBSD Project.
|
||
# 4. The name of the author may not be used to endorse or promote products
|
||
# derived from this software without specific prior written permission.
|
||
#
|
||
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
||
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
||
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
||
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||
|
||
#
|
||
# Extract BSD-mandated copyright messages for NetBSD documentation
|
||
#
|
||
# Usage:
|
||
# 1) find /usr/src -type f -print \
|
||
# | grep -v sys/compat/freebsd/freebsd_rtprio.h \
|
||
# | perl extract-contrib-string.pl
|
||
# >x
|
||
# 2) merge text after "--------" in "x" into
|
||
# src/distrib/notes/common/legal.common
|
||
#
|
||
|
||
|
||
$ack_line1="[aA]ll( commercial)?( marketing or)? advertising materials mentioning( features)?";
|
||
$ack_line2="display the following( acknowledge?ment)?";
|
||
$ack_endline=
|
||
'(\d\.\s*(Neither the name'
|
||
. '|The name of the company nor the name' # Wasn't my idea
|
||
. '|The name of the author may not'
|
||
. '|The name of .* must not be used to endorse'
|
||
. '|The names? (of )?.* nor the names? of'
|
||
. '|The names? (of )?.* or any of it\'?s members'
|
||
. '|Redistributions of any form whatsoever'
|
||
. '|The names .*"OpenSSL Toolkit.*" and .*"OpenSSL Project.*" must not be used))'
|
||
.'|(THIS SOFTWARE IS PROVIDED)'
|
||
.'|(The word \'cryptographic\' can be left out if)'
|
||
.'|(may be used to endorse)'
|
||
.'|(@end cartouche)'
|
||
.'|(Redistribution and use in source and binary forms)'
|
||
.'|(may not be used to endorse)'
|
||
.'|(\.IP 4)'
|
||
.'|(ALLOW FREE USE OF)'
|
||
.'|(materials provided with the distribution)'
|
||
.'|(@InsertRedistribution@)';
|
||
|
||
$known_bad_clause_3_wording=
|
||
'sys/compat/hpux/hpux_exec_aout.c' # cgd@NetBSD.org
|
||
.'|sys/compat/hpux/hpux_exec.c' # cgd@NetBSD.org
|
||
.'|usr.bin/lex/.*' # UCB
|
||
.'|usr.sbin/hilinfo/hilinfo.c' # CSS @ Utah
|
||
;
|
||
|
||
sub warning {
|
||
local($fn,$msg) = @_;
|
||
print "XXX $fn line $.: $msg\n"
|
||
}
|
||
|
||
|
||
if ($ARGV[0]) {
|
||
$debug=1;
|
||
shift(@ARGV);
|
||
}
|
||
|
||
|
||
file:
|
||
while(<>) {
|
||
chomp();
|
||
$fn=$_;
|
||
|
||
open(F, "$fn") || die "cannot read $fn: $!\n";
|
||
|
||
line:
|
||
while(<F>) {
|
||
if (0 and /$ack_line2/i){
|
||
print "?> $_" if $debug;
|
||
|
||
if ($fn !~ m,$known_bad_clause_3_wording,) {
|
||
warning($fn, "clause 3 start not caught");
|
||
}
|
||
last line;
|
||
}
|
||
|
||
print "0> $_" if $debug;
|
||
|
||
if (/$ack_line1/i
|
||
or (/$ack_line2/ and $fn =~ m,$known_bad_clause_3_wording,)) {
|
||
|
||
print "1> $_" if $debug;
|
||
|
||
$_=<F>
|
||
unless $fn =~ m,$known_bad_clause_3_wording,;
|
||
if (/$ack_line2/i or $fn =~ m,$known_bad_clause_3_wording,){
|
||
|
||
print "2> $_" if $debug;
|
||
|
||
$msg="";
|
||
$cnt=0;
|
||
$_=<F>;
|
||
while(!/$ack_endline/i) {
|
||
|
||
print "C> $_" if $debug;
|
||
|
||
$msg .= $_;
|
||
$cnt++;
|
||
$_ = <F>;
|
||
if ($cnt > 10) {
|
||
warning($fn,"loooong copyright?");
|
||
last line;
|
||
}
|
||
}
|
||
|
||
print "E> $_" if $debug;
|
||
|
||
# post-process
|
||
$msg =~ s/^\@c\s*//g; # texinfo
|
||
$msg =~ s/\n\@c\s*/\n/g; # texinfo
|
||
$msg =~ s/^REM\s*//g; # BASIC?!?
|
||
$msg =~ s/\nREM\s*/\n/g; # BASIC?!?
|
||
$msg =~ s/^dnl\s*//g; # m4
|
||
$msg =~ s/\dnl\s*/\n/g; # m4
|
||
$msg =~ s/^\.\\"\s*//g; # *roff
|
||
$msg =~ s/\n\.\\"\s*/\n/g; # *roff
|
||
$msg =~ s/^[#\\\|";]*\s*//g; # sh etc.
|
||
$msg =~ s/\n[#\\\|";]\s*/\n/g; # sh etc.
|
||
$msg =~ s/^[ *]*//g; # C
|
||
$msg =~ s/\n[ *]*/\n/g; # C
|
||
$msg =~ s/\@cartouche\n//; # texinfo
|
||
|
||
$msg =~ s/
|
||
//g;
|
||
$msg =~ s/\s*\n/\n/g;
|
||
$msg =~ s/^\s*//;
|
||
$msg =~ s/\\\@/\@/g;
|
||
$msg =~ s/\n\n/\n/g;
|
||
$msg =~ s/^\s*"//;
|
||
$msg =~ s/"\s*$//;
|
||
$msg =~ s/^\s*``//;
|
||
$msg =~ s/''\s*$//;
|
||
$msg .= "\n" if $msg!~/\n$/;
|
||
|
||
|
||
# Split up into seperate paragraphs
|
||
#
|
||
$msgs=$msg;
|
||
$msgs=~s/(This (software|product))/|$1/g;
|
||
$msgs=~s,^\|,,;
|
||
msg:
|
||
foreach $msg (split(/\|/, $msgs)) {
|
||
print ".\\\" File $fn:\n";
|
||
print "$msg";
|
||
print "\n";
|
||
|
||
# Figure out if there's a version w/ or w/o trailing dot
|
||
#
|
||
if ($msg =~ /\.\n$/) {
|
||
# check if there's a version of the same msg
|
||
# w/ a trailing dot
|
||
$msg2=$msg;
|
||
$msg2=~s,\.\n$,\n,;
|
||
if ($copyrights{"$msg2"}) {
|
||
# already there - skip
|
||
print "already there, w/o dot - skipping!\n"
|
||
if $debug;
|
||
next msg;
|
||
}
|
||
|
||
# ... maybe with other case?
|
||
$lc_msg2=lc($msg2);
|
||
if ($lc_copyrights{$lc_msg2}) {
|
||
print "alreadu there, in different case - skipping\n"
|
||
if $debug;
|
||
next msg;
|
||
}
|
||
} else {
|
||
# check if there's a version of the same msg
|
||
# w/o the trailing dot
|
||
$msg2=$msg;
|
||
chomp($msg2);
|
||
$msg2.=".\n";
|
||
if ($copyrights{"$msg2"}) {
|
||
# already there - skip
|
||
print "already there, w/ dot - skipping!\n"
|
||
if $debug;
|
||
next msg;
|
||
}
|
||
|
||
# ... maybe with other case?
|
||
$lc_msg2=lc($msg2);
|
||
if ($lc_copyrights{$lc_msg2}) {
|
||
print "alreadu there, in different case - skipping\n"
|
||
if $debug;
|
||
next msg;
|
||
}
|
||
}
|
||
|
||
$copyrights{$msg} = 1;
|
||
$lc_copyrights{$lc_msg} = 1;
|
||
}
|
||
|
||
} else {
|
||
print "?> $_" if $debug;
|
||
|
||
if ($fn !~ m,$known_bad_clause_3_wording,) {
|
||
warning($fn, "bad clause 3?");
|
||
}
|
||
last line;
|
||
}
|
||
}
|
||
}
|
||
close(F);
|
||
}
|
||
|
||
|
||
print "------------------------------------------------------------\n";
|
||
|
||
$firsttime=1;
|
||
foreach $msg (sort keys %copyrights) {
|
||
if ($firsttime) {
|
||
$firsttime=0;
|
||
} else {
|
||
print ".It\n";
|
||
}
|
||
print "$msg";
|
||
}
|