GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-17 00:39:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

parad fixes

Browse Source
This commit is contained in:
aarne
2004-08-27 15:21:09 +00:00
parent 42e8522757
commit eb83ed3743
2 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource-0.6/english/ParadigmsEng.gf
View File

@@ -237,7 +237,7 @@ oper
apReg = \s -> AdjP1 (mkAdj1 s) ;
aGen : Str -> AdjDeg = \s -> case last s of {
"y" => mkAdjDeg s (init s ++ "ier") (init s + "iest") ;
"y" => mkAdjDeg s (init s + "ier") (init s + "iest") ;
"e" => mkAdjDeg s (s + "r") (s + "st") ;
_ => aReg s
} ;

16
lib/resource-0.6/swedish/ParadigmsSwe.gf
View File

@@ -185,6 +185,17 @@ oper
v3Dir : V -> Str -> V3 ; -- ge,_,till
v3DirDir : V -> V3 ; -- ge,_,_
-- Sentence complement verbs.
mkVS : V -> VS ; -- säga (att ...)
-- Verb phrase complement verbs.
vvInf : V -> VV ; -- orka (spela)
vvAtt : V -> VV ; -- gilla (att spela)
vvBoth : V -> VV ; -- försöka (spela | att spela)
-- The definitions should not bother the user of the API. So they are
-- hidden from the document.
--.
@@ -325,4 +336,9 @@ oper
v3Dir x y = mkV3 x [] y ;
v3DirDir x = v3Dir x [] ;
mkVS v = v ** {lock_VS = <>} ;
vvInf v = v ** {isAux = True ; lock_VV = <>} ;
vvAtt v = v ** {isAux = False ; lock_VV = <>} ;
vvBoth v = v ** {isAux = variants {False ; True} ; lock_VV = <>} ;
} ;