1#
2#	(c) 2005 Jirka Hanika <geo@cuni.cz>
3#
4
5$voiced    = bdgvzh
6$voiceless = ptkfsx
7$aspirated = PTK
8$nasal     = mn�N
9$sonant    = jlr$nasal
10$short     = ae�iouy
11$long      = �������
12#$diphthong  = AE
13$vowel     = $short$long
14#$VOWEL     = AE�IOUY�������
15$consonant = $voiced$voiceless$sonant
16$everywhere= !_!
17$numbers   = 1234567890
18$sonority  = 0'<$voiceless$voiced<$nasal$aspirated<lrj<$vowel
19
20
21$lower_case = a��bc�d�e���fghi�jklmn�o��pqr�s�t�u���vwxy�z�
22$upper_case = A��BC�D�E���FGHI�JKLMN�O��PQR�S�T�U���VWXY�Z�
23$letter = ${lower_case}${upper_case}
24
25if	roman
26{
27	@include  "../slovak/roman.rul"
28}
29
30regress  ${upper_case}>${lower_case}($everywhere)		colon
31near 0123456789^\$+\d\-\m=/\@()[]{}&*%_'"`\\<>\#			sent phone
32{
33	@include "numerals.rul"
34}
35
36
37
38subst	   quantitas.dic
39regress  ${upper_case}>${lower_case}($everywhere)		colon
40
41near   xq		word
42{
43	if  !classical
44	{
45		if  ecclesiastical
46		{
47			regress  c>C(x_ei��y�)
48			regress  x>0(!_C)
49			regress  C>c(!_!)
50		}
51		if  !ecclesiastical
52		{
53			if  nordic
54				regress  c>0(!_ei���)
55			if  !nordic
56			{
57				regress  c>C(x_ei��y�)
58				regress  x>k(!_C)
59				regress  C>c(!_!)
60			}
61		}
62	}
63	progress  0>s(x_!)
64	progress  u>0(q_!)              ; Rozlo�en� x,q na ks, kv - dokonci se po sylabifikaci
65	regress   x>k($everywhere)
66}
67
68# N�sleduj�c� pravidla jednak zm�n� v�ty vyd�len� dvojte�kou
69#   na v�ty vyd�len� te�kou (to je sp�e �patn� ne� dob�e),
70#   d�le pak ozna�� dvojte�kou (m�sto otazn�ku) ty v�ty, kter�
71#   obsahovaly ve sv� prvn� klausi n�kter� ze slov uveden�ch
72#   ve slovn�ku wh.dic, nem�ly tuto klausi zvlṻ vyd�lenou
73#   ��dnou interpunkc�, a byly samy vyd�leny otazn�kem.
74#
75# Fonetik vid�, �e jsem pr�v� "definoval" dopl�ovac� ot�zky.
76
77 near      ?:				text	sent
78 {
79	 progress  :>.($everywhere)	text	sent
80	 subst     wh.dic				; Dopl�ovac� ot�zky
81	 raise     Q:_,			colon	phone
82	 progress  Q>_(!0_!)		sent	colon	;  jen v prvn� klausi
83	 raise     Q:?			sent	colon
84	 progress  Q>0($everywhere)			;  �klid v�ech �rovn�
85	 progress  Q>_($everywhere)	sent	colon
86	 progress  Q>:($everywhere)	text	sent
87  }
88
89 if  classical
90 {
91	regress  e>i(ao_!)
92 }
93 regress   e>�(ao_!)
94 regress   ao>0(!_�)
95 regress   ��>�e($everywhere)
96
97 if     handle_vocalic_groups
98 {
99	regress   iu>jv(0$vowel_$vowel)
100	regress   i>j($vowel!i�_0)   syll
101	subst     syll.dic		; Rozsadit vok�ly
102	regress   0>'(0_$vowel)	; R�zy
103 }
104
105
106
107
108 if  ecclesiastical
109 {
110	regress   0>d(!d_z)
111 }
112
113 if  classical
114 {
115	regress   c>k($everywhere)
116	regress   g>G($everywhere)
117 }
118 if  !classical
119 {
120	regress   c>k(!_!ei��y)
121	regress   g>G(!_!ei��yn)
122
123	regress   p>F(!_h)
124	regress   h>0(F_!)
125
126	regress   h>0(tk_!)
127 }
128 if   ecclesiastical
129 {
130	regress   c>�($everywhere)
131	regress   �>�(s_!)
132	progress  s>0(!_�)
133	progress  k>�(!_�)
134	regress   g>�(!_n)
135	regress   n>0(�_!)
136	regress   g>�($everywhere)
137 }
138 if   nordic
139 {
140	regress   c>s($everywhere)
141 }
142 regress   FG>fg($everywhere)
143
144
145 regress   i�>I�(t_${vowel})
146 regress   t>c(${vowel}_I�)
147 regress   I�>i�($everywhere)
148
149 regress   $voiced>${voiceless}(!_$voiceless&0')       	; Asimilace zn�losti
150 regress   ptk>bdg(!_$voiced!hv)       colon
151
152 progress  y>i($everywhere)
153
154 progress  n>N(!_kg)
155 progress  g>0(N_!)
156 progress  ptk>PTK(!_h)
157 progress  h>0(PTKr_!)
158 if  form_syllables
159 {
160	syll      $sonority	syll	; Rozklad_na_slabiky
161 }
162 progress 0>h(PTK_!)
163 progress PTK>ptk(!_!)
164 progress 0>g(N_!k)
165 progress 0>v(q_!)
166
167 if  !classical
168 {
169	 regress   b>0(!_b)	syll	; pochybn� heuristick� odstave�ek
170	 regress   n>0(!_n�)	syll	; nam��en� proti gemin�t�m
171	 regress   s>0(!_s)	syll
172	 regress   t>0(!_t)	syll
173	 regress   f>0(!_f)	syll
174 }
175
176
177 if  diphthongs
178 {
179	progress  ae>AE(!_u)	syll	; Dvojhl�sky
180	regress   u>0(AE_!)	syll
181	subst     "eum\$ e|um"
182 }
183
184 if  !voiced_affrs
185 {
186	regress   Z�>D�(!_$vowel)	; toto by m�lo p�ij�t do invent��e (traditnl.dph);
187	regress   0>d(!_D�)		; rozkl�d� se zde dz, d� (representovan� Z,�)
188	regress   D�>z�(!_!)		; na d-z, d-�, pokud n�sleduje vok�l.
189 }
190
191 if  !ecclesiastical
192 {
193	regress   g>N(!0_n)
194 }
195
196 if  classical
197 {
198	regress   h>0(i_i)
199	regress   p>f(!_f)
200	regress   b>m(!_m)
201	regress   p>c(!_c)
202	regress   b>g(!_g)
203	near      v    				syll
204	{
205		regress   0>'(0_uv)		syll
206		regress   v>u($everywhere)	phone   phone
207	        contour   t/-60    		phone   phone
208		contour   i/+50			phone   phone
209	}
210	regress  i>j(aeo_!)
211 }
212
213 if  !classical
214 {
215	regress   s>z(lr$vowel_$vowel)
216 }
217
218 regress   l>L(!_lL)
219 regress   lL>0(L_!)
220 near  L		phone
221	contour t/+60	phone	phone
222 regress   L>l(!_!)
223 regress   s>S(!_sS)
224 regress   sS>0(S_!)
225 near  S		phone
226	contour t/+40	phone	phone
227 regress   S>s(!_!)
228 regress   g>G(!_gG)
229 regress   gG>0(G_!)
230 near  G		phone
231	contour t/+20	phone	phone
232 regress   G>g(!_!)
233 regress   b>B(!_bB)
234 regress   bB>0(B_!)
235 near  B	phone
236	contour t/+20	phone	phone
237 regress   B>b(!_!)
238 regress   p>P(!_pP)
239 regress   pP>0(P_!)
240 near  P	phone
241	contour t/+20	phone	phone
242 regress   P>p(!_!)
243
244