mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 19:42:50 -06:00
Action category, more doc in Phrasebook
This commit is contained in:
@@ -2,6 +2,8 @@
|
||||
|
||||
concrete WordsFre of Words = SentencesFre ** open
|
||||
SyntaxFre,
|
||||
DiffPhrasebookFre,
|
||||
IrregFre,
|
||||
ParadigmsFre in
|
||||
{
|
||||
flags coding=utf8 ;
|
||||
@@ -33,6 +35,18 @@ Boring = mkAPA "ennuyeux" ;
|
||||
Dollar = mkCN (mkN "dollar") ;
|
||||
Lei = mkCN (mkN "lei") ; ---- ?
|
||||
|
||||
AWant p obj = mkCl p want_V2 obj ;
|
||||
ALike p item = mkCl item plaire_V2 p ;
|
||||
AHave p kind = mkCl p have_V2 (mkNP kind) ;
|
||||
ASpeak p lang = mkCl p (mkV2 (mkV "parler")) lang ;
|
||||
ALove p q = mkCl p (mkV2 (mkV "aimer")) q ;
|
||||
|
||||
English = mkNP (mkPN "anglais") ;
|
||||
Finnish = mkNP (mkPN "finnois") ;
|
||||
French = mkNP (mkPN "français") ;
|
||||
Romanian = mkNP (mkPN "roumain") ;
|
||||
Swedish = mkNP (mkPN "suédois") ;
|
||||
|
||||
oper
|
||||
mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user