Adding Charity and heuristic for xBase .ch files

lib/linguist/heuristics.rb

@@ -333,5 +333,11 @@ module Linguist
         Language["GAS"]
       end
     end
+
+    disambiguate "xBase", "Charity" do |data|
+      if /^\s*#\s*(if|ifdef|ifndef|define|command|xcommand|translate|xtranslate|include|pragma|undef)\b/i.match(data)
+        Language["xBase"]
+      end
+    end
   end
 end

lib/linguist/languages.yml

@@ -501,6 +501,13 @@ Chapel:
   - .chpl
   ace_mode: text
 
+Charity:
+  type: programming
+  extensions:
+    - .ch
+  tm_scope: none
+  ace_mode: text
+
 ChucK:
   type: programming
   extensions: