skip the compilation of InflectionCl for Present
This commit is contained in:
1 parent
c97cbb530c
commit
0a197ec126
3 files changed
+30
-1
No files matched your search
@@ -111,6 +111,9 @@ lin
|
||||
s3= ""
|
||||
} ;
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
InflectionCl = \cl -> {
|
||||
t = "cl" ;
|
||||
s1 = heading1 "Clause" ;
|
||||
@@ -126,6 +129,9 @@ lin
|
||||
)
|
||||
} ;
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
InflectionV v = {
|
||||
t = "v" ;
|
||||
s1= heading1 "Verb" ++
|
||||
@@ -242,6 +248,10 @@ lin
|
||||
} ;
|
||||
|
||||
oper
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
inflClauseTense : Str -> Str -> ResEng.Tense -> Cl -> Str = \simple,perfect,tense,cl ->
|
||||
tr (intagAttr "th" "rowspan=\"2\"" simple ++
|
||||
td (cl.s ! tense ! Simul ! CPos ! ODir False) ++
|
||||
@@ -254,6 +264,9 @@ oper
|
||||
td (cl.s ! tense ! Anter ! CNeg True ! ODir False) ++
|
||||
td (cl.s ! tense ! Anter ! CNeg True ! OQuest)) ;
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
inflVerb : Verb -> Str = \verb ->
|
||||
frameTable (
|
||||
tr (th "infinitive" ++ td (verb.s ! VInf)) ++
|
||||
|
||||
Reference in new issue
Block a user