diff options
| author | aarne <aarne@chalmers.se> | 2010-03-28 20:13:46 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-03-28 20:13:46 +0000 |
| commit | 55f8a80df7f9591475af5e42b2f50ced55d51d30 (patch) | |
| tree | f4db9141d21f7d1d335f20badbdeeb510b19a9ff /examples/phrasebook/WordsIta.gf | |
| parent | 93daaabf3df88b5fa16065c027c370cdf9b487b2 (diff) | |
version 0.2 of phrasebook
Diffstat (limited to 'examples/phrasebook/WordsIta.gf')
| -rw-r--r-- | examples/phrasebook/WordsIta.gf | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/examples/phrasebook/WordsIta.gf b/examples/phrasebook/WordsIta.gf new file mode 100644 index 000000000..a8caf0d58 --- /dev/null +++ b/examples/phrasebook/WordsIta.gf @@ -0,0 +1,51 @@ +-- (c) 2009 Ramona Enache and Aarne Ranta under LGPL
+
+concrete WordsIta of Words = SentencesIta ** open
+ SyntaxIta,
+ DiffPhrasebookIta,
+ BeschIta,
+ ParadigmsIta in {
+
+lin
+
+Wine = mkCN (mkN "vino") ;
+ Beer = mkCN (mkN "birra") ;
+ Water = mkCN (mkN "acqua") ;
+ Coffee = mkCN (mkN "caffè") ;
+ Tea = mkCN (mkN "té") ; ----
+
+Cheese = mkCN (mkN "formaggio") ;
+Fish = mkCN (mkN "pesce") ;
+Pizza = mkCN (mkN "pizza") ;
+
+Itash = mkAP (mkA "frasco") ;
+Warm = mkAPA "caldo" ;
+Italian = mkAPA "italiano" ;
+Expensive = mkAPA "caro" ;
+Delicious = mkAPA "delizioso" ;
+Boring = mkAPA "noioso" ;
+
+ Restaurant = mkCN (mkN "ristorante") ;
+ Bar = mkCN (mkN "bar") ;
+ Toilet = mkCN (mkN "bagno") ;
+
+ Euro = mkCN (mkN "euro" "euro" masculine) ;
+ Dollar = mkCN (mkN "dollar") ;
+ Lei = mkCN (mkN "lei") ; ---- ?
+
+ AWant p obj = mkCl p want_V2 obj ;
+ ALike p item = mkCl item (mkV2 (mkV (piacere_64 "piacere")) dative) p ;
+ AHave p kind = mkCl p have_V2 (mkNP kind) ;
+ ASpeak p lang = mkCl p (mkV2 (mkV "parlare")) lang ;
+ ALove p q = mkCl p (mkV2 (mkV "amare")) q ;
+
+ English = mkNP (mkPN "inglese") ;
+ Finnish = mkNP (mkPN "finnico") ;
+ Itanch = mkNP (mkPN "francese") ;
+ Romanian = mkNP (mkPN "romano") ;
+ Swedish = mkNP (mkPN "svedese") ;
+
+oper
+mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ;
+
+}
|