--- ../pseudocode.vanilla.sty	2008-10-01 12:44:15.000000000 +0200
+++ pseudocode.sty	2008-10-29 16:28:07.000000000 +0100
@@ -57,6 +57,12 @@
 %%  \BREAK for breaking out of loops added Oct 10, 2003
 %%  \FORALL  added Oct 10, 2003
 %%
+%%  Add support for a list of algorithms:
+%%  \listof{Algorithm}{List of Algorithms}
+%%  ruben at ugr dot es, Oct 1, 2008
+%%  Add space between chapters in list of algorithms, like the rest of lists
+%%  ruben at ugr dot es, Oct 29, 2008
+%%
 %% CODE:
 \typeout{**                                           }
 \typeout{** Document Style `pseudocode' - environment }
@@ -82,6 +88,20 @@
 %
 \RequirePackage{fancybox}
 \RequirePackage{ifthen}
+\RequirePackage{float}
+
+\newfloat{Algorithm}{htb}{loa}[chapter]
+\newcommand\algchapter{\addtocontents{loa}{\protect\addvspace{10pt}}}
+
+%Adapted from http://wiki.lyx.org/Tips/ModifyChapterEtc
+\let\oldchap=\chapter
+\renewcommand*{\chapter}{%
+  \secdef{\Chap}{\ChapS}%
+}
+\newcommand\ChapS[1]{\algchapter\oldchap*{#1}}
+\newcommand\Chap[2][]{\algchapter\oldchap[#1]{#2}}
+
+
 %
 \newcommand{\pcode@AF}[1]{\mbox{\textsc{#1}}} % Algorithm font
 \newcounter{pseudocode}[section]
@@ -127,6 +147,10 @@
   {
    {\bfseries Algorithm \thepseudocode:\pcode@tab{1}}\pcode@AF{#2}($#3$)\\[2ex]
   }
+      \addcontentsline{loa}{chapter}
+      	{Algorithm \thepseudocode:\pcode@tab{1}{#2}()}
+      %	{ Algorithm \thepseudocode:\pcode@tab{1}}
+
   \noindent\begin{math}\begin{array}{@{\pcode@tab{1}}lr@{}}%
  }{}%
 }%