summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-11-06 22:57:23 +0000
committerKarl Berry <karl@freefriends.org>2015-11-06 22:57:23 +0000
commitaf7cfe3a9110a3ddd99d41da437f22f7d7b5d121 (patch)
treec2ea155a28e750a2fe89cc0506e40a001d5d8975 /Master/texmf-dist/doc/latex/comprehensive/source/makefakestarfont
parent21dd7ec03eb7a38df67212c30441d072594e5276 (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-xMaster/texmf-dist/doc/latex/comprehensive/source/makefakestarfont32
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";
+}