12.07.2015 Views

TEX pour l'Impatient - Apprendre en ligne.net

TEX pour l'Impatient - Apprendre en ligne.net

TEX pour l'Impatient - Apprendre en ligne.net

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

24 Sep 2004 2:48 p.m.<strong>TEX</strong> <strong>pour</strong> l’Impati<strong>en</strong>t N o 335Référ<strong>en</strong>ces croisées 313\def\xrefnumber#1{%\xrlabel{#1}%% \@xrlabeltoks now has the control sequ<strong>en</strong>ce name.\toks0 =\expandafter{\csname\the\@xrlabeltoks\<strong>en</strong>dcsname}%\expandafter \ifx\the\toks0\relax\ifxrefwarning \message{Undefined label‘\tokstostring{#1}’.}\fi{\let\spacesub = \space\expandafter\xdef\the\toks0{‘{\tt \tokstostring{#1}}’}}\fi\the\toks0}%\def\xref#1{p.\thinspace\xrefnumber{#1}}%\def\xrefn#1{\xrefnumber{#1}}%Cette macro transforme une étiquette <strong>en</strong> liste de tok<strong>en</strong>s de caractèredans le registre de tok<strong>en</strong>s \labeltoks. Une étiquette peut inclure desblancs et des séqu<strong>en</strong>ces de contrôle aussi bi<strong>en</strong> que les caractères normaux,mais elle ne peut pas inclure d’accolades.\newtoks\@xrlabeltoks\def\xrlabel#1{\begingroup\escapechar = ‘\_ \edef\tts{\tokstostring{#1_}}%\global\@xrlabeltoks = \expandafter{\tts}%\<strong>en</strong>dgroup}%Il faut deux passages <strong>pour</strong> obt<strong>en</strong>ir des référ<strong>en</strong>ces croisées correctes,puisque les définitions sont écrites dans le fichier auxiliaire \jobname.aux.\readreffile les relit. Si vous ne saisissez pas cette commandeavant la première définition, vous perdrez toutes les définitions del’exécution précéd<strong>en</strong>te.\newwrite\reffile \newif\ifreffileop<strong>en</strong>ed\def\op<strong>en</strong>reffile{\ifreffileop<strong>en</strong>ed\else\reffileop<strong>en</strong>edtrue\immediate\op<strong>en</strong>out\reffile = \jobname.aux\fi}%\def\readreffile{%\testfileexist<strong>en</strong>ce{aux}%\iffileexists\begingroup\@setletters\input \jobname.aux\<strong>en</strong>dgroup\else\message{No cross-refer<strong>en</strong>ce file; I won’t give youwarnings about undefined labels.}%\xrefwarningfalse\fi

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!