asil-1.2: dist/build/TrfInjectRefl.hs
-- UUAGC 0.9.36 (src/TrfInjectRefl.ag)
module TrfInjectRefl(injectReflSwf,injectReflAbc) where
{-# LINE 7 "src/TrfInjectRefl.ag" #-}
import Data.ByteString.Lazy(ByteString,pack)
import ByteCode
import CFG
import Data.Word
import qualified Data.Set as Set
import Data.Set(Set)
import qualified Data.Map as Map
import Data.Map(Map)
import Codec.Binary.UTF8.String
import ProgInfo
{-# LINE 19 "dist/src/sdist.27680/asil-1.2/dist/build/TrfInjectRefl.hs" #-}
{-# LINE 24 "src/TrfInjectRefl.ag" #-}
injectReflSwf :: [SymbolTables] -> SwfFile -> SwfFile
injectReflSwf tbls m = out where
inh = Inh_SwfFile { tbls_Inh_SwfFile = tbls }
sem = sem_SwfFile m
syn = wrap_SwfFile sem inh
out = output_Syn_SwfFile syn
injectReflAbc :: [SymbolTables] -> AbcFile -> AbcFile
injectReflAbc tbls m = out where
inh = Inh_AbcFile { tbls_Inh_AbcFile = tbls }
sem = sem_AbcFile m
syn = wrap_AbcFile sem inh
out = output_Syn_AbcFile syn
{-# LINE 36 "dist/src/sdist.27680/asil-1.2/dist/build/TrfInjectRefl.hs" #-}
-- AbcFile -----------------------------------------------------
-- cata
sem_AbcFile :: AbcFile ->
T_AbcFile
sem_AbcFile (AbcFile_File _minorVersion _majorVersion _constantPool _methods _metadatas _instances _classes _scripts _bodies ) =
(sem_AbcFile_File _minorVersion _majorVersion (sem_PoolInfo _constantPool ) (sem_MethodInfos _methods ) (sem_MetaInfos _metadatas ) (sem_InstanceInfos _instances ) (sem_ClassInfos _classes ) (sem_ScriptInfos _scripts ) (sem_BodyInfos _bodies ) )
-- semantic domain
type T_AbcFile = ([SymbolTables]) ->
( AbcFile ,([SymbolTables]))
data Inh_AbcFile = Inh_AbcFile {tbls_Inh_AbcFile :: !(([SymbolTables]))}
data Syn_AbcFile = Syn_AbcFile {output_Syn_AbcFile :: !(AbcFile ),tbls_Syn_AbcFile :: !(([SymbolTables]))}
wrap_AbcFile :: T_AbcFile ->
Inh_AbcFile ->
Syn_AbcFile
wrap_AbcFile sem (Inh_AbcFile _lhsItbls ) =
(let ( _lhsOoutput,_lhsOtbls) | True = sem _lhsItbls
in (Syn_AbcFile _lhsOoutput _lhsOtbls ))
sem_AbcFile_File :: Word16 ->
Word16 ->
T_PoolInfo ->
T_MethodInfos ->
T_MetaInfos ->
T_InstanceInfos ->
T_ClassInfos ->
T_ScriptInfos ->
T_BodyInfos ->
T_AbcFile
sem_AbcFile_File minorVersion_ majorVersion_ constantPool_ methods_ metadatas_ instances_ classes_ scripts_ bodies_ =
(\ _lhsItbls ->
(case (({-# LINE 56 "src/TrfInjectRefl.ag" #-}
head _lhsItbls
{-# LINE 68 "src/TrfInjectRefl.hs" #-}
)) of
{ _tbls | _tbls `seq` (True) ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_tbls
{-# LINE 73 "src/TrfInjectRefl.hs" #-}
)) of
{ _bodiesOtbls | _bodiesOtbls `seq` (True) ->
(case (bodies_ _bodiesOtbls ) of
{ ( _bodiesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_tbls
{-# LINE 80 "src/TrfInjectRefl.hs" #-}
)) of
{ _scriptsOtbls | _scriptsOtbls `seq` (True) ->
(case (scripts_ _scriptsOtbls ) of
{ ( _scriptsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_tbls
{-# LINE 87 "src/TrfInjectRefl.hs" #-}
)) of
{ _classesOtbls | _classesOtbls `seq` (True) ->
(case (classes_ _classesOtbls ) of
{ ( _classesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_tbls
{-# LINE 94 "src/TrfInjectRefl.hs" #-}
)) of
{ _instancesOtbls | _instancesOtbls `seq` (True) ->
(case (instances_ _instancesOtbls ) of
{ ( _instancesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_tbls
{-# LINE 101 "src/TrfInjectRefl.hs" #-}
)) of
{ _metadatasOtbls | _metadatasOtbls `seq` (True) ->
(case (metadatas_ _metadatasOtbls ) of
{ ( _metadatasIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_tbls
{-# LINE 108 "src/TrfInjectRefl.hs" #-}
)) of
{ _methodsOtbls | _methodsOtbls `seq` (True) ->
(case (methods_ _methodsOtbls ) of
{ ( _methodsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_tbls
{-# LINE 115 "src/TrfInjectRefl.hs" #-}
)) of
{ _constantPoolOtbls | _constantPoolOtbls `seq` (True) ->
(case (constantPool_ _constantPoolOtbls ) of
{ ( _constantPoolIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
AbcFile_File minorVersion_ majorVersion_ _constantPoolIoutput _methodsIoutput _metadatasIoutput _instancesIoutput _classesIoutput _scriptsIoutput _bodiesIoutput
{-# LINE 122 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 127 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 57 "src/TrfInjectRefl.ag" #-}
tail _lhsItbls
{-# LINE 132 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
-- AbcFlag -----------------------------------------------------
-- cata
sem_AbcFlag :: AbcFlag ->
T_AbcFlag
sem_AbcFlag (AbcFlag_LazyInit ) =
(sem_AbcFlag_LazyInit )
-- semantic domain
type T_AbcFlag = ( AbcFlag )
sem_AbcFlag_LazyInit :: T_AbcFlag
sem_AbcFlag_LazyInit =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
AbcFlag_LazyInit
{-# LINE 148 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 153 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
-- AbcFlags ----------------------------------------------------
-- cata
sem_AbcFlags :: AbcFlags ->
T_AbcFlags
sem_AbcFlags list =
(Prelude.foldr sem_AbcFlags_Cons sem_AbcFlags_Nil (Prelude.map sem_AbcFlag list) )
-- semantic domain
type T_AbcFlags = ( AbcFlags )
sem_AbcFlags_Cons :: T_AbcFlag ->
T_AbcFlags ->
T_AbcFlags
sem_AbcFlags_Cons hd_ tl_ =
(case (tl_ ) of
{ ( _tlIoutput) | True ->
(case (hd_ ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 175 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 180 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) })
sem_AbcFlags_Nil :: T_AbcFlags
sem_AbcFlags_Nil =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 188 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 193 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
-- BodyInfo ----------------------------------------------------
-- cata
sem_BodyInfo :: BodyInfo ->
T_BodyInfo
sem_BodyInfo (BodyInfo_Info _method _maxStack _localCount _initScopeDepth _maxScopeDepth _instructions _exceptions _traits ) =
(sem_BodyInfo_Info _method _maxStack _localCount _initScopeDepth _maxScopeDepth (sem_Instructions _instructions ) (sem_Exceptions _exceptions ) (sem_Traits _traits ) )
-- semantic domain
type T_BodyInfo = SymbolTables ->
( BodyInfo )
sem_BodyInfo_Info :: Word32 ->
Word32 ->
Word32 ->
Word32 ->
Word32 ->
T_Instructions ->
T_Exceptions ->
T_Traits ->
T_BodyInfo
sem_BodyInfo_Info method_ maxStack_ localCount_ initScopeDepth_ maxScopeDepth_ instructions_ exceptions_ traits_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 219 "src/TrfInjectRefl.hs" #-}
)) of
{ _traitsOtbls | _traitsOtbls `seq` (True) ->
(case (traits_ _traitsOtbls ) of
{ ( _traitsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 226 "src/TrfInjectRefl.hs" #-}
)) of
{ _exceptionsOtbls | _exceptionsOtbls `seq` (True) ->
(case (exceptions_ _exceptionsOtbls ) of
{ ( _exceptionsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 233 "src/TrfInjectRefl.hs" #-}
)) of
{ _instructionsOtbls | _instructionsOtbls `seq` (True) ->
(case (instructions_ _instructionsOtbls ) of
{ ( _instructionsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
BodyInfo_Info method_ maxStack_ localCount_ initScopeDepth_ maxScopeDepth_ _instructionsIoutput _exceptionsIoutput _traitsIoutput
{-# LINE 240 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 245 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }) }) }))
-- BodyInfos ---------------------------------------------------
-- cata
sem_BodyInfos :: BodyInfos ->
T_BodyInfos
sem_BodyInfos list =
(Prelude.foldr sem_BodyInfos_Cons sem_BodyInfos_Nil (Prelude.map sem_BodyInfo list) )
-- semantic domain
type T_BodyInfos = SymbolTables ->
( BodyInfos )
sem_BodyInfos_Cons :: T_BodyInfo ->
T_BodyInfos ->
T_BodyInfos
sem_BodyInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 265 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 272 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 279 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 284 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_BodyInfos_Nil :: T_BodyInfos
sem_BodyInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 293 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 298 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- CaseOffsets -------------------------------------------------
-- cata
sem_CaseOffsets :: CaseOffsets ->
T_CaseOffsets
sem_CaseOffsets list =
(Prelude.foldr sem_CaseOffsets_Cons sem_CaseOffsets_Nil list )
-- semantic domain
type T_CaseOffsets = SymbolTables ->
( CaseOffsets )
sem_CaseOffsets_Cons :: Word32 ->
T_CaseOffsets ->
T_CaseOffsets
sem_CaseOffsets_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 318 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 325 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 330 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_CaseOffsets_Nil :: T_CaseOffsets
sem_CaseOffsets_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 339 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 344 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- ClassInfo ---------------------------------------------------
-- cata
sem_ClassInfo :: ClassInfo ->
T_ClassInfo
sem_ClassInfo (ClassInfo_Info _con _traits ) =
(sem_ClassInfo_Info _con (sem_Traits _traits ) )
-- semantic domain
type T_ClassInfo = SymbolTables ->
( ClassInfo )
sem_ClassInfo_Info :: Word32 ->
T_Traits ->
T_ClassInfo
sem_ClassInfo_Info con_ traits_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 364 "src/TrfInjectRefl.hs" #-}
)) of
{ _traitsOtbls | _traitsOtbls `seq` (True) ->
(case (traits_ _traitsOtbls ) of
{ ( _traitsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ClassInfo_Info con_ _traitsIoutput
{-# LINE 371 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 376 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
-- ClassInfos --------------------------------------------------
-- cata
sem_ClassInfos :: ClassInfos ->
T_ClassInfos
sem_ClassInfos list =
(Prelude.foldr sem_ClassInfos_Cons sem_ClassInfos_Nil (Prelude.map sem_ClassInfo list) )
-- semantic domain
type T_ClassInfos = SymbolTables ->
( ClassInfos )
sem_ClassInfos_Cons :: T_ClassInfo ->
T_ClassInfos ->
T_ClassInfos
sem_ClassInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 396 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 403 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 410 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 415 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_ClassInfos_Nil :: T_ClassInfos
sem_ClassInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 424 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 429 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- DebugType ---------------------------------------------------
-- cata
sem_DebugType :: DebugType ->
T_DebugType
sem_DebugType (DebugType_Local ) =
(sem_DebugType_Local )
-- semantic domain
type T_DebugType = SymbolTables ->
( DebugType )
sem_DebugType_Local :: T_DebugType
sem_DebugType_Local =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
DebugType_Local
{-# LINE 447 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 452 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Exception ---------------------------------------------------
-- cata
sem_Exception :: Exception ->
T_Exception
sem_Exception (Exception_Info _from _to _target _tp _name ) =
(sem_Exception_Info _from _to _target _tp _name )
-- semantic domain
type T_Exception = SymbolTables ->
( Exception )
sem_Exception_Info :: Word32 ->
Word32 ->
Word32 ->
Word32 ->
Word32 ->
T_Exception
sem_Exception_Info from_ to_ target_ tp_ name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Exception_Info from_ to_ target_ tp_ name_
{-# LINE 475 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 480 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Exceptions --------------------------------------------------
-- cata
sem_Exceptions :: Exceptions ->
T_Exceptions
sem_Exceptions list =
(Prelude.foldr sem_Exceptions_Cons sem_Exceptions_Nil (Prelude.map sem_Exception list) )
-- semantic domain
type T_Exceptions = SymbolTables ->
( Exceptions )
sem_Exceptions_Cons :: T_Exception ->
T_Exceptions ->
T_Exceptions
sem_Exceptions_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 500 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 507 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 514 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 519 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_Exceptions_Nil :: T_Exceptions
sem_Exceptions_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 528 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 533 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- InstanceFlag ------------------------------------------------
-- cata
sem_InstanceFlag :: InstanceFlag ->
T_InstanceFlag
sem_InstanceFlag (InstanceFlag_ClassFinal ) =
(sem_InstanceFlag_ClassFinal )
sem_InstanceFlag (InstanceFlag_ClassInterface ) =
(sem_InstanceFlag_ClassInterface )
sem_InstanceFlag (InstanceFlag_ClassProtected ) =
(sem_InstanceFlag_ClassProtected )
sem_InstanceFlag (InstanceFlag_ClassSealed ) =
(sem_InstanceFlag_ClassSealed )
-- semantic domain
type T_InstanceFlag = SymbolTables ->
( InstanceFlag )
sem_InstanceFlag_ClassFinal :: T_InstanceFlag
sem_InstanceFlag_ClassFinal =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
InstanceFlag_ClassFinal
{-# LINE 557 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 562 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_InstanceFlag_ClassInterface :: T_InstanceFlag
sem_InstanceFlag_ClassInterface =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
InstanceFlag_ClassInterface
{-# LINE 571 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 576 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_InstanceFlag_ClassProtected :: T_InstanceFlag
sem_InstanceFlag_ClassProtected =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
InstanceFlag_ClassProtected
{-# LINE 585 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 590 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_InstanceFlag_ClassSealed :: T_InstanceFlag
sem_InstanceFlag_ClassSealed =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
InstanceFlag_ClassSealed
{-# LINE 599 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 604 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- InstanceFlags -----------------------------------------------
-- cata
sem_InstanceFlags :: InstanceFlags ->
T_InstanceFlags
sem_InstanceFlags list =
(Prelude.foldr sem_InstanceFlags_Cons sem_InstanceFlags_Nil (Prelude.map sem_InstanceFlag list) )
-- semantic domain
type T_InstanceFlags = SymbolTables ->
( InstanceFlags )
sem_InstanceFlags_Cons :: T_InstanceFlag ->
T_InstanceFlags ->
T_InstanceFlags
sem_InstanceFlags_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 624 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 631 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 638 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 643 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_InstanceFlags_Nil :: T_InstanceFlags
sem_InstanceFlags_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 652 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 657 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- InstanceInfo ------------------------------------------------
-- cata
sem_InstanceInfo :: InstanceInfo ->
T_InstanceInfo
sem_InstanceInfo (InstanceInfo_Info _name _super _flags _protectedNs _interfaces _constructor _traits ) =
(sem_InstanceInfo_Info _name _super (sem_InstanceFlags _flags ) _protectedNs (sem_Interfaces _interfaces ) _constructor (sem_Traits _traits ) )
-- semantic domain
type T_InstanceInfo = SymbolTables ->
( InstanceInfo )
sem_InstanceInfo_Info :: Word32 ->
Word32 ->
T_InstanceFlags ->
Word32 ->
T_Interfaces ->
Word32 ->
T_Traits ->
T_InstanceInfo
sem_InstanceInfo_Info name_ super_ flags_ protectedNs_ interfaces_ constructor_ traits_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 682 "src/TrfInjectRefl.hs" #-}
)) of
{ _traitsOtbls | _traitsOtbls `seq` (True) ->
(case (traits_ _traitsOtbls ) of
{ ( _traitsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 689 "src/TrfInjectRefl.hs" #-}
)) of
{ _interfacesOtbls | _interfacesOtbls `seq` (True) ->
(case (interfaces_ _interfacesOtbls ) of
{ ( _interfacesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 696 "src/TrfInjectRefl.hs" #-}
)) of
{ _flagsOtbls | _flagsOtbls `seq` (True) ->
(case (flags_ _flagsOtbls ) of
{ ( _flagsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
InstanceInfo_Info name_ super_ _flagsIoutput protectedNs_ _interfacesIoutput constructor_ _traitsIoutput
{-# LINE 703 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 708 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }) }) }))
-- InstanceInfos -----------------------------------------------
-- cata
sem_InstanceInfos :: InstanceInfos ->
T_InstanceInfos
sem_InstanceInfos list =
(Prelude.foldr sem_InstanceInfos_Cons sem_InstanceInfos_Nil (Prelude.map sem_InstanceInfo list) )
-- semantic domain
type T_InstanceInfos = SymbolTables ->
( InstanceInfos )
sem_InstanceInfos_Cons :: T_InstanceInfo ->
T_InstanceInfos ->
T_InstanceInfos
sem_InstanceInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 728 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 735 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 742 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 747 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_InstanceInfos_Nil :: T_InstanceInfos
sem_InstanceInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 756 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 761 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Instruction -------------------------------------------------
-- cata
sem_Instruction :: Instruction ->
T_Instruction
sem_Instruction (Instruction_Add ) =
(sem_Instruction_Add )
sem_Instruction (Instruction_Add_d ) =
(sem_Instruction_Add_d )
sem_Instruction (Instruction_Add_i ) =
(sem_Instruction_Add_i )
sem_Instruction (Instruction_ApplyType _name ) =
(sem_Instruction_ApplyType _name )
sem_Instruction (Instruction_AsType _name ) =
(sem_Instruction_AsType _name )
sem_Instruction (Instruction_AsTypeLate ) =
(sem_Instruction_AsTypeLate )
sem_Instruction (Instruction_BitAnd ) =
(sem_Instruction_BitAnd )
sem_Instruction (Instruction_BitNot ) =
(sem_Instruction_BitNot )
sem_Instruction (Instruction_BitOr ) =
(sem_Instruction_BitOr )
sem_Instruction (Instruction_BitXor ) =
(sem_Instruction_BitXor )
sem_Instruction (Instruction_BreakLine _line ) =
(sem_Instruction_BreakLine _line )
sem_Instruction (Instruction_Breakpoint ) =
(sem_Instruction_Breakpoint )
sem_Instruction (Instruction_Call _argCount ) =
(sem_Instruction_Call _argCount )
sem_Instruction (Instruction_CallInterface _name _argCount ) =
(sem_Instruction_CallInterface _name _argCount )
sem_Instruction (Instruction_CallMethod _index _argCount ) =
(sem_Instruction_CallMethod _index _argCount )
sem_Instruction (Instruction_CallProp _name _argCount ) =
(sem_Instruction_CallProp _name _argCount )
sem_Instruction (Instruction_CallPropLex _name _argCount ) =
(sem_Instruction_CallPropLex _name _argCount )
sem_Instruction (Instruction_CallPropVoid _name _argCount ) =
(sem_Instruction_CallPropVoid _name _argCount )
sem_Instruction (Instruction_CallStatic _method _argCount ) =
(sem_Instruction_CallStatic _method _argCount )
sem_Instruction (Instruction_CallSuper _name _argCount ) =
(sem_Instruction_CallSuper _name _argCount )
sem_Instruction (Instruction_CallSuperId ) =
(sem_Instruction_CallSuperId )
sem_Instruction (Instruction_CallSuperVoid _name _argCount ) =
(sem_Instruction_CallSuperVoid _name _argCount )
sem_Instruction (Instruction_CheckFilter ) =
(sem_Instruction_CheckFilter )
sem_Instruction (Instruction_Coerce _name ) =
(sem_Instruction_Coerce _name )
sem_Instruction (Instruction_Coerce_a ) =
(sem_Instruction_Coerce_a )
sem_Instruction (Instruction_Coerce_b ) =
(sem_Instruction_Coerce_b )
sem_Instruction (Instruction_Coerce_d ) =
(sem_Instruction_Coerce_d )
sem_Instruction (Instruction_Coerce_i ) =
(sem_Instruction_Coerce_i )
sem_Instruction (Instruction_Coerce_o ) =
(sem_Instruction_Coerce_o )
sem_Instruction (Instruction_Coerce_s ) =
(sem_Instruction_Coerce_s )
sem_Instruction (Instruction_Coerce_u ) =
(sem_Instruction_Coerce_u )
sem_Instruction (Instruction_Concat ) =
(sem_Instruction_Concat )
sem_Instruction (Instruction_Construct _argCount ) =
(sem_Instruction_Construct _argCount )
sem_Instruction (Instruction_ConstructProp _name _argCount ) =
(sem_Instruction_ConstructProp _name _argCount )
sem_Instruction (Instruction_ConstructSuper _argCount ) =
(sem_Instruction_ConstructSuper _argCount )
sem_Instruction (Instruction_Convert_b ) =
(sem_Instruction_Convert_b )
sem_Instruction (Instruction_Convert_d ) =
(sem_Instruction_Convert_d )
sem_Instruction (Instruction_Convert_i ) =
(sem_Instruction_Convert_i )
sem_Instruction (Instruction_Convert_o ) =
(sem_Instruction_Convert_o )
sem_Instruction (Instruction_Convert_s ) =
(sem_Instruction_Convert_s )
sem_Instruction (Instruction_Convert_u ) =
(sem_Instruction_Convert_u )
sem_Instruction (Instruction_Debug _tp _name _reg _extra ) =
(sem_Instruction_Debug (sem_DebugType _tp ) _name _reg _extra )
sem_Instruction (Instruction_DebugFile _name ) =
(sem_Instruction_DebugFile _name )
sem_Instruction (Instruction_DebugLine _line ) =
(sem_Instruction_DebugLine _line )
sem_Instruction (Instruction_DecLocal _reg ) =
(sem_Instruction_DecLocal _reg )
sem_Instruction (Instruction_DecLocal_i _reg ) =
(sem_Instruction_DecLocal_i _reg )
sem_Instruction (Instruction_Decrement ) =
(sem_Instruction_Decrement )
sem_Instruction (Instruction_Decrement_i ) =
(sem_Instruction_Decrement_i )
sem_Instruction (Instruction_DeleteProperty _name ) =
(sem_Instruction_DeleteProperty _name )
sem_Instruction (Instruction_DeletePropertyLate ) =
(sem_Instruction_DeletePropertyLate )
sem_Instruction (Instruction_Divide ) =
(sem_Instruction_Divide )
sem_Instruction (Instruction_Dup ) =
(sem_Instruction_Dup )
sem_Instruction (Instruction_Dxns _name ) =
(sem_Instruction_Dxns _name )
sem_Instruction (Instruction_DxnsLate ) =
(sem_Instruction_DxnsLate )
sem_Instruction (Instruction_Equals ) =
(sem_Instruction_Equals )
sem_Instruction (Instruction_EscXAttr ) =
(sem_Instruction_EscXAttr )
sem_Instruction (Instruction_EscXElem ) =
(sem_Instruction_EscXElem )
sem_Instruction (Instruction_FindDef _name ) =
(sem_Instruction_FindDef _name )
sem_Instruction (Instruction_FindPropStrict _name ) =
(sem_Instruction_FindPropStrict _name )
sem_Instruction (Instruction_FindProperty _name ) =
(sem_Instruction_FindProperty _name )
sem_Instruction (Instruction_FindPropertyGlobal _name ) =
(sem_Instruction_FindPropertyGlobal _name )
sem_Instruction (Instruction_FindPropertyGlobalStrict _name ) =
(sem_Instruction_FindPropertyGlobalStrict _name )
sem_Instruction (Instruction_GetDescendants _name ) =
(sem_Instruction_GetDescendants _name )
sem_Instruction (Instruction_GetGlobalScope ) =
(sem_Instruction_GetGlobalScope )
sem_Instruction (Instruction_GetGlobalSlot _slot ) =
(sem_Instruction_GetGlobalSlot _slot )
sem_Instruction (Instruction_GetLex _name ) =
(sem_Instruction_GetLex _name )
sem_Instruction (Instruction_GetLocal _reg ) =
(sem_Instruction_GetLocal _reg )
sem_Instruction (Instruction_GetLocal0 ) =
(sem_Instruction_GetLocal0 )
sem_Instruction (Instruction_GetLocal1 ) =
(sem_Instruction_GetLocal1 )
sem_Instruction (Instruction_GetLocal2 ) =
(sem_Instruction_GetLocal2 )
sem_Instruction (Instruction_GetLocal3 ) =
(sem_Instruction_GetLocal3 )
sem_Instruction (Instruction_GetOuterScope _name ) =
(sem_Instruction_GetOuterScope _name )
sem_Instruction (Instruction_GetProperty _name ) =
(sem_Instruction_GetProperty _name )
sem_Instruction (Instruction_GetScopeObject _index ) =
(sem_Instruction_GetScopeObject _index )
sem_Instruction (Instruction_GetSlot _slot ) =
(sem_Instruction_GetSlot _slot )
sem_Instruction (Instruction_GetSuper _name ) =
(sem_Instruction_GetSuper _name )
sem_Instruction (Instruction_GreaterEquals ) =
(sem_Instruction_GreaterEquals )
sem_Instruction (Instruction_GreaterThan ) =
(sem_Instruction_GreaterThan )
sem_Instruction (Instruction_HasNext ) =
(sem_Instruction_HasNext )
sem_Instruction (Instruction_HasNext2 _objectReg _indexReg ) =
(sem_Instruction_HasNext2 _objectReg _indexReg )
sem_Instruction (Instruction_IfEq _offset ) =
(sem_Instruction_IfEq _offset )
sem_Instruction (Instruction_IfFalse _offset ) =
(sem_Instruction_IfFalse _offset )
sem_Instruction (Instruction_IfGe _offset ) =
(sem_Instruction_IfGe _offset )
sem_Instruction (Instruction_IfGt _offset ) =
(sem_Instruction_IfGt _offset )
sem_Instruction (Instruction_IfLe _offset ) =
(sem_Instruction_IfLe _offset )
sem_Instruction (Instruction_IfLt _offset ) =
(sem_Instruction_IfLt _offset )
sem_Instruction (Instruction_IfNGe _offset ) =
(sem_Instruction_IfNGe _offset )
sem_Instruction (Instruction_IfNGt _offset ) =
(sem_Instruction_IfNGt _offset )
sem_Instruction (Instruction_IfNLe _offset ) =
(sem_Instruction_IfNLe _offset )
sem_Instruction (Instruction_IfNLt _offset ) =
(sem_Instruction_IfNLt _offset )
sem_Instruction (Instruction_IfNe _offset ) =
(sem_Instruction_IfNe _offset )
sem_Instruction (Instruction_IfStrictEq _offset ) =
(sem_Instruction_IfStrictEq _offset )
sem_Instruction (Instruction_IfStrictNe _offset ) =
(sem_Instruction_IfStrictNe _offset )
sem_Instruction (Instruction_IfTrue _offset ) =
(sem_Instruction_IfTrue _offset )
sem_Instruction (Instruction_In ) =
(sem_Instruction_In )
sem_Instruction (Instruction_IncLocal _reg ) =
(sem_Instruction_IncLocal _reg )
sem_Instruction (Instruction_IncLocal_i _reg ) =
(sem_Instruction_IncLocal_i _reg )
sem_Instruction (Instruction_Increment ) =
(sem_Instruction_Increment )
sem_Instruction (Instruction_Increment_i ) =
(sem_Instruction_Increment_i )
sem_Instruction (Instruction_InitProperty _name ) =
(sem_Instruction_InitProperty _name )
sem_Instruction (Instruction_InstanceOf ) =
(sem_Instruction_InstanceOf )
sem_Instruction (Instruction_IsType _name ) =
(sem_Instruction_IsType _name )
sem_Instruction (Instruction_IsTypeLate ) =
(sem_Instruction_IsTypeLate )
sem_Instruction (Instruction_Jump _offset ) =
(sem_Instruction_Jump _offset )
sem_Instruction (Instruction_Kill _reg ) =
(sem_Instruction_Kill _reg )
sem_Instruction (Instruction_Label ) =
(sem_Instruction_Label )
sem_Instruction (Instruction_LessEquals ) =
(sem_Instruction_LessEquals )
sem_Instruction (Instruction_LessThan ) =
(sem_Instruction_LessThan )
sem_Instruction (Instruction_LoadFloat32 ) =
(sem_Instruction_LoadFloat32 )
sem_Instruction (Instruction_LoadFloat64 ) =
(sem_Instruction_LoadFloat64 )
sem_Instruction (Instruction_LoadIndirect16 ) =
(sem_Instruction_LoadIndirect16 )
sem_Instruction (Instruction_LoadIndirect32 ) =
(sem_Instruction_LoadIndirect32 )
sem_Instruction (Instruction_LoadIndirect8 ) =
(sem_Instruction_LoadIndirect8 )
sem_Instruction (Instruction_Location _index ) =
(sem_Instruction_Location _index )
sem_Instruction (Instruction_LookupSwitch _defaultOffset _caseOffsets ) =
(sem_Instruction_LookupSwitch _defaultOffset (sem_CaseOffsets _caseOffsets ) )
sem_Instruction (Instruction_Lshift ) =
(sem_Instruction_Lshift )
sem_Instruction (Instruction_Modulo ) =
(sem_Instruction_Modulo )
sem_Instruction (Instruction_Multiply ) =
(sem_Instruction_Multiply )
sem_Instruction (Instruction_Multiply_i ) =
(sem_Instruction_Multiply_i )
sem_Instruction (Instruction_Negate ) =
(sem_Instruction_Negate )
sem_Instruction (Instruction_Negate_i ) =
(sem_Instruction_Negate_i )
sem_Instruction (Instruction_NewActivation ) =
(sem_Instruction_NewActivation )
sem_Instruction (Instruction_NewArray _argCount ) =
(sem_Instruction_NewArray _argCount )
sem_Instruction (Instruction_NewCatch _exception ) =
(sem_Instruction_NewCatch _exception )
sem_Instruction (Instruction_NewClass _class ) =
(sem_Instruction_NewClass _class )
sem_Instruction (Instruction_NewFunction _method ) =
(sem_Instruction_NewFunction _method )
sem_Instruction (Instruction_NewObject _argCount ) =
(sem_Instruction_NewObject _argCount )
sem_Instruction (Instruction_NextName ) =
(sem_Instruction_NextName )
sem_Instruction (Instruction_NextValue ) =
(sem_Instruction_NextValue )
sem_Instruction (Instruction_Nop ) =
(sem_Instruction_Nop )
sem_Instruction (Instruction_Not ) =
(sem_Instruction_Not )
sem_Instruction (Instruction_Pop ) =
(sem_Instruction_Pop )
sem_Instruction (Instruction_PopScope ) =
(sem_Instruction_PopScope )
sem_Instruction (Instruction_PushByte _val ) =
(sem_Instruction_PushByte _val )
sem_Instruction (Instruction_PushDouble _name ) =
(sem_Instruction_PushDouble _name )
sem_Instruction (Instruction_PushFalse ) =
(sem_Instruction_PushFalse )
sem_Instruction (Instruction_PushInt _name ) =
(sem_Instruction_PushInt _name )
sem_Instruction (Instruction_PushNaN ) =
(sem_Instruction_PushNaN )
sem_Instruction (Instruction_PushNamespace _name ) =
(sem_Instruction_PushNamespace _name )
sem_Instruction (Instruction_PushNull ) =
(sem_Instruction_PushNull )
sem_Instruction (Instruction_PushScope ) =
(sem_Instruction_PushScope )
sem_Instruction (Instruction_PushShort _val ) =
(sem_Instruction_PushShort _val )
sem_Instruction (Instruction_PushString _name ) =
(sem_Instruction_PushString _name )
sem_Instruction (Instruction_PushTrue ) =
(sem_Instruction_PushTrue )
sem_Instruction (Instruction_PushUInt _name ) =
(sem_Instruction_PushUInt _name )
sem_Instruction (Instruction_PushUndefined ) =
(sem_Instruction_PushUndefined )
sem_Instruction (Instruction_PushWith ) =
(sem_Instruction_PushWith )
sem_Instruction (Instruction_ReturnValue ) =
(sem_Instruction_ReturnValue )
sem_Instruction (Instruction_ReturnVoid ) =
(sem_Instruction_ReturnVoid )
sem_Instruction (Instruction_Rshift ) =
(sem_Instruction_Rshift )
sem_Instruction (Instruction_SetGlobalSlot _slot ) =
(sem_Instruction_SetGlobalSlot _slot )
sem_Instruction (Instruction_SetLocal _reg ) =
(sem_Instruction_SetLocal _reg )
sem_Instruction (Instruction_SetLocal0 ) =
(sem_Instruction_SetLocal0 )
sem_Instruction (Instruction_SetLocal1 ) =
(sem_Instruction_SetLocal1 )
sem_Instruction (Instruction_SetLocal2 ) =
(sem_Instruction_SetLocal2 )
sem_Instruction (Instruction_SetLocal3 ) =
(sem_Instruction_SetLocal3 )
sem_Instruction (Instruction_SetProperty _name ) =
(sem_Instruction_SetProperty _name )
sem_Instruction (Instruction_SetPropertyLate ) =
(sem_Instruction_SetPropertyLate )
sem_Instruction (Instruction_SetSlot _slot ) =
(sem_Instruction_SetSlot _slot )
sem_Instruction (Instruction_SetSuper _name ) =
(sem_Instruction_SetSuper _name )
sem_Instruction (Instruction_SignExtend1 ) =
(sem_Instruction_SignExtend1 )
sem_Instruction (Instruction_SignExtend16 ) =
(sem_Instruction_SignExtend16 )
sem_Instruction (Instruction_SignExtend8 ) =
(sem_Instruction_SignExtend8 )
sem_Instruction (Instruction_StoreFloat32 ) =
(sem_Instruction_StoreFloat32 )
sem_Instruction (Instruction_StoreFloat64 ) =
(sem_Instruction_StoreFloat64 )
sem_Instruction (Instruction_StoreIndirect16 ) =
(sem_Instruction_StoreIndirect16 )
sem_Instruction (Instruction_StoreIndirect32 ) =
(sem_Instruction_StoreIndirect32 )
sem_Instruction (Instruction_StoreIndirect8 ) =
(sem_Instruction_StoreIndirect8 )
sem_Instruction (Instruction_StrictEquals ) =
(sem_Instruction_StrictEquals )
sem_Instruction (Instruction_Substract ) =
(sem_Instruction_Substract )
sem_Instruction (Instruction_Substract_i ) =
(sem_Instruction_Substract_i )
sem_Instruction (Instruction_Swap ) =
(sem_Instruction_Swap )
sem_Instruction (Instruction_Throw ) =
(sem_Instruction_Throw )
sem_Instruction (Instruction_Timestamp ) =
(sem_Instruction_Timestamp )
sem_Instruction (Instruction_TypeOf ) =
(sem_Instruction_TypeOf )
sem_Instruction (Instruction_Urshift ) =
(sem_Instruction_Urshift )
-- semantic domain
type T_Instruction = SymbolTables ->
( Instruction )
sem_Instruction_Add :: T_Instruction
sem_Instruction_Add =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Add
{-# LINE 1129 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1134 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Add_d :: T_Instruction
sem_Instruction_Add_d =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Add_d
{-# LINE 1143 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1148 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Add_i :: T_Instruction
sem_Instruction_Add_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Add_i
{-# LINE 1157 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1162 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_ApplyType :: Word32 ->
T_Instruction
sem_Instruction_ApplyType name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_ApplyType name_
{-# LINE 1172 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1177 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_AsType :: Word32 ->
T_Instruction
sem_Instruction_AsType name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_AsType name_
{-# LINE 1187 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1192 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_AsTypeLate :: T_Instruction
sem_Instruction_AsTypeLate =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_AsTypeLate
{-# LINE 1201 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1206 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_BitAnd :: T_Instruction
sem_Instruction_BitAnd =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_BitAnd
{-# LINE 1215 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1220 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_BitNot :: T_Instruction
sem_Instruction_BitNot =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_BitNot
{-# LINE 1229 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1234 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_BitOr :: T_Instruction
sem_Instruction_BitOr =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_BitOr
{-# LINE 1243 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1248 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_BitXor :: T_Instruction
sem_Instruction_BitXor =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_BitXor
{-# LINE 1257 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1262 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_BreakLine :: Word32 ->
T_Instruction
sem_Instruction_BreakLine line_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_BreakLine line_
{-# LINE 1272 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1277 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Breakpoint :: T_Instruction
sem_Instruction_Breakpoint =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Breakpoint
{-# LINE 1286 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1291 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Call :: Word32 ->
T_Instruction
sem_Instruction_Call argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Call argCount_
{-# LINE 1301 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1306 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallInterface :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallInterface name_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallInterface name_ argCount_
{-# LINE 1317 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1322 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallMethod :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallMethod index_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallMethod index_ argCount_
{-# LINE 1333 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1338 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallProp :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallProp name_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallProp name_ argCount_
{-# LINE 1349 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1354 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallPropLex :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallPropLex name_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallPropLex name_ argCount_
{-# LINE 1365 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1370 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallPropVoid :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallPropVoid name_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallPropVoid name_ argCount_
{-# LINE 1381 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1386 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallStatic :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallStatic method_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallStatic method_ argCount_
{-# LINE 1397 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1402 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallSuper :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallSuper name_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallSuper name_ argCount_
{-# LINE 1413 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1418 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallSuperId :: T_Instruction
sem_Instruction_CallSuperId =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallSuperId
{-# LINE 1427 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1432 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CallSuperVoid :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_CallSuperVoid name_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CallSuperVoid name_ argCount_
{-# LINE 1443 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1448 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_CheckFilter :: T_Instruction
sem_Instruction_CheckFilter =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_CheckFilter
{-# LINE 1457 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1462 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce :: Word32 ->
T_Instruction
sem_Instruction_Coerce name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce name_
{-# LINE 1472 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1477 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce_a :: T_Instruction
sem_Instruction_Coerce_a =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce_a
{-# LINE 1486 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1491 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce_b :: T_Instruction
sem_Instruction_Coerce_b =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce_b
{-# LINE 1500 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1505 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce_d :: T_Instruction
sem_Instruction_Coerce_d =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce_d
{-# LINE 1514 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1519 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce_i :: T_Instruction
sem_Instruction_Coerce_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce_i
{-# LINE 1528 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1533 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce_o :: T_Instruction
sem_Instruction_Coerce_o =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce_o
{-# LINE 1542 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1547 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce_s :: T_Instruction
sem_Instruction_Coerce_s =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce_s
{-# LINE 1556 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1561 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Coerce_u :: T_Instruction
sem_Instruction_Coerce_u =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Coerce_u
{-# LINE 1570 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1575 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Concat :: T_Instruction
sem_Instruction_Concat =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Concat
{-# LINE 1584 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1589 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Construct :: Word32 ->
T_Instruction
sem_Instruction_Construct argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Construct argCount_
{-# LINE 1599 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1604 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_ConstructProp :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_ConstructProp name_ argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_ConstructProp name_ argCount_
{-# LINE 1615 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1620 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_ConstructSuper :: Word32 ->
T_Instruction
sem_Instruction_ConstructSuper argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_ConstructSuper argCount_
{-# LINE 1630 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1635 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Convert_b :: T_Instruction
sem_Instruction_Convert_b =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Convert_b
{-# LINE 1644 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1649 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Convert_d :: T_Instruction
sem_Instruction_Convert_d =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Convert_d
{-# LINE 1658 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1663 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Convert_i :: T_Instruction
sem_Instruction_Convert_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Convert_i
{-# LINE 1672 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1677 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Convert_o :: T_Instruction
sem_Instruction_Convert_o =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Convert_o
{-# LINE 1686 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1691 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Convert_s :: T_Instruction
sem_Instruction_Convert_s =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Convert_s
{-# LINE 1700 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1705 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Convert_u :: T_Instruction
sem_Instruction_Convert_u =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Convert_u
{-# LINE 1714 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1719 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Debug :: T_DebugType ->
Word32 ->
Word32 ->
Word32 ->
T_Instruction
sem_Instruction_Debug tp_ name_ reg_ extra_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 1732 "src/TrfInjectRefl.hs" #-}
)) of
{ _tpOtbls | _tpOtbls `seq` (True) ->
(case (tp_ _tpOtbls ) of
{ ( _tpIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Debug _tpIoutput name_ reg_ extra_
{-# LINE 1739 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1744 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_Instruction_DebugFile :: Word32 ->
T_Instruction
sem_Instruction_DebugFile name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_DebugFile name_
{-# LINE 1754 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1759 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_DebugLine :: Word32 ->
T_Instruction
sem_Instruction_DebugLine line_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_DebugLine line_
{-# LINE 1769 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1774 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_DecLocal :: Word32 ->
T_Instruction
sem_Instruction_DecLocal reg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_DecLocal reg_
{-# LINE 1784 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1789 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_DecLocal_i :: Word32 ->
T_Instruction
sem_Instruction_DecLocal_i reg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_DecLocal_i reg_
{-# LINE 1799 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1804 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Decrement :: T_Instruction
sem_Instruction_Decrement =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Decrement
{-# LINE 1813 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1818 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Decrement_i :: T_Instruction
sem_Instruction_Decrement_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Decrement_i
{-# LINE 1827 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1832 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_DeleteProperty :: Word32 ->
T_Instruction
sem_Instruction_DeleteProperty name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_DeleteProperty name_
{-# LINE 1842 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1847 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_DeletePropertyLate :: T_Instruction
sem_Instruction_DeletePropertyLate =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_DeletePropertyLate
{-# LINE 1856 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1861 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Divide :: T_Instruction
sem_Instruction_Divide =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Divide
{-# LINE 1870 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1875 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Dup :: T_Instruction
sem_Instruction_Dup =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Dup
{-# LINE 1884 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1889 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Dxns :: Word32 ->
T_Instruction
sem_Instruction_Dxns name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Dxns name_
{-# LINE 1899 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1904 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_DxnsLate :: T_Instruction
sem_Instruction_DxnsLate =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_DxnsLate
{-# LINE 1913 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1918 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Equals :: T_Instruction
sem_Instruction_Equals =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Equals
{-# LINE 1927 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1932 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_EscXAttr :: T_Instruction
sem_Instruction_EscXAttr =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_EscXAttr
{-# LINE 1941 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1946 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_EscXElem :: T_Instruction
sem_Instruction_EscXElem =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_EscXElem
{-# LINE 1955 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1960 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_FindDef :: Word32 ->
T_Instruction
sem_Instruction_FindDef name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_FindDef name_
{-# LINE 1970 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1975 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_FindPropStrict :: Word32 ->
T_Instruction
sem_Instruction_FindPropStrict name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_FindPropStrict name_
{-# LINE 1985 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 1990 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_FindProperty :: Word32 ->
T_Instruction
sem_Instruction_FindProperty name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_FindProperty name_
{-# LINE 2000 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2005 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_FindPropertyGlobal :: Word32 ->
T_Instruction
sem_Instruction_FindPropertyGlobal name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_FindPropertyGlobal name_
{-# LINE 2015 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2020 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_FindPropertyGlobalStrict :: Word32 ->
T_Instruction
sem_Instruction_FindPropertyGlobalStrict name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_FindPropertyGlobalStrict name_
{-# LINE 2030 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2035 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetDescendants :: Word32 ->
T_Instruction
sem_Instruction_GetDescendants name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetDescendants name_
{-# LINE 2045 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2050 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetGlobalScope :: T_Instruction
sem_Instruction_GetGlobalScope =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetGlobalScope
{-# LINE 2059 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2064 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetGlobalSlot :: Word32 ->
T_Instruction
sem_Instruction_GetGlobalSlot slot_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetGlobalSlot slot_
{-# LINE 2074 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2079 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetLex :: Word32 ->
T_Instruction
sem_Instruction_GetLex name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetLex name_
{-# LINE 2089 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2094 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetLocal :: Word32 ->
T_Instruction
sem_Instruction_GetLocal reg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetLocal reg_
{-# LINE 2104 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2109 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetLocal0 :: T_Instruction
sem_Instruction_GetLocal0 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetLocal0
{-# LINE 2118 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2123 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetLocal1 :: T_Instruction
sem_Instruction_GetLocal1 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetLocal1
{-# LINE 2132 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2137 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetLocal2 :: T_Instruction
sem_Instruction_GetLocal2 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetLocal2
{-# LINE 2146 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2151 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetLocal3 :: T_Instruction
sem_Instruction_GetLocal3 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetLocal3
{-# LINE 2160 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2165 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetOuterScope :: Word32 ->
T_Instruction
sem_Instruction_GetOuterScope name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetOuterScope name_
{-# LINE 2175 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2180 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetProperty :: Word32 ->
T_Instruction
sem_Instruction_GetProperty name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetProperty name_
{-# LINE 2190 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2195 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetScopeObject :: Word8 ->
T_Instruction
sem_Instruction_GetScopeObject index_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetScopeObject index_
{-# LINE 2205 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2210 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetSlot :: Word32 ->
T_Instruction
sem_Instruction_GetSlot slot_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetSlot slot_
{-# LINE 2220 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2225 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GetSuper :: Word32 ->
T_Instruction
sem_Instruction_GetSuper name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GetSuper name_
{-# LINE 2235 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2240 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GreaterEquals :: T_Instruction
sem_Instruction_GreaterEquals =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GreaterEquals
{-# LINE 2249 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2254 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_GreaterThan :: T_Instruction
sem_Instruction_GreaterThan =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_GreaterThan
{-# LINE 2263 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2268 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_HasNext :: T_Instruction
sem_Instruction_HasNext =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_HasNext
{-# LINE 2277 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2282 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_HasNext2 :: Word32 ->
Word32 ->
T_Instruction
sem_Instruction_HasNext2 objectReg_ indexReg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_HasNext2 objectReg_ indexReg_
{-# LINE 2293 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2298 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfEq :: Word32 ->
T_Instruction
sem_Instruction_IfEq offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfEq offset_
{-# LINE 2308 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2313 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfFalse :: Word32 ->
T_Instruction
sem_Instruction_IfFalse offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfFalse offset_
{-# LINE 2323 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2328 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfGe :: Word32 ->
T_Instruction
sem_Instruction_IfGe offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfGe offset_
{-# LINE 2338 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2343 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfGt :: Word32 ->
T_Instruction
sem_Instruction_IfGt offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfGt offset_
{-# LINE 2353 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2358 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfLe :: Word32 ->
T_Instruction
sem_Instruction_IfLe offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfLe offset_
{-# LINE 2368 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2373 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfLt :: Word32 ->
T_Instruction
sem_Instruction_IfLt offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfLt offset_
{-# LINE 2383 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2388 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfNGe :: Word32 ->
T_Instruction
sem_Instruction_IfNGe offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfNGe offset_
{-# LINE 2398 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2403 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfNGt :: Word32 ->
T_Instruction
sem_Instruction_IfNGt offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfNGt offset_
{-# LINE 2413 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2418 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfNLe :: Word32 ->
T_Instruction
sem_Instruction_IfNLe offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfNLe offset_
{-# LINE 2428 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2433 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfNLt :: Word32 ->
T_Instruction
sem_Instruction_IfNLt offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfNLt offset_
{-# LINE 2443 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2448 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfNe :: Word32 ->
T_Instruction
sem_Instruction_IfNe offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfNe offset_
{-# LINE 2458 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2463 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfStrictEq :: Word32 ->
T_Instruction
sem_Instruction_IfStrictEq offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfStrictEq offset_
{-# LINE 2473 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2478 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfStrictNe :: Word32 ->
T_Instruction
sem_Instruction_IfStrictNe offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfStrictNe offset_
{-# LINE 2488 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2493 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IfTrue :: Word32 ->
T_Instruction
sem_Instruction_IfTrue offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IfTrue offset_
{-# LINE 2503 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2508 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_In :: T_Instruction
sem_Instruction_In =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_In
{-# LINE 2517 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2522 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IncLocal :: Word32 ->
T_Instruction
sem_Instruction_IncLocal reg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IncLocal reg_
{-# LINE 2532 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2537 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IncLocal_i :: Word32 ->
T_Instruction
sem_Instruction_IncLocal_i reg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IncLocal_i reg_
{-# LINE 2547 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2552 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Increment :: T_Instruction
sem_Instruction_Increment =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Increment
{-# LINE 2561 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2566 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Increment_i :: T_Instruction
sem_Instruction_Increment_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Increment_i
{-# LINE 2575 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2580 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_InitProperty :: Word32 ->
T_Instruction
sem_Instruction_InitProperty name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_InitProperty name_
{-# LINE 2590 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2595 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_InstanceOf :: T_Instruction
sem_Instruction_InstanceOf =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_InstanceOf
{-# LINE 2604 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2609 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IsType :: Word32 ->
T_Instruction
sem_Instruction_IsType name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IsType name_
{-# LINE 2619 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2624 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_IsTypeLate :: T_Instruction
sem_Instruction_IsTypeLate =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_IsTypeLate
{-# LINE 2633 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2638 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Jump :: Word32 ->
T_Instruction
sem_Instruction_Jump offset_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Jump offset_
{-# LINE 2648 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2653 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Kill :: Word32 ->
T_Instruction
sem_Instruction_Kill reg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Kill reg_
{-# LINE 2663 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2668 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Label :: T_Instruction
sem_Instruction_Label =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Label
{-# LINE 2677 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2682 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LessEquals :: T_Instruction
sem_Instruction_LessEquals =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LessEquals
{-# LINE 2691 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2696 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LessThan :: T_Instruction
sem_Instruction_LessThan =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LessThan
{-# LINE 2705 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2710 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LoadFloat32 :: T_Instruction
sem_Instruction_LoadFloat32 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LoadFloat32
{-# LINE 2719 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2724 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LoadFloat64 :: T_Instruction
sem_Instruction_LoadFloat64 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LoadFloat64
{-# LINE 2733 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2738 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LoadIndirect16 :: T_Instruction
sem_Instruction_LoadIndirect16 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LoadIndirect16
{-# LINE 2747 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2752 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LoadIndirect32 :: T_Instruction
sem_Instruction_LoadIndirect32 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LoadIndirect32
{-# LINE 2761 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2766 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LoadIndirect8 :: T_Instruction
sem_Instruction_LoadIndirect8 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LoadIndirect8
{-# LINE 2775 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2780 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Location :: Int ->
T_Instruction
sem_Instruction_Location index_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Location index_
{-# LINE 2790 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2795 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_LookupSwitch :: Word32 ->
T_CaseOffsets ->
T_Instruction
sem_Instruction_LookupSwitch defaultOffset_ caseOffsets_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 2806 "src/TrfInjectRefl.hs" #-}
)) of
{ _caseOffsetsOtbls | _caseOffsetsOtbls `seq` (True) ->
(case (caseOffsets_ _caseOffsetsOtbls ) of
{ ( _caseOffsetsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_LookupSwitch defaultOffset_ _caseOffsetsIoutput
{-# LINE 2813 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2818 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_Instruction_Lshift :: T_Instruction
sem_Instruction_Lshift =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Lshift
{-# LINE 2827 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2832 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Modulo :: T_Instruction
sem_Instruction_Modulo =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Modulo
{-# LINE 2841 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2846 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Multiply :: T_Instruction
sem_Instruction_Multiply =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Multiply
{-# LINE 2855 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2860 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Multiply_i :: T_Instruction
sem_Instruction_Multiply_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Multiply_i
{-# LINE 2869 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2874 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Negate :: T_Instruction
sem_Instruction_Negate =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Negate
{-# LINE 2883 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2888 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Negate_i :: T_Instruction
sem_Instruction_Negate_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Negate_i
{-# LINE 2897 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2902 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NewActivation :: T_Instruction
sem_Instruction_NewActivation =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NewActivation
{-# LINE 2911 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2916 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NewArray :: Word32 ->
T_Instruction
sem_Instruction_NewArray argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NewArray argCount_
{-# LINE 2926 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2931 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NewCatch :: Word32 ->
T_Instruction
sem_Instruction_NewCatch exception_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NewCatch exception_
{-# LINE 2941 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2946 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NewClass :: Word32 ->
T_Instruction
sem_Instruction_NewClass class_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NewClass class_
{-# LINE 2956 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2961 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NewFunction :: Word32 ->
T_Instruction
sem_Instruction_NewFunction method_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NewFunction method_
{-# LINE 2971 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2976 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NewObject :: Word32 ->
T_Instruction
sem_Instruction_NewObject argCount_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NewObject argCount_
{-# LINE 2986 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 2991 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NextName :: T_Instruction
sem_Instruction_NextName =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NextName
{-# LINE 3000 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3005 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_NextValue :: T_Instruction
sem_Instruction_NextValue =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_NextValue
{-# LINE 3014 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3019 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Nop :: T_Instruction
sem_Instruction_Nop =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Nop
{-# LINE 3028 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3033 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Not :: T_Instruction
sem_Instruction_Not =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Not
{-# LINE 3042 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3047 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Pop :: T_Instruction
sem_Instruction_Pop =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Pop
{-# LINE 3056 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3061 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PopScope :: T_Instruction
sem_Instruction_PopScope =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PopScope
{-# LINE 3070 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3075 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushByte :: Word8 ->
T_Instruction
sem_Instruction_PushByte val_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushByte val_
{-# LINE 3085 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3090 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushDouble :: Word32 ->
T_Instruction
sem_Instruction_PushDouble name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushDouble name_
{-# LINE 3100 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3105 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushFalse :: T_Instruction
sem_Instruction_PushFalse =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushFalse
{-# LINE 3114 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3119 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushInt :: Word32 ->
T_Instruction
sem_Instruction_PushInt name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushInt name_
{-# LINE 3129 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3134 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushNaN :: T_Instruction
sem_Instruction_PushNaN =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushNaN
{-# LINE 3143 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3148 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushNamespace :: Word32 ->
T_Instruction
sem_Instruction_PushNamespace name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushNamespace name_
{-# LINE 3158 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3163 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushNull :: T_Instruction
sem_Instruction_PushNull =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushNull
{-# LINE 3172 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3177 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushScope :: T_Instruction
sem_Instruction_PushScope =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushScope
{-# LINE 3186 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3191 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushShort :: Word32 ->
T_Instruction
sem_Instruction_PushShort val_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushShort val_
{-# LINE 3201 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3206 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushString :: Word32 ->
T_Instruction
sem_Instruction_PushString name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushString name_
{-# LINE 3216 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3221 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushTrue :: T_Instruction
sem_Instruction_PushTrue =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushTrue
{-# LINE 3230 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3235 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushUInt :: Word32 ->
T_Instruction
sem_Instruction_PushUInt name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushUInt name_
{-# LINE 3245 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3250 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushUndefined :: T_Instruction
sem_Instruction_PushUndefined =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushUndefined
{-# LINE 3259 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3264 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_PushWith :: T_Instruction
sem_Instruction_PushWith =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_PushWith
{-# LINE 3273 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3278 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_ReturnValue :: T_Instruction
sem_Instruction_ReturnValue =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_ReturnValue
{-# LINE 3287 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3292 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_ReturnVoid :: T_Instruction
sem_Instruction_ReturnVoid =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_ReturnVoid
{-# LINE 3301 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3306 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Rshift :: T_Instruction
sem_Instruction_Rshift =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Rshift
{-# LINE 3315 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3320 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetGlobalSlot :: Word32 ->
T_Instruction
sem_Instruction_SetGlobalSlot slot_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetGlobalSlot slot_
{-# LINE 3330 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3335 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetLocal :: Word32 ->
T_Instruction
sem_Instruction_SetLocal reg_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetLocal reg_
{-# LINE 3345 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3350 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetLocal0 :: T_Instruction
sem_Instruction_SetLocal0 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetLocal0
{-# LINE 3359 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3364 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetLocal1 :: T_Instruction
sem_Instruction_SetLocal1 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetLocal1
{-# LINE 3373 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3378 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetLocal2 :: T_Instruction
sem_Instruction_SetLocal2 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetLocal2
{-# LINE 3387 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3392 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetLocal3 :: T_Instruction
sem_Instruction_SetLocal3 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetLocal3
{-# LINE 3401 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3406 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetProperty :: Word32 ->
T_Instruction
sem_Instruction_SetProperty name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetProperty name_
{-# LINE 3416 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3421 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetPropertyLate :: T_Instruction
sem_Instruction_SetPropertyLate =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetPropertyLate
{-# LINE 3430 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3435 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetSlot :: Word32 ->
T_Instruction
sem_Instruction_SetSlot slot_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetSlot slot_
{-# LINE 3445 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3450 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SetSuper :: Word32 ->
T_Instruction
sem_Instruction_SetSuper name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SetSuper name_
{-# LINE 3460 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3465 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SignExtend1 :: T_Instruction
sem_Instruction_SignExtend1 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SignExtend1
{-# LINE 3474 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3479 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SignExtend16 :: T_Instruction
sem_Instruction_SignExtend16 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SignExtend16
{-# LINE 3488 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3493 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_SignExtend8 :: T_Instruction
sem_Instruction_SignExtend8 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_SignExtend8
{-# LINE 3502 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3507 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_StoreFloat32 :: T_Instruction
sem_Instruction_StoreFloat32 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_StoreFloat32
{-# LINE 3516 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3521 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_StoreFloat64 :: T_Instruction
sem_Instruction_StoreFloat64 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_StoreFloat64
{-# LINE 3530 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3535 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_StoreIndirect16 :: T_Instruction
sem_Instruction_StoreIndirect16 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_StoreIndirect16
{-# LINE 3544 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3549 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_StoreIndirect32 :: T_Instruction
sem_Instruction_StoreIndirect32 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_StoreIndirect32
{-# LINE 3558 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3563 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_StoreIndirect8 :: T_Instruction
sem_Instruction_StoreIndirect8 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_StoreIndirect8
{-# LINE 3572 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3577 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_StrictEquals :: T_Instruction
sem_Instruction_StrictEquals =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_StrictEquals
{-# LINE 3586 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3591 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Substract :: T_Instruction
sem_Instruction_Substract =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Substract
{-# LINE 3600 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3605 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Substract_i :: T_Instruction
sem_Instruction_Substract_i =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Substract_i
{-# LINE 3614 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3619 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Swap :: T_Instruction
sem_Instruction_Swap =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Swap
{-# LINE 3628 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3633 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Throw :: T_Instruction
sem_Instruction_Throw =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Throw
{-# LINE 3642 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3647 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Timestamp :: T_Instruction
sem_Instruction_Timestamp =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Timestamp
{-# LINE 3656 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3661 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_TypeOf :: T_Instruction
sem_Instruction_TypeOf =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_TypeOf
{-# LINE 3670 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3675 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_Instruction_Urshift :: T_Instruction
sem_Instruction_Urshift =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Instruction_Urshift
{-# LINE 3684 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3689 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Instructions ------------------------------------------------
-- cata
sem_Instructions :: Instructions ->
T_Instructions
sem_Instructions list =
(Prelude.foldr sem_Instructions_Cons sem_Instructions_Nil (Prelude.map sem_Instruction list) )
-- semantic domain
type T_Instructions = SymbolTables ->
( Instructions )
sem_Instructions_Cons :: T_Instruction ->
T_Instructions ->
T_Instructions
sem_Instructions_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3709 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3716 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 3723 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3728 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_Instructions_Nil :: T_Instructions
sem_Instructions_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 3737 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3742 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Interfaces --------------------------------------------------
-- cata
sem_Interfaces :: Interfaces ->
T_Interfaces
sem_Interfaces list =
(Prelude.foldr sem_Interfaces_Cons sem_Interfaces_Nil list )
-- semantic domain
type T_Interfaces = SymbolTables ->
( Interfaces )
sem_Interfaces_Cons :: Word32 ->
T_Interfaces ->
T_Interfaces
sem_Interfaces_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3762 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 3769 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3774 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_Interfaces_Nil :: T_Interfaces
sem_Interfaces_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 3783 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3788 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MetaInfo ----------------------------------------------------
-- cata
sem_MetaInfo :: MetaInfo ->
T_MetaInfo
sem_MetaInfo (MetaInfo_Info _name _items ) =
(sem_MetaInfo_Info _name (sem_MetaItems _items ) )
-- semantic domain
type T_MetaInfo = SymbolTables ->
( MetaInfo )
sem_MetaInfo_Info :: Word32 ->
T_MetaItems ->
T_MetaInfo
sem_MetaInfo_Info name_ items_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3808 "src/TrfInjectRefl.hs" #-}
)) of
{ _itemsOtbls | _itemsOtbls `seq` (True) ->
(case (items_ _itemsOtbls ) of
{ ( _itemsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MetaInfo_Info name_ _itemsIoutput
{-# LINE 3815 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3820 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
-- MetaInfos ---------------------------------------------------
-- cata
sem_MetaInfos :: MetaInfos ->
T_MetaInfos
sem_MetaInfos list =
(Prelude.foldr sem_MetaInfos_Cons sem_MetaInfos_Nil (Prelude.map sem_MetaInfo list) )
-- semantic domain
type T_MetaInfos = SymbolTables ->
( MetaInfos )
sem_MetaInfos_Cons :: T_MetaInfo ->
T_MetaInfos ->
T_MetaInfos
sem_MetaInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3840 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3847 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 3854 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3859 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_MetaInfos_Nil :: T_MetaInfos
sem_MetaInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 3868 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3873 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MetaItem ----------------------------------------------------
-- cata
sem_MetaItem :: MetaItem ->
T_MetaItem
sem_MetaItem (MetaItem_Item _key _value ) =
(sem_MetaItem_Item _key _value )
-- semantic domain
type T_MetaItem = SymbolTables ->
( MetaItem )
sem_MetaItem_Item :: Word32 ->
Word32 ->
T_MetaItem
sem_MetaItem_Item key_ value_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MetaItem_Item key_ value_
{-# LINE 3893 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3898 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MetaItems ---------------------------------------------------
-- cata
sem_MetaItems :: MetaItems ->
T_MetaItems
sem_MetaItems list =
(Prelude.foldr sem_MetaItems_Cons sem_MetaItems_Nil (Prelude.map sem_MetaItem list) )
-- semantic domain
type T_MetaItems = SymbolTables ->
( MetaItems )
sem_MetaItems_Cons :: T_MetaItem ->
T_MetaItems ->
T_MetaItems
sem_MetaItems_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3918 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 3925 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 3932 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3937 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_MetaItems_Nil :: T_MetaItems
sem_MetaItems_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 3946 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3951 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MethodFlag --------------------------------------------------
-- cata
sem_MethodFlag :: MethodFlag ->
T_MethodFlag
sem_MethodFlag (MethodFlag_HasOptionals ) =
(sem_MethodFlag_HasOptionals )
sem_MethodFlag (MethodFlag_HasParamNames ) =
(sem_MethodFlag_HasParamNames )
sem_MethodFlag (MethodFlag_NeedAct ) =
(sem_MethodFlag_NeedAct )
sem_MethodFlag (MethodFlag_NeedArgs ) =
(sem_MethodFlag_NeedArgs )
sem_MethodFlag (MethodFlag_NeedRest ) =
(sem_MethodFlag_NeedRest )
sem_MethodFlag (MethodFlag_SetDXNS ) =
(sem_MethodFlag_SetDXNS )
-- semantic domain
type T_MethodFlag = SymbolTables ->
( MethodFlag )
sem_MethodFlag_HasOptionals :: T_MethodFlag
sem_MethodFlag_HasOptionals =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MethodFlag_HasOptionals
{-# LINE 3979 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3984 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MethodFlag_HasParamNames :: T_MethodFlag
sem_MethodFlag_HasParamNames =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MethodFlag_HasParamNames
{-# LINE 3993 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 3998 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MethodFlag_NeedAct :: T_MethodFlag
sem_MethodFlag_NeedAct =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MethodFlag_NeedAct
{-# LINE 4007 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4012 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MethodFlag_NeedArgs :: T_MethodFlag
sem_MethodFlag_NeedArgs =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MethodFlag_NeedArgs
{-# LINE 4021 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4026 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MethodFlag_NeedRest :: T_MethodFlag
sem_MethodFlag_NeedRest =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MethodFlag_NeedRest
{-# LINE 4035 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4040 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MethodFlag_SetDXNS :: T_MethodFlag
sem_MethodFlag_SetDXNS =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MethodFlag_SetDXNS
{-# LINE 4049 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4054 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MethodFlags -------------------------------------------------
-- cata
sem_MethodFlags :: MethodFlags ->
T_MethodFlags
sem_MethodFlags list =
(Prelude.foldr sem_MethodFlags_Cons sem_MethodFlags_Nil (Prelude.map sem_MethodFlag list) )
-- semantic domain
type T_MethodFlags = SymbolTables ->
( MethodFlags )
sem_MethodFlags_Cons :: T_MethodFlag ->
T_MethodFlags ->
T_MethodFlags
sem_MethodFlags_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4074 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4081 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 4088 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4093 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_MethodFlags_Nil :: T_MethodFlags
sem_MethodFlags_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 4102 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4107 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MethodInfo --------------------------------------------------
-- cata
sem_MethodInfo :: MethodInfo ->
T_MethodInfo
sem_MethodInfo (MethodInfo_Info _return _params _name _flags _options _names ) =
(sem_MethodInfo_Info _return (sem_ParamTypes _params ) _name (sem_MethodFlags _flags ) (sem_Optionals _options ) (sem_ParamNames _names ) )
-- semantic domain
type T_MethodInfo = SymbolTables ->
( MethodInfo )
sem_MethodInfo_Info :: Word32 ->
T_ParamTypes ->
Word32 ->
T_MethodFlags ->
T_Optionals ->
T_ParamNames ->
T_MethodInfo
sem_MethodInfo_Info return_ params_ name_ flags_ options_ names_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4131 "src/TrfInjectRefl.hs" #-}
)) of
{ _namesOtbls | _namesOtbls `seq` (True) ->
(case (names_ _namesOtbls ) of
{ ( _namesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4138 "src/TrfInjectRefl.hs" #-}
)) of
{ _optionsOtbls | _optionsOtbls `seq` (True) ->
(case (options_ _optionsOtbls ) of
{ ( _optionsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4145 "src/TrfInjectRefl.hs" #-}
)) of
{ _flagsOtbls | _flagsOtbls `seq` (True) ->
(case (flags_ _flagsOtbls ) of
{ ( _flagsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4152 "src/TrfInjectRefl.hs" #-}
)) of
{ _paramsOtbls | _paramsOtbls `seq` (True) ->
(case (params_ _paramsOtbls ) of
{ ( _paramsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MethodInfo_Info return_ _paramsIoutput name_ _flagsIoutput _optionsIoutput _namesIoutput
{-# LINE 4159 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4164 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }) }) }) }) }))
-- MethodInfos -------------------------------------------------
-- cata
sem_MethodInfos :: MethodInfos ->
T_MethodInfos
sem_MethodInfos list =
(Prelude.foldr sem_MethodInfos_Cons sem_MethodInfos_Nil (Prelude.map sem_MethodInfo list) )
-- semantic domain
type T_MethodInfos = SymbolTables ->
( MethodInfos )
sem_MethodInfos_Cons :: T_MethodInfo ->
T_MethodInfos ->
T_MethodInfos
sem_MethodInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4184 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4191 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 4198 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4203 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_MethodInfos_Nil :: T_MethodInfos
sem_MethodInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 4212 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4217 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MultinameInfo -----------------------------------------------
-- cata
sem_MultinameInfo :: MultinameInfo ->
T_MultinameInfo
sem_MultinameInfo (MultinameInfo_Generic _name _params ) =
(sem_MultinameInfo_Generic _name (sem_ParamNames _params ) )
sem_MultinameInfo (MultinameInfo_Multiname _name _set ) =
(sem_MultinameInfo_Multiname _name _set )
sem_MultinameInfo (MultinameInfo_MultinameA _name _set ) =
(sem_MultinameInfo_MultinameA _name _set )
sem_MultinameInfo (MultinameInfo_MultinameL _set ) =
(sem_MultinameInfo_MultinameL _set )
sem_MultinameInfo (MultinameInfo_MultinameLA _set ) =
(sem_MultinameInfo_MultinameLA _set )
sem_MultinameInfo (MultinameInfo_QName _namespace _name ) =
(sem_MultinameInfo_QName _namespace _name )
sem_MultinameInfo (MultinameInfo_QNameA _namespace _name ) =
(sem_MultinameInfo_QNameA _namespace _name )
sem_MultinameInfo (MultinameInfo_RTQName _name ) =
(sem_MultinameInfo_RTQName _name )
sem_MultinameInfo (MultinameInfo_RTQNameA _name ) =
(sem_MultinameInfo_RTQNameA _name )
sem_MultinameInfo (MultinameInfo_RTQNameL ) =
(sem_MultinameInfo_RTQNameL )
sem_MultinameInfo (MultinameInfo_RTQNameLA ) =
(sem_MultinameInfo_RTQNameLA )
-- semantic domain
type T_MultinameInfo = SymbolTables ->
( MultinameInfo )
sem_MultinameInfo_Generic :: Word32 ->
T_ParamNames ->
T_MultinameInfo
sem_MultinameInfo_Generic name_ params_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4257 "src/TrfInjectRefl.hs" #-}
)) of
{ _paramsOtbls | _paramsOtbls `seq` (True) ->
(case (params_ _paramsOtbls ) of
{ ( _paramsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_Generic name_ _paramsIoutput
{-# LINE 4264 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4269 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_MultinameInfo_Multiname :: Word32 ->
Word32 ->
T_MultinameInfo
sem_MultinameInfo_Multiname name_ set_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_Multiname name_ set_
{-# LINE 4280 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4285 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_MultinameA :: Word32 ->
Word32 ->
T_MultinameInfo
sem_MultinameInfo_MultinameA name_ set_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_MultinameA name_ set_
{-# LINE 4296 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4301 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_MultinameL :: Word32 ->
T_MultinameInfo
sem_MultinameInfo_MultinameL set_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_MultinameL set_
{-# LINE 4311 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4316 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_MultinameLA :: Word32 ->
T_MultinameInfo
sem_MultinameInfo_MultinameLA set_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_MultinameLA set_
{-# LINE 4326 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4331 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_QName :: Word32 ->
Word32 ->
T_MultinameInfo
sem_MultinameInfo_QName namespace_ name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_QName namespace_ name_
{-# LINE 4342 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4347 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_QNameA :: Word32 ->
Word32 ->
T_MultinameInfo
sem_MultinameInfo_QNameA namespace_ name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_QNameA namespace_ name_
{-# LINE 4358 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4363 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_RTQName :: Word32 ->
T_MultinameInfo
sem_MultinameInfo_RTQName name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_RTQName name_
{-# LINE 4373 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4378 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_RTQNameA :: Word32 ->
T_MultinameInfo
sem_MultinameInfo_RTQNameA name_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_RTQNameA name_
{-# LINE 4388 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4393 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_RTQNameL :: T_MultinameInfo
sem_MultinameInfo_RTQNameL =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_RTQNameL
{-# LINE 4402 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4407 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameInfo_RTQNameLA :: T_MultinameInfo
sem_MultinameInfo_RTQNameLA =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameInfo_RTQNameLA
{-# LINE 4416 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4421 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MultinameInfos ----------------------------------------------
-- cata
sem_MultinameInfos :: MultinameInfos ->
T_MultinameInfos
sem_MultinameInfos list =
(Prelude.foldr sem_MultinameInfos_Cons sem_MultinameInfos_Nil (Prelude.map sem_MultinameInfo list) )
-- semantic domain
type T_MultinameInfos = SymbolTables ->
( MultinameInfos )
sem_MultinameInfos_Cons :: T_MultinameInfo ->
T_MultinameInfos ->
T_MultinameInfos
sem_MultinameInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4441 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4448 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 4455 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4460 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_MultinameInfos_Nil :: T_MultinameInfos
sem_MultinameInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 4469 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4474 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- MultinameKind -----------------------------------------------
-- cata
sem_MultinameKind :: MultinameKind ->
T_MultinameKind
sem_MultinameKind (MultinameKind_Generic ) =
(sem_MultinameKind_Generic )
sem_MultinameKind (MultinameKind_Multiname ) =
(sem_MultinameKind_Multiname )
sem_MultinameKind (MultinameKind_MultinameA ) =
(sem_MultinameKind_MultinameA )
sem_MultinameKind (MultinameKind_MultinameL ) =
(sem_MultinameKind_MultinameL )
sem_MultinameKind (MultinameKind_MultinameLA ) =
(sem_MultinameKind_MultinameLA )
sem_MultinameKind (MultinameKind_QName ) =
(sem_MultinameKind_QName )
sem_MultinameKind (MultinameKind_QNameA ) =
(sem_MultinameKind_QNameA )
sem_MultinameKind (MultinameKind_RTQName ) =
(sem_MultinameKind_RTQName )
sem_MultinameKind (MultinameKind_RTQNameA ) =
(sem_MultinameKind_RTQNameA )
sem_MultinameKind (MultinameKind_RTQNameL ) =
(sem_MultinameKind_RTQNameL )
sem_MultinameKind (MultinameKind_RTQNameLA ) =
(sem_MultinameKind_RTQNameLA )
-- semantic domain
type T_MultinameKind = SymbolTables ->
( MultinameKind )
sem_MultinameKind_Generic :: T_MultinameKind
sem_MultinameKind_Generic =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_Generic
{-# LINE 4512 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4517 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_Multiname :: T_MultinameKind
sem_MultinameKind_Multiname =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_Multiname
{-# LINE 4526 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4531 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_MultinameA :: T_MultinameKind
sem_MultinameKind_MultinameA =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_MultinameA
{-# LINE 4540 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4545 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_MultinameL :: T_MultinameKind
sem_MultinameKind_MultinameL =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_MultinameL
{-# LINE 4554 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4559 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_MultinameLA :: T_MultinameKind
sem_MultinameKind_MultinameLA =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_MultinameLA
{-# LINE 4568 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4573 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_QName :: T_MultinameKind
sem_MultinameKind_QName =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_QName
{-# LINE 4582 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4587 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_QNameA :: T_MultinameKind
sem_MultinameKind_QNameA =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_QNameA
{-# LINE 4596 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4601 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_RTQName :: T_MultinameKind
sem_MultinameKind_RTQName =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_RTQName
{-# LINE 4610 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4615 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_RTQNameA :: T_MultinameKind
sem_MultinameKind_RTQNameA =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_RTQNameA
{-# LINE 4624 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4629 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_RTQNameL :: T_MultinameKind
sem_MultinameKind_RTQNameL =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_RTQNameL
{-# LINE 4638 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4643 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_MultinameKind_RTQNameLA :: T_MultinameKind
sem_MultinameKind_RTQNameLA =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
MultinameKind_RTQNameLA
{-# LINE 4652 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4657 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- NamespaceInfo -----------------------------------------------
-- cata
sem_NamespaceInfo :: NamespaceInfo ->
T_NamespaceInfo
sem_NamespaceInfo (NamespaceInfo_Info _kind _name ) =
(sem_NamespaceInfo_Info (sem_NamespaceKind _kind ) _name )
-- semantic domain
type T_NamespaceInfo = SymbolTables ->
( NamespaceInfo )
sem_NamespaceInfo_Info :: T_NamespaceKind ->
Word32 ->
T_NamespaceInfo
sem_NamespaceInfo_Info kind_ name_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4677 "src/TrfInjectRefl.hs" #-}
)) of
{ _kindOtbls | _kindOtbls `seq` (True) ->
(case (kind_ _kindOtbls ) of
{ ( _kindIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceInfo_Info _kindIoutput name_
{-# LINE 4684 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4689 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
-- NamespaceInfos ----------------------------------------------
-- cata
sem_NamespaceInfos :: NamespaceInfos ->
T_NamespaceInfos
sem_NamespaceInfos list =
(Prelude.foldr sem_NamespaceInfos_Cons sem_NamespaceInfos_Nil (Prelude.map sem_NamespaceInfo list) )
-- semantic domain
type T_NamespaceInfos = SymbolTables ->
( NamespaceInfos )
sem_NamespaceInfos_Cons :: T_NamespaceInfo ->
T_NamespaceInfos ->
T_NamespaceInfos
sem_NamespaceInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4709 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4716 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 4723 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4728 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_NamespaceInfos_Nil :: T_NamespaceInfos
sem_NamespaceInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 4737 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4742 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- NamespaceKind -----------------------------------------------
-- cata
sem_NamespaceKind :: NamespaceKind ->
T_NamespaceKind
sem_NamespaceKind (NamespaceKind_Explicit ) =
(sem_NamespaceKind_Explicit )
sem_NamespaceKind (NamespaceKind_General ) =
(sem_NamespaceKind_General )
sem_NamespaceKind (NamespaceKind_Internal ) =
(sem_NamespaceKind_Internal )
sem_NamespaceKind (NamespaceKind_Package ) =
(sem_NamespaceKind_Package )
sem_NamespaceKind (NamespaceKind_Private ) =
(sem_NamespaceKind_Private )
sem_NamespaceKind (NamespaceKind_Protected ) =
(sem_NamespaceKind_Protected )
sem_NamespaceKind (NamespaceKind_Static ) =
(sem_NamespaceKind_Static )
-- semantic domain
type T_NamespaceKind = SymbolTables ->
( NamespaceKind )
sem_NamespaceKind_Explicit :: T_NamespaceKind
sem_NamespaceKind_Explicit =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceKind_Explicit
{-# LINE 4772 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4777 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_NamespaceKind_General :: T_NamespaceKind
sem_NamespaceKind_General =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceKind_General
{-# LINE 4786 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4791 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_NamespaceKind_Internal :: T_NamespaceKind
sem_NamespaceKind_Internal =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceKind_Internal
{-# LINE 4800 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4805 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_NamespaceKind_Package :: T_NamespaceKind
sem_NamespaceKind_Package =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceKind_Package
{-# LINE 4814 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4819 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_NamespaceKind_Private :: T_NamespaceKind
sem_NamespaceKind_Private =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceKind_Private
{-# LINE 4828 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4833 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_NamespaceKind_Protected :: T_NamespaceKind
sem_NamespaceKind_Protected =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceKind_Protected
{-# LINE 4842 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4847 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_NamespaceKind_Static :: T_NamespaceKind
sem_NamespaceKind_Static =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
NamespaceKind_Static
{-# LINE 4856 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4861 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- NamespaceNames ----------------------------------------------
-- cata
sem_NamespaceNames :: NamespaceNames ->
T_NamespaceNames
sem_NamespaceNames list =
(Prelude.foldr sem_NamespaceNames_Cons sem_NamespaceNames_Nil list )
-- semantic domain
type T_NamespaceNames = SymbolTables ->
( NamespaceNames )
sem_NamespaceNames_Cons :: Word32 ->
T_NamespaceNames ->
T_NamespaceNames
sem_NamespaceNames_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4881 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 4888 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4893 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_NamespaceNames_Nil :: T_NamespaceNames
sem_NamespaceNames_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 4902 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4907 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Optional ----------------------------------------------------
-- cata
sem_Optional :: Optional ->
T_Optional
sem_Optional (Optional_Detail _val _kind ) =
(sem_Optional_Detail _val (sem_ValueKind _kind ) )
-- semantic domain
type T_Optional = SymbolTables ->
( Optional )
sem_Optional_Detail :: Word32 ->
T_ValueKind ->
T_Optional
sem_Optional_Detail val_ kind_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4927 "src/TrfInjectRefl.hs" #-}
)) of
{ _kindOtbls | _kindOtbls `seq` (True) ->
(case (kind_ _kindOtbls ) of
{ ( _kindIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Optional_Detail val_ _kindIoutput
{-# LINE 4934 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4939 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
-- Optionals ---------------------------------------------------
-- cata
sem_Optionals :: Optionals ->
T_Optionals
sem_Optionals list =
(Prelude.foldr sem_Optionals_Cons sem_Optionals_Nil (Prelude.map sem_Optional list) )
-- semantic domain
type T_Optionals = SymbolTables ->
( Optionals )
sem_Optionals_Cons :: T_Optional ->
T_Optionals ->
T_Optionals
sem_Optionals_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4959 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 4966 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 4973 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4978 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_Optionals_Nil :: T_Optionals
sem_Optionals_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 4987 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 4992 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- ParamNames --------------------------------------------------
-- cata
sem_ParamNames :: ParamNames ->
T_ParamNames
sem_ParamNames list =
(Prelude.foldr sem_ParamNames_Cons sem_ParamNames_Nil list )
-- semantic domain
type T_ParamNames = SymbolTables ->
( ParamNames )
sem_ParamNames_Cons :: Word32 ->
T_ParamNames ->
T_ParamNames
sem_ParamNames_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5012 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 5019 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5024 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_ParamNames_Nil :: T_ParamNames
sem_ParamNames_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5033 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5038 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- ParamTypes --------------------------------------------------
-- cata
sem_ParamTypes :: ParamTypes ->
T_ParamTypes
sem_ParamTypes list =
(Prelude.foldr sem_ParamTypes_Cons sem_ParamTypes_Nil list )
-- semantic domain
type T_ParamTypes = SymbolTables ->
( ParamTypes )
sem_ParamTypes_Cons :: Word32 ->
T_ParamTypes ->
T_ParamTypes
sem_ParamTypes_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5058 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 5065 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5070 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_ParamTypes_Nil :: T_ParamTypes
sem_ParamTypes_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5079 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5084 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- PoolDoubles -------------------------------------------------
-- cata
sem_PoolDoubles :: PoolDoubles ->
T_PoolDoubles
sem_PoolDoubles list =
(Prelude.foldr sem_PoolDoubles_Cons sem_PoolDoubles_Nil list )
-- semantic domain
type T_PoolDoubles = SymbolTables ->
( PoolDoubles )
sem_PoolDoubles_Cons :: Double ->
T_PoolDoubles ->
T_PoolDoubles
sem_PoolDoubles_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5104 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 5111 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5116 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_PoolDoubles_Nil :: T_PoolDoubles
sem_PoolDoubles_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5125 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5130 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- PoolInfo ----------------------------------------------------
-- cata
sem_PoolInfo :: PoolInfo ->
T_PoolInfo
sem_PoolInfo (PoolInfo_Info _integers _uintegers _doubles _strings _namespaces _namesets _multinames ) =
(sem_PoolInfo_Info (sem_PoolInts _integers ) (sem_PoolUInts _uintegers ) (sem_PoolDoubles _doubles ) (sem_PoolStrings _strings ) (sem_NamespaceInfos _namespaces ) (sem_SetInfos _namesets ) (sem_MultinameInfos _multinames ) )
-- semantic domain
type T_PoolInfo = SymbolTables ->
( PoolInfo )
sem_PoolInfo_Info :: T_PoolInts ->
T_PoolUInts ->
T_PoolDoubles ->
T_PoolStrings ->
T_NamespaceInfos ->
T_SetInfos ->
T_MultinameInfos ->
T_PoolInfo
sem_PoolInfo_Info integers_ uintegers_ doubles_ strings_ namespaces_ namesets_ multinames_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5155 "src/TrfInjectRefl.hs" #-}
)) of
{ _multinamesOtbls | _multinamesOtbls `seq` (True) ->
(case (multinames_ _multinamesOtbls ) of
{ ( _multinamesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5162 "src/TrfInjectRefl.hs" #-}
)) of
{ _namesetsOtbls | _namesetsOtbls `seq` (True) ->
(case (namesets_ _namesetsOtbls ) of
{ ( _namesetsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5169 "src/TrfInjectRefl.hs" #-}
)) of
{ _namespacesOtbls | _namespacesOtbls `seq` (True) ->
(case (namespaces_ _namespacesOtbls ) of
{ ( _namespacesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5176 "src/TrfInjectRefl.hs" #-}
)) of
{ _stringsOtbls | _stringsOtbls `seq` (True) ->
(case (strings_ _stringsOtbls ) of
{ ( _stringsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5183 "src/TrfInjectRefl.hs" #-}
)) of
{ _doublesOtbls | _doublesOtbls `seq` (True) ->
(case (doubles_ _doublesOtbls ) of
{ ( _doublesIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5190 "src/TrfInjectRefl.hs" #-}
)) of
{ _uintegersOtbls | _uintegersOtbls `seq` (True) ->
(case (uintegers_ _uintegersOtbls ) of
{ ( _uintegersIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5197 "src/TrfInjectRefl.hs" #-}
)) of
{ _integersOtbls | _integersOtbls `seq` (True) ->
(case (integers_ _integersOtbls ) of
{ ( _integersIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
PoolInfo_Info _integersIoutput _uintegersIoutput _doublesIoutput _stringsIoutput _namespacesIoutput _namesetsIoutput _multinamesIoutput
{-# LINE 5204 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5209 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }))
-- PoolInts ----------------------------------------------------
-- cata
sem_PoolInts :: PoolInts ->
T_PoolInts
sem_PoolInts list =
(Prelude.foldr sem_PoolInts_Cons sem_PoolInts_Nil list )
-- semantic domain
type T_PoolInts = SymbolTables ->
( PoolInts )
sem_PoolInts_Cons :: Word32 ->
T_PoolInts ->
T_PoolInts
sem_PoolInts_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5229 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 5236 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5241 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_PoolInts_Nil :: T_PoolInts
sem_PoolInts_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5250 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5255 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- PoolStrings -------------------------------------------------
-- cata
sem_PoolStrings :: PoolStrings ->
T_PoolStrings
sem_PoolStrings list =
(Prelude.foldr sem_PoolStrings_Cons sem_PoolStrings_Nil list )
-- semantic domain
type T_PoolStrings = SymbolTables ->
( PoolStrings )
sem_PoolStrings_Cons :: ByteString ->
T_PoolStrings ->
T_PoolStrings
sem_PoolStrings_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5275 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 5282 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5287 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_PoolStrings_Nil :: T_PoolStrings
sem_PoolStrings_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5296 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5301 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- PoolUInts ---------------------------------------------------
-- cata
sem_PoolUInts :: PoolUInts ->
T_PoolUInts
sem_PoolUInts list =
(Prelude.foldr sem_PoolUInts_Cons sem_PoolUInts_Nil list )
-- semantic domain
type T_PoolUInts = SymbolTables ->
( PoolUInts )
sem_PoolUInts_Cons :: Word32 ->
T_PoolUInts ->
T_PoolUInts
sem_PoolUInts_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5321 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 5328 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5333 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_PoolUInts_Nil :: T_PoolUInts
sem_PoolUInts_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5342 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5347 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Rect --------------------------------------------------------
-- cata
sem_Rect :: Rect ->
T_Rect
sem_Rect (Rect_Rect _bits _xMin _xMax _yMin _yMax ) =
(sem_Rect_Rect _bits _xMin _xMax _yMin _yMax )
-- semantic domain
type T_Rect = ( Rect )
sem_Rect_Rect :: Int ->
Word32 ->
Word32 ->
Word32 ->
Word32 ->
T_Rect
sem_Rect_Rect bits_ xMin_ xMax_ yMin_ yMax_ =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Rect_Rect bits_ xMin_ xMax_ yMin_ yMax_
{-# LINE 5368 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5373 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
-- ScriptInfo --------------------------------------------------
-- cata
sem_ScriptInfo :: ScriptInfo ->
T_ScriptInfo
sem_ScriptInfo (ScriptInfo_Info _method _traits ) =
(sem_ScriptInfo_Info _method (sem_Traits _traits ) )
-- semantic domain
type T_ScriptInfo = SymbolTables ->
( ScriptInfo )
sem_ScriptInfo_Info :: Word32 ->
T_Traits ->
T_ScriptInfo
sem_ScriptInfo_Info method_ traits_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5393 "src/TrfInjectRefl.hs" #-}
)) of
{ _traitsOtbls | _traitsOtbls `seq` (True) ->
(case (traits_ _traitsOtbls ) of
{ ( _traitsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ScriptInfo_Info method_ _traitsIoutput
{-# LINE 5400 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5405 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
-- ScriptInfos -------------------------------------------------
-- cata
sem_ScriptInfos :: ScriptInfos ->
T_ScriptInfos
sem_ScriptInfos list =
(Prelude.foldr sem_ScriptInfos_Cons sem_ScriptInfos_Nil (Prelude.map sem_ScriptInfo list) )
-- semantic domain
type T_ScriptInfos = SymbolTables ->
( ScriptInfos )
sem_ScriptInfos_Cons :: T_ScriptInfo ->
T_ScriptInfos ->
T_ScriptInfos
sem_ScriptInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5425 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5432 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 5439 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5444 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_ScriptInfos_Nil :: T_ScriptInfos
sem_ScriptInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5453 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5458 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- SetInfo -----------------------------------------------------
-- cata
sem_SetInfo :: SetInfo ->
T_SetInfo
sem_SetInfo (SetInfo_Info _names ) =
(sem_SetInfo_Info (sem_NamespaceNames _names ) )
-- semantic domain
type T_SetInfo = SymbolTables ->
( SetInfo )
sem_SetInfo_Info :: T_NamespaceNames ->
T_SetInfo
sem_SetInfo_Info names_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5477 "src/TrfInjectRefl.hs" #-}
)) of
{ _namesOtbls | _namesOtbls `seq` (True) ->
(case (names_ _namesOtbls ) of
{ ( _namesIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
SetInfo_Info _namesIoutput
{-# LINE 5484 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5489 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
-- SetInfos ----------------------------------------------------
-- cata
sem_SetInfos :: SetInfos ->
T_SetInfos
sem_SetInfos list =
(Prelude.foldr sem_SetInfos_Cons sem_SetInfos_Nil (Prelude.map sem_SetInfo list) )
-- semantic domain
type T_SetInfos = SymbolTables ->
( SetInfos )
sem_SetInfos_Cons :: T_SetInfo ->
T_SetInfos ->
T_SetInfos
sem_SetInfos_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5509 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5516 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 5523 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5528 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_SetInfos_Nil :: T_SetInfos
sem_SetInfos_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 5537 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5542 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- SwfFile -----------------------------------------------------
-- cata
sem_SwfFile :: SwfFile ->
T_SwfFile
sem_SwfFile (SwfFile_File _compressed _version _length _size _rate _count _tags ) =
(sem_SwfFile_File _compressed _version _length (sem_Rect _size ) _rate _count (sem_Tags _tags ) )
-- semantic domain
type T_SwfFile = ([SymbolTables]) ->
( SwfFile ,([SymbolTables]))
data Inh_SwfFile = Inh_SwfFile {tbls_Inh_SwfFile :: !(([SymbolTables]))}
data Syn_SwfFile = Syn_SwfFile {output_Syn_SwfFile :: !(SwfFile ),tbls_Syn_SwfFile :: !(([SymbolTables]))}
wrap_SwfFile :: T_SwfFile ->
Inh_SwfFile ->
Syn_SwfFile
wrap_SwfFile sem (Inh_SwfFile _lhsItbls ) =
(let ( _lhsOoutput,_lhsOtbls) | True = sem _lhsItbls
in (Syn_SwfFile _lhsOoutput _lhsOtbls ))
sem_SwfFile_File :: Bool ->
Word8 ->
Word32 ->
T_Rect ->
Word16 ->
Word16 ->
T_Tags ->
T_SwfFile
sem_SwfFile_File compressed_ version_ length_ size_ rate_ count_ tags_ =
(\ _lhsItbls ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5575 "src/TrfInjectRefl.hs" #-}
)) of
{ _tagsOtbls | _tagsOtbls `seq` (True) ->
(case (tags_ _tagsOtbls ) of
{ ( _tagsIoutput,_tagsItbls) | True ->
(case (size_ ) of
{ ( _sizeIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
SwfFile_File compressed_ version_ length_ _sizeIoutput rate_ count_ _tagsIoutput
{-# LINE 5584 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5589 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_tagsItbls
{-# LINE 5594 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }) }) }) }))
-- Tag ---------------------------------------------------------
-- cata
sem_Tag :: Tag ->
T_Tag
sem_Tag (Tag_Abc _flags _name _file ) =
(sem_Tag_Abc (sem_AbcFlags _flags ) _name (sem_AbcFile _file ) )
sem_Tag (Tag_End ) =
(sem_Tag_End )
sem_Tag (Tag_FileAttributes _useDirectBlit _useGPU _hasMetaData _hasAS3 _useNetwork ) =
(sem_Tag_FileAttributes _useDirectBlit _useGPU _hasMetaData _hasAS3 _useNetwork )
sem_Tag (Tag_Opaque _kind _length _body ) =
(sem_Tag_Opaque (sem_TagKind _kind ) _length _body )
-- semantic domain
type T_Tag = ([SymbolTables]) ->
( Tag ,([SymbolTables]))
sem_Tag_Abc :: T_AbcFlags ->
ByteString ->
T_AbcFile ->
T_Tag
sem_Tag_Abc flags_ name_ file_ =
(\ _lhsItbls ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5621 "src/TrfInjectRefl.hs" #-}
)) of
{ _fileOtbls | _fileOtbls `seq` (True) ->
(case (file_ _fileOtbls ) of
{ ( _fileIoutput,_fileItbls) | True ->
(case (flags_ ) of
{ ( _flagsIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Tag_Abc _flagsIoutput name_ _fileIoutput
{-# LINE 5630 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5635 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_fileItbls
{-# LINE 5640 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }) }) }) }))
sem_Tag_End :: T_Tag
sem_Tag_End =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Tag_End
{-# LINE 5649 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5654 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5659 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }))
sem_Tag_FileAttributes :: Bool ->
Bool ->
Bool ->
Bool ->
Bool ->
T_Tag
sem_Tag_FileAttributes useDirectBlit_ useGPU_ hasMetaData_ hasAS3_ useNetwork_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Tag_FileAttributes useDirectBlit_ useGPU_ hasMetaData_ hasAS3_ useNetwork_
{-# LINE 5673 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5678 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5683 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }))
sem_Tag_Opaque :: T_TagKind ->
Word32 ->
ByteString ->
T_Tag
sem_Tag_Opaque kind_ length_ body_ =
(\ _lhsItbls ->
(case (kind_ ) of
{ ( _kindIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Tag_Opaque _kindIoutput length_ body_
{-# LINE 5697 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5702 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 5707 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }) }))
-- TagKind -----------------------------------------------------
-- cata
sem_TagKind :: TagKind ->
T_TagKind
sem_TagKind (TagKind_CSMTextSettings ) =
(sem_TagKind_CSMTextSettings )
sem_TagKind (TagKind_DefineBinaryData ) =
(sem_TagKind_DefineBinaryData )
sem_TagKind (TagKind_DefineBits ) =
(sem_TagKind_DefineBits )
sem_TagKind (TagKind_DefineBitsJPEG2 ) =
(sem_TagKind_DefineBitsJPEG2 )
sem_TagKind (TagKind_DefineBitsJPEG3 ) =
(sem_TagKind_DefineBitsJPEG3 )
sem_TagKind (TagKind_DefineBitsJPEG4 ) =
(sem_TagKind_DefineBitsJPEG4 )
sem_TagKind (TagKind_DefineBitsLossless ) =
(sem_TagKind_DefineBitsLossless )
sem_TagKind (TagKind_DefineBitsLossless2 ) =
(sem_TagKind_DefineBitsLossless2 )
sem_TagKind (TagKind_DefineButton ) =
(sem_TagKind_DefineButton )
sem_TagKind (TagKind_DefineButton2 ) =
(sem_TagKind_DefineButton2 )
sem_TagKind (TagKind_DefineButtonCxform ) =
(sem_TagKind_DefineButtonCxform )
sem_TagKind (TagKind_DefineButtonSound ) =
(sem_TagKind_DefineButtonSound )
sem_TagKind (TagKind_DefineEditText ) =
(sem_TagKind_DefineEditText )
sem_TagKind (TagKind_DefineFont ) =
(sem_TagKind_DefineFont )
sem_TagKind (TagKind_DefineFont2 ) =
(sem_TagKind_DefineFont2 )
sem_TagKind (TagKind_DefineFont3 ) =
(sem_TagKind_DefineFont3 )
sem_TagKind (TagKind_DefineFont4 ) =
(sem_TagKind_DefineFont4 )
sem_TagKind (TagKind_DefineFontAlignZones ) =
(sem_TagKind_DefineFontAlignZones )
sem_TagKind (TagKind_DefineFontInfo ) =
(sem_TagKind_DefineFontInfo )
sem_TagKind (TagKind_DefineFontInfo2 ) =
(sem_TagKind_DefineFontInfo2 )
sem_TagKind (TagKind_DefineFontName ) =
(sem_TagKind_DefineFontName )
sem_TagKind (TagKind_DefineMorphShape ) =
(sem_TagKind_DefineMorphShape )
sem_TagKind (TagKind_DefineMorphShape2 ) =
(sem_TagKind_DefineMorphShape2 )
sem_TagKind (TagKind_DefineScalingGrid ) =
(sem_TagKind_DefineScalingGrid )
sem_TagKind (TagKind_DefineSceneAndFrameLabelData ) =
(sem_TagKind_DefineSceneAndFrameLabelData )
sem_TagKind (TagKind_DefineShape ) =
(sem_TagKind_DefineShape )
sem_TagKind (TagKind_DefineShape2 ) =
(sem_TagKind_DefineShape2 )
sem_TagKind (TagKind_DefineShape3 ) =
(sem_TagKind_DefineShape3 )
sem_TagKind (TagKind_DefineShape4 ) =
(sem_TagKind_DefineShape4 )
sem_TagKind (TagKind_DefineSound ) =
(sem_TagKind_DefineSound )
sem_TagKind (TagKind_DefineSprite ) =
(sem_TagKind_DefineSprite )
sem_TagKind (TagKind_DefineText ) =
(sem_TagKind_DefineText )
sem_TagKind (TagKind_DefineText2 ) =
(sem_TagKind_DefineText2 )
sem_TagKind (TagKind_DefineVideoStream ) =
(sem_TagKind_DefineVideoStream )
sem_TagKind (TagKind_DoABC ) =
(sem_TagKind_DoABC )
sem_TagKind (TagKind_DoAction ) =
(sem_TagKind_DoAction )
sem_TagKind (TagKind_DoInitAction ) =
(sem_TagKind_DoInitAction )
sem_TagKind (TagKind_EnableDebugger ) =
(sem_TagKind_EnableDebugger )
sem_TagKind (TagKind_EnableDebugger2 ) =
(sem_TagKind_EnableDebugger2 )
sem_TagKind (TagKind_End ) =
(sem_TagKind_End )
sem_TagKind (TagKind_ExportAssets ) =
(sem_TagKind_ExportAssets )
sem_TagKind (TagKind_FileAttributes ) =
(sem_TagKind_FileAttributes )
sem_TagKind (TagKind_FrameLabel ) =
(sem_TagKind_FrameLabel )
sem_TagKind (TagKind_ImportAssets ) =
(sem_TagKind_ImportAssets )
sem_TagKind (TagKind_ImportAssets2 ) =
(sem_TagKind_ImportAssets2 )
sem_TagKind (TagKind_JPEGTables ) =
(sem_TagKind_JPEGTables )
sem_TagKind (TagKind_Metadata ) =
(sem_TagKind_Metadata )
sem_TagKind (TagKind_Other _code ) =
(sem_TagKind_Other _code )
sem_TagKind (TagKind_PlaceObject ) =
(sem_TagKind_PlaceObject )
sem_TagKind (TagKind_PlaceObject2 ) =
(sem_TagKind_PlaceObject2 )
sem_TagKind (TagKind_PlaceObject3 ) =
(sem_TagKind_PlaceObject3 )
sem_TagKind (TagKind_Protect ) =
(sem_TagKind_Protect )
sem_TagKind (TagKind_RemoveObject ) =
(sem_TagKind_RemoveObject )
sem_TagKind (TagKind_RemoveObject2 ) =
(sem_TagKind_RemoveObject2 )
sem_TagKind (TagKind_ScriptLimits ) =
(sem_TagKind_ScriptLimits )
sem_TagKind (TagKind_SetBackgroundColor ) =
(sem_TagKind_SetBackgroundColor )
sem_TagKind (TagKind_SetTabIndex ) =
(sem_TagKind_SetTabIndex )
sem_TagKind (TagKind_ShowFrame ) =
(sem_TagKind_ShowFrame )
sem_TagKind (TagKind_SoundStreamBlock ) =
(sem_TagKind_SoundStreamBlock )
sem_TagKind (TagKind_SoundStreamHead ) =
(sem_TagKind_SoundStreamHead )
sem_TagKind (TagKind_SoundStreamHead2 ) =
(sem_TagKind_SoundStreamHead2 )
sem_TagKind (TagKind_StartSound ) =
(sem_TagKind_StartSound )
sem_TagKind (TagKind_StartSound2 ) =
(sem_TagKind_StartSound2 )
sem_TagKind (TagKind_SymbolClass ) =
(sem_TagKind_SymbolClass )
sem_TagKind (TagKind_VideoFrame ) =
(sem_TagKind_VideoFrame )
-- semantic domain
type T_TagKind = ( TagKind )
sem_TagKind_CSMTextSettings :: T_TagKind
sem_TagKind_CSMTextSettings =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_CSMTextSettings
{-# LINE 5851 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5856 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineBinaryData :: T_TagKind
sem_TagKind_DefineBinaryData =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineBinaryData
{-# LINE 5864 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5869 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineBits :: T_TagKind
sem_TagKind_DefineBits =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineBits
{-# LINE 5877 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5882 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineBitsJPEG2 :: T_TagKind
sem_TagKind_DefineBitsJPEG2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineBitsJPEG2
{-# LINE 5890 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5895 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineBitsJPEG3 :: T_TagKind
sem_TagKind_DefineBitsJPEG3 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineBitsJPEG3
{-# LINE 5903 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5908 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineBitsJPEG4 :: T_TagKind
sem_TagKind_DefineBitsJPEG4 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineBitsJPEG4
{-# LINE 5916 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5921 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineBitsLossless :: T_TagKind
sem_TagKind_DefineBitsLossless =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineBitsLossless
{-# LINE 5929 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5934 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineBitsLossless2 :: T_TagKind
sem_TagKind_DefineBitsLossless2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineBitsLossless2
{-# LINE 5942 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5947 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineButton :: T_TagKind
sem_TagKind_DefineButton =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineButton
{-# LINE 5955 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5960 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineButton2 :: T_TagKind
sem_TagKind_DefineButton2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineButton2
{-# LINE 5968 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5973 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineButtonCxform :: T_TagKind
sem_TagKind_DefineButtonCxform =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineButtonCxform
{-# LINE 5981 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5986 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineButtonSound :: T_TagKind
sem_TagKind_DefineButtonSound =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineButtonSound
{-# LINE 5994 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 5999 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineEditText :: T_TagKind
sem_TagKind_DefineEditText =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineEditText
{-# LINE 6007 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6012 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFont :: T_TagKind
sem_TagKind_DefineFont =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFont
{-# LINE 6020 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6025 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFont2 :: T_TagKind
sem_TagKind_DefineFont2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFont2
{-# LINE 6033 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6038 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFont3 :: T_TagKind
sem_TagKind_DefineFont3 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFont3
{-# LINE 6046 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6051 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFont4 :: T_TagKind
sem_TagKind_DefineFont4 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFont4
{-# LINE 6059 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6064 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFontAlignZones :: T_TagKind
sem_TagKind_DefineFontAlignZones =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFontAlignZones
{-# LINE 6072 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6077 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFontInfo :: T_TagKind
sem_TagKind_DefineFontInfo =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFontInfo
{-# LINE 6085 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6090 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFontInfo2 :: T_TagKind
sem_TagKind_DefineFontInfo2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFontInfo2
{-# LINE 6098 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6103 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineFontName :: T_TagKind
sem_TagKind_DefineFontName =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineFontName
{-# LINE 6111 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6116 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineMorphShape :: T_TagKind
sem_TagKind_DefineMorphShape =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineMorphShape
{-# LINE 6124 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6129 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineMorphShape2 :: T_TagKind
sem_TagKind_DefineMorphShape2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineMorphShape2
{-# LINE 6137 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6142 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineScalingGrid :: T_TagKind
sem_TagKind_DefineScalingGrid =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineScalingGrid
{-# LINE 6150 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6155 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineSceneAndFrameLabelData :: T_TagKind
sem_TagKind_DefineSceneAndFrameLabelData =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineSceneAndFrameLabelData
{-# LINE 6163 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6168 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineShape :: T_TagKind
sem_TagKind_DefineShape =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineShape
{-# LINE 6176 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6181 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineShape2 :: T_TagKind
sem_TagKind_DefineShape2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineShape2
{-# LINE 6189 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6194 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineShape3 :: T_TagKind
sem_TagKind_DefineShape3 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineShape3
{-# LINE 6202 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6207 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineShape4 :: T_TagKind
sem_TagKind_DefineShape4 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineShape4
{-# LINE 6215 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6220 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineSound :: T_TagKind
sem_TagKind_DefineSound =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineSound
{-# LINE 6228 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6233 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineSprite :: T_TagKind
sem_TagKind_DefineSprite =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineSprite
{-# LINE 6241 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6246 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineText :: T_TagKind
sem_TagKind_DefineText =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineText
{-# LINE 6254 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6259 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineText2 :: T_TagKind
sem_TagKind_DefineText2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineText2
{-# LINE 6267 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6272 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DefineVideoStream :: T_TagKind
sem_TagKind_DefineVideoStream =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DefineVideoStream
{-# LINE 6280 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6285 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DoABC :: T_TagKind
sem_TagKind_DoABC =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DoABC
{-# LINE 6293 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6298 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DoAction :: T_TagKind
sem_TagKind_DoAction =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DoAction
{-# LINE 6306 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6311 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_DoInitAction :: T_TagKind
sem_TagKind_DoInitAction =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_DoInitAction
{-# LINE 6319 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6324 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_EnableDebugger :: T_TagKind
sem_TagKind_EnableDebugger =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_EnableDebugger
{-# LINE 6332 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6337 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_EnableDebugger2 :: T_TagKind
sem_TagKind_EnableDebugger2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_EnableDebugger2
{-# LINE 6345 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6350 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_End :: T_TagKind
sem_TagKind_End =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_End
{-# LINE 6358 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6363 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_ExportAssets :: T_TagKind
sem_TagKind_ExportAssets =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_ExportAssets
{-# LINE 6371 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6376 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_FileAttributes :: T_TagKind
sem_TagKind_FileAttributes =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_FileAttributes
{-# LINE 6384 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6389 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_FrameLabel :: T_TagKind
sem_TagKind_FrameLabel =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_FrameLabel
{-# LINE 6397 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6402 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_ImportAssets :: T_TagKind
sem_TagKind_ImportAssets =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_ImportAssets
{-# LINE 6410 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6415 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_ImportAssets2 :: T_TagKind
sem_TagKind_ImportAssets2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_ImportAssets2
{-# LINE 6423 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6428 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_JPEGTables :: T_TagKind
sem_TagKind_JPEGTables =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_JPEGTables
{-# LINE 6436 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6441 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_Metadata :: T_TagKind
sem_TagKind_Metadata =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_Metadata
{-# LINE 6449 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6454 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_Other :: Word16 ->
T_TagKind
sem_TagKind_Other code_ =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_Other code_
{-# LINE 6463 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6468 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_PlaceObject :: T_TagKind
sem_TagKind_PlaceObject =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_PlaceObject
{-# LINE 6476 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6481 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_PlaceObject2 :: T_TagKind
sem_TagKind_PlaceObject2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_PlaceObject2
{-# LINE 6489 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6494 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_PlaceObject3 :: T_TagKind
sem_TagKind_PlaceObject3 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_PlaceObject3
{-# LINE 6502 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6507 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_Protect :: T_TagKind
sem_TagKind_Protect =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_Protect
{-# LINE 6515 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6520 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_RemoveObject :: T_TagKind
sem_TagKind_RemoveObject =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_RemoveObject
{-# LINE 6528 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6533 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_RemoveObject2 :: T_TagKind
sem_TagKind_RemoveObject2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_RemoveObject2
{-# LINE 6541 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6546 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_ScriptLimits :: T_TagKind
sem_TagKind_ScriptLimits =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_ScriptLimits
{-# LINE 6554 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6559 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_SetBackgroundColor :: T_TagKind
sem_TagKind_SetBackgroundColor =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_SetBackgroundColor
{-# LINE 6567 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6572 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_SetTabIndex :: T_TagKind
sem_TagKind_SetTabIndex =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_SetTabIndex
{-# LINE 6580 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6585 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_ShowFrame :: T_TagKind
sem_TagKind_ShowFrame =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_ShowFrame
{-# LINE 6593 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6598 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_SoundStreamBlock :: T_TagKind
sem_TagKind_SoundStreamBlock =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_SoundStreamBlock
{-# LINE 6606 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6611 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_SoundStreamHead :: T_TagKind
sem_TagKind_SoundStreamHead =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_SoundStreamHead
{-# LINE 6619 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6624 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_SoundStreamHead2 :: T_TagKind
sem_TagKind_SoundStreamHead2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_SoundStreamHead2
{-# LINE 6632 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6637 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_StartSound :: T_TagKind
sem_TagKind_StartSound =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_StartSound
{-# LINE 6645 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6650 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_StartSound2 :: T_TagKind
sem_TagKind_StartSound2 =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_StartSound2
{-# LINE 6658 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6663 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_SymbolClass :: T_TagKind
sem_TagKind_SymbolClass =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_SymbolClass
{-# LINE 6671 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6676 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
sem_TagKind_VideoFrame :: T_TagKind
sem_TagKind_VideoFrame =
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TagKind_VideoFrame
{-# LINE 6684 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6689 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) })
-- Tags --------------------------------------------------------
-- cata
sem_Tags :: Tags ->
T_Tags
sem_Tags list =
(Prelude.foldr sem_Tags_Cons sem_Tags_Nil (Prelude.map sem_Tag list) )
-- semantic domain
type T_Tags = ([SymbolTables]) ->
( Tags ,([SymbolTables]))
sem_Tags_Cons :: T_Tag ->
T_Tags ->
T_Tags
sem_Tags_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6709 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput,_hdItbls) | True ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_hdItbls
{-# LINE 6716 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput,_tlItbls) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 6723 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6728 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_tlItbls
{-# LINE 6733 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }) }) }) }) }))
sem_Tags_Nil :: T_Tags
sem_Tags_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 6742 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6747 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
(case (({-# LINE 52 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6752 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOtbls | _lhsOtbls `seq` (True) ->
( _lhsOoutput,_lhsOtbls) }) }) }))
-- Trait -------------------------------------------------------
-- cata
sem_Trait :: Trait ->
T_Trait
sem_Trait (Trait_Trait _name _data _attrs _meta ) =
(sem_Trait_Trait _name (sem_TraitData _data ) (sem_TraitAttrs _attrs ) (sem_TraitMeta _meta ) )
-- semantic domain
type T_Trait = SymbolTables ->
( Trait )
sem_Trait_Trait :: Word32 ->
T_TraitData ->
T_TraitAttrs ->
T_TraitMeta ->
T_Trait
sem_Trait_Trait name_ data_ attrs_ meta_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6774 "src/TrfInjectRefl.hs" #-}
)) of
{ _metaOtbls | _metaOtbls `seq` (True) ->
(case (meta_ _metaOtbls ) of
{ ( _metaIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6781 "src/TrfInjectRefl.hs" #-}
)) of
{ _attrsOtbls | _attrsOtbls `seq` (True) ->
(case (attrs_ _attrsOtbls ) of
{ ( _attrsIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6788 "src/TrfInjectRefl.hs" #-}
)) of
{ _dataOtbls | _dataOtbls `seq` (True) ->
(case (data_ _dataOtbls ) of
{ ( _dataIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
Trait_Trait name_ _dataIoutput _attrsIoutput _metaIoutput
{-# LINE 6795 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6800 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }) }) }))
-- TraitAttr ---------------------------------------------------
-- cata
sem_TraitAttr :: TraitAttr ->
T_TraitAttr
sem_TraitAttr (TraitAttr_Final ) =
(sem_TraitAttr_Final )
sem_TraitAttr (TraitAttr_Metadata ) =
(sem_TraitAttr_Metadata )
sem_TraitAttr (TraitAttr_Override ) =
(sem_TraitAttr_Override )
-- semantic domain
type T_TraitAttr = SymbolTables ->
( TraitAttr )
sem_TraitAttr_Final :: T_TraitAttr
sem_TraitAttr_Final =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitAttr_Final
{-# LINE 6822 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6827 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitAttr_Metadata :: T_TraitAttr
sem_TraitAttr_Metadata =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitAttr_Metadata
{-# LINE 6836 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6841 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitAttr_Override :: T_TraitAttr
sem_TraitAttr_Override =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitAttr_Override
{-# LINE 6850 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6855 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- TraitAttrs --------------------------------------------------
-- cata
sem_TraitAttrs :: TraitAttrs ->
T_TraitAttrs
sem_TraitAttrs list =
(Prelude.foldr sem_TraitAttrs_Cons sem_TraitAttrs_Nil (Prelude.map sem_TraitAttr list) )
-- semantic domain
type T_TraitAttrs = SymbolTables ->
( TraitAttrs )
sem_TraitAttrs_Cons :: T_TraitAttr ->
T_TraitAttrs ->
T_TraitAttrs
sem_TraitAttrs_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6875 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6882 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 6889 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6894 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_TraitAttrs_Nil :: T_TraitAttrs
sem_TraitAttrs_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 6903 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6908 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- TraitData ---------------------------------------------------
-- cata
sem_TraitData :: TraitData ->
T_TraitData
sem_TraitData (TraitData_Class _slotId _class ) =
(sem_TraitData_Class _slotId _class )
sem_TraitData (TraitData_Const _slotId _tp _vindex _vkind ) =
(sem_TraitData_Const _slotId _tp _vindex (sem_ValueKind _vkind ) )
sem_TraitData (TraitData_Function _dispId _method ) =
(sem_TraitData_Function _dispId _method )
sem_TraitData (TraitData_Getter _dispId _method ) =
(sem_TraitData_Getter _dispId _method )
sem_TraitData (TraitData_Method _dispId _method ) =
(sem_TraitData_Method _dispId _method )
sem_TraitData (TraitData_Setter _dispId _method ) =
(sem_TraitData_Setter _dispId _method )
sem_TraitData (TraitData_Slot _slotId _tp _vindex _vkind ) =
(sem_TraitData_Slot _slotId _tp _vindex (sem_ValueKind _vkind ) )
-- semantic domain
type T_TraitData = SymbolTables ->
( TraitData )
sem_TraitData_Class :: Word32 ->
Word32 ->
T_TraitData
sem_TraitData_Class slotId_ class_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitData_Class slotId_ class_
{-# LINE 6940 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6945 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitData_Const :: Word32 ->
Word32 ->
Word32 ->
T_ValueKind ->
T_TraitData
sem_TraitData_Const slotId_ tp_ vindex_ vkind_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 6958 "src/TrfInjectRefl.hs" #-}
)) of
{ _vkindOtbls | _vkindOtbls `seq` (True) ->
(case (vkind_ _vkindOtbls ) of
{ ( _vkindIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitData_Const slotId_ tp_ vindex_ _vkindIoutput
{-# LINE 6965 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6970 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_TraitData_Function :: Word32 ->
Word32 ->
T_TraitData
sem_TraitData_Function dispId_ method_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitData_Function dispId_ method_
{-# LINE 6981 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 6986 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitData_Getter :: Word32 ->
Word32 ->
T_TraitData
sem_TraitData_Getter dispId_ method_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitData_Getter dispId_ method_
{-# LINE 6997 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7002 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitData_Method :: Word32 ->
Word32 ->
T_TraitData
sem_TraitData_Method dispId_ method_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitData_Method dispId_ method_
{-# LINE 7013 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7018 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitData_Setter :: Word32 ->
Word32 ->
T_TraitData
sem_TraitData_Setter dispId_ method_ =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitData_Setter dispId_ method_
{-# LINE 7029 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7034 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitData_Slot :: Word32 ->
Word32 ->
Word32 ->
T_ValueKind ->
T_TraitData
sem_TraitData_Slot slotId_ tp_ vindex_ vkind_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 7047 "src/TrfInjectRefl.hs" #-}
)) of
{ _vkindOtbls | _vkindOtbls `seq` (True) ->
(case (vkind_ _vkindOtbls ) of
{ ( _vkindIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitData_Slot slotId_ tp_ vindex_ _vkindIoutput
{-# LINE 7054 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7059 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
-- TraitKind ---------------------------------------------------
-- cata
sem_TraitKind :: TraitKind ->
T_TraitKind
sem_TraitKind (TraitKind_Class ) =
(sem_TraitKind_Class )
sem_TraitKind (TraitKind_Const ) =
(sem_TraitKind_Const )
sem_TraitKind (TraitKind_Function ) =
(sem_TraitKind_Function )
sem_TraitKind (TraitKind_Getter ) =
(sem_TraitKind_Getter )
sem_TraitKind (TraitKind_Method ) =
(sem_TraitKind_Method )
sem_TraitKind (TraitKind_Setter ) =
(sem_TraitKind_Setter )
sem_TraitKind (TraitKind_Slot ) =
(sem_TraitKind_Slot )
-- semantic domain
type T_TraitKind = SymbolTables ->
( TraitKind )
sem_TraitKind_Class :: T_TraitKind
sem_TraitKind_Class =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitKind_Class
{-# LINE 7089 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7094 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitKind_Const :: T_TraitKind
sem_TraitKind_Const =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitKind_Const
{-# LINE 7103 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7108 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitKind_Function :: T_TraitKind
sem_TraitKind_Function =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitKind_Function
{-# LINE 7117 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7122 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitKind_Getter :: T_TraitKind
sem_TraitKind_Getter =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitKind_Getter
{-# LINE 7131 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7136 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitKind_Method :: T_TraitKind
sem_TraitKind_Method =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitKind_Method
{-# LINE 7145 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7150 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitKind_Setter :: T_TraitKind
sem_TraitKind_Setter =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitKind_Setter
{-# LINE 7159 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7164 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_TraitKind_Slot :: T_TraitKind
sem_TraitKind_Slot =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
TraitKind_Slot
{-# LINE 7173 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7178 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- TraitMeta ---------------------------------------------------
-- cata
sem_TraitMeta :: TraitMeta ->
T_TraitMeta
sem_TraitMeta list =
(Prelude.foldr sem_TraitMeta_Cons sem_TraitMeta_Nil list )
-- semantic domain
type T_TraitMeta = SymbolTables ->
( TraitMeta )
sem_TraitMeta_Cons :: Word32 ->
T_TraitMeta ->
T_TraitMeta
sem_TraitMeta_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 7198 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) hd_ _tlIoutput
{-# LINE 7205 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7210 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }))
sem_TraitMeta_Nil :: T_TraitMeta
sem_TraitMeta_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 7219 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7224 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- Traits ------------------------------------------------------
-- cata
sem_Traits :: Traits ->
T_Traits
sem_Traits list =
(Prelude.foldr sem_Traits_Cons sem_Traits_Nil (Prelude.map sem_Trait list) )
-- semantic domain
type T_Traits = SymbolTables ->
( Traits )
sem_Traits_Cons :: T_Trait ->
T_Traits ->
T_Traits
sem_Traits_Cons hd_ tl_ =
(\ _lhsItbls ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 7244 "src/TrfInjectRefl.hs" #-}
)) of
{ _tlOtbls | _tlOtbls `seq` (True) ->
(case (tl_ _tlOtbls ) of
{ ( _tlIoutput) | True ->
(case (({-# LINE 53 "src/TrfInjectRefl.ag" #-}
_lhsItbls
{-# LINE 7251 "src/TrfInjectRefl.hs" #-}
)) of
{ _hdOtbls | _hdOtbls `seq` (True) ->
(case (hd_ _hdOtbls ) of
{ ( _hdIoutput) | True ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
(:) _hdIoutput _tlIoutput
{-# LINE 7258 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7263 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }) }) }) }) }))
sem_Traits_Nil :: T_Traits
sem_Traits_Nil =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
[]
{-# LINE 7272 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7277 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
-- ValueKind ---------------------------------------------------
-- cata
sem_ValueKind :: ValueKind ->
T_ValueKind
sem_ValueKind (ValueKind_Double ) =
(sem_ValueKind_Double )
sem_ValueKind (ValueKind_Explicit ) =
(sem_ValueKind_Explicit )
sem_ValueKind (ValueKind_False ) =
(sem_ValueKind_False )
sem_ValueKind (ValueKind_Int ) =
(sem_ValueKind_Int )
sem_ValueKind (ValueKind_Internal ) =
(sem_ValueKind_Internal )
sem_ValueKind (ValueKind_Namespace ) =
(sem_ValueKind_Namespace )
sem_ValueKind (ValueKind_Null ) =
(sem_ValueKind_Null )
sem_ValueKind (ValueKind_Package ) =
(sem_ValueKind_Package )
sem_ValueKind (ValueKind_Private ) =
(sem_ValueKind_Private )
sem_ValueKind (ValueKind_Protected ) =
(sem_ValueKind_Protected )
sem_ValueKind (ValueKind_Static ) =
(sem_ValueKind_Static )
sem_ValueKind (ValueKind_True ) =
(sem_ValueKind_True )
sem_ValueKind (ValueKind_UInt ) =
(sem_ValueKind_UInt )
sem_ValueKind (ValueKind_Undefined ) =
(sem_ValueKind_Undefined )
sem_ValueKind (ValueKind_Utf8 ) =
(sem_ValueKind_Utf8 )
-- semantic domain
type T_ValueKind = SymbolTables ->
( ValueKind )
sem_ValueKind_Double :: T_ValueKind
sem_ValueKind_Double =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Double
{-# LINE 7323 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7328 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Explicit :: T_ValueKind
sem_ValueKind_Explicit =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Explicit
{-# LINE 7337 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7342 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_False :: T_ValueKind
sem_ValueKind_False =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_False
{-# LINE 7351 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7356 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Int :: T_ValueKind
sem_ValueKind_Int =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Int
{-# LINE 7365 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7370 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Internal :: T_ValueKind
sem_ValueKind_Internal =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Internal
{-# LINE 7379 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7384 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Namespace :: T_ValueKind
sem_ValueKind_Namespace =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Namespace
{-# LINE 7393 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7398 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Null :: T_ValueKind
sem_ValueKind_Null =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Null
{-# LINE 7407 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7412 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Package :: T_ValueKind
sem_ValueKind_Package =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Package
{-# LINE 7421 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7426 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Private :: T_ValueKind
sem_ValueKind_Private =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Private
{-# LINE 7435 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7440 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Protected :: T_ValueKind
sem_ValueKind_Protected =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Protected
{-# LINE 7449 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7454 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Static :: T_ValueKind
sem_ValueKind_Static =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Static
{-# LINE 7463 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7468 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_True :: T_ValueKind
sem_ValueKind_True =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_True
{-# LINE 7477 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7482 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_UInt :: T_ValueKind
sem_ValueKind_UInt =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_UInt
{-# LINE 7491 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7496 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Undefined :: T_ValueKind
sem_ValueKind_Undefined =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Undefined
{-# LINE 7505 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7510 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))
sem_ValueKind_Utf8 :: T_ValueKind
sem_ValueKind_Utf8 =
(\ _lhsItbls ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
ValueKind_Utf8
{-# LINE 7519 "src/TrfInjectRefl.hs" #-}
)) of
{ _output | _output `seq` (True) ->
(case (({-# LINE 45 "src/TrfInjectRefl.ag" #-}
_output
{-# LINE 7524 "src/TrfInjectRefl.hs" #-}
)) of
{ _lhsOoutput | _lhsOoutput `seq` (True) ->
( _lhsOoutput) }) }))