#! /usr/bin/env perl
# Convert stix.sty to a faked version that does not require
# the definition of any additional math alphabets
#
# By Scott Pakin <scott.clsl@pakin.org>
use POSIX;
use warnings;
use strict;
# Define a subroutine that normalizes symbol-category names.
sub normalize_category ($)
{
my $cat = $_[0];
$cat =~ s/\W/\@/g;
$cat =~ s/1/\@i/;
$cat =~ s/2/\@ii/;
$cat =~ s/3/\@iii/;
$cat =~ s/4/\@iv/;
return $cat;
}
# Output some header boilerplate.
print "\%" x 43, "\n";
print "\% This is a generated file. DO NOT EDIT. \%\n";
print "\%" x 43, "\n";
print "\n";
# Read and process stix.sty.
my $ifstixupint = ""; # State variable for the stix@upint conditional
my $defstixdel = 0; # 1=already defined \defSTIXdel
while (my $oneline = <>) {
chomp $oneline;
# Output some package header information.
if ($oneline =~ /NeedsTeXFormat/o) {
print $oneline, "\n";
next;
}
if ($oneline =~ /ProvidesPackage/o) {
print $oneline, "\n";
$oneline = <>;
$oneline =~ s/STIX/fake STIX/;
print $oneline, "\n";
next;
}
# Define macros for all symbol fonts.
if ($oneline =~ /DeclareFont(Encoding|Substitution)/o) {
print $oneline, "\n";
next;
}
if ($oneline =~ /DeclareSymbolFont\{([-\w]+)\}\s*\{(\w+)\}\s*\{(\w+)\}\s*\{(\w+)\}\s*\{(\w+)\}/o) {
my ($cat, $enc, $face, $weight, $slant) = ($1, $2, $3, $4, $5);
$cat = normalize_category $cat;
print "\\newcommand{\\STIXSYM$cat}[1]{\\text{\\usefont{$enc}{$face}{$weight}{$slant}\\char#1}}\n";
next;
}
# Output a macro definition.
if (substr($oneline, 0, 6) eq '\stix@' && !$defstixdel) {
print <<'DEFSTIXDEL';
% Simplify delimiter construction.
\newcommand{\defSTIXdel}[8][2]{%
\ifnum#8=-1\relax
\DeclareRobustCommand{#2}{%
\raisebox{#3}{%
\usefont#4%
\CLSLfaketdelim{#5}{#6}{#7}%
}%
}%
\else
\DeclareRobustCommand{#2}{%
\raisebox{#3}{%
\usefont#4%
\CLSLfakeddelim[#1]{#5}{#6}{#7}{#8}%
}%
}%
\fi
}
DEFSTIXDEL
;
$defstixdel = 1;
}
# Some lines contain multiple definitions. We iterate until no
# definitions remain.
while ($oneline !~ /^\s*$/o) {
# Process the stix@upint conditional.
if ($ifstixupint eq "THEN") {
# Ignore the "then" clause.
$ifstixupint = "ELSE" if $oneline eq "\\else";
last;
}
elsif ($ifstixupint eq "ELSE") {
# Process the "else" clause.
if ($oneline eq "\\fi") {
$ifstixupint = "";
last;
}
}
elsif ($ifstixupint eq "") {
# Test if we're entering the conditional.
if ($oneline eq "\\ifstix\@upint") {
$ifstixupint = "THEN";
last;
}
}
# Handle variable-sized operators.
if ($oneline =~ /\\stix\@MathSymbol\{\\([A-Za-z\@]+)\}\s*\{\\mathop\}\s*\{(largesymbols|integrals)\}\s*\{\"([0-9A-F]+)\}/o) {
# Define both large and small variants.
my ($sym, $cat, $slot) = ($1, $2, hex $3);
if ($cat ne "integrals" || substr($sym, 0, 5) ne "small") {
my $slotinc = $cat eq "integrals" ? 54 : 22;
my $raise1 = $cat eq "integrals" ? 0 : 1.5;
my $raise2 = $cat eq "integrals" ? -1 : 2;
printf "\\DeclareRobustCommand{\\STIXt%s}{\\raisebox{%.1gex}{\\STIXSYM%s{\"%02X}}}\n", $sym, $raise1, $cat, $slot;
printf "\\DeclareRobustCommand{\\STIXd%s}{\\raisebox{%.1gex}{\\STIXSYM%s{\"%02X}}}\n", $sym, $raise2, $cat, $slot+$slotinc;
last;
}
}
# Handle math accents.
if ($oneline =~ /\\stix\@MathAccent\{\\([A-Za-z\@]+)\}.*\{\"([0-9A-F]+)\}/o) {
my ($sym, $slot) = ($1, hex $2);
print "\\DeclareRobustCommand{\\STIX$sym}[1]{\%\n";
printf " \\CLSLfakewidetopaccent{#1}{0pt}{\"%02X}{2pt}{\"%02X}{{LS1}{stix}{m}{it}}\%\%\n", $slot, $slot+3;
print "}\n";
last;
}
# Define macros for most symbols.
if ($oneline =~ /\\stix\@MathSymbol\{\\([A-Za-z\@]+)\}\s*\{.*?\}\s*\{([-\w]+)\}\s*\{(.*?)\}(.*)$/o) {
my ($sym, $cat, $slot, $more) = ($1, $2, $3, $4);
$cat = normalize_category $cat;
print "\\DeclareRobustCommand{\\STIX$sym}{\\STIXSYM${cat}{$slot}}\n";
$oneline = $more; # Look for another macro definition on the same line.
next;
}
# Handle let bindings.
if ($oneline =~ /\\let\\([A-Za-z\@]+)=?\\([A-Za-z\@]+)(.*)$/o) {
print "\\let\\STIX$1=\\STIX$2\n";
$oneline = $3; # Look for another macro definition on the same line.
next;
}
# Handle integrals.
if ($oneline =~ /\\def\\([A-Za-z\@]+)\{\\DOTSI\\([A-Za-z\@]+)\\.limits\@\}/o) {
print "\\let\\STIX$1=\\STIX$2\n";
last;
}
# Preprocess symbolic delimiters into named delimiters.
if ($oneline =~ /\\stix\@MathDelimiter\{(.)\}/o) {
# Map symbols to names.
my $sym = $1;
my %sym2name = ("(" => "lparen",
")" => "rparen",
"[" => "lbracket",
"]" => "rbracket",
"<" => "less",
">" => "greater",
"/" => "slash");
my $name = $sym2name{$sym};
if (defined $name) {
$oneline =~ s/\\stix\@MathDelimiter\{\Q$sym\E\}/\\stix\@MathDelimiter\{\\$name\}/;
}
}
# Handle delimiters.
if ($oneline =~ /\\stix\@MathDelimiter\{\\([A-Za-z\@]+)\}\s*\{\\(\w+)\}\s*\{(\w+)\}\s*\{(.*?)\}\s*\{(\w+)\}\s*\{(.*?)\}/o) {
# Take care of the simple cases first.
my ($sym, $role, $cat1, $slot1, $cat2, $slot2) = ($1, $2, $3, $4, $5, $6);
$cat1 = normalize_category $cat1;
$cat2 = normalize_category $cat2;
if ($cat1 eq $cat2 && $slot1 eq $slot2) {
# Relations and ordinary symbols
print "\\DeclareRobustCommand{\\STIX$sym}{\\STIXSYM${cat1}{$slot1}}\n";
}
print "\\DeclareRobustCommand{\\STIXt$sym}{\\STIXSYM${cat1}{$slot1}}\n";
# Ignore delimiters that have to be handled manually.
last if $sym =~ /arrow|group|moustache/i;
# Vertical lines have to be composed out of pieces.
if ($sym =~ /vert/i) {
my $font = "{LS2}{stixex}{m}{n}";
print "\\defSTIXdel{\\STIXd$sym}{0ex}{$font}{$slot2}{$slot2}{$slot2}{$slot2}\n";
last;
}
# Handle the remaining cases.
my $slot2num = hex(substr($slot2, 1));
if ($slot2num < 24) {
# Choose the largest variant available.
$slot2 = sprintf '"%02X', $slot2num + 3*24;
}
print "\\DeclareRobustCommand{\\STIXd$sym}{\\raisebox{4ex}{\\STIXSYM${cat2}{$slot2}}}\n";
last;
}
# Nothing left to do for the current line.
last;
}
}
# Define various aliases.
foreach my $sym (qw(checkmark circledR maltese vdots yen)) {
print "\\let\\STIX$sym=\\STIX${sym}math\n";
}
print <<'ALIASES';
\let\STIXcdots=\STIXunicodecdots
\let\STIXdotsb=\STIXcdots
\let\STIXdotsm=\STIXcdots
\let\STIXmathellipsis=\STIXunicodeellipsis
\let\STIXbackslash=\STIXtbackslash
\let\STIXnot=\STIXnotchar
\let\STIXtbar=\STIXtvert
\let\STIXdbar=\STIXdvert
ALIASES
;
# Define most delimiters.
my $font = "";
foreach my $delim (["{LS1}{stixsf}{m}{n}", -1, -1, -1, -1, -1, -1],
["uparrow", 0x7E, 0x3C, 0x3C, 0x3C, -1, 15],
["downarrow", 0x3C, 0x3C, 0x3C, 0x9A, -1, 15],
["updownarrow", 0x7E, 0x3C, 0x3C, 0x9A, 0, 15],
["Uparrow", 0xD8, 0x3D, 0x3D, 0x3D, -1, 15],
["Downarrow", 0x3D, 0x3D, 0x3D, 0xDA, -1, 15],
["Updownarrow", 0xD8, 0x3D, 0x3D, 0xDA, 0, 15],
["Uuparrow", 0x5F, 0x3E, 0x3E, 0x3E, -1, 15],
["Ddownarrow", 0x3E, 0x3E, 0x3E, 0x60, -1, 15],
["UUparrow", 0xFE, 0x3F, 0x3F, 0x3F, -1, 15],
["DDownarrow", 0x3F, 0x3F, 0x3F, 0xFF, -1, 15],
["arrowvert", 0x3C, 0x3C, 0x3C, 0x3C, -1, 20],
["Arrowvert", 0x3D, 0x3D, 0x3D, 0x3D, -1, 20],
["{LS2}{stixex}{m}{n}", -1, -1, -1, -1, -1, -1],
["lgroup", 0x69, 0x6E, -1, 0x6B, -2, 2],
["rgroup", 0x68, 0x6E, -1, 0x6A, -2, 2],
["lmoustache", 0x68, 0x6E, -1, 0x6B, -2, 2],
["rmoustache", 0x69, 0x6E, -1, 0x6A, -2, 2]) {
my ($name, $top, $mid, $rep, $bot, $raise, $scale) = @$delim;
if ($top == -1) {
$font = $name;
next;
}
$scale = $scale == 2 ? "" : "[$scale]";
printf '\\defSTIXdel%s{\\STIXd%s}{%sex}{%s}{"%02X}{"%02X}{"%02X}', $scale, $name, $raise, $font, $top, $mid, $bot;
if ($rep == -1) {
print "{-1}\n";
}
else {
printf "{\"%02X}\n", $rep;
}
}
# Define all of STIX's composite symbols.
print <<'COMPOSITE';
% Extensible braces
\def\stix@braceglue{\hskip -.15em plus .15em}
\def\STIXdownbracefill{$\m@th%
\STIXbraceld\stix@braceglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@braceglue\STIXbracemu\stix@braceglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@braceglue\STIXbracerd$}
\def\STIXupbracefill{$\m@th%
\STIXbracelu\stix@braceglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@braceglue\STIXbracemd\stix@braceglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@braceglue\STIXbraceru$}
\def\stix@overbrace#1#2{%
\mathop {%
\vbox {%
\m@th%
\ialign{##\crcr%
\noalign{\kern.3\fontdimen5\textfont2}%
\csname STIXdown#1fill\endcsname\crcr%
\noalign{\kern.5\fontdimen5\textfont2\nointerlineskip}%
$\hfil\displaystyle{#2}\hfil$\crcr%
}%
}%
}%
\limits%
}
\def\stix@underbrace#1#2{
\mathop {%
\vtop {%
\m@th%
\ialign{##\crcr%
$\hfil\displaystyle{#2}\hfil$\crcr%
\noalign{\kern.5\fontdimen5\textfont2\nointerlineskip}%
\csname STIXup#1fill\endcsname\crcr%
\noalign{\kern.3\fontdimen5\textfont2}%
}%
}%
}%
\limits%
}
\def\STIXoverbrace#1{\stix@overbrace{brace}{#1}}
\def\STIXunderbrace#1{\stix@underbrace{brace}{#1}}
% Extensible parentheses
\def\stix@parenglue{\hskip -.2em plus .2em}
\def\STIXdownparenfill{$\m@th%
\STIXparenld\stix@parenglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@parenglue\STIXparenrd$}
\def\STIXupparenfill{$\m@th%
\STIXparenlu\stix@parenglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@parenglue\STIXparenru$}
\def\STIXoverparen#1{\stix@overbrace{paren}{#1}}
\def\STIXunderparen#1{\stix@underbrace{paren}{#1}}
% Extensible brackets
\def\stix@bracketglue{\hskip -.85em plus .85em}
\def\STIXdownbracketfill{$\m@th%
\STIXbracketld\stix@bracketglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@bracketglue\STIXbracketrd$}
\def\STIXupbracketfill{$\m@th%
\STIXbracketlu\stix@bracketglue%
\cleaders\hbox{\STIXbraceex}\hfill%
\stix@bracketglue\STIXbracketru$}
\def\STIXoverbracket#1{\stix@overbrace{bracket}{#1}}
\def\STIXunderbracket#1{\stix@underbrace{bracket}{#1}}
% Extensible arrows and harpoons
\def\stix@arrowaccentglue{\hskip -.23em plus .23em}
\def\STIXoverleftarrowfill{$\m@th%
\STIXarrowaccentlt\stix@arrowaccentglue%
\cleaders\hbox{\STIXarrowaccentex}\hfill$}
\def\STIXoverrightarrowfill{$\m@th%
\cleaders\hbox{\STIXarrowaccentex}\hfill%
\stix@arrowaccentglue\STIXarrowaccentrt$}
\def\STIXoverleftrightarrowfill{$\m@th%
\STIXarrowaccentlt\stix@arrowaccentglue%
\cleaders\hbox{\STIXarrowaccentex}\hfill%
\stix@arrowaccentglue\STIXarrowaccentrt$}
\def\STIXoverleftharpoonfill{$\m@th%
\STIXharpoonaccentlt\stix@arrowaccentglue%
\cleaders\hbox{\STIXarrowaccentex}\hfill$}
\def\STIXoverrightharpoonfill{$\m@th%
\cleaders\hbox{\STIXarrowaccentex}\hfill%
\stix@arrowaccentglue\STIXharpoonaccentrt$}
\def\stix@overarrow#1#2#3{%
\vbox {%
\m@th%
\ialign{##\crcr%
\csname STIXover#1fill\endcsname\crcr%
\noalign{\kern -1ex\nointerlineskip}%
$\hfil#2#3\hfil$\crcr%
}%
}%
}
\def\stix@underarrow#1#2#3{
\vtop {%
\m@th%
\ialign{##\crcr%
$\hfil#2#3\hfil$\crcr%
\noalign{\kern .2ex\nointerlineskip}%
\csname STIXover#1fill\endcsname\crcr%
\noalign{\kern -1ex\nointerlineskip}%
}%
}%
}
\def\STIXoverleftarrow{\mathpalette{\stix@overarrow{leftarrow}}}
\def\STIXoverrightarrow{\mathpalette{\stix@overarrow{rightarrow}}}
\def\STIXoverleftrightarrow{\mathpalette{\stix@overarrow{leftrightarrow}}}
\def\STIXoverleftharpoon{\mathpalette{\stix@overarrow{leftharpoon}}}
\def\STIXoverrightharpoon{\mathpalette{\stix@overarrow{rightharpoon}}}
\def\STIXunderleftarrow{\mathpalette{\stix@underarrow{leftarrow}}}
\def\STIXunderrightarrow{\mathpalette{\stix@underarrow{rightarrow}}}
\def\STIXunderleftrightarrow{\mathpalette{\stix@underarrow{leftrightarrow}}}
\def\STIXunderleftharpoon{\mathpalette{\stix@underarrow{leftharpoon}}}
\def\STIXunderrightharpoon{\mathpalette{\stix@underarrow{rightharpoon}}}
% Radicals
% TODO: Correct the height for short radicands like "a".
\def\STIXoverline#1{{%
\let\STIXarrowaccentrt=\relax
\mathpalette{\stix@overarrow{rightarrow}}{#1}%
}}
\DeclareRobustCommand{\STIXlongdivision}[1]{%
\raisebox{8.9pt}{\STIXSYMlargesymbols{"FA}}%
\kern-1pt%
\STIXoverline{\kern1pt\rule{0pt}{6.94444pt}#1}%
}
\DeclareRobustCommand{\STIXsqrt}[1]{%
\raisebox{8.9pt}{\STIXSYMlargesymbols{"F9}}%
\kern-0.5pt%
\STIXoverline{\kern1pt\rule{0pt}{6.94444pt}#1}%
}
COMPOSITE
;
# Output some trailer boilerplate.
print "\\endinput\n";
Generated by dwww version 1.15 on Sun Jun 23 04:32:33 CEST 2024.