fix: improve openedge abl langage (#1843)

* fix: improve openedge abl langage * Add new lines and trim excessive ones --------- Co-authored-by: Tan Le <numbat@fastmail.com>
rouge-ruby · Apr 2, 2023 · be4d825 · be4d825
1 parent d3df530
commit be4d825
Show file tree

Hide file tree

Showing 5 changed files with 718 additions and 378 deletions.
diff --git a/lib/rouge/guessers/disambiguation.rb b/lib/rouge/guessers/disambiguation.rb
@@ -129,6 +129,7 @@ def match?(filename)
 
       disambiguate '*.cls' do
         next TeX if matches?(/\A\s*(?:\\|%)/)
+        next OpenEdge if matches?(/(no\-undo|BLOCK\-LEVEL|ROUTINE\-LEVEL|&ANALYZE\-SUSPEND)/i)
         next Apex
       end
 
@@ -139,6 +140,12 @@ def match?(filename)
 
         Puppet
       end
+
+      disambiguate '*.p' do
+        next Prolog if contains?(':-')
+        next Prolog if matches?(/\A\w+(\(\w+\,\s*\w+\))*\./)
+        next OpenEdge
+      end
     end
   end
 end