GeSHi - Generic Syntax Highlighter

Xorg.conf

GeSHi 1.0.8.2 is the current stable release, with ten new languages and bug fixes over the last release.

GeSHi 1.1.2alpha3 is the current latest version from the development branch, with full C support (see the GeSHi development website).

Misc Stuff

Subscribe
Mailing Lists

Freshmeat
Project Record Vitality: 4477.47 Popularity: 1813.26 Rating: 8.42 Subscriptions: 74

Home News Examples Demo Downloads FAQ Documentation Mailing Lists License

9:03 am GMT

Demo Results

Here is the highlighted version of your file. If there are any problems with the highlighted version, check you're using the right language, and that your syntax is correct. If there still is a problem, mail a bug report to BenBE@geshi.org.

GeSHi © 2004-2007 Nigel McNie, 2007-2008 Benny Baumann, 2008 Milian Wolff
#!/usr/bin/perl
 
use strict;
use warnings;
use utf8;
 
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
 
do "NGramLangModel.pl";
 
our @iy = ( "i", "y", "í", "ý", "I", "Y", "Í", "Ý");
 
sub usage
{
        print "correct.pl trainFile N\n";
        print "Uses train file to train N-gram language model."; 
        print "Corrects i/y from STDIN and writes result to STDOUT.\n";
}
 
sub init
{
        my $posib = shift;
        my $tm = shift;
 
        my $i = @{$tm} - 1;
        while ($i >= 0) { 
                ${$posib}[$i] = getPosib($$tm[$i]);
                $i--;
        }
}
 
sub getPosib
{
        my $word = shift;
        my @posib = ();
        my $ver = 1;
 
#       print "Word: ", $word, "\n";
 
        if ( $word !~ /[íýiyÍÝIY]/) { 
                my @res = ();
                $res[0] = $word;
                return @res;
        }
 
        my @chars = split(//, $word);
 
        for my $i ( 0 .. $#chars ) {    
                my $c = $chars[$i];
                if ( $c =~ /[íýiyÍÝIY]/) {
                        
                        for my $j ( 0 .. $#iy ) {
                                # iy char
                                if ($c eq $iy[$j]) {
         
                   
          my $next = 0;
         
                   
          if ($j %2 == 0) { 
         
                   
                  $next = $j + 1;
         
                   
          } else { 
         
                   
                  $next = $j - 1;
         
                   
          }
 
         
                   
          for my $v ( 0 .. ($ver - 1) ) { 
         
                   
                  $posib[$v][$i] = $c;
 
         
                   
                  for my $tmpI ( 0 .. $i ) { 
         
                   
                   
      $posib[$v + $ver][$tmpI] = $posib[$v][$tmpI];
         
                   
                  }
 
         
                   
                  $posib[$v + $ver][$i] = $iy[$next];
         
                   
          }
 
#    
                   
              print $c, "=>",
$iy[$next], ": ", $posib[0], " vs ", $posib[1], "\n";
         
                   
          $ver *= 2;
         
                   
          last;
                                } 
#                               else { 
#    
                   
              print $i, ".", $j, ":
not ", $iy[$j], "\n";
#                               }
                        }
                } else { 
                        for my $v ( 0 .. ($ver - 1) ) {
#    
                   
      print $v, ":", $i, " = ", $c, "\n";     
                                $posib[$v][$i] = $c;
                        }
                }
        }
 
        my @res;
 
        for my $i ( 0 .. ($ver - 1) ) { 
                $res[$i] = join("", @{$posib[$i]});
#               print $i, ": ", $res[$i], "\n";
        }
 
        return @res;
}               
        
 
if ( $#ARGV < 0) { 
        usage();
        exit(3);
}
 
my $trainFile = $ARGV[0];
my $heldOutFile = $ARGV[1];
my $n = $ARGV[2]; 
my $bogusFile = $ARGV[3];
 
my $model = NGramLangModel->new($n, $trainFile);
$model->computeProbs();
$model->emSmooth($heldOutFile);
 
 
my $stream = NGramStream->new($bogusFile, $n);
 
my @prob = ();
my @used = ();
 
 
#inicializace
my $ngram = $stream->next();
 
my $i = $n - 1;
while ($i >= 0) { 
        my $tmpN = $n - $i;
 
#       print "tmpN: ", $tmpN, "(", $i, ")\n";
 
        my $j = $tmpN - 1;
        while ($j > 0) { 
                $used[$j] = $used[$j - 1];
 
#               print $j, ": ", $used[$j], "\n";
                $j--;
        }
 
        if ($$ngram[$i] !~ /[íýiyÍÝIY]/) { 
                $used[0] = $$ngram[$i];
        } else { 
        
                my @posib = getPosib($$ngram[$i]);
 
                my $max = 0;
                my $maxIndex = 0;
 
                for my $pos ( 0 .. $#posib ) { 
                        $used[0] = $posib[$pos];
                        my $p = $model->getSmoothedProb(\@used, $tmpN);
 
                        if ($p > $max) { 
                                $max = $p;
                                $maxIndex = $pos;
                        }
                }
 
                $used[0] = $posib[$maxIndex];
 
#               print $used[0], ": ", $max, "\n";
        }
 
        print $used[0], "\n";
 
 
        $i--;
}
 
 
while (my $ngram = $stream->next() ) { 
        my $i = $n - 1;
        while ($i > 0) { 
                $used[$i] = $used[$i - 1];
                $i--;
        }
 
        if ($$ngram[0] !~ /[íýiyÍÝIY]/) { 
                $used[0] = $$ngram[0];
        } else { 
                my @posib = getPosib($$ngram[0]);
 
                my $max = 0;
                my $maxIndex = 0;
 
                for my $pos ( 0 .. $#posib ) { 
                        $used[0] = $posib[$pos];
                        my $p = $model->getSmoothedProb(\@used, $n);
 
                        if ($p > $max) { 
                                $max = $p;
                                $maxIndex = $pos;
                        }
                }
 
                $used[0] = $posib[$maxIndex];
        }
 
        print $used[0], "\n";
}
 
 
 
 
exit;
 
 
#if ( $n !~ /\d+/ || $p !~ /0?\.\d+/) { 
#       usage();
#       exit(3);
#}
 
my $p = 0;
my $act = 0;
my $lines = 0;
 
while (<STDIN>) { 
        my @chars = split(//, $_);
 
        for my $i ( 0 .. $#chars ) { 
                my $c = $chars[$i];
                if ( $c =~ /[íýiy]/ && rand() < $p && $act < $n) { 
                        $c =~ tr/íýiy/ýíyi/;
                        $act++;
                }
                print $c;
        }
 
        $lines++;
 
        if ( $act == $n ) { 
                last;
        }
}
 
Parsed in 0.526 seconds at 7.10 KB/s

Statistics

Language used: perl
Statistic	Your source	Average for perl
Characters in source:	3820 (49324 in highlighted result)	3341.068
Total time highlighting:	0.596 seconds	0.354 seconds
Characters per second:	6407.128 chars per second	0.000/9147.038/314205.844 chars per second

Back to enter source