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

Norwegian now

Browse Source
This commit is contained in:
aarne
2005-01-20 14:04:31 +00:00
parent 51b45ae690
commit 26f6e9b53c
8 changed files with 610 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
lib/resource/norwegian/TestResourceNor.gf Normal file
View File

@@ -0,0 +1,49 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete TestResourceNor of TestResource = RulesNor, StructuralNor ** open MorphoNor, SyntaxNor in {
flags startcat=Phr ; lexer=text ; unlexer=text ;
-- a random sample from the lexicon
lin
Big = mkAdjective "stor" "stort" "store" "større" "størst" ;
Small = mkAdjective "liten" "litet" "små" "mindre" "minst" ; ---- ?
Old = mkAdjective "gammel" "gammelt" "gamle" "eldre" "eldst" ;
Young = mkAdjective "ung" "ungt" "unge" "yngre" "yngst" ;
American = extAdjective (aAbstrakt "amerikansk") ;
Finnish = extAdjective (aAbstrakt "finsk") ;
Happy = aAbstrakt "heldig" ;
Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
Man = extCommNoun (mkSubstantive "mann" "mannen" "menn" "mennen" ** {h1 = masc}) ;
Bar = extCommNoun (nBil "bar") ; ---- ?
Bottle = extCommNoun (nUke "flaske") ;
Woman = extCommNoun (nUke "kvinne") ;
Car = extCommNoun (nBil "bil") ;
House = extCommNoun (nHus "hus") ;
Light = extCommNoun (nHus "lys") ;
Wine = extCommNoun (nHus "vin") ; ---- ?
Walk = mkVerb "gå" "går" "gås" "gikk" "gått" "gå" ** {s1 = []} ;
Run = mkVerb "springe" "springer" "springes" "sprang" "sprunget" "spring" ** {s1 = []} ;
Drink = extTransVerb (mkVerb "drikke" "drikker" "drikkes" "drakk" "drukket" "drikk" ** {s1 = []}) [] ;
Love = extTransVerb (vNopart (vHusk "elsk")) [] ;
Send = extTransVerb (vNopart (vSpis "send")) [] ; ---- ?
Wait = extTransVerb (vNopart (vSpis "vent")) "på" ;
Give = extTransVerb (vNopart (mkVerb "gi" "gir" "gives" "gav" "givet" "gi")) [] ** {s3 = "til"} ; ---- ?
Prefer = extTransVerb (vNopart (vSpis "foretrekk")) [] ** {s3 = "for"} ;
Say = vNopart (mkVerb "si" "sier" "sies" "sagde" "sagt" "sig") ; ---- ?
Prove = vNopart (vSpis "bevis") ;
SwitchOn = mkDirectVerb (vHusk "lukk" ** {s1 = "opp"}) ;
SwitchOff = mkDirectVerb (vHusk "slukk" ** {s1 = []}) ;
Mother = mkFun (extCommNoun (mkSubstantive "mor" "moderen" "mødre" "mødrene" ** {h1 = fem})) "til" ; ---- ?
Uncle = mkFun (extCommNoun (mkSubstantive "onkel" "onkelen" "onkler" "onklene" ** {h1 = masc})) "til" ; ---- ?
Connection = mkFun (extCommNoun (nUke "forbindelse")) "fra" ** {s3 = "til"} ;
Always = advPre "altid" ;
Well = advPost "godt" ;
John = mkProperName "Johan" (NUtr Masc) ;
Mary = mkProperName "Maria" (NUtr NoMasc) ;
} ;