summaryrefslogtreecommitdiff
path: root/Locale/Po4a
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2012-08-04 12:31:12 +0200
committerJonas Smedegaard <dr@jones.dk>2013-10-13 00:53:28 +0200
commitc4fe8bdb4f18e6ae6edf7c5beff82271f78c600d (patch)
treec537954e017e474bcbb8d7e9c778f941520ad266 /Locale/Po4a
parentddef37b4c152033f9238c2f46c49da3cb1a58192 (diff)
Drop Locale::Po4a::Text - all patches included in upstream po4a since 0.41-1.
Diffstat (limited to 'Locale/Po4a')
-rw-r--r--Locale/Po4a/Text.pm766
1 files changed, 0 insertions, 766 deletions
diff --git a/Locale/Po4a/Text.pm b/Locale/Po4a/Text.pm
deleted file mode 100644
index 02cae98..0000000
--- a/Locale/Po4a/Text.pm
+++ /dev/null
@@ -1,766 +0,0 @@
-#!/usr/bin/perl -w
-
-# Po4a::Text.pm
-#
-# extract and translate translatable strings from a text documents
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# 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.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-#
-########################################################################
-
-=encoding UTF-8
-
-=head1 NAME
-
-Locale::Po4a::Text - convert text documents from/to PO files
-
-=head1 DESCRIPTION
-
-The po4a (PO for anything) project goal is to ease translations (and more
-interestingly, the maintenance of translations) using gettext tools on
-areas where they were not expected like documentation.
-
-Locale::Po4a::Text is a module to help the translation of text documents into
-other [human] languages.
-
-Paragraphs are split on empty lines (or lines containing only spaces or
-tabulations).
-
-If a paragraph contains a line starting by a space (or tabulation), this
-paragraph won't be rewrapped.
-
-=cut
-
-package Locale::Po4a::Text;
-
-use 5.006;
-use strict;
-use warnings;
-
-require Exporter;
-use vars qw(@ISA @EXPORT);
-@ISA = qw(Locale::Po4a::TransTractor);
-@EXPORT = qw();
-
-use Locale::Po4a::TransTractor;
-use Locale::Po4a::Common;
-
-=head1 OPTIONS ACCEPTED BY THIS MODULE
-
-These are this module's particular options:
-
-=over
-
-=item B<nobullets>
-
-Deactivate detection of bullets.
-
-By default, when a bullet is detected, the bullet paragraph is not considered
-as a verbatim paragraph (with the no-wrap flag in the PO file), but the module
-rewrap this paragraph in the generated PO file and in the translation.
-
-=cut
-
-my $bullets = 1;
-
-=item B<tabs=>I<mode>
-
-Specify how tabulations shall be handled. The I<mode> can be any of:
-
-=over
-
-=item B<split>
-
-Lines with tabulations introduce breaks in the current paragraph.
-
-=item B<verbatim>
-
-Paragraph containing tabulations will not be re-wrapped.
-
-=back
-
-By default, tabulations are considered as spaces.
-
-=cut
-
-my $tabs = "";
-
-=item B<breaks=>I<regex>
-
-A regular expression matching lines which introduce breaks.
-The regular expression will be anchored so that the whole line must match.
-
-=cut
-
-my $breaks;
-
-=item B<debianchangelog>
-
-Handle the header and footer of
-released versions, which only contain non translatable informations.
-
-=cut
-
-my $debianchangelog = 0;
-
-=item B<fortunes>
-
-Handle the fortunes format, which separate fortunes with a line which
-consists in '%' or '%%', and use '%%' as the beginning of a comment.
-
-=cut
-
-my $fortunes = 0;
-
-=item B<markdown>
-
-Handle some special markup in Markdown-formatted texts.
-
-=cut
-
-my $markdown = 0;
-
-=item B<asciidoc>
-
-Handle documents in the AsciiDoc format.
-
-=cut
-
-my $asciidoc = 0;
-
-=back
-
-=cut
-
-sub initialize {
- my $self = shift;
- my %options = @_;
-
- $self->{options}{'asciidoc'} = 1;
- $self->{options}{'breaks'} = 1;
- $self->{options}{'debianchangelog'} = 1;
- $self->{options}{'debug'} = 1;
- $self->{options}{'fortunes'} = 1;
- $self->{options}{'markdown'} = 1;
- $self->{options}{'nobullets'} = 1;
- $self->{options}{'tabs'} = 1;
- $self->{options}{'verbose'} = 1;
-
- foreach my $opt (keys %options) {
- die wrap_mod("po4a::text",
- dgettext("po4a", "Unknown option: %s"), $opt)
- unless exists $self->{options}{$opt};
- $self->{options}{$opt} = $options{$opt};
- }
-
- if (defined $options{'nobullets'}) {
- $bullets = 0;
- }
-
- if (defined $options{'tabs'}) {
- $tabs = $options{'tabs'};
- }
-
- if (defined $options{'breaks'}) {
- $breaks = $options{'breaks'};
- }
-
- if (defined $options{'debianchangelog'}) {
- $debianchangelog=1;
- }
-
- if (defined $options{'fortunes'}) {
- $fortunes=1;
- }
-
- if (defined $options{'markdown'}) {
- $markdown=1;
- }
-
- $asciidoc=1 if (defined $options{'asciidoc'});
-}
-
-sub parse {
- my $self = shift;
- my ($line,$ref);
- my $paragraph="";
- my $wrapped_mode = 1;
- my $expect_header = 1;
- my $end_of_paragraph = 0;
- ($line,$ref)=$self->shiftline();
- my $file = $ref;
- $file =~ s/:[0-9]+$// if defined($line);
- while (defined($line)) {
- $ref =~ m/^(.*):[0-9]+$/;
- if ($1 ne $file) {
- $file = $1;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- $expect_header = 1;
- }
-
- chomp($line);
- $self->{ref}="$ref";
- if ($debianchangelog and
- $expect_header and
- $line =~ /^(\w[-+0-9a-z.]*)\ \(([^\(\) \t]+)\) # src, version
- \s+([-+0-9a-z.]+); # distribution
- \s*urgency\s*\=\s*(.*\S)\s*$/ix) { #
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $self->pushline("$line\n");
- $expect_header=0;
- } elsif ($debianchangelog and
- $line =~ m/^ \-\- (.*) <(.*)> ((\w+\,\s*)?\d{1,2}\s+\w+\s+\d{4}\s+\d{1,2}:\d\d:\d\d\s+[-+]\d{4}(\s+\([^\\\(\)]\))?)$/) {
- # Found trailer
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $self->pushline("$line\n");
- $expect_header=1;
- } elsif ($fortunes and
- $line =~ m/^%%?\s*$/) {
- # Found end of fortune
- do_paragraph($self,$paragraph,$wrapped_mode);
- $self->pushline("\n") unless ( $wrapped_mode == 0
- or $paragraph eq "");
- $paragraph="";
- $wrapped_mode = 1;
- $self->pushline("$line\n");
- } elsif ( (defined $self->{verbatim})
- and ($self->{verbatim} == 2)) {
- # Untranslated blocks
- $self->pushline($line."\n");
- if ($asciidoc and
- ($line =~ m/^(\/{4,}|~{4,})$/)) {
- undef $self->{verbatim};
- undef $self->{type};
- $wrapped_mode = 1;
- }
- } elsif ( ($line =~ /^\s*$/)
- or ( defined $breaks
- and $line =~ m/^$breaks$/)) {
- # Break paragraphs on lines containing only spaces
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1 unless defined($self->{verbatim});
- $self->pushline($line."\n");
- } elsif ($asciidoc and (not defined($self->{verbatim})) and
- ($line =~ m/^(\+|--)$/)) {
- # List Item Continuation or List Block
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $self->pushline($line."\n");
- } elsif ($asciidoc and (not defined($self->{verbatim})) and
- ($line =~ m/^(={4,}|-{4,}|~{4,}|\^{4,}|\+{4,})$/) and
- (defined($paragraph) )and
- ($paragraph =~ m/^[^\n]*\n$/s) and
- (length($paragraph) == (length($line)+1))) {
- # Found title
- $wrapped_mode = 0;
- my $level = $line;
- $level =~ s/^(.).*$/$1/;
- $paragraph =~ s/\n$//s;
- my $t = $self->translate($paragraph,
- $self->{ref},
- "Title $level",
- "wrap" => 0);
- $self->pushline($t."\n");
- $paragraph="";
- $wrapped_mode = 1;
- $self->pushline(($level x (length($t)))."\n");
- } elsif ($asciidoc and
- ($line =~ m/^(={1,5})( +)(.*?)( +\1)?$/)) {
- my $titlelevel1 = $1;
- my $titlespaces = $2;
- my $title = $3;
- my $titlelevel2 = $4||"";
- # Found one line title
- do_paragraph($self,$paragraph,$wrapped_mode);
- $wrapped_mode = 0;
- $paragraph="";
- my $t = $self->translate($title,
- $self->{ref},
- "Title $titlelevel1",
- "wrap" => 0);
- $self->pushline($titlelevel1.$titlespaces.$t.$titlelevel2."\n");
- $wrapped_mode = 1;
- } elsif ($asciidoc and
- ($line =~ m/^(\/{4,}|\+{4,}|-{4,}|\.{4,}|\*{4,}|_{4,}|={4,}|~{4,})$/)) {
- # Found one delimited block
- my $t = $line;
- $t =~ s/^(.).*$/$1/;
- my $type = "delimited block $t";
- if (defined $self->{verbatim} and ($self->{type} ne $type)) {
- $paragraph .= "$line\n";
- } else {
- do_paragraph($self,$paragraph,$wrapped_mode);
- if ( (defined $self->{type})
- and ($self->{type} eq $type)) {
- undef $self->{type};
- undef $self->{verbatim};
- $wrapped_mode = 1;
- } else {
- if ($t eq "\/") {
- # CommentBlock, should not be treated
- $self->{verbatim} = 2;
- } elsif ($t eq "+") {
- # PassthroughBlock
- $wrapped_mode = 0;
- $self->{verbatim} = 1;
- } elsif ($t eq "-") {
- # ListingBlock
- $wrapped_mode = 0;
- $self->{verbatim} = 1;
- } elsif ($t eq ".") {
- # LiteralBlock
- $wrapped_mode = 0;
- $self->{verbatim} = 1;
- } elsif ($t eq "*") {
- # SidebarBlock
- $wrapped_mode = 1;
- } elsif ($t eq "_") {
- # QuoteBlock
- if ( (defined $self->{type})
- and ($self->{type} eq "verse")) {
- $wrapped_mode = 0;
- $self->{verbatim} = 1;
- } else {
- $wrapped_mode = 1;
- }
- } elsif ($t eq "=") {
- # ExampleBlock
- $wrapped_mode = 1;
- } elsif ($t eq "~") {
- # Filter blocks, TBC: not translated
- $wrapped_mode = 0;
- $self->{verbatim} = 2;
- }
- $self->{type} = $type;
- }
- $paragraph="";
- $self->pushline($line."\n");
- }
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^\[\[([^\]]*)\]\]$/)) {
- # Found BlockId
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- $self->pushline($line."\n");
- undef $self->{bullet};
- undef $self->{indent};
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($paragraph eq "") and
- ($line =~ m/^((?:NOTE|TIP|IMPORTANT|WARNING|CAUTION):\s+)(.*)$/)) {
- my $type = $1;
- my $text = $2;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph=$text."\n";
- $wrapped_mode = 1;
- $self->pushline($type);
- undef $self->{bullet};
- undef $self->{indent};
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^\[(NOTE|TIP|IMPORTANT|WARNING|CAUTION|verse|quote)\]$/)) {
- my $type = $1;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- $self->pushline($line."\n");
- if ($type eq "verse") {
- $wrapped_mode = 0;
- }
- undef $self->{bullet};
- undef $self->{indent};
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^\[(verse|quote), +(.*)\]$/)) {
- my $type = $1;
- my $arg = $2;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- my $t = $self->translate($arg,
- $self->{ref},
- "$type",
- "wrap" => 0);
- $self->pushline("[$type, $t]\n");
- $wrapped_mode = 1;
- if ($type eq "verse") {
- $wrapped_mode = 0;
- }
- $self->{type} = $type;
- undef $self->{bullet};
- undef $self->{indent};
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^\[icon="(.*)"\]$/)) {
- my $arg = $1;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- my $t = $self->translate($arg,
- $self->{ref},
- "icon",
- "wrap" => 0);
- $self->pushline("[icon=\"$t\"]\n");
- $wrapped_mode = 1;
- undef $self->{bullet};
- undef $self->{indent};
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^\[icons=None, +caption="(.*)"\]$/)) {
- my $arg = $1;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- my $t = $self->translate($arg,
- $self->{ref},
- "caption",
- "wrap" => 0);
- $self->pushline("[icons=None, caption=\"$t\"]\n");
- $wrapped_mode = 1;
- undef $self->{bullet};
- undef $self->{indent};
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^(\s*)([*_+`'#[:alnum:]].*)((?:::|;;|\?\?|:-)(?: *\\)?)$/)) {
- my $indent = $1;
- my $label = $2;
- my $labelend = $3;
- # Found labeled list
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- $self->{bullet} = "";
- $self->{indent} = $indent;
- my $t = $self->translate($label,
- $self->{ref},
- "Labeled list",
- "wrap" => 0);
- $self->pushline("$indent$t$labelend\n");
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^(\s*)(\S.*)((?:::|;;)\s+)(.*)$/)) {
- my $indent = $1;
- my $label = $2;
- my $labelend = $3;
- my $labeltext = $4;
- # Found Horizontal Labeled Lists
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph=$labeltext."\n";
- $wrapped_mode = 1;
- $self->{bullet} = "";
- $self->{indent} = $indent;
- my $t = $self->translate($label,
- $self->{ref},
- "Labeled list",
- "wrap" => 0);
- $self->pushline("$indent$t$labelend");
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^\:(\S.*?)(:\s*)(.*)$/)) {
- my $attrname = $1;
- my $attrsep = $2;
- my $attrvalue = $3;
- # Found a Attribute entry
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- undef $self->{bullet};
- undef $self->{indent};
- my $t = $self->translate($attrvalue,
- $self->{ref},
- "Attribute :$attrname:",
- "wrap" => 0);
- $self->pushline(":$attrname$attrsep$t\n");
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line !~ m/^\.\./) and ($line =~ m/^\.(\S.*)$/)) {
- my $title = $1;
- # Found block title
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- undef $self->{bullet};
- undef $self->{indent};
- my $t = $self->translate($title,
- $self->{ref},
- "Block title",
- "wrap" => 0);
- $self->pushline(".$t\n");
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^(\s*)((?:[-*o+]|(?:[0-9]+[.\)])|(?:[a-z][.\)])|\([0-9]+\)|\.|\.\.)\s+)(.*)$/)) {
- my $indent = $1||"";
- my $bullet = $2;
- my $text = $3;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph = $text."\n";
- $self->{indent} = $indent;
- $self->{bullet} = $bullet;
- } elsif ($asciidoc and not defined $self->{verbatim} and
- ($line =~ m/^((?:<?[0-9]+)?> +)(.*)$/)) {
- my $bullet = $1;
- my $text = $2;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph = $text."\n";
- $self->{indent} = "";
- $self->{bullet} = $bullet;
- } elsif ($asciidoc and not defined $self->{verbatim} and
- (defined $self->{bullet} and $line =~ m/^(\s+)(.*)$/)) {
- my $indent = $1;
- my $text = $2;
- if (not defined $self->{indent}) {
- $paragraph .= $text."\n";
- $self->{indent} = $indent;
- } elsif (length($paragraph) and (length($self->{bullet}) + length($self->{indent}) == length($indent))) {
- $paragraph .= $text."\n";
- } else {
-
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph = $text."\n";
- $self->{indent} = $indent;
- $self->{bullet} = "";
- }
- } elsif ($markdown and
- (not defined($self->{verbatim})) and
- ($line =~ m/^(={4,}|-{4,})$/) and
- (defined($paragraph) )and
- ($paragraph =~ m/^[^\n]*\n$/s) and
- (length($paragraph) == (length($line)+1))) {
- # XXX: There can be any number of underlining according
- # to the documentation. This detection, which avoid
- # translating the formatting, is only supported if
- # the underlining has the same size as the header text.
- # Found title
- $wrapped_mode = 0;
- my $level = $line;
- $level =~ s/^(.).*$/$1/;
- my $t = $self->translate($paragraph,
- $self->{ref},
- "Title $level",
- "wrap" => 0);
- $self->pushline($t);
- $paragraph="";
- $wrapped_mode = 1;
- $self->pushline(($level x (length($t)-1))."\n");
- } elsif ($markdown and
- ($line =~ m/^(#{1,6})( +)(.*?)( +\1)?$/)) {
- my $titlelevel1 = $1;
- my $titlespaces = $2;
- my $title = $3;
- my $titlelevel2 = $4||"";
- # Found one line title
- do_paragraph($self,$paragraph,$wrapped_mode);
- $wrapped_mode = 0;
- $paragraph="";
- my $t = $self->translate($title,
- $self->{ref},
- "Title $titlelevel1",
- "wrap" => 0);
- $self->pushline($titlelevel1.$titlespaces.$t.$titlelevel2."\n");
- $wrapped_mode = 1;
- } elsif ($markdown and
- ($paragraph eq "") and
- ($line =~ /^((\*\s*){3,}|(-\s*){3,}|(_\s*){3,})$/)) {
- # Horizontal rule
- $wrapped_mode = 1;
- $self->pushline($line."\n");
- } elsif ($line =~ /^-- $/) {
- # Break paragraphs on email signature hint
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- $self->pushline($line."\n");
- } elsif ( $line =~ /^=+$/
- or $line =~ /^_+$/
- or $line =~ /^-+$/) {
- $wrapped_mode = 0;
- $paragraph .= $line."\n";
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- } elsif ($markdown and
- ( $line =~ /^\s*\[\[\!\S+\s*$/ # macro begin
- or $line =~ /^\s*"""\s*\]\]\s*$/)) { # """ textblock inside macro end
- # Avoid translating Markdown lines containing only markup
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- $self->pushline("$line\n");
- } elsif ($markdown and
- ( $line =~ /^#/ # headline
- or $line =~ /^\s*\[\[\!\S[^\]]*\]\]\s*$/)) { # sole macro
- # Preserve some Markdown markup as a single line
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="$line\n";
- $wrapped_mode = 0;
- $end_of_paragraph = 1;
- } elsif ($markdown and
- ( $line =~ /^"""/)) { # """ textblock inside macro end
- # Markdown markup needing separation _before_ this line
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="$line\n";
- $wrapped_mode = 1;
- } elsif ($tabs eq "split" and $line =~ m/\t/ and $paragraph !~ m/\t/s) {
- $wrapped_mode = 0;
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph = "$line\n";
- $wrapped_mode = 0;
- } elsif ($tabs eq "split" and $line !~ m/\t/ and $paragraph =~ m/\t/s) {
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph = "$line\n";
- $wrapped_mode = 1;
- } else {
- if ($line =~ /^\s/) {
- # A line starting by a space indicates a non-wrap
- # paragraph
- $wrapped_mode = 0;
- }
- if ($markdown and
- ( $line =~ /\S $/ # explicit newline
- or $line =~ /"""$/)) { # """ textblock inside macro begin
- # Markdown markup needing separation _after_ this line
- $end_of_paragraph = 1;
- } else {
- undef $self->{bullet};
- undef $self->{indent};
- }
- if ($fortunes) {
- $line =~ s/%%(.*)$//;
- }
-# TODO: comments
- $paragraph .= $line."\n";
- }
- # paragraphs starting by a bullet, or numbered
- # or paragraphs with a line containing many consecutive spaces
- # (more than 3)
- # are considered as verbatim paragraphs
- $wrapped_mode = 0 if ( $paragraph =~ m/^(\*|[0-9]+[.)] )/s
- or $paragraph =~ m/[ \t][ \t][ \t]/s);
- $wrapped_mode = 0 if ( $tabs eq "verbatim"
- and $paragraph =~ m/\t/s);
- if ($markdown) {
- # Some Markdown markup can (or might) not survive wrapping
- $wrapped_mode = 0 if (
- $paragraph =~ /^>/ms # blockquote
- or $paragraph =~ /^( {8}|\t)/ms # monospaced
- or $paragraph =~ /^\$(\S+[{}]\S*\s*)+/ms # Xapian macro
- or $paragraph =~ /<(?![a-z]+[:@])/ms # maybe html (tags but not wiki <URI>)
- or $paragraph =~ /^[^<]+>/ms # maybe html (tag with vertical space)
- or $paragraph =~ /\S $/ms # explicit newline
- or $paragraph =~ /\[\[\!\S[^\]]+$/ms # macro begin
- );
- }
- if ($end_of_paragraph) {
- do_paragraph($self,$paragraph,$wrapped_mode);
- $paragraph="";
- $wrapped_mode = 1;
- $end_of_paragraph = 0;
- }
- ($line,$ref)=$self->shiftline();
- }
- if (length $paragraph) {
- do_paragraph($self,$paragraph,$wrapped_mode);
- }
-}
-
-sub do_paragraph {
- my ($self, $paragraph, $wrap) = (shift, shift, shift);
- my $type = shift || $self->{type} || "Plain text";
- return if ($paragraph eq "");
-
-# DEBUG
-# my $b;
-# if (defined $self->{bullet}) {
-# $b = $self->{bullet};
-# } else {
-# $b = "UNDEF";
-# }
-# $type .= " verbatim: '".($self->{verbatim}||"NONE")."' bullet: '$b' indent: '".($self->{indent}||"NONE")."' type: '".($self->{type}||"NONE")."'";
-
- if ($bullets and not $wrap and not defined $self->{verbatim}) {
- # Detect bullets
- # | * blah blah
- # |<spaces> blah
- # | ^-- aligned
- # <empty line>
- #
- # Other bullets supported:
- # - blah o blah + blah
- # 1. blah 1) blah (1) blah
-TEST_BULLET:
- if ($paragraph =~ m/^(\s*)((?:[-*o+]|([0-9]+[.\)])|\([0-9]+\))\s+)([^\n]*\n)(.*)$/s) {
- my $para = $5;
- my $bullet = $2;
- my $indent1 = $1;
- my $indent2 = "$1".(' ' x length $bullet);
- my $text = $4;
- while ($para !~ m/$indent2(?:[-*o+]|([0-9]+[.\)])|\([0-9]+\))\s+/
- and $para =~ s/^$indent2(\S[^\n]*\n)//s) {
- $text .= $1;
- }
- # TODO: detect if a line starts with the same bullet
- if ($text !~ m/\S[ \t][ \t][ \t]+\S/s) {
- my $bullet_regex = quotemeta($indent1.$bullet);
- $bullet_regex =~ s/[0-9]+/\\d\+/;
- if ($para eq '' or $para =~ m/^$bullet_regex\S/s) {
- my $trans = $self->translate($text,
- $self->{ref},
- "Bullet: '$indent1$bullet'",
- "wrap" => 1,
- "wrapcol" => - (length $indent2));
- $trans =~ s/^/$indent1$bullet/s;
- $trans =~ s/\n(.)/\n$indent2$1/sg;
- $self->pushline( $trans."\n" );
- if ($para eq '') {
- return;
- } else {
- # Another bullet
- $paragraph = $para;
- goto TEST_BULLET;
- }
- }
- }
- }
- }
-
- my $end = "";
- if ($wrap) {
- $paragraph =~ s/^(.*?)(\n*)$/$1/s;
- $end = $2 || "";
- }
- my $t = $self->translate($paragraph,
- $self->{ref},
- $type,
- "wrap" => $wrap);
- if (defined $self->{bullet}) {
- my $bullet = $self->{bullet};
- my $indent1 = $self->{indent};
- my $indent2 = $indent1.(' ' x length($bullet));
- $t =~ s/^/$indent1$bullet/s;
- $t =~ s/\n(.)/\n$indent2$1/sg;
- }
- $self->pushline( $t.$end );
-}
-
-1;
-
-=head1 STATUS OF THIS MODULE
-
-Tested successfully on simple text files and NEWS.Debian files.
-
-=head1 AUTHORS
-
- Nicolas François <nicolas.francois@centraliens.net>
-
-=head1 COPYRIGHT AND LICENSE
-
- Copyright 2005-2008 by Nicolas FRANÇOIS <nicolas.francois@centraliens.net>.
-
-This program is free software; you may redistribute it and/or modify it
-under the terms of GPL (see the COPYING file).