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.