[cstex] Nacteni radku do parametru makra v ConTeXtu
Jaroslav Hajtmar
hajtmar at gyza.cz
Sat Dec 12 14:19:46 CET 2009
Dobry den.
Vubec netusim, jak je to v ConTeXtu s aktivnimi znaky, i kdyz mam pocit,
ze neco na to tema jednou v konfere probehlo.
Priklad z TBN je nasledujici:
\newcount\tempnum
{\catcode`\^^M=13 % budeme pracovat s koncem r(ádku "^^M"
\gdef\tabulka{\bgroup \catcode`\^^M=13 \let^^M=\jedenradek}%
\gdef\jedenradek #1^^M{\def\temp{#1}%
\ifx \temp\posledniradek \def\next ##1 ^^M {\konectab}%
\else \message{Dals(í r(ádek:}%
\tempnum=0 \let\next=\polozka %
\fi \next #1 ^^M }%
\gdef\poslednipolozka{^^M} \gdef\posledniradek{\konectabulky}%
}
\def\polozka #1 {\advance\tempnum by 1 \def\temp{#1}%
\ifx \temp\poslednipolozka \let\next=\jedenradek
\else \message{údaj c(. \the\tempnum: #1.}%
\fi \next}
\def\konectab{\egroup}
\tabulka
11 112 15 18
32 4 9 15 17 27
142 17 321 92 141
\konectabulky
Nicmene tento priklad v ConTeXtu nefunguje ... resp. kompilace jakoby
probehne do konce, ale vysledne PDFko se nevytvori.
Prubeh kompilace je nasledujici:
TeXExec | processing document 'pokus1.tex'
TeXExec | no ctx file found
TeXExec | tex processing method: context
TeXExec | TeX run 1
TeXExec | writing option file pokus1.top
TeXExec | using randomseed 1206
TeXExec | tex engine: pdftex
TeXExec | tex format: cont-en
This is pdfTeXk, Version 3.1415926-1.40.9 (Web2C 7.5.7)
%&-line parsing enabled.
(c:/Program Files/texlive/2008/texmf/web2c/natural.tcx)
entering extended mode
(./pokus1.tex
ConTeXt ver: 2009.07.17 17:23 MKII fmt: 2009.7.22 int: english/english
system : cont-new loaded
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/cont-new.tex
systems : beware: some patches loaded from cont-new.tex
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/cont-new.mkii))
system : cont-fil loaded
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/cont-fil.tex
loading : ConTeXt File Synonyms
)
system : cont-sys.rme loaded
(c:/Program Files/texlive/2008/texmf-dist/tex/context/user/cont-sys.rme
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/type-tmf.tex
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/type-tmf.mkii))
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/type-siz.tex
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/type-siz.mkii))
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/type-one.tex
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/type-one.mkii)))
system : pokus1.top loaded
(./pokus1.top)
bodyfont : 12pt rm is loaded
language : patterns nl->texnansi:texnansi->1->2:2
nl->ec:ec->2->2:2 us->
ec:ec->3->2:3 de->texnansi:texnansi->4->3:3 de->ec:ec->5->3:3
da->ec:ec->6->2:2
sv->ec:ec->7->2:2 gb->ec:ec->8->2:2 fr->texnansi:texnansi->9->2:2
fr->ec:ec->1
0->2:2 es->ec:ec->11->2:2 ca->ec:ec->12->2:2
it->texnansi:texnansi->13->2:2 it-
>ec:ec->14->2:2 la->ec:ec->15->2:2 pt->texnansi:texnansi->16->2:2
pt->ec:ec->17
->2:2 ro->ec:ec->18->2:2 pl->pl0:pl0->19->2:2 pl->ec:ec->20->2:2
pl->qx:qx->21-
>2:2 cs->il2:il2->22->2:2 cs->ec:ec->23->2:2 sk->il2:il2->24->2:2
sk->ec:ec->25
->2:2 hr->ec:ec->26->2:2 sl->ec:ec->27->2:2 tr->ec:ec->28->2:2
agr->agr:agr->30
->2:2 fi->ec:ec->31->2:2 hu->ec:ec->32->2:2 ru->t2a:t2a->34->2:2
uk->t2a:t2a->3
5->3:3 loaded
specials : dvips loaded
systems : system commands are disabled
language : language en is active
specials : loading definition file tpd
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/spec-tpd.mkii
specials : loading definition file fdf
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/spec-fdf.mkii))
regime : regime cp1250 is loaded
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/regi-cp1250.mkii)
(./pokus1.tuo) (./pokus1.tuo) (./pokus1.tuo) (./pokus1.tuo) (./pokus1.tuo)
(./pokus1.tuo) (./pokus1.tuo) (./pokus1.tuo) (./pokus1.tuo) (./pokus1.tuo)
(./pokus1.tuo) (./pokus1.tuo)
systems : begin file pokus1 at line 23
Dal\dochar {178}\dochar {237} \dochar {176}\dochar {225}dek:
\dochar {250}daj \dochar {163}. 1: 11. \dochar {250}daj \dochar {163}.
2: 112.
\dochar {250}daj \dochar {163}. 3: 15. \dochar {250}daj \dochar {163}.
4: 18.
Dal\dochar {178}\dochar {237} \dochar {176}\dochar {225}dek:
\dochar {250}daj \dochar {163}. 1: 32. \dochar {250}daj \dochar {163}. 2: 4.
\dochar {250}daj \dochar {163}. 3: 9. \dochar {250}daj \dochar {163}. 4: 15.
\dochar {250}daj \dochar {163}. 5: 17. \dochar {250}daj \dochar {163}.
6: 27.
Dal\dochar {178}\dochar {237} \dochar {176}\dochar {225}dek:
\dochar {250}daj \dochar {163}. 1: 142. \dochar {250}daj \dochar {163}.
2: 17.
\dochar {250}daj \dochar {163}. 3: 321. \dochar {250}daj \dochar {163}.
4: 92.
\dochar {250}daj \dochar {163}. 5: 141.
systems : end file pokus1 at line 33
system : cont-err loaded
(c:/Program Files/texlive/2008/texmf-dist/tex/context/base/cont-err.tex
systems : no file 'cont-sys.tex', using 'cont-sys.rme' instead
) )
No pages of output.
Transcript written on pokus1.log.
TeXUtil | parsing file pokus1.tui
TeXUtil | shortcuts : 0
TeXUtil | expansions: 0
TeXUtil | reductions: 0
TeXUtil | divisions : 0
TeXUtil | loaded files: 1
TeXUtil | temporary files: 0
TeXUtil | commands: 8
TeXUtil | programs: 0
TeXUtil | tuo file saved
TeXExec | runtime: 1.462
Robert Marik napsal(a):
> Je ten konec radku nastaven jako aktivni, tak jak je to v TBN? Je
> ptoreba aby ho input procesor nezmenil na mezeru (nebo neco takoveho,
> TBN ted nemam poruce).
>
> Pekny den. R.M.
>
> 2009/12/12 Jaroslav Hajtmar <hajtmar at gyza.cz>:
>
>> Dobry den.
>>
>> Nevite prosim nekdo, jak nacist cely radek (az do znaku crlf) do parametru
>> makra?
>>
>> Priklad:
>>
>>
>>
>> \def\jedenradek #1\\{Nacteny radek je: #1 \par}
>>
>> \starttext
>> \jedenradek Prvni radek\\
>> \jedenradek Druhy radek\\
>> \jedenradek Treti radek\\
>> \stoptext
>>
>>
>> Nyni bych ale potreboval tohle:
>>
>> \def\jedenradek #1<crlf>{Nacteny radek je: #1 \par}
>>
>> \starttext
>> \jedenradek Prvni radek
>> \jedenradek Druhy radek
>> \jedenradek Treti radek
>> \stoptext
>>
>> <crlf> je nejaka sekvence, kterou bere ConTeXt jako znak konce radku.
>> Zkousel jsem ^^M apod. dle TBN, ale nedari se mi to vyresit ani vygooglovat.
>>
>> To co jsem napsal a potrebuju resit, je jen jakysi minimalni priklad,
>> normalne bych mohl sice cely zdrojovy text preznackovat a dat na konci radku
>> nejake ukoncovaci znaky, ale ty puvodni zdrojaky se mi nechce cele kvuli
>> tomu preznackovavat (byt by to slo v nejakem editoru i pomerne rychle
>> udelat) - chci stavajici zdrojak zachovat.
>>
>> DIky a jsem s pozdravem
>>
>> Jarda Hajtmar
>>
>>
>> _______________________________________________
>> csTeX mailing list
>> csTeX at cs.felk.cvut.cz
>> http://lists.felk.cvut.cz/mailman/listinfo/cstex
>>
>>
> _______________________________________________
> csTeX mailing list
> csTeX at cs.felk.cvut.cz
> http://lists.felk.cvut.cz/mailman/listinfo/cstex
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20091212/0312b104/attachment-0003.html>
More information about the csTeX
mailing list