source: anr/anr.sty @ 75

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\catcode`\@=11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%{\catcode`\<=1\catcode`\>=2
%       <\catcode`\{=12\gdef\OBraceTw<{>>
%       <\catcode`\}=12\gdef\CBraceTw<}>>
%>
%\@ifundefined{specHasManual}{\let\specHasManual\relax}{}
\let\specHasManual\relax
\let\specCsgManual\relax

\def\setMacroInAuxFile#1{%
    \global\expandafter\edef\csname#1\endcsname{\name}
    \expandafter\immediate\expandafter\write\@auxout\expandafter{\expandafter\string\expandafter\gdef\expandafter\string\csname #1\endcsname{\name}}
}
\def\eoa{end-of-args}
\def\@novers#1-#2\eoa{#1}
\def\novers#1{\expandafter\@novers#1\eoa}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\let\ganttlf\relax
\newwrite\ganttdata
\immediate\openout\ganttdata=anr.gantt

\def\enable{enable}
\def\disable{disable}
\def\leader{leader}
\newenvironment{taskinfo}%
{%
\let\ALL\disable%
\let\IRISA\disable%
\let\LIP\disable%
\let\TIMA\disable%
\let\UBS\disable%
\let\UPMC\disable%
\let\ALTERA\disable%
\let\XILINX\disable%
\let\BULL\disable%
\let\THALES\disable%
\let\NAVTEL\disable%
\let\ZIED\disable%
}{%
\ifx\ALL\enable%
  \ifx\IRISA\disable\let\IRISA\enable\fi%
  \ifx\LIP\disable\let\LIP\enable\fi%
  \ifx\UPMC\disable\let\UPMC\enable\fi%
  \ifx\TIMA\disable\let\TIMA\enable\fi%
  \ifx\UBS\disable\let\UBS\enable\fi%
  \ifx\ALTERA\disable\let\ALTERA\enable\fi%
  \ifx\XILINX\disable\let\XILINX\enable\fi%
  \ifx\BULL\disable\let\BULL\enable\fi%
  \ifx\THALES\disable\let\THALES\enable\fi%
  \ifx\NAVTEL\disable\let\NAVTEL\enable\fi%
  \ifx\ZIED\disable\let\ZIED\enable\fi%
\fi%
\def\@leader{\begin{small}\textcolor{red}{lead.}\end{small}}
\def\@partner{\begin{small}\textcolor{blue}{part.}\end{small}}
\def\@IRISA{\ifx\IRISA\disable{}\else\ifx\IRISA\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@LIP{\ifx\LIP\disable{}\else\ifx\LIP\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@UPMC{\ifx\UPMC\disable{}\else\ifx\UPMC\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@TIMA{\ifx\TIMA\disable{}\else\ifx\TIMA\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@UBS{\ifx\UBS\disable{}\else\ifx\UBS\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@ALTERA{\ifx\ALTERA\disable{}\else\ifx\ALTERA\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@XILINX{\ifx\XILINX\disable{}\else\ifx\ALTERA\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@BULL{\ifx\BULL\disable{}\else\ifx\BULL\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@THALES{\ifx\THALES\disable{}\else\ifx\THALES\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@NAVTEL{\ifx\NAVTEL\disable{}\else\ifx\NAVTEL\enable{\@partner}\else{\@leader}\fi\fi}%
\def\@ZIED{\ifx\ZIED\disable{}\else\ifx\ZIED\enable{\@partner}\else{\@leader}\fi\fi}%
\begin{tabular}{|c|c|c|c|c|c|c|c|c|c|c|}\hline
\Sirisa  & \Slip  & \Stima  & \Subs  & \Supmc  & \Saltera & \Sxilinx & \Sbull  & \Sthales & \Snavtel & \Szied \\\hline
\@IRISA  & \@LIP  & \@TIMA  & \@UBS  & \@UPMC  & \@ALTERA & \@XILINX & \@BULL  & \@THALES & \@NAVTEL & \@ZIED \\\hline
\end{tabular}\par
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newenvironment{objectif}%
{\begin{description}\item[Objectives]}
{\end{description}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newcount\taskcnt\taskcnt=0
\newcount\subtaskcnt
\newcount\livrablecnt
\newenvironment{workpackage}%
{\global\advance\taskcnt1
 \global\subtaskcnt0
 \def\taskname{T\the\taskcnt}%
 \begin{description}%
 \let\itemsave\item%
 \def\item{%
    \global\advance\subtaskcnt1
    \def\subtaskname{S\taskname-\the\subtaskcnt}%
    \itemsave[\subtaskname]}}
{\end{description}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\writeganttinfo#1#2#3#4#5{{%
    \let\xcoach\relax
    \let\xcoachplus\relax
    \let\irisa\relax    \let\Sirisa\relax
    \let\lip\relax      \let\Slip\relax
    \let\tima\relax     \let\Stima\relax
    \let\ubs\relax      \let\Subs\relax
    \let\upmc\relax     \let\Supmc\relax
    \let\altera\relax   \let\Saltera\relax
    \let\xilinx\relax   \let\Sxilinx\relax
    \let\bull\relax     \let\Sbull\relax
    \let\thales\relax   \let\Sthales\relax
    \let\zied\relax     \let\Szied\relax
    \let\navtel\relax   \let\Snavtel\relax
    \immediate\write\ganttdata{%
      T=\the\taskcnt\space S=\the\subtaskcnt\space%
      D=\the\livrablecnt\space V=\vers\space%
      BM=#1 EM=#2 R=#3 PART={#4} TITLE=#5%
    }
}}
\newenvironment{livrable}%
{%
 \newcount\verscnt\verscnt=-1
 \newif\ifIsLivrableStarted\IsLivrableStartedfalse
 \newif\ifLivrableTopLine\LivrableTopLinetrue
 \def\livrableTableDef{\begin{tabular}{|c|c|c|c|p{.625\linewidth}|}\hline}
 \def\livrableTableLine##1##2##3##4{%
    \makebox[3.5em]{\begin{small}##1\end{small}} &
    \makebox[2.2em]{\begin{small}##2\end{small}} &
    \makebox[1.5em]{\begin{small}##3\end{small}} &
    \makebox[2.2em]{\begin{small}##4\end{small}} &
 }
 \def\livrableTableTopLine{%
   \livrableTableLine{number}{date}{type}{resp.} description
 }
 \livrablecnt-1
 \ifvmode\else\vspace{.75ex}\\\fi
    
 \def\itemV##1##2##3##4##5{%
    \ifIsLivrableStarted
        \global\advance\verscnt1
    \else
        \global\advance\livrablecnt1
        \global\verscnt1
    \fi
    \def\vers{V\the\verscnt}
    \global\edef\name{D\the\taskcnt\the\subtaskcnt\the\livrablecnt-\vers}%
    \writeganttinfo{##1}{##2}{none}{##4}{##5}
    \\\hline
    \ifLivrableTopLine
      \ifIsLivrableStarted\else\hline\hline\fi
    \else
      \ifIsLivrableStarted\else\end{tabular}\\\livrableTableDef\fi
    \fi
    \global\LivrableTopLinefalse
    \global\IsLivrableStartedtrue
    %\global\LivrableStartfalse
    \livrableTableLine%
        {\textsc{\name}}%
        {\textsc{T0+##2}}%
        {\textsc{##3}}%
        {\textsc{##4}}%
 }
 \def\itemL##1##2##3##4##5##6{%
    \ifIsLivrableStarted
        %\global\advance\verscnt1
    \else
        \global\advance\livrablecnt1
        %\global\verscnt1
    \fi
    \def\vers{VF}
    \global\edef\name{D\the\taskcnt\the\subtaskcnt\the\livrablecnt-\vers}%
    \writeganttinfo{##1}{##2}{##6}{##4}{##5}
    \\\hline
    \ifLivrableTopLine
      \ifIsLivrableStarted\else\hline\hline\fi
    \else
      \ifIsLivrableStarted\else\end{tabular}\\\livrableTableDef\fi
    \fi
    \global\LivrableTopLinefalse
    \global\IsLivrableStartedfalse
    %\global\LivrableStartfalse
    \livrableTableLine%
        {\textsc{\name}}%
        {\textsc{T0+##2}}%
        {\textsc{##3}}%
        {\textsc{##4}}%
 }
 \def\CoutHorsD##1##2##3##4##5{%
    \let\xcoach\relax
    \let\xcoachplus\relax
    \let\irisa\relax    \let\Sirisa\relax
    \let\lip\relax      \let\Slip\relax
    \let\tima\relax     \let\Stima\relax
    \let\ubs\relax      \let\Subs\relax
    \let\upmc\relax     \let\Supmc\relax
    \let\altera\relax   \let\Saltera\relax
    \let\xilinx\relax   \let\Sxilinx\relax
    \let\bull\relax     \let\Sbull\relax
    \let\thales\relax   \let\Sthales\relax
    \let\zied\relax     \let\Szied\relax
    \let\navtel\relax   \let\Snavtel\relax
    \immediate\write\ganttdata{%
      T=\the\taskcnt\space S=\the\subtaskcnt\space%
      D=none BM=##1 EM=##2 R=##5 PART={##3} TITLE=##4%
    }
 }
% \begin{small}
 \livrableTableDef
 \livrableTableTopLine
 %\begin{tabular}{|c|c|c|c|p{.55\linewidth}|}\hline%
 %\makebox[3.5em]{number} & \makebox[1.5em]{date} & type & resp. & description 
}
{\\\hline\end{tabular}\\%
%\end{small}\\%
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\catcode`\@=12
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%