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

some new Swedish paradigms

Browse Source
This commit is contained in:
aarne
2004-06-21 15:14:37 +00:00
parent 667523c977
commit 3608e81186
2 changed files with 31 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
grammars/database/RestaurantSwe.gf
View File

@@ -12,7 +12,9 @@ lin
Japanese = AdjP1 (adjReg "japansk") ; Japanese = AdjP1 (adjReg "japansk") ;
address = funAv (nRisk "adress") ; address = funAv (nRisk "adress") ;
phone = funTill (nPapper "nummer") ; phone =
funTill (mkN "telefonnummer" "telefonnumret" "telefonnummer"
"telefonnumren" neutrum nonmasculine) ;
priceLevel = funPaa (nRisk "prisnivå") ; priceLevel = funPaa (nRisk "prisnivå") ;
Cheap = aReg "billig" ; Cheap = aReg "billig" ;
@@ -25,6 +27,6 @@ lin
LucasCarton = pnReg ["Lucas-Carton"] neutrum nonmasculine ; --- - LucasCarton = pnReg ["Lucas-Carton"] neutrum nonmasculine ; --- -
LaCoupole = pnReg ["La-Coupole"] neutrum nonmasculine ; LaCoupole = pnReg ["La-Coupole"] neutrum nonmasculine ;
BurgerKing = pnReg ["Burger-King"] neutrum nonmasculine ; BurgerKing = pnS ["Burger King"] neutrum nonmasculine ;
} }

27
lib/resource-0.6/swedish/ParadigmsSwe.gf
View File

@@ -81,6 +81,7 @@ oper
mkPN : (_,_ : Str) -> Gender -> Sex -> PN ; -- Karolus, Karoli mkPN : (_,_ : Str) -> Gender -> Sex -> PN ; -- Karolus, Karoli
pnReg : Str -> Gender -> Sex -> PN ; -- Johan,Johans ; Johannes, Johannes pnReg : Str -> Gender -> Sex -> PN ; -- Johan,Johans ; Johannes, Johannes
pnS : Str -> Gender -> Sex -> PN ; -- "Burger King(s)"
-- On the top level, it is maybe $CN$ that is used rather than $N$, and -- On the top level, it is maybe $CN$ that is used rather than $N$, and
-- $NP$ rather than $PN$. -- $NP$ rather than $PN$.
@@ -128,6 +129,24 @@ oper
apReg : Str -> AP ; apReg : Str -> AP ;
--2 Adverbs
-- Adverbs are not inflected. Most lexical ones have position not
-- before the verb. Some can be preverbal (e.g. "alltid").
mkAdv : Str -> AdV ;
mkAdvPre : Str -> AdV ;
-- Adverbs modifying adjectives and sentences can also be formed.
mkAdA : Str -> AdA ;
mkAdS : Str -> AdS ;
-- Prepositional phrases are another productive form of adverbials.
mkPP : Str -> NP -> AdV ;
--2 Verbs --2 Verbs
-- --
-- The fragment only has present tense so far. -- The fragment only has present tense so far.
@@ -238,6 +257,8 @@ oper
{s = table {Gen => karoli ; _ => karolus} ; g = g ; x = x ; lock_PN = <>} ; {s = table {Gen => karoli ; _ => karolus} ; g = g ; x = x ; lock_PN = <>} ;
pnReg = \horst -> pnReg = \horst ->
mkPN horst (ifTok Tok (Predef.dp 1 horst) "s" horst (horst + "s")) ; mkPN horst (ifTok Tok (Predef.dp 1 horst) "s" horst (horst + "s")) ;
pnS = \bk ->
mkPN bk (bk + "s") ;
mkCN = UseN ; mkCN = UseN ;
mkNP = \a,b,g -> UsePN (mkPN a b g nonmasculine) ; -- gender irrelevant in NP mkNP = \a,b,g -> UsePN (mkPN a b g nonmasculine) ; -- gender irrelevant in NP
@@ -282,6 +303,12 @@ oper
apReg = \s -> AdjP1 (adjReg s) ; apReg = \s -> AdjP1 (adjReg s) ;
mkAdv a = advPost a ** {lock_AdV = <>} ;
mkAdvPre a = advPre a ** {lock_AdV = <>} ;
mkPP x y = prepPhrase x y ** {lock_AdV = <>} ;
mkAdA a = ss a ** {lock_AdA = <>} ;
mkAdS a = ss a ** {lock_AdS = <>} ;
mkV x y z = mkVerb x y z ** {lock_V = <>} ; mkV x y z = mkVerb x y z ** {lock_V = <>} ;
vKoka = \tala -> mkV tala (tala+"r") tala ; vKoka = \tala -> mkV tala (tala+"r") tala ;
vSteka = \leka -> let {lek = Predef.tk 1 leka} in mkV leka (lek + "er") lek ; vSteka = \leka -> let {lek = Predef.tk 1 leka} in mkV leka (lek + "er") lek ;