github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +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 } data Language = Language { getConstructor :: Constructor, getTsLanguage :: Ptr TSLanguage }
languageForType :: String -> Maybe (Ptr TSLanguage) languageForType :: String -> Maybe Language
languageForType mediaType = case mediaType of languageForType mediaType = case mediaType of
".h" -> Just ts_language_c ".h" -> Just $ Language (constructorForProductions mempty mempty) ts_language_c
".c" -> Just ts_language_c ".c" -> Just $ Language (constructorForProductions mempty mempty) ts_language_c
".js" -> Just ts_language_javascript ".js" -> Just $ Language (constructorForProductions keyedProductions fixedProductions) ts_language_javascript
_ -> Nothing _ -> Nothing
parseTreeSitterFile :: Ptr TSLanguage -> String -> IO (Term String Info) parseTreeSitterFile :: Language -> String -> IO (Term String Info)
parseTreeSitterFile language contents = do parseTreeSitterFile (Language constructor language) contents = do
document <- ts_document_make document <- ts_document_make
ts_document_set_language document language ts_document_set_language document language
withCString contents (\source -> do withCString contents (\source -> do