summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-01-07 15:37:50 +0000
committerKarl Berry <karl@freefriends.org>2010-01-07 15:37:50 +0000
commitd25d8d2f1353904a9eb2f8e5dc7a6e7ec6f0477a (patch)
tree59d19a3eaf3f7ee413a1c6733f85444d032e9168 /Master/texmf-dist/tex/plain
parent5f928b3b5643084a97202cc72be09365a161a37f (diff)
need actual \filename@simple definition and more, from ltdirchk
git-svn-id: svn://tug.org/texlive/trunk@16629 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain')
-rw-r--r--Master/texmf-dist/tex/plain/graphics-pln/miniltx.tex50
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 %