[Tex/LaTex] Apply a macro to every word

macros

In order to improve the \sameword feature of reledmac, I would like to find a way to automatically apply a command to every word. For example, in plain TeX,

\def\foo#1{#1 (#1)}
foo bar foo bar foo bar foo, foo? foo. foo;
\end

should be automatically transformed to

\def\foo#1{#1 (#1)}
\foo{foo} \foo{bar} \foo{foo} \foo{bar} \foo{foo} \foo{bar} \foo{foo}, \foo{foo}? \foo{foo}. \foo{foo};
\end

My constraints are:

excluding the punctuation mark
excluding some commands (for example foo\footnote{bar} should become \foo{foo}\footnote{bar} and not \foo{foo\footnote{bar}})
if possible, working with pdfTeX, XeTeX and LuaTeX, but a LuaTeX-only solution would be nice.
using any already existing LaTeX package (but a pure plainTeX is also accepted)

Best Answer

It would be so easy to break this, but..

\def\foo#1{#1 (#1)}
\def\xfoo#1 {%
\def\tmp{#1}%
\ifx\tmp\endfoo
\let\next\relax
\else
\ftnfoo#1\footnote\empty\empty\empty\relax
\let\next\xfoo
\fi
\next}
\def\ftnfoo#1\footnote#2#3#4\relax{%
\ifx\footnote#4\foo{#1}\footnote{#2}{#3} \else\afoo#1?\relax\fi}
\def\afoo#1?#2\relax{\ifx?#2\foo{#1}? \else\bfoo#1,\relax\fi}
\def\bfoo#1,#2\relax{\ifx,#2\foo{#1}, \else\cfoo#1;\relax\fi}
\def\cfoo#1;#2\relax{\ifx;#2\foo{#1}; \else\dfoo#1.\relax\fi}
\def\dfoo#1.#2\relax{\ifx.#2\foo{#1}. \else\foo{#1} \relax\fi}


\vsize=5\baselineskip

% assumes a space before the par
\def\yfoo#1\par{\xfoo#1!@ \par}

\def\endfoo{!@}

\yfoo
foo bar foo bar foo\footnote{$^1$}{bar} bar foo, foo? foo. foo;

\bye

Related Solutions

[Tex/LaTex] Make first word in macro bold

One could use the usual TeX/LaTeX programming to decide if the first word has something after it and then choose the right branch.

With LaTeX3 functions it's much easier:

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage{tgcursor} % clone of Courier

\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\cmd}{ m }
 {
  \krudolph_split_cmd:n { #1 }
 }
\cs_new_protected:Npn \krudolph_split_cmd:n #1
 {
  \seq_set_split:Nnn \l__krudolph_cmd_seq { ~ } { #1 }
  \seq_pop_left:NN \l__krudolph_cmd_seq \l__krudolph_cmd_tl
  \group_begin:
  \normalfont\ttfamily
  \textbf{ \l__krudolph_cmd_tl } ~
  \seq_use:Nnnn \l__krudolph_cmd_seq { ~ } { ~ } { ~ }
  \group_end:
 }
\seq_new:N \l__krudolph_cmd_seq
\tl_new:N \l__krudolph_cmd_tl 
\ExplSyntaxOff

% missing definitions
\newcommand{\opt}[1]{-#1}
\newcommand{\marg}[1]{<#1>}


\begin{document}
\cmd{cp \opt{r} \marg{from} \marg{to}}

\cmd{pwd}
\end{document}

The argument is split at spaces; then the first element is detached for being printed in boldface; the rest is printed in medium weight, separated by spaces.

enter image description here

[Tex/LaTex] Macro: Replace all occurrences of a word

Here's a LuaTeX-based solution. It (i) defines a Lua function that changes all instances of "var" (note the spaces before and after "var") to "\src{var}" and (ii) registers this function with the process_input_buffer callback. This callback operates on the entire input stream before TeX processes it. Separately, I define a TeX macro called \src so that TeX knows what to do when it encounters the instruction \src{var}.

With this setup, words such as "aardvark", "bivariate", and "covariance" are left alone. In the second input line below, the first and last instances of "var" are also left unchanged since they're not preceded and followed by a space. Finally, should there already be instances of \src{var} in your input file, they won't be operated on by the Lua function either -- they'll just get executed by TeX as one would expect.

Observe that nothing is written back to the .tex input file, i.e., your input file won't get littered with lots of \src statements.

By the way, I assume that the real string that's supposed to be operated on by \src in your file is a bit more unique than var. If so, you can probably dispense with the requirement that the string be both preceded and followed by a space.

enter image description here

% !TEX TS-program = lualatex
\documentclass{article}
\usepackage{fontspec,xcolor}
\usepackage{luacode,luatexbase} 

\begin{luacode}
local function vartosrcvar ( line )
  return string.gsub(line, " var " , " \\src{var} ") 
end
luatexbase.add_to_callback( "process_input_buffer",  vartosrcvar, "var_to_srcvar")
\end{luacode}

\newcommand\src[1]{\textcolor{red}{#1}} % define "\src" to suit your needs

\begin{document}
aardvark bivariate covariance varnish

var uno var due var tre var
\end{document}

Best Answer

Related Solutions

[Tex/LaTex] Make first word in macro bold

[Tex/LaTex] Macro: Replace all occurrences of a word

Related Question