From 0b083dd407478295fba7b5eec50e83a6b7fc573b Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Thu, 24 May 2007 09:03:28 +0200
Subject: [PATCH] Drobne vylepseni sazby algoritmu: \algin a \algout

---
 lecnotes.tex | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/lecnotes.tex b/lecnotes.tex
index bdbf0f1..a2fc069 100644
--- a/lecnotes.tex
+++ b/lecnotes.tex
@@ -56,30 +56,35 @@
 
 % Sazba algoritmu:
 %	\algo
+%	\algin popis vstupu
 %	\:krok
 %	\:krok
 %	\::vnoreny krok
+%	\algout pop
 %	\endalgo
 
 \def\algo{
 \interlistskip
 \begingroup
 \let\:=\algoitem
-\let\*=\algohang
 \parskip=1pt plus 1pt minus 0.3pt
 \rightskip=2em
 \itemcount=0
 }
 \def\endalgo{\interlistskip\endgroup}
-\def\algoitem{\par
+\def\algopar{\par
 \parindent=2em
 \hangindent=4em
 \hangafter=1
-\advance\itemcount by 1
-\leavevmode\hbox to 2em{\hss \the\itemcount. }%
+\leavevmode
+}
+\def\algoitem{\algopar\advance\itemcount by 1
+\hbox to 2em{\hss \the\itemcount. }%
 \futurelet\next\algoitemh}
 \def\algoitemh{\ifx\next:\let\next=\algohang\else\let\next=\relax\fi\next}
 \def\algohang:{\advance\hangindent by 2em \hskip 2em\futurelet\next\algoitemh}
+\def\algin{\:{\I Vstup:} }
+\def\algout{\:{\I Výstup:} }
 
 % Nekolikapismenkova promenna (mozno pouzit v textovem i math modu)
 \def\<#1>{\hbox{\it #1\/}}
-- 
2.39.2