a minimal implementation for DocumentationTha and DocumentationJpn which is enough for showing the lexical definitions

This commit is contained in:
krasimir
2015-11-16 20:02:11 +00:00
parent 7c0e91c3a5
commit 7f5ab530ba
6 changed files with 36 additions and 2 deletions

View File

@@ -0,0 +1,16 @@
--# -path=.:../abstract:../common
concrete DocumentationJpn of Documentation = CatJpn ** open
HTML in {
lincat
Inflection = {t : Str; s1,s2 : Str} ;
Definition = {s : Str} ;
Document = {s : Str} ;
Tag = {s : Str} ;
lin
NoDefinition = {s=""};
MkDefinition d = {s="<p>"++d.s++"</p>"};
MkDefinitionEx d e = {s="<p>"++d.s++"</p><p>"++e.s++"</p>"};
}

View File

@@ -3,5 +3,6 @@
concrete LangJpn of Lang =
GrammarJpn,
LexiconJpn
,DocumentationJpn --# notpresent
;