LaTeX command for repeating quotes n-times?

Question

I'm trying to find a LaTeX command that allows me to repeat a specified character (like quotation marks) a certain number of times around a given text. For example, I want to define a command like \quote[n]{y}, which would output n repetitions of a character surrounding (the quotations marks in this case) the text y.

Is there a package with a command doing this job? If not, how could I define it?

Note that, in LaTeX, n repetitions of the quotations marks would have n times repetions of the left quotation mark (i.e., `) at the left and n repetion of the right quotation mark (i.e., ') at the right. Alternatively, it could be n repetions of the command \enquote{}, with suitable adaptations (each repetion should onctain only one pair of simple quotation marks).

OP edit: Is there a way to, instead of puting ` at the left, to indicate the left quote of the command \enquote* provided by the csquotes package (and respectively for ')? I say this because I would also like that it be adapted to other languages, like German.

Answer 1

As egreg has posted an expl3 version here's a tex primitive loop, just for comparison

\documentclass{article}

\begingroup\lccode`~`m\lowercase{\endgroup
\def\Quoted#1#2{%
  $\mathcode`m="8000\def~{\hbox{`}}\romannumeral#1000$%
  #2%
  $\mathcode`m="8000\def~{\hbox{'}}\romannumeral#1000$%
}
}
\begin{document}

\Quoted{1}{abc}

\Quoted{2}{abc}

\Quoted{10}{abc}

\end{document}

Answer 2

With expl3 there's \prg_replicate:nn.

We need to insert a zero kern in order to avoid ligatures.

\documentclass{article}

\ExplSyntaxOn

\NewDocumentCommand{\Quoted}{O{1}m}
 {
  % #1 = number of quote marks (default 1), #2 = text to be quoted
  \prg_replicate:nn {#1} {`\kern0pt}
  #2
  \prg_replicate:nn {#1} {\kern0pt'}
 }

\ExplSyntaxOff

\begin{document}

\Quoted{abc}

\Quoted[2]{abc}

\Quoted[10]{abc}

\end{document}

For csquotes:

\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage[french,english]{babel}
\usepackage[autostyle,french=guillemets]{csquotes}

\ExplSyntaxOn

\NewDocumentCommand{\Quoted}{O{1}m}
 {
  % #1 = number of quote marks (default 1), #2 = text to be quoted
  \group_begin: \setquotestyle{\languagename}
  \prg_replicate:nn {#1} {\use:c{csq@thequote@oopen}}
  #2
  \prg_replicate:nn {#1} {\use:c{csq@thequote@oclose}}
  \group_end:
 }

\ExplSyntaxOff

\begin{document}

\Quoted{abc}

\Quoted[2]{abc}

\Quoted[10]{abc}

\selectlanguage{french}

{\enquote*{abc}}

\Quoted{abc}

\Quoted[2]{abc}

\Quoted[10]{abc}

\end{document}

Answer 3

For the sake of variety, a LuaLaTeX-based solution. Note that because \Quoted uses Lua's own string.rep function, it's not necessary to perform a loop operation.

% !TEX TS-program = lualatex
\documentclass{article}

\newcommand{\Quoted}[2][1]{\directlua{tex.sprint ( 
    string.rep ("\\mbox{`}",#1) .. "#2" .. string.rep ("\\mbox{'}",#1) 
    )}}

\begin{document}
\Quoted{abc}

\Quoted[2]{abc}

\Quoted[10]{abc}
\end{document}