lib/rouge/guessers/disambiguation.rb in rouge-4.1.0 vs lib/rouge/guessers/disambiguation.rb in rouge-4.1.1

@@ -127,18 +127,25 @@
         next PlainText
       end
 
       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
 
       disambiguate '*.pp' do
         next Puppet if matches?(/(::)?([a-z]\w*::)/)
         next Pascal if matches?(/^(function|begin|var)\b/)
         next Pascal if matches?(/\b(end(;|\.))/)
 
         Puppet
+      end
+      
+      disambiguate '*.p' do
+        next Prolog if contains?(':-')
+        next Prolog if matches?(/\A\w+(\(\w+\,\s*\w+\))*\./)
+        next OpenEdge
       end
     end
   end
 end