From f4cd764f2aba2c5f5d8e805a2ad597a2c6b90922 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 14 Dec 2005 16:28:57 +0000
Subject: mp3 example

---
 examples/mp3/MP3I.gf | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 examples/mp3/MP3I.gf

(limited to 'examples/mp3/MP3I.gf')

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 ;
+
+}
-- 
cgit v1.2.3