#!/usr/bin/perl

use strict;
use warnings;

use lib 'lib';

use TeX::Encode;

warn "Requires UTF-8 Support in Terminal (CTRL+C now to exit)!\n";

binmode(STDOUT,":utf8");

my @terms = split '\|', $TeX::Encode::LATEX_Math_mode_re;
print "LATEX_Math_mode_re:\n",
	join("\n", map { join("\t", $_, ord($TeX::Encode::LATEX_Math_mode{$_}), $TeX::Encode::LATEX_Math_mode{$_}) } keys %TeX::Encode::LATEX_Math_mode), "\n";

print "LATEX_Escapes:\n",
	join("\n", map { join("\t", $_, sprintf("0x%x", ord($_)), $TeX::Encode::LATEX_Escapes{$_}, $TeX::Encode::LATEX_Escapes_inv{substr($TeX::Encode::LATEX_Escapes{$_},1)}||'') } sort { ord($a) <=> ord($b) } keys %TeX::Encode::LATEX_Escapes), "\n";