From 5cbffa83cb16c709dd45e6620d2a3ca5f4126362 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:54:24 +0000 Subject: draftcopy git-svn-id: svn://tug.org/texlive/trunk@837 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/draftcopy/draftcopy.cfg | 40 ++ .../texmf-dist/tex/latex/draftcopy/draftcopy.sty | 536 +++++++++++++++++++++ 2 files changed, 576 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/draftcopy/draftcopy.cfg create mode 100644 Master/texmf-dist/tex/latex/draftcopy/draftcopy.sty (limited to 'Master/texmf-dist/tex/latex/draftcopy') diff --git a/Master/texmf-dist/tex/latex/draftcopy/draftcopy.cfg b/Master/texmf-dist/tex/latex/draftcopy/draftcopy.cfg new file mode 100644 index 00000000000..f10015d2131 --- /dev/null +++ b/Master/texmf-dist/tex/latex/draftcopy/draftcopy.cfg @@ -0,0 +1,40 @@ +%% +%% This is file `draftcopy.cfg', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% draftcopy.doc (with options: `config') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from draftcopy.cfg. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file draftcopy.doc. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +\iffalse +\fi + + + + + + + +\ifx\OpMode\undefined +\ExecuteOptions{dvips} +\else +\ExecuteOptions{vtex} +\fi + +\endinput +%% +%% End of file `draftcopy.cfg'. diff --git a/Master/texmf-dist/tex/latex/draftcopy/draftcopy.sty b/Master/texmf-dist/tex/latex/draftcopy/draftcopy.sty new file mode 100644 index 00000000000..d5698ebd170 --- /dev/null +++ b/Master/texmf-dist/tex/latex/draftcopy/draftcopy.sty @@ -0,0 +1,536 @@ +%% +%% This is file `draftcopy.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% draftcopy.doc (with options: `package') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from draftcopy.sty. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file draftcopy.doc. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +\iffalse +%% Package draftcopy to use with LaTeX2e +%% This package is used to print on some pages the word `DRAFT' +%% (or the language dependend analogon) ``behind'' the intended stuff. +%% +%% Copyright (C) 1995 Dr. Juergen Vollmer +%% Viktoriastrasse 15, D-76133 Karlsruhe, Germany +%% Juergen.Vollmer@acm.org +%% +%% This program can be redistributed and/or modified under the terms +%% of the LaTeX Project Public License Distributed from CTAN +%% archives in directory macros/latex/base/lppl.txt; either +%% version 1 of the License, or any later version. +%% +%% If you find this software useful, please send me a postcard: +\fi + + + + + + + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{draftcopy}[2002/02/25 v2.16] + +\newif\ifdraftcopy@conditional +\newif\ifdraftcopy@draft +\newif\ifdraftcopy@final +\DeclareOption{conditional}{ + \draftcopy@conditionaltrue +} +\DeclareOption{draft}{ + \draftcopy@drafttrue +} +\DeclareOption{final}{ + \draftcopy@finaltrue +} + +\def\draftcopy@Timestamp{} +\def\draftcopy@version{} +\newcount\draftcopy@hour \newcount\draftcopy@minute +\draftcopy@hour=\time +\divide \draftcopy@hour by 60 +\draftcopy@minute=\time +\count@=\draftcopy@hour +\multiply \count@ by -60 +\advance \draftcopy@minute by \count@ +\newcommand{\draftcopy@daytime}{% + \ifnum\draftcopy@hour=0 00\else\ifnum\draftcopy@hour<10 0\fi% + \number\draftcopy@hour\fi:% + \ifnum\draftcopy@minute<10 0\fi\number\draftcopy@minute% +} + +\DeclareOption{timestamp}{ + \def\draftcopy@Timestamp{% + \draftcopy@Show + \draftcopy@PageX \draftcopy@PageY -40 add moveto + /Times-Roman findfont 50 \draftcopy@ScaleFactor mul scalefont setfont + (\draftcopy@version \today -- \draftcopy@daytime) + } +} + + % VTEX-support: Thanks to "MicroPress Inc." +\let\immediate@special=\special +\DeclareOption{vtex}{ + \def\immediate@special{\immediate\special} + \immediate@special{!bophook bop-hook} + \def\draftcopy@BOPhook{/bop-hook} + \def\draftcopy@UserDictCmd{pS: userdict } + % MV & AK +} +\DeclareOption{dvips}{ + \def\draftcopy@BOPhook{/bop-hook} + \def\draftcopy@UserDictCmd{! userdict } +} +\DeclareOption{dvipsone}{ + % thanks to V. P. Stokes + % thanks to Y&Y Help Line + % thanks to "H. Salehfar" + \def\draftcopy@BOPhook{/bphook} + \def\draftcopy@UserDictCmd{! dvidict} +} +\DeclareOption{textures}{ + % thanks to Jerome LAURENS \texttt{laurens@u-bourgogne.fr> + \def\draftcopy@BOPhook{/bop-hook} + \def\draftcopy@UserDictCmd{prepostscript userdict} +} + +\DeclareOption{dviwindo}{\ExecuteOptions{dvipsone}} + +\DeclareOption{xdvi}{\ExecuteOptions{dvips}} +\DeclareOption{dvi2ps}{\ExecuteOptions{dvips}} +\DeclareOption{dvialw}{\ExecuteOptions{dvips}} +\DeclareOption{dvilaser}{\ExecuteOptions{dvips}} +\DeclareOption{dvitops}{\ExecuteOptions{dvips}} +\DeclareOption{emtex}{\ExecuteOptions{dvips}} +\DeclareOption{dviwin}{\ExecuteOptions{dvips}} +\DeclareOption{oztex}{\ExecuteOptions{dvips}} +\DeclareOption{psprint}{\ExecuteOptions{dvips}} +\DeclareOption{pubps}{\ExecuteOptions{dvips}} +\DeclareOption{pctexps}{\ExecuteOptions{dvips}} +\DeclareOption{pctexwin}{\ExecuteOptions{dvips}} +\DeclareOption{pctexhp}{\ExecuteOptions{dvips}} +\DeclareOption{ln}{\ExecuteOptions{dvips}} + + +\def\draftcopy@Show{show } +\DeclareOption{outline}{ + \def\draftcopy@Show{false charpath 2 setlinewidth stroke } +} + + +\DeclareOption{light}{ + \def\draftcopy@GrayValue{0.90} +} + +\DeclareOption{dark}{ + \def\draftcopy@GrayValue{0.85} +} + +\DeclareOption{none}{ + \def\draftcopy@LastPage{0} +} +\DeclareOption{first}{ + \def\draftcopy@LastPage{1} +} +\DeclareOption{firsttwo}{ + \def\draftcopy@LastPage{2} +} +\DeclareOption{all}{ + \def\draftcopy@LastPage{99999} +} + +\newif\ifdraftcopy@bottom +\DeclareOption{bottom}{ + \draftcopy@bottomtrue +} + +\newif\ifdraftcopy@bottomAfter +\DeclareOption{bottomafter}{ + \draftcopy@bottomAftertrue +} + +\def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +\def\draftcopy@Font{/Times-Roman} +\DeclareOption{american}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{austrian}{ + \def\draftcopy@Name{ENTWURF}\def\draftcopy@Scale{155} +} +\DeclareOption{bahasa}{ + % thanks to Glenn G. Chappell + \def\draftcopy@Name{DRAF}\def\draftcopy@Scale{217} +} +\DeclareOption{brazil}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{brazilian}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{breton}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{british}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{catalan}{ + % thanks to Dav + % thanks to Xavier + \def\draftcopy@Name{ESBORRANY}\def\draftcopy@Scale{110} +} +\DeclareOption{croatian}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{czech}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{danish}{ + % thanks to Ejnar Zacho Rath , + % thanks to Bjarne Vestergaard + % thanks to Joergen Larsen + \def\draftcopy@Name{UDKAST}\def\draftcopy@Scale{175} +} +\DeclareOption{dutch}{ + % thanks to Kees Leune + % \def\draftcopy@Name{CONCEPT}\def\draftcopy@Scale{150} + % thanks to Anton Stoorvogel porposed + \def\draftcopy@Name{ONTWERP}\def\draftcopy@Scale{150} +} +\DeclareOption{english}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{esperanto}{ + % thanks to Stephan B. Webanck + \def\draftcopy@Name{MALNETO}\def\draftcopy@Scale{160} +} +\DeclareOption{estonian}{ + % thanks to DAVID FEEST + \def\draftcopy@Name{VISAND}\def\draftcopy@Scale{215} +} +\DeclareOption{finnish}{ + % thanks to Jaakko Ruohio + \def\draftcopy@Name{LUONNOS}\def\draftcopy@Scale{200} + % thanks to Mika Grundstroem + \def\draftcopy@Name{VEDOS}\def\draftcopy@Scale{220} +} +\DeclareOption{francais}{ + % thanks to Christophe Couvreur + \def\draftcopy@Name{BROUILLON}\def\draftcopy@Scale{120} +} +\DeclareOption{french}{ + % thanks to Christophe Couvreur + \def\draftcopy@Name{BROUILLON}\def\draftcopy@Scale{120} + % thanks to Marc Torzynski + %\def\draftcopy@Name{EPREUVE}\def\draftcopy@Scale{120} +} +\DeclareOption{galician}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{german}{ + \def\draftcopy@Name{ENTWURF}\def\draftcopy@Scale{155} +} +\DeclareOption{germanb}{ + \def\draftcopy@Name{ENTWURF}\def\draftcopy@Scale{155} +} +\DeclareOption{greek}{ + % thanks to Apostolos Syropoulos + \def\draftcopy@Name{PROSCEDIO}\def\draftcopy@Scale{85} + \def\draftcopy@Font{/Symbol} +} +\DeclareOption{hungarian}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{icelandic}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} + % DR^^d6G + % Erlendur S Thorsteinsson + % does anybody knows how to create PostScript for that letter ^^d6? +} +\DeclareOption{irish}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} + % DR^^c9ACHT + % Breannd^^e1n ^^d3 Nuall^^e1in + % does anybody knows how to create PostScript for that letter ^^c9? +} +\DeclareOption{italian}{ + % thanks to Fabio Massacci + % thanks to Paolo Dell'Aquila + \def\draftcopy@Name{BOZZA}\def\draftcopy@Scale{215} + % thanks to Giuseppe De Arcangelis + % \def\draftcopy@Name{brutta copia}\def\draftcopy@Scale{80} +} +\DeclareOption{lowersorbian}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{magyar}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{norsk}{ + % thanks to: Dag Langmyhr + \def\draftcopy@Name{UTKAST}\def\draftcopy@Scale{178} +} +\DeclareOption{nynorsk}{ + % thanks to: Dag Langmyhr + \def\draftcopy@Name{FRAMLEGG}\def\draftcopy@Scale{129} +} +\DeclareOption{polish}{ + % thanks to Piotr Chrusciel + \def\draftcopy@Name{BRUDNOPIS}\def\draftcopy@Scale{120} +} +\DeclareOption{portuges}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{portuguese}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{romanian}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{scottish}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{spanish}{ + % thanks to: Tomas Bautista + \def\draftcopy@Name{BORRADOR}\def\draftcopy@Scale{120} +} +\DeclareOption{slovak}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{slovene}{ + % thanks to brodnik@pegam.mat.uni-lj.si + \def\draftcopy@Name{OSNUTEK}\def\draftcopy@Scale{120} +} +\DeclareOption{swedish}{ + % thanks to + \def\draftcopy@Name{UTKAST}\def\draftcopy@Scale{185} +} +\DeclareOption{turkish}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} +\DeclareOption{uppersorbian}{ + \def\draftcopy@Name{DRAFT}\def\draftcopy@Scale{215} +} + +\DeclareOption{portrait}{ + % thanks to Ross MOORE \texttt{ross@maths.mq.edu.au>} + \def\draftcopy@PageTranslate{200 70 translate 65 rotate} + \def\draftcopy@BottomTranslate{0 25 translate} + \def\draftcopy@ScaleFactor{1 } +} +\DeclareOption{landscape}{ + % thanks to Ross MOORE \texttt{ross@maths.mq.edu.au>} + \def\draftcopy@PageTranslate{70 450 translate 25 neg rotate} + \def\draftcopy@BottomTranslate{25 650 translate 90 neg rotate} + \def\draftcopy@ScaleFactor{0.6 } +} + +\ExecuteOptions{dark,all,english,portrait} +\input{draftcopy.cfg} +\ProcessOptions +\typeout{Prints \draftcopy@Name\space on pages; +does not show in your DVI viewer} + +\newcommand{\draftcopyVersion}[1]{ + \def\draftcopy@version{#1} +} + +\newcommand{\draftcopySetGrey}[1]{ + \def\draftcopy@GrayValue{#1} +} + +\newcommand{\draftcopySetScale}[1]{ + \def\draftcopy@Scale{#1} +} + +\newcommand{\draftcopySetScaleFactor}[1]{ + \def\draftcopy@ScaleFactor{#1 } +} + +\def\draftcopy@FirstPage{0} +\newcommand{\draftcopyFirstPage}[1]{ + \def\draftcopy@FirstPage{#1} +} + +\newcommand{\draftcopyLastPage}[1]{ + \def\draftcopy@LastPage{#1} +} + +\newcommand{\draftcopyName}[2]{ + \def\draftcopy@Name{#1} + \def\draftcopy@Scale{#2} +} + +\let\@draftcopyTilde~ + +\newcommand{\draftcopyPageTransform}[1]{% + \def\draftcopy@PageTranslate{#1}% +} + +\newcommand{\draftcopyBottomTransform}[1]{% + \def\draftcopy@BottomTranslate{#1}% +} + +\def\draftcopy@PageX{0 } +\newcommand{\draftcopyPageX}[1]{% + \def\draftcopy@PageX{#1 }% +} + +\def\draftcopy@PageY{0 } +\newcommand{\draftcopyPageY}[1]{% + \def\draftcopy@PageY{#1 }% +} + +\def\draftcopy@BottomX{0 } +\newcommand{\draftcopyBottomX}[1]{% + \def\draftcopy@BottomX{#1 }% +} + +\def\draftcopy@BottomY{0 } +\newcommand{\draftcopyBottomY}[1]{% + \def\draftcopy@BottomY{#1 }% +} + +\newif\ifdraftcopy@showit +\ifdraftcopy@conditional + \ifdraftcopy@draft + \draftcopy@showittrue + \else + \draftcopy@showitfalse + \fi + \ifdraftcopy@final + \draftcopy@showitfalse + \fi +\else + \draftcopy@showittrue +\fi + +\ifdraftcopy@showit +{\obeyspaces +\ifdraftcopy@bottomAfter + \AtBeginDocument{ + \let~\space + \immediate@special{\draftcopy@UserDictCmd + begin + /draftcopy-CurrentPage 0 def + /draftcopy-old-BOPhook { } def + currentdict \draftcopy@BOPhook\space known{ + /draftcopy-old-BOPhook \draftcopy@BOPhook\space load def + } if + \draftcopy@BOPhook{ + draftcopy-old-BOPhook + /draftcopy-CurrentPage draftcopy-CurrentPage 1 add def + draftcopy-CurrentPage \draftcopy@FirstPage ge + draftcopy-CurrentPage \draftcopy@LastPage le + and + { gsave \draftcopy@PageTranslate + \draftcopy@Font findfont + \draftcopy@Scale \draftcopy@ScaleFactor mul scalefont setfont + \draftcopy@PageX \draftcopy@PageY moveto + \draftcopy@GrayValue setgray + (\draftcopy@Name) \draftcopy@Timestamp \draftcopy@Show + grestore + } if + draftcopy-CurrentPage \draftcopy@LastPage gt + { gsave \draftcopy@BottomTranslate + \draftcopy@Font findfont + 25 scalefont setfont + \draftcopy@BottomX \draftcopy@BottomY moveto + \draftcopy@GrayValue setgray + (\draftcopy@Name\space\space--\space\space) + 0 1 15 { pop dup show } for + grestore + } if + } def + end + } + \let~\@draftcopyTilde + } +\else\ifdraftcopy@bottom + \AtBeginDocument{ + \let~\space + \immediate@special{\draftcopy@UserDictCmd + begin + /draftcopy-CurrentPage 0 def + /draftcopy-old-BOPhook { } def + currentdict \draftcopy@BOPhook\space known{ + /draftcopy-old-BOPhook \draftcopy@BOPhook\space load def + } if + \draftcopy@BOPhook{ + draftcopy-old-BOPhook + /draftcopy-CurrentPage draftcopy-CurrentPage 1 add def + draftcopy-CurrentPage \draftcopy@FirstPage ge + draftcopy-CurrentPage \draftcopy@LastPage le + and + { gsave \draftcopy@PageTranslate + \draftcopy@Font findfont + \draftcopy@Scale \draftcopy@ScaleFactor mul scalefont setfont + \draftcopy@PageX \draftcopy@PageY moveto + \draftcopy@GrayValue setgray + (\draftcopy@Name) \draftcopy@Timestamp \draftcopy@Show + grestore + }if + gsave \draftcopy@BottomTranslate + \draftcopy@Font findfont + 25 scalefont setfont + \draftcopy@BottomX \draftcopy@BottomY moveto + \draftcopy@GrayValue setgray + (\draftcopy@Name\space\space--\space\space) + 0 1 15 { pop dup show } for + grestore + } def + end + } + \let~\@draftcopyTilde + } +\else + \AtBeginDocument{ + \let~\space + \immediate@special{\draftcopy@UserDictCmd + begin + /draftcopy-CurrentPage 0 def + /draftcopy-old-BOPhook { } def + currentdict \draftcopy@BOPhook\space known{ + /draftcopy-old-BOPhook \draftcopy@BOPhook\space load def + } if + \draftcopy@BOPhook{ + draftcopy-old-BOPhook + /draftcopy-CurrentPage draftcopy-CurrentPage 1 add def + draftcopy-CurrentPage \draftcopy@FirstPage ge + draftcopy-CurrentPage \draftcopy@LastPage le + and + { gsave \draftcopy@PageTranslate + \draftcopy@Font findfont + \draftcopy@Scale \draftcopy@ScaleFactor mul scalefont setfont + \draftcopy@PageX \draftcopy@PageY moveto + \draftcopy@GrayValue setgray + (\draftcopy@Name) \draftcopy@Timestamp \draftcopy@Show + grestore + } if + } def + end + } + \let~\@draftcopyTilde + } +\fi\fi +} +\fi + +\endinput +%% +%% End of file `draftcopy.sty'. -- cgit v1.2.3