[I just realized that the code for macrocode* lacks \relax, so let's fix this:]
Post by Peter FlynnI have managed to create a MWE for this.
[...]
Post by Peter FlynnCut that out into test.dtx and run through XeLaTeX.
Does the following code do what you want?
Sincerely
Ulrich
% \iffalse meta-comment
% A test
% \fi
% \iffalse
%<package>\NeedsTeXFormat{LaTeX2e}[2015/01/01]
%<package>\ProvidesPackage{test}[2023/12/30 v1.26
%<package> Test]
%<*driver>
\PassOptionsToPackage{svgnames}{xcolor}
\documentclass[11pt]{ltxdoc}
\makeatletter
%=======================================================================
% \MyReplicate{<amount>}{<tokens>}
% After triggering two expansion-steps <tokens> are appended to the
% token stream <amount> times.
% E.g., \MyReplicate{10}{X} yields XXXXXXXXXX
%-----------------------------------------------------------------------
% Define a TeX-number-quantity of non-positive value
\@ifdefinable\MyStopromannumeral{\chardef\MyStopromannumeral=`\^^00}%
%-----------------------------------------------------------------------
% Define Paraphernalia:
\newcommand\Myfot[2]{#1}%
\newcommand\Mysot[2]{#2}%
\newcommand\Myexchg[2]{#2#1}%
%-----------------------------------------------------------------------
% Define the loop:
\newcommand\MyReplicate[2]{%
% #1 amount of replications
% #2 tokens to replicate
\romannumeral\expandafter\Myexchg
\expandafter{\romannumeral\number\number#1 000\relax}%
{\MyReplicateloop{#2}{}}%
}%
\newcommand\MyReplicateloop[3]{%
% #1 tokens to replicate
% #2 replications gathered so far
% #3 lowercase letter m or \relax
\ifx#3\relax\expandafter\Mysot\else\expandafter\Myfot\fi
{\MyReplicateloop{#1}{#2#1}}%
{\MyStopromannumeral#2}%
}%
%=======================================================================
% \NeutralizeOneUnstarredEndMacrocode replaces the delimiter
% % \end{macrocode} by the same but with m of catcode 11 replaced
% by m of catcode 12.
%-----------------------------------------------------------------------
% \NeutralizeOneStarredEndMacrocode replaces the delimiter
% % \end{macrocode*} by the same but with m of catcode 11 replaced
% by m of catcode 12.
%-----------------------------------------------------------------------
\begingroup
\catcode`\|=0
\catcode`\[=1
\catcode`\]=2
\catcode`\{=12
\catcode`\}=12
\catcode`\%=12
\catcode`\Y=14
\catcode`\\=\active
|def|NeutralizerDefiner#1#2#3#4[Y
|gdef#1##1%#2#2#2#2\end{macrocode#4}[##1%#2#2#2#2\end{#3acrocode#4}]Y
]Y
|catcode`|m =12|relaxY
|catcode`| =|activeY
|@ifdefinable|NeutralizeOneUnstarredEndMacrocode[Y
|NeutralizerDefiner[|NeutralizeOneUnstarredEndMacrocode][ ][m][]Y
]Y
|catcode`| =12|relaxY
|@ifdefinable|NeutralizeOneStarredEndMacrocode[Y
|NeutralizerDefiner[|NeutralizeOneStarredEndMacrocode][ ][m][*]Y
]Y
|endgroup
%=======================================================================
% \NeutralizeInstancesOfUnstarredEndMacrocode{<amount>} replaces
% <amount> instances of the delimiter % \end{macrocode} by the same
% but with m of catcode 11 replaced by m of catcode 12.
%-----------------------------------------------------------------------
% \NeutralizeInstancesOfStarredEndMacrocode{<amount>} replaces
% <amount> instances of the delimiter % \end{macrocode*} by the same
% but with m of catcode 11 replaced by m of catcode 12.
%-----------------------------------------------------------------------
\newcommand\NeutralizeInstancesOfUnstarredEndMacrocode[1]{%
\MyReplicate{#1}{\NeutralizeOneUnstarredEndMacrocode}%
}%
\newcommand\NeutralizeInstancesOfStarredEndMacrocode[1]{%
\MyReplicate{#1}{\NeutralizeOneStarredEndMacrocode}%
}%
%=======================================================================
% Patch the environments macrocode and macrocode* of the package doc
% so that by redefining the macro \SkipMacrocodeEndings accordingly
% you can have these environments ignore as many instances of the
% ending phrase of the environment in question as denoted by
% \SkipMacrocodeEndings while scanning for the end of that environment.
\def\SkipMacrocodeEndings{0}%
\@namedef{macrocode*}{%
\***@code
\NeutralizeInstancesOfStarredEndMacrocode\SkipMacrocodeEndings
\***@code
}%
\def\macrocode{%
\***@code
\frenchspacing\@vobeyspaces
\NeutralizeInstancesOfUnstarredEndMacrocode\SkipMacrocodeEndings
\***@code
}%
\makeatother
\usepackage{dox}%
\usepackage{fontspec}%
\usepackage{xcolor}%
\usepackage{hypdoc}%
\hypersetup{linkcolor=DarkGreen,citecolor=DarkRed,
urlcolor=Blue,colorlinks=true}
\usepackage{hyperref}%
\hypersetup{linkcolor=DarkGreen,citecolor=DarkRed,
urlcolor=Blue,colorlinks=true}
\hypersetup{pdfauthor={Peter Flynn},
pdftitle={The test LaTeX2e document package},
pdfsubject={Testing123},
pdfkeywords={latex,typesetting},
pdfproducer={XeLateX with hyperref},
pdfcreator={Emacs with psgml, ClassPack with Saxon, LaTeX from TeX Live}}
\EnableCrossrefs
\CodelineIndex
\RecordChanges
\begin{document}\raggedright
\DocInput{test.dtx}
\end{document}
%</driver>
% \fi
%
% \CheckSum{8}
%
% \CharacterTable
% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
% Digits \0\1\2\3\4\5\6\7\8\9
% Exclamation \! Double quote \" Hash (number) \#
% Dollar \$ Percent \% Ampersand \&
% Acute accent \' Left paren \( Right paren \)
% Asterisk \* Plus \+ Comma \,
% Minus \- Point \. Solidus \/
% Colon \: Semicolon \; Less than \<
% Equals \= Greater than \> Question mark \?
% Commercial at \@ Left bracket \[ Backslash \\
% Right bracket \] Circumflex \^ Underscore \_
% Grave accent \` Left brace \{ Vertical bar \|
% Right brace \} Tilde \~}
%
% \GetFileInfo{test.dtx}
% \def\fileversion{1.26}
% \def\filedate{2023/12/30}
% \title{The \textsf{test} \LaTeXe\ package\thanks{%
% This document corresponds to \textsf{test}
% \textit{v.}\ \fileversion , dated \filedate.}
% \\[1em]\Large
% Testing dox/doc
% \\[1ex]\large
% on XSLT generating DTX}
% \author{Peter Flynn}
% \maketitle
% \renewcommand{\abstractname}{Summary}\thispagestyle{empty}
% \begin{abstract}
% Test
% \end{abstract}
% \clearpage
% \tableofcontents
% \clearpage
% \section{Test}
% Test
% \clearpage
% \StopEventually{\label{endcode}%
% \clearpage
% \addcontentsline{toc}{section}{Change History}%
% \label{changehistory}%
% \PrintChanges
% \clearpage
% \label{codeindex}%
% \addcontentsline{toc}{section}{Index}%
% \PrintIndex}
% \iffalse
%<*package>
% \fi
% \clearpage
% \section{The \textsf{test} macros}
% \iffalse
%</package>
% \fi
% \iffalse
%<*testscript>
% \fi
% \clearpage
% \section{The \emph{test.xsl} script}
% \setcounter{CodelineNo}{0}
% Now look: this normal usage works fine
% Identify the file origin, date, time, etc.\par
% \begin{macrocode}
<!-- The test.xsl script 24-02-04T21:01:06 -->
% \end{macrocode}
% Here we show the XSLT to handle a DocBook <sect1>
% IMPORTANT: it is supposed to generate the DTX code as-is
% between <xsl:text> and </xsl:text>
% \begingroup ^^A-----------------------------------------------
% \def\SkipMacrocodeEndings{1}%
% \begin{macrocode}
<xsl:template match="db:sect1">
<!-- process sect1 content -->
<xsl:apply-templates/>
<xsl:if test="@xml:id='options'">
<xsl:text>% Now invoke the options.\par
% \iffalse
%% Now invoke the options.
% \fi
% \begin{macrocode}
\ExecuteOptions{</xsl:text>
<xsl:value-of
select="descendant::db:annotation/@xreflabel"/>
<xsl:text>}
\ProcessOptions\relax
% \end{macrocode}
</xsl:text>
</xsl:if>
<xsl:call-template name="checkpackages">
<xsl:with-param name="pos" select="'after'"/>
<xsl:with-param name="loc" select="."/>
</xsl:call-template>
</xsl:if>
</xsl:template>
% \end{macrocode}
% \endgroup ^^A-------------------------------------------------
% That's all, folks!
% \iffalse
%</db2dtxscript>
% \fi
% \Finale
