gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

It now knows what << Prev is, but it may still be confused by other kinds 

of tag lookalikes
This commit is contained in:
acli 2004-02-12 17:38:42 +00:00
parent 15defe58a9
commit 33a4d5705a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
misc/translator/text-extract2.pl
View File

@ -7,7 +7,8 @@
# This script is meant to be a drop-in replacement of text-extract.pl
# FIXME: Strings like "<< Prev" confuses *this* filter
# FIXME: Strings like "<< Prev" or "Next >>" may confuse *this* filter
# TODO: Need to detect unclosed tags, empty tags, and other such stuff.
use Getopt::Long;
use strict;
@ -93,7 +94,8 @@ sub next_token_internal (*) {
;
} elsif ($readahead =~ /^\s+/s) { # whitespace
($kind, $it, $readahead) = (KIND_TEXT, $&, $');
} elsif ($readahead =~ /^[^<]+/s) { # non-whitespace normal text
# FIXME the following (the [<\s] part) is an unreliable HACK :-(
} elsif ($readahead =~ /^(?:[^<]|<[<\s])+/s) { # non-space normal text
($kind, $it, $readahead) = (KIND_TEXT, $&, $');
} else { # tag/declaration/processing instruction
my $ok_p = 0;