1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2;;; ;;; 3;;; Carnegie Mellon University ;;; 4;;; and Alan W Black and Kevin Lenzo ;;; 5;;; Copyright (c) 1998-2000 ;;; 6;;; All Rights Reserved. ;;; 7;;; ;;; 8;;; Permission is hereby granted, free of charge, to use and distribute ;;; 9;;; this software and its documentation without restriction, including ;;; 10;;; without limitation the rights to use, copy, modify, merge, publish, ;;; 11;;; distribute, sublicense, and/or sell copies of this work, and to ;;; 12;;; permit persons to whom this work is furnished to do so, subject to ;;; 13;;; the following conditions: ;;; 14;;; 1. The code must retain the above copyright notice, this list of ;;; 15;;; conditions and the following disclaimer. ;;; 16;;; 2. Any modifications must be clearly marked as such. ;;; 17;;; 3. Original authors' names are not deleted. ;;; 18;;; 4. The authors' names are not used to endorse or promote products ;;; 19;;; derived from this software without specific prior written ;;; 20;;; permission. ;;; 21;;; ;;; 22;;; CARNEGIE MELLON UNIVERSITY AND THE CONTRIBUTORS TO THIS WORK ;;; 23;;; DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ;;; 24;;; ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT ;;; 25;;; SHALL CARNEGIE MELLON UNIVERSITY NOR THE CONTRIBUTORS BE LIABLE ;;; 26;;; FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES ;;; 27;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN ;;; 28;;; AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ;;; 29;;; ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF ;;; 30;;; THIS SOFTWARE. ;;; 31;;; ;;; 32;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 33;;; 34;;; Tokenizer for US English (standard in festival distribution) 35;;; 36;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 37 38;;; Load any require files 39; None required for English 40 41;;; Voice specific token_to_word rules (you may not need to change this) 42(define (cmu_us_ksp_arctic::token_to_words token name) 43 "(cmu_us_ksp_arctic::token_to_words token name) 44Specific token to word rules for the voice cmu_us_ksp_arctic. Returns a list 45of words that expand given token with name." 46 (cond 47 ;; voice specific token to word rules 48 (t ;; when no specific rules apply do the general ones 49 (english_token_to_words token name)))) 50 51(define (cmu_us_ksp_arctic::select_tokenizer) 52 "(cmu_us_ksp_arctic::select_tokenizer) 53Set up tokenizer for US English." 54 (Parameter.set 'Language 'americanenglish) 55 56 (set! token_to_words cmu_us_ksp_arctic::token_to_words) 57) 58 59(define (cmu_us_ksp_arctic::reset_tokenizer) 60 "(cmu_us_ksp_arctic::reset_tokenizer) 61Reset any globals modified for this voice. Called by 62(cmu_us_ksp_arctic::voice_reset)." 63 ;; None 64 65 t 66) 67 68(provide 'cmu_us_ksp_arctic_tokenizer) 69