mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-10-03 23:53:40 -06:00
skip the compilation of InflectionCl for Present
This commit is contained in:
@@ -134,6 +134,9 @@ lin
|
||||
s2 = paragraph (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s
|
||||
} ;
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
InflectionCl = \cl -> {
|
||||
t = "satz" ;
|
||||
s1 = heading1 "Satz" ;
|
||||
@@ -157,6 +160,9 @@ lin
|
||||
)
|
||||
} ;
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
InflectionV v = {
|
||||
t = "v" ;
|
||||
s1 = heading1 (heading verb_Category) ++
|
||||
@@ -237,6 +243,9 @@ lin
|
||||
MkTag i = ss i.t ;
|
||||
|
||||
oper
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
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) ++
|
||||
@@ -249,6 +258,9 @@ oper
|
||||
td (cl.s ! MIndic ! tense ! Anter ! Neg ! Main) ++
|
||||
td (cl.s ! MIndic ! tense ! Anter ! Neg ! Inv)) ;
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
verbExample : CatGer.Cl -> Str = \cl ->
|
||||
(S.mkUtt cl).s
|
||||
++ ";" ++ (S.mkUtt (S.mkS S.anteriorAnt cl)).s --# notpresent
|
||||
|
||||
Reference in New Issue
Block a user