Lines 45-61
sub string_negligible_p {
Link Here
|
45 |
} |
45 |
} |
46 |
|
46 |
|
47 |
sub token_negligible_p { |
47 |
sub token_negligible_p { |
48 |
my($x) = @_; |
48 |
my ($x) = @_; |
49 |
my $t = $x->type; |
49 |
my $t = $x->type; |
50 |
return !$extract_all_p && ( |
50 |
return !$extract_all_p && ( |
51 |
$t == C4::TmplTokenType::TEXT() ? string_negligible_p( $x->string ) : |
51 |
$t == C4::TmplTokenType::TEXT() ? string_negligible_p( $x->string ) |
52 |
$t == C4::TmplTokenType::DIRECTIVE() ? 1 : |
52 |
: $t == C4::TmplTokenType::DIRECTIVE() ? 1 |
53 |
$t == C4::TmplTokenType::TEXT_PARAMETRIZED() |
53 |
: $t == C4::TmplTokenType::TEXT_PARAMETRIZED() |
54 |
&& join( '', map { my $t = $_->type; |
54 |
&& join( |
55 |
$t == C4::TmplTokenType::DIRECTIVE() ? |
55 |
'', |
56 |
'1' : $t == C4::TmplTokenType::TAG() ? |
56 |
map { |
57 |
'' : token_negligible_p( $_ ) ? |
57 |
my $t = $_->type; |
58 |
'' : '1' } @{$x->children} ) eq '' ); |
58 |
$t == C4::TmplTokenType::DIRECTIVE() ? '1' |
|
|
59 |
: $t == C4::TmplTokenType::TAG() ? '' |
60 |
: token_negligible_p($_) ? '' |
61 |
: '1' |
62 |
} @{ $x->children } |
63 |
) eq '' |
64 |
); |
59 |
} |
65 |
} |
60 |
|
66 |
|
61 |
############################################################################### |
67 |
############################################################################### |
62 |
- |
|
|