1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00

Adjust prelude definitions since we can't yet assign to slots.

This commit is contained in:
Patrick Thomson 2019-10-30 15:13:34 -04:00
parent f4d70c0c21
commit 80587be6cc
3 changed files with 14 additions and 13 deletions

View File

@ -363,7 +363,7 @@ instance Compile Py.String where
Prj Py.EscapeSequence { text } -> pure text
other -> fail ("Couldn't string-desugar " <> show other)
let new = pure "__semantic_prelude" ... "str"
let new = pure "__semantic_prelude" ... "str" ... "__slots" ... "__new__"
cc $ locate it (new $$ Core.string (mconcat contents))
instance Compile Py.Subscript

View File

@ -8,7 +8,7 @@
// object's superclass is type itself
object <- type "object" type #record{};
str <- type "str" object #record { };
str <- type "str" object #record { __new__: \prim -> instance #unit prim #record{} };
getitem <- \super -> \item -> \attr ->
if item.slots.?attr then item.slots.attr else #unit;

View File

@ -1,7 +1,10 @@
{-# LANGUAGE DeriveAnyClass, DerivingStrategies, GeneralizedNewtypeDeriving, OverloadedStrings, TypeApplications, TypeOperators, ScopedTypeVariables #-}
{-# LANGUAGE DeriveAnyClass, DerivingStrategies, GeneralizedNewtypeDeriving, OverloadedStrings, ScopedTypeVariables,
TypeApplications, TypeOperators #-}
module Main (main) where
import Analysis.Concrete (Concrete)
import qualified Analysis.Concrete as Concrete
import Analysis.File
import Analysis.ScopeGraph
import Control.Effect
@ -12,39 +15,37 @@ import Control.Monad.Catch
import Control.Monad.IO.Class
import Control.Monad.Trans.Resource (ResourceT, runResourceT)
import Core.Core
import qualified Core.Parser
import Core.Pretty
import qualified Core.Eval as Eval
import Core.Name
import qualified Core.Parser
import Core.Pretty
import qualified Data.Aeson as Aeson
import Analysis.Concrete (Concrete)
import qualified Analysis.Concrete as Concrete
import qualified Data.Aeson.Encode.Pretty as Aeson
import qualified Data.ByteString.Char8 as ByteString
import qualified Data.ByteString.Lazy.Char8 as ByteString.Lazy
import qualified Data.ByteString.Streaming.Char8 as ByteStream
import Data.Foldable
import Data.Function
import qualified Data.IntMap as IntMap
import Data.List (sort)
import qualified Data.Map as Map
import Data.Maybe
import Data.Text (Text)
import GHC.Stack
import qualified Language.Python.Core as Py
import Prelude hiding (fail)
import qualified Data.Map as Map
import qualified Data.IntMap as IntMap
import Source.Span
import Streaming
import qualified Streaming.Process
import Syntax.Term
import System.Directory
import System.Exit
import Streaming
import System.Path ((</>))
import qualified System.Path as Path
import qualified System.Path.Directory as Path
import System.Path ((</>))
import Text.Show.Pretty (ppShow)
import qualified Text.Trifecta as Trifecta
import qualified TreeSitter.Python as TSP
import Data.Text (Text)
import qualified TreeSitter.Unmarshal as TS
import qualified Test.Tasty as Tasty
@ -59,7 +60,7 @@ parsePrelude = do
let ePrelude = Trifecta.parseByteString (Core.Parser.core <* Trifecta.eof) mempty preludesrc
case Trifecta.foldResult (Left . show) Right ePrelude of
Right r -> pure r
Left s -> HUnit.assertFailure ("Couldn't parse prelude: " <> s)
Left s -> HUnit.assertFailure ("Couldn't parse prelude: " <> s)
assertJQExpressionSucceeds :: Show a => Directive.Directive -> a -> Term (Ann Span :+: Core) Name -> HUnit.Assertion
assertJQExpressionSucceeds directive tree core = do