Como posso obter cotações diretas em pseudocódigo?

Question

As aspas no pseudocódigo atualmente são assim:

Como posso obter cotações que se pareçam mais com um ambiente de programação e menos com se eu tivesse digitado no MS Word?

MWE

\documentclass{article}
\usepackage[pdftex,active,tightpage]{preview}
\setlength\PreviewBorder{2mm}

\usepackage[utf8]{inputenc} % this is needed for umlauts
\usepackage[ngerman]{babel} % this is needed for umlauts
\usepackage[T1]{fontenc}    % this is needed for correct output of umlauts in pdf
\usepackage{amssymb,amsmath,amsfonts} % nice math rendering
\usepackage{algorithm,algpseudocode}

\begin{document}
\begin{preview}
    This is a 'samle' with some "quotes".

    \begin{algorithm}[H]
        \begin{algorithmic}
            \State $a \gets \Call{map}{~}$
            \State $a['x'] \gets 42$
            \State $a["x"] \gets 1337$
        \end{algorithmic}
    \caption{Algorithmus von Stoer und Wanger}
    \label{alg:seq1}
    \end{algorithm}
\end{preview}
\end{document}

Perguntas relacionadas

A pergunta já foi respondida para alguns outros ambientes:

• Citações diretas?: Parece que podemos obter aspas diretas com \textquotedble \textquotesingle, mas quero aspas diretas para todos os ambientes algorítmicos sem ter que mexer no meu pseudocódigo
• Consolas: citações diretas: Isto é para listagens
• Como posso obter aspas duplas diretas nas listagens?
• Aspas retas em tabulação

Answer 1

Você pode ter aspas retas, desde que use alguns truques.

\documentclass{article}

\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[ngerman]{babel}

\usepackage{textcomp}
\usepackage{amssymb,amsmath,amsfonts}
\usepackage{algorithm,algpseudocode}
\usepackage{etoolbox} % for the trick

% setup algorithmic to use straight quotes
\AtBeginEnvironment{algorithmic}{\useupquotes}

% define the command that activates the quotes and redefines them
\newcommand{\useupquotes}{%
  \begingroup\lccode`\~=`\'\lowercase{\endgroup\let~}\algoupquote
  \begingroup\lccode`\~=`\"\lowercase{\endgroup\let~}\algoupquotes
  \catcode`\'=\active\catcode`\"=\active
}

% Customize here (\mbox is necessary because of math mode;
% if needed in subscripts, use \text instead)
\newcommand{\algoupquote}{\mbox{\textquotesingle}}
\newcommand{\algoupquotes}{\mbox{\char`\"}}

\begin{document}
Look at Algorithm~\ref{some} for seeing the quotes.

\begin{algorithm}[htp]
\begin{algorithmic}
\State $a['x'] \gets 42$
\State $a["x"] \gets 1337$
\end{algorithmic}
\caption{Some algorithm}\label{some}
\end{algorithm}
\end{document}

Answer 2

Aqui está a abordagem do personagem ativo, também usando textcomp.

\documentclass{article}
\usepackage[pdftex,active,tightpage]{preview}
\setlength\PreviewBorder{2mm}

\usepackage[utf8]{inputenc} % this is needed for umlauts
\usepackage[ngerman]{babel} % this is needed for umlauts
\usepackage[T1]{fontenc}    % this is needed for correct output of umlauts in pdf
\usepackage{amssymb,amsmath,amsfonts} % nice math rendering
\usepackage{algorithm,algpseudocode}
\usepackage{textcomp}
\let\svalgorithm\algorithm
\catcode`'=\active
\catcode`"=\active
\def\quoteactive{\catcode`'=\active\def'{\makebox{\textquotesingle}}}
\def\qquoteactive{\catcode`"=\active\def"{\makebox{\textquotedbl}}}
\catcode`'=12
\catcode`"=12
\def\algorithm{\quoteactive\qquoteactive\svalgorithm}

\begin{document}
\begin{preview}
    This is a 'sample' with some "quotes"{} or ``quotes''.

    \begin{algorithm}[H]
        \begin{algorithmic}
            \State $a \gets \Call{map}{~}$
            \State $a['x'] \gets 42$
            \State $a["x"] \gets 1337$
        \end{algorithmic}
    \caption{Algorithmus von Stoer und Wanger}
    \label{alg:seq1}
    \end{algorithm}
Restored? ' and ", ``quotations'' or `quotations'
\end{preview}
\end{document}

Answer 3

Você provavelmente poderia ativar as aspas, mas sugiro envolvê-las em uma macro (uma referência seria fornecida emCitações diretas?):

\documentclass{article}

\usepackage[utf8]{inputenc} % this is needed for umlauts
\usepackage[ngerman]{babel} % this is needed for umlauts
\usepackage[T1]{fontenc}    % this is needed for correct output of umlauts in pdf
\usepackage{textcomp}
\usepackage{amssymb,amsmath,amsfonts} % nice math rendering
\usepackage{algorithm,algpseudocode}

\makeatletter
\newcommand{\upquotetype}{}
\newcommand{\upquote@aux}[1]{\text{\upquotetype}#1\text{\upquotetype}}
\newcommand{\upquotesingle}{\renewcommand{\upquotetype}{\textquotesingle}\upquote@aux}
\newcommand{\upquotedouble}{\renewcommand{\upquotetype}{\textquotedbl}\upquote@aux}

\begin{document}
This is a 'sample' with some "quotes".

\begin{algorithm}[H]
  \begin{algorithmic}
    \State $a[\upquotesingle{x}] \gets 42$
    \State $a[\upquotedouble{x}] \gets 1337$
  \end{algorithmic}
  \caption{Some algorithm}
\end{algorithm}
\end{document}