summaryrefslogtreecommitdiff
path: root/language/french/e-french/texmf/doc/test/mylist.sty
blob: e6930bf2da1df496d47babf2190ad3dfd7fc342c (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
%-------mylist.sty 
%
% Utilisation : \Mylisting{nom_de_fichier}
%
%                                     last mods  --bg 2000/03/07
%%
%%      checksum        = "30783 109 227 3815"
%%
\def\uncatcodespecials{\def\do##1{\catcode`##1=12 }\dospecials}
% Listing is defined later
%\ifx\Mylisting\undefined% if no listing style already loaded
%\def\Mylisting#1{\par\begingroup%
%\setupverbatim\input #1 \endgroup}
%\fi

\font\ttlisting=cmtt8 scaled 700

\def\setupverbatim{\baselineskip=0pt\ttlisting %\lineo=0
    \def\par{\leavevmode\endgraf}
    \catcode`\`=\active
    \obeylines\uncatcodespecials\obeyspaces
    \parskip=0pt plus 1pt}

{\obeyspaces\global\let =\ } % let active space = control space
{\catcode`\`=\active 
 \ifx`\undefined\gdef\Gdef{\def`{\relax\lq}}
           \else\gdef\Gdef{}\fi
}\Gdef
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%SUPERVERBATIM.STY
\def\uncatcodespecials{\def\do##1{\catcode`##1=12 }\dospecials}
\ifx\Mylisting\undefined%
\def\Mylisting#1{\par\begingroup\makeatletter% obscurely needed now for AmSLaTeX
                   \setupverbatim\IfFileExists{#1}{\input #1}%
                                  {Fichier non trouv\'e.}\endgroup}
\else\ifx\prelisting\undefined\else\prelisting{\tt\footnotesize}%
                               \labelstyle[1]{}\spreadlisting{2cm}\fi%
     \def\Mylisting#1{% just for using listings package but will
                      \IfFileExists{#1}{%
                    \inputlisting{#1}}% remove its listing environnement
                                        }{Fichier non trouv\'e.}%
\fi% 
\def\copyfile#1{\par\begingroup\setupinclure\input #1 \endgroup}
%
\newcount\lineno % the number of the file lines listed
\def\setupverbatim{\tt \lineno=0
  \def\par{\leavevmode\endgraf} \catcode`\`=\active
  \obeylines \uncatcodespecials \obeyspaces
  \parskip=0pt plus 1pt
  \everypar{\advance\lineno by1 \llap{\rm\the\lineno\ \ }}}
{\obeyspaces\global\let =\ } % let active space = control space
%{\catcode`\`=\active \gdef`{\relax\lq}}
{\catcode`\`=\active 
 \ifx`\undefined\gdef\Gdef{\def`{\relax\lq}}
           \else\gdef\Gdef{}\fi
}\Gdef
%
\def\sautpar{\par\medskip}

\def\setupinclure{\tt \lineno=0
  \def\par{\leavevmode\endgraf} \catcode`\`=\active
    \obeylines \uncatcodespecials \obeyspaces
  \parskip=0pt plus 1pt}

\def\lignett#1{\noindent\hskip 2truecm{\tt#1}\par}

\def\ttligne{\begingroup\Setupverbatim\doverbatim}
\def\doverbatim#1{\def\next##1#1{##1\endgroup}\next}
\def\Setupverbatim{\tt
  \def\par{\leavevmode\endgraf} \catcode`\`=\active
  \obeylines \uncatcodespecials \obeyspaces
  \parskip=0pt plus 1pt}
%
\def\debuttt{\medskip
              \begingroup
               \obeylines \tt
               \obeyspaces
               \parskip=0pt
               \baselineskip=12pt plus .1pt
               \parindent=0pt}
\def\fintt{\endgroup\par}
\def\termtype{\medskip
             \trivlist \item[]
             \def\par{\hbox{}\@@par}
             \obeylines
             \tt
             \obeyspaces
             \obeycr
             \@vobeyspaces
             \parskip=0pt
             \baselineskip=12pt plus .1pt
             \parindent=0pt}
\let\endtermtype=\endtrivlist
{\catcode`\ =\active\gdef\@vobeyspaces{\catcode`\ \active\let \@xobeysp}}
\def\@xobeysp{\leavevmode\penalty10000\ }
{\catcode`\^^M=13 \gdef\@gobblecr{\@ifnextchar
{\@gobble}{\ignorespaces}}}
\def\envprog{\trivlist \item[]\vskip\parskip
\parindent0pt\parskip\z@
\def\par{\hbox{}\@@par}\obeylines \tt
\catcode``=13\catcode`\^^M=13
\frenchspacing\@vobeyspaces}
\let\endenvprog=\endtrivlist
\ifx\ProvidesPackage\undefined\else% 
    \ProvidesPackage{mylist}[1998/06/10 Temporary ``list'' package %
                             from the french dist.]%
\fi%
\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%