diff options
Diffstat (limited to 'Master/texmf-dist/tex')
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/cropmark.sty | 94 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/cropmark.tex | 154 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/croptest.tex | 44 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/dayofweek.tex | 149 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/daytime.sty | 30 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/default.sty | 311 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/dow.tex | 44 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/emtrees.tex | 87 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/endnote.tex | 36 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/fakebold.tex | 5 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/hep.tex | 12 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/inscrutable.tex | 11 |
12 files changed, 0 insertions, 977 deletions
diff --git a/Master/texmf-dist/tex/generic/genmisc/cropmark.sty b/Master/texmf-dist/tex/generic/genmisc/cropmark.sty deleted file mode 100644 index f6bdada0fb6..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/cropmark.sty +++ /dev/null @@ -1,94 +0,0 @@ -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% Cropmark.tex -% version 1.0 -% -% This will put crop marks on everythings that's \shipout'ed. -% It will work with any format, since it relies on redefinition -% of \shipout. Exception: if you declare \output{} you will -% not get crop marks. -% -% Cut along the center of the rules to get exactly the shipped -% out box. To get padding around this box, use the parameters below. -% -% User adjustable parameters: -% \croplength length of the crop rules -% \cropwidth width of the crop rules -% \cropsep separation between rule and page box -% \croppadtop padding in case page box looks bigger than it is -% \croppadbot (for instance with plain TeX head/footline) -% \croppadlr -% -% Date: 17 March 1992 -% -% Author: -% Victor Eijkhout -% Department of Computer Science -% University Tennessee at Knoxville -% 104 Ayres Hall -% Knoxville, TN 37996 -% USA -% -% eijkhout@cs.utk.edu -% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% save the old \shipout command -\let\xshipout\shipout - -% define a new one: investigate what's being shipped -\def\shipout{\futurelet\SomeBox\yshipout} - -% if its a box register, do postprocessing with \afterassignment, -% otherwise do \afterassignment which will do \aftergroup -\def\yshipout - {\ifx\SomeBox\box \let\next\shipAfterRegister - \else \ifx\SomeBox\copy \let\next\shipAfterRegister - \else \let\next\shipAfterBox \fi\fi - \afterassignment\next\setbox0= - } -\def\shipAfterBox{\aftergroup\shipAfterRegister} - -% now we have whatever is being shipped in box0, -% so we can insert crop marks -\newdimen\croplength \croplength=20pt -\newdimen\cropsep \cropsep=10pt -\newdimen\cropwidth \cropwidth=2pt - -\newdimen\croppadtop \croppadtop=0pt -\newdimen\croppadbot \croppadbot=0pt -\newdimen\croppadlr \croppadlr=0pt - -\def\crophrule{\vrule height\cropwidth depth0pt width\croplength} -\def\cropvrule{\vrule width\cropwidth depth0pt height\croplength} - -\def\shipAfterRegister - {\setbox0\vbox - {\offinterlineskip - \dimen0\cropsep\advance\dimen0\croplength - \setbox2\hbox to \wd0 - {\kern-\croppadlr\kern-.5\cropwidth - \cropvrule\hfil\cropvrule - \kern-.5\cropwidth\kern-\croppadlr} - \setbox4\hbox to \wd0{\llap{\crophrule\kern\cropsep\kern\croppadlr} - \hfil - \rlap{\kern\croppadlr\kern\cropsep\crophrule}} - % go a bit up, put vertical rules, put horizontal rules - \kern-\dimen0 - \copy2 - \kern\cropsep\kern-.5\cropwidth - \copy4 - \kern-.5\cropwidth - % padding - \kern\croppadtop - % the box to be shipped - \box0 - % padding - \kern\croppadbot - % and now the top in reverse - \kern-.5\cropwidth - \box4 - \kern-.5\cropwidth\kern\cropsep - \box2 - } - \xshipout\box0\relax} -\endinput diff --git a/Master/texmf-dist/tex/generic/genmisc/cropmark.tex b/Master/texmf-dist/tex/generic/genmisc/cropmark.tex deleted file mode 100644 index 3f04674e820..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/cropmark.tex +++ /dev/null @@ -1,154 +0,0 @@ -%% Save file as: CROPMARK.TEX Source: FILESERV@SHSU.BITNET -% Author: Peter Ungar <LAXA@ACFcluster.NYU.EDU> -% -% CROPMARK MACROS FOR PLAIN TEX. Feb. 10, 1992 01:31 Peter Ungar 914 723 7187 -% Cropmarks are markings on pages intended to be phototypeset. They mark the -% corners of the intended book page. -% THE DIMENSION SPECIFICATIONS (\paperheight,\paperwidth, \topmargin, -% \outsidemargin, \hsize, \vsize) SHOULD COME BEFORE THE MACROS. OTHERWISE -% THE CROPMARKS GO INTO ODD LOCATIONS. THESE QUANTITIES ARE ASSIGNED VALUES -% IN THIS FILE TO MAKE THE EXAMPLE WORK. REPLACE THE GIVEN VALUES BY THE -% ONES YOU NEED BEFORE INSTALLING THE MACROS. HSIZE IS THE LENGTH OF THE LINES -% AND VSIZE IS THE HEIGHT OF THE PRINTED PAGE NOT COUNTING HEADER OR FOOTER. -% \lefttopcropmark should be inserted at the beginning of the -% headline. It is a \llap and should not take space away from any other item -% in the headline. \righttopcropmark should be at the end of the headline. -% If there is no \hfil in the headline, use one to put the cropmark to -% the end of the headline. It is a \rlap and in theory it should not take -% space away -% from other items. Do not to put a space in front of \righttopcropmark be- -% cause the space will be typeset unless it is preceded by a control sequence. -% The bottom cropmarks should be inserted in the beginning and end of the -% \footline. Be sure to fill space in the middle with \hfil. -% Remember that the \footline definition has to come BEFORE the end of the -% first page. -% The values of \voffset and \hoffset can be adjusted to try to push the -% entire page including the cutmarks into the area your printer can print. -% The quantities you have to input are -% \paperheight, \paperwidth, \topmargin (measured from the top of the headline -% which is assumed to be 10-point size, and \outsidemargin which will be the -% right margin of odd-numbered pages and the left margin of even numbered -% pages. The other quantities which are needed are computed by the macros. -% The computations two empirical corrections. -% If the dimensions on your printout are slightly off, try over or under- -% stating the true dimensions of the above quantities. -% The macros ought to work for all values of \hsize and \vsize but if these -% are too large the cropmarks may not fit the area most printers can print. -% \nocropmarks replaces the cropmark macros by \relax (blanks). The cropmarks -% are needed only for phototypesetting and we may not want to see them on -% printout prepared for other purposes. -% TEX WILL NOT LET YOU KNOW IF YOU DID NOT ASSIGN A VALUE TO A DIMENSION. -% THAT MAY BE THE REASON IF YOU GET BIZARRE RESULTS. THE VALUES MUST COME -% BEFORE THE MACROS. - -%\magnification 1042 %% Needed to get exact dimensions on the MacPlus screen. - -\voffset=20mm\hoffset=15mm % Needed to bring cropmarks within printable area. -\overfullrule=0mm % To prevent overfullrules being added to cropmarks -\newdimen\paperheight -\newdimen\paperwidth -\newdimen\topmargin -\newdimen\outsidemargin -\newdimen\insidemargin -\newdimen\leftmargin -\newdimen\rightmargin -\newdimen\topliftadjustment -\newdimen\bottomliftadjustment -\newdimen\topcropmarklift -\newdimen\bottomcropmarklift -\newdimen\leftsideskip -\newdimen\rightsideskip -\newdimen\bclifta -\newdimen\bcliftb - -\vsize=182mm -\hsize=112mm -\paperheight=227.4mm % These six quantities specify the margins. -\paperwidth=152.3mm % The ones introduced below are either -\topmargin=14mm % computed from these by the macros or they -\outsidemargin=25mm % are auxiliary. - -\topliftadjustment=2.6mm -\bottomliftadjustment=15.5mm -\insidemargin=\paperwidth -\advance\insidemargin by -\outsidemargin -\advance\insidemargin by -\hsize - -\def\leftorright{\ifodd\pageno -\leftmargin=\insidemargin\rightmargin=\outsidemargin\else -\leftmargin=\outsidemargin\rightmargin=\insidemargin\fi -\leftsideskip=\leftmargin -\advance\leftsideskip by -4.05mm -\rightsideskip=\rightmargin -\advance\rightsideskip by -4.05mm} - -\def\lefttopcropmark{{\parindent=0mm\llap{\vtop{ -\hsize=\leftmargin -\vskip-\topliftadjustment -\vskip-\topmargin -\vrule height 0.05mm depth 4mm width 0.05mm -\vrule height 0.05mm depth0mm width 4mm -\hfill}}}} -\def\righttopcropmark{{\parindent=0mm\rlap{\vtop{\hsize=\rightmargin -\vskip-\topliftadjustment -\vskip-\topmargin -\hfill -\vrule height 0.05mm depth0mm width 4mm -\vrule height 0.05mm depth 4mm width 0.05mm -}}}} - -\bottomcropmarklift=-\paperheight -\advance\bottomcropmarklift by\topmargin -\advance\bottomcropmarklift by\vsize -\advance\bottomcropmarklift by\bottomliftadjustment - -\bclifta=\bottomcropmarklift -\advance\bclifta by 4mm -\bcliftb=\bottomcropmarklift -\advance\bcliftb by -0.05mm - -\def\leftbottomcropmark{{\parindent=0mm\llap{ -\hbox{\vrule height\bclifta depth -\bottomcropmarklift width 0.05mm -\vrule height \bottomcropmarklift depth -\bcliftb width 4mm -\hskip\leftsideskip}}}} - -\def\rightbottomcropmark{{\parindent=0mm\rlap{\hbox{\hskip\rightsideskip -\vrule height \bottomcropmarklift depth -\bcliftb width 4mm -\vrule height\bclifta depth -\bottomcropmarklift width 0.05mm}}}} - - -\def\nocropmarks{\def\lefttopcropmark{\relax} % THIS TURNS OFF CROPMARKS -\def\righttopcropmark{\relax} -\def\leftbottomcropmark{\relax} -\def\rightbottomcropmark{\relax}} -\endinput - -% END OF THE MACROS. AN EXAMPLE FOLLOWS. COMMENT OUT \endinput TO -% TYPESET IT. - -\headline={\leftorright\lefttopcropmark\ifodd\pageno -\hfil HEADLINE\hfil\folio\else -\folio\hfil HEADLINE\hfil \fi -\righttopcropmark} -\footline={\leftorright\leftbottomcropmark -\hfil -\rightbottomcropmark} - -\noindent Topliftadjustment=2.6mm bottomliftadjustment=15.5mm -\hfill H - -\noindent paperheight=227.4mm paperwidth=152.3mm - -\noindent topmargin=14mm outsidemargin=25mm - -\noindent vsize=182mm hsize=112mm - -NOTE THAT THE DIMENSION SPECIFICATIONS MUST COME BEFORE THE MACROS. -\vfill -\noindent\line{Here is the bottom left corner. \hfil Bottom right is H} -\eject -\noindent\line{Here is the top left corner.\hfil Top right is H} -\vfill -\noindent\line{Here is the bottom left corner. \hfil Bottom right is H} -\eject -\end diff --git a/Master/texmf-dist/tex/generic/genmisc/croptest.tex b/Master/texmf-dist/tex/generic/genmisc/croptest.tex deleted file mode 100644 index 06058b6861d..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/croptest.tex +++ /dev/null @@ -1,44 +0,0 @@ -% An illustration of cropmark.sty by Victor Eijkhout. -% This file belongs to cropmark.sty version 1.0 or later, -% it is both plain TeX and LaTeX compatible. - -\def\plainname{plain} -\ifx\fmtname\plainname - \input cropmark.sty -\else - \documentstyle[cropmark]{article} - \begin{document} -\fi - -\parindent=0pt -\def\page -{Left\hfill toP -\vfill -Bottom\hfill righT -\eject} - -% First illustrate the default settings - -\page - -% Now stretch a bit (this is necessary for LaTeX) - -\ifx\plainname\fmtname - \advance\croppadtop by 5pt - \advance\croppadbot by 5pt - \advance\croppadlr by 2pt -\else - \addtolength{\croppadtop}{-10pt} - \addtolength{\croppadbot}{15pt} - \addtolength{\croppadlr}{15pt} -\fi - -\page - -\edef\byebye{ -\if\fmtname\plainname - \noexpand\csname bye\noexpand\endcsname -\else - \noexpand\end{document} -\fi} -\byebye
\ No newline at end of file diff --git a/Master/texmf-dist/tex/generic/genmisc/dayofweek.tex b/Master/texmf-dist/tex/generic/genmisc/dayofweek.tex deleted file mode 100644 index 4ce46ac2434..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/dayofweek.tex +++ /dev/null @@ -1,149 +0,0 @@ -% -% \DayOfWeek expands to the day of the week ("Sunday", etc.) -% \PhaseOfMoon expands to the phase of the moon -% -% Written by Martin Minow of DEC (minow%bolt.dec@decwrl.dec.com). -% -\def\DayOfWeek{% -% -% Calculate day of the week, return "Sunday", etc. -% - \newcount\dow % Gets day of the week - \newcount\leap % Leap year fingaler - \newcount\x % Temp register - \newcount\y % Another temp register -% leap = year + (month - 14)/12; - \leap=\month \advance\leap by -14 \divide\leap by 12 - \advance\leap by \year -% dow = (13 * (month + 10 - (month + 10)/13*12) - 1)/5 - \dow=\month \advance\dow by 10 - \y=\dow \divide\y by 13 \multiply\y by 12 - \advance\dow by -\y \multiply\dow by 13 \advance\dow by -1 \divide\dow by 5 -% dow += day + 77 + 5 * (leap % 100)/4 - \advance\dow by \day \advance\dow by 77 - \x=\leap \y=\x \divide\y by 100 \multiply\y by 100 \advance\x by -\y - \multiply\x by 5 \divide\x by 4 \advance\dow by \x -% dow += leap / 400 - \x=\leap \divide\x by 400 \advance\dow by \x -% dow -= leap / 100 * 2; -% dow = (dow % 7) - \x=\leap \divide\x by 100 \multiply\x by 2 \advance\dow by -\x - \x=\dow \divide\x by 7 \multiply\x by 7 \advance\dow by -\x - \ifcase\dow Sunday\or Monday\or Tuesday\or Wednesday\or - Thursday\or Friday\or Saturday\fi -} -%% -%% -%% -\def\PhaseOfMoon{% Calculate the phase of the (civil) moon. -% -% The routine calculates the year's epact (the age of the moon on Jan 1.), -% adds this to the number of days in the year, and calculates the phase -% of the moon for this date. It returns the phase as a string, e.g., -% "new", "full", etc. -% -% In the algorithm: -% -% diy Is the day of the year - 1 (i.e., Jan 1 is day 0). -% -% golden Is the number of the year in the Mentonic cycle, used to -% determine the position of the calender moon. -% -% epact Is the age of the calender moon (in days) at the beginning -% of the year. To calculate epact, two century-based -% corrections are applied: -% Gregorian: (3 * cent)/4 - 12 -% is the number of years such as 1700, 1800 when -% leap year was not held. -% Clavian: (((8 * cent) + 5) / 25) - 5 -% is a correction to the Mentonic cycle of about -% 8 days every 2500 years. Note that this will -% overflow 16 bits in the year 409600. Beware. -% -% The algorithm is accurate for the Gregorian calender only. -% -% The magic numbers used in the phase calculation are as follows: -% 29.5 The moon's period in days. -% 177 29.5 scaled by 6 -% 22 (29.5 / 8) scaled by 6 (this gets the phase) -% 11 ((29.5 / 8) / 2) scaled by 6 -% -% Theoretically, this should yield a number in the range 0 .. 7. However, -% two days per year, things don't work out too well. -% -% Epact is calculated by the algorithm given in Knuth vol. 1 (calculation -% of Easter). See also the article on Calenders in the Encyclopaedia -% Britannica and Knuth's algorithm in CACM April 1962, page 209. -% - \newcount\cent % Century number (1979 == 20) - \newcount\epact % Age of the moon on Jan. 1 - \newcount\diy % Day in the year - \newcount\golden % Moon's golden number - \newcount\x % Temp - \newcount\m % Temp for modulus - \diy=\day \advance\diy by \ifcase\month % Jan 1 == 0 - -1\or -1\or 30\or 58\or 89\or 119\or 150\or % Jan .. Jun - 180\or 211\or 241\or 272\or 303\or 333\fi % Jul .. Dec -% if ((month > 2) && ((year % 4 == 0) && -% ((year % 400 == 0) || (year % 100 != 0)))) -% diy++; /* Leapyear fixup */ - \ifnum \month>2 - \x=\year \m=\x \divide\m by 4 \multiply\m by 4 \advance\x by -\m - \ifnum \x=0 % month > 2 and maybe leapyear - \x=\year \m=\x \divide\m by 400 \multiply\m by 400 \advance\x by -\m - \ifnum \x=0 % 2000 is a leap year - \advance\diy by 1 % so it's one day later - \else % not 2000, check other '00's - \x=\year \m=\x \divide\m by 100 \multiply\m by 100 \advance\x by -\m - \ifnum \x>0 % not some other '00' year - \advance\diy by 1 % it's still one day later - \fi % not odd century - \fi % not 2000-type century - \fi % not leapish year - \fi % not march or later -% cent = (year / 100) + 1; /* Century number */ -% golden = (year % 19) + 1; /* Golden number */ - \cent=\year \divide\cent by 100 \advance\cent by 1 - \golden=\year - \m=\year \divide\m by 19 \multiply\m by 19 \advance\golden by -\m - \advance\golden by 1 -% epact = ((11 * golden) + 20 /* Golden number */ -% + (((8 * cent) + 5) / 25) - 5 /* 400 year cycle */ -% - (((3 * cent) / 4) - 12)) % 30;/* Leap year correction */ - \epact=11 \multiply\epact by \golden - \advance\epact by 20 - \x=8 \multiply\x by \cent \advance\x by 5 - \divide\x by 25 \advance\x by -5 - \advance\epact by \x - \x=3 \multiply\x by \cent \divide\x by 4 \advance\x by -12 - \advance\epact by -\x - \m=\epact \divide\m by 30 \multiply\m by 30 \advance\epact by -\m -% if (epact <= 0) -% epact += 30; /* Age range is 1 .. 30 */ -% if ((epact == 25 && golden > 11) || epact == 24) -% epact++; - \ifnum \epact<0 - \advance\epact by 30 - \fi - \ifnum \epact=25 - \ifnum \golden>11 - \advance \epact by 1 - \fi - \else - \ifnum \epact=24 - \advance \epact by 1 - \fi - \fi -% -% Calculate the phase, using the magic numbers defined above. -% Note that phase may be equal to 8 (== 0) on two days of the year -% due to the way the algorithm was implemented. -% phase = (((((diy + epact) * 6) + 11) % 177) / 22) & 7; -% - \x=\diy \advance\x by \epact \multiply\x by 6 \advance\x by 11 - \m=\x \divide\m by 177 \multiply\m by 177 \advance\x by -\m - \divide\x by 22 - \ifcase\x new\or waxing crescent\or in its first quarter\or - waxing gibbous\or full\or waning gibbous\or - in its last quarter\or waning crescent\or new\fi -} diff --git a/Master/texmf-dist/tex/generic/genmisc/daytime.sty b/Master/texmf-dist/tex/generic/genmisc/daytime.sty deleted file mode 100644 index cfeeafb205b..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/daytime.sty +++ /dev/null @@ -1,30 +0,0 @@ -%% Save file as: DAYTIME.STY Source: FILESERV@SHSU.BITNET -%% Source: INFO-TeX@SHSU.edu (Wed, 2 Oct 1991 10:01:43 EDT) -%% Author: Mauro Orlandini <ORLANDINI@HEAVAX.GSFC.NASA.GOV> -%% Modified: George D. Greenwade <bed_gdg@SHSU.edu> -- added \Daytime -%% to not have the leading 0 on 1:00 --- 9:00 -\begingroup - \count0=\time - \count1=\count0 - \divide\count0 by 60 - \count2=\count0 - \multiply\count0 by 60 - \advance\count1 by -\count0 - \ifnum\count2>11 - \ifnum\count2>12 \advance\count2 by -12\fi - \def\ampm{pm}% - \else - \ifnum\count2=0 \advance\count2 by 12\fi - \def\ampm{am}% - \fi - \xdef\daytime{% - \ifnum\count2<10 0\fi \the\count2:% - \ifnum\count1<10 0\fi \the\count1 - \ampm - }% - \xdef\Daytime{% %GDG - \the\count2:% %GDG - \ifnum\count1<10 0\fi \the\count1 %GDG - \ampm %GDG - }% %GDG -\endgroup diff --git a/Master/texmf-dist/tex/generic/genmisc/default.sty b/Master/texmf-dist/tex/generic/genmisc/default.sty deleted file mode 100644 index b2a0f0c0232..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/default.sty +++ /dev/null @@ -1,311 +0,0 @@ -% DEFAULT.STY, version 1.3 July 1998, provides -% 1. macro parameter-defaulting mechanism. -% 2. user stack and dynamic array -% Particularly useful if you have macros with many parameters, and you -% don't want to remember all of them all the time. -% -% Author: Zhuhan Jiang, University of New England, Australia -% Email: zhuhan@neumann.une.edu.au -% -% NOTES: -% 1. This style file can be loaded in as many times as you want, -% without overrunning the resources for such as counter -% registers and etc. So different packages may all use it to -% default their macro parameters, without causing any conflict. -% 2. Macro parameters that can be defaulted through this style file -% are those included in square brackets. E.g. #1, #2, #3 in -% \foo[#1][#2][#3]#4#5 are defaultable while #4 and #5 here are -% not. -% 3. If \foo is a macro to be defaulted, the original macro \foo -% will be renamed as ``\foo@ raw'' (yes, there is a space) and -% the new macro \foo will be defined through the use of the -% original ``\foo@ raw''. -% -% MAIN MACRO: -% \setdefalut{cmdname}{n}{default1}{..}{default_n} -% - gives defaults to \cmdname[p_1][p_2]..[p_n] -% (the macro to be defaulted must be already defined -% when \setdefault is executed) -% EXAMPLES: -% 1. Suppose \foo is defined for \foo[#1][#2][#3]{#4}, we may default -% all (or some of) the parameters in the SQUARE BRACKETS to for -% instance 'one', 'two' and 'three' via -% \setdefault{foo}{3}{one}{two}{three} -% This way, command \foo{stuff} or \foo[]{stuff} or \foo[][]{stuff} -% or \foo[][][]{stuff} will all be translated as -% \foo[one][two][three]{stuff}. Command \foo[][2]{stuff} will be -% translated as \foo[one][2][three]{stuff}. -% 2. See how \placebox is defined and redefined via \setdefault -% in this file. -% -% TIP: -% The best strategy to define (e.g.) \foo[#1][#2]{#3} so that -% it has defaults for #1 and #2 -% 1. define \foo@[#1][#2]#3 as normal (what you wish) -% 2. define \foo[#1][#2]#{\foo@[#1][#2]} to make {#3} mandatory -% 3. use \setdefault{foo}{2}{one}{two} to default #1=one and #2 to two -% -% MINOR MACROS: -% \placebox[#1][#2][#3][#4][#5][#6]{#7} -% - place stuff #7 in a box at the position specified -% by parameters #1, ..., #6. (move mini page around) -% #1: box position (default 0) -% 1--6--2 <-- top of the box -% | | -% | | -% | | -% 9 5 7 0 is -5 <-- middle height of the box -% | | -% 10 11 12 <-height up <-- baseline -% | | depth down -% 4--8--3 <-- bottom of the box -% #1<=0: box has no width, no height -% #2: x shift (default 0pt) -% #3: y shift (default 0pt) -% #4,#5: extra x,y shift in multiple of box width/10, height/10 -% #6: box type: v=vbox, otherwise=hbox -% #7: content to be boxed -% \push{ ... } - push stuff to stack; anything can be saved to -% \pop - pop stack -% \popnil - delete stack top element (pop to nil) -% \fetch{#1} - fetch #1-th entry from the stack -% (illegal number #1 will produce \relax) -% if #1>0, fetch #1-th entry from bottom of stack -% if #1>=0, fetch (-#1)-th element from top of stack -% e.g. -% fetch{0} - fetch the element of the top of stack -% fetch{-1} - the element just below the top of stack -% fetch{2} - 2nd element from the bottom of stack -% -\ifx\EntryDefault\undefined - \message{1.3 13/7/98}% - {\catcode`\@=11\relax \def\temp@macro{\space\space\space\space}% - \wlog{\temp@macro DEFAULT.STY version 1.3 July 1998 By Z Jiang}% - \wlog{\temp@macro University of New England, Australia}% - \wlog{\temp@macro Email: zhuhan@neumann.une.edu.au}}% -\fi -\xdef\EntryDefault{\the\catcode`\@}\catcode`\@=11\relax % SAVE @'s STATUS -% -% -% NEW MEASURES etc (parameter defaulting mechanism given by macros below) -\def\new@measures{% - \def\temp@@macro##1##2##3{\expandafter\ifx\csname ##3temp##2##1\endcsname - \relax\edef\next{\noexpand\csname new##1\noexpand\endcsname - \csname ##3temp##2##1\endcsname}% - \else\let\next\relax\fi\next}% - \def\temp@macro##1{% - \temp@@macro{##1}{@}{}\temp@@macro{##1}{@@}{}\temp@@macro{##1}{@@@}{}}% - \temp@macro{count}\temp@macro{toks}\temp@macro{box}\temp@macro{read}% - \temp@@macro{if}{@}{if}\temp@@macro{if}{@@}{if}\temp@@macro{if}{@@@}{if}% - \def\temp@@macro##1{\expandafter\ifx\csname temp##1dim\endcsname - \relax\edef\next{\noexpand\csname newdimen\noexpand\endcsname - \csname temp##1dim\endcsname}% - \else\let\next\relax\fi\next}% - \temp@@macro{@}\temp@@macro{@@}\temp@@macro{@@@}% -}% -\let\temp@@@macro=\wlog\def\wlog#1{}\new@measures -% -%%% GENERAL STACK -\def\make@STKcount{\csname newcount\endcsname - \STKcount\global\STKcount=0\relax}% -\ifx\STKcount\undefined@ - \def\next{\make@STKcount}\else\def\next{}\fi -\next % ensures stack pointer not flushed if this piece of code - % is loaded again -% -\long\def\push#1{\global\advance\STKcount1\relax -\expandafter\gdef\csname STK\the\STKcount\string~\endcsname{#1}}% -% -\def\popnil{\expandafter\let\expandafter\temp@macro - \csname STK\the\STKcount\string~\endcsname - \ifnum\STKcount>0\global\expandafter\let - \csname STK\the\STKcount\string~\endcsname=\undefined@ - \global\advance\STKcount-1% - \else - \def\temp@macro{}\global\STKcount=0% - \fi\relax % \temp@macro for pop -}% -% -\def\pop{\popnil\temp@macro}% -% -\def\fetch@#1{\ifnum#1>0 \relax \temp@count=#1 \else - \temp@count=\STKcount \advance\temp@count by #1 \fi - \csname STK\the\temp@count\string~\endcsname -}% -\def\fetch#{\fetch@}% -% -%% GET PARAMETERS -\long\def\get@nepara[#1][#2]{{\def\next@{#2}% -\ifx\next@\empty\push{#1}\else\push{#2}\fi}\ag@in}% -% -\long\def\get@para\left@#1\right@{% -\def\check@{% - \ifx[\next@ \def\full@####1{\get@nepara[#1]####1}% - \else \def\full@{\get@nepara[#1][#1]}\fi - \full@}% -\futurelet\next@\check@}% -% -\long\def\do@nepara\left@#1\right@#2\p@r@end{% -\gdef\p@r@data{#2}\global\advance\p@r@count1\get@para\left@#1\right@}% -% -\def\ag@in{\ifx\p@r@data\empty \def\next@{\relax -\getp@r@s\run@CMD}\else -\def\next@{\expandafter\do@nepara\p@r@data\p@r@end}\fi -\next@}% -% -\def\run@CMD{\csname STK\the\STKcount\string~\endcsname}% -% -\def\num@to@word#1{\ifcase #1 \or - \def\temp@macro{one}\or \def\temp@macro{two}\or - \def\temp@macro{three}\or \def\temp@macro{four}\or - \def\temp@macro{five}\or \def\temp@macro{six}\or - \def\temp@macro{seven}\or \def\temp@macro{eight}\or - \def\temp@macro{nine}\else \def\temp@macro{}\fi -\temp@toks=\expandafter{\temp@macro}}% -% -\temp@@count=1 % make nine newtoks, if they don't already exist -\loop \num@to@word{\temp@@count}% - \expandafter\ifx\csname p@r@\the\temp@toks\endcsname\relax - \temp@@toks={newtoks}\expandafter\csname\expandafter\the - \expandafter\temp@@toks\expandafter\endcsname - \csname p@r@\the\temp@toks\endcsname\fi - \advance\temp@@count by 1 \ifnum\temp@@count<10 \repeat -% -\ifx\p@r@count\undefined@ \csname newcount\endcsname\p@r@count\fi -\long\def\st@ckparas#1\p@r@end{% -\global\p@r@count=0\gdef\p@r@data{#1}\ag@in}% -% -% PARAMETER ASSIGNMENT % use \temp@count -\def\getp@r@s{\temp@count=\p@r@count -{\loop - \ifnum\temp@count>0 % - \expandafter\let\expandafter - \temp@macro\csname STK\the\STKcount\string~\endcsname - \ifcase\temp@count - \or \global\p@r@one=\expandafter{\temp@macro}% - \or \global\p@r@two=\expandafter{\temp@macro}% - \or \global\p@r@three=\expandafter{\temp@macro}% - \or \global\p@r@four=\expandafter{\temp@macro}% - \or \global\p@r@five=\expandafter{\temp@macro}% - \or \global\p@r@six=\expandafter{\temp@macro}% - \or \global\p@r@seven=\expandafter{\temp@macro}% - \or \global\p@r@eight=\expandafter{\temp@macro}% - \or \global\p@r@nine=\expandafter{\temp@macro}% - \else \errmessage{Parameter capacity exceeded.}% - % this should never happen: TeX's max para no. is 9 - \fi - \global\expandafter\let - \csname STK\the\STKcount\string~\endcsname=\undefined@% - \global\advance\STKcount-1% - \global\advance\temp@count-1\relax - \fi - \ifnum\temp@count>0 % -\repeat}}% -% -\def\clrp@r@s{%GLOBALLY clear -\global\p@r@one={}\global\p@r@two={}\global\p@r@three={}% -\global\p@r@four={}\global\p@r@five={}\global\p@r@six={}% -\global\p@r@seven={}\global\p@r@eight={}\global\p@r@nine={}}% -% -\def\read@paras#1{\temp@@@count=1 %use \temp@@@count and \temp@@count - \loop \num@to@word{\the\temp@@@count}\csname p@r@\the\temp@toks\endcsname={}% - \advance\temp@@@count by 1 \ifnum\temp@@@count<10 \repeat - \temp@@@count=1 \temp@@count=#1 % - \def\read@one@para##1{\num@to@word{\temp@@@count}% - \def\temp@macro{\left@ ##1\right@}% - \temp@@@toks=\expandafter{\temp@macro}% - \csname p@r@\the\temp@toks\endcsname\expandafter{\temp@macro}% - \advance\temp@@@count by 1 \read@continue}% - \def\read@continue{\num@to@word{\temp@@@count}% which uses \temp@macro - \ifnum\temp@@@count>\temp@@count \let\next@@\make@default - \edef\temp@@macro{\the\p@r@one\the\p@r@two\the\p@r@three\the\p@r@four - \the\p@r@five\the\p@r@six\the\p@r@seven\the\p@r@eight\the\p@r@nine}% - \else \let\next@@\read@one@para - \fi \next@@}\read@continue}% -% -\def\make@@default#1#2{\temp@count=#2\relax \temp@@count=1 %used \temp@@macro - \loop \num@to@word{\temp@@count}% - \ifnum\temp@@count>\temp@count \csname p@r@\the\temp@toks\endcsname={}% - \else \csname p@r@\the\temp@toks\endcsname - =\expandafter{\expandafter[\expandafter - \the\csname p@r@\the\temp@toks\endcsname]}\fi - \advance\temp@@count by 1 % - \ifnum\temp@@count<10 \repeat - \edef\temp@macro{\the\p@r@one\the\p@r@two\the\p@r@three\the\p@r@four - \the\p@r@five\the\p@r@six\the\p@r@seven\the\p@r@eight\the\p@r@nine}% - \temp@toks=\expandafter{\temp@macro}% - \temp@@toks=\expandafter{\temp@@macro}% - \expandafter\let\expandafter\temp@macro\csname #1\endcsname - \expandafter\ifx\csname #1@ raw\endcsname\relax - \expandafter\let\csname #1@ raw\endcsname\temp@macro\fi - \expandafter\edef\csname#1\endcsname{% - \noexpand\push{\noexpand\edef\noexpand\next@@{% - \noexpand\noexpand \noexpand \csname \noexpand#1@ raw\noexpand\endcsname - \the\temp@toks}% - \noexpand\popnil\noexpand\clrp@r@s\noexpand\next@@}\noexpand\st@ckparas - \the\temp@@toks \noexpand\p@r@end}}% -% -% \setdefalut{cmdname}{n}{default1}{..}{default_n} -% then \cmdname[#1][..][#n] can be defaulted. -\def\setdefault#1#2{\def\make@default{\make@@default{#1}{#2}}\read@paras{#2}} -% -% DEFAULT MECHANISM END: this piece of code can be included in any -% package and can be reloaded any times without overruning the resources. -% -% Now an example to use \setdefault: -% lower a box -\long\def\xylower#1#2#3{\bgroup\hskip#1\hbox{% #1=x #2=y #3=content - \ifmmode\let\SoftLower\undefined\else\def\SoftLower{}$\fi - \mathop{\vtop{\ialign{##\crcr \noalign{\kern#2}#3\crcr}}}% - \ifx\SoftLower\undefined\else $\fi}\egroup}% -% -% #1=box position(0) #2=x shift(0pt) #3=y shift(0pt) #6=v (vbox) -% #4,#5=extra x,y shift in multiple of box width/10, height/10 #7=content -\long\def\placebox[#1][#2][#3][#4][#5][#6]#7{\begingroup -\def\temp@macro{#6}\def\temp@@macro{v}\ifx\temp@macro\temp@@macro -\setbox\temp@box=\vbox{#7}\else \leavevmode % #1 (box position) -\setbox\temp@box=\hbox{#7}\fi\temp@dim=-\wd\temp@box % 1--6--2 -\temp@@dim=\ht\temp@box \temp@@@dim=\dp\temp@box % | | -\ifnum#1<0 \temp@count=-#1 \else\temp@count=#1 \fi % | | -\ifnum\temp@count=0 \temp@count=5 \fi % | | -\ifcase\temp@count % 9 5 7 0 is -5 - \or \temp@dim=0pt \temp@@dim=0pt % | | - \or \temp@@dim=0pt % 10 11 12 <-height up - \or \advance\temp@@dim by \temp@@@dim % | | depth down - \temp@@dim=-\temp@@dim % 4--8--3 - \or \temp@dim=0pt \advance\temp@@dim by % - \temp@@@dim \temp@@dim=-\temp@@dim % -#1: box has no width etc - \or \divide\temp@dim by 2 \advance\temp@@@dim by \temp@@dim - \divide\temp@@@dim by 2 \temp@@dim=-\temp@@@dim - \or \divide\temp@dim by 2 \temp@@dim=0pt - \or \advance\temp@@dim by \temp@@@dim - \temp@@dim=-\temp@@dim \divide\temp@@dim by 2 - \or \advance\temp@@dim by \temp@@@dim - \temp@@dim=-\temp@@dim \divide\temp@dim by 2 - \or \temp@dim=0pt \advance\temp@@dim by \temp@@@dim - \temp@@dim=-\temp@@dim \divide\temp@@dim by 2 - \or \temp@dim=0pt \advance\temp@@@dim by \temp@@dim \temp@@dim=-\temp@@dim - \or \divide\temp@dim by 2 - \advance\temp@@@dim by \temp@@dim \temp@@dim=-\temp@@dim - \or \advance\temp@@@dim by \temp@@dim \temp@@dim=-\temp@@dim - \or \errmessage{Invalid range of first parameter: #1}\fi - \advance\temp@dim by #2 \advance \temp@@dim by #3 - \temp@@@dim=\wd\temp@box \divide \temp@@@dim by 10 - \multiply\temp@@@dim by #4 \advance\temp@dim by \temp@@@dim - \temp@@@dim=\ht\temp@box \advance\temp@@@dim by \dp\temp@box - \divide \temp@@@dim by 10 \multiply\temp@@@dim by #5 - \advance\temp@@dim by \temp@@@dim - \setbox\temp@box=\hbox{\xylower{\temp@dim}{\temp@@dim}{\box\temp@box}}% - \ifnum#1>0 \else \wd\temp@box=0pt \ht\temp@box=0pt \dp\temp@box=0pt \fi - \box\temp@box\endgroup -}% -% -\ifx\setdefault\undefined\else\setdefault{placebox}{6}{0}{0pt}{0pt}{0}{0}{h}\fi -% example ends -% -\let\wlog\temp@@@macro\let\temp@@@macro\undefined@ -\catcode`\@=\EntryDefault\relax -\endinput -% -%ENDMACROS -% diff --git a/Master/texmf-dist/tex/generic/genmisc/dow.tex b/Master/texmf-dist/tex/generic/genmisc/dow.tex deleted file mode 100644 index ea504ba375b..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/dow.tex +++ /dev/null @@ -1,44 +0,0 @@ -%%%------------Start Cutting------------------------------------------ -% \dowcomp returns integer day of week in \dow with Sunday=0. -% \downame returns the name of the day of the week. -% E.g., if \year=1963 \month=11 \day=22, -% then \dowcomp ==> \dow=5 and \downame ==> Friday which happened -% to be the day President John F. Kennedy was assasinated. - -% Converted from the lisp function DOW by Jon L. White given in -% the file LIBDOC DOW JONL3 on MIT-MC (which follows). - -%(defun dow (year month day) -% (and (and (fixp year) (fixp month) (fixp day)) -% ((lambda (a) -% (declare (fixnum a)) -% (\ (+ (// (1- (* 13. (+ month 10. -% (* (// (+ month 10.) -13.) 12.)))) -% 5.) -% day -% 77. -% (// (* 5. (- a (* (// a 100.) 100.))) 4.) -% (// a -2000.) -% (// a 400.) -% (* (// a -100.) 2.)) -% 7.)) -% (+ year (// (+ month -14.) 12.))))) - -\newcount\dow -\def\dowcomp{{\count3 \month \advance\count3 -14 \divide\count3 12 - \advance\count3 \year \count4 \month \advance\count4 10 - \divide\count4 -13 \multiply\count4 12 \advance\count4 10 - \advance\count4 \month \multiply\count4 13 \advance\count4 -1 - \divide\count4 5 \advance\count4 \day \advance\count4 77 - \count2 \count3 \divide\count2 100 \multiply\count2 -100 - \advance\count2 \count3 \multiply\count2 5 \divide\count2 4 - \advance\count4 \count2 \count2 \count3 \divide\count2 -2000 - \advance\count4 \count2 \count2 \count3 \divide\count2 400 - \advance\count4 \count2 \count2 \count3 \divide\count2 -100 - \multiply\count2 2 \advance\count4 \count2 \count2 \count4 - \divide\count2 7 \multiply\count2 -7 \advance\count4 \count2 - \global\dow \count4}} - -\def\dayname{\dowcomp \ifcase\dow Sunday\or Monday\or Tuesday\or - Wednesday\or Thursday\or Friday\else Saturday\fi} -%%%--------------Stop cutting----------------------------------------- diff --git a/Master/texmf-dist/tex/generic/genmisc/emtrees.tex b/Master/texmf-dist/tex/generic/genmisc/emtrees.tex deleted file mode 100644 index 3c9c5e1a3fb..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/emtrees.tex +++ /dev/null @@ -1,87 +0,0 @@ -%From: hwb@texnix.stgt.sub.org (Harald Boegeholz) -%Newsgroups: comp.text.tex -%Date: 14 Jan 91 13:44:29 GMT -% -%Hi! -% -%Some time ago I wrote some TeX-macros to typeset trees. Since -%two people asked recently, here they are (quite short, so I thought -%I might post). Be aware, though, of two possible problems: -% 1. The macros use the \specials defined by emTeX. If your DVI-driver -% doesn't support these, you won't see any lines. -% 2. The semantic nest size required is considerable (too many boxes -% inside of boxes inside of boxes...), so you'll possibly need -% a TeX which is "large" in this respect for typesetting complex trees. -% -%Hope this helps -%Harald -%------------------ cut here with a sharp knife ------------------------ -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% tree macros by Harald Boegeholz -% This file uses the \specials defined by emTeX to draw the lines! -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\newcount\pointnumber \pointnumber=0 -\newcount\father -\font\nodefont=cmr7 -\def\nextpoint{\global\advance\pointnumber by 1\relax} -\def\endsubtrees{\endsubtrees} -\def\tn#1{\vbox{% - \vskip.5mm - \hbox{\nodefont\hskip1ex\relax #1\hskip1ex} - \vskip.5mm - }% -} -\def\tree#1#2{% - \vtop{% - \nextpoint - \father=\pointnumber - \halign{\hfil##\hfil\cr - #1\cr - \special{em:point \number\father}\cr - \noalign{\vskip5mm} - \hbox{\subtrees#2\endsubtrees}\cr - }% - }% -}% -\def\subtrees#1{\ifx#1\endsubtrees\let\next\relax\else - \vbox{\halign{\hfil##\hfil\cr - \nextpoint - \special{em:point \number\pointnumber}% - \special{em:line \number\pointnumber h,\number\father h}\cr - #1\cr - }}% - \let\next\subtrees\fi - \next -} -\def\labeledtree#1#2{\vbox{\offinterlineskip\halign{\hfil##\hfil\cr - #1\cr - \noalign{\vskip3pt}% - $\scriptstyle#2$\cr -}}} - -\parindent0pt -\raggedbottom - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% macros end here ... sample follows: -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\endinput - -{\labeledtree{% - {\tree{\tn{1}}{% - {\tree{\tn{2}}{% - {\tn{3}}% - {\tn{4}}% - }}% - {\tree{\tn{5}}{% - {\tn{6}}% - }}% - }}% -}{[1,2,2,1,5]}}% - -\bye ------------------- cut here with a sharp knife ------------------------ --- -Harald Boegeholz |Home: hwb@texnix.stgt.sub.org (read daily) - |University: boegehol@az3.informatik.uni-stuttgart.de - | ^ please use the latter for large (>100k) mails diff --git a/Master/texmf-dist/tex/generic/genmisc/endnote.tex b/Master/texmf-dist/tex/generic/genmisc/endnote.tex deleted file mode 100644 index 6ca4cd8df93..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/endnote.tex +++ /dev/null @@ -1,36 +0,0 @@ -% Use \endnote{1}{text}. At the end of your document, type -% \producenotes to actually flush all end notes to be printed. -% -% macros for making endnotes instead of footnotes -% We make @ signs act like letters, temporarily, to avoid conflict -% between user names and internal control sequences of plain format. -\catcode`@=11 -\newbox\endnotebox -\def\setendnotefont#1{\gdef\endnotefont{#1}} -\setendnotefont{\rm} -\def\endnote#1{\let\@sf\empty - \ifhmode\edef\@sf{\spacefactor\the\spacefactor}\/\fi - #1\@sf\vendnote{{#1}}} -\def\vendnote#1{\global\setbox\endnotebox= - \vbox{\parindent=0pt\endnotefont\unvbox\endnotebox\bgroup - \indent\llap#1\ignorespaces\futurelet\next\aftergroup\no@te\relax}} -\def\no@te{\ifcat\bgroup\noexpand\next \let\next\n@@te - \else\let\next\n@t\fi \next} -\def\n@@te{\bgroup\aftergroup\@endnote\let\next} -\def\n@t#1{#1\@endnote} -\def\@endnote{\strut\egroup} -% -\newcount\enotecounter -\def\resetenotecount{\global\enotecounter=0 } \resetenotecount -\def\setenotecount#1{\global\enotecounter=#1 } -% -\def\setendnoteflagfont#1{\gdef\endnoteflagfont{#1}} -\setendnoteflagfont{\sevenrm} -\def\enote{\unskip - \global\advance \enotecounter by 1 % First bump the counter. - % Now convert the current value of the counter into a superscripted numeral - \endnote{{$^{\hbox{\endnoteflagfont\the\enotecounter}}$}}} -% -\def\producenotes{% -\ifvoid\endnotebox\else\medskip\unvbox\endnotebox\par\fi} -\catcode`@=12 % at signs are no longer letters diff --git a/Master/texmf-dist/tex/generic/genmisc/fakebold.tex b/Master/texmf-dist/tex/generic/genmisc/fakebold.tex deleted file mode 100644 index 5699b405de0..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/fakebold.tex +++ /dev/null @@ -1,5 +0,0 @@ -\def\fakebold#1{\leavevmode\setbox0=\hbox{#1}% - \kern-.025em\copy0 \kern-\wd0 - \kern .05em\copy0 \kern-\wd0 - \kern-.025em\raise.0433em\box0 -} diff --git a/Master/texmf-dist/tex/generic/genmisc/hep.tex b/Master/texmf-dist/tex/generic/genmisc/hep.tex deleted file mode 100644 index 5a740da239b..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/hep.tex +++ /dev/null @@ -1,12 +0,0 @@ -\def\slasha#1{\setbox0=\hbox{$#1$}#1\hskip-\wd0\hbox to\wd0{\hss\sl/\/\hss}} -\def\slashb#1{\setbox0=\hbox{$#1$}#1\hskip-\wd0\dimen0=5pt\advance - \dimen0 by-\ht0\advance\dimen0 by\dp0\lower0.5\dimen0\hbox - to\wd0{\hss\sl/\/\hss}} -% Four macros for Dirac's bracket notation of expectation values -\def\bra#1{\left< #1\right|} -\def\ket#1{\left| #1\right>} -\def\bracket#1#2{\left<#1\mid #2\right>} -\def\EV#1#2#3{\bra{#1}#2\ket{#3}} -% And finally a macro for printing so-called `normal ordered' products -% They are denoted by a colon on either side -\normalord#1{\mathopen{:}#1\mathclose{:}} diff --git a/Master/texmf-dist/tex/generic/genmisc/inscrutable.tex b/Master/texmf-dist/tex/generic/genmisc/inscrutable.tex deleted file mode 100644 index 1d45298cc6a..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/inscrutable.tex +++ /dev/null @@ -1,11 +0,0 @@ -% Date: Thu, 7 Feb 91 12:20:50 -0500 -%From: amgreene@ATHENA.MIT.EDU -%Subject: A response to perl hackers -\let~\catcode~`?`\ -\let?\the~`#?~`~~`]?~`~\let]\let~`\.?~`~~`,?~`~~`\%?~`~~`=?~`~]=\def -],\expandafter~`[?~`~][{=%{\message[}~`\$?~`~=${\uccode`'.\uppercase -{,=,%,{%'}}}~`*?~`~=*{\advance.by}]#\number~`/?~`~=/{*-1}\newcount. -=\-{*-}~`-?~`~]-\-~`^?~`~=^{*1}~`\ ?~`~= {.`\ $}~`@?~`~=@{,.,"#`@^$} -.`#*`'$.?~`~0-?~`~$//$^$ .``^$*?~`~$^$.?~`~0-?~`~/$-?~`~^$@*?~`~$ * -?~`~*?~`~*?~`~*?~`~$@-?~`~$ .?~`~0-?~`~-?~`~$.``^$^^$.`<-?~`~*`<$@* -?~`~$*?~`~-`(-`+$%}\batchmode |