blob: f0656b14ca189d37ae97667ae878b8dffed8c344 (
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
|
\newif\ifsimboli
\newif\ifriferimenti
\newwrite\filesimboli
\def\simboli{
\immediate\write16{ !!! Genera il file \jobname.SMB }
\simbolitrue\immediate\openout\filesimboli=\jobname.smb}
\newwrite\fileausiliario
\def\riferimentifuturi{
\immediate\write16{ !!! Genera il file \jobname.AUX }
\riferimentitrue\openin1 \jobname.aux
\ifeof1\relax\else\closein1\relax\input\jobname.aux\fi
\immediate\openout\fileausiliario=\jobname.aux}
\newcount\sectnum\global\sectnum=0
\newcount\eqnum\global\eqnum=0
\newcount\citnum\global\citnum=0
\newif\ifndoppia
\def\numerazionedoppia{\ndoppiatrue\gdef\lasezionecorrente{\the\sectnum}}
\def\seindefinito#1{\expandafter\ifx\csname#1\endcsname\relax}
\def\spoglia#1>{}
\def\cref#1{\seindefinito{@c@#1}\immediate\write16{ !!! \string\cref{#1}
non definita !!!}
\expandafter\xdef\csname@c@#1\endcsname{??}\fi\csname@c@#1\endcsname}
\def\eqref#1{\seindefinito{@eq@#1}\immediate\write16{ !!! \string\eqref{#1}
non definita !!!}
\expandafter\xdef\csname@eq@#1\endcsname{??}\fi\csname@eq@#1\endcsname}
\def\sref#1{\seindefinito{@s@#1}\immediate\write16{ !!! \string\sref{#1}
non definita !!!}
\expandafter\xdef\csname@s@#1\endcsname{??}\fi\csname@s@#1\endcsname}
\def\section#1\par{\immediate\write16{#1}\goodbreak\vskip 48pt plus 60pt
\noindent{\bf#1}\nobreak\vskip 15pt\nobreak\noindent}
\def\autosection#1#2\par{
\global\advance\sectnum by 1\ifndoppia\global\eqnum=0\fi
\xdef\lasezionecorrente{\the\sectnum}
\def\usaegetta{1}\seindefinito{@s@#1}\def\usaegetta{2}\fi
\expandafter\ifx\csname@s@#1\endcsname\lasezionecorrente\def\usaegetta{2}\fi
\ifodd\usaegetta\immediate\write16
{ !!! possibili riferimenti errati a \string\sref{#1} }\fi
\expandafter\xdef\csname@s@#1\endcsname{\lasezionecorrente}
\immediate\write16{\lasezionecorrente. #2}
\ifsimboli
\immediate\write\filesimboli{ }\immediate\write\filesimboli{ }
\immediate\write\filesimboli{ Sezione \lasezionecorrente : sref. #1}
\immediate\write\filesimboli{ } \fi
\ifriferimenti
\immediate\write\fileausiliario{\string\expandafter\string\edef
\string\csname@s@#1\string\endcsname{\lasezionecorrente}}\fi
\goodbreak\vskip 48pt plus 60pt
\noindent\hbox{\bf\the\sectnum.\quad{}}{\bf#2}\nobreak\vskip 15pt
\nobreak\noindent}
\def\semiautosection#1#2\par{
\gdef\lasezionecorrente{#1}\ifndoppia\global\eqnum=0\fi
\ifsimboli
\immediate\write\filesimboli{ }\immediate\write\filesimboli{ }
\immediate\write\filesimboli{ Sezione ** : sref.
\expandafter\spoglia\meaning\lasezionecorrente}
\immediate\write\filesimboli{ }\fi
\section#2\par}
\def\eqlabel#1{\global\advance\eqnum by 1
\ifndoppia\xdef\ilnumero{\lasezionecorrente.\the\eqnum}
\else\xdef\ilnumero{\the\eqnum}\fi
\def\usaegetta{1}\seindefinito{@eq@#1}\def\usaegetta{2}\fi
\expandafter\ifx\csname@eq@#1\endcsname\ilnumero\def\usaegetta{2}\fi
\ifodd\usaegetta\immediate\write16
{ !!! possibili riferimenti errati a \string\eqref{#1} }\fi
\expandafter\xdef\csname@eq@#1\endcsname{\ilnumero}
\ifndoppia
\def\usaegetta{\expandafter\spoglia\meaning\lasezionecorrente.\the\eqnum}
\else\def\usaegetta{\the\eqnum}\fi
\ifsimboli
\immediate\write\filesimboli{ Equazione \usaegetta : eqref. #1}\fi
\ifriferimenti
\immediate\write\fileausiliario{\string\expandafter\string\edef
\string\csname@eq@#1\string\endcsname{\usaegetta}}\fi}
\def\autoeqno#1{\eqlabel{#1}\eqno(\csname@eq@#1\endcsname)}
\def\autoleqno#1{\eqlabel{#1}\leqno(\csname@eq@#1\endcsname)}
\def\clabel#1{\global\advance\citnum by 1%
\xdef\lacitazione{\the\citnum}%
\def\usaegetta{1}\seindefinito{@c@#1}\def\usaegetta{2}\fi%
\expandafter\ifx\csname@c@#1\endcsname\lacitazione\def\usaegetta{2}\fi%
\ifodd\usaegetta\immediate\write16%
{ !!! possibili riferimenti errati a \string\cref{#1} }\fi%
\expandafter\xdef\csname@c@#1\endcsname{\lacitazione}%
\ifsimboli%
\immediate\write\filesimboli{ Citazione \lacitazione : cref. #1}\fi%
\ifriferimenti\immediate\write\fileausiliario{\string\expandafter\string\edef%
\string\csname@c@#1\string\endcsname{\lacitazione}}\fi}%
\def\cite#1{$^{[\cref{#1}]}$}
\def\firstcite#1{\clabel{#1}\cite{#1}}
|