GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-18 23:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added examples to the documentation of verbs and prepositions

Browse Source
This commit is contained in:
aarne
2013-12-13 17:39:51 +00:00
parent a1d641ea4a
commit dba791cc83
5 changed files with 121 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/src/english/DocumentationEng.gf
View File

@@ -4,6 +4,8 @@ concrete DocumentationEng of Documentation = CatEng ** open
ResEng,
ParadigmsEng,
(G = GrammarEng),
(S = SyntaxEng),
(L = LexiconEng),
Prelude,
HTML
in {
@@ -79,10 +81,19 @@ lin
)
} ;
InflectionV v = inflectionVerb (verbExample (S.mkCl S.she_NP (lin V v))) v ;
InflectionV2 v = inflectionVerb (verbExample (S.mkCl S.she_NP (lin V2 v) S.something_NP)) (lin V v) ;
--- InflectionVV v = inflectionVerb (verbExample (S.mkCl S.she_NP (lin VV v) (S.mkVP (L.sleep_V)))) (lin V v) ;
InflectionV2V v = inflectionVerb (verbExample (S.mkCl S.she_NP (lin V2V v) S.we_NP (S.mkVP (L.sleep_V)))) (lin V v) ;
ExplainInflection e i = ss (i.s ++ paragraph e.s) ; -- explanation appended in a new paragraph
InflectionV, InflectionV2 = \verb -> {
oper
verbExample : Cl -> Str = \cl -> (S.mkUtt cl).s ;
inflectionVerb : Str -> V -> {s : Str} = \ex,verb -> {
s = heading1 (heading verb_Category) ++
paragraph (intag "b" (heading exampleGr_N ++ ":") ++ intag "i" ex) ++
frameTable (
tr (th (heading infinitive_Parameter) ++ tdf (verb.s ! VInf)) ++
tr (th (heading present_Parameter) ++ tdf (verb.s ! VPres)) ++
@@ -92,5 +103,9 @@ lin
)
} ;
lin
exampleGr_N = mkN "example" ;
formGr_N = mkN "form" ;
}