diff options
author | Karl Berry <karl@freefriends.org> | 2010-01-03 23:16:19 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-01-03 23:16:19 +0000 |
commit | 61fde15d66144e23ae18862f485ded6391975a14 (patch) | |
tree | 576620ce28dc96708064f75409359eea19bb6653 /Master/texmf-dist/tex/plain | |
parent | 63704e56798c94fa5c4db888247a1075027fcda1 (diff) |
miniltx.tex update for \filename@parse, http://sourceforge.net/projects/asymptote/forums/forum/409349/topic/3405573
git-svn-id: svn://tug.org/texlive/trunk@16588 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain')
-rw-r--r-- | Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex b/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex index 7ad26db2a5c..a64a704ded0 100644 --- a/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex +++ b/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex @@ -19,6 +19,8 @@ % 1996/01/29 initial version % 1996/05/09 a few missing commands added % 1996/11/21 fixed @ catcode handling +% 2010/01/02 import LaTeX's current \filename@parse [KB/DC] +% (http://sourceforge.net/projects/asymptote/forums/forum/409349/topic/3405573) \edef\resetatcatcode{\catcode`\noexpand\@\the\catcode`\@\relax} \ifx\miniltx\undefined\else\endinput\fi @@ -311,16 +313,15 @@ \def\filename@parse#1{% \let\filename@area\@empty - \expandafter\filename@simple#1.\\} - - \def\filename@simple#1.#2\\{% - \ifx\\#2\\% - \let\filename@ext\relax - \else - \edef\filename@ext{\filename@dot#2\\}% - \fi - \edef\filename@base{#1}} - \def\filename@dot#1.\\{#1} + \expandafter\filename@path#1/\\} + \def\filename@path#1/#2\\{% + \ifx\\#2\\% + \def\reserved@a{\filename@simple#1.\\}% + \else + \edef\filename@area{\filename@area#1/}% + \def\reserved@a{\filename@path#2\\}% + \fi + \reserved@a} \long\def \IfFileExists#1#2#3{% \openin\@inputcheck#1 % @@ -441,4 +442,4 @@ \IfFileExists{#1}{\@@input\@filef@und}{\message{No file #1.}}} % 1996/11/21 -\def\@warning{\immediate\write16}
\ No newline at end of file +\def\@warning{\immediate\write16} |