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

This commit is contained in:
aarne
2006-05-30 22:02:25 +00:00
parent 6f57b5b530
commit 993f2b3e1e
19 changed files with 112 additions and 64 deletions

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 = []} ;