1# 2# (c) Jirka Hanika <geo@ff.cuni.cz> 3# (c) Martin Petriska <petriska@pobox.sk> 4# Pravidla pro zpracov�n� sloven�iny 5 6$invent_dir external 7#$prosody_dir external 8#$base_dir external 9#$dph_file external 10 11 12#$inv_dph = $dph_file 13 14#$prosody = ${base_dir}/${prosody_dir} 15#$dph_file = ${base_dir}/${invent_dir}/${inv_dph} 16 17$prosody = ../czech/prosody 18 19#include "trans.rul" 20 21 inside .?:! sent ; Pochybn� - nem� zas�hnout v�ty bez interpunkce 22 { 23 prosody $prosody/accent.dic word syll 24 } 25 26 inside , colon 27 { 28 prosody $prosody/nonterm.dic colon phone 29# smooth f/5/40\35\15\5 colon syll 30 } 31 32 if irony sent 33 { 34 inside ,- colon ; tohle nefunguje rozumn� 35 { 36 prosody $prosody/ir_unter.dic colon phone 37# debug pause 38 smooth f/10/20/40\20\10 word phone 39 } 40 regress _>L(!_0) sent word 41 inside L word ; posledn� slovo 42 { 43 prosody $prosody/irony.dic word syll 44 } 45 regress L>_($everywhere) sent word 46 } 47 48 inside .:\~ sent ; N�sleduj�c� jen pro oznamovac� v�ty a dopl�ovac� ot�zky 49 { 50 inside : sent 51 { 52 prosody $prosody/wh.dic sent syll 53 } 54# prosody ${prosody}/fadeoutp.dic sent phone 55 prosody ${prosody}/fadeouts.dic sent syll 56 57 inside . sent 58 { 59 prosody $prosody/fadeoutw.dic sent word 60 } 61 62 smooth f/30/40\30 word phone 63 } 64 65 inside ? sent ; N�sleduj�c� jen pro ot�zky zji��ovac� 66 { 67 prosody $prosody/fadeoutp.dic sent phone 68 prosody $prosody/fadeoutw.dic sent word 69 70 71 regress _>L(!_0) sent word 72 inside L word ; posledn� slovo 73 { 74 regress _>L(0_0) word syll ; monosylabon 75 inside L syll 76 { 77 prosody $prosody/questend.dic syll phone 78 } 79 regress L>_($everywhere) word syll 80 smooth f/20/30\30\20 word phone 81 82 prosody $prosody/questup.dic word syll 83 smooth f/5/5/15/25/40\10 word phone 84 } 85 regress L>_($everywhere) sent word 86 87 } 88 89 inside \! sent ; V�tn� d�raz pro v�ty s vyk�i�n�kem 90 { 91 prosody $prosody/exclaim.dic sent word 92 prosody $prosody/exclafad.dic sent syll 93 } 94 95regress 0>\#(!_0) colon ; vlo�en� pausy 96 97if kadlec_dph 98 segments ../czech/kadlec.dph colon 99if !kadlec_dph 100 segments traditnl.dph colon 101 102# smooth f/10/80\10 text segment 103 104 105;-------------------- debug elem,pause text 106 107 108