mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-27 08:58:55 -06:00
fixed irreg verbs in DictFre; reject non-verbs in ParadigmsGer (check that infinitive ends -n)
This commit is contained in:
183862
src/french/DictFre.gf
183862
src/french/DictFre.gf
File diff suppressed because it is too large
Load Diff
@@ -579,11 +579,12 @@ mkV2 : overload {
|
|||||||
gabst = verbST gab ;
|
gabst = verbST gab ;
|
||||||
gaben = pluralN gab ;
|
gaben = pluralN gab ;
|
||||||
gabt = verbT gab
|
gabt = verbT gab
|
||||||
in
|
in case geben of {
|
||||||
MorphoGer.mkV
|
_ + "n" => MorphoGer.mkV
|
||||||
geben gebe gibst gibt gebt gib gab gabst gaben gabt gaebe gegeben
|
geben gebe gibst gibt gebt gib gab gabst gaben gabt gaebe gegeben
|
||||||
[] VHaben ** {lock_V = <>} ;
|
[] VHaben ** {lock_V = <>} ;
|
||||||
|
_ => Predef.error (geben + ": invalid infinitive form, should end with 'n'")
|
||||||
|
} ;
|
||||||
regV fragen =
|
regV fragen =
|
||||||
let
|
let
|
||||||
frag = stemVerb fragen ;
|
frag = stemVerb fragen ;
|
||||||
|
|||||||
Reference in New Issue
Block a user