From 6d43e49e73d6a7bead2c0f4eabe85242cf7b200b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 25 Jan 2021 22:07:26 +0000 Subject: ran_toks (25jan21) git-svn-id: svn://tug.org/texlive/trunk@57520 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/ran_toks/README.md | 12 +- .../doc/latex/ran_toks/docs/ran_toks.pdf | Bin 106437 -> 284544 bytes .../doc/latex/ran_toks/docs/rantoks_man.pdf | Bin 226760 -> 255885 bytes .../doc/latex/ran_toks/docs/rantoks_man.tex | 431 +++++++++++++++---- .../doc/latex/ran_toks/examples/ctrl-build.tex | 58 +++ .../texmf-dist/doc/latex/ran_toks/examples/db1.tex | 2 +- .../texmf-dist/doc/latex/ran_toks/examples/db2.tex | 4 +- .../texmf-dist/doc/latex/ran_toks/examples/db3.tex | 4 +- .../texmf-dist/doc/latex/ran_toks/examples/db4.tex | 4 +- .../doc/latex/ran_toks/examples/mc-db.tex | 72 ++-- .../doc/latex/ran_toks/examples/mc-dbu-ctrld.tex | 62 +++ .../doc/latex/ran_toks/examples/mc-dbu.tex | 75 ++++ .../doc/latex/ran_toks/examples/ran-toks.tex | 96 +++++ .../doc/latex/ran_toks/examples/ran_toks.tex | 95 ----- .../doc/latex/ran_toks/examples/random_tst.tex | 103 ----- .../doc/latex/ran_toks/examples/random_tst_qz.tex | 115 ----- .../doc/latex/ran_toks/examples/rt-cb.tex | 36 ++ .../doc/latex/ran_toks/examples/rt-tst-eqe.tex | 102 +++++ .../doc/latex/ran_toks/examples/rt-tst-qz.tex | 117 +++++ .../doc/latex/ran_toks/examples/viewDB.tex | 40 ++ .../texmf-dist/source/latex/ran_toks/ran_toks.dtx | 470 ++++++++++++++++++--- .../texmf-dist/source/latex/ran_toks/ran_toks.ins | 1 + Master/texmf-dist/tex/latex/ran_toks/ran-toks.sty | 2 +- Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty | 150 ++++--- Master/texmf-dist/tex/latex/ran_toks/rt-dbapp.def | 148 +++++++ 25 files changed, 1639 insertions(+), 560 deletions(-) create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/ctrl-build.tex create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu-ctrld.tex create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu.tex create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/ran-toks.tex delete mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/ran_toks.tex delete mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/random_tst.tex delete mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/random_tst_qz.tex create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/rt-cb.tex create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-eqe.tex create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-qz.tex create mode 100644 Master/texmf-dist/doc/latex/ran_toks/examples/viewDB.tex create mode 100644 Master/texmf-dist/tex/latex/ran_toks/rt-dbapp.def (limited to 'Master') diff --git a/Master/texmf-dist/doc/latex/ran_toks/README.md b/Master/texmf-dist/doc/latex/ran_toks/README.md index c4c67686b7a..8c3b618c71c 100644 --- a/Master/texmf-dist/doc/latex/ran_toks/README.md +++ b/Master/texmf-dist/doc/latex/ran_toks/README.md @@ -1,6 +1,6 @@ The ran_toks Package Author: D. P. Story -Dated: 2019-12-28 +Dated: 2021-01-19 This short package, with minimal requirements, defines macros for randomizing a list of tokens. There are two approaches: @@ -40,7 +40,15 @@ tokens in the myList list. For users of AeB or eqexam, the latter structure can be used to randomize the order of the questions on a quiz or exam. -What's New (2019-12-28 ) Defined \rtVWHook to insert at the top of the +What's New (2021-01-19) A new option, usedbapp, was added to +support a DB application. Extensive work was done on the DB +application. Added \uniqueXDBChoicesOn, which if expanded, tries +to choose a random token that has not already been chosen, +across versions of a multi-version eqexam document. Changes are +discussed in the documentation and in the new examples in the +distribution. + +What's New (2019-12-28) Defined \rtVWHook to insert at the top of the rtVW environment. Also created an alternate package name of ran-toks. What's new in v1.1: Added the convenience command \useTheseDBs to input files for diff --git a/Master/texmf-dist/doc/latex/ran_toks/docs/ran_toks.pdf b/Master/texmf-dist/doc/latex/ran_toks/docs/ran_toks.pdf index 8896ea676cb..bfc8e7bc9b2 100644 Binary files a/Master/texmf-dist/doc/latex/ran_toks/docs/ran_toks.pdf and b/Master/texmf-dist/doc/latex/ran_toks/docs/ran_toks.pdf differ diff --git a/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.pdf b/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.pdf index 8d7c1e06e9e..62ee68da81c 100644 Binary files a/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.pdf and b/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.pdf differ diff --git a/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.tex b/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.tex index c17c9e9a7e4..8f8b0c6246b 100644 --- a/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.tex +++ b/Master/texmf-dist/doc/latex/ran_toks/docs/rantoks_man.tex @@ -1,8 +1,9 @@ +\RequirePackage[!use=preview,!use=efpmca,!use=usebw]{spdef} \documentclass{article} \usepackage[fleqn]{amsmath} \usepackage[ web={centertitlepage,designv,forcolorpaper, - latextoc,pro}, %tight, + latextoc,extended}, eforms,aebxmp ]{aeb_pro} \usepackage{ran_toks} @@ -16,6 +17,7 @@ \let\pkg\textsf \let\env\texttt +\let\opt\textsf %\rtdebugtrue %\ranToksOn @@ -50,6 +52,19 @@ \def\takeMeasurei#1{\global\setbox\webtempboxi\hbox{\ttfamily#1}\egroup} \def\bxSize{\wd\webtempboxi+2\fboxsep+2\fboxrule} +\newcommand{\FmtMP}[2][0pt]{\mbox{}\marginpar{% + \raisebox{.5\baselineskip+#1}{% + \expandafter\parbox\expandafter[\parboxValign]% + {\marginparwidth}{\aebbkFmtMp#2}}}} +\def\aebbkFmtMp{\kern0pt\itshape\small + \ifusebw\color{gray}\else\color{blue}\fi + \raggedleft\hspace{0pt}}\newcommand{\BlogArticle}{% + \makebox[0pt][l]{\hspace{-1pt}\color{blue}\Pisymbol{webd}{254}% + }\raisebox{.5pt}{\ifusebw\color{black}\else + \color{red}\fi\ding{045}}} +\def\parboxValign{t} + + \usepackage[active]{srcltx} \let\amtIndent\leftmargini @@ -72,8 +87,8 @@ email={dpstory@acrotex.net}, subject=Documentation for the ran\_toks package, talksite={\url{www.acrotex.net}}, - version={1.2, 2019/12/28}, - Keywords={LaTeX,PDF,random, tokens, JavaScript,Adobe Acrobat}, + version={1.3.1, 2021/01/19}, + Keywords={LaTeX, PDF, random, tokens, JavaScript, Adobe Acrobat}, copyrightStatus=True, copyrightNotice={Copyright (C) \the\year, D. P. Story}, copyrightInfoURL={http://www.acrotex.net} @@ -155,37 +170,65 @@ _path=_path.substring(0,pos)+"/"+manualfilename; \section{Introduction} This is a short package for randomizing the order of tokens. The package -is long overdue; users of \textbf{AeB} and of \textsf{eqexam} have long asked for a way to +is long overdue; users of \textsf{\textbf{AeB}} and of \pkg{eqexam} have long asked for a way to randomize the order of the problems in a test or quiz, or anything for that matter. -\newtopic\noindent\exSrc The \texttt{examples} folder contains three demonstration files: +\newtopic\noindent\exSrc The \texttt{examples} folder contains nine demonstration files: \begin{enumerate} - \item \texttt{ran\_toks.tex} reproduces the sample code of this manual. - \item \texttt{random\_tst.tex} shows how to use \pkg{ran\_toks} to + \item \texttt{ran-toks.tex} reproduces the sample code of this manual. + \item \texttt{rt-tst-eqe.tex} shows how to use \pkg{ran\_toks} to randomize the \emph{questions} of an exam document created by the \pkg{eqexam} package. - \item \texttt{random\_tst\_qz.tex} shows how to randomize choices of a + \item \texttt{rt-tst-qz.tex} shows how to randomize choices of a multiple choice field in a \env{quiz} environment of the \pkg{exerquiz} package, when the choices contain verbatim text. - \item \texttt{mc-db.tex} is an \pkg{eqexam} file that draws from the + \item \texttt{rt-cb.tex} is a demonstration of how to use the + \pkg{collectbox} package to place verbatim content into a token list + (see \cs{ranToks}, \hyperref[s:ranToks]{Section~\ref*{s:ranToks}}). +\xdef\svEnumi{\the\value{enumi}} +\end{enumerate} +The next five files concern the DB application and require the \opt{usedbapp} option, +they are discussed in \hyperref[s:DBApp]{Section~\ref*{s:DBApp}}. +\begin{enumerate}\setcounter{enumi}{\svEnumi} + \item \texttt{mc-db.tex} is an \pkg{eqexam} file, draws from the database files \texttt{db1.tex}, \texttt{db2.tex}, \texttt{db3.tex}, and \texttt{db4.tex}, to construct the questions of the exam. The questions are drawn at random from the DB files. Refer - to \hyperref[s:DBConcept]{Section~\ref*{s:DBConcept}} for a few more details. + to \hyperref[s:DBApp]{Section~\ref*{s:DBApp}} for a few more details. + \item \texttt{mc-dbu.tex} is an \pkg{eqexam} file that draws from the + database test file, draws from the database files \texttt{db1.tex}, + \texttt{db2.tex}, \texttt{db3.tex}, and \texttt{db4.tex}, to + construct the questions of the exam. However, \texttt{mc-dbu.tex} + differs from \texttt{mc-db.tex} for it selects unique questions + cross the four versions of the document. Refer to + \hyperref[s:DBApp]{Section~\ref*{s:DBApp}} for a few more details. + \item \texttt{viewDB.tex} A demo file of how to view the DB files for + the purpose of reviewing the questions, modifying them, or adding + to them. + \item \texttt{mc-dbu-ctrld.tex} is a variation on \texttt{mc-dbu.tex}, + it is not meant to be compiled directly, but by the file + \texttt{ctrl-build.tex}. + \item \texttt{ctrl-build.tex} is a simple TEX file that controls the + compilation of a targeted file (\texttt{mc-dbu-ctrld.tex} in this + example) over the various versions supported by the targeted file. + Try it, you'll like it. Uses the \pkg{shellesc} package to control + the process. \end{enumerate} \section{The Preamble and Package Options} The preamble for this package is -\bVerb\takeMeasure{\string\usepackage\darg{ran\_toks}}% +\bVerb\takeMeasure{\string\usepackage[\ameta{options}]\darg{ran\_toks}}% \begin{minipage}{\bxSize}\kern0pt -\begin{Verbatim}[frame=single] -\usepackage{ran_toks} +\begin{Verbatim}[frame=single,commandchars=!()] +\usepackage[!ameta(options)]{ran_toks} \end{Verbatim} \end{minipage}\eVerb -The package itself has no options. +The one option of \pkg{ran\_toks} is \opt{usedbapp}\FmtMP{\opt{usedbapp} option}, which brings in +specialized code to support a database test application. This option is +discussed in \hyperref[s:DBApp]{Section~\ref*{s:DBApp}}, beginning on page~\pageref*{s:DBApp}. The requirements for \textsf{ran\_toks} are the \textsf{verbatim} package (part of the standard {\LaTeX} distribution, and the macro file @@ -198,52 +241,52 @@ There are two styles for defining a series of tokens to be randomized, using either the \cs{ranToks} command or the \cs{bRTVToks}/\cs{eRTVToks} pair. Each of these is discussed in the next two subsections. -\subsection{The \texorpdfstring{\protect\cs{ranToks}}{\CMD{ranToks}} command} +\subsection{The \texorpdfstring{\protect\cs{ranToks}}{\CMD{ranToks}} command}\label{s:ranToks} The \cs{ranToks} command was the original concept; declare a series of tokens to be randomized. -\bVerb\takeMeasure{\string\ranToks\darg{\meta{name}}\{\%\enspace}% +\bVerb\takeMeasure{\string\ranToks\darg{\ameta{name}}\{\%\enspace}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\ranToks{!meta(name)}{% - {!meta(token!SUB(1))} - {!meta(token!SUB(2))} - ... - {!meta(token!SUB(n))} +\ranToks{!ameta(name)}{% +!quad{!ameta(token!SUB(1))} +!quad{!ameta(token!SUB(2))} +!quad... +!quad{!ameta(token!SUB(n))} } \end{Verbatim} \end{minipage}\eVerb -were \meta{token\SUB{k}} is any non-verbatim content;\footnote{Any token that -can be in the argument of a command.} each token is enclosed in braces -(\darg{}), this is required. The \meta{name} parameter is required, and +were \ameta{token\SUB{k}} is any non-verbatim content;\footnote{However, for workarounds, see +\texttt{rt-cb.tex} and \texttt{rt-tst-qz.tex.}} each token is enclosed in braces +(\darg{}), this is required. The \ameta{name} parameter is required, and must be unique for the document; it is used to build the names of internal macros. Of course several such \cs{ranToks} can be used in the document, either in the preamble or in the body of the document. Multiple -\cs{ranToks} commands must have a different \meta{name} parameter. +\cs{ranToks} commands must have a different \ameta{name} parameter. \emph{After} a \cs{ranToks} command has been executed, the number of tokens counted is accessible through the \cs{nToksFor} command, -\bVerb\takeMeasure{\string\nToksFor\darg{\meta{name}}}% +\bVerb\takeMeasure{\string\nToksFor\darg{\ameta{name}}}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\nToksFor{!meta(name)} +\nToksFor{!ameta(name)} \end{Verbatim} \end{minipage}\eVerb -The one argument is \meta{name}, and will expand to the total number +The one argument is \ameta{name}, and will expand to the total number of tokens listing as argument in the \cs{ranToks} command by the same name. The \cs{ranToks} command does not display the randomized tokens, for that the command \cs{useRanTok} is used. -\bVerb\takeMeasure{\string\useRTName\darg{\meta{name}}}% +\bVerb\takeMeasure{\string\useRTName\darg{\ameta{name}}}% \begin{minipage}{\bxSize} \begin{Verbatim}[frame=single,commandchars=!()] -\useRanTok{!meta(num)} -\useRTName{!meta(name)} +\useRanTok{!ameta(num)} +\useRTName{!ameta(name)} \end{Verbatim} \end{minipage}\eVerb The argument of \cs{useRanTok} is a positive integer between 1 and -\cs{nToksFor\darg{\meta{name}}}, the number of tokens declared by +\cs{nToksFor\darg{\ameta{name}}}, the number of tokens declared by \cs{ranToks}, inclusive. There is no space created following the \cs{useRanTok} command, so if these are to be used ``inline'', enclose them in braces (\darg{}), for example, \darg{\cs{useRanTok\darg{1}}}. The use of @@ -285,10 +328,10 @@ arguments.\footnote{{\ttfamily\string\ranToks\darg{myPals}\darg{\darg{Jim}\darg{ are \useRanTok{1}, \useRanTok{2}, \useRanTok{3}, \useRanTok{4}, {\useRanTok{5}} and \useRanTok{6}.'' A new order? An alternative to re-executing \cs{ranToks} is to use the \cs{reorderRanToks} command: -\bVerb\takeMeasure{\string\reorderRanToks\darg{\meta{name}}}% +\bVerb\takeMeasure{\string\reorderRanToks\darg{\ameta{name}}}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\reorderRanToks{!meta(name)} +\reorderRanToks{!ameta(name)} \end{Verbatim} \end{minipage}\eVerb Now, executing \verb~\reorderRanToks{myPals}~ and compiling the sentence again yields, ``I have {\nToksFor{myPals}} pals, they are @@ -297,7 +340,7 @@ An alternative to re-executing \cs{ranToks} is to use the \cs{reorderRanToks} co the same token list in the same document is not very likely something you need to do. -The \cs{reorderRanToks\darg{\meta{name}}} rearranges the list of tokens +The \cs{reorderRanToks\darg{\ameta{name}}} rearranges the list of tokens associated with \ameta{name}, which may not be what you want; the \cs{copyRanToks} command, on the other hand, makes a (randomized) copy of its first required argument \ameta{name\SUB1} and saves it as \ameta{name\SUB2}, without @@ -327,36 +370,55 @@ and verbatim environments. Sometimes the content to be randomized is quite large or contains verbatim text. For this, it may be more convenient to use the \cs{bRTVToks}/\penalty0\cs{eRTVToks} command pair. The syntax is -\bVerb\takeMeasure{\string\bRTVToks\darg{\meta{name}}\quad}% -\edef\WIDTH{\the\wd\webtempboxi}% -\def\1{\rlap{\hspace*{\WIDTH}\texttt{\% <-{\sffamily{ End token listing}}}}}% -\takeMeasure{\string\bRTVToks\darg{\meta{name}}\quad\% <-{\sffamily{ Begin token listing}}}% +\bVerb\takeMeasure{\string\bRTVToks\darg{\ameta{name}}}% +%\edef\WIDTH{\the\wd\webtempboxi}% +\def\1{\rlap{\hspace*{\linewidth}\texttt{\%{\sffamily{ \raisebox{1pt}{<--}Begin token listing}}}}}% +\def\2{\rlap{\hspace*{\linewidth}\texttt{\%{\sffamily{ \raisebox{1pt}{<--}End token listing}}}}}% +%\takeMeasure{\string\bRTVToks\darg{\ameta{name}}\quad\%{\sffamily{ <-Begin token listing}}}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\bRTVToks{!meta(name)}!quad% <-!sffamily( Begin token listing) +!1\bRTVToks{!ameta(name)} \begin{rtVW} -!qquad!ameta(content!SUB(1)) +!quad!ameta(content!SUB(1)) \end{rtVW} ... ... \begin{rtVW} -!qquad!ameta(content!SUB(n)) +!quad!ameta(content!SUB(n)) \end{rtVW} -!1\eRTVToks +!2\eRTVToks \end{Verbatim} \end{minipage}\eVerb -The \cs{bRTVToks}\texttt{\{\meta{name}\}} command begins the (pseudo) +%\bVerb\takeMeasure{\string\bRTVToks\darg{\ameta{name}}\quad}% +%\edef\WIDTH{\the\wd\webtempboxi}% +%\def\1{\rlap{\hspace*{\WIDTH}\texttt{\% <-{\sffamily{ End token listing}}}}}% +%\takeMeasure{\string\bRTVToks\darg{\ameta{name}}\quad\% <-{\sffamily{ Begin token listing}}}% +%\begin{minipage}{\bxSize}\kern0pt +%\begin{Verbatim}[frame=single,commandchars=!()] +%\bRTVToks{!ameta(name)}!quad% <-!sffamily( Begin token listing) +%\begin{rtVW} +%!quad!ameta(content!SUB(1)) +%\end{rtVW} +%... +%... +%\begin{rtVW} +%!quad!ameta(content!SUB(n)) +%\end{rtVW} +%!1\eRTVToks +%\end{Verbatim} +%\end{minipage}\eVerb +The \cs{bRTVToks}\texttt{\darg{\ameta{name}}} command begins the (pseudo) environment and is ended by \cs{eRTVToks}. Between these two are a series of \texttt{rtVW} (random toks verbatim write) environments. When the document is compiled, the contents (\ameta{content\SUB{i}}) of each of these environments are written to the computer hard drive and saved under a different name -(based on the parameter \meta{name}). Later, using the \cs{useRanTok} +(based on the parameter \ameta{name}). Later, using the \cs{useRanTok} commands, they are input back into the document in a random order. -The \env{rtWVW} environment also writes the command +The \env{rtVW} environment also writes the command \cs{RTVWHook}\marginpar{\small\itshape\flushright\cs{RTVWHook}} to the top of -the file. Its initial value is \cs{relax}. It can be redefined using the convenience -command \cs{rtVWHook\darg{\ameta{arg}}}, which expands to +the file. Its initial value is \cs{relax}. It can be redefined with +\cs{rtVWHook\darg{\ameta{arg}}}, which expands to \verb|\def\RTVWHook{|\ameta{arg}\verb|}|. The use of \cs{useRTName} and \cs{useRanTok} were explained and illustrated @@ -436,7 +498,7 @@ The command \cs{copyRanToks} works for list created by \paragraph*{On the \cs{displayListRandomly} command.}\label{para:DLR} In the enumerate example immediately above, the items in the list are -explicitly listed as \cs{item \cs{useRanTok\darg{1}}} and so one; an +explicitly listed as \cs{item \cs{useRanTok\darg{1}}} and so on; an alternate approach is to use the command \cs{displayListRandomly}, like so, \begin{Verbatim}[xleftmargin=\amtIndent] \begin{enumerate} @@ -444,17 +506,17 @@ alternate approach is to use the command \cs{displayListRandomly}, like so, \end{enumerate} \end{Verbatim} The full syntax for \cs{displayListRandomly} is displayed next. -\bVerb\takeMeasure{\string\displayListRandomly[\ameta{prior}][\ameta{post}]\darg{\meta{name}}}% +\bVerb\takeMeasure{\string\displayListRandomly[\ameta{prior}][\ameta{post}]\darg{\ameta{name}}}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\displayListRandomly[!ameta(prior)][!ameta(post)]{!meta(name)} +\displayListRandomly[!ameta(prior)][!ameta(post)]{!ameta(name)} \end{Verbatim} \end{minipage} \eVerb The action of \cs{displayListRandomly} is to expand all tokens that -are listed in the \meta{name} token list, each entry is displayed as +are listed in the \ameta{name} token list, each entry is displayed as \ameta{prior}\cs{useRanTok\darg{i}}\ameta{post}, where \texttt{i} -goes from~1 to \cs{nToksFor\darg{\meta{name}}}. In the example above, -\meta{prior} is \cs{item}, but normally, its default is empty. The defaults +goes from~1 to \cs{nToksFor\darg{\ameta{name}}}. In the example above, +\ameta{prior} is \cs{item}, but normally, its default is empty. The defaults for \ameta{prior} and \ameta{post} are both empty. \subparagraph*{The optional arguments.} When only one optional argument is present, @@ -492,16 +554,16 @@ Hint: a solution involves the other command \cs{lessone}. \section{Additional arguments and commands}\label{AddCmds} The syntax given earlier for \cs{useRanTok} was not completely specified. -It is -\bVerb\takeMeasure{\string\useRanTok[\meta{name}]\darg{\meta{num}}}% +It is, +\bVerb\takeMeasure{\string\useRanTok[\ameta{name}]\darg{\ameta{num}}}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\useRanTok[!meta(name)]{!meta(num)} +\useRanTok[!ameta(name)]{!ameta(num)} \end{Verbatim} \end{minipage}\eVerb -The optional first parameter specifies the \meta{name} of the list from -which to draw a random token; \meta{num} is the number of the -token in the range of 1 and \cs{nToksFor\darg{\meta{name}}}, +The optional first parameter specifies the \ameta{name} of the list from +which to draw a random token; \ameta{num} is the number of the +token in the range of 1 and \cs{nToksFor\darg{\ameta{name}}}, inclusive. The optional argument is useful in special circumstances when you want to mix two random lists together. @@ -517,23 +579,23 @@ Without the \texttt{minipage}, the text would wrap around normally. \paragraph*{Accessing the original order.} The original order of the list of tokens is not lost, you can retrieve them using the command \cs{rtTokByNum}, -\bVerb\takeMeasure{\string\rtTokByNum[\meta{name}]\darg{\meta{num}}}% +\bVerb\takeMeasure{\string\rtTokByNum[\ameta{name}]\darg{\ameta{num}}}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\rtTokByNum[!meta(name)]{!meta(num)} +\rtTokByNum[!ameta(name)]{!ameta(num)} \end{Verbatim} \end{minipage}\eVerb -This command expands to the token declared in the list named \meta{name} -that appears at the \meta{num} place in the list. (Rather awkwardly written.) +This command expands to the token declared in the list named \ameta{name} +that appears at the \ameta{num} place in the list. (Rather awkwardly written.) For example, my really best pals are {\rtTokByNum[myPals]{3}} and \rtTokByNum[myPals]{4}, but don't tell them. The listing is, \begin{Verbatim}[xleftmargin=\amtIndent] For example, my really best pals are {\rtTokByNum[myPals]{3}} and \rtTokByNum[myPals]{4}, but don't tell them. \end{Verbatim} -In some sense, \cs{rtTokByNum[\meta{name}]} acts like a simple array, the -length of which is \cs{nToksFor\{\meta{name}\}}, and whose $k^{\text{th}}$ -element is \cs{rtTokByNum[\meta{name}]\{\meta{k}\}}. +In some sense, \cs{rtTokByNum[\ameta{name}]} acts like a simple array, the +length of which is \cs{nToksFor\{\ameta{name}\}}, and whose $k^{\text{th}}$ +element is \cs{rtTokByNum[\ameta{name}]\{\ameta{k}\}}. \paragraph*{Turning off randomization.} The randomization may be turned off using \cs{ranToksOff} or turned back on with \cs{ranToksOn}. @@ -596,7 +658,7 @@ Normally, the pseudo-random number generator provided by you recompile again before another minute, you'll get the same initial seed value. -\paragraph*{Controlling the initial seed value.} To obtain a new initial seed +\paragraph*{Controlling the initial seed value.}\label{para:ControlSeed} To obtain a new initial seed value each time you compile, place \cs{useLastAsSeed} in the preamble. \bVerb\takeMeasure{\string\useLastAsSeed}% \begin{minipage}{\bxSize}\kern0pt @@ -612,14 +674,14 @@ exist, the generator will be initialized by its usual method, using the time and The command \cs{useThisSeed} allows you to reproduce a previous pseudo-random sequence. -\bVerb\takeMeasure{\string\useThisSeed\darg{\meta{init\_seed\_value}}}% +\bVerb\takeMeasure{\string\useThisSeed\darg{\ameta{init\_seed\_value}}}% \begin{minipage}{\bxSize}\kern0pt \begin{Verbatim}[frame=single,commandchars=!()] -\useThisSeed{!meta(init_seed_value)} +\useThisSeed{!ameta(init_seed_value)} \end{Verbatim} \end{minipage}\eVerb This command needs to be placed in the preamble. The value of -\meta{init\_seed\_value} is an integer, normally taken from the +\ameta{init\_seed\_value} is an integer, normally taken from the first line of the \cs{jobname\_rt.sav} file. When creating tests (possibly using \textsf{eqexam}), the problems, or @@ -653,17 +715,47 @@ If you are using \textsf{eqexam}, the process can be automated as follows: \end{Verbatim} Again, this goes in the preamble. -\section{Commands to support a DB application}\label{s:DBConcept} +\section{Commands to support a DB application}\label{s:DBApp} + +The commands described in this section are only available with the \opt{usedbapp} option, +\begin{Verbatim} +\usepackage[usedbapp]{ran_toks} +\end{Verbatim} +This option was designed for an \pkg{eqexam} document. + +\subsection{Basic functionality}\label{s:basicFunc} + +The premise here is that you have an \pkg{eqexam} document (a test) and you have a series +of standard questions you ask students. Over the years, you have accumulated questions of a similar type +that you like to pose to your students. The questions of a similar type are placed in a DB test file. For example, +you have a file named \texttt{db1.tex} containing questions on a certain narrow topic. The format for this file +is, +\begin{Verbatim}[commandchars=!()] +% +% !textsf(Questions on some narrow topic) +% +\bRTVToks{DB1} %<-!textsf(DB !ameta(name)) +\begin{rtVW} +% !textsf(an !pkg(eqexam) question is contained in this rtVW environment) +\end{rtVW} +\begin{rtVW} +% !textsf(an !pkg(eqexam) question is contained in this rtVW environment) +\end{rtVW} +... +\eRTVToks +\end{Verbatim} +Refer to the file \texttt{db1.tex}, \texttt{db2.tex},\dots, \texttt{db4.tex} for more specific +examples. The DB \ameta{name} must be unique among all the DB test files used. -One user wanted to create exams using \pkg{eqexam}, but wanted to randomly -select questions from a series of `database' files. My thought was that -\pkg{ran\_toks} would do the job for him. After setting up a demo for him, I -added the new command \cs{useTheseDBs} to \pkg{ran\_toks}: +The next step is to input your DB files. To do this, execute either of the commands +\cs{useTheseDBs} or \cs{useProbDBs} prior to the opening of an \env{exam} environment (\pkg{eqexam}), +or perhaps in the preamble. The syntax is, \bVerb\takeMeasure{\string\useTheseDBs\darg{\ameta{db\SUB{1}},\ameta{db\SUB{2}},...,\ameta{db\SUB{n}}}}% -\begin{minipage}{\bxSize}\kern0pt +\setlength\eflength{\bxSize}% +\begin{minipage}{\bxSize}\kern0pt\def\1{\rlap{\sffamily\hskip\eflength(An alias for \cs{useTheseDBs})}}\relax \begin{Verbatim}[frame=single,commandchars=!()] \useTheseDBs{!ameta(db!SUB(1)),!ameta(db!SUB(2)),...,!ameta(db!SUB(n))} -\useProbDBs{!ameta(db!SUB(1)),!ameta(db!SUB(2)),...,!ameta(db!SUB(n))} +!1\useProbDBs{!ameta(db!SUB(1)),!ameta(db!SUB(2)),...,!ameta(db!SUB(n))} \end{Verbatim} \end{minipage}\eVerb The argument of \cs{useTheseDBs} is a comma-delimited list of file names. Each file name contains a @@ -678,11 +770,190 @@ emitted if one or more of the files are not found. The default extension is \texttt{db2.db}, if they exist. The command \cs{useProbDBs} is an alias for \cs{useTheseDBs}. -The placement of \cs{useTheseDBs} is anywhere prior to the insertion of the -problems into the document, usually in the preamble. +Once the database files have been input, in the body of the document you can extract +questions using \cs{useRanTok}; for example, \cs{useRanTok[DB1]\darg{1}} extracts the question +with an index of 1 from the database file DB1;\footnote{It is assumed that DB1 is the \ameta{name} +is the required argument of \cs{bRTVToks}, which is declared in the \texttt{db1.tex} file.} \cs{useRanTok[DB2]\darg{2}} extracts the question +with an index of 2 from the database file DB2, and so on. Refer to the demonstration file \texttt{mc-db.tex} for an example. +\subsection{Striving for uniqueness of choices} + +By default, when you expand \cs{useRanTok\darg{1}} and later you expand +\cs{useRanTok\darg{1}} again you get the exact same result;\footnote{Here, we +are assuming the \ameta{name} of the token list is the same for both +expansions of \cs{useRanTok\darg{1}}.} this is the normal behavior. However, +in the context of posing questions from a database of questions, repeating +the questions is not what is wanted necessarily. In the next two subsections, +we speak to the problem, first within a single-version document, and +secondly, within a multi-version document. + + +\subsubsection{For documents with a single version} + +The issue of not wanting to repeat a question from a database comes up when +you want to pose several questions from a given database file. We illustrate +using the demo file \texttt{mc-db.tex} found in the \texttt{examples} folder. +In that file, the exam has two parts, as shown in +\hyperref[fig:2prts]{Figure~\ref*{fig:2prts}}.\footnote{The verbatim listing +here has been simplified.} +\begin{figure}[htb]\centering +\settowidth{\eflength}{\ttfamily\string\useRanTok[DB1]\darg{1}}% +\edef\x{\the\eflength}% +\setlength\eflength{\x+\widthof{\textsf{\quad\%An alternate approach}\texttt{ }}}% +\def\0{\rlap{\hskip\x\relax\quad\% \textsf{An alternate approach}}}% +\def\1{\rlap{\hskip\x\relax\quad\% \cs{begin\darg{Part2}}}}% +\def\2{\rlap{\hskip\x\relax\quad\% \cs{useRanTok[DB1]\darg{3}}}}% +\def\3{\rlap{\hskip\x\relax\quad\% \cs{useRanTok[DB1]\darg{4}}}}% +\def\4{\rlap{\hskip\x\relax\quad\% \cs{end\darg{Part2}}}}% +\fboxsep0pt +\begin{minipage}{\eflength} +\begin{Verbatim}[commandchars=!()] +\begin{Part1} +\useRanTok[DB1]{1} +\useRanTok[DB1]{2} +\end{Part1} + +!0% !textsf( First approach) +!1\begin{Part2} +!2\useRanTok[DB1]{1} +!3\useRanTok[DB1]{2} +!4\end{Part2} +\end{Verbatim} +\end{minipage} +\caption{Simplified two-part exam}\label{fig:2prts} +\end{figure} +For \textsf{Part1}, we take two problems (at random) from \textsf{DB1}. In +\textsf{Part2}, we take two problems again from \textsf{DB1}; these two will +be the \emph{same} as the ones chosen from \textsf{Part1}. To get two +\emph{different} questions the natural approach is to write +\cs{useRanTok[DB1]\darg{3}} and \cs{useRanTok[DB1]\darg{4}}, as shown on the +right in \hyperref[fig:2prts]{Figure~\ref*{fig:2prts}}. Now, returning to the \textsf{First approach}, there is a way of forcing +\pkg{ran\_toks} to choose two different question even though the indexes used are the same. + +To have different questions appear when you specify \verb~\useRanTok[DB1]{1}~ +and \verb~\useRanTok[DB1]{2}~, first expand the command +\cs{uniqueXDBChoicesOn}, perhaps between parts or in the preamble. When +\cs{uniqueXDBChoicesOn} is expanded, \cs{useRanTok} tries to find an +``unused'' choice. +\begin{Verbatim}[xleftmargin=\parindent,commandchars=!()] +\uniqueXDBChoicesOn +\begin{document} +... +\begin{Part1} +\useRanTok[DB1]{1} +\useRanTok[DB1]{2} +\end{Part1} + +%\uniqueXDBChoicesOn + +\begin{Part2} +\useRanTok[DB1]{1} +\useRanTok[DB1]{2} +\end{Part2} +\end{Verbatim} +The command \cs{uniqueXDBChoicesOff} turns off the feature of striving to +find ``unused'' choices. Additional discussion on \cs{uniqueXDBChoicesOn} is +found in the next section; the command \cs{InputUsedIDs}, discussed in the +next section, is not needed when the \pkg{eqexam} document \emph{does not +have} multiple versions. You can experiment with striving to find unused +questions in the demo file \texttt{mc-db.tex}. + +\subsubsection{For documents with multiple versions} + +The scheme outlined in \hyperref[s:basicFunc]{Section~\ref*{s:basicFunc}} works well for an +\pkg{eqexam} document that only has one version in the source file. The way +\pkg{ran\_toks} works, it will not repeat random choices --- unless you +sample from a same DB file more times than there are problems in that file; +for example, suppose \texttt{db1.tex} has two questions in it, if you execute +\cs{useRanTok[DB1]\darg{1}}, \cs{useRanTok[DB1]\darg{2}}, and +\cs{useRanTok[DB1]\darg{3}}, then the problem selected by +\cs{useRanTok[DB1]\darg{3}} is the same as \cs{useRanTok[DB1]\darg{1}}. This +latter situation is not likely, is it? + +One of the very powerful features of \pkg{eqexam} is that a single source +file can have multiple versions in it. +\begin{Verbatim}[xleftmargin=\parindent,commandchars=!()] +\examNum{1} +\numVersions{4} +\forVersion{a} %!textsf( a, b, c, d) +\vA{\useThisSeed{54356}} +\vB{\useThisSeed{577867}} +\vC{\useThisSeed{6746788}} +\vD{\useThisSeed{856785}} +\end{Verbatim} +The above shows how to set up a multi-version \pkg{eqexam} document, see the +\pkg{eqexam} documentation for more details. Here, as in the demo file +\texttt{mc-dbu.tex}, we declare 4 versions (a, b, c, and d). +\cs{forVersion\darg{a}} declares the next compile is for version a (or A, +either one). List also is a method of passing an initial seed to the +pseudo-random number generator, for each version. (These can be arbitrarily +typed in, or obtained by the methods discussed in +\textbf{\nameref{para:ControlSeed}} on page~\pageref*{para:ControlSeed}.) + +\paragraph*{The problem.} For a multi-version \pkg{eqexam} document, where +each version samples from the same set of DB Test files, later versions of the exam +may have questions that are repeats of the ones posed in earlier versions of +the same source file. This may or may not be a problem if the different +versions are given to different classes at approximately the same time where +there is no opportunity for the details of the test to ``leak out'' from one +class to another. + +\paragraph*{The solution.} The solution to this problem requires the introduction of several +new commands. +\bVerb\takeMeasure{\string\uniqueXDBChoicesOn}% +\setlength\eflength{\bxSize}% +\begin{minipage}{\bxSize}\kern0pt\def\1{\rlap{\sffamily\hskip\eflength\%\textsf{ to view the IDs of problems used}}}\relax +\def\2{\rlap{\sffamily\hskip\eflength\%\textsf{ preamble only (required)}}}\relax +\def\3{\rlap{\sffamily\hskip\eflength\%\textsf{ there is also \cs{uniqueXDBChoicesOff} (the default)}}}\relax +\begin{Verbatim}[frame=single,commandchars=!()] +!3\uniqueXDBChoicesOn +!2\InputUsedIDs +!1%\viewIDstrue +\end{Verbatim} +\end{minipage}\eVerb The \cs{uniqueXDBChoicesOn} command +brings some special code into the \cs{useRanTok} command; this special code +tries to select problems that have not already been selected by earlier +versions of the source document. Key to this selection process is that the +special code needs to know which questions were earlier selected; that is the +role of the \cs{InputUsedIDs}. This latter command uses the value declared in +\cs{numVersions}, so it must appear \emph{after} the declaration of the +number of versions. + +When \cs{uniqueXDBChoicesOn} is expanded, as the source document is compiled, +an auxiliary file named \cs{jobname-ver\ameta{Ltr}.cut} is written. This +file keeps a record of the problem ID of the problems selected, believe it or +not. \cs{InputUsedIDs} inputs the appropriate CUT files: +\begingroup\tightsettings +\begin{itemize} +\item for version B, \cs{jobname-verA.cut} is input; +\item for version C, \cs{jobname-verA.cut}, \cs{jobname-verB.cut} are input; +\item for version D, \cs{jobname-verA.cut}, \cs{jobname-verB.cut}, \cs{jobname-verC.cut} are input; +\item and so on. +\end{itemize} +\endgroup\noindent +In this way, when you compile version \ameta{Ltr}, the document inputs all +the information it needs about previous versions to make in informed choice. + +\paragraph*{Workflow.} When compiling a multi-version \pkg{eqexam} document, do the following: +\begin{enumerate} + \item Build each version in \emph{alphabetical order}, that is, compile with \cs{forVersion\darg{a}}, + then \cs{forVersion\darg{b}}, and so on. + \item Rename PDF produced to reflect the version \ameta{Ltr}; eg, \verb~\jobname-verA.pdf~ or + \verb!\jobname-sec02.pdf!, or whatever.\footnote{The demo file \texttt{ctrl-build.tex} shows + how to build all versions and rename the final PDF files all from one controlling file.} +\end{enumerate} + +%\paragraph*{Final comments.} \cs{uniqueXDBChoicesOn} does several things, it causes \cs{useRanTok} +%to use some special code to ensure cross-version uniqueness of choices, but +%it also initiates writing of the choice history to the auxiliary CUT files +%\cs{jobname-ver\ameta{Ltr}.cut}. By placing \cs{uniqueXDBChoicesOff} in +%the body of the document (outside a group, perhaps) that turns off the +%execution of the special code as well and writing to the CUT files. I believe +%you can later in the document turn this back on with \cs{uniqueXDBChoicesOn}, +%though I have not done a lot of testing of this. + \newtopic\noindent Now, I simply must get back to my retirement. \dps diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/ctrl-build.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/ctrl-build.tex new file mode 100644 index 00000000000..c5401a303d9 --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/ctrl-build.tex @@ -0,0 +1,58 @@ +\documentclass{article} +\usepackage{shellesc} +\usepackage{fancyvrb} + +\newif\ifcompileit \compileittrue + +\begin{document} + +\noindent +This is a dummy file to help compile multiple versions of the same source file. +The commands are very simple, they can be improved in a variety of ways. + +\def\basename{mc-dbu-ctrld} % base name of target file +\def\altbasename{mc-dbu} % base name of output file +% define a simple \forVersion command, convert letter to upper case +\def\forVersion#1{\uppercase{\edef\selVersion{#1}}} + +% select the version letter (upper or lower case) +\forVersion{a} +% define a suffix that follows \altbasename, redefine as desired +\edef\altsuffix{% + \if\selVersion Asec01\else + \if\selVersion Bsec02\else + \if\selVersion Csec03\else + \if\selVersion Dsec04\fi\fi\fi\fi} + +\begin{VerbatimOut}[commandchars=!()]{build-info.tex} +\examNum{1} +\numVersions{4} +\forVersion{!selVersion} +\vA{\useThisSeed{54356}} +\vB{\useThisSeed{577867}} +\vC{\useThisSeed{6746788}} +\vD{\useThisSeed{856785}} +%\viewIDstrue % to view the IDs of problems used +\end{VerbatimOut} + +\medskip\noindent +Compiling the file \texttt{\basename.tex} for version~\selVersion\space(\altsuffix), and renaming the final +PDF produced to \texttt{\altbasename-\altsuffix.pdf} + + +\ifcompileit + +% compile using the PDF creator of your choice, copy and paste this next +% line to execute multiple compiles to bring labels, if any, up to date +\ShellEscape{pdflatex \basename} +%\ShellEscape{pdflatex \basename} +%\ShellEscape{pdflatex \basename} + +% copy the newly created file to a new file name +\ShellEscape{move \basename.pdf \altbasename-\altsuffix.pdf} +% delete build-info.tex +\ShellEscape{del build-info.tex} + +\fi + +\end{document} \ No newline at end of file diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/db1.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/db1.tex index 45a8b671246..f51bf5b74b9 100644 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/db1.tex +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/db1.tex @@ -1,7 +1,7 @@ % % First DB, uses ran_toks and eqexam % -\bRTVToks{DB1-} +\bRTVToks{DB1} \begin{rtVW} \begin{problem}[5] diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/db2.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/db2.tex index dc18b86faad..bb1cfb8e758 100644 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/db2.tex +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/db2.tex @@ -2,7 +2,7 @@ % Second DB, uses ran_toks and eqexam % -\bRTVToks{DB2-} +\bRTVToks{DB2} \begin{rtVW} \begin{problem}[5] @@ -62,4 +62,4 @@ DB2: Fourth: Which is correct? \eRTVToks -\endinput \ No newline at end of file +\endinput \ No newline at end of file diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/db3.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/db3.tex index 1948692f1f8..099eeb2c7b1 100644 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/db3.tex +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/db3.tex @@ -2,7 +2,7 @@ % Third DB, uses ran_toks and eqexam % -\bRTVToks{DB3-} +\bRTVToks{DB3} \begin{rtVW} \begin{problem}[5] @@ -62,4 +62,4 @@ DB3: Fourth: Which is correct? \eRTVToks -\endinput \ No newline at end of file +\endinput \ No newline at end of file diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/db4.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/db4.tex index 64b1d241ef3..b6b4556a6fc 100644 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/db4.tex +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/db4.tex @@ -2,7 +2,7 @@ % Fourth DB, uses ran_toks and eqexam % -\bRTVToks{DB4-} +\bRTVToks{DB4} \begin{rtVW} \begin{problem}[5] @@ -62,4 +62,4 @@ DB4: Fourth: Which is correct? \eRTVToks -\endinput \ No newline at end of file +\endinput \ No newline at end of file diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/mc-db.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/mc-db.tex index 1eb2ce548a5..549da16f2ce 100644 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/mc-db.tex +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/mc-db.tex @@ -1,7 +1,9 @@ -\documentclass{article} -\usepackage[allowrandomize,nosolutions, - forpaper,pointsonleft,noparttotals]{eqexam} -\usepackage{ran_toks} +\documentclass[a4paper]{article} +\usepackage[% + allowrandomize, + nosolutions, + forpaper,pointsonleft,noparttotals]{eqexam} +\usepackage[usedbapp]{ran_toks} \useLastAsSeed % To reproduce the same pseudo-random sequence, you need to supply a seed @@ -13,14 +15,21 @@ \subject[MC]{My Course} \date{Spring \the\year} \keywords{Test~\nExam, Section 001} - -\university + \university {% THE UNIVERSITY OF AKRON\\ Theoretical and Applied Mathematics } \email{dpstory@uakron.edu} + + +%\uniqueXDBChoicesOn +%\viewIDstrue % to view the IDs of problems used\university +%\doNotRandomizeChoices % eqexam 2021/01/20 +%\allowRandomizedChoices % eqexam 2021/01/20 + + % Input the DB files used in the demo file \useTheseDBs{db1,db2,db3,db4} @@ -38,38 +47,47 @@ This part demonstrates how to not only randomly pull problems (two from each of to randomize the order they are listed in the exam. \end{instructions} -\ranToks{myExam}{% - {\useRanTok[DB1-]{1}} - {\useRanTok[DB1-]{2}} - {\useRanTok[DB2-]{1}} - {\useRanTok[DB2-]{2}} - {\useRanTok[DB3-]{1}} - {\useRanTok[DB3-]{2}} - {\useRanTok[DB4-]{1}} - {\useRanTok[DB4-]{2}} +\ranToksOff + +\ranToks{myExam} +{% + {\useRanTok[DB1]{1}} + {\useRanTok[DB1]{2}} + {\useRanTok[DB2]{1}} + {\useRanTok[DB2]{2}} + {\useRanTok[DB3]{1}} + {\useRanTok[DB3]{2}} + {\useRanTok[DB4]{1}} + {\useRanTok[DB4]{2}} } \displayListRandomly{myExam} \end{exam} +\newpage + +%\uniqueXDBChoicesOff + \begin{exam}{Part2} \begin{instructions} -In this part, we take the same two problems from each of the four DB files, but do not randomize -the order of the questions. +In this part, when \verb~\uniqueXDBChoicesOff~ (the default) is +expanded, we take the same two problems from each of the four DB +files, but here, we do not randomize the order of the questions. However, +when \verb~\uniqueXDBChoicesOn~ is expanded in the preamble, +this set of eight questions are entirely different from the ones +of \textsf{Part1}. \end{instructions} -\useRanTok[DB1-]{1} -\useRanTok[DB1-]{2} -\useRanTok[DB2-]{1} -\useRanTok[DB2-]{2} -\useRanTok[DB3-]{1} -\useRanTok[DB3-]{2} -\useRanTok[DB4-]{1} -\useRanTok[DB4-]{2} +\useRanTok[DB1]{1} +\useRanTok[DB1]{2} +\useRanTok[DB2]{1} +\useRanTok[DB2]{2} +\useRanTok[DB3]{1} +\useRanTok[DB3]{2} +\useRanTok[DB4]{1} +\useRanTok[DB4]{2} \end{exam} \end{document} - - diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu-ctrld.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu-ctrld.tex new file mode 100644 index 00000000000..0f0b9b140a1 --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu-ctrld.tex @@ -0,0 +1,62 @@ +\documentclass{article} +\usepackage[allowrandomize,nosolutions, + forpaper,pointsonleft,noparttotals]{eqexam} +\usepackage[usedbapp]{ran_toks} + +%\rtdebugtrue + +% This file is not compiled directly, but by the file ctrl-build.tex, see that file for details +\input{build-info} + +\uniqueXDBChoicesOn +\InputUsedIDs + +\title[T\nExam]{Test \nExam} +\author{D. P. Story} +\subject[MC]{My Course} +\date{Spring \the\year} +\keywords{Test~\nExam, Section 001} +\altTitle{Section~% + \if\selVersion A01\else + \if\selVersion B02\else + \if\selVersion C03\else + 04\fi\fi\fi\space(Version~\selVersion)} + +\makeInfoAWarning + +\university +{% + THE UNIVERSITY OF AKRON\\ + Theoretical and Applied Mathematics +} +\email{dpstory@uakron.edu} + +% Input the DB files used in the demo file +\useTheseDBs{db1,db2,db3,db4} + +\begin{document} + +\maketitle + +\begin{exam}{Part1} + +\begin{instructions} +Solve each without error. Passing is 100\%. + +\medskip\noindent +This part demonstrates how to not only randomly pull problems (two from each of the DB files), but +to randomize the order they are listed in the exam. +\end{instructions} + +\ranToks{myExam} +{% + {\useRanTok[DB1]{1}} + {\useRanTok[DB2]{1}} + {\useRanTok[DB3]{1}} + {\useRanTok[DB4]{1}} +} +\displayListRandomly{myExam} + +\end{exam} + +\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu.tex new file mode 100644 index 00000000000..b0790c8bbaa --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/mc-dbu.tex @@ -0,0 +1,75 @@ +\documentclass{article} +\usepackage[allowrandomize,nosolutions, + forpaper,pointsonleft,noparttotals]{eqexam} +\usepackage[usedbapp]{ran_toks} + +%\rtdebugtrue + +%\useLastAsSeed +% To reproduce the same pseudo-random sequence, you need to supply a seed +%\useThisSeed{1125676795} + +\examNum{1} +\numVersions{4} +\forVersion{d} +\vA{\useThisSeed{54356}} +\vB{\useThisSeed{577867}} +\vC{\useThisSeed{6746788}} +\vD{\useThisSeed{856785}} + +\uniqueXDBChoicesOn +\InputUsedIDs +\viewIDstrue % to view the IDs of problems used + +\title[T\nExam]{Test \nExam} +\author{D. P. Story} +\subject[MC]{My Course} +\date{Spring \the\year} +\keywords{Test~\nExam, Section 001} +\altTitle{Section~% + \if\selVersion A01\else + \if\selVersion B02\else + \if\selVersion C03\else + 04\fi\fi\fi\space(Version~\selVersion)} + +%\makeInfoAWarning + +\university +{% + THE UNIVERSITY OF AKRON\\ + Theoretical and Applied Mathematics +} +\email{dpstory@uakron.edu} + +% Input the DB files used in the demo file +\useTheseDBs{db1,db2,db3,db4} + +\begin{document} + +\maketitle + +\begin{exam}{Part1} + +\begin{instructions} +Solve each without error. Passing is 100\%. + +\medskip\noindent +This part demonstrates how to not only randomly pull problems +(two from each of the DB files), but to randomize the order they +are listed in the exam. +\end{instructions} + +\ranToksOff % turn off randomization of the order + +\ranToks{myExam} +{% + {\useRanTok[DB1]{1}} + {\useRanTok[DB2]{1}} + {\useRanTok[DB3]{1}} + {\useRanTok[DB4]{1}} +} +\displayListRandomly{myExam} + +\end{exam} + +\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/ran-toks.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/ran-toks.tex new file mode 100644 index 00000000000..0408003d246 --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/ran-toks.tex @@ -0,0 +1,96 @@ +\documentclass{article} +\usepackage{ran_toks} +\usepackage{ifthen} + +\useThisSeed{606574325} % comment out this line, and uncomment next line to get ... +%\useLastAsSeed % a new pseudo-random sequence each time you compile. + +% Other useful switches +%\ranToksOn % the default +%\ranToksOff + +\parindent0pt \parskip6pt +\def\cs#1{\texttt{\char`\\#1}} + +\begin{document} +\begin{center}\bfseries + Test file for \textsf{ran\_toks} Package\\[3pt] + D. P. Story +\end{center} + +Test of the \verb!\ranToks! command. + +\ranToks{myPals}{% + {Jim}{Richard}{Don} + {Alex}{Tom}{J\"{u}rgen} +} +I have {\nToksFor{myPals}} pals, they are \useRanTok{1}, \useRanTok{2}, +\useRanTok{3}, \useRanTok{4}, {\useRanTok{5}} and \useRanTok{6}. (Listed +in the order of best friend to least best friend.) + +Test of the \verb!\bRTVToks!/\verb!\eRTVToks! pair of commands, which encloses +\texttt{rtVW} environments. + +\bRTVToks{myThoughts}% +\begin{rtVW} +\begin{minipage}[t]{.67\linewidth} +Roses are red and violets are blue, +I've forgotten the rest, have you too? +\end{minipage} +\end{rtVW} +\begin{rtVW} +\begin{minipage}[t]{.67\linewidth} +I gave up saying bad things like +\verb!$#%%%^*%^&#$@#! when I was just a teenager. +\end{minipage} +\end{rtVW} +\begin{rtVW} +\begin{minipage}[t]{.67\linewidth} +I am a good guy, pass it on! The code for this last sentence is, +\begin{verbatim} +%#$% I am a good guy, pass it on! ^&*&^* +\end{verbatim} +How did that other stuff get in there? +\end{minipage} +\end{rtVW} +\eRTVToks +\begin{enumerate} + \displayListRandomly[\item]{myThoughts} +\end{enumerate} + +Use \verb!\useRTName! command when another list separates the current +position from the list you want to use. Here we want to use the list named +\texttt{myPals}, but since that definition, a new list named +\texttt{myThoughts} was declared. + +\useRTName{myPals} +List of pals: \useRanTok{1}, \useRanTok{2}, \useRanTok{3}, +\useRanTok{4}, \useRanTok{5}, and \useRanTok{6}. + +For mixing lists. it might be easier to use the optional parameter: +{\useRanTok[myPals]{1}} and \useRanTok[myThoughts]{1} + +The \cs{rtTokByNum} can retrieve an item from the list in its declared order; +eg, from the \texttt{myPals} list, the first and last are +{\rtTokByNum[myPals]{1}} and \rtTokByNum[myPals]{\nToksFor{myPals}}. + +We demonstrate the command \cs{reorderRanToks} and the optional parameters of \cs{displayListRandomly}: +\begin{quote}\reorderRanToks{myPals}% +List of pals: \displayListRandomly[\ifnum\i=\last\space and \fi][\ifnum\i=\last.\else,\fi\space]{myPals} +\end{quote} +The reordering is global, so \displayListRandomly[\ifnum\i=\last\space and \fi][\ifnum\i=\last\else, \fi]{myPals} +are listed in the same order as above, and different from the original random order seen in the second paragraph +of this document. + +Without the Oxford comma: My pals are +\displayListRandomly[\ifnum\i=\last and \fi][\ifnum\i=\last.\else\ifnum\i=\lessone\relax\space\else, \fi\fi]{myPals} + +The following is the same logic but uses the syntax of the \textsf{ifthen} package: My pals are +\displayListRandomly[\ifthenelse{\i=\last}{and }{}][\ifthenelse{\i=\last}{.}{\ifthenelse{\i=\lessone}{\space}{, }}]{myPals} + +Test the \cs{copyRanToks} command: +\copyRanToks{myPals}{myPals1}\displayListRandomly[\ifthenelse{\i=\last}{and }{}][\ifthenelse{\i=\last}{.}{\ifthenelse{\i=\lessone}{\space}{, }}]{myPals1} +This does not change the order of the \texttt{myPals} list, which is still +\displayListRandomly[\ifnum\i=\last\space and \fi][\ifnum\i=\last.\else,\fi\space]{myPals} + +\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/ran_toks.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/ran_toks.tex deleted file mode 100644 index e10238aa5a7..00000000000 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/ran_toks.tex +++ /dev/null @@ -1,95 +0,0 @@ -\documentclass{article} -\usepackage{ran_toks} -\usepackage{ifthen} - -\useThisSeed{606574325} % comment out this line, and uncomment next line to get ... -%\useLastAsSeed % a new pseudo-random sequence each time you compile. - -% Other useful switches -%\ranToksOn % the default -%\ranToksOff - -\parindent0pt \parskip6pt -\def\cs#1{\texttt{\char`\\#1}} - -\begin{document} -\begin{center}\bfseries - Test file for \textsf{ran\_toks} Package\\[3pt] - D. P. Story -\end{center} - -Test of the \verb!\ranToks! command. - -\ranToks{myPals}{% - {Jim}{Richard}{Don} - {Alex}{Tom}{J\"{u}rgen} -} -I have {\nToksFor{myPals}} pals, they are \useRanTok{1}, \useRanTok{2}, -\useRanTok{3}, \useRanTok{4}, {\useRanTok{5}} and \useRanTok{6}. (Listed -in the order of best friend to least best friend.) - -Test of the \verb!\bRTVToks!/\verb!\eRTVToks! pair of commands, which encloses -\texttt{rtVW} environments. - -\bRTVToks{myThoughts}% -\begin{rtVW} -\begin{minipage}[t]{.67\linewidth} -Roses are red and violets are blue, -I've forgotten the rest, have you too? -\end{minipage} -\end{rtVW} -\begin{rtVW} -\begin{minipage}[t]{.67\linewidth} -I gave up saying bad things like -\verb!$#%%%^*%^&#$@#! when I was just a teenager. -\end{minipage} -\end{rtVW} -\begin{rtVW} -\begin{minipage}[t]{.67\linewidth} -I am a good guy, pass it on! The code for this last sentence is, -\begin{verbatim} -%#$% I am a good guy, pass it on! ^&*&^* -\end{verbatim} -How did that other stuff get in there? -\end{minipage} -\end{rtVW} -\eRTVToks -\begin{enumerate} - \displayListRandomly[\item]{myThoughts} -\end{enumerate} -Use \verb!\useRTName! command when another list separates the current -position from the list you want to use. Here we want to use the list named -\texttt{myPals}, but since that definition, a new list named -\texttt{myThoughts} was declared. - -\useRTName{myPals} -List of pals: \useRanTok{1}, \useRanTok{2}, \useRanTok{3}, -\useRanTok{4}, \useRanTok{5}, and \useRanTok{6}. - -For mixing lists. it might be easier to use the optional parameter: -{\useRanTok[myPals]{1}} and \useRanTok[myThoughts]{1} - -The \cs{rtTokByNum} can retrieve an item from the list in its declared order; -eg, from the \texttt{myPals} list, the first and last are -{\rtTokByNum[myPals]{1}} and \rtTokByNum[myPals]{\nToksFor{myPals}}. - -We demonstrate the command \cs{reorderRanToks} and the optional parameters of \cs{displayListRandomly}: -\begin{quote}\reorderRanToks{myPals}% -List of pals: \displayListRandomly[\ifnum\i=\last\space and \fi][\ifnum\i=\last.\else,\fi\space]{myPals} -\end{quote} -The reordering is global, so \displayListRandomly[\ifnum\i=\last\space and \fi][\ifnum\i=\last\else, \fi]{myPals} -are listed in the same order as above, and different from the original random order seen in the second paragraph -of this document. - -Without the Oxford comma: My pals are -\displayListRandomly[\ifnum\i=\last and \fi][\ifnum\i=\last.\else\ifnum\i=\lessone\relax\space\else, \fi\fi]{myPals} - -The following is the same logic but uses the syntax of the \textsf{ifthen} package: My pals are -\displayListRandomly[\ifthenelse{\i=\last}{and }{}][\ifthenelse{\i=\last}{.}{\ifthenelse{\i=\lessone}{\space}{, }}]{myPals} - -Test the \cs{copyRanToks} command: -\copyRanToks{myPals}{myPals1}\displayListRandomly[\ifthenelse{\i=\last}{and }{}][\ifthenelse{\i=\last}{.}{\ifthenelse{\i=\lessone}{\space}{, }}]{myPals1} -This does not change the order of the \texttt{myPals} list, which is still -\displayListRandomly[\ifnum\i=\last\space and \fi][\ifnum\i=\last.\else,\fi\space]{myPals} - -\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/random_tst.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/random_tst.tex deleted file mode 100644 index 1f64c79907c..00000000000 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/random_tst.tex +++ /dev/null @@ -1,103 +0,0 @@ -% -% This demo file shows how to randomize the questions of an exam created -% by the eqexam package. -% -\documentclass{article} -\usepackage[allowrandomize,nosolutions, - forpaper,pointsonleft,noparttotals]{eqexam} -\usepackage{ran_toks} - -\useLastAsSeed -%\useThisSeed{452836675} % fi,t,f,s - -\examNum{1} -\title[T\nExam]{Test \nExam} -\author{D. P. Story} -\subject[MC]{My Course} -\date{Spring \the\year} -\keywords{Test~\nExam, Section 001} - -\university -{% - THE UNIVERSITY OF AKRON\\ - Theoretical and Applied Mathematics -} -\email{dpstory@uakron.edu} - -\begin{document} -\maketitle - - -\begin{exam}{Exam\nExam} - -\begin{instructions} -Solve each problem without error. -\end{instructions} - -\bRTVToks{Exam\nExam} - -\begin{rtVW} -\begin{problem}[5] -First: Which is correct? -\begin{answers}{4} -\bChoices[nCols=2,random] - \Ans1 True\eAns - \Ans0 False\eAns - \Ans0 Maybe\eAns - \Ans0 Perhaps\eAns -\eChoices -\end{answers} -\end{problem} -\end{rtVW} - -\begin{rtVW} -\begin{problem}[5] -Second: Which is correct? -\begin{answers}{4} -\bChoices[nCols=2,random] - \Ans1 True\eAns - \Ans0 False\eAns - \Ans0 Maybe\eAns - \Ans0 Perhaps\eAns -\eChoices -\end{answers} -\end{problem} -\end{rtVW} - -\begin{rtVW} -\begin{problem}[5] -Third: Which is correct? -\begin{answers}{4} -\bChoices[nCols=2,random] - \Ans1 True\eAns - \Ans0 False\eAns - \Ans0 Maybe\eAns - \Ans0 Perhaps\eAns -\eChoices -\end{answers} -\end{problem} -\end{rtVW} - -\begin{rtVW} -\begin{problem}[5] -Fourth: Which is correct? -\begin{answers}{4} -\bChoices[nCols=2,random] - \Ans1 True\eAns - \Ans0 False\eAns - \Ans0 Maybe\eAns - \Ans0 Perhaps\eAns -\eChoices -\end{answers} -\end{problem} -\end{rtVW} - -\eRTVToks - -% Ok, now display this questions in a random order. -\displayListRandomly{Exam\nExam} - - -\end{exam} - -\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/random_tst_qz.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/random_tst_qz.tex deleted file mode 100644 index 3ca3c4043ef..00000000000 --- a/Master/texmf-dist/doc/latex/ran_toks/examples/random_tst_qz.tex +++ /dev/null @@ -1,115 +0,0 @@ -% -% This demo file shows how to randomize the choices of a quiz created -% by the exerquiz package, where the choices have verbatim text. -% -% The questions themselves are not randomized, but they can be, see random_tst.tex -% to see how to do this. -% -\documentclass{article} -\usepackage[designiv]{web} -\usepackage[allowrandomize,showgrayletters]{exerquiz} -\usepackage{ran_toks} - -% When using cross-referencing and \useLastAsSeed, the cross-references are never up to date. -% Once you randomize, read the auxiliary file (\jobname_rt.save), copy the first seed listed -% and paste in as the argument of \useThisSeed. Compile a few more times to bring cross-refereces -% up to date. -%\useLastAsSeed -\useThisSeed{1327548830} - -\rowsepDefault{3pt} - - -\begin{document} - -\begin{quiz*}{myRandomQuiz} - Riddle me this. -\begin{questions} - \item Try to guess the correct answer. - \begin{answers}{2} - \bChoices[random] - \Ans0 1 a choice\eAns - \Ans1\label{eq} 2 another choice\eAns - \Ans0 3 still another choice\eAns - \Ans0 4 another\eAns - \Ans0 5 incoming\eAns - \Ans0 6 more choices\eAns - \Ans0 7 another still\eAns - \Ans0 8 too many\eAns - \Ans0 9 choices\eAns - \Ans0 10 \input{mytext.verb}\eAns - \eFreeze - \Ans0 10 None of these\eAns - \eChoices - \end{answers} -\end{questions} -\end{quiz*}\quad\ScoreField\currQuiz\CorrButton\currQuiz - - -\newpage - -\bRTVToks{myChoices} -\begin{rtVW} -\verb!$ true $! -\end{rtVW} -\begin{rtVW} -\verb!~ false %! -\end{rtVW} -\begin{rtVW} -\verb!% maybe ^! -\end{rtVW} -\begin{rtVW} -\verb!$& perhaps #$! -\end{rtVW} -\eRTVToks - -\begin{quiz*}{myQuiz} -Solve each. -\begin{questions} - - \item Which is true? (Answer: \hyperref[rtAns3]{(\REF*{rtAns3})}) -\useRTName{myChoices} -\begin{manswers}*{1} -\bChoices[random=true,label=rtAns] - \Ans{1}\label{rtAns3}\rtTokByNum{1}\eAns - \Ans{0} Wow, \rtTokByNum{2}, this is great!\eAns - \Ans{0}\rtTokByNum{3}\eAns - \Ans{0}\rtTokByNum{4}\eAns -\eFreeze - \Ans{1} Hello mom!\eAns -\eChoices -\end{manswers} -\begin{solution} -The answer is \useSavedAlts{rtAns}, or to be more precise, -\useSavedAltsAns{rtAns}. \hyperref[rtAns3]{(\REF*{rtAns3})} -\end{solution} - - \item Which is true? (Ans: \hyperref[rtAns1]{(\REF*{rtAns1})}) -\useRTName{myChoices} -\begin{answers}*{3} - \bChoices[random,nCols=2] - \Ans{1}\label{rtAns1} \rtTokByNum{1}\eAns - \Ans{0} \rtTokByNum{2}\eAns - \Ans{0} \rtTokByNum{3}\eAns - \Ans{0} \rtTokByNum{4}\eAns - \eChoices -\end{answers} -\begin{solution} -The answer is \hyperref[rtAns1]{(\REF*{rtAns1})} found in the -\nameref{rtAns1} on page~\pageref{rtAns1}. -\end{solution} - - \item Which is true? -\useRTName{myChoices} -\begin{answers}{3} - \bChoices[random] - \Ans{1} \rtTokByNum{1}\eAns - \Ans{0} \rtTokByNum{2}\eAns - \Ans{0} \rtTokByNum{3}\eAns - \Ans{0} \rtTokByNum{4}\eAns - \eChoices -\end{answers} -\end{questions} -\end{quiz*} - -\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/rt-cb.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/rt-cb.tex new file mode 100644 index 00000000000..c8e20e4d171 --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/rt-cb.tex @@ -0,0 +1,36 @@ +\documentclass{article} +\usepackage{ran_toks} +\usepackage{collectbox} + +\useLastAsSeed + +\newbox\rtcollectbox + +\parindent0pt + + +\begin{document} + +In this file, a method of placing verbatim content in as a token argument of +\verb~\ranToks~ The key is to use the \textsf{collectbox} package, and collect +the verbatim content with \verb~\collectboxto~. + +\def\cbCont{\def\myVerb{\usebox{\rtcollectbox}}} +\collectboxto{\rtcollectbox}{\cbCont}{\verb!$x^2+1$!} + +%\ranToksOff +\ranToks{CB} +{% + {Don-1} + {Kira-2} + {Alex-3} + {Jim-4} + {Rick-5} + {\myVerb-6} +} + +\useRanTok{1}, \useRanTok{2}, \useRanTok{3}, \useRanTok{4}, \useRanTok{5}, +\useRanTok{6}%, \useRanTok{7} + + +\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-eqe.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-eqe.tex new file mode 100644 index 00000000000..5d4d6653962 --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-eqe.tex @@ -0,0 +1,102 @@ +% +% This demo file shows how to randomize the questions of an exam created +% by the eqexam package. +% +\documentclass{article} +\usepackage[allowrandomize,nosolutions, + forpaper,pointsonleft,noparttotals]{eqexam} +\usepackage{ran_toks} + +\useLastAsSeed +%\useThisSeed{452836675} +\examNum{1} +\title[T\nExam]{Test \nExam} +\author{D. P. Story} +\subject[MC]{My Course} +\date{Spring \the\year} +\keywords{Test~\nExam, Section 001} + +\university +{% + THE UNIVERSITY OF AKRON\\ + Theoretical and Applied Mathematics +} +\email{dpstory@uakron.edu} + +\begin{document} + +\maketitle + + +\begin{exam}{Exam\nExam} + +\begin{instructions} +Solve each problem without error. +\end{instructions} + +\bRTVToks{Exam\nExam} + +\begin{rtVW} +\begin{problem}[5] +First: Which is correct? +\begin{answers}{4} +\bChoices[nCols=2,random] + \Ans1 True\eAns + \Ans0 False\eAns + \Ans0 Maybe\eAns + \Ans0 Perhaps\eAns +\eChoices +\end{answers} +\end{problem} +\end{rtVW} + +\begin{rtVW} +\begin{problem}[5] +Second: Which is correct? +\begin{answers}{4} +\bChoices[nCols=2,random] + \Ans1 True\eAns + \Ans0 False\eAns + \Ans0 Maybe\eAns + \Ans0 Perhaps\eAns +\eChoices +\end{answers} +\end{problem} +\end{rtVW} + +\begin{rtVW} +\begin{problem}[5] +Third: Which is correct? +\begin{answers}{4} +\bChoices[nCols=2,random] + \Ans1 True\eAns + \Ans0 False\eAns + \Ans0 Maybe\eAns + \Ans0 Perhaps\eAns +\eChoices +\end{answers} +\end{problem} +\end{rtVW} + +\begin{rtVW} +\begin{problem}[5] +Fourth: Which is correct? +\begin{answers}{4} +\bChoices[nCols=2,random] + \Ans1 True\eAns + \Ans0 False\eAns + \Ans0 Maybe\eAns + \Ans0 Perhaps\eAns +\eChoices +\end{answers} +\end{problem} +\end{rtVW} + +\eRTVToks + +% Ok, now display this questions in a random order. +\displayListRandomly{Exam\nExam} + +\end{exam} + +\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-qz.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-qz.tex new file mode 100644 index 00000000000..07be7738833 --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/rt-tst-qz.tex @@ -0,0 +1,117 @@ +% +% This demo file shows how to randomize the choices of a quiz created +% by the exerquiz package, where the choices have verbatim text. +% +% The questions themselves are not randomized, but they can be, see random_tst.tex +% to see how to do this. +% +\documentclass{article} +\usepackage[designiv]{web} +\usepackage[allowrandomize,showgrayletters]{exerquiz} +\usepackage{ran-toks} % alt pkg name + +% \previewOn\pmpvOn + +% When using cross-referencing and \useLastAsSeed, the cross-references are never up to date. +% Once you randomize, read the auxiliary file (\jobname_rt.sav), copy the first seed listed +% and paste in as the argument of \useThisSeed. Compile a few more times to bring cross-references +% up to date. +%\useLastAsSeed +\useThisSeed{955908747} + +\rowsepDefault{3pt} + + +\begin{document} + +\begin{quiz*}{myRandomQuiz} + Riddle me this. +\begin{questions} + \item Try to guess the correct answer. + \begin{answers}{2} + \bChoices[random=true] + \Ans0 1 a choice\eAns + \Ans1\label{eq} 2 another choice\eAns + \Ans0 3 still another choice\eAns + \Ans0 4 another\eAns + \Ans0 5 incoming\eAns + \Ans0 6 more choices\eAns + \Ans0 7 another still\eAns + \Ans0 8 too many\eAns + \Ans0 9 choices\eAns + \Ans0 10 \input{mytext.verb}\eAns + \eFreeze + \Ans0 11 None of these\eAns + \eChoices + \end{answers} +\end{questions} +\end{quiz*}\quad\ScoreField\currQuiz\CorrButton\currQuiz + + +\newpage + +\bRTVToks{myChoices} +\begin{rtVW} +\verb!$ true $! +\end{rtVW} +\begin{rtVW} +\verb!~ false %! +\end{rtVW} +\begin{rtVW} +\verb!% maybe ^! +\end{rtVW} +\begin{rtVW} +\verb!$& perhaps #$! +\end{rtVW} +\eRTVToks + +\begin{quiz*}{myQuiz} +Solve each. +\begin{questions} + + \item Which is true? (Answer: \hyperref[rtAns3]{(\REF*{rtAns3})}) +\useRTName{myChoices} +\begin{manswers}*{1} +\bChoices[random=true,label=rtAns] + \Ans{1}\label{rtAns3} \rtTokByNum{1}\eAns + \Ans{0} Wow, \rtTokByNum{2}, this is great!\eAns + \Ans{0} \rtTokByNum{3}\eAns + \Ans{0} \rtTokByNum{4}\eAns +\eFreeze + \Ans{1} Hello mom!\eAns +\eChoices +\end{manswers} +\begin{solution} +The answer is \useSavedAlts{rtAns}, or to be more precise, +\useSavedAltsAns{rtAns}. \hyperref[rtAns3]{(\REF*{rtAns3})} +\end{solution} + + \item Which is true? (Ans: \hyperref[rtAns1]{(\REF*{rtAns1})}) +\useRTName{myChoices} +\begin{answers}*{3} + \bChoices[random,nCols=2] + \Ans{1}\label{rtAns1} \rtTokByNum{1}\eAns + \Ans{0} \rtTokByNum{2}\eAns + \Ans{0} \rtTokByNum{3}\eAns + \Ans{0} \rtTokByNum{4}\eAns + \eChoices +\end{answers} +\begin{solution} +The answer is \hyperref[rtAns1]{(\REF*{rtAns1})} found in the +\nameref{rtAns1} on page~\pageref{rtAns1}. +\end{solution} + + \item Which is true? +\useRTName{myChoices} +\begin{answers}{3} + \bChoices[random] + \Ans{1} \rtTokByNum{1}\eAns + \Ans{0} \rtTokByNum{2}\eAns + \Ans{0} \rtTokByNum{3}\eAns + \Ans{0} \rtTokByNum{4}\eAns + \eChoices +\end{answers} +\end{questions} +\end{quiz*}\quad\ScoreField\currQuiz\CorrButton\currQuiz + +\end{document} diff --git a/Master/texmf-dist/doc/latex/ran_toks/examples/viewDB.tex b/Master/texmf-dist/doc/latex/ran_toks/examples/viewDB.tex new file mode 100644 index 00000000000..be9c5623b5c --- /dev/null +++ b/Master/texmf-dist/doc/latex/ran_toks/examples/viewDB.tex @@ -0,0 +1,40 @@ +\documentclass[12pt]{article} +\usepackage[usedbapp]{ran_toks} + +\usepackage[%allowrandomize, + nosolutions,forcolorpaper,pointsonleft,noparttotals]{eqexam} + +\everymath{\displaystyle} + +\examNum{1} +\title[ViewDB]{View a DB Test File} +\author{D. P. Story} +\subject[MC]{Demo file} +\university +{% + THE UNIVERSITY OF AKRON\\ + Theoretical and Applied Mathematics +} +\email{dpstory@uakron.edu} + +\useProbDBs{db1,db2,db3,db4} +\viewIDstrue + +\begin{document} + + +\begin{exam}{View} + +%%%%%%%%%%%%%%%% +% Typeset a DB % +%%%%%%%%%%%%%%%% +% The problems are input in the order they appear in the DB, the alternatives +% are not randomized either. +\viewDB{DB1} % DB1, DB2, DB3, DB4 + + +\end{exam} +\end{document} + + + diff --git a/Master/texmf-dist/source/latex/ran_toks/ran_toks.dtx b/Master/texmf-dist/source/latex/ran_toks/ran_toks.dtx index 89aafdc826a..5549bbc01c6 100644 --- a/Master/texmf-dist/source/latex/ran_toks/ran_toks.dtx +++ b/Master/texmf-dist/source/latex/ran_toks/ran_toks.dtx @@ -4,7 +4,7 @@ %<*copyright> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% ran_toks package, %% -%% Copyright (C) 1999-2019 D. P. Story %% +%% Copyright (C) 1999-2021 D. P. Story %% %% dpstory@uakron.edu, dpstory@acrotex.net %% %% %% %% This program can redistributed and/or modified under %% @@ -16,10 +16,11 @@ % %\NeedsTeXFormat{LaTeX2e}[1997/12/01] %\ProvidesPackage{ran_toks} -% [2019/12/28 v1.2 Randomizing tokens (dps)] +% [2021/01/19 v1.3.1 Randomizing tokens (dps)] %<*driver> \documentclass{ltxdoc} \usepackage[colorlinks,hyperindex=false]{hyperref} +\usepackage{fancyvrb} %\def\texorpdfstring#1#2{#1} %\pdfstringdefDisableCommands{\let\\\textbackslash} \OnlyDescription % comment out for implementation details @@ -37,6 +38,9 @@ \def\meta#1{\textsl{\texttt{#1}}} \def\SUB#1{\ensuremath{{}_{\mbox{\scriptsize\ttfamily#1}}}} \def\cs#1{\texttt{\bslash#1}} +\makeatletter +\let\@latex@warning@no@line\@gobble +\makeatother \InputIfFileExists{aebdocfmt.def}{\PackageInfo{ran_toks}{Inputting aebdocfmt.def}} {\def\IndexOpt{\DescribeMacro}\def\IndexKey{\DescribeMacro}\let\setupFullwidth\relax \PackageInfo{ran_toks}{aebdocfmt.def cannot be found}} @@ -72,39 +76,42 @@ % \paragraph*{Description.} % This short package randomizes a list of tokens. The command, \cs{ranToks}, % takes one argument, which is a list of tokens: -%\begin{quote}\ttfamily -% \string\ranToks\darg{\ameta{name}}\\ -% \darg{\\\null -% \qquad\darg{\ameta{tok\SUB1}}\darg{\ameta{tok\SUB2}}...\darg{\ameta{tok\SUB{n}}}\\ -% } -%\end{quote} +%\begin{Verbatim}[xleftmargin=\parindent,fontsize=\small, +%commandchars={!()},codes={\catcode`\%=9}] +%\ranToks{!ameta(name)}{!% +%!quad{!ameta(tok!SUB1)}{!ameta(tok!SUB2)}...{!ameta(tok!SUB(n))} +%} +%\end{Verbatim} % The command defines a series of $n$ internal commands, one for each of the tokens. % The definitions are essentially randomized. The randomized tokens are accessed through -% the command \cs{useRanTok}. For example -%\begin{quote}\ttfamily -%\cs{useRanTok\darg{1}}, \cs{useRanTok\darg{2}},..., \cs{useRanTok\darg{n}} -%\end{quote} +% the command \cs{useRanTok}. For example, +%\begin{Verbatim}[xleftmargin=\parindent,fontsize=\small, +%commandchars={!()},codes={\catcode`\%=9}] +%\useRanTok{1}, \useRanTok{2},..., \useRanTok{n} +%\end{Verbatim} % gives a random listing of the $n$ tokens. These can be arranged on the page % as desired. % % There is a second construct, designed for more elaborate randomization. -%\begin{quote}\ttfamily -%\string\bRTVToks\darg{\ameta{name}}\\ -%\string\begin\darg{rtVW}\\ -%\null\qquad\ameta{some content}\\ -%\string\end\darg{rtVW}\\ -%...\\ -%...\\ -%\string\begin\darg{rtVW}\\ -%\null\qquad\ameta{some content}\\ -%\string\end\darg{rtVW}\\ -%\string\eRTVToks -%\end{quote} +%\begin{Verbatim}[xleftmargin=\parindent,fontsize=\small, +%commandchars={!()},codes={\catcode`\%=9}] +%\bRTVToks{!ameta(name)} +%\begin{rtVW} +%!quad!ameta(some content) +%\end{rtVW} +%... +%... +%\begin{rtVW} +%!quad!ameta(some content) +%\end{rtVW} +%\eRTVToks +%\end{Verbatim} % The contents of each of the \texttt{rtVW} environments are written to the computers hard drive, then input % back in random order, using \cs{useRanTok}, eg, -%\begin{quote}\ttfamily -%\cs{useRanTok\darg{1}}, \cs{useRanTok\darg{2}},..., \cs{useRanTok\darg{n}} -%\end{quote} +%\begin{Verbatim}[xleftmargin=\parindent,fontsize=\small, +%commandchars={!()},codes={\catcode`\%=9}] +%\useRanTok{1}, \useRanTok{2},..., \useRanTok{n} +%\end{Verbatim} % Other details are left to the readers' imagination. % % \paragraph{Requirements.} As of this writing, we require only the \texttt{verbatim} package @@ -158,11 +165,28 @@ \newif\ifrtdebug \rtdebugfalse \newif\ifwerandomize \werandomizetrue \newif\ifsaveseed\saveseedtrue +\newif\ifrt@InputUsedIDs\rt@InputUsedIDsfalse \newwrite\rt@Verb@write % \end{macrocode} +% Convenience commands. % \begin{macrocode} +\def\rtcsarg#1#2{\expandafter#1\csname#2\endcsname} \def\rt@nameedef#1{\expandafter\edef\csname #1\endcsname} % \end{macrocode} +% \leavevmode\IndexOpt{usedbapp}^^A +% The code to support a DB application has grown, so much so, it desirves +% a option so as to include the code only if needed. +% \changes{v1.3}{2021/01/14}{Added \string\opt{usedbapp} option} +% \begin{macrocode} +\DeclareOption{usedbapp}{\let\rtPkgInpt\rt@PkgInpt} +\def\rt@PkgInpt{\InputIfFileExists{rt-dbapp.def} + {\PackageInfo{ran_toks}{Inputting rt-dbapp.def}} + {\PackageInfo{ran_toks}{Cannot find rt-dbapp.def}} +} +\let\rtPkgInpt\relax +\AtEndOfPackage{\rtPkgInpt} +\ProcessOptions\relax +% \end{macrocode} % \begin{macrocode} % %<*altpkgname> @@ -272,7 +296,7 @@ \edef\rt@listInHold{\the\rt@listIn\noexpand\\{\the\rt@nCnt}}% \rt@listIn=\expandafter{\rt@listInHold}}} % \end{macrocode} -% \DescribeMacro{\rt@RandomizeList}\hskip-\marginparsep\thinspace|{|\ameta{n}|}| +% \DescribeMacro{\rt@RandomizeList}\hskip-\marginparsep\thinspace\texttt{\darg{\ameta{n}}} % is the command that gets the process of randomizing % the input list going. The argument is the number \ameta{n} of tokens. If % \cs{werandomize} is false, it just returns the input list; otherwise, it @@ -361,7 +385,7 @@ instead will use\MessageBreak \string\useRanTok{\rt@mod}, obtained from modular arithmetic.\MessageBreak - You might want to fix this} + You might want to fix this}% } \def\rt@badTokName#1{% \PackageWarningNoLine{ran_toks} @@ -414,14 +438,14 @@ % \cs{r@nVToks}. % \begin{macrocode} \newcommand{\eRTVToks}{\global - \rt@nameedef{\rt@BaseName Cnt}{\the\rt@nCnt}% - \expandafter\r@nVToks\expandafter{\rt@BaseName}} + \rt@nameedef{\rt@BaseName Cnt}{\the\rt@nCnt}\expandafter + \r@nVToks\expandafter{\rt@BaseName}} % \end{macrocode} % \end{macro} % \begin{environment}{rtVW} % \cs{rtVW} is a verbatim write environment. It saves its contents to the file -% \verb!\jobname_\rt@BaseName\the\rt@nCnt.cut!. The file is later input back into -% the source file in a random way. +% \verb!\jobname_\rt@BaseName-\the\rt@nCnt.cut!. The file is later input back into +% the source file in a random way. % J14 % \begin{macrocode} \def\reVerbEnd{\ifhmode\unskip\fi} % \end{macrocode} @@ -432,11 +456,21 @@ \def\rtVWHook#1{\def\@rgi{#1}\ifx\@rgi\@empty \let\RTVWHook\relax\else\def\RTVWHook{#1}\fi} \rtVWHook{} +\newwrite\wrtprobids +\newif\ifviewIDs\viewIDsfalse +\newif\ifxDBUnique\xDBUniquefalse +\def\wrtProbIds#1{\immediate\write\wrtprobids{\string + \rtcsarg\string\gdef{#1}{used}}} +\def\rtVWId#1{\ifviewIDs\noindent#1\fi + \ifxDBUnique\ifrt@InputUsedIDs\wrtProbIds{#1}\fi\fi +} \newenvironment{rtVW}{\global\advance\rt@nCnt\@ne \immediate\openout\rt@Verb@write - \jobname_\rt@BaseName\the\rt@nCnt.cut + \jobname_\rt@BaseName-\the\rt@nCnt.cut \let\verbatim@out\rt@Verb@write \rt@IWVO{\string\RTVWHook}% + \rt@IWVO{\string + \rtVWId{\rt@BaseName-\the\rt@nCnt}\string\relax}% \verbatimwrite }{% \endverbatimwrite @@ -454,11 +488,22 @@ \rt@listIn={}\rt@nCnt=0\relax\let\rt@listInHold\@empty \@whilenum\rt@nCnt<\rt@nMax\do{\advance\rt@nCnt\@ne \edef\rt@listInHold{% - \the\rt@listIn{\noexpand\rt@inputVerb{#1\the\rt@nCnt}}}% + \the\rt@listIn{\noexpand\rt@inputVerb{#1-\the\rt@nCnt}}}% J14 \rt@listIn=\expandafter{\rt@listInHold}}\ifrtdebug \typeout{\string\r@nVToks: \the\rt@listIn}\fi \expandafter\r@nToks\expandafter{\the\rt@listIn}} -\def\rt@inputVerb#1{\input{\jobname_#1.cut}} +% \end{macrocode} +% \DescribeMacro\rt@inputVerb\hskip-\marginparsep\texttt{\darg{\ameta{db-name}-\ameta{num}}} This +% is the command that inputs a DB Test problem, it inputs it from the file named +% \cs{jobname\_\darg{\ameta{db-name}-\ameta{num}}}. As we input, we make a record of the +% problem we input by expanding \cs{rt@recordAsUsed\darg{\ameta{db-name}-\ameta{num}}}, which +% itself expands to \cs{rtcsarg\string\gdef\darg{\ameta{db-name}-\ameta{num}}\darg{used}}. This is necessary when we are +% choosing more than one item from a given DB Test file; it must be recorded immediately so that later +% it cannot be used again, if possible. +% \begin{macrocode} +\def\rt@inputVerb#1{\rt@recordAsUsed{#1}\input{\jobname_#1.cut}} +%\def\rt@recordAsUsed#1{\ifxDBUnique\rtcsarg\gdef{#1}{used}\fi} +\def\rt@recordAsUsed#1{\rtcsarg\gdef{#1}{used}} % \end{macrocode} % \DescribeMacro{\r@ndToks} is main looping command for \cs{ranToks} % and \cs{eRTVToks} (through \cs{r@nVToks}). If the ending token \cs{rt@NIL} is detected, we @@ -524,16 +569,18 @@ % Use this command to copy \ameta{name1} to \ameta{name2}. This gives % a randomization of the same list, without affecting the original order of \ameta{name1}. % \begin{macrocode} -\newcommand\copyRanToks[2]{\begingroup\expandafter +\newcommand\copyRanToks[2]{\begingroup + \expandafter \ifx\csname nMax4#1\endcsname\relax % \end{macrocode} % Source list is not defined % \begin{macrocode} - \rt@badTokName{#1}% - \else\expandafter + \rt@badTokName{#1}% + \else % \end{macrocode} % Source list is defined % \begin{macrocode} + \expandafter \ifx\csname nMax4#2\endcsname\relax % \end{macrocode} % Destination list is not defined, which is good in this instance. This is @@ -545,14 +592,17 @@ \@whilenum\rt@nCnt>\z@\do{\global \rt@nameedef{rtTok\the\rt@nCnt#2}% {\noexpand\@nameuse{rtTok\the\rt@nCnt#1}}% - \advance\rt@nCnt\m@ne}% - \rt@performRanDefns{\@nameuse{nMax4#2}}\else + \advance\rt@nCnt\m@ne + }\rt@performRanDefns{\@nameuse{nMax4#2}}% + \else % \end{macrocode} % Destination list is defined already, warn the user. % \begin{macrocode} - \rt@warnTokName{#2}\fi + \rt@warnTokName{#2}% + \fi \fi -\endgroup} + \endgroup +} % \end{macrocode} % \end{macro} %\DescribeMacro{\rt@ssign}\hskip-\marginparsep\texttt{\darg{\ameta{name}}} makes the assignments that are expanded by \cs{useRanTok}. @@ -570,7 +620,8 @@ \newcommand{\nToksFor}[1]{\expandafter \ifx\csname nMax4#1\endcsname\relax \textbf{??}\rt@badTokName{#1}\else - \@nameuse{nMax4#1}\fi} + \@nameuse{nMax4#1}\fi +} % \end{macrocode} % \DescribeMacro{\rtTokByNum}\hskip-\marginparsep\texttt{[\ameta{name}]\darg{\ameta{num}}} is an internal macro, but it can be used publicly. % The argument of it is an integer, eg, \verb!\rtTokByNum{3}! is the third token, as listed in the order @@ -579,23 +630,66 @@ \newcommand{\rtTokByNum}[2][\rt@BaseName]{\expandafter \ifx\csname nMax4#1\endcsname\relax \textbf{??}\rt@badTokName{#1}\else - \@nameuse{rtTok#2#1}\expandafter\ignorespaces\fi} + \@nameuse{rtTok#2#1}\expandafter\ignorespaces + \fi +} % \end{macrocode} %\DescribeMacro{\useRanTok}\hskip-\marginparsep\texttt{[\ameta{name}]\darg{\ameta{num}}} % After \cs{ranToks} has been executed, the user has access to the % randomized tokens through \cs{useRanTok}. The argument \ameta{num} is an integer 1 through max. % \begin{macrocode} -\newcommand{\useRanTok}[2][\rt@BaseName]{\bgroup - \expandafter\ifx\csname nMax4#1\endcsname\relax - \rt@badTokName{#1}\else - \ifnum#2>\nToksFor{#1}\rt@modarith{#2}{\nToksFor{#1}}% % \end{macrocode} -% If index (\texttt{\#2}) is greater than array length, use modular arithmetic to resolve -% the issue, and send a warning to the user. -% \changes{v1.1}{2017/05/04}{Add modular arithmetic to resolve case where index is greater than length} +% We provide two commands to control the feature of try to select unique +% choices across multiple renditions of the same source file. +% \DescribeMacro\uniqueXDBChoicesOn\cs{uniqueXDBChoicesOn}, turns on this feature; +% the default is \DescribeMacro\uniqueXDBChoicesOff\cs{uniqueXDBChoicesOff} make +% no changes to how \cs{useRanTok} operates. One other command we define here is +% \DescribeMacro\makeInfoAWarning\cs{makeInfoAWarning}; this command applies only +% when \cs{uniqueXDBChoicesOn} is expanded. In the macro \cs{xdb@unique} which is +% expanded when \cs{uniqueXDBChoicesOn} is expanded first, there is one line that +% reports information to the log as \cs{PackageInfo}. By expanding \cs{makeInfoAWarning} +% we change \cs{PackageInfo} to \cs{PackageWarning}, which gives it greater +% visibility in the log and the log report. +% \changes{v1.3.1}{2021/01/19}{Added \string\cs{ifrt@recording}} +% \begin{macrocode} +\newcommand{\uniqueXDBChoicesOn}{\xDBUniquefalse + \PackageWarning{ran_toks} + {The \string\uniqueXDBChoicesOn\space requires the\MessageBreak + \texttt{usedbapp} option}} +\newcommand{\uniqueXDBChoicesOff}{\let\xdbunique\relax\xDBUniquefalse} +\let\xdbunique\relax +\newcommand{\makeInfoAWarning}{\def\pkgNotifType{\PackageWarning}} +\def\pkgNotifType{\PackageInfo} +\newif\ifrt@recording \rt@recordingtrue % dps +% \end{macrocode} +% Now for the definition of \cs{useRanTok}. % \begin{macrocode} - \rt@badIndex{#2}{#1}\@nameuse{rtRanTok\rt@mod#1}\else - \@nameuse{rtRanTok#2#1}\fi\fi\egroup} +\newcommand{\useRanTok}[2][\rt@BaseName]{\bgroup\expandafter + \ifx\csname nMax4#1\endcsname\relax + \rt@badTokName{#1}\global\let\rt@next\relax + \else + \ifnum#2>\@nameuse{nMax4#1}% + \rt@modarith{#2}{\@nameuse{nMax4#1}}% + \rt@badIndex{#2}{#1}\edef\Indx{\rt@mod}% + \else + \edef\Indx{#2}% + \fi + \xdef\rt@orig@Indx{\Indx}% +% \end{macrocode} +% If \cs{xdbunique} is \cs{relax}, \cs{useRanTok} executes as it did in the past +% (no change in behavior); otherwise, we expand \cs{xdb@unique} which attempts +% to avoid duplicate choices based on the DBs input by \cs{useProbDBs}. +% \begin{macrocode} + \ifx\xdbunique\relax + \ifrt@recording\rt@recordAsUsed{#1-\Indx}\fi + \xdef\rt@next{\noexpand\@nameuse{rtRanTok\Indx#1}}% + \else + \xdb@unique{#1}% + \fi + \fi + \egroup + \rt@next +} % \end{macrocode} % \DescribeMacro{\displayListRandomly}\hskip-\marginparsep\texttt{[\ameta{prior}][\ameta{post}]\darg{\ameta{name}}} % lists all items in the list as passed @@ -606,12 +700,14 @@ %\changes{v1.0e}{2016/02/06}{Added optional argument to \string\cs{displayListRandomly}} %\changes{v1.1}{2017/05/04}{Added second optional argument to \string\cs{displayListRandomly}} % \begin{macrocode} -\newcommand{\displayListRandomly}[1][]{\bgroup\def\rt@prior{#1}% - \displ@yListRandomly} -\newcommand{\displ@yListRandomly}[2][]{\rt@nCnt\z@ - \expandafter\ifx\csname nMax4#2\endcsname\relax +\newcommand{\displayListRandomly}[1][]{\bgroup + \def\rt@prior{#1}\displ@yListRandomly +} +\newcommand{\displ@yListRandomly}[2][]{\rt@nCnt\z@\expandafter + \ifx\csname nMax4#2\endcsname\relax \rt@rgi\space\textbf{??}\rt@badTokName{#2}#1% \else + \rt@recordingfalse % \end{macrocode} % Within the optional arguments, we define \DescribeMacro{\i}\cs{i}, % \DescribeMacro{\first}\cs{first}, \DescribeMacro{\last}\cs{last}, and @@ -620,28 +716,75 @@ % \cs{displayListRandomly}. % \begin{macrocode} \def\rt@post{#1}\useRTName{#2}\let\i\rt@nCnt - \def\first{1}\edef\last{\@nameuse{nMax4#2}}% - \@tempcnta\last \advance\@tempcnta\m@ne - \edef\lessone{\the\@tempcnta}% - \@whilenum\rt@nCnt<\last\advance\rt@nCnt\@ne - \do{\rt@prior\useRanTok{\the\rt@nCnt}\rt@post}% - \fi -\egroup} + \def\first{1}\edef\last{\@nameuse{nMax4#2}}\@tempcnta\last + \advance\@tempcnta\m@ne + \edef\lessone{\the\@tempcnta}\@whilenum\rt@nCnt<\last + \advance\rt@nCnt\@ne + \do{\rt@prior\useRanTok{\the\rt@nCnt}\rt@post + }\fi + \egroup +} +% +%<*dbapp> +% \end{macrocode} +% \section{A DB application} +% This (optional) section supports an application of \pkg{ran\_toks} to the \pkg{eqexam} package; though, +% conceptually, the commands of this section may be applied in other settings. In this application, +% the document author has a series of DB test files (TEX files), each file contains \cs{bRTVToks}/\allowbreak +% \cs{eRTVToks} constructs, which contain a series of \env{rtVW} environments of verbatim content. In this application, +% the verbatim content are \env{problem}/\env{problem*} environments of \pkg{eqexam}. +% +% The following verbatim listing is taken from the preamble of \texttt{mc-db.tex}, which illustrates the layout +% of how to apply the commands of this section. +%\begin{Verbatim}[xleftmargin=\parindent,fontsize=\small, +%commandchars={!()},codes={\catcode`\%=9}] +%\examNum{1} +%\numVersions{4} +%\forVersion{a} +%!%!textsf( initial seeds for each of the four versions of this document) +%\vA{\useThisSeed{54356}} +%\vB{\useThisSeed{577867}} +%\vC{\useThisSeed{6746788}} +%\vD{\useThisSeed{856785}} +% +%\uniqueXDBChoicesOn !%!textsf( Try to avoid duplicate questions in multi-version doc) +%\InputUsedIDs !%!textsf( Input history of previous versions to current version) +%\viewIDstrue !%!textsf( To view the IDs of problems used) +%... +%\useTheseDBs{db1,db2,db3,db4} +%\end{Verbatim} +% \changes{v1.3}{2021/01/14}{Added several commands and macro to continue to support +% a DB application.} +% If \cs{ifxDBUnique} is true and if \pkg{eqexam} is loaded, we +% open \cs{wrtprobids} which is used to write the problem IDs of the problems +% already chosen in earlier version of this source file. The name of this file +% is \cs{jobname-ver\string\selVersion.cut}; eg, \texttt{mc-db-verA.cut}, +% \texttt{mc-db-verB.cut}, etc. +% \begin{macrocode} +\def\rt@OpenProbIds{\@ifpackageloaded{eqexam} + {\immediate\openout\wrtprobids\jobname-ver\selVersion.cut}{}} +% \end{macrocode} +% We open the file \cs{jobname-ver\cs{selVersion}.cut} when \cs{InputUsedIDs} is +% expanded in the preamble. +% \begin{macrocode} +%\def\rt@ABD{\ifxDBUnique\expandafter\rt@OpenProbIds\fi} +\def\rt@ABD{\@ifundefined{eq@nVersions}{} + {\ifnum\eq@nVersions>\@ne\expandafter\rt@OpenProbIds\fi}} % \end{macrocode} -% \section{Commands that support a DB application} % We begin with some utility commands to help parse the argument of \cs{useProbDBs}. % \begin{macrocode} \def\rt@gettonil#1\@nil{\def\to@nilarg{#1}} \def\rt@ifspc{\ifx\@let@token\@sptoken \let\rt@next\rt@xifspc\else - \let\rt@next\rt@gettonil\fi\rt@next} + \let\rt@next\rt@gettonil\fi\rt@next +} \begingroup -\def\:{\rt@xifspc} -\expandafter\gdef\: {\futurelet\@let@token\rt@ifspc} +\def\:{\rt@xifspc}\expandafter +\gdef\: {\futurelet\@let@token\rt@ifspc} \endgroup \def\rt@strpspcs{\futurelet\@let@token\rt@ifspc} % \end{macrocode} -% \begin{macro}{\useTheseDBs}\hskip-\marginparsep\thinspace|{|\ameta{list}|}| +% \begin{macro}{\useTheseDBs}\hskip-\marginparsep\thinspace\texttt{\darg{\ameta{list}}} % Inputs any files included in the comma-delimited list. The base names need only be listed, % as the extension is assumed to be \texttt{.tex}. The command \cs{useProbDBs} can only be used % in the preamble. Refer to the demo file \texttt{mc\_db.tex} for an illustration of its intended use. @@ -662,10 +805,197 @@ \toks@=\expandafter{\rt@nextDB}% \edef\rt@DB@List{\the\toks\tw@\space\the\toks@}\fi }\expandafter\rt@DB@List\fi} +% \end{macrocode} +% \end{macro} +% \begin{macro}{\useProbDBs}\hskip-\marginparsep\thinspace\texttt{\darg{\ameta{list}}} Is an alias of +% \cs{useTheseDBs}. +% \begin{macrocode} \let\useProbDBs\useTheseDBs % \end{macrocode} % \end{macro} +% \begin{macro}{\viewDB}\hskip-\marginparsep\thinspace\texttt{\darg{\ameta{name}}} +% Typeset the entire contents of a DB Test file. The argument \ameta{name} is the name +% of the DB Test file (as in |\bRTVToks{DB1}|, here \texttt{DB1} is the \ameta{name}. +% The DB test files should be input using \cs{useProbDBs}. +% \begin{macrocode} +\def\viewDB#1{\useRTName{#1}\rt@nCnt\z@ + \edef\nSTOP{\@nameuse{nMax4\rt@BaseName}}% + \loop\advance\rt@nCnt\@ne + \rtTokByNum{\the\rt@nCnt}% + \ifnum\rt@nCnt<\nSTOP\repeat +} +% \end{macrocode} +% \end{macro} +% The macro \DescribeMacro\getR@nIndx\cs{getR@nIndx} executes with each +% entry of |\@nameuse{#1-List}|. +% For an index value of \cs{Indx}, the macro goes through the +% arguments to the \cs{Indx}'th argument and reads +% the value of the argument at that point. It +% returns the argument of the \cs{Indx}'th as \cs{ranIndx}; +% eg, if |\Indx=1|, then |\ranIndx=3|, for the above example. +% \begin{macrocode} +%% uses \@tempcnta and \Indx +\def\getR@nIndx#1{\def\argi{#1}% + \ifx\argi\rt@STOP + % no match, something is wrong + \edef\ranIndex{-1}\else + \advance\@tempcnta\@ne + \ifnum\Indx=\@tempcnta + \def\ranIndx{#1}\fi + \fi +} +% \end{macrocode} +% \DescribeMacro\xdb@unique\hskip-\marginparsep\texttt{\darg{\ameta{name}}} +% An add-on command to \cs{useRanTok}. The command attempts +% to create a unique choice of a problem over several versions of the same document. This may not +% be possible if there are not enough choices to satisfy the number of declared versions. +% +% The \cs{xdb@unique} seems to work when the \pkg{eqexam} document has multiple parts (more then one +% \env{exam} environments). The id files for the parts are all combined; ideally, for multiple part +% exams, the second part draws form a set of DB test files different from the first part, as long as there are +% enough problems to choose from. +% +% Note that, if there is not a unique choice for a question from the designated DB test file, +% \cs{xdb@unique} reverts to the original choice so there may be duplicates across versions of the document. +% \begin{macrocode} +\def\rt@NoAltChoice#1#2{\PackageWarning{ran_toks} + {Cannot find an alternative to #1-#2,\MessageBreak + will use it but it may be a duplicate\MessageBreak + question}} +\def\xdb@unique#1{\@tempcnta\z@ + \def\rt@STOP{\relax}% +% \end{macrocode} +%We use the randomized list for the \ameta{name} +%\begin{verbatim} +% \@nameuse{#1-List} is the randomized list: eg, +% \\{3}\\{2}\\{4}\\{5}\\{1} +%\end{verbatim} +% \begin{macrocode} + \let\\\relax\edef\x{\@nameuse{#1-List}}% + \toks@=\expandafter{\x}\let\\\getR@nIndx + \the\toks@\\\rt@STOP +% \end{macrocode} +% We take as the default choice the original choice +% \begin{macrocode} + \xdef\rt@next{\noexpand + \@nameuse{rtRanTok\rt@orig@Indx#1}}% +% \end{macrocode} +% Begin to look at the results of |\the\toks@\\\rt@STOP|, +% \begin{macrocode} + \ifnum\ranIndx>\m@ne +% \end{macrocode} +% If \cs{ranIndx} is -1, we use the original index. +% \begin{macrocode} + \edef\rt@orig@ranIndx{\ranIndx}% + \expandafter + \ifx\csname#1-\ranIndx\endcsname\relax +% \end{macrocode} +% This question has not been chosen earlier, so we'll use it. +% \begin{macrocode} + \xdef\rt@next{\noexpand + \@nameuse{rtRanTok\Indx#1}}% + \else +% \end{macrocode} +% The question has been chosen in an earlier version of the document. +% Find the next higher unused one (cycle search). +% \begin{macrocode} + \@tempcntb\z@ + \rt@nCnt\rt@orig@Indx\relax +% \end{macrocode} +% As we move into the \cs{@whilenum} loop, we take as the default +% the original index. The loop may overwrite the definition of +% \cs{rt@next}. +% \begin{macrocode} + \xdef\rt@next{\noexpand\rt@NoAltChoice{#1}{\rt@orig@Indx}\noexpand + \@nameuse{rtRanTok\rt@orig@Indx#1}}% + \@whilenum\@tempcntb<\@nameuse{nMax4#1}\do{% + \advance\@tempcntb\@ne + \advance\rt@nCnt\@ne +% \end{macrocode} +% If the count is at the \texttt{nMax4} value, we start over from +% the beginning. +% \begin{macrocode} + \ifnum\rt@nCnt>\@nameuse{nMax4#1}\rt@nCnt\@ne\fi +% \end{macrocode} +% We search through \cs{toks@} again, so we have the initialize +% the dependent variables: \cs{Indx}, the index to search for; \cs{@tempcnta} +% the counter that is used by \cs{getR@nIndx}; nothing has changed +% |\let\\\getR@nIndx| should still be in effect. % \begin{macrocode} + \edef\Indx{\the\rt@nCnt}\@tempcnta\z@ + \the\toks@\\\rt@STOP +% \end{macrocode} +% If \cs{ranIndx} is -1, we use the original index. +% \begin{macrocode} + \ifnum\ranIndx>\m@ne + \expandafter + \ifx\csname#1-\ranIndx\endcsname\relax + \pkgNotifType{ran_toks}{#1-\rt@orig@ranIndx\space + has already been used,\MessageBreak + will use #1-\ranIndx}% + % exit the \@whilenum loop + \@tempcntb\@nameuse{nMax4#1}% + \advance\@tempcntb\@ne + \fi + \fi + \xdef\rt@next{\noexpand\@nameuse{rtRanTok\Indx#1}}% + }% do + \ifnum\@tempcntb=\@nameuse{nMax4#1}\relax + \xdef\rt@next{\noexpand + \rt@NoAltChoice{#1}{\rt@orig@ranIndx}\noexpand + \@nameuse{rtRanTok\rt@orig@Indx#1}}% + \fi + \fi + \fi +} +% \end{macrocode} +% Here is the operational definition of \DescribeMacro\uniqueXDBChoicesOn +% \cs{uniqueXDBChoicesOn}; when executed in the preamble, an attempt is made +% the select only problems that have not already been chosen in any prior +% renditions of the same source file. +% \begin{macrocode} +\renewcommand{\uniqueXDBChoicesOn}{\xDBUniquetrue + \let\xdbunique\xdb@unique} +% \end{macrocode} +% \begin{macro}{\InputUsedIDs} Input the user ID (CUT) files. These are files +% that document which questions were used for the various versions of the exam. +% \begin{macrocode} +\newif\ifrt@InputUsedIDs\rt@InputUsedIDsfalse +\def\InputUsedIDs{\rt@InputUsedIDstrue + \bgroup + \setcounter{eq@count}{0}% + \let\rt@InputUsedIDs\@empty + \let\rt@InputUsedIDsFIs\@empty + \@whilenum \value{eq@count}<\eq@nVersions\relax\do + {% + \stepcounter{eq@count}% + \g@addto@macro\rt@InputUsedIDs{\if\selVersion}% + \g@addto@macro\rt@InputUsedIDsFIs{\fi}% + \edef\x{\Alph{eq@count}}% + \edef\y{\noexpand\g@addto@macro\noexpand + \rt@InputUsedIDs{\x\expandafter\noexpand + \csname else\endcsname\noexpand\rt@IIFE}}\y + \edef\x{{\x}}\expandafter + \g@addto@macro\expandafter\rt@InputUsedIDs\expandafter{\x}% + }% do + \expandafter\g@addto@macro\expandafter + \rt@InputUsedIDs\expandafter{\rt@InputUsedIDsFIs}% + \egroup + \rt@InputUsedIDs + \AtBeginDocument{\rt@ABD}% +} +\@onlypreamble\InputUsedIDs +% \end{macrocode} +% \end{macro} +% A convenience command used by \cs{InputUsedIDs}. +% \begin{macrocode} +\def\rt@IIFE#1{\InputIfFileExists{\jobname-ver#1.cut} + {\PackageInfo{ran_toks}{Inputting \jobname-ver#1.cut}} + {\PackageInfo{ran_toks}{Cannot find \jobname-ver#1.cut}}} +% \end{macrocode} +% \begin{macrocode} +% +%<*package> % % \end{macrocode} % \Finale diff --git a/Master/texmf-dist/source/latex/ran_toks/ran_toks.ins b/Master/texmf-dist/source/latex/ran_toks/ran_toks.ins index 4d2d77d191a..1d84cf5ce61 100644 --- a/Master/texmf-dist/source/latex/ran_toks/ran_toks.ins +++ b/Master/texmf-dist/source/latex/ran_toks/ran_toks.ins @@ -46,6 +46,7 @@ {% \file{ran_toks.sty}{\from{ran_toks.dtx}{copyright,package}} \file{ran-toks.sty}{\from{ran_toks.dtx}{copyright,altpkgname}} + \file{rt-dbapp.def}{\from{ran_toks.dtx}{copyright,dbapp}} } \Msg{***************************************************************} diff --git a/Master/texmf-dist/tex/latex/ran_toks/ran-toks.sty b/Master/texmf-dist/tex/latex/ran_toks/ran-toks.sty index 3d408de6222..73bc9bc9c2a 100644 --- a/Master/texmf-dist/tex/latex/ran_toks/ran-toks.sty +++ b/Master/texmf-dist/tex/latex/ran_toks/ran-toks.sty @@ -8,7 +8,7 @@ %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% ran_toks package, %% -%% Copyright (C) 1999-2019 D. P. Story %% +%% Copyright (C) 1999-2021 D. P. Story %% %% dpstory@uakron.edu, dpstory@acrotex.net %% %% %% %% This program can redistributed and/or modified under %% diff --git a/Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty b/Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty index aeb4e2772b5..ae2ae64747b 100644 --- a/Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty +++ b/Master/texmf-dist/tex/latex/ran_toks/ran_toks.sty @@ -8,7 +8,7 @@ %% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% ran_toks package, %% -%% Copyright (C) 1999-2019 D. P. Story %% +%% Copyright (C) 1999-2021 D. P. Story %% %% dpstory@uakron.edu, dpstory@acrotex.net %% %% %% %% This program can redistributed and/or modified under %% @@ -19,7 +19,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \NeedsTeXFormat{LaTeX2e}[1997/12/01] \ProvidesPackage{ran_toks} - [2019/12/28 v1.2 Randomizing tokens (dps)] + [2021/01/19 v1.3.1 Randomizing tokens (dps)] \RequirePackage{verbatim} \@ifundefined{nextrandom}{\input{random.tex}}{} \def\nextrandom{\begingroup @@ -52,8 +52,18 @@ \newif\ifrtdebug \rtdebugfalse \newif\ifwerandomize \werandomizetrue \newif\ifsaveseed\saveseedtrue +\newif\ifrt@InputUsedIDs\rt@InputUsedIDsfalse \newwrite\rt@Verb@write +\def\rtcsarg#1#2{\expandafter#1\csname#2\endcsname} \def\rt@nameedef#1{\expandafter\edef\csname #1\endcsname} +\DeclareOption{usedbapp}{\let\rtPkgInpt\rt@PkgInpt} +\def\rt@PkgInpt{\InputIfFileExists{rt-dbapp.def} + {\PackageInfo{ran_toks}{Inputting rt-dbapp.def}} + {\PackageInfo{ran_toks}{Cannot find rt-dbapp.def}} +} +\let\rtPkgInpt\relax +\AtEndOfPackage{\rtPkgInpt} +\ProcessOptions\relax \def\ranToksOn{\werandomizetrue} \def\ranToksOff{\werandomizefalse} \def\useThisSeed#1{\saveseedfalse\randomi=#1} @@ -155,7 +165,7 @@ instead will use\MessageBreak \string\useRanTok{\rt@mod}, obtained from modular arithmetic.\MessageBreak - You might want to fix this} + You might want to fix this}% } \def\rt@badTokName#1{% \PackageWarningNoLine{ran_toks} @@ -182,17 +192,27 @@ \let\rt@BaseName\@empty \newcommand{\bRTVToks}[1]{\rt@nCnt\z@\useRTName{#1}} \newcommand{\eRTVToks}{\global - \rt@nameedef{\rt@BaseName Cnt}{\the\rt@nCnt}% - \expandafter\r@nVToks\expandafter{\rt@BaseName}} + \rt@nameedef{\rt@BaseName Cnt}{\the\rt@nCnt}\expandafter + \r@nVToks\expandafter{\rt@BaseName}} \def\reVerbEnd{\ifhmode\unskip\fi} \def\rtVWHook#1{\def\@rgi{#1}\ifx\@rgi\@empty \let\RTVWHook\relax\else\def\RTVWHook{#1}\fi} \rtVWHook{} +\newwrite\wrtprobids +\newif\ifviewIDs\viewIDsfalse +\newif\ifxDBUnique\xDBUniquefalse +\def\wrtProbIds#1{\immediate\write\wrtprobids{\string + \rtcsarg\string\gdef{#1}{used}}} +\def\rtVWId#1{\ifviewIDs\noindent#1\fi + \ifxDBUnique\ifrt@InputUsedIDs\wrtProbIds{#1}\fi\fi +} \newenvironment{rtVW}{\global\advance\rt@nCnt\@ne \immediate\openout\rt@Verb@write - \jobname_\rt@BaseName\the\rt@nCnt.cut + \jobname_\rt@BaseName-\the\rt@nCnt.cut \let\verbatim@out\rt@Verb@write \rt@IWVO{\string\RTVWHook}% + \rt@IWVO{\string + \rtVWId{\rt@BaseName-\the\rt@nCnt}\string\relax}% \verbatimwrite }{% \endverbatimwrite @@ -205,11 +225,12 @@ \rt@listIn={}\rt@nCnt=0\relax\let\rt@listInHold\@empty \@whilenum\rt@nCnt<\rt@nMax\do{\advance\rt@nCnt\@ne \edef\rt@listInHold{% - \the\rt@listIn{\noexpand\rt@inputVerb{#1\the\rt@nCnt}}}% + \the\rt@listIn{\noexpand\rt@inputVerb{#1-\the\rt@nCnt}}}% J14 \rt@listIn=\expandafter{\rt@listInHold}}\ifrtdebug \typeout{\string\r@nVToks: \the\rt@listIn}\fi \expandafter\r@nToks\expandafter{\the\rt@listIn}} -\def\rt@inputVerb#1{\input{\jobname_#1.cut}} +\def\rt@inputVerb#1{\rt@recordAsUsed{#1}\input{\jobname_#1.cut}} +\def\rt@recordAsUsed#1{\rtcsarg\gdef{#1}{used}} \def\rt@PAR{\par} \long\def\r@ndToks#1{\def\rt@rgi{#1}% \ifx\rt@rgi\rt@PAR\def\rt@next{\r@ndToks}\else @@ -228,10 +249,12 @@ \rt@badTokName{#1}\else \rt@performRanDefns{\@nameuse{nMax4#1}}\fi \endgroup} -\newcommand\copyRanToks[2]{\begingroup\expandafter +\newcommand\copyRanToks[2]{\begingroup + \expandafter \ifx\csname nMax4#1\endcsname\relax - \rt@badTokName{#1}% - \else\expandafter + \rt@badTokName{#1}% + \else + \expandafter \ifx\csname nMax4#2\endcsname\relax \useRTName{#2}\global \rt@nameedef{nMax4#2}{\@nameuse{nMax4#1}}% @@ -239,68 +262,75 @@ \@whilenum\rt@nCnt>\z@\do{\global \rt@nameedef{rtTok\the\rt@nCnt#2}% {\noexpand\@nameuse{rtTok\the\rt@nCnt#1}}% - \advance\rt@nCnt\m@ne}% - \rt@performRanDefns{\@nameuse{nMax4#2}}\else - \rt@warnTokName{#2}\fi + \advance\rt@nCnt\m@ne + }\rt@performRanDefns{\@nameuse{nMax4#2}}% + \else + \rt@warnTokName{#2}% + \fi \fi -\endgroup} + \endgroup +} \def\rt@ssign#1{\advance\rt@nCnt\@ne\global \rt@nameedef{rtRanTok\the\rt@nCnt\rt@BaseName}{\noexpand \@nameuse{rtTok#1\rt@BaseName}}} \newcommand{\nToksFor}[1]{\expandafter \ifx\csname nMax4#1\endcsname\relax \textbf{??}\rt@badTokName{#1}\else - \@nameuse{nMax4#1}\fi} + \@nameuse{nMax4#1}\fi +} \newcommand{\rtTokByNum}[2][\rt@BaseName]{\expandafter \ifx\csname nMax4#1\endcsname\relax \textbf{??}\rt@badTokName{#1}\else - \@nameuse{rtTok#2#1}\expandafter\ignorespaces\fi} -\newcommand{\useRanTok}[2][\rt@BaseName]{\bgroup - \expandafter\ifx\csname nMax4#1\endcsname\relax - \rt@badTokName{#1}\else - \ifnum#2>\nToksFor{#1}\rt@modarith{#2}{\nToksFor{#1}}% - \rt@badIndex{#2}{#1}\@nameuse{rtRanTok\rt@mod#1}\else - \@nameuse{rtRanTok#2#1}\fi\fi\egroup} -\newcommand{\displayListRandomly}[1][]{\bgroup\def\rt@prior{#1}% - \displ@yListRandomly} -\newcommand{\displ@yListRandomly}[2][]{\rt@nCnt\z@ - \expandafter\ifx\csname nMax4#2\endcsname\relax + \@nameuse{rtTok#2#1}\expandafter\ignorespaces + \fi +} +\newcommand{\uniqueXDBChoicesOn}{\xDBUniquefalse + \PackageWarning{ran_toks} + {The \string\uniqueXDBChoicesOn\space requires the\MessageBreak + \texttt{usedbapp} option}} +\newcommand{\uniqueXDBChoicesOff}{\let\xdbunique\relax\xDBUniquefalse} +\let\xdbunique\relax +\newcommand{\makeInfoAWarning}{\def\pkgNotifType{\PackageWarning}} +\def\pkgNotifType{\PackageInfo} +\newif\ifrt@recording \rt@recordingtrue % dps +\newcommand{\useRanTok}[2][\rt@BaseName]{\bgroup\expandafter + \ifx\csname nMax4#1\endcsname\relax + \rt@badTokName{#1}\global\let\rt@next\relax + \else + \ifnum#2>\@nameuse{nMax4#1}% + \rt@modarith{#2}{\@nameuse{nMax4#1}}% + \rt@badIndex{#2}{#1}\edef\Indx{\rt@mod}% + \else + \edef\Indx{#2}% + \fi + \xdef\rt@orig@Indx{\Indx}% + \ifx\xdbunique\relax + \ifrt@recording\rt@recordAsUsed{#1-\Indx}\fi + \xdef\rt@next{\noexpand\@nameuse{rtRanTok\Indx#1}}% + \else + \xdb@unique{#1}% + \fi + \fi + \egroup + \rt@next +} +\newcommand{\displayListRandomly}[1][]{\bgroup + \def\rt@prior{#1}\displ@yListRandomly +} +\newcommand{\displ@yListRandomly}[2][]{\rt@nCnt\z@\expandafter + \ifx\csname nMax4#2\endcsname\relax \rt@rgi\space\textbf{??}\rt@badTokName{#2}#1% \else + \rt@recordingfalse \def\rt@post{#1}\useRTName{#2}\let\i\rt@nCnt - \def\first{1}\edef\last{\@nameuse{nMax4#2}}% - \@tempcnta\last \advance\@tempcnta\m@ne - \edef\lessone{\the\@tempcnta}% - \@whilenum\rt@nCnt<\last\advance\rt@nCnt\@ne - \do{\rt@prior\useRanTok{\the\rt@nCnt}\rt@post}% - \fi -\egroup} -\def\rt@gettonil#1\@nil{\def\to@nilarg{#1}} -\def\rt@ifspc{\ifx\@let@token\@sptoken - \let\rt@next\rt@xifspc\else - \let\rt@next\rt@gettonil\fi\rt@next} -\begingroup -\def\:{\rt@xifspc} -\expandafter\gdef\: {\futurelet\@let@token\rt@ifspc} -\endgroup -\def\rt@strpspcs{\futurelet\@let@token\rt@ifspc} -\def\ProbDBWarningMsg#1{\filename@parse{#1} - \PackageWarning{ran_toks} - {The file \filename@area\filename@base.\ifx\filename@ext\relax - tex\else\filename@ext\fi\space cannot be found}} -\def\useTheseDBs#1{\def\rt@dblist{#1}\ifx\rt@dblist\@empty\else - \let\rt@DB@List\@empty - \edef\temp@expand{\noexpand\@for\noexpand\@@tmp:=\rt@dblist}% - \temp@expand\do{\ifx\@@tmp\@empty\else - \expandafter\rt@strpspcs\@@tmp\@nil\edef\@@tmp{\to@nilarg}% - \edef\rt@nextDB{\noexpand - \InputIfFileExists{\@@tmp}{}{\noexpand - \ProbDBWarningMsg{\@@tmp}}}% - \toks\tw@=\expandafter{\rt@DB@List}% - \toks@=\expandafter{\rt@nextDB}% - \edef\rt@DB@List{\the\toks\tw@\space\the\toks@}\fi - }\expandafter\rt@DB@List\fi} -\let\useProbDBs\useTheseDBs + \def\first{1}\edef\last{\@nameuse{nMax4#2}}\@tempcnta\last + \advance\@tempcnta\m@ne + \edef\lessone{\the\@tempcnta}\@whilenum\rt@nCnt<\last + \advance\rt@nCnt\@ne + \do{\rt@prior\useRanTok{\the\rt@nCnt}\rt@post + }\fi + \egroup +} \endinput %% %% End of file `ran_toks.sty'. diff --git a/Master/texmf-dist/tex/latex/ran_toks/rt-dbapp.def b/Master/texmf-dist/tex/latex/ran_toks/rt-dbapp.def new file mode 100644 index 00000000000..ecbd1e6aaf4 --- /dev/null +++ b/Master/texmf-dist/tex/latex/ran_toks/rt-dbapp.def @@ -0,0 +1,148 @@ +%% +%% This is file `rt-dbapp.def', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% ran_toks.dtx (with options: `copyright,dbapp') +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% ran_toks package, %% +%% Copyright (C) 1999-2021 D. P. Story %% +%% dpstory@uakron.edu, dpstory@acrotex.net %% +%% %% +%% This program can 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 (at your option) any later version. %% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\rt@OpenProbIds{\@ifpackageloaded{eqexam} + {\immediate\openout\wrtprobids\jobname-ver\selVersion.cut}{}} +\def\rt@ABD{\@ifundefined{eq@nVersions}{} + {\ifnum\eq@nVersions>\@ne\expandafter\rt@OpenProbIds\fi}} +\def\rt@gettonil#1\@nil{\def\to@nilarg{#1}} +\def\rt@ifspc{\ifx\@let@token\@sptoken + \let\rt@next\rt@xifspc\else + \let\rt@next\rt@gettonil\fi\rt@next +} +\begingroup +\def\:{\rt@xifspc}\expandafter +\gdef\: {\futurelet\@let@token\rt@ifspc} +\endgroup +\def\rt@strpspcs{\futurelet\@let@token\rt@ifspc} +\def\ProbDBWarningMsg#1{\filename@parse{#1} + \PackageWarning{ran_toks} + {The file \filename@area\filename@base.\ifx\filename@ext\relax + tex\else\filename@ext\fi\space cannot be found}} +\def\useTheseDBs#1{\def\rt@dblist{#1}\ifx\rt@dblist\@empty\else + \let\rt@DB@List\@empty + \edef\temp@expand{\noexpand\@for\noexpand\@@tmp:=\rt@dblist}% + \temp@expand\do{\ifx\@@tmp\@empty\else + \expandafter\rt@strpspcs\@@tmp\@nil\edef\@@tmp{\to@nilarg}% + \edef\rt@nextDB{\noexpand + \InputIfFileExists{\@@tmp}{}{\noexpand + \ProbDBWarningMsg{\@@tmp}}}% + \toks\tw@=\expandafter{\rt@DB@List}% + \toks@=\expandafter{\rt@nextDB}% + \edef\rt@DB@List{\the\toks\tw@\space\the\toks@}\fi + }\expandafter\rt@DB@List\fi} +\let\useProbDBs\useTheseDBs +\def\viewDB#1{\useRTName{#1}\rt@nCnt\z@ + \edef\nSTOP{\@nameuse{nMax4\rt@BaseName}}% + \loop\advance\rt@nCnt\@ne + \rtTokByNum{\the\rt@nCnt}% + \ifnum\rt@nCnt<\nSTOP\repeat +} +%% uses \@tempcnta and \Indx +\def\getR@nIndx#1{\def\argi{#1}% + \ifx\argi\rt@STOP + % no match, something is wrong + \edef\ranIndex{-1}\else + \advance\@tempcnta\@ne + \ifnum\Indx=\@tempcnta + \def\ranIndx{#1}\fi + \fi +} +\def\rt@NoAltChoice#1#2{\PackageWarning{ran_toks} + {Cannot find an alternative to #1-#2,\MessageBreak + will use it but it may be a duplicate\MessageBreak + question}} +\def\xdb@unique#1{\@tempcnta\z@ + \def\rt@STOP{\relax}% + \let\\\relax\edef\x{\@nameuse{#1-List}}% + \toks@=\expandafter{\x}\let\\\getR@nIndx + \the\toks@\\\rt@STOP + \xdef\rt@next{\noexpand + \@nameuse{rtRanTok\rt@orig@Indx#1}}% + \ifnum\ranIndx>\m@ne + \edef\rt@orig@ranIndx{\ranIndx}% + \expandafter + \ifx\csname#1-\ranIndx\endcsname\relax + \xdef\rt@next{\noexpand + \@nameuse{rtRanTok\Indx#1}}% + \else + \@tempcntb\z@ + \rt@nCnt\rt@orig@Indx\relax + \xdef\rt@next{\noexpand\rt@NoAltChoice{#1}{\rt@orig@Indx}\noexpand + \@nameuse{rtRanTok\rt@orig@Indx#1}}% + \@whilenum\@tempcntb<\@nameuse{nMax4#1}\do{% + \advance\@tempcntb\@ne + \advance\rt@nCnt\@ne + \ifnum\rt@nCnt>\@nameuse{nMax4#1}\rt@nCnt\@ne\fi + \edef\Indx{\the\rt@nCnt}\@tempcnta\z@ + \the\toks@\\\rt@STOP + \ifnum\ranIndx>\m@ne + \expandafter + \ifx\csname#1-\ranIndx\endcsname\relax + \pkgNotifType{ran_toks}{#1-\rt@orig@ranIndx\space + has already been used,\MessageBreak + will use #1-\ranIndx}% + % exit the \@whilenum loop + \@tempcntb\@nameuse{nMax4#1}% + \advance\@tempcntb\@ne + \fi + \fi + \xdef\rt@next{\noexpand\@nameuse{rtRanTok\Indx#1}}% + }% do + \ifnum\@tempcntb=\@nameuse{nMax4#1}\relax + \xdef\rt@next{\noexpand + \rt@NoAltChoice{#1}{\rt@orig@ranIndx}\noexpand + \@nameuse{rtRanTok\rt@orig@Indx#1}}% + \fi + \fi + \fi +} +\renewcommand{\uniqueXDBChoicesOn}{\xDBUniquetrue + \let\xdbunique\xdb@unique} +\newif\ifrt@InputUsedIDs\rt@InputUsedIDsfalse +\def\InputUsedIDs{\rt@InputUsedIDstrue + \bgroup + \setcounter{eq@count}{0}% + \let\rt@InputUsedIDs\@empty + \let\rt@InputUsedIDsFIs\@empty + \@whilenum \value{eq@count}<\eq@nVersions\relax\do + {% + \stepcounter{eq@count}% + \g@addto@macro\rt@InputUsedIDs{\if\selVersion}% + \g@addto@macro\rt@InputUsedIDsFIs{\fi}% + \edef\x{\Alph{eq@count}}% + \edef\y{\noexpand\g@addto@macro\noexpand + \rt@InputUsedIDs{\x\expandafter\noexpand + \csname else\endcsname\noexpand\rt@IIFE}}\y + \edef\x{{\x}}\expandafter + \g@addto@macro\expandafter\rt@InputUsedIDs\expandafter{\x}% + }% do + \expandafter\g@addto@macro\expandafter + \rt@InputUsedIDs\expandafter{\rt@InputUsedIDsFIs}% + \egroup + \rt@InputUsedIDs + \AtBeginDocument{\rt@ABD}% +} +\@onlypreamble\InputUsedIDs +\def\rt@IIFE#1{\InputIfFileExists{\jobname-ver#1.cut} + {\PackageInfo{ran_toks}{Inputting \jobname-ver#1.cut}} + {\PackageInfo{ran_toks}{Cannot find \jobname-ver#1.cut}}} +\endinput +%% +%% End of file `rt-dbapp.def'. -- cgit v1.2.3