1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
# /=====================================================================\ #
# | LaTeXML::Core::List | #
# | Digested objects produced in the Stomach | #
# |=====================================================================| #
# | Part of LaTeXML: | #
# | Public domain software, produced as part of work done by the | #
# | United States Government & not subject to copyright in the US. | #
# |---------------------------------------------------------------------| #
# | Bruce Miller <bruce.miller@nist.gov> #_# | #
# | http://dlmf.nist.gov/LaTeXML/ (o o) | #
# \=========================================================ooo==U==ooo=/ #
package LaTeXML::Core::List;
use strict;
use warnings;
use LaTeXML::Global;
use LaTeXML::Common::Object;
use LaTeXML::Common::Error;
use LaTeXML::Common::Dimension;
use List::Util qw(min max);
use base qw(Exporter LaTeXML::Core::Box);
our @EXPORT = (qw(&List));
# Tricky; don't really want a separate constructor for a Math List,
# but you really have to specify it in the arguments
# BUT you can't infer the mode from the current state ($STATE may have already switched
# back to text) or from the modes of the boxes (may be mixed)
# So, it has to be specified along with the boxes;
# Here we simply allow
# List($box,.... mode=>'math')
# Also, if there's only 1 box, we just return it!
sub List {
my (@boxes) = @_;
my $mode = 'text';
# Hacky special case!!!
if ((scalar(@boxes) >= 2) && ($boxes[-2] eq 'mode')
&& (($boxes[-1] eq 'math') || ($boxes[-1] eq 'text'))) {
$mode = pop(@boxes); pop(@boxes); }
@boxes = grep { defined $_ } @boxes; # strip out undefs
if (scalar(@boxes) == 1) {
return $boxes[0]; } # Simplify!
else {
my $list = LaTeXML::Core::List->new(@boxes);
$list->setProperty(mode => $mode) if $mode eq 'math';
return $list; } }
sub new {
my ($class, @boxes) = @_;
my ($bx, $font, $locator);
my @bxs = @boxes;
while (defined($bx = shift(@bxs)) && (!defined $locator)) {
$locator = $bx->getLocator unless defined $locator; }
@bxs = @boxes;
# Maybe the most representative font for a List is the font of the LAST box (that _has_ a font!) ???
while (defined($bx = pop(@bxs)) && (!defined $font)) {
$font = $bx->getFont unless defined $font; }
#return bless [[@boxes], $font, $locator || '', undef, {}], $class; }
return bless { boxes => [@boxes],
properties => { font => $font, locator => $locator || undef, }
}, $class; }
sub unlist {
my ($self) = @_;
return @{ $$self{boxes} }; }
sub revert {
no warnings 'recursion';
my ($self) = @_;
return map { $_->revert } $self->unlist; }
sub toString {
my ($self) = @_;
return join('', grep { defined $_ } map { $_->toString } $self->unlist); }
# Methods for overloaded operators
sub stringify {
no warnings 'recursion';
my ($self) = @_;
my $type = ref $self;
$type =~ s/^LaTeXML:://;
return $type . '[' . join(',', map { Stringify($_) } $self->unlist) . ']'; } # Not ideal, but....
sub equals {
my ($a, $b) = @_;
return 0 unless (defined $b) && ((ref $a) eq (ref $b));
my @a = $a->unlist;
my @b = $b->unlist;
while (@a && @b && ($a[0]->equals($b[0]))) {
shift(@a); shift(@b); }
return !(@a || @b); }
# NOTE: No longer used; Document->absorb bypasses this for stack efficiency.
sub beAbsorbed {
my ($self, $document) = @_;
no warnings 'recursion';
return map { $document->absorb($_) } $self->unlist; }
sub computeSize {
no warnings 'recursion';
my ($self, %options) = @_;
my $font = $self->getProperty('font') || LaTeXML::Common::Font->textDefault;
return $font->computeBoxesSize($$self{boxes}, %options); }
#======================================================================
1;
__END__
=pod
=head1 NAME
C<LaTeXML::Core::List> - represents lists of digested objects;
extends L<LaTeXML::Core::Box>.
=head1 AUTHOR
Bruce Miller <bruce.miller@nist.gov>
=head1 COPYRIGHT
Public domain software, produced as part of work done by the
United States Government & not subject to copyright in the US.
=cut
|
