mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
add VQ and VV in Slovenian
This commit is contained in:
@@ -36,6 +36,8 @@ lincat
|
||||
|
||||
-- Open lexical classes, e.g. Lexicon
|
||||
V = {s : VForm => Str};
|
||||
VQ = {s : VForm => Str};
|
||||
VV = {s : VForm => Str};
|
||||
V2 = {s : VForm => Str; c2 : Prep};
|
||||
|
||||
A = {s : AForm => Str};
|
||||
|
||||
@@ -76,6 +76,12 @@ oper
|
||||
mkV2 : V -> Case -> V2 = \v,c -> v ** {c2 = lin Prep {s=""; c=c}} ;
|
||||
} ;
|
||||
|
||||
mkVQ : V -> VQ ;
|
||||
mkVQ v = v ;
|
||||
|
||||
mkVV : V -> VV ;
|
||||
mkVV v = v ;
|
||||
|
||||
mkA : (_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> A =
|
||||
\positMSgNom,positMSgNomDef,positMSgGen,positMSgDat,positMSgAcc,positMSgAccIndef,positMSgAccDef,positMSgLoc,positMSgInstr,
|
||||
positMDlNom,positMDlGen,positMDlDat,positMDlAcc,positMDlLoc,positMDlInstr,
|
||||
|
||||
Reference in New Issue
Block a user