Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Saturday, October 17, 2026
[BACK] [TXT][DIR] Up to [Platon] / iotta / Iotta / Format / In

Diff for iotta/Iotta/Format/In/TextPre.pm between version 1.1 and 1.2

version 1.1, 2003/02/16 15:48:11 version 1.2, 2003/03/23 11:29:58
Line 7  sub run {
Line 7  sub run {
         my $m = shift;          my $m = shift;
         my $in = shift;          my $in = shift;
         my $out;          my $out;
           my $mark = "!\@CONVENIENCE LINEBREAK - bo <br>\@!";
         print "  parsing text format...\n";          print "  parsing text format...\n";
         $in =~ s/&/&amp;/g;          $in =~ s/&/&amp;/g;
         $in =~ s/</&lt;/g;          $in =~ s/</&lt;/g;
         $in =~ s/>/&gt;/g;          $in =~ s/>/&gt;/g;
         $in =~ s/\n\n/<\/p><p>/gsm;          $in =~ s/\n+$//;
         $in =~ s/\n/<br\/>/gsm;          $in =~ s/^((?:&nbsp;)*) /$1&nbsp;/gsm;
           $in =~ s/\n\n+/<\/p>$mark<p>/gsm;
           $in =~ s/\n/<br\/>$mark/gsm;
           $in =~ s/$mark/\n/gsm;
         $out = "<iotta-ifmt><p>$in</p></iotta-ifmt>\n";          $out = "<iotta-ifmt><p>$in</p></iotta-ifmt>\n";
         $s->next->run ($m, $out) if ($s->next);          $s->next->run ($m, $out) if ($s->next);
 }  }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top