☰

我怎样才能像这样突出显示交互式 GAP 会话？

tag-icon • tag-icon listings highlighting
我怎样才能像这样突出显示交互式 GAP 会话？

假设我想用某种编程语言排版屏幕会话（我的情况是 GAP，但也可以是 Python、BASH 或其他具有交互式读取提示的语言）。因此，在我的屏幕上，我可能会看到类似以下内容：

gap> for i in [1..10] do
>   Print(i, ":");
> od;
1:2:3:4:5:6:7:8:9:10:
gap> 2^10;
1024
gap> 1/0;
Error, Rational operations: <divisor> must not be zero
not in any function at line 5 of *stdin*
you can replace <divisor> via 'return <divisor>;'
brk> 2^10;
1024
brk>

也就是说，有一个命令提示符gap>，之后用户输入多行输入。之后是一行输出，然后是另一个提示符gap>。这种情况重复发生，直到命令触发错误，此时提示符变为brk>。

我想使用listings包裹（或其他东西）

  1. 为提示 、 和 涂上颜色gap>；>比如说brk>蓝色和红色；
  2. for突出显示诸如、、do和之类的关键字od；例如，通过加粗来突出显示；
  3. 但仅有的突出显示以提示开头的行中的关键字，因此不在我的命令的输出中。

最后一点让我很头疼。我没找到办法。当诸如and、not和in之类的词在错误消息中被突出显示为关键字时，结果通常非常糟糕。

以前也曾有人问过类似的问题，但是在我设法找到的问题中，没有一个是专门问这个问题的，也没有得到我想要的答案。

为了记录，这是我现在使用的语言定义：

\lstdefinelanguage{差距}{%
    morekeywords=[2]{and,break,continue,do,elif,else,end,fail,false,fi,for,%
        函数，如果，在，本地，mod，非，od，或，rec，重复，返回，则，true，％
        直到,当},%
    moredelim=[s][\color{蓝色}]{间隙}{>},%
    moredelim=[s][\color{red}]{brk}{>},%
    %moredelim=*[l][\color{蓝色}]{间隙>},%
    %moredelim=*[l][\color{red}]{brk>},%
    敏感=真，％
    更多评论=[l]\#,%
    更多字符串=[b]',%
    更多字符串=[b]",%
    }％

PS：为了说明我想要什么，请考虑这张图片，展示我上面的例子（除了我上面描述的内容之外，我还将所有用户输入设置为斜体）：

在此处输入图片描述

答案1

这个listings答案晚了大约一年，但我相信它涵盖了您的所有要求。

编辑：修复了提示“关键字”出现在行中间的问题。

期望输出

期望输出

获得的输出

获得的输出

代码

\documentclass[a4paper]{article}
\usepackage{xcolor}
\usepackage{textcomp}
\usepackage{listings}

\makeatletter

% switch to remember whether a prompt was found on the current line
\newif\ifprompt@GAP@
% switch to flag whether a prompt `keyword' is an bona fide GAP prompt
\newif\iftoolateforprompt@GAP@

% style of GAP keywords
\definecolor{GAPkeywords}{RGB}{077,145,021}
\newcommand\GAPkeywordstyle{\color{GAPkeywords}}

% font shape of GAP input lines 
\newcommand\GAPinputfshape\slshape

\lstdefinelanguage{GAP}
{%
  basicstyle =\ttfamily,
  alsoletter=>,
  morekeywords=[2]{%
    and,break,continue,do,elif,else,end,fail,false,fi,for,function,if,in,%
    local,mod,not,od,or,rec,repeat,return,then,true,until,while,
  },%
  keywordstyle=[2]\Process@GAP@keywords,
  morekeywords=[3]{gap>,>},
  keywordstyle=[3]\Process@GAP@prompt{blue},
  morekeywords=[4]{brk>},
  keywordstyle=[4]\Process@GAP@prompt{red},
  sensitive=true,%
  upquote=true,% <--- for straight single quotes
  showstringspaces=false,
  morecomment=[l]\#,
  morestring=[b]',
  morestring=[b]",
}%

% only highlight keywords if a prompt has occured on the current line
\newcommand\Process@GAP@keywords{\ifprompt@GAP@\GAPkeywordstyle\fi}

\newcommand\Process@GAP@prompt[1]
{%
  \iftoolateforprompt@GAP@%
  \else%
      \color{#1}\upshape% customise the style of your > and gap> prompts here
      \global\prompt@GAP@true%
      \aftergroup\GAPinputfshape% we trigger slanted shape after > or gap>
  \fi%
}

% Hook into InitVarsEOL (some hook executed right after an EOL) to:
% - reset the \ifprompt@GAP@ and \iftoolateforprompt@GAP@ switches
% - reset the font shape to \upshape
\lst@AddToHook{InitVarsEOL}%
{%
  \global\prompt@GAP@false%
  \global\toolateforprompt@GAP@false%
  \upshape%
}

% Hook into PostOutput to signal that a GAP prompt
% can no occur on the current line
\lst@AddToHook{PostOutput}{\global\toolateforprompt@GAP@true}

\makeatother

\begin{document}
\begin{lstlisting}[language=GAP]
gap> for i in [1..10] do
>   Print(i, ":");
> od;
1:2:3:4:5:6:7:8:9:10:
gap> 2^10;
1024
gap> 1/0;
Error, Rational operations: <divisor> must not be zero
not in any function at line 5 of *stdin*
you can replace <divisor> via 'return <divisor>;'
brk> 2^10;
1024
brk>
\end{lstlisting}
\end{document}

答案2

一个缺点是我处理整个单词，而不是子单词。因此，od;是一个与 分开的单词od。这可以克服，但不能在这个 MWE 中克服。我将您的原始（未格式化）会话输出复制到文件中会话输入并从那里出发。

\documentclass[12pt]{article}
\makeatletter%
\let\protectededef\protected@edef
\makeatother%

\parindent 0in
\renewcommand{\encodingdefault}{T1}
\usepackage{color}
\usepackage{readarray}
\usepackage{verbatimbox}
\usepackage{ifthen}
\catcode`^=12
\definecolor{darkgreen}{rgb}{0,0.5,0}
\newcounter{rowindex}\newcounter{wordindex}%

\newcommand\displaysource[1]{%
  \sffamily%
  \readdef{#1}{\x}%
  \setcounter{rowindex}{0}%
  \whiledo{\value{rowindex} < \nrecords}{%
    \addtocounter{rowindex}{1}%
    \getargsC{\csname record\roman{rowindex}\endcsname}%
    \ifthenelse{\equal{\argi}{>}  \OR%
                \equal{\argi}{gap>}  \OR%
                \equal{\argi}{brk>}}%
                {\def\userin{\itshape}}{\def\userin{\upshape}}%
    \setcounter{wordindex}{0}%
    \whiledo{\value{wordindex} < \narg}{%
      \addtocounter{wordindex}{1}%
      \protectededef\thisword{\csname arg\roman{wordindex}\endcsname}%
      \ifthenelse{\equal{\thisword}{gap>}  \OR%
                  \equal{\thisword}{>}}%
        {%
          \upshape\textcolor{blue}{\thisword~}%
        }{%
          \ifthenelse{\equal{\thisword}{brk>}}%
            {%
              \textcolor{red}{brk>~}%
            }{%
              \userin%
              \ifthenelse{\equal{\thisword}{for}  \OR%
                          \equal{\thisword}{in}  \OR%
                          \equal{\thisword}{do}  \OR%
                          \equal{\thisword}{od}  \OR%
                          \equal{\thisword}{od;}}%
              {%
                \ifthenelse{\equal{\userin}{\itshape}}%
                  {%
                    \textcolor{darkgreen}{\thisword~}%
                  }{%
                    \thisword~%
                  }%
              }{%
                \thisword~%
              }
            }%
        }%
    }%
    \\%
  }%
  \rmfamily%
}
\begin{document}

\displaysource{session.in}

\end{document}

在此处输入图片描述

相关内容