GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added ExistOne in Fin

Browse Source
This commit is contained in:
aarne
2005-08-10 14:06:25 +00:00
parent 08f5d157b6
commit b7708dc90f
1 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lib/resource/finnish/RulesFin.gf
View File

@@ -56,7 +56,7 @@ lin
NoNum = noNum ; NoNum = noNum ;
UseA = adj2adjPhrase ; UseA = adj2adjPhrase ;
ComplA2 = complAdj ; ----- ComplA2 = complAdj ;
---- ComplAV av vpi = {s = \\_,a => av.s ! a ++ vpi.s ! VIInfinit} ; ---- ComplAV av vpi = {s = \\_,a => av.s ! a ++ vpi.s ! VIInfinit} ;
---- ComplObjA2V av obj vpi = {s = \\_,a => av.s ! a ++ obj.s ! complCase ---- ComplObjA2V av obj vpi = {s = \\_,a => av.s ! a ++ obj.s ! complCase
@@ -193,18 +193,17 @@ lin
OnePhr p = p ; OnePhr p = p ;
ConsPhr = cc2 ; ConsPhr = cc2 ;
{-
----------------------- -----------------------
-- special constructions -- special constructions
OneNP = nameNounPhrase (nameReg "one" human) ; ---- OneNP = nameNounPhrase (nameReg "one" human) ;
ExistCN cn =
sats2clause (
mkSatsCopula impersNounPhrase ("olemassa" ++ (singularNounPhrase cn).s ! NPCase Nom)
) ;
---- ExistNumCN nu cn = nounPhraseNum False cn
ExistCN A = predBeGroup
(nameNounPhrase (nameReg "there" Neutr))
(complNounPhrase (indefNounPhrase singular A)) ;
ExistNumCN nu A =
predBeGroup
(nameNounPhrasePl (nameReg "there" Neutr))
(complNounPhrase (indefNounPhraseNum plural nu A)) ;
-}
} ; } ;