Item11808: perltidy them all, so people are not accidentally impacted…

… by the new enforced rule -- Sorry Micha, could not find a way to define specific values within the file git-svn-id: http://svn.foswiki.org/trunk/SyntaxHighlightingPlugin@14686 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · May 4, 2012 · 6ecc5bc · 6ecc5bc
1 parent 5b48ff3
commit 6ecc5bc
Showing 1 changed file with 117 additions and 102 deletions.
diff --git a/lib/Foswiki/Plugins/SyntaxHighlightingPlugin.pm b/lib/Foswiki/Plugins/SyntaxHighlightingPlugin.pm
@@ -12,7 +12,7 @@
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details, published at 
+# GNU General Public License for more details, published at
 # http://www.gnu.org/copyleft/gpl.html
 #
 # =========================
@@ -22,97 +22,98 @@
 # Nicolas Tisserand (tisser_n@epita.fr), Nicolas Burrus (burrus_n@epita.fr)
 # and Perceval Anichini (anichi_p@epita.fr)
 # Current version by Andrew Jones (andrewjones86@gmail.com)
-# 
+#
 # It uses enscript as syntax highlighter.
-# 
+#
 # Use it in your by writing %CODE{"language"}% ... %ENDCODE%
 # with language = ada asm awk bash c changelog c++ csh delphi diff diffs diffu elisp fortran fortran_pp haskell html idl inf java javascript
 # ksh m4 mail makefile maple matlab modula_2 nested nroff objc outline pascal perl postscript python rfc scheme sh skill sql states synopsys
-# tcl tcsh tex vba verilog vhdl vrml wmlscript zsh 
+# tcl tcsh tex vba verilog vhdl vrml wmlscript zsh
 
 package Foswiki::Plugins::SyntaxHighlightingPlugin;
 use strict;
 
-use IPC::Run qw( run ) ;
+use IPC::Run qw( run );
 
 use vars qw(    $VERSION
-                $RELEASE
-                $NO_PREFS_IN_TOPIC
-                $SHORTDESCRIPTION
-                $pluginName
-                %langs
-                );
+  $RELEASE
+  $NO_PREFS_IN_TOPIC
+  $SHORTDESCRIPTION
+  $pluginName
+  %langs
+);
 our $VERSION = '$Rev$';
 our $RELEASE = '1.21';
-our $SHORTDESCRIPTION = 'Highlights code fragments for many languages using ==enscript==.';
+our $SHORTDESCRIPTION =
+  'Highlights code fragments for many languages using ==enscript==.';
 our $NO_PREFS_IN_TOPIC = 1;
-our $pluginName = 'SyntaxHighlightingPlugin';
+our $pluginName        = 'SyntaxHighlightingPlugin';
 
 our %langs = (
-		 "ada" => "ada",
-		 "asm" => "asm",
-		 "awk" => "awk",
-		 "bash" => "bash",
-		 "c" => "c",
-		 "changelog" => "changelog",
-		 "cpp" => "cpp",
-		 "c++" => "cpp",
-		 "csh" => "csh",
-		 "delphi" => "delphi",
-		 "diff" => "diff",
-		 "diffs" => "diffs",
-		 "diffu" => "diffu",
-		 "elisp" => "elisp",
-		 "fortran" => "fortran",
-		 "fortran_pp" => "fortran_pp",
-		 "haskell" => "haskell",
-		 "html" => "html",
-		 "idl" => "idl",
-		 "inf" => "inf",
-		 "java" => "java",
-		 "javascript" => "javascript",
-		 "ksh" => "ksh",
-		 "m4" => "m4",
-		 "mail" => "mail",
-		 "makefile" => "makefile",
-		 "maple" => "maple",
-		 "matlab" => "matlab",
-		 "modula_2" => "modula_2",
-		 "nested" => "nested",
-		 "nroff" => "nroff",
-		 "objc" => "objc",
-		 "outline" => "outline",
-		 "pascal" => "pascal",
-		 "perl" => "perl",
-		 "postscript" => "postscript",
-		 "python" => "python",
-		 "rfc" => "rfc",
-		 "scheme" => "scheme",
-		 "sh" => "sh",
-		 "skill" => "skill",
-		 "sql" => "sql",
-		 "states" => "states",
-		 "synopsys" => "synopsys",
-		 "tcl" => "tcl",
-		 "tcsh" => "tcsh",
-		 "tex" => "tex",
-		 "tiger" => "tiger",
-		 "vba" => "vba",
-		 "verilog" => "verilog",
-		 "vhdl" => "vhdl",
-		 "vrml" => "vrml",
-		 "wmlscript" => "wmlscript",
-		 "zsh" => "zsh"
-    );
+    "ada"        => "ada",
+    "asm"        => "asm",
+    "awk"        => "awk",
+    "bash"       => "bash",
+    "c"          => "c",
+    "changelog"  => "changelog",
+    "cpp"        => "cpp",
+    "c++"        => "cpp",
+    "csh"        => "csh",
+    "delphi"     => "delphi",
+    "diff"       => "diff",
+    "diffs"      => "diffs",
+    "diffu"      => "diffu",
+    "elisp"      => "elisp",
+    "fortran"    => "fortran",
+    "fortran_pp" => "fortran_pp",
+    "haskell"    => "haskell",
+    "html"       => "html",
+    "idl"        => "idl",
+    "inf"        => "inf",
+    "java"       => "java",
+    "javascript" => "javascript",
+    "ksh"        => "ksh",
+    "m4"         => "m4",
+    "mail"       => "mail",
+    "makefile"   => "makefile",
+    "maple"      => "maple",
+    "matlab"     => "matlab",
+    "modula_2"   => "modula_2",
+    "nested"     => "nested",
+    "nroff"      => "nroff",
+    "objc"       => "objc",
+    "outline"    => "outline",
+    "pascal"     => "pascal",
+    "perl"       => "perl",
+    "postscript" => "postscript",
+    "python"     => "python",
+    "rfc"        => "rfc",
+    "scheme"     => "scheme",
+    "sh"         => "sh",
+    "skill"      => "skill",
+    "sql"        => "sql",
+    "states"     => "states",
+    "synopsys"   => "synopsys",
+    "tcl"        => "tcl",
+    "tcsh"       => "tcsh",
+    "tex"        => "tex",
+    "tiger"      => "tiger",
+    "vba"        => "vba",
+    "verilog"    => "verilog",
+    "vhdl"       => "vhdl",
+    "vrml"       => "vrml",
+    "wmlscript"  => "wmlscript",
+    "zsh"        => "zsh"
+);
 
 # =========================
 
 sub initPlugin {
-    my( $topic, $web, $user, $installWeb ) = @_;
-    
+    my ( $topic, $web, $user, $installWeb ) = @_;
+
     # Plugin correctly initialized
     _Debug("initPlugin( $web.$topic ) is OK");
-    
+
     return 1;
 }
 
@@ -125,60 +126,73 @@ sub commonTagsHandler {
 # =========================
 
 sub _handleTag {
-    
+
     my %params = Foswiki::Func::extractParameters($1);
-    my $lang = lc$params{lang} || lc$params{_DEFAULT}; # language
-    my $num = lc$params{num} || lc$params{number} || lc$params{numbered}; # start line number
-    my $code = $2; # code to highlight
-
-    unless( _definedLang( $lang ) ){
-        return _returnError("Language is either undefined or unsupported. Check %SYSTEMWEB%.$pluginName for more information.");
+    my $lang = lc $params{lang} || lc $params{_DEFAULT};    # language
+    my $num =
+         lc $params{num}
+      || lc $params{number}
+      || lc $params{numbered};    # start line number
+    my $code = $2;                # code to highlight
+
+    unless ( _definedLang($lang) ) {
+        return _returnError(
+"Language is either undefined or unsupported. Check %SYSTEMWEB%.$pluginName for more information."
+        );
     }
-    
-    my $highlighted = _highlight($code, $lang);
-    
-    if ($highlighted =~ s/.*\<PRE\>\n(.*?)\n?\<\/PRE\>.*/$1/os){
+
+    my $highlighted = _highlight( $code, $lang );
+
+    if ( $highlighted =~ s/.*\<PRE\>\n(.*?)\n?\<\/PRE\>.*/$1/os ) {
         if ($num) {
             my $line = $num;
-            $highlighted =~ s/(^.*)/sprintf("<b><font color=\"#000000\">%5d<\/font><\/b>\t%s", $line++, $1)/mgeo
+            $highlighted =~
+s/(^.*)/sprintf("<b><font color=\"#000000\">%5d<\/font><\/b>\t%s", $line++, $1)/mgeo;
         }
         my $out = "<!-- !$pluginName -->";
         $out .= "<pre class='syntaxHighlightingPlugin'>$highlighted</pre>";
         $out .= "<!-- end !$pluginName -->";
         return $out;
-    } else {
-        _Warn('Error with enscript while highlighting. Check its installed correctly and the path is correct');
-        _returnError('Internal error. Notify you administrator at %WIKIWEBMASTER%.');
+    }
+    else {
+        _Warn(
+'Error with enscript while highlighting. Check its installed correctly and the path is correct'
+        );
+        _returnError(
+            'Internal error. Notify you administrator at %WIKIWEBMASTER%.');
     }
 }
 
 # =========================
 
 # runs enscript to highlight the code
 sub _highlight {
-    my( $code, $lang ) = @_;
-
-    my $enscript = $Foswiki::cfg{Plugins}{$pluginName}{EnscriptPath} || 'enscript';
-
+    my ( $code, $lang ) = @_;
+
+    my $enscript = $Foswiki::cfg{Plugins}{$pluginName}{EnscriptPath}
+      || 'enscript';
+
     my @cmd;
     push @cmd, $enscript;
-    push @cmd, qw( --color --language=html --output - --silent) ;
-    push @cmd, "--highlight=$langs{lc($lang)}" ;
-    my $out = '' ;
+    push @cmd, qw( --color --language=html --output - --silent);
+    push @cmd, "--highlight=$langs{lc($lang)}";
+    my $out = '';
+
     # FIXME: Should we use Foswiki::Sandbox instead?
-    run \@cmd, \$code, \$out ;
+    run \@cmd, \$code, \$out;
 
     return $out;
 }
 
 # checks the language is supported
 sub _definedLang {
-    
-    my( $lang ) = @_;
-    
-    if( exists $langs{lc($_[0])} ){
+
+    my ($lang) = @_;
+
+    if ( exists $langs{ lc( $_[0] ) } ) {
         return 1;
-    } else {
+    }
+    else {
         return 0;
     }
 }
@@ -187,7 +201,7 @@ sub _definedLang {
 
 # output an error to screen
 sub _returnError {
-    my( $text ) = @_;
+    my ($text) = @_;
 
     my $out = '<span class="foswikiAlert">';
     $out .= "%SYSTEMWEB%.$pluginName - $text";
@@ -201,12 +215,13 @@ sub _returnError {
 sub _Debug {
     my $text = shift;
     my $debug = $Foswiki::cfg{Plugins}{$pluginName}{Debug} || 0;
-    Foswiki::Func::writeDebug( "- Foswiki::Plugins::${pluginName}: $text" ) if $debug;
+    Foswiki::Func::writeDebug("- Foswiki::Plugins::${pluginName}: $text")
+      if $debug;
 }
 
 sub _Warn {
     my $text = shift;
-    Foswiki::Func::writeWarning( "- Foswiki::Plugins::${pluginName}: $text" );
+    Foswiki::Func::writeWarning("- Foswiki::Plugins::${pluginName}: $text");
 }
 
 1;