fix: improve openedge abl langage

rouge-ruby · Nov 23, 2022 · a8182a9 · a8182a9
1 parent a4198a8
commit a8182a9
Show file tree

Hide file tree

Showing 5 changed files with 716 additions and 379 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
 
@@ -138,6 +139,14 @@ 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