source: trunk/documents/theses/dstn/numberparagraphs.sty @ 12309

% http://www.tex.ac.uk/cgi-bin/texfaq2html?label=subverttoks
\let\mypkg@@everypar\everypar
\newtoks\mypkg@everypar
\mypkg@everypar\expandafter{\the\everypar}
%\mypkg@@everypar{\mypkgs@ownstuff\the\mypkg@everypar}
\mypkg@@everypar{\ifdonumberparagraphs\mypkgs@ownstuff\fi\the\mypkg@everypar}

\newif\ifdonumberparagraphs
%\newif\ifsavenumberparagraphs
\donumberparagraphsfalse
\newcommand{\numberparagraphs}{\global\donumberparagraphstrue}
\newcommand{\nonumberparagraphs}{\global\donumberparagraphsfalse}

\newcounter{parcounter}[chapter]
\newcommand\thepara{\thechapter.\@arabic\c@parcounter}



\def\mypkgs@ownstuff{%
  %\ifdonumberparagraphs\marginpar{hello}\fi%
  \donumberparagraphsfalse%
  \refstepcounter{parcounter}%
  \marginpar{hello \thepara}%
  \donumberparagraphstrue%
}

\let\everypar\mypkg@everypar


% don't do it for \section...
%\let\mypkg@@section\section
%\newtoks\mypkg@section
%\mypkg@section\expandafter{\the\section}
%\mypkg@@section{\ifdonumberparagraphs\donumberparagraphsfalse\the\mypkg@section\donumberparagraphstrue\else\the\mypkg@section\fi}
%\let\section\mypkg@section

%\newcommand{\oldsection}[1]{\section{#1}}
%\renewcommand{\section}{\nonumberparagraphs\oldsection\numberparagraphs}

%\let\mypkg@@section\section
%\renewcommand{\section}[1]{\ifdonumberparagraphs%
%  \nonumberparagraphs%
%  \mypkg@@section{#1}%
%  \numberparagraphs%
%  \else%
%  \mypkg@@section{#1}%
%  \fi}

%\renewcommand{\section}[1]{\ifdonumberparagraphs%
%  \nonumberparagraphs%
%  \@ifstar\mypkg@@section*{#1}\mypkg@@section{#1}%
%  \numberparagraphs%
%  \else%
%  \@ifstar\mypkg@@section*{#1}\mypkg@@section{#1}%
%  \fi}

\usepackage{ifthen}

%\renewcommand{\section}[2]{\ifthenelse{\equal{#1}{*}}%
%  {\mysectionstar{#2}}%
%  {\mysection{#1}}%
%}

\renewenvironment{figure}{%
  \nonumberparagraphs%
  \@float{figure}}{%
  \numberparagraphs%
  \end@float}


%%% section

\let\mypkg@@section\section

\renewcommand{\section}{\@ifstar
  \mysectionstar%
  \mysection%
}

\newcommand{\mysectionstar}[1]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@section*{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@section*{#1}%
  \fi}

\newcommand{\mysection}[1]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@section{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@section{#1}%
  \fi}

%%% subsection

\let\mypkg@@subsection\subsection

\renewcommand{\subsection}{\@ifstar
  \mysubsectionstar%
  \mysubsection%
}

\newcommand{\mysubsectionstar}[1]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@subsection*{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@subsection*{#1}%
  \fi}

\newcommand{\mysubsection}[1]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@subsection{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@subsection{#1}%
  \fi}



%%% chapter, chapter*

\let\mypkg@@chapter\chapter

%\renewcommand{\chapter}[2]{\ifthenelse{\equal{#1}{*}}%
%  {\mychapterstar{#2}}%
%  {\mychapter{#1}}%
%}

%\renewcommand\chapter{\@dblarg\@mychapter}
%\newcommand\@mychapter{%
%  \@ifstar%
%  \mychapterstar%
%  \mychapter%
%}

\renewcommand{\chapter}{\@ifstar
  \@dblarg\@mychapterstar%
  \@dblarg\@mychapternostar%
}

%\def\@ifstar#1{\@ifnextchar *{\@firstoftwo{#1}}}

%\long\def\@dblarg#1{\kernel@ifnextchar[{#1}{\@xdblarg{#1}}}
%\long\def\@xdblarg#1#2{#1[{#2}]{#2}}


%\renewcommand{\chapter}{\@dblarg\@mychapterx}
%\newcommand{\@mychapterx}{\@ifstar
%  \mychapterstar%
%  \@mychapter%
%}


\comment{
\newcommand{\mychapterstar}[1]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@chapter*{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@chapter*{#1}%
  \fi}

\newcommand{\mychapter}[1]{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@chapter{#1}%
  \numberparagraphs%
  \else%
  \mypkg@@chapter{#1}%
  \fi}
}

\def\@mychapterstar[#1]#2{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@chapter*[#1]{#2}%
  \numberparagraphs%
  \else%
  \mypkg@@chapter*[#1]{#2}%
  \fi}

\def\@mychapternostar[#1]#2{%
  \ifdonumberparagraphs%
  \nonumberparagraphs%
  \mypkg@@chapter[#1]{#2}%
  \numberparagraphs%
  \else%
  \mypkg@@chapter[#1]{#2}%
  \fi}