From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 .../latex/contrib/turnthepage/turnpagewoetex.sty   | 61 ++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 macros/latex/contrib/turnthepage/turnpagewoetex.sty

(limited to 'macros/latex/contrib/turnthepage/turnpagewoetex.sty')

diff --git a/macros/latex/contrib/turnthepage/turnpagewoetex.sty b/macros/latex/contrib/turnthepage/turnpagewoetex.sty
new file mode 100644
index 0000000000..779f6c0139
--- /dev/null
+++ b/macros/latex/contrib/turnthepage/turnpagewoetex.sty
@@ -0,0 +1,61 @@
+% This is file `turnpagewoetex.sty' v1.3a by Merciadri Luca.
+% Thanks to Marc van Dongen and Martin Muench for their help.
+
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{turnpagewoetex}[2011/03/24 1.3a
+            Indicating to turn the page (LM)]
+
+\PackageInfo{turnpagewoetex}{This is turnthepage without using e-TeX.}
+
+\RequirePackage{atbegshi}
+\RequirePackage{picture}
+\RequirePackage{alphalph}
+\RequirePackage{pageslts}
+
+\ifx\turnthepage\undefined
+ \DeclareOption{short}{\providecommand{\turnthepage}{/\ldots}}
+ \DeclareOption{english}{\providecommand{\turnthepage}{\textit{Turn the page.}}}
+ \DeclareOption{francais}{\providecommand{\turnthepage}{\textit{Tournez la page.}}}
+ \DeclareOption{nederlands}{\providecommand{\turnthepage}{\textit{Sla de pagina om.}}}
+ \DeclareOption{deutsch}{\providecommand{\turnthepage}{\textit{Bitte wenden.}}}
+\else
+ \newcommand{\turnp@agewarn}{%
+   \PackageWarning{turnpageetex}{Command turnthepage was already defined.\MessageBreak%
+     Now redefining it.}}
+ \DeclareOption{short}{\turnp@agewarn \renewcommand{\turnthepage}{/\ldots}}
+ \DeclareOption{english}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Turn the page.}}}
+ \DeclareOption{francais}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Tournez la page.}}}
+ \DeclareOption{nederlands}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Sla de pagina om.}}}
+ \DeclareOption{deutsch}{\turnp@agewarn \renewcommand{\turnthepage}{\textit{Bitte wenden.}}}
+\fi
+
+\ProcessOptions
+
+\ifx\turnthepage\undefined
+ \providecommand{\turnthepage}{ }
+ \PackageWarning{turnpagewoetex}{No option for package turnthepage\MessageBreak%
+   (or turnpagewoetex) choosen!\MessageBreak%
+   There will be no information regarding\MessageBreak%
+   the need to turn the page!\MessageBreak%
+   }
+\fi
+
+\AtBeginShipout{%
+\AtBeginShipoutUpperLeft{%
+     \ifodd\value{CurrentPage}
+       % The \value{CurrentPage} is already 1 higher than the current page number here.
+     \else
+      \ifnum\value{pagesLTS.pagenr}>\value{CurrentPage}
+        \dimen1=1in
+        \advance\dimen1 by \textwidth
+        \advance\dimen1 by \oddsidemargin
+        \dimen3=1in
+        \advance\dimen3 by \topmargin
+        \advance\dimen3 by \headheight
+        \advance\dimen3 by \headsep
+        \advance\dimen3 by \textheight
+        \advance\dimen3 by \footskip
+        \put(\dimen1,-\dimen3){\llap{\turnthepage}}%
+      \fi%
+     \fi%
+}}
-- 
cgit v1.2.3

