From 12dce7f365c80cc6c8890cbf287f483cbf0b7d13 Mon Sep 17 00:00:00 2001
From: Yannick Moy <moy@adacore.com>
Date: Sun, 2 Nov 2014 22:35:54 +0100
Subject: [PATCH] Recognize comments in Ada and OCaml.

Signed-off-by: Adam Waldenberg <adam.waldenberg@ejwa.se>
---
 gitinspector/comment.py | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gitinspector/comment.py b/gitinspector/comment.py
index 1144b52..ed5361d 100644
--- a/gitinspector/comment.py
+++ b/gitinspector/comment.py
@@ -21,14 +21,15 @@ from __future__ import unicode_literals
 
 __comment_begining__ = {"java": "/*", "c": "/*", "cc": "/*", "cpp": "/*", "h": "/*", "hh": "/*", "hpp": "/*", "html": "<!--",
                         "php": "/*", "py": "\"\"\"", "glsl": "/*", "rb": "=begin", "js": "/*", "jspx": "<!--", "scala": "/*",
-                        "sql": "/*", "tex": "\\begin{comment}", "xhtml": "<!--", "xml": "<!--"}
+                        "sql": "/*", "tex": "\\begin{comment}", "xhtml": "<!--", "xml": "<!--", "ml": "(*", "mli": "(*" }
 
 __comment_end__ = {"java": "*/", "c": "*/", "cc": "*/", "cpp": "*/", "h": "*/", "hh": "*/", "hpp": "*/", "html": "-->",
                    "php": "/*", "py": "\"\"\"", "glsl": "*/", "rb": "=end", "js": "*/", "jspx": "-->", "scala": "*/",
-                   "sql": "*/", "tex": "\\end{comment}", "xhtml": "-->", "xml": "-->"}
+                   "sql": "*/", "tex": "\\end{comment}", "xhtml": "-->", "xml": "-->", "ml": "*)", "mli": "*)" }
 
 __comment__ = {"java": "//", "c": "//", "cc": "//", "cpp": "//", "h": "//", "hh": "//", "hpp": "//", "pl": "#", "php": "//",
-               "py": "#", "glsl": "//", "rb": "#", "js": "//", "scala": "//", "sql": "--", "tex": "%"}
+               "py": "#", "glsl": "//", "rb": "#", "js": "//", "scala": "//", "sql": "--", "tex": "%", "ada": "--", "ads": "--",
+               "adb": "--" }
 
 __comment_markers_must_be_at_begining__ = {"tex": True}