Safe Haskell	Safe-Inferred
Language	Haskell2010

Morley.Michelson.Macro

Contents

Macros types
Morley Parsed value types
Morley Parsed instruction types
For utilities
For parsing
Internals exported for tests

Synopsis

data CadrStruct
- = A
- | D
data PairStruct
- = F FieldAnn
- | P PairStruct PairStruct
data UnpairStruct
- = UF
- | UP UnpairStruct 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
- = Prim ParsedInstr SrcPos
- | Mac Macro SrcPos
- | Seq [ParsedOp] SrcPos
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 #

Constructors

A
D

Instances

Instances details

FromJSON CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods parseJSON :: Value -> Parser CadrStruct # parseJSONList :: Value -> Parser [CadrStruct] #
ToJSON CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods toJSON :: CadrStruct -> Value # toEncoding :: CadrStruct -> Encoding # toJSONList :: [CadrStruct] -> Value # toEncodingList :: [CadrStruct] -> Encoding #
Data CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> CadrStruct -> c CadrStruct # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c CadrStruct # toConstr :: CadrStruct -> Constr # dataTypeOf :: CadrStruct -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c CadrStruct) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c CadrStruct) # gmapT :: (forall b. Data b => b -> b) -> CadrStruct -> CadrStruct # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> CadrStruct -> r # gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> CadrStruct -> r # gmapQ :: (forall d. Data d => d -> u) -> CadrStruct -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> CadrStruct -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> CadrStruct -> m CadrStruct # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> CadrStruct -> m CadrStruct # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> CadrStruct -> m CadrStruct #
Generic CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Associated Types type Rep CadrStruct :: Type -> Type # Methods from :: CadrStruct -> Rep CadrStruct x # to :: Rep CadrStruct x -> CadrStruct #
Show CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods showsPrec :: Int -> CadrStruct -> ShowS # show :: CadrStruct -> String # showList :: [CadrStruct] -> ShowS #
NFData CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods rnf :: CadrStruct -> () #
Eq CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods (==) :: CadrStruct -> CadrStruct -> Bool # (/=) :: CadrStruct -> CadrStruct -> Bool #
Buildable CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods build :: CadrStruct -> Doc buildList :: [CadrStruct] -> Doc
type Rep CadrStruct Source #
Instance details Defined in Morley.Michelson.Macro type Rep CadrStruct = D1 ('MetaData "CadrStruct" "Morley.Michelson.Macro" "morley-1.20.0-inplace" 'False) (C1 ('MetaCons "A" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "D" 'PrefixI 'False) (U1 :: Type -> Type))

data PairStruct Source #

Constructors

F FieldAnn
P PairStruct PairStruct

Instances

Instances details

FromJSON PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods parseJSON :: Value -> Parser PairStruct # parseJSONList :: Value -> Parser [PairStruct] #
ToJSON PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods toJSON :: PairStruct -> Value # toEncoding :: PairStruct -> Encoding # toJSONList :: [PairStruct] -> Value # toEncodingList :: [PairStruct] -> Encoding #
Data PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> PairStruct -> c PairStruct # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c PairStruct # toConstr :: PairStruct -> Constr # dataTypeOf :: PairStruct -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c PairStruct) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c PairStruct) # gmapT :: (forall b. Data b => b -> b) -> PairStruct -> PairStruct # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> PairStruct -> r # gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> PairStruct -> r # gmapQ :: (forall d. Data d => d -> u) -> PairStruct -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> PairStruct -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> PairStruct -> m PairStruct # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> PairStruct -> m PairStruct # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> PairStruct -> m PairStruct #
Generic PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Associated Types type Rep PairStruct :: Type -> Type # Methods from :: PairStruct -> Rep PairStruct x # to :: Rep PairStruct x -> PairStruct #
Show PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods showsPrec :: Int -> PairStruct -> ShowS # show :: PairStruct -> String # showList :: [PairStruct] -> ShowS #
NFData PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods rnf :: PairStruct -> () #
Eq PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods (==) :: PairStruct -> PairStruct -> Bool # (/=) :: PairStruct -> PairStruct -> Bool #
Buildable PairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods build :: PairStruct -> Doc buildList :: [PairStruct] -> Doc
type Rep PairStruct Source #
Instance details Defined in Morley.Michelson.Macro type Rep PairStruct = D1 ('MetaData "PairStruct" "Morley.Michelson.Macro" "morley-1.20.0-inplace" 'False) (C1 ('MetaCons "F" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FieldAnn)) :+: C1 ('MetaCons "P" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 PairStruct) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 PairStruct)))

data UnpairStruct Source #

Constructors

UF
UP UnpairStruct UnpairStruct

Instances

Instances details

FromJSON UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods parseJSON :: Value -> Parser UnpairStruct # parseJSONList :: Value -> Parser [UnpairStruct] #
ToJSON UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods toJSON :: UnpairStruct -> Value # toEncoding :: UnpairStruct -> Encoding # toJSONList :: [UnpairStruct] -> Value # toEncodingList :: [UnpairStruct] -> Encoding #
Data UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> UnpairStruct -> c UnpairStruct # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c UnpairStruct # toConstr :: UnpairStruct -> Constr # dataTypeOf :: UnpairStruct -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c UnpairStruct) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c UnpairStruct) # gmapT :: (forall b. Data b => b -> b) -> UnpairStruct -> UnpairStruct # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> UnpairStruct -> r # gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> UnpairStruct -> r # gmapQ :: (forall d. Data d => d -> u) -> UnpairStruct -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> UnpairStruct -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> UnpairStruct -> m UnpairStruct # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> UnpairStruct -> m UnpairStruct # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> UnpairStruct -> m UnpairStruct #
Generic UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Associated Types type Rep UnpairStruct :: Type -> Type # Methods from :: UnpairStruct -> Rep UnpairStruct x # to :: Rep UnpairStruct x -> UnpairStruct #
Show UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods showsPrec :: Int -> UnpairStruct -> ShowS # show :: UnpairStruct -> String # showList :: [UnpairStruct] -> ShowS #
NFData UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods rnf :: UnpairStruct -> () #
Eq UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods (==) :: UnpairStruct -> UnpairStruct -> Bool # (/=) :: UnpairStruct -> UnpairStruct -> Bool #
Buildable UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro Methods build :: UnpairStruct -> Doc buildList :: [UnpairStruct] -> Doc
type Rep UnpairStruct Source #
Instance details Defined in Morley.Michelson.Macro type Rep UnpairStruct = D1 ('MetaData "UnpairStruct" "Morley.Michelson.Macro" "morley-1.20.0-inplace" 'False) (C1 ('MetaCons "UF" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "UP" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UnpairStruct) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UnpairStruct)))

data Macro Source #

Built-in Michelson Macros defined by the specification

Instances

Instances details

FromJSON Macro Source #
Instance details Defined in Morley.Michelson.Macro Methods parseJSON :: Value -> Parser Macro # parseJSONList :: Value -> Parser [Macro] #
ToJSON Macro Source #
Instance details Defined in Morley.Michelson.Macro Methods toJSON :: Macro -> Value # toEncoding :: Macro -> Encoding # toJSONList :: [Macro] -> Value # toEncodingList :: [Macro] -> Encoding #
Data Macro Source #
Instance details Defined in Morley.Michelson.Macro Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Macro -> c Macro # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Macro # toConstr :: Macro -> Constr # dataTypeOf :: Macro -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Macro) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Macro) # gmapT :: (forall b. Data b => b -> b) -> Macro -> Macro # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Macro -> r # gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Macro -> r # gmapQ :: (forall d. Data d => d -> u) -> Macro -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> Macro -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> Macro -> m Macro # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Macro -> m Macro # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Macro -> m Macro #
Generic Macro Source #
Instance details Defined in Morley.Michelson.Macro Associated Types type Rep Macro :: Type -> Type # Methods from :: Macro -> Rep Macro x # to :: Rep Macro x -> Macro #
Show Macro Source #
Instance details Defined in Morley.Michelson.Macro Methods showsPrec :: Int -> Macro -> ShowS # show :: Macro -> String # showList :: [Macro] -> ShowS #
NFData Macro Source #
Instance details Defined in Morley.Michelson.Macro Methods rnf :: Macro -> () #
Eq Macro Source #
Instance details Defined in Morley.Michelson.Macro Methods (==) :: Macro -> Macro -> Bool # (/=) :: Macro -> Macro -> Bool #
Buildable Macro Source #
Instance details Defined in Morley.Michelson.Macro Methods build :: Macro -> Doc buildList :: [Macro] -> Doc
type Rep Macro Source #
Instance details Defined in Morley.Michelson.Macro type Rep Macro = D1 ('MetaData "Macro" "Morley.Michelson.Macro" "morley-1.20.0-inplace" 'False) ((((C1 ('MetaCons "CMP" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 ParsedInstr)) :+: C1 ('MetaCons "IFX" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 ParsedInstr) :: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp)) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp))))) :+: (C1 ('MetaCons "IFCMP" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 ParsedInstr) :: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp)) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp)))) :+: (C1 ('MetaCons "FAIL" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "PAPAIR" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 PairStruct) :: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 TypeAnn) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 VarAnn)))))) :+: ((C1 ('MetaCons "UNPAPAIR" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UnpairStruct)) :+: (C1 ('MetaCons "CADR" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [CadrStruct]) :: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 VarAnn) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FieldAnn))) :+: C1 ('MetaCons "CARN" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 VarAnn) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Word)))) :+: (C1 ('MetaCons "CDRN" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 VarAnn) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Word)) :+: (C1 ('MetaCons "SET_CADR" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [CadrStruct]) :: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 VarAnn) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FieldAnn))) :+: C1 ('MetaCons "MAP_CADR" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [CadrStruct]) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 VarAnn)) :: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 FieldAnn) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp)))))))) :+: (((C1 ('MetaCons "DIIP" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Word) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp))) :+: C1 ('MetaCons "DUUP" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Word) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 VarAnn))) :+: (C1 ('MetaCons "ASSERT" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ASSERTX" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 ParsedInstr)) :+: C1 ('MetaCons "ASSERT_CMP" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 ParsedInstr))))) :+: ((C1 ('MetaCons "ASSERT_NONE" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "ASSERT_SOME" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "ASSERT_LEFT" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "ASSERT_RIGHT" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "IF_SOME" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp)) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp))) :+: C1 ('MetaCons "IF_RIGHT" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp)) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (ParsedSeq ParsedOp))))))))

Morley Parsed value types

type ParsedValue = Value' ParsedSeq ParsedOp Source #

Morley Parsed instruction types

type ParsedInstr = InstrAbstract ParsedSeq ParsedOp Source #

data ParsedOp Source #

Unexpanded instructions produced directly by the ops parser, which contains primitive Michelson Instructions, inline-able macros and sequences

Constructors

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 details

FromJSON ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods parseJSON :: Value -> Parser ParsedOp # parseJSONList :: Value -> Parser [ParsedOp] #
ToJSON ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods toJSON :: ParsedOp -> Value # toEncoding :: ParsedOp -> Encoding # toJSONList :: [ParsedOp] -> Value # toEncodingList :: [ParsedOp] -> Encoding #
Data ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ParsedOp -> c ParsedOp # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ParsedOp # toConstr :: ParsedOp -> Constr # dataTypeOf :: ParsedOp -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ParsedOp) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ParsedOp) # gmapT :: (forall b. Data b => b -> b) -> ParsedOp -> ParsedOp # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ParsedOp -> r # gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ParsedOp -> r # gmapQ :: (forall d. Data d => d -> u) -> ParsedOp -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> ParsedOp -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> ParsedOp -> m ParsedOp # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ParsedOp -> m ParsedOp # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ParsedOp -> m ParsedOp #
Generic ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Associated Types type Rep ParsedOp :: Type -> Type # Methods from :: ParsedOp -> Rep ParsedOp x # to :: Rep ParsedOp x -> ParsedOp #
Show ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods showsPrec :: Int -> ParsedOp -> ShowS # show :: ParsedOp -> String # showList :: [ParsedOp] -> ShowS #
NFData ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods rnf :: ParsedOp -> () #
Eq ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods (==) :: ParsedOp -> ParsedOp -> Bool # (/=) :: ParsedOp -> ParsedOp -> Bool #
RenderDoc ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods renderDoc :: RenderContext -> ParsedOp -> Doc Source # isRenderable :: ParsedOp -> Bool Source #
Buildable ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro Methods build :: ParsedOp -> Doc buildList :: [ParsedOp] -> Doc
type Rep ParsedOp Source #
Instance details Defined in Morley.Michelson.Macro type Rep ParsedOp = D1 ('MetaData "ParsedOp" "Morley.Michelson.Macro" "morley-1.20.0-inplace" 'False) (C1 ('MetaCons "Prim" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 ParsedInstr) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SrcPos)) :+: (C1 ('MetaCons "Mac" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Macro) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SrcPos)) :+: C1 ('MetaCons "Seq" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 [ParsedOp]) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 SrcPos))))

data ParsedSeq op Source #

Constructors

PSSingleMacro SrcPos Macro
PSSequence [op]

Instances

Instances details

Foldable ParsedSeq Source #
Instance details Defined in Morley.Michelson.Macro Methods 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] # null :: ParsedSeq a -> Bool # length :: ParsedSeq a -> Int # elem :: Eq a => a -> ParsedSeq a -> Bool # maximum :: Ord a => ParsedSeq a -> a # minimum :: Ord a => ParsedSeq a -> a # sum :: Num a => ParsedSeq a -> a # product :: Num a => ParsedSeq a -> a #
Functor ParsedSeq Source #
Instance details Defined in Morley.Michelson.Macro Methods fmap :: (a -> b) -> ParsedSeq a -> ParsedSeq b # (<$) :: a -> ParsedSeq b -> ParsedSeq a #
FromJSON op => FromJSON (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro Methods parseJSON :: Value -> Parser (ParsedSeq op) # parseJSONList :: Value -> Parser [ParsedSeq op] #
ToJSON op => ToJSON (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro Methods toJSON :: ParsedSeq op -> Value # toEncoding :: ParsedSeq op -> Encoding # toJSONList :: [ParsedSeq op] -> Value # toEncodingList :: [ParsedSeq op] -> Encoding #
Data op => Data (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro Methods 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 #
Instance details Defined in Morley.Michelson.Macro Associated Types type Rep (ParsedSeq op) :: Type -> Type # Methods from :: ParsedSeq op -> Rep (ParsedSeq op) x # to :: Rep (ParsedSeq op) x -> ParsedSeq op #
Show op => Show (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro Methods showsPrec :: Int -> ParsedSeq op -> ShowS # show :: ParsedSeq op -> String # showList :: [ParsedSeq op] -> ShowS #
NFData op => NFData (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro Methods rnf :: ParsedSeq op -> () #
Eq op => Eq (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro Methods (==) :: ParsedSeq op -> ParsedSeq op -> Bool # (/=) :: ParsedSeq op -> ParsedSeq op -> Bool #
Buildable op => Buildable (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro Methods build :: ParsedSeq op -> Doc buildList :: [ParsedSeq op] -> Doc
type Rep (ParsedSeq op) Source #
Instance details Defined in Morley.Michelson.Macro type Rep (ParsedSeq op) = D1 ('MetaData "ParsedSeq" "Morley.Michelson.Macro" "morley-1.20.0-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])))

type ParsedUExtInstr = ExtInstrAbstract ParsedSeq ParsedOp Source #

For utilities

expandContract :: Contract' ParsedOp -> Contract Source #

Expand all macros in parsed contract.

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 #

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)