initial

.gitignore

@@ -0,0 +1,8 @@
+*.aux
+*.glo
+*.hd
+*.idx
+*.log
+*.out
+*.sty
+*.toc

Makefile

@@ -0,0 +1,38 @@
+LTX = pdflatex
+TEX = tex
+
+DTX = $(wildcard *.dtx)
+NAM = $(DTX:%.dtx=%)
+DOC = $(DTX:%.dtx=%.pdf)
+STY = $(DTX:%.dtx=%.sty)
+TST = $(wildcard *test*.tex)
+TNM = $(TST:%.tex=%)
+PDF = $(TST:%.tex=%.pdf)
+
+
+quick:
+	$(LTX) $(DTX)
+all: $(DOC)
+sty: $(STY)
+test: $(PDF)
+doc: $(DOC)
+
+$(DOC): $(DTX)
+	$(LTX) $(DTX)
+	$(LTX) $(DTX)
+	$(LTX) $(DTX)
+$(STY): $(DTX)
+	$(TEX) $(DTX)
+$(PDF): $(TST) $(STY)
+	$(LTX) $(TST)
+
+.PHONY: clean clean_doc clean_sty clean_test clean_all all sty test quick
+clean: clean_test
+	-rm $(shell find $(NAM)\.* | grep -Ev '\.dtx$$' | grep -Ev '\.sty$$' | grep -Ev '\.pdf$$')
+clean_doc:
+	-rm $(DOC)
+clean_sty:
+	-rm $(STY)
+clean_test:
+	-rm $(shell find $(TNM)\.* | grep -Ev '\.tex$$')
+clean_all: clean clean_doc clean_sty clean_test

boxgrab.dtx

@@ -0,0 +1,361 @@
+% \iffalse meta-comment
+%
+% File: boxgrab.dtx Copyright (C) 2018 Jonathan P. Spratte
+%
+% It may be distributed and/or modified under the conditions of the LaTeX
+% Project Public License (LPPL), either version 1.3c of this license or (at your
+% option) any later version.  The latest version of this license is in the file
+%
+%   https://www.latex-project.org/lppl.txt
+%
+% ------------------------------------------------------------------------------
+%
+%<*driver>
+\def\nameofplainTeX{plain}
+\ifx\fmtname\nameofplainTeX\else
+  \expandafter\begingroup
+\fi
+\input l3docstrip.tex
+\askforoverwritefalse
+\preamble
+
+--------------------------------------------------------------
+boxgrab -- utilities to get an argument as a box
+E-mail: jspratte@yahoo.de
+Released under the LaTeX Project Public License v1.3c or later
+See http://www.latex-project.org/lppl.txt
+--------------------------------------------------------------
+
+Copyright (C) 2018 Jonathan P. Spratte
+
+This  work may be  distributed and/or  modified under  the conditions  of the
+LaTeX Project Public License (LPPL),  either version 1.3c  of this license or
+(at your option) any later version.  The latest version of this license is in
+the file:
+
+  http://www.latex-project.org/lppl.txt
+
+This work is "maintained" (as per LPPL maintenance status) by
+  Jonathan P. Spratte.
+
+This work consists of the file  boxgrab.dtx
+and the derived files           boxgrab.pdf and
+                                boxgrab.sty.
+
+\endpreamble
+% stop docstrip adding \endinput
+\postamble
+\endpostamble
+\generate{\file{boxgrab.sty}{\from{boxgrab.dtx}{pkg}}}
+\ifx\fmtname\nameofplainTeX
+  \expandafter\endbatchfile
+\else
+  \expandafter\endgroup
+\fi
+%</driver>
+%
+%<*driver>
+\ProvidesFile{boxgrab.dtx}
+  [%
+    \csname boxgrab@date\endcsname\ 
+    utilities to get an argument as a box%
+  ]
+\documentclass{l3doc}
+\usepackage{duckuments}
+\usepackage{boxgrab}
+\author{Jonathan P. Spratte\thanks{Email: jspratte@yahoo.de}}
+\title{The \pkg{boxgrab} package}
+\makeatletter
+\date{\boxgrab@date\ v\boxgrab@version}
+\renewcommand*{\thefootnote}{\fnsymbol{footnote}}
+\makeatother
+\begin{document}
+  \DocInput{boxgrab.dtx}
+\end{document}
+%</driver>
+%<*pkg>
+\newcommand*\boxgrab@date{2018-10-17}
+\newcommand*\boxgrab@version{1.0}
+\ProvidesPackage{boxgrab}
+  [\boxgrab@date\ v\boxgrab@version\ utilities to get an argument as a box]
+\RequirePackage{xparse}
+%</pkg>
+% \fi
+%
+% \begin{center}
+%   \LARGE The \pkg{boxgrab} package\\[\bigskipamount]
+%   \large
+%   \setcounter{footnote}{1}%
+%   Jonathan P. Spratte\footnotemark\\[\medskipamount]
+%   Version \csname boxgrab@version\endcsname\\[\smallskipamount]
+%   Released \csname boxgrab@date\endcsname
+% \end{center}
+% \footnotetext{E-mail: jspratte@yahoo.de}
+%
+% \tableofcontents
+%
+% \begin{documentation}
+%
+% \section{Introduction}
+%
+% This package provides \cs{boxgrab} to grab an argument inside of a box. The
+% used mechanism allows category code changes in that argument as long as it is
+% used in a place allowing category code changes (so not inside of another
+% argument).
+%
+% It is written as a docstrip file: executing |latex boxgrab.dtx| generates the
+% \file{boxgrab.sty} file and typesets this documentation; execute
+% |tex boxgrab.dtx| to only generate \file{boxgrab.sty}.
+% 
+% \section{The macro}
+%
+% \begin{function}{\boxgrab}
+%   \begin{syntax}
+%     \cs{boxgrab}\meta{*}
+%       \marg{box register}\oarg{inject pre}\marg{box type}\oarg{inject post}
+%       \marg{next}\oarg{save args}
+%   \end{syntax}
+%   Grabs the next braced argument inside of the box \meta{box register}. The
+%   box is of \meta{box type}, which should be either \cs{hbox} or \cs{vbox}.
+%   \meta{inject pre} will be injected at the beginning of the box and can
+%   affect its contents, \meta{inject post} will be injected after the box but
+%   can't be affected by stuff inside of \meta{inject pre}. Unless the \meta{*}
+%   is given leading and trailing spaces will be stripped from the box. After
+%   the box is read in \meta{next} will be executed. The usage is therefore
+%   similar to the one of \cs{@ifstar}. You can specify arguments which should
+%   be given to \meta{next} using \meta{save args}. The stuff you provide in
+%   \meta{save args} will be given as is to \meta{next}, so if you want to give
+%   an argument you should delimit it like with braces, like \verb|[{#1}]|, or
+%   if you want to give two arguments, like \verb|[{#1}{#2}]|.
+%
+%   All assignments are made local. Currently it is not save to nest macros
+%   which use \cs{boxgrab}.
+% \end{function}
+%
+% \section{Useless Example!}
+%
+% First we need to reserve us a box register for this example:
+%
+%\begin{verbatim}
+% \newsavebox\ourbox
+%\end{verbatim}
+%
+% Next we define a macro which takes some arguments and uses our macro:
+%
+%\begin{verbatim}
+% \newcommand\examplecmd[2]
+%   {%
+%     \begingroup
+%     \boxgrab\ourbox[\itshape]\hbox[ \sffamily is]\examplecmdOut[{#1}{#2}]
+%   }
+%\end{verbatim}
+%
+% And we need our helper macro which is executed after \cs{boxgrab}:
+%
+%\begin{verbatim}
+% \newcommand\examplecmdOut[3]
+%   {%
+%     \begin{tabular}[t]{@{}ll@{}}
+%       Arg1: & #1\\
+%       Arg2: & #2\\
+%       Box:  & \unhbox\ourbox\\
+%       Arg3: & #3
+%     \end{tabular}%
+%     \endgroup
+%   }
+%\end{verbatim}
+%
+% The result is a macro that takes two ordinary arguments, after those a
+% box in horizontal mode and finally another ordinary argument. If we use this
+% macro we get the following:
+% \begin{center}
+% \newsavebox\ourbox
+% \newcommand\examplecmd[2]
+%   {%
+%     \begingroup
+%     \boxgrab\ourbox[\itshape]\hbox[ \sffamily is]\examplecmdOut[{#1}{#2}]
+%   }%
+% \newcommand\examplecmdOut[3]
+%   {%
+%     \begin{tabular}[t]{@{}ll@{}}
+%       Arg1: & #1\\
+%       Arg2: & #2\\
+%       Box:  & \unhbox\ourbox\\
+%       Arg3: & #3
+%     \end{tabular}%
+%     \endgroup
+%   }%
+% \examplecmd{Hi,}{my}{\verb|name|}{Steve!}
+% \end{center}
+% One can see, that the \verb|\sffamily is| of \meta{inject post} is not
+% affected by the |\itshape| in \meta{inject pre}.
+% The used code to generate that table was:
+%
+%\begin{verbatim}
+% \examplecmd{Hi,}{my}{\verb|name|}{Steve!}
+%\end{verbatim}
+%
+% \section{Useful Example?}
+%
+% This example provides a macro which typesets its mandatory argument in a block
+% of a definable number of lines, it is meant for a single paragraph.
+%
+%\begin{verbatim}
+% % Getting a box register:
+% \newsavebox\RectangleBox
+% % Defining the main macro
+% \newcommand\Rectangle[1][4]
+%   {%
+%     \begingroup
+%     \boxgrab\RectangleBox\hbox\RectangleOut[{#1}]
+%   }
+% % Defining the secondary macro
+% \newcommand\RectangleOut[1]
+%   {%
+%     \begin{minipage}{\dimexpr\wd\RectangleBox/#1\relax}
+%       \parfillskip0pt
+%       \unhbox\RectangleBox
+%     \end{minipage}%
+%     \endgroup
+%   }
+%\end{verbatim}
+%
+% And a usage example of our new macro (with the \pkg{duckuments} package
+% loaded):
+%
+%\begin{verbatim}
+% \begin{center}
+%   \Rectangle[9]{\blindduck}
+% \end{center}
+%\end{verbatim}
+% Results:
+% \newsavebox\RectangleBox
+% \newcommand\Rectangle[1][4]
+%   {%
+%     \begingroup
+%     \boxgrab\RectangleBox\hbox\RectangleOut[{#1}]
+%   }%
+% \newcommand\RectangleOut[1]
+%   {%
+%     \begin{minipage}{\dimexpr\wd\RectangleBox/#1\relax}
+%       \parfillskip0pt
+%       \unhbox\RectangleBox
+%     \end{minipage}%
+%     \endgroup
+%   }%
+% \begin{center}
+%   \Rectangle[9]{\blindduck}
+% \end{center}
+%
+% \end{documentation}
+%
+% \begin{implementation}
+%
+% \section{Implementation}
+%
+%    \begin{macrocode}
+%<*pkg>
+%    \end{macrocode}
+%
+%    \begin{macrocode}
+\@ifdefinable{\if@boxgrab@spaces@}{\newif\if@boxgrab@spaces@}
+\newcommand*\boxgrab@args{}%
+\NewDocumentCommand \boxgrab { s m +O{} m +O{} m }
+  {%
+    \IfBooleanTF{#1}
+      {\@boxgrab@spaces@true}
+      {\@boxgrab@spaces@false}%
+    \def\boxgrab@name{#2}%
+    \if@boxgrab@spaces@
+      \def\boxgrab@into@pre{#3}%
+    \else
+      \def\boxgrab@into@pre{#3\ignorespaces}%
+    \fi
+    \def\boxgrab@type{#4}%
+    \def\boxgrab@into@post{#5}%
+    \def\boxgrab@final{#6}%
+    \@ifnextchar[
+      {\boxgrab@get@args}
+      {\def\boxgrab@args{}\boxgrab@a}
+  }
+\newcommand \boxgrab@get@args {}
+\long\def\boxgrab@get@args#1]
+  {%
+    \expandafter\boxgrab@get@args@a\expandafter{\@gobble#1}%
+  }
+\newcommand \boxgrab@get@args@a [1]
+  {%
+    \boxgrab@check@bracket #1[\endboxgrab@check@bracket
+      {\def\boxgrab@args{#1}\boxgrab@a}%
+      {\boxgrab@get@args@grabon{#1]}}%
+  }
+\newcommand \boxgrab@get@args@grabon {}
+\long\def\boxgrab@get@args@grabon#1#2]
+  {%
+    \boxgrab@check@bracket #2[\endboxgrab@check@bracket
+      {\def\boxgrab@args{#1#2}\boxgrab@a}
+      {\boxgrab@get@args@grabon{#1#2]}}%
+  }
+\newcommand \boxgrab@check@bracket {}
+\long\def\boxgrab@check@bracket #1[#2\endboxgrab@check@bracket
+  {%
+    \if\relax\detokenize{#2}\relax
+      \expandafter\@firstoftwo
+    \else
+      \expandafter\@secondoftwo
+    \fi
+  }
+\newcommand* \boxgrab@a
+  {%
+    \afterassignment\boxgrab@intermediate
+    \setbox\boxgrab@name\boxgrab@type
+  }
+\newcommand*\boxgrab@intermediate
+  {%
+    \aftergroup\boxgrab@after
+    \boxgrab@into@pre
+  }
+\newcommand*\boxgrab@after
+  {%
+    \if@boxgrab@spaces@
+      \setbox\boxgrab@name\boxgrab@type
+        {%
+          \boxgrab@unpack
+          \boxgrab@into@post
+        }%
+    \else
+      \setbox\boxgrab@name\boxgrab@type
+        {%
+          \boxgrab@unpack
+          \ifhmode\unskip\fi
+          \boxgrab@into@post
+        }%
+    \fi
+    \expandafter\boxgrab@final@exp@args\expandafter{\boxgrab@args}%
+  }
+\newcommand*\boxgrab@unpack
+  {%
+    \csname
+      un%
+      \expandafter\expandafter\expandafter\@gobble
+      \expandafter\string\boxgrab@type
+    \endcsname
+    \boxgrab@name
+  }
+\newcommand\boxgrab@final@exp@args[1]
+  {%
+    \def\boxgrab@args{}%
+    \boxgrab@final#1%
+  }
+
+%    \end{macrocode}
+%
+%    \begin{macrocode}
+\endinput
+%    \end{macrocode}
+%
+% \end{implementation}
+%
+%    \begin{macrocode}
+%</pkg>
+%    \end{macrocode}