github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00
Code Issues Projects Releases Wiki Activity

Evaluate lots of ruby files

Browse Source
This commit is contained in:
Timothy Clem 2018-02-22 16:34:30 -08:00
parent b9df69ffe4
commit e5426e3744
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Semantic/Util.hs
View File

@ -3,8 +3,8 @@
module Semantic.Util where
import Analysis.Abstract.Evaluating2
import qualified Analysis.Abstract.Evaluating3 as Evaluating3
import qualified Analysis.Abstract.Evaluating2 as E2
import qualified Analysis.Abstract.Evaluating3 as E3
import Analysis.Declaration
import Control.Monad.IO.Class
import Data.Abstract.Address
@ -37,13 +37,18 @@ file :: MonadIO m => FilePath -> m Blob
file path = fromJust <$> IO.readFile path (languageForFilePath path)
-- evaluatePythonFile :: FilePath -> _
-- evaluateRubyFile path = file path
-- >>= runTask . parse rubyParser2
-- >>= pure . Prelude.fst . evaluate @RubyValue
evaluateRubyFile path = file path
>>= runTask . parse rubyParser2
>>= pure . Prelude.fst . evaluate @RubyValue
>>= pure . E3.evaluate @RubyValue
evaluateRubyFile2 path = file path
>>= runTask . parse rubyParser2
>>= pure . Evaluating3.evaluate @RubyValue
evaluateRubyFiles paths = do
blobs@(b:bs) <- traverse file paths
(t:ts) <- runTask $ traverse (parse rubyParser2) blobs
pure $ E3.evaluates @RubyValue (zip bs ts) (b, t)
-- parsePythonFiles :: [FilePath] -> FilePath -> IO ([(Blob, Python.Term)], (Blob, Python.Term))
-- parsePythonFiles paths entryPath = do