From 220642dbc88e804b285b1d77b7785de73213236b Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Fri, 25 Jan 2013 23:16:00 +0000
Subject: dialogl 1.99a reinstated as lppl (24jan13)

git-svn-id: svn://tug.org/texlive/trunk@28946 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/dialogl/grabhedr.sty | 167 +++++++++++++++++++++++
 1 file changed, 167 insertions(+)
 create mode 100644 Master/texmf-dist/tex/latex/dialogl/grabhedr.sty

(limited to 'Master/texmf-dist/tex/latex/dialogl/grabhedr.sty')

diff --git a/Master/texmf-dist/tex/latex/dialogl/grabhedr.sty b/Master/texmf-dist/tex/latex/dialogl/grabhedr.sty
new file mode 100644
index 00000000000..dfc6ba2540a
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/dialogl/grabhedr.sty
@@ -0,0 +1,167 @@
+%%
+%% This is file `grabhedr.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% grabhedr.dtx  (with options: `2e')
+%% This is a generated file.
+%% 
+%% Copyright 1994 Michael John Downes
+%% Copyright 2013 TeX Users Group.
+%% 
+%% It may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%    http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2003/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "unmaintained".
+%% 
+%% The list of all files belonging to the distribution is given in the file
+%% `manifest.txt'.
+%% 
+%% The list of derived (unpacked) files belonging to the distribution
+%% and covered by LPPL is defined by the unpacking scripts (with
+%% extension .ins) which are part of the distribution.
+%%% ====================================================================
+%%%  @LaTeX-style-file{
+%%%     filename        = "grabhedr.dtx",
+%%%     version         = "1.99a",
+%%%     date            = "2013/01/24",
+%%%     author          = "Michael Downes",
+%%%     copyright       = "This file is part of the dialogl package, released
+%%%                        under the LPPL; see dialogl.ins for details."
+%%%     keywords        = "TeX, file header,
+%%%     supported       = "no",
+%%%     abstract        = "This file defines a macro \inputfwh
+%%%       to be used instead of \input, to allow TeX to grab
+%%%       information from standardized file headers in the form
+%%%       proposed by Nelson Beebe during his term as president of the
+%%%       TeX Users Group. Of which all this here is an example.",
+%%%  }
+%%% ====================================================================
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{grabhedr}[1994/11/08 v0.9j]
+\begingroup
+\catcode96 12 % left quote
+\catcode`\= 12
+\catcode`\{=1 \catcode`\}=2 \catcode`\#=6
+\catcode`\$=3 \catcode`\~=13 \catcode`\^=7
+\catcode`\_=8 \catcode`\^^M=5 \catcode`\"=12
+\catcode`\@=11
+\gdef\@empty{}
+\long\gdef\@gobble#1{}
+\long\gdef\@gobbletwo#1#2{}
+\long\gdef\@gobblethree#1#2#3{}
+\long\gdef\@car#1#2\@nil{#1}
+\ifx\UndEFiNed\@@input % LaTeX not loaded.
+  \edef\0{\meaning\input}\edef\1{\string\input}%
+  \ifx\0\1%
+    \global\let\@@input\input
+  \else
+    \errhelp{%
+Grabhedr.sty needs to know the name of the
+\input primitive in order to define \inputfwh
+properly. Consult a TeXnician for help.}
+    \errmessage{%
+      Non-primitive \noexpand\input detected}%
+  \fi
+\fi
+\global\toksdef\toks@=0
+\long\gdef\afterfi#1\fi{\fi#1}
+\global\let\nx@\noexpand
+\global\let\xp@\expandafter
+\begingroup \lccode`\.=`\%%
+\lowercase{\gdef\@percentchar{.}}%
+\endgroup
+\gdef\fileversiondate#1#2#3{%
+  \xp@\xdef\csname#1\endcsname{#2 (#3)}%
+  \def\filename{#1}\def\fileversion{#2}%
+  \def\filedate{#3}%
+  \message{#1 \csname#1\endcsname}%
+}
+\xdef\@filehdrstart{%
+  \@percentchar\@percentchar\@percentchar\space
+  ==================================%
+  ==================================}
+\gdef\@scanfileheader#1@#2#{\@xscanfileheader}
+\long\gdef\@xscanfileheader#1{%
+  \@yscanfileheader#1{} version = "??",
+  date = "??",\@yscanfileheader}
+\long\gdef\@yscanfileheader
+  #1 filename = "#2",#3 version = "#4",%
+  #5 date = "#6",#7\@yscanfileheader{%
+  \endgroup
+  \csname fileversiondate\endcsname{#2}{#4}{#6}%
+}
+\begingroup
+\lccode`\$=`\^^M
+\lowercase{\gdef\@readfirstheaderline#1$}{%
+  \toks@{#1}%
+  \edef\@tempa{\@percentchar\the\toks@}%
+  \ifx\@tempa\@filehdrstart
+    \endgroup \begingroup
+    \catcode`\%=9 \catcode`\^^M=5 \catcode`\@=11
+    \catcode`\ =10 \catcode`\==12 \catcode`\"=12
+  \xp@\@scanfileheader
+  \else
+    \message{(* Missing file header? *)}%
+    \afterfi\endgroup
+  \fi}
+\endgroup
+\gdef\@xinputfwh{%
+  \ifx\next\@readfirstheaderline
+    \catcode`\%=12 \catcode`\{=12 \catcode`\}=12
+    \catcode`\\=12 \catcode`\^^L=12
+    \catcode`\^=12
+    \catcode`\^^M=3\relax
+  \else \endgroup\fi
+}
+\gdef\@inputfwh{\futurelet\next\@xinputfwh}
+\gdef\inputfwh#1{%
+  \begingroup\catcode`\%=\active
+  \endlinechar`\^^M\relax
+  \lccode`\~=`\%\relax
+  \lowercase{\let~}\@readfirstheaderline
+  \xp@\@inputfwh\@@input #1\relax
+}
+\gdef\localcatcodes#1{%
+  \ifx\@empty\@catcodestack
+    \gdef\@catcodestack{{}}%
+  \fi
+  \def\do##1##2{%
+    \ifnum##2>\z@
+      \catcode\number`##1 \space
+      \number\catcode`##1\relax
+    \expandafter\do\fi}%
+  \xdef\@catcodestack{{\do#1\relax\m@ne}%
+    \@catcodestack}%
+  \def\do##1##2{\catcode`##1 ##2\relax\do}%
+  \do#1\ {\catcode32\let\do}%
+}
+\gdef\@catcodestack{{}}
+\gdef\restorecatcodes{%
+  \begingroup
+  \ifx\@empty\@catcodestack
+    \errmessage{Can't pop catcodes;
+      \nx@\@catcodestack = empty}%
+    \endgroup
+  \else
+    \def\do##1##2\do{%
+      \gdef\@catcodestack{##2}%
+      \endgroup##1}%
+    \xp@\do\@catcodestack\do
+  \fi
+}
+\expandafter\gdef\csname trap.input\endcsname
+  \input#1 \relax{%
+    \expandafter\ifx\csname#1\endcsname\relax
+      \afterfi\inputfwh{#1}\relax
+    \fi}
+\endgroup
+\endinput
+%%
+%% End of file `grabhedr.sty'.
-- 
cgit v1.2.3

