Merge branch 'Open-Turing-Project-detect-turing-language'

lib/linguist/blob_helper.rb

@@ -468,6 +468,28 @@ module Linguist
       end
     end
 
+    # Internal: Guess language of .t files.
+    #
+    # Returns a Language.
+    def guess_t_language
+      score = 0
+      score += 1 if lines.grep(/^% /).any?
+      score += data.gsub(/ := /).count
+      score += data.gsub(/proc |procedure |fcn |function /).count
+      score += data.gsub(/var \w+: \w+/).count
+
+      # Tell-tale signs its gotta be Perl
+      if lines.grep(/^(my )?(sub |\$|@|%)\w+/).any?
+        score = 0
+      end
+
+      if score >= 3
+        Language['Turing']
+      else
+        Language['Perl']
+      end
+    end
+
     # Internal: Guess language of .gsp files.
     #
     # Returns a Language.

lib/linguist/languages.yml

@@ -723,6 +723,7 @@ Perl:
   type: programming
   overrides:
   - .pl
+  - .t
   primary_extension: .pl
   extensions:
   - .PL
@@ -972,6 +973,14 @@ Textile:
   extensions:
   - .textile
 
+Turing:
+  type: programming
+  lexer: Text only
+  primary_extension: .t
+  extensions:
+  - .t
+  - .tu
+
 Twig:
   type: markup
   group: PHP

test/fixtures/perl-test.t

@@ -0,0 +1,10 @@
+use strict;
+use warnings;
+
+use Foo::Bar
+
+$n = 42;
+$name = "world";
+@array = ("1","2","3");
+%hash = ("foo":"bar");
+my $name = "josh";

test/fixtures/turing.t

@@ -0,0 +1,19 @@
+% Accepts a number and calculates its factorial
+
+function factorial (n: int) : real
+    if n = 0 then
+        result 1
+    else
+        result n * factorial (n - 1)
+   end if
+end factorial
+
+var n: int
+loop
+    put "Please input an integer: " ..
+    get n
+    exit when n >= 0
+    put "Input must be a non-negative integer."
+end loop
+
+put "The factorial of ", n, " is ", factorial (n)

test/test_blob.rb

@@ -281,6 +281,10 @@ class TestBlob < Test::Unit::TestCase
     assert_equal Language['R'],           blob("hello-r.R").language
     assert_equal Language['Rebol'],       blob("hello-rebol.r").language
 
+    # .t disambiguation
+    assert_equal Language['Perl'],        blob("perl-test.t").language
+    assert_equal Language['Turing'],      blob("turing.t").language
+
     # ML
     assert_equal Language['OCaml'],       blob("Foo.ml").language
     assert_equal Language['Standard ML'], blob("Foo.sig").language

test/test_language.rb

@@ -20,6 +20,9 @@ class TestLanguage < Test::Unit::TestCase
 
     assert Language.ambiguous?('.r')
     assert_equal Language['R'], Language.find_by_extension('r')
+
+    assert Language.ambiguous?('.t')
+    assert_equal Language['Perl'], Language.find_by_extension('t')
   end
 
   def test_lexer