/usr/share/texlive/texmf-dist/metapost/base/TEX.mp is in texlive-metapost 2013.20140215-1.
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 | % $Id: TEX.mp,v 1.5 2005/03/19 20:16:08 taco Exp $
% Public domain.
% This file defines TEX <string_primary> to return the picture
% resulting from running the string through tex. It is slow,
% but more general than the standard btex..etex construction
%
% New in this version (1.4), for metapost 0.9:
% support of pre- and post TeX texts.
string preverbatimtex_, postverbatimtex_;
vardef TEXPRE text s = preverbatimtex_ := s; enddef;
vardef TEXPOST text s = postverbatimtex_ := s; enddef;
vardef TEX primary s =
if known preverbatimtex_:
write "verbatimtex "&preverbatimtex_&" etex" to "mptextmp.mp";
fi
write "btex "&s&" etex" to "mptextmp.mp";
if known postverbatimtex_:
write "verbatimtex "&postverbatimtex_&" etex" to "mptextmp.mp";
fi
write EOF to "mptextmp.mp";
scantokens "input mptextmp"
enddef;
|