#
#	(c) Jirka Hanika <geo@ff.cuni.cz>
#       (c) Martin Petriska <petriska@pobox.sk>

$voiced    = bdďgZ®zľhv
$voiceless = pt»kcčsąxf
$fric      = sząľfvhx
$afric     = cZč®
$stop      = pbt»dďkg
$nasal     = mnňN
$sonant    = jlr$nasal
$short     = aeiouyäě
$long      = áéíóúýäě
$diphtong  = AEUOô
$vowel     = $short$long$diphtong
$consonant=$voiced$voiceless$sonant
$everywhere= !_!
$numbers   = 1234567890
$sonority  = 0'<$fric$afric${stop}<$nasal<l<rj<ŕĺ$vowel   ;l<r viz "umrlec" etc. Ani systematické, ani bezpečné.

$lower_case = aáäbcčdďeéěfghiíjklµĺmnňoóôpqrŕsąt»uúvwxyýzľ
$upper_case = AÁÄBCČDĎEÉĚFGHIÍJKLĄĹMNŇOÓÔPQRŔS©T«UÚVWXYÝZ®

# Pravidla pro čtení zkratek apod.: velké písmeno na jiném,
#   neľ prvním místě ve slově indikuje zkratku a hláskuje se.
#   Stejně tak jednotlivé písmeno před cifrou nebo speciálním znakem.
subst skratky.dic
regress	 ${lower_case}>${upper_case}(0_!${lower_case})			colon
regress  ${upper_case}>${lower_case}(0_${lower_case})			word
regress  ${upper_case}>${lower_case}(0_${lower_case})			colon
subst	 abbrevs.dic							colon
regress  ${upper_case}>${lower_case}($everywhere)			colon


#include "numerals.rul"

 subst	   main.dic		   ;Rôzne výnimky


 progress  0>s(x_!)
 progress  u0>0v(q_!)              ; Rozloľenie x,q na ks, kv
 regress   xq>k($everywhere)
 regress   h>x(c_!)                ; Spřeľka ch > x
 regress   zľ>Z®(d_!)              ; Spřeľky dz,dľ > Z,® 
 progress  cd>0(!_xZ®)
 

 regress 0>o(ô_!)
 regress ô>u($everywhere)          ;ô zatial nahradené spojením uo
 progress  w>v($everywhere)       
 
 regress v>ô($vowel_!$vowel)	   ; §74 Kral, fonema W zatial neexistuje	
 regress ô>u($everywhere)          ; takze je nahradena u

 progress ä>e($everywhere)         ; nahrada ä za e


# Následující pravidla jednak změní věty vydělené dvojtečkou
#   na věty vydělené tečkou (to je spíąe ąpatně neľ dobře),
#   dále pak označí dvojtečkou (místo otazníku) ty věty, které
#   obsahovaly ve své první klausi některé ze slov uvedených
#   ve slovníku wh.dic, neměly tuto klausi zvláą» vydělenou
#   ľádnou interpunkcí, a byly samy vyděleny otazníkem.
#
# Fonetik vidí, ľe jsem právě "definoval" doplňovací otázky.

 progress  :>.($everywhere)	text	sent
 subst     wh.dic				; Doplňovací otázky
 raise     Q:_			colon	phone
 progress  Q>_(!0_!)		sent	colon	;  jen v první klausi
 raise     Q:?			sent	colon
 progress  Q>0($everywhere)			;  úklid vąech úrovní
 progress  Q>_($everywhere)	sent	colon
 progress  Q>:($everywhere)	text	sent

 

 subst     syll.dic		; Rozsadit vokály
 
 regress   0>'(0_$vowel)	; Rázy

 


 prep	nonsyl.dic		syll






 regress   dtnl>ď»ňµ(!_íie)
  
 progress  yýě>iíe($everywhere)

 regress   z>q(t_!)		   ; tz -> c Hertz	
 progress t>0(!_q)
 regress q>c($everywhere)
 
 regress t>0(s_s)                 ;mestsky -> mesky
 regress s>0(s_!)
 
 regress s>q(Zdt_k)                  ; Zsk,tsk,dsk -> ck 	
 progress Zdt>0(!_q)                 ; § 246
 regress q>c($everywhere)

 regress s>q(»tďd_t)		   ; »st,ďst,dst,tst-> ct
 progress »tďd>0(!_q)
 regress q>c($everywhere)
  
 regress »>0(!_ď)		  ; »ď->ď devä»desiat

# regress   $voiced>${voiceless}(!_$voiceless&0')       	; Asimilace znělosti
 regress   $voiced>${voiceless}(!_$voiceless&0')  colon     	; Asimilace znělosti

 regress   $voiceless>$voiced(!_$voiced!v)       colon


 
# progress  n>N(!_kg)

 syll      $sonority	syll	; Rozklad_na_slabiky
