diff options
| author | aarne <aarne@chalmers.se> | 2010-03-28 19:29:06 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-28 19:29:06 +0000 |
| commit | 93daaabf3df88b5fa16065c027c370cdf9b487b2 (patch) | |
| tree | e8a35d5b7af1d44618b48f0d0267bc5ff110b341 /examples/phrasebook/WordsFre.gf | |
| parent | 3903b6b85222d5d266f859f4d029b12159cdf814 (diff) | |
Action category, more doc in Phrasebook
Diffstat (limited to 'examples/phrasebook/WordsFre.gf')
| -rw-r--r-- | examples/phrasebook/WordsFre.gf | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/examples/phrasebook/WordsFre.gf b/examples/phrasebook/WordsFre.gf index e8a65a3b8..266d0ed6c 100644 --- a/examples/phrasebook/WordsFre.gf +++ b/examples/phrasebook/WordsFre.gf @@ -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) ;
|