Disambiguate free pascal and puppet (#1845)

Both free pascal and puppet are sharing the same file extension, that is
`.pp`. This change adds `.pp` as a possible extension for pascal lexer
and disambiguates them using keywords.

Author: tancnle

lib/rouge/guessers/disambiguation.rb

@@ -131,6 +131,13 @@ def match?(filename)
         next TeX if matches?(/\A\s*(?:\\|%)/)
         next Apex
       end
+
+      disambiguate '*.pp' do
+        next Pascal if matches?(/\b(function|begin|var)\b/)
+        next Pascal if matches?(/\b(end(;|\.))/)
+
+        Puppet
+      end
     end
   end
 end

lib/rouge/lexers/pascal.rb

@@ -7,7 +7,7 @@ class Pascal < RegexLexer
       tag 'pascal'
       title "Pascal"
       desc 'a procedural programming language commonly used as a teaching language.'
-      filenames '*.pas', '*.lpr'
+      filenames '*.pas', '*.lpr', '*.pp'
 
       mimetypes 'text/x-pascal'
 

spec/guesser_spec.rb

@@ -76,4 +76,40 @@
       assert_guess(Rouge::Lexers::Ruby, :source => '# v' + 'im: syntax=ruby')
     end
   end
+
+  describe 'disambiguation guessing' do
+    describe 'guesses *.pp filename' do
+      it 'guesses pascal' do
+        assert_guess(
+          Rouge::Lexers::Pascal,
+          filename: 'foo.pp',
+          source: <<~SOURCE
+            function sum(a, b: integer): integer;
+            var tempSum: integer
+            begin
+              tempSum := a + b;
+              sum := tempSum;
+            end;
+          SOURCE
+        )
+      end
+
+      it 'guesses puppet' do
+        assert_guess(
+          Rouge::Lexers::Puppet,
+          filename: 'foo.pp',
+          source: <<~SOURCE
+            class foo::bar (
+              Array[String] = foo::bar::baz,
+            ) {
+              $foo = [
+                'bar',
+                'baz',
+              ]
+            }
+          SOURCE
+        )
+      end
+    end
+  end
 end

spec/lexers/pascal_spec.rb

@@ -9,7 +9,10 @@
 
     it 'guesses by filename' do
       assert_guess :filename => 'foo.pas'
-      assert_guess :filename => 'foo.lpr'      
+      assert_guess :filename => 'foo.lpr'
+
+      # *.pp needs source hints because it's also used by Puppet
+      assert_guess :filename => 'foo.pp', :source => 'begin end.'
     end
 
     it 'guesses by mimetype' do

spec/lexers/puppet_spec.rb

@@ -8,7 +8,8 @@
     include Support::Guessing
 
     it 'guesses by filename' do
-      assert_guess :filename => 'foo.pp'
+      # *.pp needs source hints because it's also used by Pascal
+      assert_guess :filename => 'foo.pp', :source => 'class privileges { }'
     end
 
     it 'guesses by source' do