German phrasebook; ontology document; ignoring single lines in gfdoc

2010-04-08 20:31:32 +00:00
parent e98d1238f4
commit 0138e6bba1
16 changed files with 549 additions and 228 deletions
--- a/examples/phrasebook/WordsFin.gf
+++ b/examples/phrasebook/WordsFin.gf
@@ -144,6 +144,10 @@ concrete WordsFin of Words = SentencesFin **
    closed_Adv = ParadigmsFin.mkAdv "kiinni" ;

    nameOf : {name : NP ; isPron : Bool ; poss : Det} -> NP = \p -> 
-      mkNP (E.GenNP p.name) (mkN "nimi" "nimiä") ; 
+      let nimi = L.name_N in
+      case p.isPron of {
+        True => mkNP p.poss nimi ;
+        _    => mkNP (E.GenNP p.name) nimi
+        } ; 

 }