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