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'.
|