|
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 |
- |
|
|