Posted By: RoboShim (ICQ #: 166 703 40) on 'CZTeX'
Title:     Re: Programovani v TeXu
Date:      Mon Dec 21 12:20:07 1998

> Takze neco takoveho (pouziju takovy pseudojazyk):
> myflg = 0;
> include{liter}
> myflg = 1;
> include{liter}
> 
> a v liter.tex by bylo neco takoveho:
> if (myflg == 0) then
>   Tento text chci vypsan
> fi
> 
> Kdyz jsem se pokousel inspirovat nejakym texovskym kodem, tak me to 
> nefungovalo :-(.

*** Zkousel jsem nasledujici:

documentclass{article}
usepackage{czech}
newififvypis % vytvori novou podminku
defvypisto#1{
%testuje podminku a kdyz je true, tak se neco vypise
ifvypis Vyp'{i}v{s}e se, kdyv{z} je podm'{i}nka splnv{e}na.
% jinak neco jineho, nebo nechat jenom fi a podminka konci
else Pokud podm'{i}nka nen'{i} splnv{e}na.fi
par % ukonceni odstavce
input #1 % vstup ze souboru
}
begin{document}
vypisfalse % nastavi, ze vypis je false, cili neni pravda, ze ifvypis
vypisto{karel.dat}
vypistrue % nastavi, ze vypis je true, cili provede se blok v ifvypis
vypisto{karel.dat}
end{document}

v tom souboru karel.dat jsou nejaky veci

ten prikaz newif vymezuje novou podminku a prikazy vypistrue a vypisfalse 
provadi letifvypis=iftrue a letifvypis=iffalse (viz. TBN 46-53, 
konkretne 51).

Doufam, ze to bude fungovat. 

Cau.

RoboShim.