Export+zobrazeni_zdrojoveho_kodu

[Zdenek Wagner]

On Wed, 26 Jun 2002, krumpha wrote:

> Dobry den.
>
> Mohl by mi nekdo poradit s nasledujicim problemem? Vytvoril jsem
> optimalizacni soft. knihovnu, jejiz popis(a vypis) ma byt soucasti diz.
> prace psane v LaTeXu. Chtel bych, aby po kompilaci dizertacky do .dvi
> vznikl i soubor se zdrojovym kodem popisovane knihovny. Makro \WriteToFile
> dobre uklada v nezmene forme text(kod) az do zarazky definovane v
> \endofps, ale kod bohuzel nezobrazi. Lze nejakou modifikaci tohoto
> makra soucasne zobrazit kod jako v prostredi verbatim? Uvitam i jine
> reseni.
>
Da se, mozna po nejakych upravach, pouzit cweb, fweb, noweb, nuweb nebo
podobny nastroj, ale na to se melo myslet na zacatku vyvoje. Pouziti "ex
post" by asi bylo prilis pracne. Spis bych se zamyslel, jestli nejde
vyuzit ltxdoc a docstrip nebo XML.

> S pozdravem
>
> Jiri Krumphanzl
>
> Czech Technical University
> Faculty of Electrical Engineering
> Department of Electroenergetics
> Technicka 2, 166 27 Praha 6
>
> -----------------------------------
>
> \documentclass{report}
>
> \newcommand{\OpenNewFile}[1]{\newwrite\out  \immediate\openout\out=#1}
> \newcommand{\CloseFile}[0]{\immediate\closeout\out}
>
> \def\endofps{EndOfTheIncludedSourceCodeMagicCookie}
>
> \chardef\other=12
> \outer\def\WriteToFile{\par\medbreak
>   \copytoblankline}
>
> \def\copytoblankline{\begingroup\setupcopy\copypsline}
>
> \def\setupcopy{\def\do##1{\catcode`##1=\other}\dospecials
>   \catcode`\\=\other \obeylines}
> 	      {\obeylines \gdef\copypsline#1
> 		{\def\next{#1}%
> 		  \ifx\next\endofps\let\next=\endgroup %
> 		  \else\immediate\write\out{\next}
> \let\next=\copypsline\fi\next}}
>
> \begin{document}
>
> \OpenNewFile{./zdrojak.m}
>
> \WriteToFile
>
> ZdrojakPrvniFunkce[]:={
>   ...
> }
>
> EndOfTheIncludedSourceCodeMagicCookie
>
> \noindent Tady bude popis funkce ZdrojakPrvniFunkce[]
>
> \WriteToFile
>
> ZdrojakDruheFunkce[]:={
>   ...
> }
>
> EndOfTheIncludedSourceCodeMagicCookie
>
> \noindent Tady bude popis funkce ZdrojakDruheFunkce[]
>
> \CloseFile
>
> \end{document}
>
>
>
>
>
>

Zdenek Wagner
e-mail: wagner at mbox.cesnet.cz  or  wagner at icpf.cas.cz

see also http://www.icpf.cas.cz/wagner/
         http://icebearsoft.euweb.cz