GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-03 15:43:43 -06:00
Code Issues Packages Projects Releases Wiki Activity

added InflectionCl in some languages

Browse Source
This commit is contained in:
Krasimir Angelov
2026-08-29 18:25:38 +02:00
parent c7ddbd2fc6
commit 5587c14083
5 changed files with 232 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/finnish/DocumentationFinFunctor.gf
+37
View File
@@ -80,6 +80,29 @@ lin
s2 = paragraph ((S.mkAdv (lin Prep p) S.it_NP).s ++ ";" ++ (S.mkAdv (lin Prep p) S.we_NP).s)
} ;
InflectionCl = \cl -> {
t = "lause" ;
s1 = heading1 "Lause" ;
s2 = frameTable (
tr (intagAttr "th" "colspan=3" "Yksinkertaiset aikamuodot" ++
intagAttr "th" "colspan=3" "Perfektimuodot") ++
tr (th "aikamuoto" ++ th "väitelause" ++ th "kysymys" ++
th "aikamuoto" ++ th "väitelause" ++ th "kysymys") ++
inflClauseTense (heading present_Parameter)
(heading present_Parameter ++ " " ++ heading perfect_Parameter)
Pres cl ++
inflClauseTense (heading past_Parameter)
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
Past cl ++
inflClauseTense (heading future_Parameter)
(heading future_Parameter ++ " " ++ heading perfect_Parameter)
Fut cl ++
inflClauseTense (heading conditional_Parameter)
(heading conditional_Parameter ++ " " ++ heading perfect_Parameter)
Cond cl
)
} ;
InflectionV v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
@@ -159,6 +182,20 @@ lin
oper
verbExample : CatFin.Cl -> Str = \cl -> (S.mkUtt cl).s ;
inflClauseTense : Str -> Str -> ResFin.Tense -> CatFin.Cl -> Str =
\simple,perfect,tense,cl ->
tr (intagAttr "th" "rowspan=2" simple ++
td (cl.s ! tense ! Simul ! Pos ! SDecl) ++
td (cl.s ! tense ! Simul ! Pos ! SQuest) ++
intagAttr "th" "rowspan=2" perfect ++
td (cl.s ! tense ! Anter ! Pos ! SDecl) ++
td (cl.s ! tense ! Anter ! Pos ! SQuest)) ++
tr (td (cl.s ! tense ! Simul ! Neg ! SDecl) ++
td (cl.s ! tense ! Simul ! Neg ! SQuest) ++
td (cl.s ! tense ! Anter ! Neg ! SDecl) ++
td (cl.s ! tense ! Anter ! Neg ! SQuest)) ;
{-
-} --# notpresent
inflVerb : SVerb1 -> Str = \verb0 ->