diff options
author | Karl Berry <karl@freefriends.org> | 2015-11-06 22:57:23 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-11-06 22:57:23 +0000 |
commit | af7cfe3a9110a3ddd99d41da437f22f7d7b5d121 (patch) | |
tree | c2ea155a28e750a2fe89cc0506e40a001d5d8975 /Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont | |
parent | 21dd7ec03eb7a38df67212c30441d072594e5276 (diff) |
comprehensive (6nov15)
git-svn-id: svn://tug.org/texlive/trunk@38787 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont')
-rwxr-xr-x | Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont b/Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont new file mode 100755 index 00000000000..b52dc8b6acf --- /dev/null +++ b/Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont @@ -0,0 +1,32 @@ +#! /usr/bin/env perl + +# Convert starfont.sty to a faked version that does not conflict with +# every other package providing astronomical symbols +# +# By Scott Pakin <scott.clsl@pakin.org> + +use POSIX; +use warnings; +use strict; + +# 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 starfont.sty. +while (my $oneline = <>) { + chomp $oneline; + + # Modify the package header information. + $oneline =~ s/starfont\.sty/fakestarfont.sty/; + $oneline =~ s/\{starfont\}/\{fakestarfont\}/; + $oneline =~ s/Anthony/faked Anthony/; + + # Replace all symbol definitions. + $oneline =~ s/^\\def\\((var)?[A-Z])/\\def\\STAR$1/; + + # Output all lines, modified or not. + print $oneline, "\n"; +} |