GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Action category, more doc in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-03-28 19:29:06 +00:00
parent 3903b6b852
commit 93daaabf3d
12 changed files with 283 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/phrasebook/WordsFin.gf
View File

@@ -1,7 +1,7 @@
-- (c) 2009 Aarne Ranta under LGPL
concrete WordsFin of Words = SentencesFin **
open SyntaxFin, ParadigmsFin in {
open SyntaxFin, ParadigmsFin, DiffPhrasebookFin in {
lin
Wine = mkCN (mkN "viini") ;
Beer = mkCN (mkN "olut") ;
@@ -31,7 +31,15 @@ concrete WordsFin of Words = SentencesFin **
Dollar = mkCN (mkN "dollari") ;
Lei = mkCN (mkN "lei") ;
-- oper ---- optimization lasts forever
-- mkCNN : Str -> CN = \s -> mkCN (mkN s) ;
-- mkAPA : Str -> AP = \s -> mkAP (mkA s) ;
AWant p obj = mkCl p want_V2 obj ;
ALike p item = mkCl item like_V2 p ;
AHave p kind = mkCl p have_V2 (mkNP kind) ;
ASpeak p lang = mkCl p (mkV2 (mkV "puhua") partitive) lang ;
ALove p q = mkCl p (mkV2 (mkV "rakastaa") partitive) q ;
English = mkNP (mkPN "englanti") ;
Finnish = mkNP (mkPN (mkN "suomi" "suomia")) ;
French = mkNP (mkPN "ranska") ;
Romanian = mkNP (mkPN "romania") ;
Swedish = mkNP (mkPN "ruotsi") ;
}