/usr/share/texmf-texlive/tex/generic/metapost/mproof.tex is in texlive-metapost 2009-15.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | % To produce proof sheets from MetaPost output (includes date and time):
% tex mproof <MetaPost output file names>
\input epsf
\font\textt=cmtex10 \textt
\def\okbreak{\vfil\penalty2000\vfilneg}
\def\today{\ifcase\month\or
January\or February\or March\or April\or May\or June\or
July\or August\or September\or October\or November\or December\fi
\space\number\day, \number\year}
\newcount\m \newcount\n
\n=\time \divide\n 60 \m=-\n \multiply\m 60 \advance\m \time
\def\hours{\twodigits\n\twodigits\m}
\def\twodigits#1{\ifnum #1<10 0\fi \number#1}
\footline={\sevenrm\today\ at \hours\hss\tenrm\folio\hss}
\def\endit{\\}
\def\munch#1 {\def\next{#1}\ifx\next\endit\endit
\else#1$$\epsfverbosetrue\epsfbox{#1}$$\par\okbreak\fi\munch}
\def\\{\let\munch=\relax\def\\{}}
\everypar{\everypar{}\munchline}
\obeylines\def\munchline#1
{\catcode`\^^M=5 \munch#1\\ \vfill\end}%
|