GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-09-02 01:16:58 -06:00
Code Issues Packages Projects Releases Wiki Activity

added InflectionCl in more languages

Browse Source
This commit is contained in:
Krasimir Angelov
2026-08-29 20:46:38 +02:00
parent e67f079167
commit fda7e1595d
5 changed files with 169 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/french/DocumentationFreFunctor.gf
+35
View File
@@ -108,6 +108,29 @@ lin
s2 = paragraph p.s
} ;
InflectionCl = \cl -> {
t = "cl" ;
s1 = heading1 "Phrase" ;
s2 = frameTable (
tr (intagAttr "th" "colspan=3" "Temps simples" ++
intagAttr "th" "colspan=3" "Temps composés") ++
tr (th "Temps" ++ th "Affirmation" ++ th "Question" ++
th "Temps" ++ th "Affirmation" ++ th "Question") ++
inflClauseTense (heading present_Parameter)
(heading present_Parameter ++ " " ++ heading perfect_Parameter)
RPres cl ++
inflClauseTense (heading past_Parameter)
(heading past_Parameter ++ " " ++ heading perfect_Parameter)
RPast cl ++
inflClauseTense (heading future_Parameter)
(heading future_Parameter ++ " " ++ heading perfect_Parameter)
RFut cl ++
inflClauseTense (heading conditional_Parameter)
(heading conditional_Parameter ++ " " ++ heading perfect_Parameter)
RCond cl
)
} ;
InflectionV v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
@@ -188,6 +211,18 @@ lin
MkTag i = ss i.t ;
oper
inflClauseTense : Str -> Str -> RTense -> Cl -> Str = \simple,perfect,tense,cl ->
tr (intagAttr "th" "rowspan=2" simple ++
td (cl.s ! DDir ! tense ! Simul ! RPos ! Indic) ++
td (cl.s ! DInv ! tense ! Simul ! RPos ! Indic) ++
intagAttr "th" "rowspan=2" perfect ++
td (cl.s ! DDir ! tense ! Anter ! RPos ! Indic) ++
td (cl.s ! DInv ! tense ! Anter ! RPos ! Indic)) ++
tr (td (cl.s ! DDir ! tense ! Simul ! (RNeg True) ! Indic) ++
td (cl.s ! DInv ! tense ! Simul ! (RNeg True) ! Indic) ++
td (cl.s ! DDir ! tense ! Anter ! (RNeg True) ! Indic) ++
td (cl.s ! DInv ! tense ! Anter ! (RNeg True) ! Indic)) ;
verbExample : CatFre.Cl -> Str = \cl ->
(S.mkUtt cl).s
++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent