Dotaz: plainTeX - jak spočítat řádky na stránkách

[Jiri Tomasek]

Zdravím,

chci upravit tex soubor tak, aby spočítal řádky a znaky na stránce a nějak získaná data uchoval.

Napadlo mě, že bych mohl po vytisknutí každého tokenu testovat, zda za ním tex vytiskne nový řádek nebo novou stránku a takto jen inkrementovat příslušné hodnoty.

Takže můj dotaz zní: Jak otestuji, že tex na aktuální pozici vytiskne nový řádek/stránku? Nebo nešlo by to celé jednoduššeji?

Díky všem za odpovědi

Odpovědi

[Michal Kubeček]

TeX funguje trochu jinak, než si představujete, tedy úplně jinak, než když píšete na stroji. V okamžiku, kdy se řeší stránkový zlom, už nepracujete s jednotlivými znaky, ale s nalámanými řádky. Teoreticky byste úpravou zdrojáku TeXu mohl nějaké počítání znaků a řádků zavést, ale bylo potřeba ošetřit tolik výjimek a speciálních případů, že by to stejně nemělo valný smysl. Spíš by možná stála za úvahu dodatečná analýza DVI souboru - pro začátek zkuste dvi2tty a wc.

P.S.: jednoduše - jednodušeji

[robertK]

ty řádky na stránce by se daly spočítat ve výstupní rutině. musel byste rozebrat box 255 na řádky pomocí unpenlaty, unskip a removelastbox (nebo tak nějak, možná si ty příkazy nepamatuju přesně, je to popsáno v Texbooku naruby při popisu úpravy sazby z levého na pravý praporek).

[Jiri Tomasek]

Díval jsem se do Texbooku a mám zatím 2 nadějné postupy, zatím bohužel ani jeden nefunguje.

Zde je 1. pokus:

\newcount\tempnum
\output={%
  \global\tempnum=0
  \loop \unskip \unpenalty \setbox2=\lastbox \the\box2
     \advance\tempnum by1
  \if ?? \repeat
}

Pokouším se vždycky přečíst řádek, vypsat ho a inkrementovat \tempnum.

Ale zasekl jsem se... Jak mám ukončit ten cyklus, když už nemám odkud brát boxy?

[2. postup by využíval \prevgraf, kde, jak jsem zjistil, je po přečtení každého odstavce počet jeho řádků, ale nastal podobný problém jako u 1. řešení. Ale toto řešení je možná zbytečně složité.]

[robertK]

Je tam nejaky primitiv ifvoid, ktery testuje jestli je box prazdny

Fakt se mi to nechce zkouset, jenom bych se inspiroval makrem \toright, ktere je v Texbooku naruby na strane 265. Vzal bych ho tak jak je a pridal bych tam pocitani radku. Inkrementoval bych pro jistotu pomoci global a citac s poctem radku bych nuloval pri kazdem vyvolani output rutiny.

[Jiri Tomasek]

Tak mám 1. funkční verzi. Pořádně ale nechápu, proč se tam tolik řeší glue, asi by to šlo i nějak lépe.

\newcount\linenum
\global\linenum=0 

\output={%
  \setbox1=\vbox{%
      \unvbox255
      \skip0=\lastskip
      \unskip
      \global\setbox255=\vbox{\vskip\skip0}
      \loop \setbox0=\lastbox \skip0=\lastskip \unskip
          \advance\skip0 by\lastskip \unskip
          \advance\skip0 by\lastskip \unskip \unpenalty
          \ifhbox0 \setbox0=\hbox to\hsize{\unhbox0}
          \global\setbox255=\vbox{\vskip\skip0 \box0 \unvbox255}
          \global\advance\linenum by1
      \repeat
  }%
  \wlog{RADKU:\the\linenum}
  \global\linenum=0
  \plainoutput
}

Ještě bych se rád zeptal na tyto úseky:

\global\setbox255=\vbox{\vskip\skip0} - proč to zaručí, že bude ve výsledku všude správně glue?

\setbox1=\vbox{...} - box1 nikde nepoužívám, k čemu je tohle dobré?

A ještě nechápu, proč to tiskne vždycky o řádek víc, než má stránka ve skutečnosti. Je to proto, že to počítá i číslo stránky?

[robertK]

A ještě nechápu, proč to tiskne vždycky o řádek víc, než má stránka ve skutečnosti. 
Je to proto, že to počítá i číslo stránky?

Asi to tak bude, v tom boxuje i zahlavi a zapati. Na ostatni otazky doporucuji cz.comp.cstex.

[Jiri Tomasek]

OK, díky za všechny informace