BRMILLER / LaTeXML-0.8.8 / lib / LaTeXML / Pre / BibTeX / Entry.pm 

            

              
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;