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 | |
| 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
| -rw-r--r-- | Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex | 23 | ||||
| -rw-r--r-- | TODO | 5 |
2 files changed, 14 insertions, 14 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} @@ -15,10 +15,9 @@ Public domain. TODO: - Fix .ARCH revision computation to ignore .tlpsrc and use a file from the package itself when decreasing revisions need to be handled. Norbert mail to tldev, 22 Nov 2009 01:09:56. - - Remove scheme-gut. - -- remove hide=1 from *.tlpsrc and in TLUtils.pm do: +- unzip 6.0? +- Remove hide=1 from *.tlpsrc and in TLUtils.pm do: - my $hide = (defined($keyval{'hide'}) ? $keyval{'hide'} : 0); + my $hide = (defined($keyval{'hide'}) ? $keyval{'hide'} : 1); |