1#!/usr/bin/env perl 2# 3# Copyright (c) 2004 Hubert Feyrer <hubert@feyrer.de> 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 3. All advertising materials mentioning features or use of this software 15# must display the following acknowledgement: 16# This product includes software developed by Hubert Feyrer 17# for the NetBSD Project. 18# 4. The name of the author may not be used to endorse or promote products 19# derived from this software without specific prior written permission. 20# 21# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 22# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 23# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 24# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 25# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 26# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 27# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 28# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 29# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 30# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 31 32# 33# Extract BSD-mandated copyright messages for NetBSD documentation 34# 35# Usage: 36# 1) find /usr/src -type f -print \ 37# | grep -v sys/compat/freebsd/freebsd_rtprio.h \ 38# | perl extract-contrib-string.pl 39# >x 40# 2) merge text after "--------" in "x" into 41# src/distrib/notes/common/legal.common 42# 43 44 45$ack_line1="[aA]ll( commercial)?( marketing or)? advertising materials mentioning( features)?"; 46$ack_line2="display the following( acknowledge?ment)?"; 47$ack_endline= 48 '(\d\.\s*(Neither the name' 49 . '|The name of the company nor the name' # Wasn't my idea 50 . '|The name of the author may not' 51 . '|The name of .* must not be used to endorse' 52 . '|The names? (of )?.* nor the names? of' 53 . '|The names? (of )?.* or any of it\'?s members' 54 . '|Redistributions of any form whatsoever' 55 . '|The names .*"OpenSSL Toolkit.*" and .*"OpenSSL Project.*" must not be used))' 56 .'|(THIS SOFTWARE IS PROVIDED)' 57 .'|(The word \'cryptographic\' can be left out if)' 58 .'|(may be used to endorse)' 59 .'|(@end cartouche)' 60 .'|(Redistribution and use in source and binary forms)' 61 .'|(may not be used to endorse)' 62 .'|(\.IP 4)' 63 .'|(ALLOW FREE USE OF)' 64 .'|(materials provided with the distribution)' 65 .'|(@InsertRedistribution@)'; 66 67$known_bad_clause_3_wording= 68 'sys/compat/hpux/hpux_exec_aout.c' # cgd@NetBSD.org 69 .'|sys/compat/hpux/hpux_exec.c' # cgd@NetBSD.org 70 .'|usr.bin/lex/.*' # UCB 71 .'|usr.sbin/hilinfo/hilinfo.c' # CSS @ Utah 72 ; 73 74sub warning { 75 local($fn,$msg) = @_; 76 print "XXX $fn line $.: $msg\n" 77} 78 79 80if ($ARGV[0]) { 81 $debug=1; 82 shift(@ARGV); 83} 84 85 86file: 87while(<>) { 88 chomp(); 89 $fn=$_; 90 91 open(F, "$fn") || die "cannot read $fn: $!\n"; 92 93 line: 94 while(<F>) { 95 if (0 and /$ack_line2/i){ 96 print "?> $_" if $debug; 97 98 if ($fn !~ m,$known_bad_clause_3_wording,) { 99 warning($fn, "clause 3 start not caught"); 100 } 101 last line; 102 } 103 104 print "0> $_" if $debug; 105 106 if (/$ack_line1/i 107 or (/$ack_line2/ and $fn =~ m,$known_bad_clause_3_wording,)) { 108 109 print "1> $_" if $debug; 110 111 $_=<F> 112 unless $fn =~ m,$known_bad_clause_3_wording,; 113 if (/$ack_line2/i or $fn =~ m,$known_bad_clause_3_wording,){ 114 115 print "2> $_" if $debug; 116 117 $msg=""; 118 $cnt=0; 119 $_=<F>; 120 while(!/$ack_endline/i) { 121 122 print "C> $_" if $debug; 123 124 $msg .= $_; 125 $cnt++; 126 $_ = <F>; 127 if ($cnt > 10) { 128 warning($fn,"loooong copyright?"); 129 last line; 130 } 131 } 132 133 print "E> $_" if $debug; 134 135 # post-process 136 $msg =~ s/^\@c\s*//g; # texinfo 137 $msg =~ s/\n\@c\s*/\n/g; # texinfo 138 $msg =~ s/^REM\s*//g; # BASIC?!? 139 $msg =~ s/\nREM\s*/\n/g; # BASIC?!? 140 $msg =~ s/^dnl\s*//g; # m4 141 $msg =~ s/\dnl\s*/\n/g; # m4 142 $msg =~ s/^\.\\"\s*//g; # *roff 143 $msg =~ s/\n\.\\"\s*/\n/g; # *roff 144 $msg =~ s/^[#\\\|";]*\s*//g; # sh etc. 145 $msg =~ s/\n[#\\\|";]\s*/\n/g; # sh etc. 146 $msg =~ s/^[ *]*//g; # C 147 $msg =~ s/\n[ *]*/\n/g; # C 148 $msg =~ s/\@cartouche\n//; # texinfo 149 150 $msg =~ s/ 151//g; 152 $msg =~ s/\s*\n/\n/g; 153 $msg =~ s/^\s*//; 154 $msg =~ s/\\\@/\@/g; 155 $msg =~ s/\n\n/\n/g; 156 $msg =~ s/^\s*"//; 157 $msg =~ s/"\s*$//; 158 $msg =~ s/^\s*``//; 159 $msg =~ s/''\s*$//; 160 $msg .= "\n" if $msg!~/\n$/; 161 162 163 # Split up into separate paragraphs 164 # 165 $msgs=$msg; 166 $msgs=~s/(This (software|product))/|$1/g; 167 $msgs=~s,^\|,,; 168 msg: 169 foreach $msg (split(/\|/, $msgs)) { 170 print ".\\\" File $fn:\n"; 171 print "$msg"; 172 print "\n"; 173 174 # Figure out if there's a version w/ or w/o trailing dot 175 # 176 if ($msg =~ /\.\n$/) { 177 # check if there's a version of the same msg 178 # w/ a trailing dot 179 $msg2=$msg; 180 $msg2=~s,\.\n$,\n,; 181 if ($copyrights{"$msg2"}) { 182 # already there - skip 183 print "already there, w/o dot - skipping!\n" 184 if $debug; 185 next msg; 186 } 187 188 # ... maybe with other case? 189 $lc_msg2=lc($msg2); 190 if ($lc_copyrights{$lc_msg2}) { 191 print "already there, in different case - skipping\n" 192 if $debug; 193 next msg; 194 } 195 } else { 196 # check if there's a version of the same msg 197 # w/o the trailing dot 198 $msg2=$msg; 199 chomp($msg2); 200 $msg2.=".\n"; 201 if ($copyrights{"$msg2"}) { 202 # already there - skip 203 print "already there, w/ dot - skipping!\n" 204 if $debug; 205 next msg; 206 } 207 208 # ... maybe with other case? 209 $lc_msg2=lc($msg2); 210 if ($lc_copyrights{$lc_msg2}) { 211 print "already there, in different case - skipping\n" 212 if $debug; 213 next msg; 214 } 215 } 216 217 $copyrights{$msg} = 1; 218 $lc_copyrights{$lc_msg} = 1; 219 } 220 221 } else { 222 print "?> $_" if $debug; 223 224 if ($fn !~ m,$known_bad_clause_3_wording,) { 225 warning($fn, "bad clause 3?"); 226 } 227 last line; 228 } 229 } 230 } 231 close(F); 232} 233 234 235print "------------------------------------------------------------\n"; 236 237$firsttime=1; 238foreach $msg (sort keys %copyrights) { 239 if ($firsttime) { 240 $firsttime=0; 241 } else { 242 print ".It\n"; 243 } 244 print "$msg"; 245} 246