On Mon, Jun 26, 2006 at 06:07:36PM +0100, Enrico Zini wrote: > So, there's this problem of the empty strings, and there's also another > one, much more difficult to track down :(
Here's a proposed patch for the easier one, it makes (SayText "") work here. Hope it helps a bit. -- Niko Tyni nt...@debian.org
--- italian_module.scm 2007-01-10 16:45:00.000000000 +0200 +++ italian_module.scm-new 2009-03-20 23:14:12.000000000 +0200 @@ -85,8 +85,9 @@ ;(print "fase 2") (set! P_gr (utt.relation.first utt 'GrRespiro)) (set! S (utt.relation.first utt 'Syllable)) -(set! I (item.relation.parent P_gr 'Intonation)) -(item.append_daughter P_gr S) +(if P_gr + ((set! I (item.relation.parent P_gr 'Intonation)) + (item.append_daughter P_gr S))) (if (item.next P_gr) (set! I (item.relation.parent (item.next P_gr) 'Intonation)) ;nel caso che sia l'utimo item non fa nulla (print "fine....") @@ -294,4 +295,4 @@ -(provide 'italian_module) \ No newline at end of file +(provide 'italian_module)
