version 1.1, 2015/12/03 20:40:31
|
version 1.2, 2015/12/15 15:01:01
|
Line 42 use XML::LibXML;
|
Line 42 use XML::LibXML;
|
use HTML::TokeParser; # used to parse sty files |
use HTML::TokeParser; # used to parse sty files |
use Tie::IxHash; # for ordered hashes |
use Tie::IxHash; # for ordered hashes |
|
|
use Env qw(RES_DIR); # path of res directory parent (without the / at the end) |
|
|
|
no warnings 'recursion'; # yes, fix_paragraph is using heavy recursion, I know |
no warnings 'recursion'; # yes, fix_paragraph is using heavy recursion, I know |
|
|
# these are constants |
# these are constants |
Line 77 my $warnings; # 1 = print warnings
|
Line 75 my $warnings; # 1 = print warnings
|
|
|
|
|
# Parses the XML document and fixes many things to turn it into a document matching the schema. |
# Parses the XML document and fixes many things to turn it into a document matching the schema. |
# Returns the text of the document as a byte string. |
# @param {reference} textref - reference to the text of the document |
|
# @param {string} file_path - path of the file being processed (we only extract the directory path from it) |
|
# @param {string} res_dir - path of res directory parent (without the / at the end) |
|
# @param {boolean} warn - 1 to print warnings, 0 otherwise |
|
# @returns the text of the document as a byte string. |
sub post_xml { |
sub post_xml { |
my ($textref, $file_path, $warn) = @_; |
my ($textref, $file_path, $res_dir, $warn) = @_; |
$warnings = $warn; |
$warnings = $warn; |
|
|
my $dom_doc = XML::LibXML->load_xml(string => $textref); |
my $dom_doc = XML::LibXML->load_xml(string => $textref); |
Line 95 sub post_xml {
|
Line 97 sub post_xml {
|
my $fix_by_hand = replace_m($root); |
my $fix_by_hand = replace_m($root); |
|
|
my @all_block = (@block_elements, @block_html); |
my @all_block = (@block_elements, @block_html); |
add_sty_blocks($file_path, $root, \@all_block); # must come before the subs using @all_block |
add_sty_blocks($file_path, $res_dir, $root, \@all_block); # must come before the subs using @all_block |
|
|
fix_block_styles($root, \@all_block); |
fix_block_styles($root, \@all_block); |
$root->normalize(); |
$root->normalize(); |
Line 591 sub html_to_dom {
|
Line 593 sub html_to_dom {
|
# Use the linked sty files to guess which newly defined elements should be considered blocks. |
# Use the linked sty files to guess which newly defined elements should be considered blocks. |
# Also adds to @containing_styles the sty elements that contain styles. |
# Also adds to @containing_styles the sty elements that contain styles. |
# @param {string} fn - the file path (we only extract the directory path from it) |
# @param {string} fn - the file path (we only extract the directory path from it) |
|
# @param {string} res_dir - path of res directory parent (without the / at the end) |
|
# @param {Element} root - the root element |
sub add_sty_blocks { |
sub add_sty_blocks { |
my ($fn, $root, $all_block) = @_; |
my ($fn, $res_dir, $root, $all_block) = @_; |
my $doc = $root->ownerDocument; |
my $doc = $root->ownerDocument; |
my @parserlibs = $doc->getElementsByTagName('parserlib'); |
my @parserlibs = $doc->getElementsByTagName('parserlib'); |
my @libs = (); |
my @libs = (); |
Line 608 sub add_sty_blocks {
|
Line 612 sub add_sty_blocks {
|
my ($name, $path, $suffix) = fileparse($fn); |
my ($name, $path, $suffix) = fileparse($fn); |
foreach my $sty (@libs) { |
foreach my $sty (@libs) { |
if (substr($sty, 0, 1) eq '/') { |
if (substr($sty, 0, 1) eq '/') { |
$sty = $RES_DIR.$sty; |
$sty = $res_dir.$sty; |
} else { |
} else { |
$sty = $path.$sty; |
$sty = $path.$sty; |
} |
} |