mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-28 05:52:51 -06:00
parametrizad Scandinavian and added Danish
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
--# -path=.:../abstract:../../prelude
|
||||
--# -path=.:../scandinavian:../abstract:../../prelude
|
||||
|
||||
concrete TestResourceSwe of TestResource = RulesSwe, StructuralSwe ** open MorphoSwe, SyntaxSwe in {
|
||||
|
||||
@@ -15,14 +15,14 @@ lin
|
||||
Finnish = extAdjective (aFin "finsk") ;
|
||||
Happy = aFin "lycklig" ;
|
||||
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
|
||||
Man = extCommNoun Masc man_1144 ;
|
||||
Bar = extCommNoun NoMasc (sSak "bar") ;
|
||||
Bottle = extCommNoun NoMasc (sApa "flask") ;
|
||||
Woman = extCommNoun NoMasc (sApa "kvinn") ;
|
||||
Car = extCommNoun NoMasc (sBil "bil") ;
|
||||
House = extCommNoun NoMasc (sHus "hus") ;
|
||||
Light = extCommNoun NoMasc (sHus "ljus") ;
|
||||
Wine = extCommNoun NoMasc (sParti "vin") ;
|
||||
Man = extCommNounMasc man_1144 ;
|
||||
Bar = extCommNoun (sSak "bar") ;
|
||||
Bottle = extCommNoun (sApa "flask") ;
|
||||
Woman = extCommNoun (sApa "kvinn") ;
|
||||
Car = extCommNoun (sBil "bil") ;
|
||||
House = extCommNoun (sHus "hus") ;
|
||||
Light = extCommNoun (sHus "ljus") ;
|
||||
Wine = extCommNoun (sParti "vin") ;
|
||||
Walk = vNopart gå_1174 ;
|
||||
Run = vNopart (vFinna "spring" "sprang" "sprung") ;
|
||||
Drink = extTransVerb (vFinna "drick" "drack" "druck") [] ;
|
||||
@@ -38,14 +38,14 @@ lin
|
||||
SwitchOn = mkDirectVerb (vFinna "sätt" "satte" "satt" ** {s1 = "på"}) ;
|
||||
SwitchOff = mkDirectVerb (vLeka "stäng" ** {s1 = "av"}) ;
|
||||
|
||||
Mother = mkFun (extCommNoun NoMasc mor_1) "till" ;
|
||||
Uncle = mkFun (extCommNoun Masc farbror_8) "till" ;
|
||||
Connection = mkFun (extCommNoun NoMasc (sVarelse "förbindelse")) "från" **
|
||||
Mother = mkFun (extCommNoun mor_1) "till" ;
|
||||
Uncle = mkFun (extCommNounMasc farbror_8) "till" ;
|
||||
Connection = mkFun (extCommNoun (sVarelse "förbindelse")) "från" **
|
||||
{s3 = "till"} ;
|
||||
|
||||
Always = advPre "alltid" ;
|
||||
Well = advPost "bra" ;
|
||||
|
||||
John = mkProperName "Johan" Utr Masc ;
|
||||
Mary = mkProperName "Maria" Utr NoMasc ;
|
||||
John = mkProperName "Johan" (NUtr Masc) ;
|
||||
Mary = mkProperName "Maria" (NUtr NoMasc) ;
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user