mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
commented out Documentation definitions in notpresent mode. It was not enough to do this in the import list in Lang, since the import list parsing seems to be done without preprocessing.
This commit is contained in:
@@ -9,7 +9,7 @@ abstract Lang =
|
||||
Grammar,
|
||||
Lexicon
|
||||
,Construction --- could be compiled here, but not in concretes, as they call Syntax and Grammar
|
||||
,Documentation
|
||||
,Documentation --# notpresent
|
||||
,Markup - [stringMark]
|
||||
** {
|
||||
flags startcat=Phr ;
|
||||
|
||||
@@ -12,12 +12,14 @@ incomplete concrete DocumentationFinFunctor of Documentation = CatFin ** open
|
||||
HTML
|
||||
in {
|
||||
|
||||
|
||||
lincat
|
||||
Inflection = {t : Str; s1,s2 : Str} ;
|
||||
Document = {s : Str} ;
|
||||
Tag = {s : Str} ;
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
oper
|
||||
heading : N -> Str = \n -> (nounHeading n).s ;
|
||||
|
||||
@@ -129,7 +131,8 @@ lin
|
||||
|
||||
oper
|
||||
verbExample : CatFin.Cl -> Str = \cl -> (S.mkUtt cl).s ;
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
inflVerb : CatFin.V -> Str = \verb0 ->
|
||||
let
|
||||
verb = sverb2verbSep verb0 ;
|
||||
@@ -290,4 +293,7 @@ lin
|
||||
MkDocument b i e = ss (i.s1 ++ paragraph b.s ++ i.s2 ++ paragraph e.s) ; -- explanation appended in a new paragraph
|
||||
MkTag i = ss (i.t) ;
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
}
|
||||
|
||||
@@ -4,7 +4,7 @@ concrete LangFin of Lang =
|
||||
GrammarFin,
|
||||
LexiconFin
|
||||
, ConstructionFin
|
||||
, DocumentationFin
|
||||
, DocumentationFin --# notpresent
|
||||
** {
|
||||
|
||||
flags startcat = Phr ; unlexer = text ; lexer = finnish ;
|
||||
|
||||
@@ -18,6 +18,9 @@ lincat
|
||||
Document = {s : Str} ;
|
||||
Tag = {s : Str} ;
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
oper
|
||||
heading : N -> Str = \n -> (nounHeading n).s ;
|
||||
|
||||
@@ -209,4 +212,7 @@ oper
|
||||
tr (th (heading present_Parameter) ++ td (vfin VGer))
|
||||
) ;
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
}
|
||||
|
||||
@@ -9,6 +9,10 @@ lincat
|
||||
Document = {s : Str} ;
|
||||
Tag = {s : Str} ;
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
|
||||
lin
|
||||
InflectionN, InflectionN2, InflectionN3 = \noun -> {
|
||||
t = "s" ;
|
||||
@@ -230,4 +234,8 @@ oper
|
||||
) ;
|
||||
|
||||
pp : Str -> Str = \s -> "<"+s+">";
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
}
|
||||
|
||||
@@ -18,6 +18,10 @@ in {
|
||||
lincat
|
||||
Inflection = {s : Str} ;
|
||||
Document = {s : Str} ;
|
||||
|
||||
{-
|
||||
-} --# notpresent
|
||||
|
||||
|
||||
oper
|
||||
tdf : Str -> Str = \s -> td (intag "i" s) ;
|
||||
@@ -121,4 +125,7 @@ oper
|
||||
))
|
||||
} ;
|
||||
|
||||
{- --# notpresent
|
||||
-}
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user