KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Heuristics for Common Lisp and NewLisp

Browse Source
This commit is contained in:
Paul Chaignon
2014-04-28 11:45:24 +02:00
parent e1064b13c0
commit e4975fc476
2 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/linguist/heuristics.rb
View File

@@ -25,6 +25,9 @@ module Linguist
if languages.all? { |l| ["TypeScript", "XML"].include?(l) }
disambiguate_ts(data, languages)
end
if languages.all? { |l| ["Common Lisp", "NewLisp"].include?(l) }
disambiguate_lsp(data, languages)
end
if languages.all? { |l| ["Common Lisp", "OpenCL"].include?(l) }
disambiguate_cl(data, languages)
end
@@ -69,6 +72,13 @@ module Linguist
matches
end
def self.disambiguate_lsp(data, languages)
matches = []
matches << Language["Common Lisp"] if data.include?("(defun")
matches << Language["NewLisp"] if data.include?("true")
matches
end
def self.disambiguate_cl(data, languages)
matches = []
matches << Language["Common Lisp"] if data.include?("(defun ")