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
|
# /=====================================================================\ #
# | LaTeXML::Pre::BibTeX::Entry | #
# | Implements BibTeX for LaTeXML | #
# |=====================================================================| #
# | 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::Pre::BibTeX::Entry;
use strict;
use warnings;
use List::Util qw(min max);
sub new {
my ($class, $type, $key, $fields, $rawfields) = @_;
my $self = { type => $type, key => $key,
fieldlist => $fields, rawfieldlist => $rawfields,
fieldmap => { map { ($$_[0] => $$_[1]) } @$fields },
rawfieldmap => { map { ($$_[0] => $$_[1]) } @$rawfields } };
bless $self, $class;
return $self; }
sub getType {
my ($self) = @_;
return $$self{type}; }
sub getKey {
my ($self) = @_;
return $$self{key}; }
sub getFields {
my ($self) = @_;
return @{ $$self{fieldlist} }; }
sub getField {
my ($self, $key) = @_;
return $$self{fieldmap}{$key}; }
sub getRawField {
my ($self, $key) = @_;
return $$self{rawfieldmap}{$key}; }
sub addField {
my ($self, $field, $value) = @_;
push(@{ $$self{fieldlist} }, [$field, $value]);
$$self{fieldmap}{$field} = $value;
return; }
sub addRawField {
my ($self, $field, $value) = @_;
push(@{ $$self{rawfieldlist} }, [$field, $value]);
$$self{rawfieldmap}{$field} = $value;
return; }
sub prettyPrint {
my ($self) = @_;
return join(",\n",
"@" . $$self{type} . "{" . $$self{key},
(map { (" " x max(1, (10 - length($$_[0])))) . $$_[0] . " = {" . $$_[1] . "}" }
@{ $$self{fieldlist} })
) . "}\n"; }
#======================================================================
1;
|
