在LSTNewenvrientment之前添加新产品线

Question

我正在使用lstNewenvironment listings 软件包来创建新的代码块。 使用手册中的示例：

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{listings}

\lstnewenvironment{pascal}
    {\hfill pascal \lstset{language=pascal}}
    {}

\begin{document}
some text before code block 
\begin{pascal}
  for i := maxint to 0 do
  begin 
    { do nothing}
  end;
\end{pascal}
\end{document}

这会生成pascal代码块，例如： 在此处输入映像

现在我想在代码行上方添加一些文本为'tag'（在该行的末尾）类似：

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{listings}

\lstnewenvironment{pascal}
    {\hfill{\tiny pascal} \lstset{language=pascal}}
    {}

这生成： 在此处输入图像描述

标签文本在同一行中与先前的文本，所以我添加<<<代码> \\ 在标签之前：

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{listings}

\lstnewenvironment{pascal}
    { \\ \hfill{\tiny pascal} \lstset{language=pascal}}
    {}

并尝试过

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{listings}

\lstnewenvironment{pascal}
    { \\ \hspace{\textwidth}{\tiny pascal} \lstset{language=pascal}}
    {}

，但是hfill和\ hspace {\ textWidth}不起作用，该标签出现在以上行的开始： 在此处输入图像说明

我唯一可以做的方法是在代码块之间手动添加空白行和先前的文字：

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{listings}

\lstnewenvironment{pascal}
    { \hfill{\tiny pascal} \lstset{language=pascal}}
    {}

\begin{document}
some text before code block 

\begin{pascal}
  for i := maxint to 0 do
  begin 
    { do nothing}
  end;
\end{pascal}
\end{document}

输出： 在此处输入图像说明

我的问题是如何修改\ lstnewenvorment 设置，以便它可以在代码块和上一个文本之间自动添加新的界限，并在该新行的末尾使用标签？

Answer 1

参见 https://tex.stac.stackexchange.com/a/625934/36296

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{listings}

\lstnewenvironment{pascal}
    {  
      \endgraf  {\hfill \tiny  pascal} \lstset{language=pascal}}
    {}

\begin{document}
some text before code block 
\begin{pascal}
  for i := maxint to 0 do
  begin 
    { do nothing}
  end;
\end{pascal}

some text before code block 

\begin{pascal}
  for i := maxint to 0 do
  begin 
    { do nothing}
  end;
\end{pascal}

\end{document}