summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/phfquotetext/phfquotetext.sty
blob: fc99c5253f3116c0e91a5a8725d2d30c4cf8bb65 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
%%
%% This is file `phfquotetext.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% phfquotetext.dtx  (with options: `package')
%% 
%% This is a generated file.
%% 
%% Copyright (C) 2016 by Philippe Faist <philippe.faist@bluewin.ch>
%% 
%% This file may be distributed and/or modified under the conditions of
%% the LaTeX Project Public License, either version 1.3 of this license
%% or (at your option) any later version.  The latest version of this
%% license is in:
%% 
%%    http://www.latex-project.org/lppl.txt
%% 
%% and version 1.3 or later is part of all distributions of LaTeX version
%% 2005/12/01 or later.
%% 
\NeedsTeXFormat{LaTeX2e}[2005/12/01]
\ProvidesPackage{phfquotetext}
    [2016/08/15 v1.0 phfquotetext package]
\newcommand\quotetextcatcodedefs{}
\newcommand\quotetextstart{}
\newcommand\quotetextend{}
\newcommand\quotetextfont{\ttfamily}
\newenvironment{quotetext}{%
  \quotetextstart%
  \begingroup%
  \phfquotetext@warg%
}
{%
  \quotetextend%
}
\begingroup
  \catcode`|=0
  \catcode`\<=1
  \catcode`\>=2
  \catcode`\{=12
  \catcode`\}=12
  \catcode`\\=12
  |long|gdef|phfquotetext@warg@#1\end{quotetext}<|endgroup
    |phfquotetext@show<#1>>
|endgroup
\newtoks\qtt@mytoks
\long\def\phfquotetext@show#1{%
  \qtt@mytoks={#1}%
  \begingroup%
  \expandafter\quotetextfont\expandafter{\the\qtt@mytoks}%
  \endgroup%
  \end{quotetext}%
}
\def\phfquotetext@warg{%
  %
  \let\do\@makeother%
  \dospecials%
  \catcode`\ =10\relax% keep space
  \quotetextcatcodedefs%
  \phfquotetext@warg@%
}
\endinput
%%
%% End of file `phfquotetext.sty'.