need actual \filename@simple definition and more, from ltdirchk

git-svn-id: svn://tug.org/texlive/trunk@16629 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 50 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex b/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex
index a64a704ded0..0a562432aeb 100644
--- a/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex
+++ b/Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex
@@ -21,6 +21,7 @@
 %  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)
+%  2010/01/07 import was incomplete [KB]
 
 \edef\resetatcatcode{\catcode`\noexpand\@\the\catcode`\@\relax}
 \ifx\miniltx\undefined\else\endinput\fi
@@ -311,6 +312,9 @@
 \def\input{\@ifnextchar\bgroup\@iinput\@@input}
 \def\@iinput#1{\@@input#1 }
 
+\ifx\filename@parse\@undefined
+  \def\reserved@a{./}\ifx\@currdir\reserved@a
+    \wlog{^^JDefining UNIX/DOS style filename parser.^^J}
     \def\filename@parse#1{%
       \let\filename@area\@empty
       \expandafter\filename@path#1/\\}
@@ -322,6 +326,52 @@
          \def\reserved@a{\filename@path#2\\}%
       \fi
       \reserved@a}
+  \else\def\reserved@a{[]}\ifx\@currdir\reserved@a
+    \wlog{^^JDefining VMS style filename parser.^^J}
+    \def\filename@parse#1{%
+      \let\filename@area\@empty
+      \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}
+  \else\def\reserved@a{:}\ifx\@currdir\reserved@a
+    \wlog{^^JDefining Mac style filename parser.^^J}
+    \def\filename@parse#1{%
+      \let\filename@area\@empty
+      \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}
+  \else
+    \wlog{^^JDefining generic filename parser.^^J}
+    \def\filename@parse#1{%
+      \let\filename@area\@empty
+      \expandafter\filename@simple#1.\\}
+  \fi\fi\fi
+  \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}
+\else
+  \wlog{^^J^^J%
+    \noexpand\filename@parse was defined in texsys.cfg:^^J%
+    \expandafter\strip@prefix\meaning\filename@parse.^^J%
+    }
+\fi
 
 \long\def \IfFileExists#1#2#3{%
   \openin\@inputcheck#1 %