msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Ita-Spa_Words

Browse Source
This commit is contained in:
caprotti
2010-05-06 16:36:53 +00:00
parent c3fbcf910b
commit 4ecc586a2d
4 changed files with 314 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
examples/phrasebook/SentencesIta.gf
View File

@@ -7,6 +7,10 @@ concrete SentencesIta of Sentences = NumeralIta ** SentencesI - [
(Lexicon = LexiconIta) **
open SyntaxIta, ExtraIta, Prelude in {
lincat
Place = NPPlace ; -- {name : NP ; at : Adv ; to : Adv ; } ;
lin
IFemale =
{name = mkNP (ProDrop i8fem_Pron) ; isPron = True ; poss = mkQuant i_Pron} ;
@@ -21,6 +25,25 @@ concrete SentencesIta of Sentences = NumeralIta ** SentencesI - [
YouPolMale =
{name = mkNP (ProDrop youPol_Pron) ; isPron = True ; poss = mkQuant youPol_Pron} ;
oper
CNPlace : Type = {name : CN ; at : Prep ; to : Prep } ;
mkCNPlace : CN -> Prep -> Prep -> CNPlace = \p,i,t -> {
name = p ;
at = i ;
to = t ;
} ;
placeNP : Det -> CNPlace -> NPPlace = \det,kind ->
let name : NP = mkNP det kind.name in {
name = name ;
at = mkAdv kind.at name ;
to = mkAdv kind.to name
} ;
}