scripts/html2py.pl

   1 #!/usr/bin/env perl
   2
   3 use HTML::Entities;
   4
   5 my $date = `date`;
   6 chomp $date;
   7 print "# Generated by html2py.pl from HTML::Entities on $date\n";
   8 print "ENTITIES = {\n";
   9
  10 for my $k (sort keys %HTML::Entities::char2entity) {
  11
  12         my $int = ord($k);
  13         if ( $int > 255 ) {
  14                 # These are either:
  15                 # - outside of ord()'s 0-255 range
  16                 # - used in ANSI color sequences handled by
  17                 #   ugitutils` ansi_to_html.
  18                 next;
  19         }
  20         my $v = $HTML::Entities::char2entity{$k};
  21
  22         print "\t";
  23         print "chr($int)";
  24         print "\t:\t";
  25         print "'$v',\n";
  26 }
  27 print "}\n";