Support for Dumping Font and Color objects, mainly to quiet the process

Author: brucemiller

lib/LaTeXML/Common/Font.pm

@@ -113,6 +113,12 @@ my %font_family = (
   pxmi  => { family   => 'serif', shape => 'italic' },
   pxsya => { encoding => 'AMSa' },
   pxsyb => { encoding => 'AMSb' },
+  # Pretend to recognize plain & latex's extra fonts (currently no encoding set up)
+  manfnt   => { family => 'graphic', encoding=>'manfnt' },
+  line     => { family => 'graphic', encoding=>'line' },
+  linew    => { family => 'graphic', encoding=>'line',    series=>'bold' },
+  lcircle  => { family => 'graphic', encoding=>'lcircle' },
+  lcirclew => { family => 'graphic', encoding=>'lcircle', series=>'bold' },
   # Pretend to recognize xy's fonts
   xydash => { family => 'graphic' },
   xyatip => { family => 'graphic' },

lib/LaTeXML/Core/Dumper.pm

@@ -29,14 +29,14 @@ our @EXPORT_OK = (
   qw($D0 $G0 $MD0 $MG0 $N0),
   qw($PPLAIN),
   qw($TA $TB $TE $TM $TP $TS $TSB $TSP),
-  qw(&Dump &_Exp &_CDef &_Reg &_Par &_Pars &_FDef),
+  qw(&Dump &_Exp &_CDef &_Reg &_Par &_Pars &_FDef &_Font &_RGB),
 );
 our %EXPORT_TAGS = (
   load => [
     qw($D0 $G0 $MD0 $MG0 $N0),
     qw($PPLAIN),
     qw($TA $TB $TE $TM $TP $TS $TSB $TSP),
-    qw(&_Exp &_CDef &_Reg &_Par &_Pars &_FDef),
+    qw(&_Exp &_CDef &_Reg &_Par &_Pars &_FDef &_Font &_RGB),
   ],
 );
 
@@ -92,6 +92,13 @@ sub _FDef {
   my ($cs, $fontID) = @_;
   return LaTeXML::Core::Definition::FontDef->new($cs, $fontID); }
 
+sub _Font {
+  return LaTeXML::Common::Font->new_internal(@_); }
+
+sub _RGB {
+  my($r,$g,$b)=@_;
+  return bless ['rgb', $r, $g, $b], 'LaTeXML::Common::Color::rgb'; }
+
 #======================================================================
 our %transchar = (
   '@'  => '\\@', '$'  => '\\\$', "'" => '\\\'', '"' => '\\"', '\\' => "\\\\",    # Slashify
@@ -202,8 +209,15 @@ sub dump_rec {
       return '_FDef(' . dump_rec($$object{cs}) . ')'; }
     else {
       return; } }
+  elsif ($object->isa('LaTeXML::Common::Font')) {
+    # Likely never shows in dump file, but need for bookkeeping (compare predump to dump)
+    return '_Font(' . join(',', map { dump_rec($_); } @$object) . ')'; }
+  elsif ($object->isa('LaTeXML::Common::Color')) {
+    # Likely never shows in dump file, but need for bookkeeping (compare predump to dump)
+    return '_RGB(' . join(',', map { dump_rec($_); } $object->rgb->components) . ')'; }
   else {
-    Warn('unexpected', $type, undef, "Trying to dump $object within $LaTeXML::DUMPING_KEY")
+      Warn('unexpected', $type, undef, "Trying to dump $object within $LaTeXML::DUMPING_KEY",
+	  'Object is '.Stringify($object))
       if $LaTeXML::DUMPING_KEY;
     return;
   }