diff options
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/esk/esk.sty | 246 |
1 files changed, 246 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/esk/esk.sty b/Master/texmf-dist/tex/latex/esk/esk.sty new file mode 100644 index 00000000000..e46e653f9db --- /dev/null +++ b/Master/texmf-dist/tex/latex/esk/esk.sty @@ -0,0 +1,246 @@ +%% +%% This is file `esk.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% esk.dtx (with options: `style') +%% +%% Copyright (C) 2010 Tom Kazimiers (tom AT voodoo-arts.net) +%% Based on the Makefile of emp latex package by Thorsten Ohl +%% (Thorsten.Ohl@Physik.TH-Darmstadt.de) +%% +%% This file is NOT the source for esk, because almost all comments +%% have been stripped from it. It is NOT the preferred form of esk +%% for making modifications to it. +%% +%% Therefore you can NOT redistribute and/or modify THIS file. You can +%% however redistribute the complete source (esk.dtx and esk.ins) +%% and/or modify it under the terms of the GNU General Public License as +%% published by the Free Software Foundation; either version 2, or (at +%% your option) any later version. +%% +%% As a special exception, you can redistribute parts of this file for +%% the electronic distribution of scientific papers, provided that you +%% include a short note pointing to the complete source. +%% +%% Esk is distributed in the hope that it will be useful, but +%% WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%% GNU General Public License for more details. +%% +%% You should have received a copy of the GNU General Public License +%% along with this program; if not, write to the Free Software +%% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% +%% \CheckSum{397} +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% TeX hints: +%% - @ is considered a normal letter in packages and classes +%% - There are 256 32Bit \count<num> registers (i.e. \count0=42), +%% can be expanded with \the<register> (i.e. \the\count0) +%% - \relax ends scanning for tokens +%% (i.e. \count0=\macro 42 <> \count0=\macro\relax 42) +%% - A macro defined with can has a maximum of 9 arguments +%% - \gdef is shortcut for \global\def +%% \xdef is shortcut for \global\edef +%% - \string<\macro> returns the "macro" (the name of a macro) +%% Doc hints: +%% - There must be _exactly_ four spaces between the "%" and the +%% "\begin{macrocode}" or "\end{macrocode}. Otherwise, Doc +%% won't detect the end of the code fragment. +%% - The lines of code withen \begin{macrocode}...\end{macrocode} +%% get written exactly as is to the .ins file, with no %-stripping. +\def\fileversion{v1.0} +{\def\RCS#1#2\endRCS{% + % is the first parameter a "$%? + \ifx$#1% + \@RCS $#2 \endRCS + \else + \@RCS $*: #1#2$ \endRCS + \fi}% + \def\@RCS $#1: #2,v #3 #4 #5 #6 #7$ \endRCS{% + % global defines (independent of current scope) of file attributes + \gdef\filename{#2}% + \gdef\filerevision{#3}% + \gdef\filedate{#4}% + \gdef\filemaintainer{#6}}% +\RCS $Id: esk.dtx,v 1.0 2010/05/05 01:23:42 kazimiers Exp $ \endRCS}% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{esk}[\filedate\space\fileversion\space + Encapsulated Sketch LaTeX Package (\filemaintainer)] +\RequirePackage{verbatim} +\RequirePackage{kvsetkeys}[2007/09/29] +{\catcode`\%=11\gdef\p@rcent{%}} +{\catcode`\>=1 \catcode`\<=2 + \catcode`\{=11 \catcode`\}=11 + \gdef\lc@rly>{< + \gdef\rc@rly>}< + \catcode`\{=1 \catcode`\}=2 +} +\def\eskwrite#1{% + \if@eskio + \immediate\write\@outesk{#1}% + \fi + \ignorespaces} +\def\eskwritetoken#1{ + \eskwrite{\the#1}} +\newif\if@eskio +\@eskiotrue +\newwrite\@outesk +\newcommand{\eskfile}[1][\jobname]{% + \def\theeskfile{#1}% + \if@eskio + \@ifundefined{ifmeasuring@}% + {}% + {\def\if@eskio{\ifmeasuring@\else}}% + \immediate\openout\@outesk=\theeskfile.sk\relax + \eskwrite{\p@rcent\p@rcent\p@rcent\space \theeskfile.sk -- % + do not edit, generated automatically by \jobname.tex}% + \expandafter\ifx\expandafter*\the\esk@prelude*\else + \eskwrite{\the\esk@prelude}% + \fi + \fi} +\let\theeskfile\relax +\newcounter{eskfig} +\newtoks\esk@prelude +\def\eskprelude#1{\esk@prelude={#1}} +\def\eskaddtoprelude#1{\esk@prelude=\expandafter{\the\esk@prelude^^J#1}} +\newtoks\esk@globals +\esk@globals={language tikz} +\def\eskglobals#1{\esk@globals={#1}} +\def\eskaddtoglobals#1{\esk@globals=\expandafter{\the\esk@globals,#1}} +\def\endeskfile{% + \expandafter\ifx\expandafter*\the\esk@globals*\else + \eskwrite{global \lc@rly\the\esk@globals\rc@rly }% + \fi + \eskwrite{\p@rcent\p@rcent\p@rcent\space the end.^^J}% + \let\theeskfile\relax + \if@eskio + \immediate\closeout\@outesk + \fi} +\newcommand{\esk}[1][\jobname]{% + \def\esk@@name{#1}% + \esk@} +\let\leftparanthesis=( +\def\esk@{ + \futurelet\next\esk@impl} +\def\esk@impl{% + \ifx\next\leftparanthesis + \expandafter\esk@impl@Arg + \else + \expandafter\esk@impl@NoArg + \fi} +\def\esk@impl@NoArg{\esk@impl@Arg()} +\def\esk@impl@Arg(#1){% + \esk@start% + \esk@includegraphics{\theeskfile}% + \comma@parse{#1}{\esk@def@processor}% + \esk@cmds{eskwritetoken}} +\def\esk@def@processor#1{ + \esk@use{#1}} +\def\esk@start{% + \global\expandafter\advance\csname c@eskfig\endcsname \@ne + \esk@checkfile + \esk@@def{\esk@@name}} +\def\esk@checkfile{% + \ifx\theeskfile\relax + \eskfile[\esk@@name.\arabic{eskfig}] + \fi + \ifx\theeskfile\relax + \errmessage{Could not open file "\esk@@name.\arabic{eskfig}.sk"!} + \fi} +\def\esk@includegraphics#1{% + \leavevmode + \IfFileExists{#1.sk.tex}% + {\input{#1.sk.tex}}% + {\typeout{% + esk: File #1.sk.tex\space not found:^^J% + esk: Process #1.sk with Sketch (-o #1.sk.tex) and then % + reprocess this file.}}} +\newcommand{\esk@cmds}[1]{% + \begingroup + \@bsphack + \let\do\@makeother\dospecials + \catcode`\^^M\active + \def\verbatim@processline{\csname#1\endcsname{\verbatim@line}}% + \verbatim@start}% +\def\endesk@cmds{% + \@esphack + \endgroup} +\def\endesk{% + \endesk@cmds + \endeskfile} +%% \iffalse TODO: Make it more robust by remembering old name +%% and setting it back afterwards (if any), so it can +%% be used in esk environments \fi +\newcommand{\eskdef}[1]{% + %% Define a new name + \def\esk@@def@name{esk@def:#1}% + \esk@def} +\def\esk@def{% + \expandafter\ifcsname\esk@@def@name\endcsname + \errmessage{"\esk@@def@name" is already defined!} + \fi + \expandafter\tok@newtoks\csname\esk@@def@name\endcsname + \global\edef\esk@@def@reg{\csname\esk@@def@name\endcsname} + \esk@cmds{esk@def@verb@proc}} + \global\def\esk@@def@reg{} +\def\esk@def@verb@proc#1{% + \expandafter\let\expandafter\token@reg\esk@@def@reg + \expandafter\ifx\expandafter*\the\token@reg* + \global\esk@@def@reg=\expandafter{\the#1} + \else + \global\esk@@def@reg=\expandafter{% + \the\expandafter\token@reg\expandafter^^J\the#1} + \fi} +\def\endeskdef{ + \endesk@cmds} +\def\esk@@def#1{% + \global\e@namedef{esk@k:f:#1}{\theeskfile}% + \global\e@namedef{esk@k:c:#1}{\theeskfig}} +\def\e@namedef#1{% + \expandafter\edef\csname #1\endcsname} +\def\esk@use#1{% + \def\esk@@def@name{esk@def:#1}% + \expandafter\ifcsname\esk@@def@name\endcsname + \eskwrite{\p@rcent\p@rcent\space included definition: #1}% + \expandafter\eskwritetoken\expandafter{% + \expandafter\csname\esk@@def@name\endcsname} + \eskwrite{^^J} + \else + \errmessage{esk: "#1" is undefined!} + \fi +} +\def\tok@newtoks{ + \csname newtoks\endcsname} +\def\futurenospacelet#1{\def\cs{#1}% + \afterassignment\stepone\let\nexttoken= } +\def\\{\let\stoken= } \\ +\def\stepone{\expandafter\futurelet\cs\steptwo} +\def\steptwo{\expandafter\ifx\cs\stoken\let\next=\stepthree + \else\let\next=\nexttoken\fi \next} +\def\stepthree{\afterassignment\stepone\let\next= } + +\endinput +%% +%% End of file `esk.sty'. |