—

              
# /=====================================================================\ #
# |  LaTeXML::Core::Mouth::Binding                                      | #
# | Analog of TeX's Mouth: Tokenizes strings & files                    | #
# |=====================================================================| #
# | 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::Mouth::Binding;
use strict;
use warnings;
use LaTeXML::Global;
use LaTeXML::Common::Locator;
use LaTeXML::Common::Error;
use LaTeXML::Util::Pathname;
# This is a fake mouth, used for processing *.ltxml, *.latexml files
# It exists primarily for the purposes of
#  * getting a locator on anything defined in the file
#  * serving as a placekeeper in the chain of Mouth's in a Gullet,
#    when the binding reads in a proper TeX file.
sub new {
  my ($class, $pathname) = @_;
  my ($dir, $name, $ext) = pathname_split($pathname);
  my $self = bless { source => $pathname, shortsource => "$name.$ext" }, $class;
  NoteBegin("Loading $$self{source}");
  return $self; }
sub finish {
  my ($self) = @_;
  NoteEnd("Loading $$self{source}");
  return; }
# Evolve to figure out if this gets dynamic location!
sub getLocator {
  my ($self, $length) = @_;
  my $path  = $$self{source};
  my $frame = 2;
  my ($pkg, $file, $line);
  while (($pkg, $file, $line) = caller($frame++)) {
    last if $file eq $path; }
  return LaTeXML::Common::Locator->new($$self{source}, $line ? $line : undef); }
sub getSource {
  my ($self) = @_;
  return $$self{source}; }
sub hasMoreInput {
  return 0; }
sub readToken {
  return; }
sub stringify {
  my ($self) = @_;
  return "Mouth::Binding[$$self{source}]"; }
#======================================================================
1;
__END__
HideShow 25 lines of Pod
=pod 
=head1 NAME
C<LaTeXML::Core::Mouth::Binding> - a fake Mouth for processing a Binding file
=head1 DESCRIPTION
This is a fake mouth, used for processing binding files
(ie. C<*.ltxml> and C<*.latexml>). It exists primarily for the purposes of
(1) getting a locator on anything defined in the file
and (2) serving as a placekeeper in the chain of Mouth's in a Gullet,
when the binding reads in a proper TeX file.
=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