[Voiceglue] More on UTF-8
emiliano esposito
emiespo at tiscali.it
Mon Jan 26 07:32:59 EST 2009
Carlos Alarcón ha scritto:
> I forgot to tell you in previous mail. If I remove the (require
> 'speech-dispatcher) from festival.scm festival works and starts either
> as server or in interactive mode.
> When I have (require 'speech-dispatcher) in festival.scm festival
> stops working and complains about: "SIOD ERROR: unbound variable :
> token_to_words"
> everytime I call it
From what I've learnt so far, I suppose it might be due to the active
voice.
Anyhow, I'm actually working on a SSML -> SABLE wrapper, but I'm waiting
the new release of Voiceglue for this. Meanwhile, I'll do some
investigation on original sable-mode.scm in order to convert it to some
sort of ssml-mode.scm (since the latter one provided by freebsoft has
prosody and pitch not working).
Back to your issue, the function token_to_words is defined here (file
cap-signalization.scm):
(define-wrapper (token_to_words token name) cap-signalization
(if cap-signalization-mode
(let ((ttw* (lambda (token name)
(append (if (string-matches name "^[A-Z��������ة���ݮ].*")
;; token_to_words allows only strings and
;; symbols as feature values, so we have to use
;; capital-event, to be transformed later
(list '((name "") (capital-event "")
(event-stick-to next))))
((next-func) token name)))))
(if (string-matches name "^..*[A-Z��������ة���ݮ].*")
(let ((i 1))
(while (not (string-matches (substring name i 1)
"^[A-Z��������ة���ݮ].*"))
(set! i (+ i 1)))
(append (ttw* token (substring name 0 i))
(token_to_words
token
(substring name i (- (length name) i))
(next-func))))
(ttw* token name)))
((next-func) token name)))
At the beginning, it is requiring two other files:
(require 'util)
(require 'oo)
So you could enter Festival in interactive mode, activate backtrace (see
festival manual), issue "(require 'cap-signalizatio)" and investigate on
why it's not working.
More information about the Voiceglue
mailing list