Export+zobrazeni_zdrojoveho_kodu

[krumpha]

Dobry den.

Prisel jsem sam na reseni. Pokud by nekdo resil podobny problem, tak tady
je opravene funkcni makro, ktere uklada svuj obsah jak do souboru(viz
prilozeny priklad) tak jej zobrazi jako v prostredi verbatim.

\chardef\other=12
\outer\def\psdump{\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} %
		  \obeyspaces\tt\next\par %
		  \let\next=\copypsline\fi\next}}

(modifikace je v pridanem predposlednim radku)

S pozdravem

Jiri Krumphanzl

On Wed, 26 Jun 2002, krumpha wrote:

> Dobry den.
>
> Mozna jsem svuj problem definoval prilis krkolomne. Nicmene potrebuji
> makro, ktere udela nasledujici
>
> \begin{makro}
> radek1, mohou tu byt i @#$%^&*
> radek2
> radek3
> \end{makro}
>
> po kompilaci bude vytvoren soubor .dvi dokumentu, kde obsah bude vysazen
> ve verbatim a druhy soubor(nejaky) s obsahem
>
> radek1, mohou tu byt i @#$%^&*
> radek2
> radek3
>
> S pozdravem
>
> Jiri Krumphanzl
>
>
> On Wed, 26 Jun 2002, Zdenek Wagner wrote:
>
> > 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
> >
> >
> >
> >
> >
>
>
>
>
>