Cross Reference: /src/distrib/notes/common/extract-contrib-string.pl

Lines Matching defs:msg
89     local($fn,$msg) = @_;
90     print "XXX $fn line $.: $msg\n"
155 		$msg="";
158 		    $msg = $_;
163 		    $msg = $_;
164 		    $msg =~ s/^.*:\s+(This product.*)$/$1/;
173 		    $msg .= $_;
187 			while ($msg !~ /^.*``.*\n/) {
188 				last if (!$msg);
189 				$msg =~ s/^.*\n//o;
191 			$msg =~ s/^.*``//o;
192 			$msg =~ s/\n.*``//o;
193 			$msg =~ s/''.*$//o;
199 		$msg =~ s/''\s+Neither the name.*$//;
202 		while ($msg =~ /^\.\\"\s*/) {
203 			$msg =~ s/^\.\\"\s*//o;
205 		while ($msg =~ /\n\.\\"\s*/) {
206 			$msg =~ s/\n\.\\"\s*/\n/o;
208 		$msg =~ s/\n\.\\"\s*$/\n/g;
211 		while ($msg =~ /^\s*\/\/\s*/) {
212 			$msg =~ s/^\s*\/\/\s*//o;
214 		while ($msg =~ /\n\s*\/\/\s*$/) {
215 			$msg =~ s/\n\s*\/\/\s*$//o;
217 		$msg =~ s/\n\s*\/\/\s*/\n/g;
220 		while ($msg =~ /^\s*\*\s*/) {
221 			$msg =~ s/^\s*\*\s*//o;
223 		while ($msg =~ /\n\s*\*\s*$/) {
224 			$msg =~ s/\n\s*\*\s*$//o;
226 		$msg =~ s/\n\s*\*\s*/\n/g;
229 		while ($msg =~ /^\s*\@c\s+/) {
230 			$msg =~ s/^\s*\@c\s+//o;
232 		while ($msg =~ /\n\s*\@c\s+$/) {
233 			$msg =~ s/\n\s*\@c\s+$//o;
235 		$msg =~ s/\n\s*\@c\s+/\n/g;
237 		$msg =~ s/^REM\s*//g;			# BASIC?!?
238 		$msg =~ s/\nREM\s*/\n/g;		# BASIC?!?
239 		$msg =~ s/^dnl\s*//g;			# m4
240 		$msg =~ s/\ndnl\s*/\n/g;		# m4
241 		$msg =~ s/^\s+-\s+//g;			# seen in docbook files
242 		$msg =~ s/\n\s+-\s+/ /g;		#
243 		$msg =~ s/^[#\\\|";]+\s*//g;		# sh etc.
244 		$msg =~ s/\n[#\\\|";]+\s*/\n/g;		# sh etc.
245 		$msg =~ s/^[ 	*]*//g;      		# C
246 		$msg =~ s/\n[ 	*]*/\n/g;    		# C
248 		$msg =~ s/\@cartouche\n//;              # texinfo
250 		$msg =~ s/
//g;
252 		$msg =~ s/\s*\n/\n/g;
253 		$msg =~ s/^\s*//;
254 		$msg =~ s/\\\@/\@/g;
255 		$msg =~ s/\n\n/\n/g;
256 	        $msg =~ s/^\s*``//;
257 	        $msg =~ s/''\s*$//;
258 		$msg =~ s/^\"//o;
259 		$msg =~ s/\"$//o;
260 		$msg =~ s/\"\.$/./o;
263 		$msg =~ s/Lule\}/Lule\\(oa/g;
267 		$msg =~ s/(\w)  +(\w)/$1 $2/g;
271 		$msgs=$msg;
274 	      msg:
275 		foreach $msg (split(/\|/, $msgs)) {
276 		    while ($msg =~ /[\n\s]+$/) {
277 			$msg =~ s/[\n\s]+$//o;
279 		    next if ($msg eq "");
282 			print "$msg";
286 		    my $key = lc($msg);	# ignore difference in case
295 			if ($copyrights{$key} !~ /\.$/ && $msg =~ /\.$/) {
300 			    next msg;
304 		    $copyrights{$key} = $msg;
324 	my $msg = $copyrights{$key};
325 	print "<li>$msg</li>\n";
330 	my $msg = $copyrights{$key};
331 	print "<listitem>$msg</listitem>\n";
338 	my $msg = $copyrights{$key};
344 	print "$msg\n";
OpenGrok
