Permalink
Browse files

Add 2 scripts from Daniel Richard G. to replace C++ line comments and…

… to show a summary of gcc warnings.

git-svn-id: https://geany.svn.sourceforge.net/svnroot/geany/trunk@2989 ea778897-0a13-0410-b9d1-a72fbfd435f5
  • Loading branch information...
1 parent bf3ea6c commit f3af26025ec2a5fab6fcfde5eba212207a54b6f3 @ntrel ntrel committed Sep 24, 2008
Showing with 156 additions and 0 deletions.
  1. +78 −0 scripts/fix-cxx-comments.pl
  2. +78 −0 scripts/warning-summary.pl
View
78 scripts/fix-cxx-comments.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/env perl
+# fix-cxx-comments.pl
+# Copyright (c) 2008, Daniel Richard G. <skunk(at)iskunk(dot)org>
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+# * Redistributions of source code must retain the above copyright
+# notice, this list of conditions and the following disclaimer.
+# * 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.
+# * Neither the name of the author nor the names of
+# contributors may be used to endorse or promote products derived from
+# this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+# "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 COPYRIGHT
+# OWNER OR CONTRIBUTORS 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.
+
+use strict;
+use warnings;
+
+sub xform($$$)
+{
+ my ($a, $b, $c) = @_;
+
+ $a =~ s!///!/**!;
+ $b =~ s!(\a\s*)///!$1 **!g;
+ $c =~ s!///! **!;
+
+ $a =~ s!//!/*!;
+ $b =~ s!(\a\s*)//!$1 *!g;
+ $c =~ s!//! *!;
+
+ $c .= ' */';
+
+ return $a . $b . $c . "\a";
+}
+
+sub fix_cxx_comments()
+{
+ s/\r//g; # This is Unix, not DOS
+ s/[\t ]+$//g; # Remove trailing whitespace
+ s/\n/\a/g; # Convert file to single line
+
+ # Process multi-line comments:
+ # $1 = first line of comment, $3 = last line, $2 = lines in between
+ s! (\a\s*//[^\a]*) ((?:\a\s*//[^\a]*)*) (\a\s*//[^\a]*)\a !xform($1,$2,$3)!egx;
+
+ # Process /// single-line comments
+ s! (\a\s*)///(\s?)([^\a]*)\a !$1/**$2$3$2*/\a!gx;
+ s! (\s+)///(\s?)([^\a]*)\a !$1/**$2$3$2*/\a!gx;
+
+ # Process // single-line comments
+ s! (\a\s*)//(\s?)([^\a]*)\a !$1/*$2$3$2*/\a!gx;
+ s! (\s+)//(\s?)([^\a]*)\a !$1/*$2$3$2*/\a!gx;
+
+ s/\a/\n/g; # Convert back to multiple lines
+}
+
+{
+ local $/;
+ $_ = <>;
+ fix_cxx_comments();
+ print;
+}
+
View
78 scripts/warning-summary.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/env perl
+# warning-summary.pl
+# Copyright (c) 2008, Daniel Richard G. <skunk(at)iskunk(dot)org>
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+# * Redistributions of source code must retain the above copyright
+# notice, this list of conditions and the following disclaimer.
+# * 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.
+# * Neither the name of the author nor the names of
+# contributors may be used to endorse or promote products derived from
+# this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+# "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 COPYRIGHT
+# OWNER OR CONTRIBUTORS 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.
+
+use strict;
+use warnings;
+
+use encoding 'utf8';
+
+binmode(STDIN, ":utf8");
+
+open(OUT, "| sort | uniq -c | sort -nr");
+binmode(OUT, ":utf8");
+
+while (<>)
+{
+ /warning:/ || next;
+ /near initialization for/ && next;
+ /shadowed declaration is here/ && next;
+ /\(this will be reported only once per input file\)/ && next;
+
+ s/^.*: warning: //g;
+
+ tr/\x{2018}\x{2019}/''/;
+
+ s/\barg(ument|) \d+\b/arg$1 N/g;
+
+ s/\b(type|function|variable|enumeration value|declaration of|argument N of|parameter|type of|type of bit-field|prototype for) '[^']+'/$1 'blah'/g;
+
+ s/"[^"]+" (is not defined)/"BLAH" $1/g;
+
+ s/'[^']+' (defined but not used)/'blah' $1/g;
+
+ s/format '%\w+'/format '%blah'/g;
+
+ s/'%\w+' printf format/'%blah' printf format/g;
+
+ s/'\d+'/'NNN'/g;
+
+ s/'[^']+' (declared 'static' but never defined)/'blah' $1/g;
+
+ s/(missing braces around initializer for) '\w+'/$1 'blah'/g;
+
+ s/(missing initializer for member) '\w+::\w+'/$1 'Foo::bar'/g;
+
+ print OUT;
+}
+
+close(OUT);
+
+# end warning-summary.pl
+

0 comments on commit f3af260

Please sign in to comment.