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