From bb76a9ac936acff10cbcca285f378a397668a069 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 11 Apr 2011 17:57:51 +0000
Subject: path (8apr11)

git-svn-id: svn://tug.org/texlive/trunk@22045 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/generic/path/path.sty | 56 +++++++++++++++++++----------
 1 file changed, 37 insertions(+), 19 deletions(-)

(limited to 'Master/texmf-dist/tex/generic/path/path.sty')

diff --git a/Master/texmf-dist/tex/generic/path/path.sty b/Master/texmf-dist/tex/generic/path/path.sty
index 19b0fe178ac..74b662956f2 100644
--- a/Master/texmf-dist/tex/generic/path/path.sty
+++ b/Master/texmf-dist/tex/generic/path/path.sty
@@ -1,17 +1,22 @@
-%%%  @LaTeX-style-file
+%%%  @TeX-style-file
 %%%  {
 %%%     author          = "Philip Taylor",
-%%%     version         = "3.03b",
-%%%     date            = "22 July 1997",
+%%%     version         = "3.05",
+%%%     date            = "7 April 2011",
 %%%     time            = "15:59:31 BST",
 %%%     filename        = "path.sty",
-%%%     address         = "The Computer Centre
-%%%                        RHBNC, University of London
-%%%                        Egham Hill
-%%%                        Egham, Surrey TW20 0EX, ENGLAND",
-%%%     telephone       = "Tel:   +44 1784 443172",
-%%%     FAX             = "Fax:   +44 1784 434348",
-%%%     email           = "P.Taylor@Vms.Rhbnc.Ac.Uk",
+%%%     license         = "Unlimited copying and redistribution of this
+%%%                        file are permitted as long as this file is
+%%%                        not modified. Modifications are permitted,
+%%%                        but only if the resulting file is not named
+%%%                        path.sty regardless of case",
+%%%     address         = "c/o The Hellenic Institute
+%%%                        Royal Holloway, University of London
+%%%                        Egham Hull, Egham
+%%%                        Surrey TW20 0EX
+%%%                        United Kingdom",
+%%%     telephone       = "Tel:   +44 1622 820 735",
+%%%     email           = "P.Taylor@Rhul.Ac.Uk",
 %%%     codetable       = "ISO/ASCII",
 %%%     keywords        = "file name, filename, path name, pathname,
 %%%                        discretionary, discretionaries",
@@ -102,7 +107,13 @@
 % author credit in the file header above.  [Gee, thanks !  ** Phil]
 %
 % Revision history (reverse time order):
-%
+% 
+% 3.05 [7-Apr-2011]
+% Summary:   Use \path instead of \ATcode to save the catcode of @.
+%            Expand \pathafterhook after \path's work is done.
+%            
+% 3.04 [incorporated as part of Eplain]
+% 
 % 3.03b [22-Jul-1997]
 % Summary:   No code changes.  An out-of-date example removed, the syntax
 %            for LaTeX2e changed to "\usepackage {path}", and the "checksum"
@@ -136,13 +147,16 @@
 % First released version.
 % ======================================================================
 
-\immediate\write16{This is path.sty, Version 3.03 <03-Dec-1991>}
+\immediate \write 16 {This is path.sty, Version 3.05 <7-Apr-2011>}
 
-%%% We will regrettably need one \count variable with an open name,
-%%% in which to save the category code of commercial-at ...
+%%% The use of `\path' as a temporary control sequence is a kludge, but
+%%% it's a reasonably simple way to accomplish making @ a letter (to
+%%% provide ``concealed'' control sequences) without overwriting something
+%%% (without an `@' in its name) that might already be defined.
 
-\newcount \ATcode
-\ATcode = \catcode `\@
+\edef \path {\the \catcode `\@}%
+\catcode `\@ = 11
+\let \oldc@tcode = \path
 
 %%% Make commercial-at a letter to provide concealed control sequences
 
@@ -158,6 +172,10 @@
 
 \newif \ifspecialpathdelimiters
 
+%%% If desired, you can define \pathafterhook to take 
+
+\let \pathafterhook = \relax
+
 %%% We need to define control sequences which expand to both
 %%% active and passive spaces ...
 
@@ -246,9 +264,9 @@
     {\ifspecialpathdelimiters
         \begingroup
         \c@tcodes = 12
-        \def \endp@th {\endgroup \endgroup}%
+        \def \endp@th {\endgroup \endgroup \pathafterhook}%
      \else
-        \let \endp@th = \endgroup
+        \def \endp@th {\endgroup \pathafterhook}%
      \fi
      \p@th
     }
@@ -322,7 +340,7 @@
 
 %%% We restore the original catcode of commercial-at
 
-\catcode `\@ = \ATcode
+\catcode `\@ = \oldc@tcode
 
 %%% Define a default set of discretionary break characters
 %%% to include all punctuation characters except vertical
-- 
cgit v1.2.3

