fbcb2e0997
git-svn-id: https://mathjax.svn.sourceforge.net/svnroot/mathjax/trunk@546 b8fd5906-0fad-46e2-a0d3-10d94ff285d1
39 lines
1.0 KiB
Perl
Executable File
39 lines
1.0 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
# Creates the symbol data needed for the AMSsymbols extension
|
|
#
|
|
# Usage: ./makeData
|
|
|
|
open(INFILE,"AMS-unicode-list.txt");
|
|
while ($line = <INFILE>) {
|
|
chomp($line); $line =~ s/\\//g;
|
|
($code,$macro,$macro2) = split(/ /,$line);
|
|
$def{$macro} = $code;
|
|
$def{$macro2} = $code if $macro2;
|
|
}
|
|
close(INFILE);
|
|
|
|
open(OUTFILE,">data.js");
|
|
|
|
$comma = "";
|
|
print OUTFILE " mathchar0mi: {";
|
|
open(INFILE,"AMS-unicode.txt");
|
|
while ($line = <INFILE>) {
|
|
chomp($line);
|
|
if ($line eq "Binary operators") {
|
|
print OUTFILE "\n },\n\n";
|
|
print OUTFILE " mathchar0mo: {";
|
|
$comma = "";
|
|
}
|
|
if (substr($line,0,1) eq " ") {
|
|
$line =~ s/^ //; $line =~ s/ \(U\)//; $line =~ s/[,\\]//g;
|
|
($code,$macro,$macro2) = split(/ /,$line);
|
|
print OUTFILE "$comma\n",sprintf(" %-24s",$macro.":"),"'$def{$macro}'"; $comma = ",";
|
|
print OUTFILE "$comma\n",sprintf(" %-24s",$macro2.":"),"'$def{$macro2}'" if $macro2;
|
|
} else {
|
|
print OUTFILE "$comma\n\n // $line";
|
|
$comma = "";
|
|
}
|
|
}
|
|
print OUTFILE "\n }\n";
|