extensions by Codex

This commit is contained in:
Krasimir Angelov committed 2026-10-12 13:56:16 +02:00
1 parent 52918efeb0
commit 020663a88c
7 files changed
+461 -7

No files matched your search

+2
View File
@@ -338,6 +338,7 @@ oper
mkADeg a b c d e = mkAdject a b c d e ** {isComp = False ; lock_A = <>} ;
regADeg a = case Predef.dp 2 a of {
"de" => mkAdject a a a (a + "are") (a + "ast") ;
"eg" => aBillig a ;
"sk" => aRask a ;
_ => aRod a
@@ -375,6 +376,7 @@ oper
-- The particle, such as in "lukke opp", is given as a string.
"a" => mkVerb6 a (a + "r") (a + "st") a a (init a) ;
"e" => vHusk (init a) ;
_ => vBo a
} ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ;