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