summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/colordoc/colordoc.sty
blob: 63fe6ddad09607362ec82b9a7d0381631bf1cec6 (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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
%%
%% This is file `colordoc.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% colordoc.dtx  (with options: `package')
%% 
%% Copyright 2010 Federico Garcia
%% 
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{colordoc}[2010/04/18 Documentation in TeXnicolor (Federico Garcia)]
\let\doc@macrocode\macro@code
\def\@makebracesactive{\catcode`\{\active\catcode`\}\active}
\def\macro@name#1{%
    \edef\macro@namepart{\macro@namepart#1}%    Like in doc
    \ifx\macro@namepart\colordoc@new\let\futuremacro@style\textnew\fi
    \ifx\macro@namepart\colordoc@newif\@ifcheckallowedfalse\fi
    \ifx\macro@namepart\colordoc@if\if@ifcheckallowed
        \gdef\macro@style{\@openingbrace}%
        \else\global\@ifcheckallowedtrue\fi\fi
    \futurelet\next\more@macroname%             Like in doc
    }
\def\macro@finish{%
    \ifx\macro@namepart\colordoc@newenvironment\let\futuremacro@style\relax\fi
    \ifx\macro@namepart\colordoc@newcounter\let\futuremacro@style\relax\fi
    \ifx\macro@namepart\colordoc@def\let\futuremacro@style\textnew\fi
    \ifx\macro@namepart\colordoc@edef\let\futuremacro@style\textnew\fi
    \ifx\macro@namepart\colordoc@gdef\let\futuremacro@style\textnew\fi
    \ifx\macro@namepart\colordoc@xdef\let\futuremacro@style\textnew\fi
    \ifx\macro@namepart\colordoc@renewcommand\let\futuremacro@style\textnew\fi
    \ifx\macro@namepart\colordoc@providecommand\let\futuremacro@style\textnew\fi
    \ifx\macro@namepart\colordoc@loop\let\macro@style\@openingbrace\@ifcheckallowedfalse\fi
    \ifx\macro@namepart\colordoc@repeat\let\macro@style\@closingbrace\fi
    \ifx\macro@namepart\colordoc@fi\let\macro@style\@closingbrace\fi
    \ifx\macro@namepart\colordoc@else\def\macro@style{\@closingbrace\relax\@openingbrace}\fi
    \ifx\macro@namepart\colordoc@csname\let\macro@style\@openingbrace\fi
    \ifx\macro@namepart\colordoc@endcsname\let\macro@style\@closingbrace\fi
    \macro@style\macro@namepart\global\let\macro@style\relax
    \global\let\macro@style\futuremacro@style\global\let\futuremacro@style\relax
    \ifnot@excluded%                            From here on like in doc
        \edef\@tempa{\noexpand\SpecialIndex{\bslash\macro@namepart}}%
        \@tempa \fi}
\newif\if@ifcheckallowed\@ifcheckallowedtrue
\def\colordoc@csname{csname}        \def\colordoc@endcsname{endcsname}
\def\colordoc@def{def}              \def\colordoc@edef{edef}
\def\colordoc@gdef{gdef}            \def\colordoc@xdef{xdef}
\def\colordoc@if{if}    \def\colordoc@else{else}    \def\colordoc@fi{fi}
\def\colordoc@loop{loop}            \def\colordoc@repeat{repeat}
\def\colordoc@new{new}              \def\colordoc@newif{newif}
\def\colordoc@newcounter{newcounter}\def\colordoc@newenvironment{newenvironment}
\def\colordoc@providecommand{providecommand}
\def\colordoc@renewcommand{renewcommand}
\newif\ifcolorcode@
\DeclareOption{numbers}{%
    \def\macro@code{\doc@macrocode\@makebracesactive}
    \colorcode@false
    \let\colordoc@scheme\relax
    \def\textnew#1{\textit{\underline#1\/}}
    \def\@openingbrace#1{\global\advance\BraceLevel\@ne#1\textsubscript{\the\BraceLevel}}
    \def\@closingbrace{\textsubscript{\the\BraceLevel}\global\advance\BraceLevel\m@ne}
    }
\DeclareOption{numbered}{%
    \def\macro@code{\doc@macrocode\@makebracesactive}
    \colorcode@false
    \let\colordoc@scheme\relax
    \def\textnew#1{\textit{\underline#1\/}}
    \def\@openingbrace#1{\advance\BraceLevel\@ne#1\textsubscript{\the\BraceLevel}}
    \def\@closingbrace{\textsubscript{\the\BraceLevel}\advance\BraceLevel\m@ne}
    }
\DeclareOption{nothing}{%
    \let\@openingbrace\relax
    \let\@closingbrace\relax
    \colorcode@false
    \let\colordoc@scheme\relax
    \let\textnew\relax
    }
\DeclareOption{braces}{%
    \def\macro@code{\doc@macrocode\@makebracesactive}
    \colorcode@true
    \let\@colorcode\relax
    \def\colordoc@scheme{\braces@colorscheme}
    \def\@openingbrace#1{\@modinc\BraceLevel{\@bracecolor#1}}
    \def\@closingbrace#1{{\@bracecolor#1}\@moddecr\BraceLevel}
    }
\DeclareOption{contents}{%
    \colorcode@true
    \def\colordoc@scheme{\contents@colorscheme}
    \def\macro@code{\doc@macrocode\@makebracesactive\@bracecolor}
    \let\docendmacro@code\endmacro@code
    \def\endmacro@code{\docendmacro@code\normalcolor}
    \let\doctheCodelineNo\theCodelineNo
    \def\theCodelineNo{\normalcolor\doctheCodelineNo}
    \def\@openingbrace#1{#1\@modinc\BraceLevel
        \global\let\@codecolor\@bracecolor\@codecolor}
    \def\@closingbrace{\@moddecr\BraceLevel
        \global\let\@codecolor\@bracecolor\@codecolor}
    }
\DeclareOption*{\typeout{Unknown option (`\CurrentOption')}}
\ExecuteOptions{braces}
\ProcessOptions
\ifcolorcode@\RequirePackage{color}\else\RequirePackage{fixltx2e}\fi
\newcount\BraceLevel   \BraceLevel\z@
\bgroup
\catcode`\[\@ne\catcode`\]\tw@
\@makebracesactive
\gdef{[\@openingbrace[\char'173]]
\gdef}[\@closingbrace[\char'175]]
\catcode`\|\z@\catcode`\%12
\catcode`\ \active\catcode`\\\active
|gdef|xmacro@code#1%    \end{macrocode}[#1|end[macrocode]]
|catcode`| 12|gdef|sxmacro@code#1%    \end{macrocode*}[#1|end[macrocode*]]|egroup
\def\@modinc#1{%
    \global\advance#1\@ne
    \ifnum#1>\@colorlevels
        \global#1\@ne\fi}
\def\@moddecr#1{%
    \global\advance#1\m@ne
    \ifnum#1>\z@\else
        \global#1\@colorlevels\fi}
\def\@bracecolor{\@nameuse{@color\the\BraceLevel}}
\def\ColorLevels#1{%
    \@colorlevels#1%
    \@tempcnta\@colorlevels
    \loop\ifnum\@tempcnta>\z@
        \expandafter\edef\csname @color\the\@tempcnta\endcsname{%
            \noexpand\color{color-\the\@tempcnta}}
        \advance\@tempcnta\m@ne
        \repeat
    }
\newcount\@colorlevels
\def\braces@colorscheme{%
    \ColorLevels4
    \BraceLevel\z@
    \definecolor{color-0}{rgb}{0,0,0}
    \definecolor{color-1}{cmyk}{1,.5,0,.3}
    \definecolor{color-2}{cmyk}{0,1,0,.2}
    \definecolor{color-3}{rgb}{0,.6,0}
    \definecolor{color-4}{cmyk}{0,0,1,.6}
    \def\textnew##1{\textit{\color{color-def}##1\/}}
    \definecolor{color-def}{rgb}{0.8,0,0}
    }
\def\contents@colorscheme{%
    \ColorLevels5
    \BraceLevel\@ne
    \definecolor{color-0}{rgb}{0,0,0}
    \definecolor{color-1}{cmyk}{0,.5,0,0.6}
    \definecolor{color-2}{rgb}{0,0,0}
    \definecolor{color-3}{rgb}{.15,0.15,.75}
    \definecolor{color-4}{rgb}{0,.47,0}
    \definecolor{color-5}{cmyk}{0,0.72,1,.4}
    \def\textnew##1{\textit{\color{color-def}##1\/}}
    \definecolor{color-def}{rgb}{0.8,0,0}
    }
\EnableCrossrefs
\let\macro@style\relax
\let\futuremacro@style\relax
\colordoc@scheme
\endinput
%%
%% End of file `colordoc.sty'.