momh

synttree

Brice Boucard — 2011-08-15T14:00:00Z

synttree, comme son nom le laisse présager, permet de créer, comme d'autres packages et outils (cf. LaTeX4Ling) des arbres syntaxiques. Pour le télécharger, rendez-vous ici.

Le package fourni l'instruction \synttree ; chaque élément de l'arbre vient s'imbriquer entre crochets. Mieux qu'un long discours, trois illustrations :

\synttree[A' [A[fucking]] [SN[.x my neighbour]]]

\synttree[SN [Det[mes]] [N''[putains] [P''[Prep[de]][N[voisins]]]]]

\synttree[I'' [N'' [Everybody]] [V'' [V' [V [came]] [P'' [P [with] [Exp [fucking] [N'' [.x their children]]]]]]]

Fichier d'exemple disponible ici.

tikz-pgf

Brice Boucard — 2011-08-15T13:30:00Z

tikz/pgf permet de réaliser des graphiques d'une très grande complexité comme vous pouvez le constater en vous rendant sur cette page. Je me propose de donner ici un aperçu de l'utilisation – très basique – que j'en ai faite : générer des modèles et grilles rythmiques pour un dossier de phonologie.

Une fois que vous avez téléchargé (ici) et installé ce package, il vous suffit, pour l'utiliser, de l'appeler dans le préambule de votre document :

\usepackage{tikz,pgf}

N'hésitez pas à vous plonger dans la documentation – plus que conséquente (plus de 500 pages !) – pour trouver votre bonheur et pour vérifier les informations livrées ici (ça fait un moment que je n'ai pas utilisé la bête).

Avant de se lancer, mieux vaut avoir une idée précise de ce que l'on veut faire : en effet, la création du graphique passe par la déclaration de point, de coordonnées, et peut s'avérer longue et fastidieuse.

Voici un exemple de grille rythmique (utilisation du package tipa) :

\newcommand{\sux}[1]{${\rm \stackrel{\textstyle x}{\raisebox{0ex}{#1}}}$} \begin{tikzpicture}[black,scale=0.75] \draw (0,1.5) node[anchor=south] {x}; \draw (1,1.5) node[anchor=south] {\sux{x}}; \draw (2,1.5) node[anchor=south] {x}; \draw (3,1.5) node[anchor=south] {\sux{x}}; \draw (4,1.5) node[anchor=south] {x}; \draw (6,1.5) node[anchor=south] {\sux{x}}; \draw (7,1.5) node[anchor=south] {x}; \foreach \x in {0,...,4} \draw (\x,1.5) [solid] -- (\x cm, 0.7cm); \draw (5,0.7) -- (6,1.5); \foreach \x in {6,...,7} \draw (\x,1.5) [solid] -- (\x cm, 0.7cm); \draw (0,0) node[anchor=south] {\textipa{K}}; \draw (1,0) node[anchor=south] {\textipa{@}}; \draw (2,0) node[anchor=south] {\textipa{s}}; \draw (3,0) node[anchor=south] {\textipa{@}}; \draw (4,0) node[anchor=south] {\textipa{v}}; \draw (5,0) node[anchor=south] {\textipa{w}}; \draw (6,0) node[anchor=south] {\textipa{a}}; \draw (7,0) node[anchor=south] {\textipa{K}}; \end{tikzpicture}

Tentons d'expliquer ce qui est fait dans ce code :

dans un premier temps (lignes 18 à 25) nous « dessinons » la « ligne » de texte (correspondant ici à une transcription phonétique) : draw (coordonnée x,coordonnée y) node[anchor=south}] {texte\_affiché} place un point aux coordonnées x,y et le texte correspondant à ce point (ici un symbole API) est placé au-dessus du point (au-dessous si on utilise [anchor=north])
ensuite (lignes 6 à 12) nous dessinons la « ligne » de « croix » : même chose que précédemment si ce n'est que le texte est ici constitué de croix (lettre x) (quelques précisions plus bas)
enfin nous traçons les traits nous permettant de relier les points de notre ligne de texte aux points de notre ligne de croix
- le plus simple : à la ligne 15, \draw (5,0.7) -- (6,1.5); permet de tracer un trait entre le point d'abscisse 5 et d'ordonnée 0.7 au point d'abscisse 6 et d'ordonnée 1.5. On obtient donc un tracé en diagonale ;
- pour tracer un trait vertical on aurait alors \draw (5,0.7) -- (5,1.5) ;
- il est possible d'automatiser les tracés, d'où les lignes 14 et 16. Prenons la ligne 14 : \foreach \x in {0,...,4} \draw (\x,1.5) [solid] -- (\x cm, 0.7cm); : pour tout (\foreach) point d'abscisse (\x) entre 0 et 4 dessiner (\draw) de ce point au point d'abscisse identique et d'ordonnée 1.5 ((\x,1.5)) un trait plein ([solid]) ; cependant on précise que l'on part de l'ordonnée 0.7cm pour tout les points de départ ((\x cm, 0.7cm)) pour éviter que le trait ne recouvre le texte.

Demeurent deux questions : c'est quoi ce \sux{x} qui apparaît dans les lignes 7, 9 et 11 ? Et c'est quoi ce truc là, \newcommand ? En fait, dans la première ligne nous définissons la commande \sur que nous utilisons ensuite dans la définition du texte à « dessiner », pour faire en sorte que les les deux x soient placés verticalement et non pas horizontalement. Voici une petite démonstration :

\begin{tikzpicture}[black,scale=0.75] \draw (0,1.5) node[anchor=south] {o}; \draw (1,1.5) node[anchor=south] {xx}; \draw (2,1.5) node[anchor=south] {y}; \draw (3,1.5) node[anchor=south] {xx}; \draw (4,1.5) node[anchor=south] {arghh}; \foreach \x in {0,...,4} \draw (\x,1.5) [solid] -- (\x cm, 0.7cm); \draw (0,0) node[anchor=south] {\textipa{K}}; \draw (1,0) node[anchor=south] {\textipa{@}}; \draw (2,0) node[anchor=south] {\textipa{s}}; \draw (3,0) node[anchor=south] {\textipa{@}}; \draw (4,0) node[anchor=south] {\textipa{v}}; \end{tikzpicture}

\begin{tikzpicture}[black,scale=1.25] \draw (0,1.5) node[anchor=south] {o}; \draw (1,1.5) node[anchor=south] {xx}; \draw (2,1.5) node[anchor=south] {y}; \draw (3,1.5) node[anchor=south] {xx}; \draw (4,1.5) node[anchor=south] {arghh}; \foreach \x in {0,...,4} \draw (\x,1.5) [solid] -- (\x cm, 0.7cm); \draw (0,0) node[anchor=south] {\textipa{K}}; \draw (1,0) node[anchor=south] {\textipa{@}}; \draw (2,0) node[anchor=south] {\textipa{s}}; \draw (3,0) node[anchor=south] {\textipa{@}}; \draw (4,0) node[anchor=south] {\textipa{v}}; \end{tikzpicture}

\newcommand{\sux}[1]{${\rm \stackrel{\textstyle x}{\raisebox{0ex}{#1}}}$} \newcommand{\suxx}[1]{${\rm \stackrel{\textstyle x}{\raisebox{0ex}{\sux{#1}}}}$} \newcommand{\suxxx}[1]{${\rm \stackrel{\textstyle x}{\raisebox{0ex}{\suxx{#1}}}}$} \newcommand{\suxxxx}[1]{${\rm \stackrel{\textstyle x}{\raisebox{0ex}{\suxxx{#1}}}}$} \begin{tikzpicture}[black,scale=0.75] \draw (0,1.5) node[anchor=south] {\sux{x}}; \draw (1,1.5) node[anchor=south] {\sux{xxx}}; \draw (2,1.5) node[anchor=south] {\suxx{xx}}; \draw (3,1.5) node[anchor=south] {\suxxx{x}}; \draw (4,1.5) node[anchor=south] {\suxxxx{x}}; \foreach \x in {0,...,4} \draw (\x,1.5) [solid] -- (\x cm, 0.7cm); \draw (0,0) node[anchor=south] {\textipa{K}}; \draw (1,0) node[anchor=south] {\textipa{@}}; \draw (2,0) node[anchor=south] {\textipa{s}}; \draw (3,0) node[anchor=south] {\textipa{@}}; \draw (4,0) node[anchor=south] {\textipa{v}}; \end{tikzpicture}

Dans le premier cas on constate que le texte attribué au point est dessiné horizontalement. Nous pouvons constater deux problèmes : problème d'alignement vertical lorsque les lettres utilisées ont des « jambes » et un problème de distance lorsque le texte est long. Ce second souci est résolu avec le second exemple où l'on joue sur l'échelle : lorsque l'on ouvre l'environnement tikzpicture on peut lui passer des options (entre crochets) et notamment scale.

Dans le dernier cas, nous avons défini quatre commandes : \sux, \suxx, \suxxx et \suxxxx et avons montré les possibilités que cela permettait.

Vous trouverez le fichier avec ces exemples ici.

avm

Brice Boucard — 2011-08-15T08:00:00Z

Ce package permet de réaliser des structures de traits, de la plus simple à la plus complexe.

Pour télécharger ce paquet et en avoir une démonstration plus poussée, rendez-vous sur cette page du site consacré à l'utilisation de LaTeX en Sciences du langage. Avant tout essai, penser bien à charger le package avec la commande

\usepackage{avm}

Notez que les exemples présentés ici nécessitent la présence du package tipa dont nous parlons ici.

En voici un exemple basique :

En voici un exemple un peu plus « imposant » :

Voici un ECM (exemple complet minimal, « concept » provenant de fr.comp.text.tex) de l'utilisation du package avm (nécessitant cependant le package tipa) téléchargeable ici ; les deux premières structures proviennent d'un dosier de phonologie que j'ai réalisé, la troisième vient de la documentation mentionnée précédemment :

\documentclass[a4paper,10pt]{article} \usepackage[utf8x]{inputenc} \usepackage{avm} \usepackage{tipa} \begin{document} \begin{avm}\textipa{[kK@]} : \[ \[ Seg : & \<\textipa{k}\> \cr Pos : & 1 \cr Pc : & i \] & \[ Seg : & \<\textipa{K}\> \cr Pos : & 1 \cr Pc : & p \] & \[ Seg : & \<\textipa{@}\> \cr Pos : & 2 \cr Pc : & s \] \] \end{avm} \vspace{2cm} \begin{avm} \[ \[ SEG : & \[ SLAR : & \[ MODE : & @ \@1 \cr PLACE : & h ; \textglotstop \cr VELUM : & \textsl{Velum} \cr LATERAL: & \textsl{Lateral} \cr \] \cr LAR : & \textsl{Lar} \cr TETE : & \@1 \] \cr Pos : & 1 \cr Pc : & i \] \cr \[ SEG : & \[ SLAR : & \[ MODE : & @ \@1 ; R \cr PLACE : & \textsl{Place} \cr VELUM : & \textsl{Velum} \cr LATERAL: & \textsl{Lateral} \cr \] \cr LAR : & \textsl{Lar} \cr TETE : & \@1 \] \cr Pos : & 1 \cr Pc : & p \] \] \end{avm} \newpage \newbox\matrixsynsem \newbox\headdtr \newbox\compdtrone \newbox\compdtrtwo {\scriptsize \avmoptions{center} \setbox\matrixsynsem=\hbox{\begin{avm} \osort{synsem}{\[local & \[cat & \[ \] \\ content & \[ \]\]\]} \end{avm}} \setbox\headdtr=\hbox{\begin{avm} \osort{word}{\[ phon\;\<\rm likes\>\\ synsem\;\[local\[ cat\;\[ head \; \@{5}\\ arg-s\;\< \@{1},\@{2}\>\] \\ content\;\@{6} \]\]\]} \end{avm}} \setbox\compdtrone=\hbox{\begin{avm} \sort{phrase}{\[ phon\;\<\rm fido\>\\ synsem\;\@{1}\;\[local\[ cat\;\[ head\;noun\\ arg-s\;\< \>\] \\ content\;\@{3} \]\]\]} \end{avm}} \setbox\compdtrtwo=\hbox{\begin{avm} \sort{phrase}{\[ phon\;\<\rm bones\>\\ synsem\;\@{2}\;\[local\[ cat\;\[ head\;noun\\ arg-s\;\< \>\] \\ content\;\@{4} \]\]\]} \end{avm}} \avmoptions{active,sorted} \begin{avm} \hspace{-1in} [{phrase} phon\;\<\rm fido likes bones\> \\ synsem\;[{synsem} local [{} cat & [{} head & @{5}\\ arg-s & \< \; \>] \\ content & @{6}[{psoa} reln\;like \\ arg1\;@{3} \\ arg2\;@{4} ]]]\\ dtrs\;\sort{head-struc}{[{} head-dtr\;\box\headdtr \\ comp-dtrs\;< \box\compdtrone , \\ \hspace{.5in} \box\compdtrtwo>]}] \end{avm}} \end{document}

tipa & vowel

Brice Boucard — 2011-08-15T07:30:00Z

Le package tipa vous permet d'insérer au sein d'un document les symboles de l'alphabet phonétique international (API). Je vous en propose une présentation générale, peu poussée.

Le package vowel permet de créer des triangles et trapèzes vocaliques.

tipa

Une fois installé le package (disponible ici), il vous suffit de l'appeler ainsi dans votre préambule :

\usepackage{tipa}

Puis pour pouvoir intégrer les symboles de l'API au sein de votre document, il vous suffit d'utiliser la commande \textipa{X} ou X est le caractère souhaité ou d'autres commandes comme \textschwa :

\textipa{a} \textipa{E} \textturna \textschwa

Si la manipulation du package tipa est assez intuitive pour une utilisation basique, certains symboles de l'API sont plus délicats à obtenir ; heureusement la documentation est exhaustive et liste l'ensemble des symboles (à partir de la page 36).

vowel

L'environnement vowel est fourni par le package vowel proposé avec tipa. Il permet de créer des triangles et trapèzes vocaliques hautement « configurables ». Voici un exemple tiré de la documentation du package :

\begin{vowel} \putcvowel[l]{i}{1} \putcvowel[r]{y}{1} \putcvowel[l]{e}{2} \putcvowel[r]{\o}{2} \putcvowel[l]{\textepsilon}{3} \putcvowel[r]{\oe}{3} \putcvowel[l]{a}{4} \putcvowel[r]{\textscoelig}{4} \putcvowel[l]{\textscripta}{5} \putcvowel[r]{\textturnscripta}{5} \putcvowel[l]{\textturnv}{6} \putcvowel[r]{\textopeno}{6} \putcvowel[l]{\textramshorns}{7} \putcvowel[r]{o}{7} \putcvowel[l]{\textturnm}{8} \putcvowel[r]{u}{8} \putcvowel[l]{\textbari}{9} \putcvowel[r]{\textbaru}{9} \putcvowel[l]{\textreve}{10} \putcvowel[r]{\textbaro}{10} \putcvowel{\textschwa}{11} \putcvowel[l]{\textrevepsilon}{12} \putcvowel[r]{\textcloserevepsilon}{12} \putcvowel{\textsci\ \textscy}{13} \putcvowel{\textupsilon}{14} \putcvowel{\textturna}{15} \putcvowel{\ae}{16} \end{vowel}

Vous trouverez ici un ECM (nécessitant cependant les packages longtable et array) présentant un corpus de transcription de mots en alphabet phonétique international ; les exemples d'utilisation de vowel viennent de la documentation du package.

gb4e

Brice Boucard — 2011-08-14T16:47:00Z

Le package gb4e permet de présenter les exemples sous forme de listes ordonnées à la gestion fine, la possibilité d'indiquer un «  jugement  » et celle d'utiliser les commandes \label et \ref.

Pour la gestion des exemples sous LaTeX, consulter cette page du site LaTeX4Ling (ils présentent, outre gb4e, l'extension covington).

Nous allons voir ici l'utilisation basique de ce package ; pour plus détails, consulter la documentation présente dans l'archive.

Voici un exemple basique :

\begin{exe} \ex\label{adjv} He fucking told us that \ldots \ex\label{adja} I'm fucking tired. \end{exe} \begin{exe} \ex \begin{xlist} \ex Il a foutrement maltraité cet enfant. \ex Il parle sacrément pour un si jeune enfant. \end{xlist} \ex He fucking told us that he was happy. \ex \begin{xlist} \ex Il est foutrement fatigué. \ex Il semble sacrément amoché. \end{xlist} \ex He seems fucking tired. \end{exe}

Il est possible de sélectionner la numérotation des listes apparaissant dans l'environnement xlist, en rajoutant au nom de l'environnement le symbole que l'on souhaite parmi ceux-ci : a (alphabétique), A (Alphabétique), i (romain), I (Romain), n (numérique). De plus il est possible d'ajouter des « jugements » ainsi que des renvois grâce aux commandes \label et \ref. Voici un exemple :

Dans l'exemple \ref{adjv}... tandis qu'en \ref{adja}... Eh c'est quoi ces exemples en \ref{wtf} (\ref{wtf1} et \ref{wtf2}) ? \begin{exe} \ex\label{fradv} \begin{xlista} \ex Il a foutrement maltraité cet enfant. \begin{xlistI}\label{wtf} \ex\label{wtf1}[??]{Blabla.... blabla} \ex\label{wtf2}[*]{Blobla bliblo} \end{xlistI} \ex Il parle sacrément pour un si jeune enfant. \end{xlista} \ex[?]{He fucking told us that he was happy.} \ex \begin{xlist} \ex Il est foutrement fatigué. \ex Il semble sacrément amoché. \end{xlist} \ex He seems fucking tired. \end{exe} \begin{exe} \ex\label{adjv} He fucking told us that \ldots \ex\label{adja} I'm fucking tired. \end{exe}

Bloc texte avec bordure

Brice Boucard — 2011-08-13T14:38:00Z

Un environnement permettant de créer un bloc de texte dont on peut faire varier la largeur avec une barre verticale à gauche à l'épaisseur modifiable bien évidemment.

Code proposé par François Pétiard et Jean-Côme Charpentier sur fr.comp.text.tex.

À noter que cet environnement nécessite le package framed (ainsi que, pour l'exemple seulement, lipsum pour le faux texte).

Voici un ECM :

\documentclass{article} % \usepackage[T1]{fontenc} % \usepackage[latin1]{inputenc} % \usepackage[a4paper]{geometry} % \usepackage{lmodern} \usepackage{framed} \usepackage{lipsum} % \usepackage[frenchb]{babel} \newenvironment{barregauche}{% % ajout pour une marge droite augmentée \par \addtolength{\hsize}{-1cm}% % fin de l'ajout \renewcommand\FrameCommand{% \hspace*{1cm}% \vrule width 1pt \hspace{10pt}% }% \MakeFramed{% \addtolength{\hsize}{-\width}% \FrameRestore } }% {\endMakeFramed} \begin{document} \lipsum[1] \begin{barregauche} \lipsum[1-4] \end{barregauche} \lipsum[1] \end{document}

Décompte automatique des mots dans un tableau LaTeX

Brice Boucard — 2011-08-12T14:30:00Z

Pour mon mémoire de Master Recherche Sciences du langage, il me fallait, à partir d'une transcription, faire une analyse du capital verbal, ce qui impliquait compter les mots de chaque intervention. N'étant plus à convaincre de la puissance de LaTeX, je me suis dit que ce devait être possible d'automatiser une telle tâche.

Après quelques recherches infructueuses, je poste sur le groupe francophone de discussions dédié à TeX et LaTeX (voir la discussion ici) et très rapidement mpg (Manuel Pégourié-Gonnard) prend les choses en main et très vite propose le code pour faire ce qui va bien.

Fonctionnement grossier : on calcule pour chaque ligne (sauf celle qui ne commence pas par un numéro) le nombre de mots de la troisième colonne du tableau (en éliminant le texte apparaissant en italique [\emph{}] ainsi que les mots en capitales) puis on remplit la quatrième colonne. Voici ce que cela donne :

Vous trouverez ci-dessous le code fourni par mpg et là le fichier comprenant le code de mpg ainsi que la transcription du corpus ; n'attendez pas de moi que je vous explique comment cela fonctionne...

\makeatletter % Registres, booléens et marqueurs. \newtoks\PT@table % le corps du tableau \newtoks\PT@data % les données : nb de mots par ligne + locuteur \newif\ifPT@four@ % ajouter une quatrième colonne ? \newcount\PT@count % pour les stats \newcommand\EndProcessTable{% \PT@EndProcessTable} % Manipulation des registres. \newcommand\PT@table@add[1]{% \PT@table\expandafter{\the\PT@table#1}} \newcommand\PT@data@add[1]{% \PT@data\expandafter{\the\PT@data#1}} % Décompte des mots (via les espaces) à proprement parler. \edef\PT@twospaces{\space\space} % deux lexèmes espace \shorthandon{;:?!} % pour avoir les même \catcode que dans le document \newcommand\PT@count@words{% % on commence par éliminer les trucs qui font foirer la supposition % de base que (nb mots = nb espaces + 1)... \Substitute*[\def\PT@temp]{\PT@temp}{ ;}{}% \Substitute*[\def\PT@temp]{\PT@temp}{ :}{}% \Substitute*[\def\PT@temp]{\PT@temp}{ ?}{}% \Substitute*[\def\PT@temp]{\PT@temp}{ !}{}% % la ligne suivante compte les espaces restants \Substitute*{\PT@temp}{ }{}% \advance\ted@count\@ne} % mots = espaces + 1 \shorthandoff{;:?!} % plus besoin des \catcode spéciaux % La macro précedente suppose qu'il n'y a d'espace ni au début ni à la fin : % c'est potentiellement faux, il faut donc s'en assurer auparavant. \newcommand\PT@strip@spaces{% % prépare le terrain pour \PT@strip@ \expandafter\expandafter\expandafter\PT@strip \expandafter\PT@temp\expandafter\@nil\space\@nil\@nill} \newcommand\PT@strip[1]{% % enlève les éventuels espaces initiaux \PT@strip@#1} \@ifdefinable\PT@strip@\relax \def\PT@strip@#1 \@nil#2\@nill{% % enlève les éventuels espaces finaux \ifx#2\empty\empty \PT@strip@@#1% \else \def\PT@temp{#1}% \fi} \@ifdefinable\PT@strip@@\relax \def\PT@strip@@#1\@nil{% \def\PT@temp{#1}} % Nettoyage : on enlève les commandes de « commentaires » et leurs arguments. % Utilise un \xdef protégé, ce qui suppose que tout est robuste... % nettoyage proprement dit \newcommand*\PT@cleanup[1]{% \begingroup \PT@do@comments \protected@xdef\PT@temp{#1}% \endgroup % on pourrait avoir 2 espaces de suite suite à supression de commande \Substitute**[\def\PT@temp]{\PT@temp}{\PT@twospaces}{\empty}% \PT@strip@spaces} % initialisation (cf plus bas pour les réglages) \newcommand\PT@do@comments{} % Boucle de traitement principale. \newcommand\ProcessTable{% \PT@table{}% \PT@data{}% \PT@cell@one} % traitement de la première cellule : il y a pas mal de cas à détecter \newcommand\PT@cell@one[1]{% \let\PT@next\PT@nextline \ifcat\noexpand#1\relax % détecte les séquences de contrôle \ifx#1\EndProcessTable % regarde si on a fini \let\PT@next\PT@finish \else \PT@if@interline{#1}{\let\PT@next\PT@gobble@interln}% \fi \else \ifnum`#1<58 % truc moche pour voir si #1 est un chiffre \ifnum`#1>47 \let\PT@next\PT@cell@one@ \fi \fi \fi \PT@next#1} % détection des inter-lignes comme \midrule (liste dans \PT@interliners) \newcommand\PT@if@interline[2]{% % pour l'instant \def\PT@temp##1#1##2\@nil{% \ifx\empty##2\empty \else #2\fi}% \expandafter\PT@temp\PT@interliners#1\@nil} % initialisation (réglage voir plus bas) \newcommand\PT@interliners{} % traitement des inter-lignes \newcommand\PT@gobble@interln[1]{% \PT@table@add{#1}% \PT@cell@one} % lignes ne commençant pas par un chiffre : on passe \def\PT@nextline#1\tabularnewline{% \PT@table@add{#1\tabularnewline}% \PT@cell@one} % lignes à traiter, cellule par cellule \def\PT@cell@one@#1&{% \PT@table@add{#1&}% \PT@data@add{\PT@line{#1}}% \PT@cell@two} % cellule deux : on assainit les espaces avant d'enregistrer le nom \def\PT@cell@two#1&{% \PT@table@add{#1&}% \def\PT@temp{#1}\PT@strip@spaces \expandafter\PT@data@add\expandafter{\expandafter{\PT@temp}}% \PT@cell@three} % traitement de la dernière cellule et bouclage \def\PT@cell@three#1\tabularnewline{% \PT@table@add{#1}% \PT@cleanup{#1}\PT@count@words \expandafter\PT@data@add\expandafter{\expandafter{\the\ted@count}}% \ifPT@four@ \expandafter\PT@table@add\expandafter{\expandafter&\the\ted@count}% \fi \PT@table@add{\tabularnewline}% \PT@cell@one} % en fin de boucle, avaler le délimiteur de fin \def\PT@finish\EndProcessTable{} % Récupération des données par l'utilisateur. % composer le tableau obtenu \newcommand\PrintTable{% \def\PT@next{\begin{TableEnv}}% \expandafter\PT@next\the\PT@table \end{TableEnv}} % macro utilisateur : ajuste les bornes (< \to \leq) avant tout \newcommand\GetStats[2]{% \edef\PT@temp{\noexpand\PT@get@stats{% \number\numexpr#1-1\relax}{\number\numexpr#2+1\relax}}% \PT@temp} % chope vraiment les stats \newcommand\PT@get@stats[3]{% \def\PT@name{#3}% \PT@count\z@ \let\PT@line\PT@line@check \def\PT@line@##1##2##3{% \ifnum##1>#1 \ifnum##1<#2 \def\PT@temp{##2}% \ifx\PT@temp\PT@name \advance\PT@count##3\relax \fi \fi \fi}% \the\PT@data \the\PT@count} % faire gaffe aux éventuels numéros comme 30b \newcommand\PT@line@check[1]{% \PT@line@checkb#1b\@nil} \def\PT@line@checkb#1b#2\@nil{% \PT@line@{#1}} % Macros de gestion pour l'utilisateur % ajout de « commentaires » \newcommand*\PTAddComment[2]{% \ifcase#2 \g@addto@macro\PT@do@comments{\let#1\empty}% \or \g@addto@macro\PT@do@comments{\let#1\@gobble}% \or \g@addto@macro\PT@do@comments{\let#1\@gobbletwo}% \or \g@addto@macro\PT@do@comments{\let#1\@gobblethree}% \or \g@addto@macro\PT@do@comments{\let#1\@gobblefour}% \fi} % choix du traitement \newcommand\PTNoFourthColumn{% \def\PTColumns{3}\PT@four@false} \newcommand\PTFourthColumn{% \def\PTColumns{4}\PT@four@true} \PTFourthColumn % par défaut % ajout de macros inter-lignes \newcommand*\PTAddInterLiners{% \g@addto@macro\PT@interliners} \makeatother % % Partie utilisateur. Son job consiste à : % - définir l'environnement TableEnv pour le tableau final ; % - signaler ses macros de « commentaires » à ignorer ; % - s'assurer que ses autres macros soient robustes ou protégées ; % - signaler les trucs entre les lignes (\midrule, etc) ; % - choisir si une quatrième colonne est ajoutée (oui par défaut). % \newlength\coli \newlength\colii \newlength\coliii \settowidth\coli{\ttfamily 000b} \settowidth\colii{\slshape (Procureur)} \setlength\coliii{\textwidth - 2\coli - \colii - 3\arraycolsep - 33pt} \newcolumntype{y}{>{\ttfamily\raggedleft}p{\coli}} \newcolumntype{x}{>{\slshape}p{\colii}} \newcolumntype{z}{>{\rmfamily\footnotesize\raggedleft}m{\coli}} % c'est là-dedans que sera composé le tableau une fois traité \newenvironment{TableEnv}{% \par\noindent \begin{longtable}{yxp{\coliii}z}% }{% \end{longtable}} % doit être cohérent avec le choix ci-dessous... % \PTNoFourthColumn \newcommand\comm{\MakeUppercase} % les commandes dont le contenu est à ignorer, et leur nb d'arguments \PTAddComment{\emph}{1} \PTAddComment{\comm}{1} \PTAddComment{\footnote}{1} \PTAddComment{\footnotemark}{1} % nécéssite fixltx2e \MakeRobust\underline % trucs entre les lignes \PTAddInterLiners{\toprule\midrule\bottomrule}