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

l -multi -all/-table ; same with tb

Browse Source
This commit is contained in:
aarne
2006-05-30 22:02:25 +00:00
parent 04e4767091
commit 5fc33e6b78
12 changed files with 69 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
resource-1.0/norwegian/DiffNor.gf
View File

@@ -17,15 +17,16 @@ instance DiffNor of DiffScand = open CommonScand, Prelude in {
_ => Plg
} ;
detDef : Species = Indef ;
detDef : Species = Def ;
Verb : Type = {
s : VForm => Str ;
part : Str ;
vtype : VType
vtype : VType ;
isVaere : Bool
} ;
hasAuxBe _ = False ;
hasAuxBe v = v.isVaere ;
-- Strings.
@@ -44,13 +45,13 @@ instance DiffNor of DiffScand = open CommonScand, Prelude in {
verbHave =
mkVerb "ha" "har" "ha" "hadde" "hatt" nonExist nonExist nonExist
** noPart ;
** {part = [] ; isVaere = False} ;
verbBe =
mkVerb "være" "er" "var" "var" "vært" "væren" "været" "værne"
** noPart ;
** {part = [] ; isVaere = False} ;
verbBecome =
mkVerb "bli" "blir" "bli" "ble" "blitt" "bliven" "blivet" "blivne"
** noPart ;
** {part = [] ; isVaere = True} ;
-- auxiliary
noPart = {part = []} ;