diff options
Diffstat (limited to 'Build/source/texk/windvi/mksedscript.perl')
-rw-r--r-- | Build/source/texk/windvi/mksedscript.perl | 144 |
1 files changed, 0 insertions, 144 deletions
diff --git a/Build/source/texk/windvi/mksedscript.perl b/Build/source/texk/windvi/mksedscript.perl deleted file mode 100644 index 2934e612445..00000000000 --- a/Build/source/texk/windvi/mksedscript.perl +++ /dev/null @@ -1,144 +0,0 @@ -# Values from c-auto.h - -$mk_NOTOOL=''; -$mk_GREY=''; -$mk_BUTTONS=''; -$mk_PS_GS=''; -$mk_GS_PATH='gswin32c'; -$mk_PS_DPS=''; -$mk_PS_NEWS=''; -$mk_A4=''; - -# HyperTeX: There appears to be no (easy) way to disable this -$mk_HTEX=1; - -# Kpathsea defaults, they are #if'ed in the source but there is no -# config option to disable them. -$mk_SELFILE=1; -$mk_KPATHSEA=1; - -# Optional values from CFLAGS - -$mk_MFMODE='unspecified'; -$mk_BDPI=600; -$mk_DEFAULT_FONT_SIZES='m0:m0.5:m1:m2:m3:m4:m5'; -$mk_SHRINK=8; - -&main; - -exit 0; - -sub arg_cflags -{ - while(<@ARGV>) { - if ($_ =~ m/-D(.*)=(.*)/) { - eval ("\$mk_$1=$2\n"); - } - elsif ($_ =~ m/-D(.*)/ ) { - eval ("\$mk_$1=1\n"); - } - } -} - -sub cauto_cflags -{ - open IN, "<c-auto.h"; - while (<IN>) { - if ($_ =~ m/#define\s+(\S+)\s*=\s*(\S+)/ ) { - eval("\$mk_$1=$2"); - } - } - close IN; -} - -sub main -{ - &arg_cflags(); - &cauto_cflags(); - - if ($mk_NOTOOL ne '') { - $mk_BUTTONS=''; - } - if ($mk_GREY eq '') { - print "/^#ifgrey/,/^#/d\n"; - } - if ($mk_BUTTONS eq '') { - print "/^#ifbuttons/,/^#/d\n"; - } - if ($mk_PS_DPS eq '') { - print "/^#ifdps/,/^#/d\n"; - } - if ($mk_PS_NEWS eq '') { - print "/^#ifnews/,/^#/d\n"; - } - if ($mk_HTEX eq '') { - print "/^#ifhyper/,/^#/d\n"; - } - if ($mk_NOGRID ne '') { - print "/^#ifgrid/,/^#/d\n"; - } - - if ($mk_KPATHSEA eq '') { - print "/^#ifkpathsea/,/^#/d\n"; - } - else { - print "/^#ifnokpathsea/,/^#/d\n"; - } - -# -DNOSELFILE is supposed to override everything - if ($mk_NOSELFILE == 1) { - print "/^#ifselfile/,/^#/d\n"; - } - elsif ($$mk_SELFILE == 1) { - print "/^#ifnoselfile/,/^#/d\n"; - } - -# See HTEX comment above -# if test -z "$mk_HAVE_LIBWWW" || test -z "$mk_HAVE_WWWLIB_H"; -# then echo '/^#ifhyper/,/^#/d'; fi - -# Process remaining PostScript emulation arguments - - if ($mk_PS_GS eq '') { - print "/^#ifghost/,/^#/d\n"; - } - else { - print "s^\@GS_PATH\@^$mk_GS_PATH^\n"; - } - - if ($mk_PS_GS ne '' || $mk_PS_DPS ne '' || $mk_PS_NEWS ne '') { - $mk_PS='y'; - print "/^#ifnops/,/^#/d\n"; - } - else { - $mk_PS=''; - print "/^#ifps/,/^#/d\n"; - } - -# Miscellaneous args - - if ($mk_A4 ne '') { - print "s/\@DEFAULT_PAGE_SIZE\@/21 x 29.7 cm (A4 size)/\n"; - print "s/\@DEFAULT_UNIT\@/cm \" (centimeters)\"/\n"; - } - else { - print "s/\@DEFAULT_PAGE_SIZE\@/8.5 x 11 inches/\n"; - print "s/\@DEFAULT_UNIT\@/in \" (inches)\"/\n"; - } - - print "s^\@MFMODE\@^$mk_MFMODE^\n"; - print "s/\@BDPI\@/$mk_BDPI/\n"; - print "s/\@SHRINK\@/$mk_SHRINK/\n"; - - $tmp = "s/\@DEFAULT_FONT_SIZES\@/$mk_DEFAULT_FONT_SIZES/"; - $tmp =~ s/:/ :\\\\\\/g; - print "$tmp\n"; -# Remove all remaining '#' lines - - print "/^#/d\n"; - -# Done - - exit 0; -} - |