msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

mp3 example

Browse Source
This commit is contained in:
aarne
2005-12-14 16:28:57 +00:00
parent cee5ee4b66
commit f4cd764f2a
14 changed files with 120 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
examples/mp3/MP3I.gf Normal file
View File

@@ -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 ;
}