github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00
Code Issues Projects Releases Wiki Activity

Select a Language for a given file name extension.

Browse Source
This commit is contained in:
Rob Rix 2015-12-16 16:05:24 -05:00
parent 0769c00d1d
commit 53046e4b0d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/TreeSitter.hs
View File

@ -63,15 +63,15 @@ constructorForProductions keyed fixed source info@(Info range categories) = (inf
data Language = Language { getConstructor :: Constructor, getTsLanguage :: Ptr TSLanguage }
languageForType :: String -> Maybe (Ptr TSLanguage)
languageForType :: String -> Maybe Language
languageForType mediaType = case mediaType of
".h" -> Just ts_language_c
".c" -> Just ts_language_c
".js" -> Just ts_language_javascript
".h" -> Just $ Language (constructorForProductions mempty mempty) ts_language_c
".c" -> Just $ Language (constructorForProductions mempty mempty) ts_language_c
".js" -> Just $ Language (constructorForProductions keyedProductions fixedProductions) ts_language_javascript
_ -> Nothing
parseTreeSitterFile :: Ptr TSLanguage -> String -> IO (Term String Info)
parseTreeSitterFile language contents = do
parseTreeSitterFile :: Language -> String -> IO (Term String Info)
parseTreeSitterFile (Language constructor language) contents = do
document <- ts_document_make
ts_document_set_language document language
withCString contents (\source -> do