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

lib/src/japanese/DocumentationJpn.gf

@@ -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>"};
+
+}

lib/src/japanese/LangJpn.gf

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

lib/src/thai/DocumentationTha.gf

@@ -0,0 +1,16 @@
+--# -path=.:../abstract:../common
+concrete DocumentationTha of Documentation = CatTha ** 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>"};
+
+}

lib/src/thai/LangTha.gf

@@ -4,6 +4,7 @@ concrete LangTha of Lang =
   GrammarTha,
   LexiconTha
   ,ConstructionTha
+  ,DocumentationTha --# notpresent
   ** {
 
 

lib/src/translator/TranslateJpn.gf

@@ -21,7 +21,7 @@ concrete TranslateJpn of Translate =
   RelativeJpn,
   IdiomJpn,
 ----  ConstructionJpn, ---- TODO
-----  DocumentationJpn, ---- TODO
+  DocumentationJpn, ---- TODO
 
   ChunkJpn,
   ExtensionsJpn [

lib/src/translator/TranslateTha.gf

@@ -21,7 +21,7 @@ concrete TranslateTha of Translate =
   RelativeTha,
   IdiomTha,
   ConstructionTha,
---  DocumentationTha,
+  DocumentationTha,
 
   ChunkTha,
   ExtensionsTha [