GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-03 23:53:40 -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/german/DocumentationGerFunctor.gf
+36 -1
View File
@@ -134,6 +134,29 @@ lin
s2 = paragraph (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s
} ;
InflectionCl = \cl -> {
t = "satz" ;
s1 = heading1 "Satz" ;
s2 = frameTable (
tr (intagAttr "th" "colspan=3" "Einfache Tempora" ++
intagAttr "th" "colspan=3" "Perfekte Tempora") ++
tr (th "Tempus" ++ th "Aussage" ++ th "Frage" ++
th "Tempus" ++ th "Aussage" ++ th "Frage") ++
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) ++
@@ -213,7 +236,19 @@ lin
MkDocument d i e = ss (i.s1 ++ d.s ++ i.s2 ++ paragraph e.s) ; -- explanation appended in a new paragraph
MkTag i = ss i.t ;
oper
oper
inflClauseTense : Str -> Str -> ResGer.Tense -> Cl -> Str = \simple,perfect,tense,cl ->
tr (intagAttr "th" "rowspan=2" simple ++
td (cl.s ! MIndic ! tense ! Simul ! Pos ! Main) ++
td (cl.s ! MIndic ! tense ! Simul ! Pos ! Inv) ++
intagAttr "th" "rowspan=2" perfect ++
td (cl.s ! MIndic ! tense ! Anter ! Pos ! Main) ++
td (cl.s ! MIndic ! tense ! Anter ! Pos ! Inv)) ++
tr (td (cl.s ! MIndic ! tense ! Simul ! Neg ! Main) ++
td (cl.s ! MIndic ! tense ! Simul ! Neg ! Inv) ++
td (cl.s ! MIndic ! tense ! Anter ! Neg ! Main) ++
td (cl.s ! MIndic ! tense ! Anter ! Neg ! Inv)) ;
verbExample : CatGer.Cl -> Str = \cl ->
(S.mkUtt cl).s
++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent