Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
Synopsis
- data CadrStruct
- data PairStruct
- data UnpairStruct
- data Macro
- = CMP ParsedInstr
- | IFX ParsedInstr (ParsedSeq ParsedOp) (ParsedSeq ParsedOp)
- | IFCMP ParsedInstr (ParsedSeq ParsedOp) (ParsedSeq ParsedOp)
- | FAIL
- | PAPAIR PairStruct TypeAnn VarAnn
- | UNPAPAIR UnpairStruct
- | CADR [CadrStruct] VarAnn FieldAnn
- | CARN VarAnn Word
- | CDRN VarAnn Word
- | SET_CADR [CadrStruct] VarAnn FieldAnn
- | MAP_CADR [CadrStruct] VarAnn FieldAnn (ParsedSeq ParsedOp)
- | DIIP Word (ParsedSeq ParsedOp)
- | DUUP Word VarAnn
- | ASSERT
- | ASSERTX ParsedInstr
- | ASSERT_CMP ParsedInstr
- | ASSERT_NONE
- | ASSERT_SOME
- | ASSERT_LEFT
- | ASSERT_RIGHT
- | IF_SOME (ParsedSeq ParsedOp) (ParsedSeq ParsedOp)
- | IF_RIGHT (ParsedSeq ParsedOp) (ParsedSeq ParsedOp)
- type ParsedValue = Value' ParsedSeq ParsedOp
- type ParsedInstr = InstrAbstract ParsedSeq ParsedOp
- data ParsedOp
- data ParsedSeq op
- = PSSingleMacro SrcPos Macro
- | PSSequence [op]
- type ParsedUExtInstr = ExtInstrAbstract ParsedSeq ParsedOp
- expandContract :: Contract' ParsedOp -> Contract
- expandValue :: ParsedValue -> Value
- mapPairLeaves :: [FieldAnn] -> PairStruct -> PairStruct
- expand :: ParsedOp -> ExpandedOp
- expandSeq :: ParsedSeq ExpandedOp -> [ExpandedOp]
- expandMacro :: ErrorSrcPos -> Macro -> [ExpandedOp]
- expandPapair :: ErrorSrcPos -> PairStruct -> TypeAnn -> VarAnn -> Either ExpandedInstr [ExpandedOp]
- expandUnpapair :: ErrorSrcPos -> UnpairStruct -> [ExpandedOp]
- expandCadr :: ErrorSrcPos -> [CadrStruct] -> VarAnn -> FieldAnn -> [ExpandedOp]
- expandSetCadr :: ErrorSrcPos -> [CadrStruct] -> VarAnn -> FieldAnn -> [ExpandedOp]
- expandMapCadr :: ErrorSrcPos -> [CadrStruct] -> VarAnn -> FieldAnn -> ParsedSeq ParsedOp -> [ExpandedOp]
Macros types
data CadrStruct Source #
Instances
data PairStruct Source #
Instances
data UnpairStruct Source #
Instances
Built-in Michelson Macros defined by the specification
Instances
Morley Parsed value types
Morley Parsed instruction types
type ParsedInstr = InstrAbstract ParsedSeq ParsedOp Source #
Unexpanded instructions produced directly by the ops
parser, which
contains primitive Michelson Instructions, inline-able macros and sequences
Prim ParsedInstr SrcPos | Primitive Michelson instruction |
Mac Macro SrcPos | Built-in Michelson macro defined by the specification |
Seq [ParsedOp] SrcPos | A sequence of instructions |
Instances
Instances
Foldable ParsedSeq Source # | |
Defined in Morley.Michelson.Macro fold :: Monoid m => ParsedSeq m -> m # foldMap :: Monoid m => (a -> m) -> ParsedSeq a -> m # foldMap' :: Monoid m => (a -> m) -> ParsedSeq a -> m # foldr :: (a -> b -> b) -> b -> ParsedSeq a -> b # foldr' :: (a -> b -> b) -> b -> ParsedSeq a -> b # foldl :: (b -> a -> b) -> b -> ParsedSeq a -> b # foldl' :: (b -> a -> b) -> b -> ParsedSeq a -> b # foldr1 :: (a -> a -> a) -> ParsedSeq a -> a # foldl1 :: (a -> a -> a) -> ParsedSeq a -> a # toList :: ParsedSeq a -> [a] # length :: ParsedSeq a -> Int # elem :: Eq a => a -> ParsedSeq a -> Bool # maximum :: Ord a => ParsedSeq a -> a # minimum :: Ord a => ParsedSeq a -> a # | |
Functor ParsedSeq Source # | |
FromJSON op => FromJSON (ParsedSeq op) Source # | |
ToJSON op => ToJSON (ParsedSeq op) Source # | |
Defined in Morley.Michelson.Macro | |
Data op => Data (ParsedSeq op) Source # | |
Defined in Morley.Michelson.Macro gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ParsedSeq op -> c (ParsedSeq op) # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c (ParsedSeq op) # toConstr :: ParsedSeq op -> Constr # dataTypeOf :: ParsedSeq op -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c (ParsedSeq op)) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c (ParsedSeq op)) # gmapT :: (forall b. Data b => b -> b) -> ParsedSeq op -> ParsedSeq op # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ParsedSeq op -> r # gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ParsedSeq op -> r # gmapQ :: (forall d. Data d => d -> u) -> ParsedSeq op -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> ParsedSeq op -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> ParsedSeq op -> m (ParsedSeq op) # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ParsedSeq op -> m (ParsedSeq op) # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ParsedSeq op -> m (ParsedSeq op) # | |
Generic (ParsedSeq op) Source # | |
Show op => Show (ParsedSeq op) Source # | |
NFData op => NFData (ParsedSeq op) Source # | |
Defined in Morley.Michelson.Macro | |
Eq op => Eq (ParsedSeq op) Source # | |
Buildable op => Buildable (ParsedSeq op) Source # | |
Defined in Morley.Michelson.Macro | |
type Rep (ParsedSeq op) Source # | |
Defined in Morley.Michelson.Macro type Rep (ParsedSeq op) = D1 ('MetaData "ParsedSeq" "Morley.Michelson.Macro" "morley-1.19.2-inplace" 'False) (C1 ('MetaCons "PSSingleMacro" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SrcPos) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Macro)) :+: C1 ('MetaCons "PSSequence" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [op]))) |
For utilities
expandValue :: ParsedValue -> Value Source #
Expand all macros in parsed value.
For parsing
mapPairLeaves :: [FieldAnn] -> PairStruct -> PairStruct Source #
Internals exported for tests
expand :: ParsedOp -> ExpandedOp Source #
expandSeq :: ParsedSeq ExpandedOp -> [ExpandedOp] Source #
expandMacro :: ErrorSrcPos -> Macro -> [ExpandedOp] Source #
expandPapair :: ErrorSrcPos -> PairStruct -> TypeAnn -> VarAnn -> Either ExpandedInstr [ExpandedOp] Source #
The macro expansion rules below were taken from: https://tezos.gitlab.io/active/michelson.html#syntactic-conveniences
The correctness of type-annotation expansion is currently untested, as these expansions are not explicitly documented in the Michelson Specification.
expandUnpapair :: ErrorSrcPos -> UnpairStruct -> [ExpandedOp] Source #
The macro expansion rules below were taken from: https://tezos.gitlab.io/active/michelson.html#syntactic-conveniences
expandCadr :: ErrorSrcPos -> [CadrStruct] -> VarAnn -> FieldAnn -> [ExpandedOp] Source #
expandSetCadr :: ErrorSrcPos -> [CadrStruct] -> VarAnn -> FieldAnn -> [ExpandedOp] Source #
expandMapCadr :: ErrorSrcPos -> [CadrStruct] -> VarAnn -> FieldAnn -> ParsedSeq ParsedOp -> [ExpandedOp] Source #