* added default dictionary/stylesheet paths

[helm.git] / helm / DEVEL / mathml_editor / ocaml / c_mathml_editor.cc

diff --git a/helm/DEVEL/mathml_editor/ocaml/c_mathml_editor.cc b/helm/DEVEL/mathml_editor/ocaml/c_mathml_editor.cc
index 73bc4abb7cd2e3706b4ef6999617486ce0c31bd7..f610a7ff5d92bd810ee56dcefdb67310f65a9274 100644 (file)
--- a/helm/DEVEL/mathml_editor/ocaml/c_mathml_editor.cc
+++ b/helm/DEVEL/mathml_editor/ocaml/c_mathml_editor.cc
@@ -96,6 +96,24 @@ Editor::~Editor()
   delete logger;
 }
 
+extern "C" const char*
+c_mathml_editor_get_default_dictionary_path()
+{
+  return TDictionary::getDefaultDictionaryPath().c_str();
+}
+
+extern "C" const char*
+c_mathml_editor_get_default_mathml_stylesheet_path()
+{
+  return AMathMLFactory::getDefaultMathMLStylesheetPath().c_str();
+}
+
+extern "C" const char*
+c_mathml_editor_get_default_tex_stylesheet_path()
+{
+  return AMathMLFactory::getDefaultTeXStylesheetPath().c_str();
+}
+
 extern "C" Editor*
 c_mathml_editor_new(GdomeDocument* dictionary,
                    GdomeDocument* tml_mml,