piff

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

6 files changed, 307 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/piff/ams.sty b/Master/texmf-dist/tex/latex/piff/ams.sty
new file mode 100644
index 00000000000..6be0b899c38
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/piff/ams.sty
@@ -0,0 +1,79 @@
+%% 
+%% This is file `ams.sty',
+%% generated with the docstrip utility.
+%% 
+%% The original source files were:
+%% 
+%% ams.dtx  (with options: `ams')
+%% 
+%% Copyright (C) 1990,1995 Mike Piff, University of Sheffield, England 
+%% 
+%% You are not allowed to change this file. 
+%% 
+%% You are NOT ALLOWED to distribute this file alone. You are NOT 
+%% ALLOWED to take money for the distribution or use of this 
+%% file except for a nominal charge for copying etc. 
+%% 
+%% Please address any problems to: 
+%% 
+%% M.Piff@sheffield.ac.uk 
+%% 
+%% For updates, contact your nearest CTAN site. 
+%% 
+\def\fileversion{3.16}
+\def\filedate{09 Jan 1996 13:53:56 BST}
+\def\filename{ams.dtx}
+\def\Copyright{Copyright (C) 1990,1995 Mike Piff, University of Sheffield, England}
+\NeedsTeXFormat{LaTeX2e}[1995/12/01]
+\ProvidesPackage{ams}[1996/01/09]
+\typeout{Package `ams' <\filedate>.}
+\typeout{\Copyright}
+\DeclareOption{defs}{\AtEndOfPackage{\RequirePackage{amssymb}}}
+\ProcessOptions
+\RequirePackage{amsfonts}
+\def\frak#1{\ensuremath{\mathfrak{#1}}}
+\def\Bbb#1{\ensuremath{\mathbb{#1}}}
+\let\goth\frak
+\def\MakeBbb#1{%
+   \edef\tmp{%
+      \noexpand\def\csname#1\endcsname
+         {\noexpand\protect\csname p#1\endcsname}%
+      \noexpand\def\csname p#1\endcsname
+         {\noexpand\Bbb{#1}}%
+   }%
+   \tmp
+}
+\MakeBbb{C}
+\MakeBbb{F}
+\MakeBbb{N}
+\MakeBbb{Q}
+\MakeBbb{R}
+\MakeBbb{T}
+\MakeBbb{Z}
+\typeout{Use option defs to define all the AMS symbol names}
+\let\leq\undefined  \let\geq\undefined
+\DeclareMathSymbol{\leq}     {\mathrel}{AMSa}{"36}
+\DeclareMathSymbol{\geq}     {\mathrel}{AMSa}{"3E}
+\let\le\leq   \let\ge\geq
+  \let\mho\undefined            \let\sqsupset\undefined
+  \let\Join\undefined           \let\lhd\undefined
+  \let\Box\undefined            \let\unlhd\undefined
+  \let\Diamond\undefined        \let\rhd\undefined
+  \let\leadsto\undefined        \let\unrhd\undefined
+  \let\sqsubset\undefined
+
+  \DeclareMathSymbol\mho     {\mathord}{AMSb}{"66}
+  \DeclareMathSymbol\Box     {\mathord}{AMSa}{"03}
+  \let\square\Box
+  \DeclareMathSymbol\Diamond {\mathord}{AMSa}{"06}
+  \DeclareMathSymbol\leadsto {\mathrel}{AMSa}{"20}
+  \DeclareMathSymbol\sqsubset{\mathrel}{AMSa}{"40}
+  \DeclareMathSymbol\sqsupset{\mathrel}{AMSa}{"41}
+  \DeclareMathSymbol\lhd     {\mathrel}{AMSa}{"43}
+  \DeclareMathSymbol\unlhd   {\mathrel}{AMSa}{"45}
+  \DeclareMathSymbol\rhd     {\mathrel}{AMSa}{"42}
+  \DeclareMathSymbol\unrhd   {\mathrel}{AMSa}{"44}
+  \def\Join{\mathrel{{\rhd}\mkern-4mu{\lhd}}}
+\endinput
+%% 
+%% End of file `ams.sty'.
diff --git a/Master/texmf-dist/tex/latex/piff/duplicat.sty b/Master/texmf-dist/tex/latex/piff/duplicat.sty
new file mode 100644
index 00000000000..917580d636f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/piff/duplicat.sty
@@ -0,0 +1,30 @@
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{duplicat}           
+% M.Piff@sheffield.ac.uk
+% This package marks each page of the dvi file with its sequence number.
+% Useful if there are duplicate page numbers in the output, eg,
+% 1, 2, 3, 1, 2, 3, 4, 5, 6, ...
+% become
+% 1.1, 2.2, 3.3, 1.4, 2.5, 3.6, 4.7, 5.8, 6.9, ...
+% 
+% These numbers do not appear in the page number itself, but can be used
+% in the driver command to select a page range, eg, in emTeX, use
+% dvihplj filename /b1.4 /e 4.7
+% 
+% If you are using dvips, this package is unnecessary, since it uses the
+% convention that the avove pages have names
+% 1, 2, 3, 1.1, 2.1, 3.1, 4, 5, 6, ...
+% where .0 is optional (first occurrence of that page number).
+% dvips -p1.1  -l4 filename
+
+\let\duplicat@tmp\relax
+\DeclareOption{dvips}{\let\duplicat@tmp\endinput}
+\ProcessOptions                                 
+
+\duplicat@tmp
+\let\duplicat@tmp\undefined
+
+\global\let\dup@shipout\shipout
+\gdef\shipout{\global\advance\count1 by 1\relax\dup@shipout}
+
+\endinput
diff --git a/Master/texmf-dist/tex/latex/piff/newproof.sty b/Master/texmf-dist/tex/latex/piff/newproof.sty
new file mode 100644
index 00000000000..c7c0f6d2eae
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/piff/newproof.sty
@@ -0,0 +1,57 @@
+% This package defines a "\newproof" command similar to "\newtheorem".
+% Its arguments are
+%     #1  Name of proof environment, eg, "proof".
+%     #2  Starting text, eg, Proof.
+%     #3  Finishing text, eg, [] flushed right.
+%
+% The package goes on to define a "proof" environment with exactly the
+% above setup, but other unnumbered environments can be set up in the
+% same way.
+%
+% The created environments take one optional argument, which, if present,
+% goes in brackets after #2.   Eg,
+%
+% \begin{proof}
+%   A proof.
+% \end{proof}
+%
+% \begin{proof}[B. L. User]
+%   A named proof.
+% \end{proof}
+%
+% \begin{proof}[of Theorem \ref{thm}]
+%   Yet another.
+% \end{proof}
+%
+% Command "\qed" is set up to flush "\qedtext" right; "\qedtext" defaults
+% to a square, but can be re-defined as "QED" or whatever.
+%
+% M.Piff@shef.ac.uk
+%
+\NeedsTeXFormat{LaTeX2e}[1995/12/01]
+\ProvidesPackage{newproof}
+\newcommand{\newproof}[3]{
+   \newenvironment{#1}[1][]%
+   {%
+      \begin{trivlist}%
+         \item[\hspace{\labelsep}\textnormal{\textbf{#2%
+            \def\op@@@arg{##1}%
+            \ifx\op@@@arg\empty
+            \else~(##1)\fi
+         }}]%
+   }%
+   {%
+      #3
+      \end{trivlist}%
+   }%
+}
+\newproof{proof}{Proof}{\qed}
+\def\qed{{\ifhmode\unskip\nobreak\hfil\penalty50 \hskip1em \else\nobreak\fi
+   \mbox{}\nobreak\hfil\qedtext%
+   \parfillskip=0pt \finalhyphendemerits=0 \par}}
+
+\def\qedtext{\ensuremath{\square}}
+\RequirePackage{amsfonts}
+\DeclareMathSymbol{\square}       {\mathord}{AMSa}{"03}
+
+
diff --git a/Master/texmf-dist/tex/latex/piff/onepagem.sty b/Master/texmf-dist/tex/latex/piff/onepagem.sty
new file mode 100644
index 00000000000..dbd42791f0a
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/piff/onepagem.sty
@@ -0,0 +1,34 @@
+\def\filename{onepagem.sty}
+\def\fileversion{1.01}
+\def\filedate{28 Mar 1996 13:57:34 BST}
+%%
+%%M.Piff@sheffield.ac.uk
+%%
+%If the document has only one page, omit page number. (onepagempty)
+%The page number must be produced by means of \thepage.
+%Needs two passes through LaTeX to work, as it writes to the .aux file.
+%
+%The first version was a joke put on CTAN to illustrate how useful
+%\AtEndDocument is.  This one works...
+%                                                                    
+%
+\typeout{\filename\space v\fileversion, (C) Copyright Mike Piff, \filedate}
+\NeedsTeXFormat{LaTeX2e}[1995/12/01]
+\ProvidesPackage{onepagem}
+\ProcessOptions
+
+\let\opem@shipout\shipout
+\newcounter{opem@pagecount}
+\def\shipout{%
+   \stepcounter{opem@pagecount}% count pages in document
+   \opem@shipout% restore function of \shipout
+}
+
+\AtEndDocument{%
+   \clearpage% make sure we know we are after the last page
+   \ifnum\value{opem@pagecount}=1
+      \immediate\write\@mainaux{\string\gdef\string\thepage{}}%
+   \fi
+}
+
+\endinput
diff --git a/Master/texmf-dist/tex/latex/piff/tensor.sty b/Master/texmf-dist/tex/latex/piff/tensor.sty
new file mode 100644
index 00000000000..3c02623718e
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/piff/tensor.sty
@@ -0,0 +1,62 @@
+\def\filename{tensor.sty}
+\def\fileversion{1.00}
+\def\filedate{03 Jun 1996 14:57:09 BST}
+%%           
+%% Copyright (C) 1996 Mike Piff
+%%
+%%M.Piff@sheffield.ac.uk
+%%                   
+%%Defines the command \tensor with two parameters.
+%%  #1 = The name of the tensor
+%%  #2 = The superscript/subscript sequence.
+%%  
+%%  eg
+%%  
+%%  \tensor{A}{^{i}_{j}^{kl}}
+%%  
+%%  Don't forget the enclosing braces round the indices!!
+%%  
+%
+\typeout{\filename\space v\fileversion, (C) Copyright Mike Piff, \filedate}
+\NeedsTeXFormat{LaTeX2e}[1995/12/01]
+
+\ProvidesPackage{tensor}
+\ProcessOptions
+
+\newtoks\tensor@sup \newtoks\tensor@sub
+\newcommand\tensor[2]{\tensor@sup={}\tensor@sub={}%
+   #1\tensor@process#2\tensor@endprocess%
+}                                              
+
+\newcommand\tensor@process[1]{%
+   \ifx #1\tensor@endprocess
+      \let\next\tensor@finish
+   \else
+      \ifx#1^%
+         \let\next\tensor@absorbsup
+      \else
+         \ifx#1_%
+            \let\next\tensor@absorbsub
+         \else
+            \PackageError{tensor}{Sub/Superscript token missing}%
+         \fi
+      \fi
+   \fi
+   \next
+}                    
+
+\newcommand\tensor@absorbsup[1]{%
+   \tensor@sup=\expandafter{\the\tensor@sup#1}%
+   \tensor@sub=\expandafter{\the\tensor@sub\phantom{#1}}%
+   \tensor@process
+}
+
+\newcommand\tensor@absorbsub[1]{%
+   \tensor@sub=\expandafter{\the\tensor@sub#1}%
+   \tensor@sup=\expandafter{\the\tensor@sup\phantom{#1}}%
+   \tensor@process
+}
+
+\def\tensor@finish{_{\the\tensor@sub}^{\the\tensor@sup}}
+\endinput
+
diff --git a/Master/texmf-dist/tex/latex/piff/time.sty b/Master/texmf-dist/tex/latex/piff/time.sty
new file mode 100644
index 00000000000..92a0de66001
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/piff/time.sty
@@ -0,0 +1,45 @@
+\def\filename{time.sty}
+\def\fileversion{1}
+\def\filedate{15 Feb 1995 10:55:01 BST}
+%% This is time.sty
+%% Copyright (C) 1995 Mike Piff
+%% All rights reserved.
+%% Copying of this file is authorized only if
+%% you make absolutely no changes to your copy.
+%%
+%%   M.Piff@sheffield.ac.uk
+%%
+\typeout{\filename\space v\fileversion, (C) Copyright Mike Piff, \filedate}
+\NeedsTeXFormat{LaTeX2e}[1995/12/01]
+\ProvidesPackage{time}
+\def\now{{%
+   \def\Time{3}%
+   \def\Hour{4}%
+   \def\Minute{5}%
+   \count\Time=\time\relax
+   \ifnum\count\Time=0
+      \count\Time=1440 %%force 12pm
+   \fi
+   \count\Hour=\count\Time\relax
+   \divide\count\Hour by 60\relax%%hours past midnight
+   \count\Minute=\count\Hour\relax
+   \multiply\count\Minute by -60\relax
+   \advance\count\Minute by \count\Time\relax %%minutes past hour
+   \ifnum\count\Hour=0
+      \count\Hour=12
+   \else
+      \ifnum\count\Hour>12
+         \advance\count\Hour by-12
+      \fi
+   \fi
+   \the\count\Hour\relax:%
+   \ifnum\count\Minute<10
+      0%
+   \fi
+   \the\count\Minute\relax
+   \ifnum\count\Time>720
+      pm%
+   \else
+      am%
+   \fi
+}}