fbcb2e0997
git-svn-id: https://mathjax.svn.sourceforge.net/svnroot/mathjax/trunk@546 b8fd5906-0fad-46e2-a0d3-10d94ff285d1
46 lines
1.3 KiB
Perl
Executable File
46 lines
1.3 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
# Makes the operator table data needed for the AMS symbols
|
|
#
|
|
# Usage: ./makeOpTable
|
|
|
|
open(INFILE,"AMS-unicode-list.txt");
|
|
while ($line = <INFILE>) {
|
|
chomp($line); $line =~ s/\\//g;
|
|
($code,$macro) = split(/ /,$line);
|
|
$code{$macro} = $code;
|
|
}
|
|
close(INFILE);
|
|
|
|
open(INFILE,"amssymb.txt");
|
|
while ($line = <INFILE>) {
|
|
chomp($line); $line =~ s/\\//g;
|
|
($code,$macro,$class) = split(/ /,$line);
|
|
$class{$macro} = uc($class);
|
|
}
|
|
close(INFILE);
|
|
|
|
@lines = ();
|
|
foreach $macro (sort keys %code) {
|
|
next if !$class{$macro} || $class{$macro} eq "ORD";
|
|
push(@lines," '&#x$code{$macro};': ".sprintf("%-5s",$class{$macro}.",")." // $macro");
|
|
}
|
|
@lines[$#lines] =~ s!,( +//)! \1!;
|
|
|
|
open(OUTFILE,">optable.js");
|
|
print OUTFILE " var ORD = [0,0],\n";
|
|
print OUTFILE " OP = [1,2,TEXCLASS.OP],\n";
|
|
print OUTFILE " BIN = [4,4,TEXCLASS.BIN],\n";
|
|
print OUTFILE " REL = [5,5,TEXCLASS.REL],\n";
|
|
print OUTFILE " OPEN = [1,2,TEXCLASS.OPEN],\n";
|
|
print OUTFILE " CLOSE = [0,2,TEXCLASS.CLOSE],\n";
|
|
print OUTFILE " INNER = [0,0,TEXCLASS.INNER];\n\n";
|
|
|
|
print OUTFILE " MML.mo.Augment({\n";
|
|
print OUTFILE " OPTABLE: {\n";
|
|
print OUTFILE " infix: MML.FIXUNICODE({\n";
|
|
print OUTFILE join("\n",@lines,"");
|
|
print OUTFILE " })\n";
|
|
print OUTFILE " }\n";
|
|
print OUTFILE " });\n";
|