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

Ita and Fre superlatives, Ita possessives, in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-05-26 14:11:23 +00:00
parent 0f82695c31
commit 231c63aa41
5 changed files with 60 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
examples/phrasebook/WordsIta.gf
View File

@@ -219,15 +219,25 @@ lin
-- modifiers of places
TheBest = mkSuperl L.good_A ;
TheClosest = mkSuperl L.near_A ;
TheCheapest = mkSuperl (mkA "economico") ;
TheMostExpensive = mkSuperl (mkA "costoso") ;
TheMostPopular = mkSuperl (mkA "alla moda") ;
TheWorst = mkSuperl L.bad_A ;
SuperlPlace sup p = placeNP sup p ;
TheBest = mkSuperl True L.good_A ;
TheClosest = mkSuperl False L.near_A ;
TheCheapest = mkSuperl False (mkA (mkA "economico") (mkA "meno caro")) ;
TheMostExpensive = mkSuperl False (mkA "costoso") ;
TheMostPopular = mkSuperl False (mkA "alla moda") ;
TheWorst = mkSuperl True L.bad_A ;
SuperlPlace sup kind =
let
det : Det = mkDet the_Art (mkOrd sup.s) ;
name : NP = case sup.isPre of {
True => mkNP det kind.name ; -- il migliore bar
False => mkNP the_Art (mkCN (mkAP (mkOrd sup.s)) kind.name) -- il bar più caro
}
in {
name = name ;
at = SyntaxIta.mkAdv kind.at name ;
to = SyntaxIta.mkAdv kind.to name
} ;
-- auxiliaries
@@ -249,10 +259,10 @@ lin
by = E.PrepCN P.in_Prep n
} ;
mkSuperl : A -> Det = \a -> SyntaxIta.mkDet the_Art (SyntaxIta.mkOrd a) ;
mkSuperl : Bool -> A -> {s : A ; isPre : Bool} = \b,a ->
{s = a ; isPre = b} ;
open_A = mkA "aperto" ;
closed_A = mkA "chiuso" ;
}