From fc1f8083adf4c89006bc9fcefc67635236c09af2 Mon Sep 17 00:00:00 2001
From: Paul Chaignon <paul.chaignon@gmail.com>
Date: Sat, 25 Apr 2015 23:36:15 +0200
Subject: [PATCH] Heuristic rules for XML and Modula-2

---
 lib/linguist/heuristics.rb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/linguist/heuristics.rb b/lib/linguist/heuristics.rb
index 2002d51b..e939788b 100644
--- a/lib/linguist/heuristics.rb
+++ b/lib/linguist/heuristics.rb
@@ -274,6 +274,16 @@ module Linguist
       end
     end
 
+    disambiguate "XML", "Modula-2", "Linux Kernel Module", "AMPL" do |data|
+      if data.include?('<!ENTITY ')
+        Language["XML"]
+      elsif /MODULE\s\w+\s*;/i.match(data) || /^\s*END \w+;$/i.match(data)
+        Language["Modula-2"]
+      else
+        [Language["Linux Kernel Module"], Language["AMPL"]]
+      end
+    end
+
     disambiguate "NL", "NewLisp" do |data|
       if /^(b|g)[0-9]+ /.match(data)
         Language["NL"]