Prehozeni pismen (lokalne)

[Zdenek Wagner]

On Thu, 26 May 1994 11:10:02 +0200 (MET DST) Petr Skoda said:
>Prosim vsechny TeXove kouzelniky opet o pomoc.
>Omlouvam se za takove strasne nesmysly, co si vymyslim, ale prinesl je
>sam zivot a pokud by to chodilo usetrilo by mi to spoustu rucniho
>substituovani (mozna jsem neco v TeXbooku prehledl a reseni je trivialni-
>aspon se poucim)
>Jde mi o to, jestli lze v TeXu v ramci nejakeho prestredi lokalne
>predefinovat (zamenit) 2 pismena v textu - konkretne pouziju-li
>KD rectinu a zacnu prostredi \begingreek (nebo dollar po \greekdelims)
>chci aby vse co obsahuje pismeno "s" se chovalo jako "c" a opacne -
>temto pismenum jsou prirazeny obycejna (s) a koncova (c) sigma
>a ja je mam v textu psane opacne :-(( .
>Chci reseni ciste TeXovske (substituce editorem by byly slozite pro
>nemoznost rozhodnout jsem-li v prostredi rectiny, ci ne - pro jeji uvozeni
>se pouziva mnoho ruznych znaku a text je uz napsan (cca 5 MB) v 20 souborech
>Reseni pregenerovani fontu s prohozenyni pozicemi se mi taky nelibi.
>
>Obecne by mozne reseni mohlo byt treba taky uzitecne i v normalnim textu
>- i kdyz zatim me napada jenom pouziti pro sifrovani daneho useku
>\encode{ bla bla bla } by udelalo lba lba lba  , pokud by bylo prohozeno
>"l" a "b".
>
>Dekuji za pochopeni meho zmateneho zadani a pripadna reseni
>
>
>*************************************************************************
>*  Petr Skoda                         Tel   : (0204) 85201, l. 361      *
>*  Stelarni oddeleni                          (0204) 857361, 857136     *
>*  Astronomicky ustav AVCR            Fax   : (02)   881611             *
>*  251 65 Ondrejov                    e-mail: skoda at sunstel.asu.cas.cz  *
>*  Ceska republika                            aststel at csearn.bitnet     *
>*************************************************************************
>
Napada me jednoduche reseni, snad je to ono...

\def\sjakoc{c}
\def\cjakos{s}
\catcode`\s=13 \catcode`\c=13
\defs{\sjakoc} \defc{\cjakos}
\catcode`\s=11 \catcode`\c=11

\def\begingreek{\begingroup
  \catcode`\s=13 \catcode`c=13
  % pripadne dalsi definice, pozor, nebude fungovat napr. \sfcode
  % protoze s i c jsou aktivni :-(...
}

Snad to bude k necemu.

,~~~/        /`               /     /|      /~~~
   /        /           |_/  /__/  ' |     /
  /     /~~/ /~~/ /~~/ /~~/ /\       | /| / /~~/ /~~/ /~~/ /~~/ /~~~
 /   , /  / /~~~ /  / /~~~ /  \      |/ |/ /  /_/  / /  / /~~~ /
 ~~~~  ~~~  ~~~ '  '  ~~~ '    `     '  '  ~~~  ~~/ '  '  ~~~ '
                              Zdenek Wagner______/

Some gateway between me and you may garble backslash. It will appear
on your screen as › due to problems with EBCDIC <--> ASCII conversion.
It has already been corrected on SOME gateways.

The domain `.cs' does no longer exist and was replaced by `.cz'.
Valid addresses are:     <wagner at csearn.bitnet>
                         <wagner at earn.cvut.cz>
                                           ^^