;;; Writen by Caroline Foster, 2004
;;;
;;; save the existing token rules
(defvar original_english_token_to_words english_token_to_words)

;;; add extensions, if no match then call the existing rules
(define (english_token_to_words token name)
"chat/gamer specific token extensions"
 (cond
  ((string-matches name "[Gg][Gg]") 
   (list 
    "good" "game"))
  ((string-matches name "lol")
   (list 
    "laugh" "out" "loud"))
  ((string-matches name "rot?fl")
   (list 
    "roll" "on" "the" "floor" "laughing"))
  ((string-matches name "[Rr][Tt][Ff]?[Mm]")
   (list 
    "please" "consult" "the" "manual"))
  ((string-matches name "ianal")
   (list 
    "I" "am" "not" "a" "lawyer"))
  ((string-matches name "brb")
   (list 
    "be" "right" "back"))
  ((string-matches name "cu")
   (list 
    "see" "you"))
  ((string-matches name ":-)")
   (list 
    "smile"))
  ((string-matches name ";-)")
   (list 
    "wink"))
  (t
   (original_english_token_to_words token name))))

;;; remove punctuation definitions to support emoticons
(set! token.punctuation '"")
(set! token.prepunctuation '"")

;;; choose an intonation method
(Parameter.set 'Int_Method 'Simple)
    
;;; set and select the default voice, this defines the lexicon
(set! voice_default 'voice_don_diphone)
(voice_don_diphone)

;;; add foreign or unusual words to the lexicon
;;; these entries use mrpa phones
(lex.add.entry '("razjnev" n (((r a zh) 1) ((n e v) 0))))

(provide 'siteinit)