diff -auN --binary --recursive franfest/doc/Changes.tex franfest-2006-05/doc/Changes.tex
--- franfest/doc/Changes.tex	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/doc/Changes.tex	2006-01-18 14:14:35.000000000 +0100
@@ -0,0 +1,49 @@
+%%% Project : FranFest
+%%% Version : 20060118
+%%% File : Changes.tex
+%%% Author : R. Mampey and P.L. Nageoire
+%%% Date : Wed Jan 18 13:26:31 2006
+%%% Licence : GPL
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\documentclass[12pt,a4paper]{article}
+\usepackage[latin1]{inputenc}
+\usepackage{latexsym}
+\usepackage{amssymb}
+\usepackage{amsmath}
+\usepackage{article-lorenzon}
+\usepackage{macro-lorenzon}
+\usepackage[francais,english]{babel}
+\newcommand{\french}{\selectlanguage{francais}}
+\usepackage{french-lorenzon}
+\usepackage{big-lorenzon}
+\usepackage{times}
+\usepackage{hevea}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\title{Changes in Franfest}
+\date{Jan 18 2006}
+\author{P.L. Nageoire}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\begin{document}
+\maketitle
+\french
+\begin{itemize}
+\item fr1\_mbrola.scm : franfest will be required
+  here and voice wil be proclaimed in a more
+  speech-dispatcher compatible way to avoid use of
+  supplementary code.
+
+
+\item fr2\_mbrola.scm idem
+
+\item franfest.scm suppressed (voice\_fr1\_mbrola)
+  to avoid infinite loop.
+\end{itemize}
+\end{document}
+%%% Local Variables: 
+%%% mode: latex
+%%% TeX-master: t
+%%% End: 
diff -auN --binary --recursive franfest/doc/Changes.tex~ franfest-2006-05/doc/Changes.tex~
--- franfest/doc/Changes.tex~	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/doc/Changes.tex~	2006-01-18 13:29:08.000000000 +0100
@@ -0,0 +1,46 @@
+%%% Project : FranFest
+%%% Version : 20060118
+%%% File : Changes.tex
+%%% Author : R. Mampey and P.L. Nageoire
+%%% Date : Wed Jan 18 13:26:31 2006
+%%% Licence : GPL
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\documentclass[12pt,a4paper]{article}
+\usepackage[latin1]{inputenc}
+\usepackage{latexsym}
+\usepackage{amssymb}
+\usepackage{amsmath}
+\usepackage{article-lorenzon}
+\usepackage{macro-lorenzon}
+\usepackage[francais,english]{babel}
+\newcommand{\french}{\selectlanguage{francais}}
+\usepackage{french-lorenzon}
+\usepackage{big-lorenzon}
+\usepackage{times}
+\usepackage{hevea}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\title{Changes in Franfest}
+\date{Jan 18 2006}
+\author{P.L. Nageoire}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\begin{document}
+\maketitle
+\french
+\begin{itemize}
+\item fr1\_mbrola.scm : franfest will be required
+  here and voice wil be proclaimed in a more
+  speech-dispatcher compatible way to avoid use of
+  supplementary code.
+
+
+\item fr2\_mbrola.scm idem
+\end{itemize}
+\end{document}
+%%% Local Variables: 
+%%% mode: latex
+%%% TeX-master: t
+%%% End: 
diff -auN --binary --recursive franfest/doc/auto/Changes.el franfest-2006-05/doc/auto/Changes.el
--- franfest/doc/auto/Changes.el	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/doc/auto/Changes.el	2006-01-18 14:14:35.000000000 +0100
@@ -0,0 +1,26 @@
+(TeX-add-style-hook "Changes"
+ (function
+  (lambda ()
+    (TeX-add-symbols
+     "french")
+    (TeX-run-style-hooks
+     "hevea"
+     "times"
+     "big-lorenzon"
+     "french-lorenzon"
+     "babel"
+     "francais"
+     "english"
+     "macro-lorenzon"
+     "article-lorenzon"
+     "amsmath"
+     "amssymb"
+     "latexsym"
+     "inputenc"
+     "latin1"
+     "latex2e"
+     "art12"
+     "article"
+     "12pt"
+     "a4paper"))))
+
diff -auN --binary --recursive franfest/doc/j++-pm.el franfest-2006-05/doc/j++-pm.el
--- franfest/doc/j++-pm.el	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/doc/j++-pm.el	2006-01-18 13:26:31.000000000 +0100
@@ -0,0 +1,27 @@
+;;; Project : Jabberwocky++
+;;; Version : 1.00
+;;; File : j++-pm.el
+;;; Author : P.L. Nageoire
+;;; Date : Wed Jan 18 13:26:31 2006
+;;; Licence : GPL
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(eval-and-compile (require 'j++))
+
+
+(j++-instantiate 
+ :world 'j++-wonderland
+ :prefix 'j++
+ :package (list 'packages
+		'projects)
+ :raw-name 'project-manager
+ :init 'open
+
+
+
+ :project 'nil
+ :version 'nil
+ :author 'nil
+ :dates 'nil
+ :directory "/home/devel/franfest/"
+ :licence 'nil)
\ No newline at end of file
diff -auN --binary --recursive franfest/doc/j++-pm.elc franfest-2006-05/doc/j++-pm.elc
--- franfest/doc/j++-pm.elc	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/doc/j++-pm.elc	2006-01-18 13:26:31.000000000 +0100
@@ -0,0 +1,18 @@
+;ELC
+;;; Compiled by devel@jabberwocky on Wed Jan 18 13:26:31 2006
+;;; from file /home/devel/franfest/doc/j++-pm.el
+;;; in Emacs version 21.4.1
+;;; with bytecomp version 2.85.4.1
+;;; with all optimizations.
+
+;;; This file uses dynamic docstrings, first added in Emacs 19.29.
+(if (and (boundp 'emacs-version)
+	 (< (aref emacs-version (1- (length emacs-version))) ?A)
+	 (or (and (boundp 'epoch::version) epoch::version)
+	     (string-lessp emacs-version "19.29")))
+    (error "`j++-pm.el' was compiled for Emacs 19.29 or later"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(byte-code "\300\301!\210\302\303\304\305\301\306\307\310D\311\312\313\314\315\316\317\316\320\316\321\316\322\323\324\316&\207" [require j++ j++-instantiate :world j++-wonderland :prefix :package packages projects :raw-name project-manager :init open :project nil :version :author :dates :directory "/home/devel/franfest/" :licence] 23)
diff -auN --binary --recursive franfest/festival/lib/franfest/franfest.scm franfest-2006-05/festival/lib/franfest/franfest.scm
--- franfest/festival/lib/franfest/franfest.scm	2005-07-05 20:26:25.000000000 +0200
+++ franfest-2006-05/festival/lib/franfest/franfest.scm	2006-02-09 20:13:39.000000000 +0100
@@ -1,7 +1,7 @@
 ;*************************************************************************
-; FranFest : Le Fran�çais dans Festival
+; FranFest : Le Français dans Festival
 ;
-; franfest.scm   5/7/2005
+; franfest.scm   20/2/2005
 ;
 ; Copyright (C) Roger Mampey 
 ;
@@ -9,17 +9,17 @@
 ;
 ; Licence   : GNU Public License (GPL)
 ;
-; Un projet BigLux (http://www.culte.org/projets/biglux) de synth�èse 
-; vocale destin�é en particulier aux handicap�és visuels 
-; d'apr�ès Festival, lexique.org et Lia_Phon v1.1
+; Un projet BigLux (http://www.culte.org/projets/biglux) de synthèse 
+; vocale destiné en particulier aux handicapés visuels 
+; d'après Festival, lexique.org et Lia_Phon v1.1
 ;************************************************************************/
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;;; Ajout�é par PLN Sun Apr  3 15:42:36 2005
+;;; Ajouté par PLN Sun Apr  3 15:42:36 2005
 
 (require 'ff_config)
 ;
-;                 Les phon�èmes sampa pour le fran�çais
+;                 Les phonèmes sampa pour le français
 ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defPhoneSet
@@ -96,11 +96,11 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;
-;                     R�ègles token to words
+;                     Règles token to words
 ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defvar french_abbrevs 
- '(("jan" "janvier") ("fev" "f�évrier") ("lun" "lundi"))
+ '(("jan" "janvier") ("fev" "février") ("lun" "lundi"))
 )
 
 (define (french_token_to_words token name)
@@ -136,11 +136,11 @@
 	  (item.set_feat token "token_pos" "ordinal")
 	  (builtin_french_token_to_words token denominator))
        )))))
-                                                             ; num�éros
+                                                             ; numéros
   ((and (string-matches name "No")
         (string-matches (item.feat token "n.name")
 			"[0-9]+"))
-   (list "num�éro"))
+   (list "numéro"))
                                                              ; pourcentages
   ((string-matches name ".*%$")
    (append
@@ -168,7 +168,7 @@
       month
       (list '((name ",")(pbreak_scale 0.9)))
       (builtin_french_token_to_words token year))))
-                                                             ; t�él�éphone
+                                                             ; téléphone
 
   ((string-matches name "[0-9][0-9]\\.[0-9][0-9]\\.[0-9][0-9]\\.[0-9][0-9]")
    (let ((num1 (string-before name "."))                    
@@ -220,12 +220,12 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;
-;                           Phon�étisation
+;                           Phonétisation
 ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(lts.ruleset fran�çais ; NOTA Ces r�ègles ne sont plus utilis�ées au 10/3/05
+(lts.ruleset français ; NOTA Ces règles ne sont plus utilisées au 10/3/05
    (
-    (EI e �é i)       ; �é visiblement non accept�é
+    (EI e é i)       ; é visiblement non accepté
     (AOU a o u)
     (AEIOU a e i o u)
    )
@@ -266,15 +266,15 @@
     ( [ o u ] = u )
     ( [ u n ] # = e~ )
     ( [ a ] = a )
-    ( [ �â ] = A )
-    ( [ �à ] = a )
-    ( [ �é ] = e )
-    ( [ �è ] = e )
-    ( [ �ê ] = E )
+    ( [ â ] = A )
+    ( [ à ] = a )
+    ( [ é ] = e )
+    ( [ è ] = e )
+    ( [ ê ] = E )
     ( [ e ] # =  )
     ( [ e ] = @ )
     ( [ i ] = i )
-    ( [ �î ] = i )
+    ( [ î ] = i )
     ( [ o ] = o )
     ( [ u ] = y )
 
@@ -288,12 +288,12 @@
     ( [ b ] = b )
     ( [ c ] EI = s )
     ( [ c ] AOU = k )
-    ( [ �ç ] = s )
+    ( [ ç ] = s )
     ( [ d ] = d )
     ( [ f ] = f )
     ( [ g ] EI = Z )
-    ( [ g ] �é = Z )         ; �é visiblement non accept�é
-    ( [ g ] �è = Z )         ; �è non plus
+    ( [ g ] é = Z )         ; é visiblement non accepté
+    ( [ g ] è = Z )         ; è non plus
     ( [ g ] AOU = g )
     ( [ g ] = g )
     ( [ j ] = Z )
@@ -315,24 +315,24 @@
     ( [ y ] = i ) 
     ( [ z ] # =  ) 
     ( [ z ] = z )
-    ( [ �à ] = a )
-    ( [ �â ] = a )
-    ( [ �é ] = e )
-    ( [ �è ] = e )
-    ( [ �ê ] = e )
-    ( [ �ë ] = e )
-    ( [ �î ] = i )
-    ( [ �ï ] = i )
-    ( [ �ô ] = o )
-    ( [ �ù ] = y )
-    ( [ �û ] = y )
-    ( [ �ü ] = y )
+    ( [ à ] = a )
+    ( [ â ] = a )
+    ( [ é ] = e )
+    ( [ è ] = e )
+    ( [ ê ] = e )
+    ( [ ë ] = e )
+    ( [ î ] = i )
+    ( [ ï ] = i )
+    ( [ ô ] = o )
+    ( [ ù ] = y )
+    ( [ û ] = y )
+    ( [ ü ] = y )
    )
 )
 
 (define (dura_lts_function word feats)
   "(dura_lts_function word feats)
-    Fonction appel�ée pour un mot introuvable dans le lexique."
+    Fonction appelée pour un mot introuvable dans le lexique."
    (unwind-protect
       (let (phones)
          (begin 
@@ -346,7 +346,7 @@
 
 (define (sampa_fr_addenda)
 "(sampa_fr_addenda)
- Ajoute des entr�ées au lexique courant."
+ Ajoute des entrées au lexique courant."
 
   (lex.add.entry ;;; 0x20
    '(" " n (((e s) 0) ((p a s) 1))))
@@ -405,7 +405,7 @@
   (lex.add.entry ;;; 0x5f
    '("_" n (((@ n) 1) ((d @ R) 0) ((s k o R) 1))))
   (lex.add.entry
-   '("`" n (((a~t i) 0) ((a p o s t R o f) 0))))
+   '("`" n (((a~ t i) 0) ((a p o s t R o f) 0))))
   (lex.add.entry ;;; 0x7b
    '("{" n (((a k) 1) ((g o S) 0))))
   (lex.add.entry ;;; 0x7c
@@ -414,7 +414,12 @@
    '("}" n (((a k) 1) ((d R w a t) 0))))
   (lex.add.entry ;;; 0x7e
    '("~" n (((t i l d) 1)) ((pos "K6$"))))
-  
+  (lex.add.entry
+   '("£" n (((p l y) 1) ((p @) 0) ((t i) 0) ((u) 1) ((e g a l) 0))))
+  (lex.add.entry ;;; 0xab
+   '("«" n (((g y j m E) 1) ((g o S) 0))))
+  (lex.add.entry ;;; 0xbb
+   '("»" n (((g y j m E) 1) ((d R w a) 0))))
   (lex.add.entry 
    '("\t" n (((t a b) 1))))
   (lex.add.entry 
@@ -429,6 +434,7 @@
 ; ;   (lex.add.entry '("`" punc nil))
 ; ;   (lex.add.entry '("?" punc nil))
 ; ;   (lex.add.entry '("!" punc nil))
+  (lex.add.entry '("’" punc nil))
 
   (lex.add.entry
    '("a" ? (((a) 1))))
@@ -483,34 +489,34 @@
   (lex.add.entry
    '("z" n (((z E d) 1))))
   (lex.add.entry
-   '("�à" ? (((a) 1) ((a k) 0) ((s a~) 1) ((g R a v) 1))))
+   '("à" ? (((a) 1) ((a k) 0) ((s a~) 1) ((g R a v) 1))))
   (lex.add.entry
-   '("�â" n (((a) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
+   '("â" n (((a) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
   (lex.add.entry
-   '("�é" n (((@) 1) ((a k) 0) ((s a~) 1) ((e) 0) ((g y) 1))))
+   '("é" n (((@) 1) ((a k) 0) ((s a~) 1) ((e) 0) ((g y) 1))))
   (lex.add.entry
-   '("�è" n (((@) 1) ((a k) 0) ((s a~) 1) ((g R a v) 1))))
+   '("è" n (((@) 1) ((a k) 0) ((s a~) 1) ((g R a v) 1))))
   (lex.add.entry
-   '("�ê" n (((@) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
+   '("ê" n (((@) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
   (lex.add.entry
-   '("�ë" n (((@) 1) ((t R e) 0) ((m a) 1))))
+   '("ë" n (((@) 1) ((t R e) 0) ((m a) 1))))
   (lex.add.entry
-   '("�î" n (((i) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
+   '("î" n (((i) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
   (lex.add.entry
-   '("�ï" n (((i) 1) ((t R e) 0) ((m a) 1))))
+   '("ï" n (((i) 1) ((t R e) 0) ((m a) 1))))
   (lex.add.entry
-   '("�ô" n (((o) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
+   '("ô" n (((o) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
   (lex.add.entry
-   '("�ù" n (((y) 1) ((a k) 0) ((s a~) 1) ((g R a v) 1))))
+   '("ù" n (((y) 1) ((a k) 0) ((s a~) 1) ((g R a v) 1))))
   (lex.add.entry
-   '("�û" n (((y) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
+   '("û" n (((y) 1) ((a k) 0) ((s a~) 1) ((s i R) 0) ((k o~) 0) ((f l E k s) 1))))
   (lex.add.entry
-   '("�ü" n (((y) 1) ((t R e) 0) ((m a) 1))))
+   '("ü" n (((y) 1) ((t R e) 0) ((m a) 1))))
   (lex.add.entry
-   '("�ç" n (((s e) 1) ((s e) 0) ((d i j) 1))))
+   '("ç" n (((s e) 1) ((s e) 0) ((d i j) 1))))
 
   (lex.add.entry
-   '("�à" pre (((a) 1))))
+   '("à" pre (((a) 1))))
   (lex.add.entry
    '("c" adj (((s) 1))))
   (lex.add.entry
@@ -527,6 +533,8 @@
    '("t" adv (((t) 1))))
   (lex.add.entry
    '("y" adv (((i) 1))))
+  (lex.add.entry
+   '("À" adv (((a) 1))))
 
 ;  (lex.add.entry
 ;   '("Pologne" n (((p O) 1) ((l O n j) 0))))
@@ -624,7 +632,7 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;
-;                     R�ègles post-lexicales
+;                     Règles post-lexicales
 ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (define (french_postlex_liaisons utt)
@@ -687,10 +695,10 @@
                   '("en" "les" "ils" "elles" "on" "nous" "vous" "leur"))
            (string-equal (item.feat ws "pos") "v"))
       (member (downcase (item.name w))
-             '("chez" "dans" "d�ès" "en" "sans" "sous"    ; pr�épositions
+             '("chez" "dans" "dès" "en" "sans" "sous"    ; prépositions
                "bien" "mieux" "pis" "moins" "plus"       ; adverbes
-               "tr�ès" "trop" "tout"                      ; adverbes
-               ;"fort" "quand" "non"                     ; �éventuels
+               "très" "trop" "tout"                      ; adverbes
+               ;"fort" "quand" "non"                     ; éventuels
                "quant" "dont"))                          ; obligatoires
 ))
 
@@ -744,21 +752,21 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;
-;                    Dur�ées moyennes des phon�èmes
+;                    Durées moyennes des phonèmes
 ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (set! phoneme_durations 
 '(
    (i   0.060)
    (e   0.091)
-   (E   0.091)       ; copi�ée sur e
+   (E   0.091)       ; copiée sur e
    (a   0.118)
    (A   0.173)       ; vient de aa MRPA
-   (O   0.102)       ; copi�ée sur o
+   (O   0.102)       ; copiée sur o
    (o   0.102)
    (u   0.067)
-   (y   0.067)       ; copi�ée sur u
-   (X   0.100)       ; invent�ée au pif
+   (y   0.067)       ; copiée sur u
+   (X   0.100)       ; inventée au pif
    (F   0.100)       ; idem
    (@   0.054)
    (e~  0.100)       ; idem
@@ -768,7 +776,7 @@
 
    (j   0.051)
    (w   0.066)
-   (H   0.051)       ; copi�ée sur j
+   (H   0.051)       ; copiée sur j
 
    (p   0.094)
    (t   0.073)
@@ -798,7 +806,7 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;
-;                 Param�ètres pour les voix fran�çaises
+;                 Paramètres pour les voix françaises
 ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (require 'pos)
@@ -808,33 +816,29 @@
 (define (voice_fr_mbrola voix)
 "baratin"
 
-  (Parameter.set 'Language 'fran�çais)
-                                                    ;; Phone set
+  (Parameter.set 'Language 'french) ;;; For better compatibility
+  ;;; PLN Wed Jan 25 22:24:15 2006
+  ;;; Phone set
   (Parameter.set 'PhoneSet 'sampa_fr)
   (PhoneSet.select 'sampa_fr)
-                                                    ;; Tokenization rules
+  ;;; Tokenization rules
   (set! token_pos_cart_trees ())
   (set! token_to_words french_token_to_words)
-                                                    ;; POS tagger
-
+  ;;; POS tagger
   (set! pos_lex_name nil)
   (Parameter.set 'POS_Method 'French_POS)
-                                                    ;; Lexicon selection
-
+  ;;; Lexicon selection
   (setup_dura_lex)
   (lex.select "dura")
-                                                    ;; Pauses
-  
+  ;;; Pauses
   (Parameter.set 'Pause_Method 'French_Pauses)
-                                                    ;; r�ègles post-lexicales
-
+  ;;; règles post-lexicales
   (set! postlex_rules_hooks (list french_postlex_liaisons))
 
-                                                    ;; Phrase prediction
+  ;;; Phrase prediction
   (Parameter.set 'Phrase_Method 'cart_tree)
   (set! phrase_cart_tree simple_phrase_cart_tree)
-
-                                                ;; Accent and tone prediction
+  ;;; Accent and tone prediction
   (Parameter.set 'Int_Method 'Simple)
   (set! int_accent_cart_tree simple_accent_cart_tree)
   (cond 
@@ -842,47 +846,44 @@
     ((eq? voix 'fr2) (set! int_simple_params '((f0_mean 250) (f0_std 20))))
   )
   (Parameter.set 'Int_Target_Method 'Simple)
-
-                                                      ;; Duration prediction 
-
+  ;;; Duration prediction 
   (Parameter.set 'Duration_Method 'Averages)
-
-                                  ;; Waveform synthesizer: MBROLA fr1 diphones
-
+  ;;; Waveform synthesizer: MBROLA fr1 diphones
   (set! fr_mbrola_dir 
-      (cond ((eq? voix 'fr1) (cdr (assoc 'fr1_mbrola voice-locations)))
-            ((eq? voix 'fr2) (cdr (assoc 'fr2_mbrola voice-locations)))
-      )
-  )
-
-; Il faut soit positionner MBROLA_PATH, soit ajouter un chemin �à PATH
-
+	(cond ((eq? voix 'fr1) (cdr (assoc 'fr1_mbrola voice-locations)))
+	      ((eq? voix 'fr2) (cdr (assoc 'fr2_mbrola voice-locations)))
+	      )
+	)
+  ;;; Il faut soit positionner MBROLA_PATH, soit ajouter un chemin à PATH
   (Parameter.set 'Synth_Method MBROLA_Synth)
-;   (set! mbrola_path (getenv "MBROLA_PATH"))
-;   (set! mbrola_progname (path-append mbrola_path "mbrola"))
-; (set! mbrola_database 
-;	(format 
-;	 nil
-;        "-I %s%s %s%s "
-;        fr1_mbrola_dir "fr1sampa" 
-;	 fr1_mbrola_dir "fr1" 
-;	 ))
+  ;;; (set! mbrola_path (getenv "MBROLA_PATH"))
+  ;;; (set! mbrola_progname (path-append mbrola_path "mbrola"))
+  ;;; (set! mbrola_database 
+  ;;; (format 
+  ;;; nil
+  ;;; "-I %s%s %s%s "
+  ;;; fr1_mbrola_dir "fr1sampa" 
+  ;;; fr1_mbrola_dir "fr1" 
+  ;;; ))
   (set! mbrola_database 
 	(format 
 	 nil
          "-R \"2 X 9 F 9~ F~\" -C \"_ B _ BB\" -F \"$\" %s%s "
 	 fr_mbrola_dir voix 
 	 ))
-)
+  ;;; This variable is set by the German module and will
+  ;;; be badly used by the French one.
+  ;;; PLN Wed Jan 25 22:31:15 2006
+  (set! mbrola_phonemap_tab nil))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;                     On d�éfinit la voix par d�éfaut
+;                     On définit la voix par défaut
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(voice_fr1_mbrola)
+;;; (voice_fr1_mbrola)
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Ajout�é par PLN Sun Apr  3 15:04:38 2005
+;;; Ajouté par PLN Sun Apr  3 15:04:38 2005
 
 (provide 'franfest)
\ No newline at end of file
diff -auN --binary --recursive franfest/festival/lib/voices/french/fr1_mbrola/festvox/fr1_mbrola.scm franfest-2006-05/festival/lib/voices/french/fr1_mbrola/festvox/fr1_mbrola.scm
--- franfest/festival/lib/voices/french/fr1_mbrola/festvox/fr1_mbrola.scm	2005-03-31 14:50:45.000000000 +0200
+++ franfest-2006-05/festival/lib/voices/french/fr1_mbrola/festvox/fr1_mbrola.scm	2006-01-18 13:23:24.000000000 +0100
@@ -30,12 +30,21 @@
 ;;;  THIS SOFTWARE.                                                       ;;
 ;;;                                                                       ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;; Added by PLN Wed Jan 18 13:20:43 2006
+
+(set! load-path (cons (string-append libdir "/franfest")
+		      load-path))
+(require 'franfest)
+
+;;; End
+
 (define (voice_fr1_mbrola)
 "(voice_fr1_mbrola)
  Etablit comme voix courante celle utilisant l'ensemble de diphones 
  fr1 de MBROLA."
   (voice_reset)
-
+>
   (voice_fr_mbrola 'fr1)
 
   (set! current-voice 'fr1_mbrola)
@@ -43,7 +52,8 @@
 
 (proclaim_voice
  'fr1_mbrola
- '((language français)
+ '((language french) ;;; Modified by PLN Wed Jan 18 13:22:57 2006
+   ;;; to be more speech-dispatcher compatible.
    (gender male)
    (dialect de souche)
    (description
diff -auN --binary --recursive franfest/festival/lib/voices/french/fr2_mbrola/festvox/fr2_mbrola.scm franfest-2006-05/festival/lib/voices/french/fr2_mbrola/festvox/fr2_mbrola.scm
--- franfest/festival/lib/voices/french/fr2_mbrola/festvox/fr2_mbrola.scm	2005-03-31 15:05:19.000000000 +0200
+++ franfest-2006-05/festival/lib/voices/french/fr2_mbrola/festvox/fr2_mbrola.scm	2006-01-18 13:31:00.000000000 +0100
@@ -31,6 +31,14 @@
 ;;;                                                                       ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+
+
+(set! load-path (cons (string-append libdir "/franfest")
+		      load-path))
+(require 'franfest)
+
+;;; End
+
 (define (voice_fr2_mbrola)
 "(voice_fr2_mbrola)
  Etablit comme voix courante celle utilisant l'ensemble de diphones 
@@ -44,7 +52,8 @@
 
 (proclaim_voice
  'fr2_mbrola
- '((language français)
+ '((language french) ;;; Modified by PLN Wed Jan 18 13:22:57 2006
+   ;;; to be more speech-dispatcher compatible.
    (gender female)
    (dialect de souche)
    (description
diff -auN --binary --recursive franfest/j++-pm.el franfest-2006-05/j++-pm.el
--- franfest/j++-pm.el	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/j++-pm.el	2006-04-17 21:51:26.000000000 +0200
@@ -0,0 +1,27 @@
+;;; Project : Jabberwocky++
+;;; Version : 1.00
+;;; File : j++-pm.el
+;;; Author : P.L. Nageoire
+;;; Date : Mon Apr 17 21:51:26 2006
+;;; Licence : GPL
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(eval-and-compile (require 'j++))
+
+
+(j++-instantiate 
+ :world 'j++-wonderland
+ :prefix 'j++
+ :package (list 'packages
+		'projects)
+ :raw-name 'project-manager
+ :init 'open
+
+
+
+ :project "FranFest"
+ :version "20060118"
+ :author "R. Mampey and P.L. Nageoire"
+ :dates 'nil
+ :directory "/home/devel/franfest/"
+ :licence "GPL")
\ No newline at end of file
diff -auN --binary --recursive franfest/j++-pm.elc franfest-2006-05/j++-pm.elc
--- franfest/j++-pm.elc	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/j++-pm.elc	2006-04-17 21:51:26.000000000 +0200
@@ -0,0 +1,18 @@
+;ELC
+;;; Compiled by devel@jabberwocky on Mon Apr 17 21:51:26 2006
+;;; from file /home/devel/franfest-2006-05/j++-pm.el
+;;; in Emacs version 21.4.1
+;;; with bytecomp version 2.85.4.1
+;;; with all optimizations.
+
+;;; This file uses dynamic docstrings, first added in Emacs 19.29.
+(if (and (boundp 'emacs-version)
+	 (< (aref emacs-version (1- (length emacs-version))) ?A)
+	 (or (and (boundp 'epoch::version) epoch::version)
+	     (string-lessp emacs-version "19.29")))
+    (error "`j++-pm.el' was compiled for Emacs 19.29 or later"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(byte-code "\300\301!\210\302\303\304\305\301\306\307\310D\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330&\207" [require j++ j++-instantiate :world j++-wonderland :prefix :package packages projects :raw-name project-manager :init open :project "FranFest" :version "20060118" :author "R. Mampey and P.L. Nageoire" :dates nil :directory "/home/devel/franfest/" :licence "GPL"] 23)
diff -auN --binary --recursive franfest/j++-pm.el~ franfest-2006-05/j++-pm.el~
--- franfest/j++-pm.el~	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/j++-pm.el~	2006-01-18 13:26:31.000000000 +0100
@@ -0,0 +1,27 @@
+;;; Project : Jabberwocky++
+;;; Version : 1.00
+;;; File : j++-pm.el
+;;; Author : P.L. Nageoire
+;;; Date : Wed Jan 18 13:26:31 2006
+;;; Licence : GPL
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(eval-and-compile (require 'j++))
+
+
+(j++-instantiate 
+ :world 'j++-wonderland
+ :prefix 'j++
+ :package (list 'packages
+		'projects)
+ :raw-name 'project-manager
+ :init 'open
+
+
+
+ :project "FranFest"
+ :version "20060118"
+ :author "R. Mampey and P.L. Nageoire"
+ :dates 'nil
+ :directory "/home/devel/franfest/"
+ :licence "GPL")
\ No newline at end of file
diff -auN --binary --recursive franfest/scripts/j++-pm.el franfest-2006-05/scripts/j++-pm.el
--- franfest/scripts/j++-pm.el	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/scripts/j++-pm.el	2006-04-17 19:12:22.000000000 +0200
@@ -0,0 +1,27 @@
+;;; Project : Jabberwocky++
+;;; Version : 1.00
+;;; File : j++-pm.el
+;;; Author : P.L. Nageoire
+;;; Date : Mon Apr 17 19:12:22 2006
+;;; Licence : GPL
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(eval-and-compile (require 'j++))
+
+
+(j++-instantiate 
+ :world 'j++-wonderland
+ :prefix 'j++
+ :package (list 'packages
+		'projects)
+ :raw-name 'project-manager
+ :init 'open
+
+
+
+ :project 'nil
+ :version 'nil
+ :author 'nil
+ :dates 'nil
+ :directory "/home/devel/franfest-2006-05/"
+ :licence 'nil)
\ No newline at end of file
diff -auN --binary --recursive franfest/scripts/j++-pm.elc franfest-2006-05/scripts/j++-pm.elc
--- franfest/scripts/j++-pm.elc	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/scripts/j++-pm.elc	2006-04-17 19:12:23.000000000 +0200
@@ -0,0 +1,18 @@
+;ELC
+;;; Compiled by devel@jabberwocky on Mon Apr 17 19:12:22 2006
+;;; from file /home/devel/franfest-2006-05/scripts/j++-pm.el
+;;; in Emacs version 21.4.1
+;;; with bytecomp version 2.85.4.1
+;;; with all optimizations.
+
+;;; This file uses dynamic docstrings, first added in Emacs 19.29.
+(if (and (boundp 'emacs-version)
+	 (< (aref emacs-version (1- (length emacs-version))) ?A)
+	 (or (and (boundp 'epoch::version) epoch::version)
+	     (string-lessp emacs-version "19.29")))
+    (error "`j++-pm.el' was compiled for Emacs 19.29 or later"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(byte-code "\300\301!\210\302\303\304\305\301\306\307\310D\311\312\313\314\315\316\317\316\320\316\321\316\322\323\324\316&\207" [require j++ j++-instantiate :world j++-wonderland :prefix :package packages projects :raw-name project-manager :init open :project nil :version :author :dates :directory "/home/devel/franfest-2006-05/" :licence] 23)
diff -auN --binary --recursive franfest/scripts/scr_make_patch franfest-2006-05/scripts/scr_make_patch
--- franfest/scripts/scr_make_patch	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/scripts/scr_make_patch	2006-04-22 22:18:08.000000000 +0200
@@ -0,0 +1,13 @@
+# !/bin/sh
+### Project : FranFest
+### Version : 20060118
+### File : scr_make_patch
+### Author : R. Mampey and P.L. Nageoire
+### Date : Mon Apr 17 19:12:23 2006
+### Licence : GPL
+#####################################################################
+
+cd ~/ && rm -fr franfest &&
+tar -xjf /web/usr/src/esdffm/franfest-20050705.tar.bz2 &&
+diff -auN --binary --recursive franfest franfest-2006-05 > \
+    franfest-2006-06.patch
\ No newline at end of file
diff -auN --binary --recursive franfest/scripts/scr_make_patch~ franfest-2006-05/scripts/scr_make_patch~
--- franfest/scripts/scr_make_patch~	1970-01-01 01:00:00.000000000 +0100
+++ franfest-2006-05/scripts/scr_make_patch~	2006-04-17 19:48:40.000000000 +0200
@@ -0,0 +1,13 @@
+# !/bin/sh
+### Project : FranFest
+### Version : 20060118
+### File : scr_make_patch
+### Author : R. Mampey and P.L. Nageoire
+### Date : Mon Apr 17 19:12:23 2006
+### Licence : GPL
+#####################################################################
+
+cd ~/ && rm -fr franfest &&
+tar -xjf /web/usr/src/esdffm/franfest-20050705.tar.bz2 &&
+diff -auN --binary --recursive franfest franfest-2006-05 > \
+    franfest-2006-05.patch
\ No newline at end of file
