mp3 example

14 files changed, 120 insertions, 2 deletions

diff --git a/examples/mp3/Lexicon.gf b/examples/mp3/Lexicon.gf
new file mode 100644
index 000000000..8d3bccaf9
--- /dev/null
+++ b/examples/mp3/Lexicon.gf
@@ -0,0 +1,6 @@
+interface Lexicon = open Structural in {
+
+  oper
+    play : TV ;
+    song : N ;
+}
diff --git a/examples/mp3/LexiconEng.gf b/examples/mp3/LexiconEng.gf
new file mode 100644
index 000000000..5b5861397
--- /dev/null
+++ b/examples/mp3/LexiconEng.gf
@@ -0,0 +1,9 @@
+instance LexiconEng of Lexicon = open StructuralEng, ParadigmsEng in {
+
+  oper
+    play = tvDir (vReg "play") ;
+    song = nReg "song" nonhuman ;
+
+    yesterday = npReg "Yesterday" ;
+
+}
\ No newline at end of file
diff --git a/examples/mp3/LexiconFin.gf b/examples/mp3/LexiconFin.gf
new file mode 100644
index 000000000..757535bbf
--- /dev/null
+++ b/examples/mp3/LexiconFin.gf
@@ -0,0 +1,9 @@
+instance LexiconFin of Lexicon = open StructuralFin, ParadigmsFin in {
+
+  oper
+    play = tvDir (vKattaa "soittaa" "soitan") ;
+    song = nRae "kappale" "kappaleena" ;
+
+    yesterday = UsePN (mkPN (nPuu "Yesterday")) ;
+
+}
\ No newline at end of file
diff --git a/examples/mp3/LexiconFre.gf b/examples/mp3/LexiconFre.gf
new file mode 100644
index 000000000..33188ca1b
--- /dev/null
+++ b/examples/mp3/LexiconFre.gf
@@ -0,0 +1,9 @@
+instance LexiconFre of Lexicon = open StructuralFre, ParadigmsFre in {
+
+  oper
+    play = tvDir (vAimer "jouer") ;
+    song = nReg "chanson" feminine ;
+
+    yesterday = mkNP "Yesterday" masculine ;
+
+}
\ No newline at end of file
diff --git a/examples/mp3/LexiconGer.gf b/examples/mp3/LexiconGer.gf
new file mode 100644
index 000000000..729a64ac8
--- /dev/null
+++ b/examples/mp3/LexiconGer.gf
@@ -0,0 +1,8 @@
+instance LexiconGer of Lexicon = open StructuralGer, ParadigmsGer in {
+
+  oper
+    play = tvDir (vWeak "spielen") ;
+    song = nBuch "lied" "lieder" ;
+
+    yesterday = npReg "Yesterday" ;
+}
\ No newline at end of file
diff --git a/examples/mp3/LexiconSwe.gf b/examples/mp3/LexiconSwe.gf
new file mode 100644
index 000000000..f4b17080f
--- /dev/null
+++ b/examples/mp3/LexiconSwe.gf
@@ -0,0 +1,9 @@
+instance LexiconSwe of Lexicon = open StructuralSwe, ParadigmsSwe in {
+
+  oper
+    play = tvDir (vKoka "spela") ;
+    song = nBil "låt" ;
+
+    yesterday = npReg "Yesterday" neutrum ;
+
+}
\ No newline at end of file
diff --git a/examples/mp3/MP3.gf b/examples/mp3/MP3.gf
new file mode 100644
index 000000000..cc4dd882a
--- /dev/null
+++ b/examples/mp3/MP3.gf
@@ -0,0 +1,19 @@
+abstract MP3 = {
+  cat
+    Move ;
+    Song ;
+
+  fun
+    Play      : Song -> Move ;
+    CanPlay   : Song -> Move ;
+    WantPlay  : Song -> Move ;
+    WhichPlay : Move ;
+
+    ThisSong : Song ;
+    This   : Song ;
+
+    Yesterday : Song ;
+
+----    MkSong : String -> Song ;
+
+}
diff --git a/examples/mp3/MP3Eng.gf b/examples/mp3/MP3Eng.gf
new file mode 100644
index 000000000..7648c1117
--- /dev/null
+++ b/examples/mp3/MP3Eng.gf
@@ -0,0 +1,5 @@
+--# -path=.:resource-0.6/english:resource-0.6/abstract:prelude
+
+concrete MP3Eng of MP3 = MP3I with
+  (Structural = StructuralEng),
+  (Lexicon = LexiconEng) ;
diff --git a/examples/mp3/MP3Fin.gf b/examples/mp3/MP3Fin.gf
new file mode 100644
index 000000000..099917c18
--- /dev/null
+++ b/examples/mp3/MP3Fin.gf
@@ -0,0 +1,5 @@
+--# -path=.:resource-0.6/finnish:resource-0.6/abstract:prelude
+
+concrete MP3Fin of MP3 = MP3I with
+  (Structural = StructuralFin),
+  (Lexicon = LexiconFin) ;
diff --git a/examples/mp3/MP3Fre.gf b/examples/mp3/MP3Fre.gf
new file mode 100644
index 000000000..2fcd6b8f2
--- /dev/null
+++ b/examples/mp3/MP3Fre.gf
@@ -0,0 +1,5 @@
+--# -path=.:resource-0.6/french:resource-0.6/romance:resource-0.6/abstract:prelude
+
+concrete MP3Fre of MP3 = MP3I with
+  (Structural = StructuralFre),
+  (Lexicon = LexiconFre) ;
diff --git a/examples/mp3/MP3Ger.gf b/examples/mp3/MP3Ger.gf
new file mode 100644
index 000000000..5dfdfe19c
--- /dev/null
+++ b/examples/mp3/MP3Ger.gf
@@ -0,0 +1,5 @@
+--# -path=.:resource-0.6/german:resource-0.6/abstract:prelude
+
+concrete MP3Ger of MP3 = MP3I with
+  (Structural = StructuralGer),
+  (Lexicon = LexiconGer) ;
diff --git a/examples/mp3/MP3I.gf b/examples/mp3/MP3I.gf
new file mode 100644
index 000000000..ab8eb7915
--- /dev/null
+++ b/examples/mp3/MP3I.gf
@@ -0,0 +1,24 @@
+--# -path=.:resource-0.6/english:resource-0.6/abstract:prelude
+
+incomplete concrete MP3I of MP3 = open Structural, Lexicon in {
+
+  flags startcat=Move ;
+
+  lincat
+    Move = Phr ;
+    Song = NP ;
+
+  lin
+    Play song = ImperOne (ImperVP (PosVG (PredTV play song))) ;
+    CanPlay  song = QuestPhrase (QuestVP ThouNP (PosVG (PredVV CanVV (PredTV play song)))) ;
+    WantPlay song = IndicPhrase (PredVP INP (PosVG (PredVV WantVV (PredTV play song)))) ;
+    WhichPlay = QuestPhrase (IntVP (NounIPOne (UseN song)) (PosVG (PredPassV (VTrans play)))) ;
+
+    ThisSong = DetNP ThisDet (UseN song) ;
+    This = ThisNP ;
+
+    Yesterday = yesterday ;
+
+----    MkSong : String -> Song ;
+
+}
diff --git a/examples/mp3/MP3Swe.gf b/examples/mp3/MP3Swe.gf
new file mode 100644
index 000000000..54e20171f
--- /dev/null
+++ b/examples/mp3/MP3Swe.gf
@@ -0,0 +1,5 @@
+--# -path=.:resource-0.6/swedish:resource-0.6/abstract:prelude
+
+concrete MP3Swe of MP3 = MP3I with
+  (Structural = StructuralSwe),
+  (Lexicon = LexiconSwe) ;
diff --git a/src/GF/System/ATKSpeechInput.hs b/src/GF/System/ATKSpeechInput.hs
index 8c0ed303e..a470fe9e7 100644
--- a/src/GF/System/ATKSpeechInput.hs
+++ b/src/GF/System/ATKSpeechInput.hs
@@ -28,9 +28,9 @@ import System.IO.Unsafe
 
 -- FIXME: get these from somewhere else
 
-config = "/home/bjorn/projects/atkrec/atkrec.cfg"
+config = "/home/aarne/atk/atkrec/atkrec.cfg"
 
-res = "/home/bjorn/src/atk/Resources"
+res = "/home/aarne/atk/atk/Resources"
 hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
 mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
 mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"