diff --git a/src-derived/AG2AspectAG.hs b/src-derived/AG2AspectAG.hs --- a/src-derived/AG2AspectAG.hs +++ b/src-derived/AG2AspectAG.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (AG2AspectAG.ag) +-- UUAGC 0.9.38.1 (AG2AspectAG.ag) module AG2AspectAG where {-# LINE 7 "AG2AspectAG.ag" #-} @@ -579,6 +579,7 @@ child manualAttrOrderMap : {AttrOrderMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child uniqueMap : {UniqueMap} child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} @@ -587,8 +588,8 @@ -- cata sem_Grammar :: Grammar -> T_Grammar -sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = - (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) +sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = + (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) -- semantic domain newtype T_Grammar = T_Grammar (Options -> ( PP_Doc)) @@ -609,12 +610,13 @@ AttrOrderMap -> ParamMap -> ContextMap -> + QuantMap -> UniqueMap -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) -> T_Grammar -sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = +sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = (T_Grammar (\ _lhsIoptions -> (let _nontsOo_rename :: Bool _lhsOpp :: PP_Doc @@ -632,7 +634,7 @@ _nontsOo_rename = ({-# LINE 40 "AG2AspectAG.ag" #-} rename _lhsIoptions - {-# LINE 636 "AG2AspectAG.hs" #-} + {-# LINE 638 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 47, column 25) _lhsOpp = @@ -655,19 +657,19 @@ (if wrappers _lhsIoptions then pp "-- wrappers" >-< _nontsIppW else empty) - {-# LINE 659 "AG2AspectAG.hs" #-} + {-# LINE 661 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 92, column 25) _nontsOderivs = ({-# LINE 92 "AG2AspectAG.ag" #-} derivings_ - {-# LINE 665 "AG2AspectAG.hs" #-} + {-# LINE 667 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 138, column 34) _nontsOtSyns = ({-# LINE 138 "AG2AspectAG.ag" #-} typeSyns_ - {-# LINE 671 "AG2AspectAG.hs" #-} + {-# LINE 673 "AG2AspectAG.hs" #-} ) ( _nontsIppA,_nontsIppCata,_nontsIppD,_nontsIppL,_nontsIppNtL,_nontsIppR,_nontsIppSF,_nontsIppW) = nonts_ _nontsOderivs _nontsOo_rename _nontsOtSyns @@ -892,7 +894,7 @@ _prodsOppNt = ({-# LINE 79 "AG2AspectAG.ag" #-} pp nt_ - {-# LINE 896 "AG2AspectAG.hs" #-} + {-# LINE 898 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 98, column 25) _lhsOppD = @@ -903,14 +905,14 @@ Just ntds -> pp " deriving " >|< (ppListSep "(" ")" ", " $ Set.elems ntds) Nothing -> empty Just tp -> pp "type " >|< pp nt_ >|< " = " >|< ppShow tp - {-# LINE 907 "AG2AspectAG.hs" #-} + {-# LINE 909 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 149, column 25) _lhsOppL = ({-# LINE 149 "AG2AspectAG.ag" #-} pp "nt_" >|< pp nt_ >|< " = proxy :: Proxy " >|< pp nt_ >-< _prodsIppL - {-# LINE 914 "AG2AspectAG.hs" #-} + {-# LINE 916 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 171, column 25) _lhsOppA = @@ -918,19 +920,19 @@ defTAtt "inh" (pp nt_) inh_ >-< defTAtt "syn" (pp nt_) syn_ >-< _prodsIppA - {-# LINE 922 "AG2AspectAG.hs" #-} + {-# LINE 924 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 216, column 25) _lhsOppNtL = ({-# LINE 216 "AG2AspectAG.ag" #-} pp "nt_" >|< pp nt_ >|< pp " .*. " - {-# LINE 928 "AG2AspectAG.hs" #-} + {-# LINE 930 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 223, column 25) _lhsOppR = ({-# LINE 223 "AG2AspectAG.ag" #-} pp "----" >|< pp nt_ >-< _prodsIppR - {-# LINE 934 "AG2AspectAG.hs" #-} + {-# LINE 936 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 417, column 25) _lhsOppCata = @@ -938,7 +940,7 @@ let ppNt = pp nt_ in pp "----" >|< ppNt >-< _prodsIppCata - {-# LINE 942 "AG2AspectAG.hs" #-} + {-# LINE 944 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 438, column 25) _lhsOppSF = @@ -951,7 +953,7 @@ pp "instance SemType T_" >|< ppNt >|< pp " " >|< ppNt >-< pp "-- sem_" >|< ppNt >|< pp " :: " >|< ppNt >|< pp " -> T_" >|< ppNt >-< _prodsIppSF - {-# LINE 955 "AG2AspectAG.hs" #-} + {-# LINE 957 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 485, column 25) _lhsOppW = @@ -959,13 +961,13 @@ pp "wrap_" >|< pp nt_ >|< pp " sem _inh = " >-< pp " let (Record (HCons _syn HNil)) = sem (att_inh .=. _inh .*. emptyRecord)" >|< pp " in (valueLVPair _syn)" - {-# LINE 963 "AG2AspectAG.hs" #-} + {-# LINE 965 "AG2AspectAG.hs" #-} ) -- copy rule (down) _prodsOo_rename = ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename - {-# LINE 969 "AG2AspectAG.hs" #-} + {-# LINE 971 "AG2AspectAG.hs" #-} ) ( _prodsIppA,_prodsIppCata,_prodsIppDL,_prodsIppL,_prodsIppR,_prodsIppSF) = prods_ _prodsOo_rename _prodsOppNt @@ -1051,85 +1053,85 @@ _lhsOppA = ({-# LINE 168 "AG2AspectAG.ag" #-} _hdIppA >-< _tlIppA - {-# LINE 1055 "AG2AspectAG.hs" #-} + {-# LINE 1057 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata = ({-# LINE 414 "AG2AspectAG.ag" #-} _hdIppCata >-< _tlIppCata - {-# LINE 1061 "AG2AspectAG.hs" #-} + {-# LINE 1063 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 95, column 52) _lhsOppD = ({-# LINE 95 "AG2AspectAG.ag" #-} _hdIppD >-< _tlIppD - {-# LINE 1067 "AG2AspectAG.hs" #-} + {-# LINE 1069 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL = ({-# LINE 146 "AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL - {-# LINE 1073 "AG2AspectAG.hs" #-} + {-# LINE 1075 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 213, column 44) _lhsOppNtL = ({-# LINE 213 "AG2AspectAG.ag" #-} _hdIppNtL >|< _tlIppNtL - {-# LINE 1079 "AG2AspectAG.hs" #-} + {-# LINE 1081 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR = ({-# LINE 220 "AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR - {-# LINE 1085 "AG2AspectAG.hs" #-} + {-# LINE 1087 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF = ({-# LINE 435 "AG2AspectAG.ag" #-} _hdIppSF >-< _tlIppSF - {-# LINE 1091 "AG2AspectAG.hs" #-} + {-# LINE 1093 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 482, column 42) _lhsOppW = ({-# LINE 482 "AG2AspectAG.ag" #-} _hdIppW >-< _tlIppW - {-# LINE 1097 "AG2AspectAG.hs" #-} + {-# LINE 1099 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOderivs = ({-# LINE 89 "AG2AspectAG.ag" #-} _lhsIderivs - {-# LINE 1103 "AG2AspectAG.hs" #-} + {-# LINE 1105 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename - {-# LINE 1109 "AG2AspectAG.hs" #-} + {-# LINE 1111 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOtSyns = ({-# LINE 135 "AG2AspectAG.ag" #-} _lhsItSyns - {-# LINE 1115 "AG2AspectAG.hs" #-} + {-# LINE 1117 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOderivs = ({-# LINE 89 "AG2AspectAG.ag" #-} _lhsIderivs - {-# LINE 1121 "AG2AspectAG.hs" #-} + {-# LINE 1123 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename - {-# LINE 1127 "AG2AspectAG.hs" #-} + {-# LINE 1129 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOtSyns = ({-# LINE 135 "AG2AspectAG.ag" #-} _lhsItSyns - {-# LINE 1133 "AG2AspectAG.hs" #-} + {-# LINE 1135 "AG2AspectAG.hs" #-} ) ( _hdIppA,_hdIppCata,_hdIppD,_hdIppL,_hdIppNtL,_hdIppR,_hdIppSF,_hdIppW) = hd_ _hdOderivs _hdOo_rename _hdOtSyns @@ -1153,49 +1155,49 @@ _lhsOppA = ({-# LINE 168 "AG2AspectAG.ag" #-} empty - {-# LINE 1157 "AG2AspectAG.hs" #-} + {-# LINE 1159 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata = ({-# LINE 414 "AG2AspectAG.ag" #-} empty - {-# LINE 1163 "AG2AspectAG.hs" #-} + {-# LINE 1165 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 95, column 52) _lhsOppD = ({-# LINE 95 "AG2AspectAG.ag" #-} empty - {-# LINE 1169 "AG2AspectAG.hs" #-} + {-# LINE 1171 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL = ({-# LINE 146 "AG2AspectAG.ag" #-} empty - {-# LINE 1175 "AG2AspectAG.hs" #-} + {-# LINE 1177 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 213, column 44) _lhsOppNtL = ({-# LINE 213 "AG2AspectAG.ag" #-} pp "hNil" - {-# LINE 1181 "AG2AspectAG.hs" #-} + {-# LINE 1183 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR = ({-# LINE 220 "AG2AspectAG.ag" #-} empty - {-# LINE 1187 "AG2AspectAG.hs" #-} + {-# LINE 1189 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF = ({-# LINE 435 "AG2AspectAG.ag" #-} empty - {-# LINE 1193 "AG2AspectAG.hs" #-} + {-# LINE 1195 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 482, column 42) _lhsOppW = ({-# LINE 482 "AG2AspectAG.ag" #-} empty - {-# LINE 1199 "AG2AspectAG.hs" #-} + {-# LINE 1201 "AG2AspectAG.hs" #-} ) in ( _lhsOppA,_lhsOppCata,_lhsOppD,_lhsOppL,_lhsOppNtL,_lhsOppR,_lhsOppSF,_lhsOppW))) ) -- Pattern ----------------------------------------------------- @@ -1269,19 +1271,19 @@ _lhsOinfo = ({-# LINE 240 "AG2AspectAG.ag" #-} (field_, attr_) - {-# LINE 1273 "AG2AspectAG.hs" #-} + {-# LINE 1275 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 1279 "AG2AspectAG.hs" #-} + {-# LINE 1281 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1285 "AG2AspectAG.hs" #-} + {-# LINE 1287 "AG2AspectAG.hs" #-} ) ( _patIcopy,_patIinfo) = pat_ @@ -1299,19 +1301,19 @@ _lhsOinfo = ({-# LINE 241 "AG2AspectAG.ag" #-} error "Pattern Constr undefined!!" - {-# LINE 1303 "AG2AspectAG.hs" #-} + {-# LINE 1305 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 1309 "AG2AspectAG.hs" #-} + {-# LINE 1311 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1315 "AG2AspectAG.hs" #-} + {-# LINE 1317 "AG2AspectAG.hs" #-} ) ( _patsIcopy) = pats_ @@ -1327,19 +1329,19 @@ _copy = ({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 1331 "AG2AspectAG.hs" #-} + {-# LINE 1333 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1337 "AG2AspectAG.hs" #-} + {-# LINE 1339 "AG2AspectAG.hs" #-} ) -- copy rule (up) _lhsOinfo = ({-# LINE 238 "AG2AspectAG.ag" #-} _patIinfo - {-# LINE 1343 "AG2AspectAG.hs" #-} + {-# LINE 1345 "AG2AspectAG.hs" #-} ) ( _patIcopy,_patIinfo) = pat_ @@ -1355,19 +1357,19 @@ _lhsOinfo = ({-# LINE 242 "AG2AspectAG.ag" #-} error "Pattern Product undefined!!" - {-# LINE 1359 "AG2AspectAG.hs" #-} + {-# LINE 1361 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 1365 "AG2AspectAG.hs" #-} + {-# LINE 1367 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1371 "AG2AspectAG.hs" #-} + {-# LINE 1373 "AG2AspectAG.hs" #-} ) ( _patsIcopy) = pats_ @@ -1381,19 +1383,19 @@ _lhsOinfo = ({-# LINE 243 "AG2AspectAG.ag" #-} error "Pattern Underscore undefined!!" - {-# LINE 1385 "AG2AspectAG.hs" #-} + {-# LINE 1387 "AG2AspectAG.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 1391 "AG2AspectAG.hs" #-} + {-# LINE 1393 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1397 "AG2AspectAG.hs" #-} + {-# LINE 1399 "AG2AspectAG.hs" #-} ) in ( _lhsOcopy,_lhsOinfo)) ) -- Patterns ---------------------------------------------------- @@ -1438,13 +1440,13 @@ _copy = ({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 1442 "AG2AspectAG.hs" #-} + {-# LINE 1444 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1448 "AG2AspectAG.hs" #-} + {-# LINE 1450 "AG2AspectAG.hs" #-} ) ( _hdIcopy,_hdIinfo) = hd_ @@ -1458,13 +1460,13 @@ _copy = ({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 1462 "AG2AspectAG.hs" #-} + {-# LINE 1464 "AG2AspectAG.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1468 "AG2AspectAG.hs" #-} + {-# LINE 1470 "AG2AspectAG.hs" #-} ) in ( _lhsOcopy)) ) -- Production -------------------------------------------------- @@ -1534,26 +1536,26 @@ _childrenOppProd = ({-# LINE 85 "AG2AspectAG.ag" #-} pp con_ - {-# LINE 1538 "AG2AspectAG.hs" #-} + {-# LINE 1540 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 86, column 25) _rulesOppProd = ({-# LINE 86 "AG2AspectAG.ag" #-} pp con_ - {-# LINE 1544 "AG2AspectAG.hs" #-} + {-# LINE 1546 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 107, column 25) _lhsOppD = ({-# LINE 107 "AG2AspectAG.ag" #-} let ppProd = prodName _lhsIo_rename _lhsIppNt (pp con_) in ppProd >|< ppListSep " {" "}" ", " _childrenIppDL - {-# LINE 1551 "AG2AspectAG.hs" #-} + {-# LINE 1553 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 176, column 25) _lhsOppA = ({-# LINE 176 "AG2AspectAG.ag" #-} defLocalAtts _lhsIppNt (pp con_) (length _rulesIlocals) 1 $ sort _rulesIlocals - {-# LINE 1557 "AG2AspectAG.hs" #-} + {-# LINE 1559 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 226, column 25) _lhsOppR = @@ -1562,7 +1564,7 @@ defLocRule _lhsIppNt con_ _childrenIppR _rulesIppRL _childrenIidCL _rulesIlocals >-< defInhRule _lhsIppNt con_ _childrenIppR _rulesIppRL _childrenIidCL _rulesIlocals >-< defSynRule _lhsIppNt con_ _childrenIppR _rulesIppRL _childrenIidCL _rulesIlocals - {-# LINE 1566 "AG2AspectAG.hs" #-} + {-# LINE 1568 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 424, column 25) _lhsOppCata = @@ -1573,7 +1575,7 @@ pp " `ext` loc_" >|< ppProd >|< pp " `ext` inst_" >|< ppProd >-< pp "sem_" >|< ppProd >|< pp " = knit asp_" >|< ppProd - {-# LINE 1577 "AG2AspectAG.hs" #-} + {-# LINE 1579 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 449, column 25) _lhsOppSF = @@ -1587,31 +1589,31 @@ ppParams f = f $ map (((>|<) (pp "_")) . fst) chi in pp "sem_" >|< _lhsIppNt >|< pp " (" >|< ppPattern >|< ") = sem_" >|< ppProd >|< pp " (" >|< map snd chi >|< pp "emptyRecord)" - {-# LINE 1591 "AG2AspectAG.hs" #-} + {-# LINE 1593 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL = ({-# LINE 146 "AG2AspectAG.ag" #-} _childrenIppL - {-# LINE 1597 "AG2AspectAG.hs" #-} + {-# LINE 1599 "AG2AspectAG.hs" #-} ) -- copy rule (down) _childrenOo_rename = ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename - {-# LINE 1603 "AG2AspectAG.hs" #-} + {-# LINE 1605 "AG2AspectAG.hs" #-} ) -- copy rule (down) _childrenOppNt = ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt - {-# LINE 1609 "AG2AspectAG.hs" #-} + {-# LINE 1611 "AG2AspectAG.hs" #-} ) -- copy rule (down) _rulesOppNt = ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt - {-# LINE 1615 "AG2AspectAG.hs" #-} + {-# LINE 1617 "AG2AspectAG.hs" #-} ) ( _childrenIidCL,_childrenIppCSF,_childrenIppDL,_childrenIppL,_childrenIppR) = children_ _childrenOo_rename _childrenOppNt _childrenOppProd @@ -1686,61 +1688,61 @@ _lhsOppDL = ({-# LINE 121 "AG2AspectAG.ag" #-} _hdIppD : _tlIppDL - {-# LINE 1690 "AG2AspectAG.hs" #-} + {-# LINE 1692 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 168, column 64) _lhsOppA = ({-# LINE 168 "AG2AspectAG.ag" #-} _hdIppA >-< _tlIppA - {-# LINE 1696 "AG2AspectAG.hs" #-} + {-# LINE 1698 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata = ({-# LINE 414 "AG2AspectAG.ag" #-} _hdIppCata >-< _tlIppCata - {-# LINE 1702 "AG2AspectAG.hs" #-} + {-# LINE 1704 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL = ({-# LINE 146 "AG2AspectAG.ag" #-} _hdIppL >-< _tlIppL - {-# LINE 1708 "AG2AspectAG.hs" #-} + {-# LINE 1710 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR = ({-# LINE 220 "AG2AspectAG.ag" #-} _hdIppR >-< _tlIppR - {-# LINE 1714 "AG2AspectAG.hs" #-} + {-# LINE 1716 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF = ({-# LINE 435 "AG2AspectAG.ag" #-} _hdIppSF >-< _tlIppSF - {-# LINE 1720 "AG2AspectAG.hs" #-} + {-# LINE 1722 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename - {-# LINE 1726 "AG2AspectAG.hs" #-} + {-# LINE 1728 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppNt = ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt - {-# LINE 1732 "AG2AspectAG.hs" #-} + {-# LINE 1734 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 38 "AG2AspectAG.ag" #-} _lhsIo_rename - {-# LINE 1738 "AG2AspectAG.hs" #-} + {-# LINE 1740 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppNt = ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt - {-# LINE 1744 "AG2AspectAG.hs" #-} + {-# LINE 1746 "AG2AspectAG.hs" #-} ) ( _hdIppA,_hdIppCata,_hdIppD,_hdIppL,_hdIppR,_hdIppSF) = hd_ _hdOo_rename _hdOppNt @@ -1761,37 +1763,37 @@ _lhsOppDL = ({-# LINE 122 "AG2AspectAG.ag" #-} [] - {-# LINE 1765 "AG2AspectAG.hs" #-} + {-# LINE 1767 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 168, column 64) _lhsOppA = ({-# LINE 168 "AG2AspectAG.ag" #-} empty - {-# LINE 1771 "AG2AspectAG.hs" #-} + {-# LINE 1773 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 414, column 67) _lhsOppCata = ({-# LINE 414 "AG2AspectAG.ag" #-} empty - {-# LINE 1777 "AG2AspectAG.hs" #-} + {-# LINE 1779 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 146, column 79) _lhsOppL = ({-# LINE 146 "AG2AspectAG.ag" #-} empty - {-# LINE 1783 "AG2AspectAG.hs" #-} + {-# LINE 1785 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 220, column 79) _lhsOppR = ({-# LINE 220 "AG2AspectAG.ag" #-} empty - {-# LINE 1789 "AG2AspectAG.hs" #-} + {-# LINE 1791 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 435, column 66) _lhsOppSF = ({-# LINE 435 "AG2AspectAG.ag" #-} empty - {-# LINE 1795 "AG2AspectAG.hs" #-} + {-# LINE 1797 "AG2AspectAG.hs" #-} ) in ( _lhsOppA,_lhsOppCata,_lhsOppDL,_lhsOppL,_lhsOppR,_lhsOppSF))) ) -- Rule -------------------------------------------------------- @@ -1852,25 +1854,25 @@ if (show (fst _patternIinfo) == "loc") then [ snd _patternIinfo ] else [ ] - {-# LINE 1856 "AG2AspectAG.hs" #-} + {-# LINE 1858 "AG2AspectAG.hs" #-} ) -- "AG2AspectAG.ag"(line 253, column 33) _lhsOppRL = ({-# LINE 253 "AG2AspectAG.ag" #-} [ (_patternIinfo, defRule _lhsIppNt _patternIinfo _rhsIppRE) ] - {-# LINE 1862 "AG2AspectAG.hs" #-} + {-# LINE 1864 "AG2AspectAG.hs" #-} ) -- copy rule (down) _rhsOppNt = ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt - {-# LINE 1868 "AG2AspectAG.hs" #-} + {-# LINE 1870 "AG2AspectAG.hs" #-} ) -- copy rule (down) _rhsOppProd = ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd - {-# LINE 1874 "AG2AspectAG.hs" #-} + {-# LINE 1876 "AG2AspectAG.hs" #-} ) ( _patternIcopy,_patternIinfo) = pattern_ @@ -1929,37 +1931,37 @@ _lhsOppRL = ({-# LINE 249 "AG2AspectAG.ag" #-} _hdIppRL ++ _tlIppRL - {-# LINE 1933 "AG2AspectAG.hs" #-} + {-# LINE 1935 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 202, column 30) _lhsOlocals = ({-# LINE 202 "AG2AspectAG.ag" #-} _hdIlocals ++ _tlIlocals - {-# LINE 1939 "AG2AspectAG.hs" #-} + {-# LINE 1941 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppNt = ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt - {-# LINE 1945 "AG2AspectAG.hs" #-} + {-# LINE 1947 "AG2AspectAG.hs" #-} ) -- copy rule (down) _hdOppProd = ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd - {-# LINE 1951 "AG2AspectAG.hs" #-} + {-# LINE 1953 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppNt = ({-# LINE 76 "AG2AspectAG.ag" #-} _lhsIppNt - {-# LINE 1957 "AG2AspectAG.hs" #-} + {-# LINE 1959 "AG2AspectAG.hs" #-} ) -- copy rule (down) _tlOppProd = ({-# LINE 82 "AG2AspectAG.ag" #-} _lhsIppProd - {-# LINE 1963 "AG2AspectAG.hs" #-} + {-# LINE 1965 "AG2AspectAG.hs" #-} ) ( _hdIlocals,_hdIppRL) = hd_ _hdOppNt _hdOppProd @@ -1976,13 +1978,13 @@ _lhsOppRL = ({-# LINE 250 "AG2AspectAG.ag" #-} [] - {-# LINE 1980 "AG2AspectAG.hs" #-} + {-# LINE 1982 "AG2AspectAG.hs" #-} ) -- use rule "AG2AspectAG.ag"(line 202, column 30) _lhsOlocals = ({-# LINE 202 "AG2AspectAG.ag" #-} [] - {-# LINE 1986 "AG2AspectAG.hs" #-} + {-# LINE 1988 "AG2AspectAG.hs" #-} ) in ( _lhsOlocals,_lhsOppRL))) ) -- TypeSig ----------------------------------------------------- diff --git a/src-derived/AbstractSyntax.hs b/src-derived/AbstractSyntax.hs --- a/src-derived/AbstractSyntax.hs +++ b/src-derived/AbstractSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (AbstractSyntax.ag) +-- UUAGC 0.9.38.1 (AbstractSyntax.ag) module AbstractSyntax where {-# LINE 2 "AbstractSyntax.ag" #-} @@ -44,12 +44,13 @@ child manualAttrOrderMap : {AttrOrderMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child uniqueMap : {UniqueMap} child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))} -} -data Grammar = Grammar (TypeSyns) (UseMap) (Derivings) ((Set NontermIdent)) (Nonterminals ) (PragmaMap) (AttrOrderMap) (ParamMap) (ContextMap) (UniqueMap) ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))) ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))) ((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression))))) +data Grammar = Grammar (TypeSyns) (UseMap) (Derivings) ((Set NontermIdent)) (Nonterminals ) (PragmaMap) (AttrOrderMap) (ParamMap) (ContextMap) (QuantMap) (UniqueMap) ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))) ((Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])))) ((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression))))) -- Nonterminal ------------------------------------------------- {- alternatives: diff --git a/src-derived/AbstractSyntaxDump.hs b/src-derived/AbstractSyntaxDump.hs --- a/src-derived/AbstractSyntaxDump.hs +++ b/src-derived/AbstractSyntaxDump.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (AbstractSyntaxDump.ag) +-- UUAGC 0.9.38.1 (AbstractSyntaxDump.ag) module AbstractSyntaxDump where {-# LINE 6 "AbstractSyntaxDump.ag" #-} @@ -202,6 +202,7 @@ child manualAttrOrderMap : {AttrOrderMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child uniqueMap : {UniqueMap} child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} @@ -210,8 +211,8 @@ -- cata sem_Grammar :: Grammar -> T_Grammar -sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = - (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) +sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = + (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) -- semantic domain newtype T_Grammar = T_Grammar (( PP_Doc)) data Inh_Grammar = Inh_Grammar {} @@ -231,12 +232,13 @@ AttrOrderMap -> ParamMap -> ContextMap -> + QuantMap -> UniqueMap -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) -> T_Grammar -sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = +sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = (T_Grammar (let _lhsOpp :: PP_Doc _nontsIpp :: PP_Doc _nontsIppL :: ([PP_Doc]) @@ -250,7 +252,7 @@ , ppF "wrappers" $ ppShow $ wrappers_ , ppF "nonts" $ ppVList _nontsIppL ] [] - {-# LINE 254 "AbstractSyntaxDump.hs" #-} + {-# LINE 256 "AbstractSyntaxDump.hs" #-} ) ( _nontsIpp,_nontsIppL) = nonts_ @@ -297,7 +299,7 @@ _lhsOpp = ({-# LINE 29 "AbstractSyntaxDump.ag" #-} ppNestInfo ["Nonterminal","Nonterminal"] (pp nt_ : map pp params_) [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "prods" $ ppVList _prodsIppL] [] - {-# LINE 301 "AbstractSyntaxDump.hs" #-} + {-# LINE 303 "AbstractSyntaxDump.hs" #-} ) ( _prodsIpp,_prodsIppL) = prods_ @@ -342,13 +344,13 @@ _lhsOppL = ({-# LINE 75 "AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 346 "AbstractSyntaxDump.hs" #-} + {-# LINE 348 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 352 "AbstractSyntaxDump.hs" #-} + {-# LINE 354 "AbstractSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -363,13 +365,13 @@ _lhsOppL = ({-# LINE 76 "AbstractSyntaxDump.ag" #-} [] - {-# LINE 367 "AbstractSyntaxDump.hs" #-} + {-# LINE 369 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} empty - {-# LINE 373 "AbstractSyntaxDump.hs" #-} + {-# LINE 375 "AbstractSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) -- Pattern ----------------------------------------------------- @@ -445,19 +447,19 @@ _lhsOpp = ({-# LINE 46 "AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Alias"] [pp field_, pp attr_] [ppF "pat" $ _patIpp] [] - {-# LINE 449 "AbstractSyntaxDump.hs" #-} + {-# LINE 451 "AbstractSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 455 "AbstractSyntaxDump.hs" #-} + {-# LINE 457 "AbstractSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 461 "AbstractSyntaxDump.hs" #-} + {-# LINE 463 "AbstractSyntaxDump.hs" #-} ) ( _patIcopy,_patIpp) = pat_ @@ -477,19 +479,19 @@ _lhsOpp = ({-# LINE 44 "AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Constr"] [pp name_] [ppF "pats" $ ppVList _patsIppL] [] - {-# LINE 481 "AbstractSyntaxDump.hs" #-} + {-# LINE 483 "AbstractSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 487 "AbstractSyntaxDump.hs" #-} + {-# LINE 489 "AbstractSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 493 "AbstractSyntaxDump.hs" #-} + {-# LINE 495 "AbstractSyntaxDump.hs" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_ @@ -505,19 +507,19 @@ _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} _patIpp - {-# LINE 509 "AbstractSyntaxDump.hs" #-} + {-# LINE 511 "AbstractSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 515 "AbstractSyntaxDump.hs" #-} + {-# LINE 517 "AbstractSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 521 "AbstractSyntaxDump.hs" #-} + {-# LINE 523 "AbstractSyntaxDump.hs" #-} ) ( _patIcopy,_patIpp) = pat_ @@ -535,19 +537,19 @@ _lhsOpp = ({-# LINE 45 "AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Product"] [ppShow pos_] [ppF "pats" $ ppVList _patsIppL] [] - {-# LINE 539 "AbstractSyntaxDump.hs" #-} + {-# LINE 541 "AbstractSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 545 "AbstractSyntaxDump.hs" #-} + {-# LINE 547 "AbstractSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 551 "AbstractSyntaxDump.hs" #-} + {-# LINE 553 "AbstractSyntaxDump.hs" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_ @@ -561,19 +563,19 @@ _lhsOpp = ({-# LINE 47 "AbstractSyntaxDump.ag" #-} ppNestInfo ["Pattern","Underscore"] [ppShow pos_] [] [] - {-# LINE 565 "AbstractSyntaxDump.hs" #-} + {-# LINE 567 "AbstractSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 571 "AbstractSyntaxDump.hs" #-} + {-# LINE 573 "AbstractSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 577 "AbstractSyntaxDump.hs" #-} + {-# LINE 579 "AbstractSyntaxDump.hs" #-} ) in ( _lhsOcopy,_lhsOpp)) ) -- Patterns ---------------------------------------------------- @@ -624,25 +626,25 @@ _lhsOppL = ({-# LINE 55 "AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 628 "AbstractSyntaxDump.hs" #-} + {-# LINE 630 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 634 "AbstractSyntaxDump.hs" #-} + {-# LINE 636 "AbstractSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 640 "AbstractSyntaxDump.hs" #-} + {-# LINE 642 "AbstractSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 646 "AbstractSyntaxDump.hs" #-} + {-# LINE 648 "AbstractSyntaxDump.hs" #-} ) ( _hdIcopy,_hdIpp) = hd_ @@ -658,25 +660,25 @@ _lhsOppL = ({-# LINE 56 "AbstractSyntaxDump.ag" #-} [] - {-# LINE 662 "AbstractSyntaxDump.hs" #-} + {-# LINE 664 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} empty - {-# LINE 668 "AbstractSyntaxDump.hs" #-} + {-# LINE 670 "AbstractSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 674 "AbstractSyntaxDump.hs" #-} + {-# LINE 676 "AbstractSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 680 "AbstractSyntaxDump.hs" #-} + {-# LINE 682 "AbstractSyntaxDump.hs" #-} ) in ( _lhsOcopy,_lhsOpp,_lhsOppL)) ) -- Production -------------------------------------------------- @@ -723,7 +725,7 @@ _lhsOpp = ({-# LINE 32 "AbstractSyntaxDump.ag" #-} ppNestInfo ["Production","Production"] [pp con_] [ppF "children" $ ppVList _childrenIppL,ppF "rules" $ ppVList _rulesIppL,ppF "typeSigs" $ ppVList _typeSigsIppL] [] - {-# LINE 727 "AbstractSyntaxDump.hs" #-} + {-# LINE 729 "AbstractSyntaxDump.hs" #-} ) ( _childrenIpp,_childrenIppL) = children_ @@ -772,13 +774,13 @@ _lhsOppL = ({-# LINE 71 "AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 776 "AbstractSyntaxDump.hs" #-} + {-# LINE 778 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 782 "AbstractSyntaxDump.hs" #-} + {-# LINE 784 "AbstractSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -793,13 +795,13 @@ _lhsOppL = ({-# LINE 72 "AbstractSyntaxDump.ag" #-} [] - {-# LINE 797 "AbstractSyntaxDump.hs" #-} + {-# LINE 799 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} empty - {-# LINE 803 "AbstractSyntaxDump.hs" #-} + {-# LINE 805 "AbstractSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) -- Rule -------------------------------------------------------- @@ -847,7 +849,7 @@ _lhsOpp = ({-# LINE 38 "AbstractSyntaxDump.ag" #-} ppNestInfo ["Rule","Rule"] [ppShow owrt_, pp origin_] [ppF "pattern" $ _patternIpp, ppF "rhs" $ _rhsIpp] [] - {-# LINE 851 "AbstractSyntaxDump.hs" #-} + {-# LINE 853 "AbstractSyntaxDump.hs" #-} ) ( _patternIcopy,_patternIpp) = pattern_ @@ -894,13 +896,13 @@ _lhsOppL = ({-# LINE 63 "AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 898 "AbstractSyntaxDump.hs" #-} + {-# LINE 900 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 904 "AbstractSyntaxDump.hs" #-} + {-# LINE 906 "AbstractSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -915,13 +917,13 @@ _lhsOppL = ({-# LINE 64 "AbstractSyntaxDump.ag" #-} [] - {-# LINE 919 "AbstractSyntaxDump.hs" #-} + {-# LINE 921 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} empty - {-# LINE 925 "AbstractSyntaxDump.hs" #-} + {-# LINE 927 "AbstractSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) -- TypeSig ----------------------------------------------------- @@ -958,7 +960,7 @@ _lhsOpp = ({-# LINE 41 "AbstractSyntaxDump.ag" #-} ppNestInfo ["TypeSig","TypeSig"] [pp name_, ppShow tp_] [] [] - {-# LINE 962 "AbstractSyntaxDump.hs" #-} + {-# LINE 964 "AbstractSyntaxDump.hs" #-} ) in ( _lhsOpp)) ) -- TypeSigs ---------------------------------------------------- @@ -1001,13 +1003,13 @@ _lhsOppL = ({-# LINE 59 "AbstractSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 1005 "AbstractSyntaxDump.hs" #-} + {-# LINE 1007 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 1011 "AbstractSyntaxDump.hs" #-} + {-# LINE 1013 "AbstractSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -1022,12 +1024,12 @@ _lhsOppL = ({-# LINE 60 "AbstractSyntaxDump.ag" #-} [] - {-# LINE 1026 "AbstractSyntaxDump.hs" #-} + {-# LINE 1028 "AbstractSyntaxDump.hs" #-} ) -- use rule "AbstractSyntaxDump.ag"(line 17, column 58) _lhsOpp = ({-# LINE 17 "AbstractSyntaxDump.ag" #-} empty - {-# LINE 1032 "AbstractSyntaxDump.hs" #-} + {-# LINE 1034 "AbstractSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) diff --git a/src-derived/Code.hs b/src-derived/Code.hs --- a/src-derived/Code.hs +++ b/src-derived/Code.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (Code.ag) +-- UUAGC 0.9.38.1 (Code.ag) module Code where {-# LINE 2 "Code.ag" #-} @@ -12,12 +12,12 @@ import Data.Map(Map) import qualified Data.Map as Map {-# LINE 15 "../src-derived/Code.hs" #-} -{-# LINE 143 "Code.ag" #-} +{-# LINE 145 "Code.ag" #-} -- Unboxed tuples -- unbox Whether unboxed tuples are wanted or not --- inh The inherited attributes. --- If there are none, no unboxing can take place, +-- inh The inherited attributes. +-- If there are none, no unboxing can take place, -- because in that case the semantic function (a top-level identifier) would have an unboxed type. -- Of course we can't have an unboxed 1-tuple mkTupleExpr :: Bool -> Bool -> Exprs -> Expr @@ -304,6 +304,9 @@ alternative NontermType: child name : {String} child params : {[String]} + alternative QuantApp: + child left : {String} + child right : Type alternative SimpleType: child txt : {String} alternative TEither: @@ -328,6 +331,7 @@ | CtxApp (([(String, [String])])) (Type ) | List (Type ) | NontermType (String) (([String])) + | QuantApp (String) (Type ) | SimpleType (String) | TEither (Type ) (Type ) | TIntMap (Type ) diff --git a/src-derived/CodeSyntax.hs b/src-derived/CodeSyntax.hs --- a/src-derived/CodeSyntax.hs +++ b/src-derived/CodeSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (CodeSyntax.ag) +-- UUAGC 0.9.38.1 (CodeSyntax.ag) module CodeSyntax where {-# LINE 2 "CodeSyntax.ag" #-} @@ -20,11 +20,12 @@ child pragmas : {PragmaMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))} child multivisit : {Bool} -} -data CGrammar = CGrammar (TypeSyns) (Derivings) ((Set NontermIdent)) (CNonterminals ) (PragmaMap) (ParamMap) (ContextMap) ((Map NontermIdent (Map ConstructorIdent (Set Identifier)))) ((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))) (Bool) +data CGrammar = CGrammar (TypeSyns) (Derivings) ((Set NontermIdent)) (CNonterminals ) (PragmaMap) (ParamMap) (ContextMap) (QuantMap) ((Map NontermIdent (Map ConstructorIdent (Set Identifier)))) ((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier]))))) (Bool) -- CInterface -------------------------------------------------- {- alternatives: diff --git a/src-derived/CodeSyntaxDump.hs b/src-derived/CodeSyntaxDump.hs --- a/src-derived/CodeSyntaxDump.hs +++ b/src-derived/CodeSyntaxDump.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (CodeSyntaxDump.ag) +-- UUAGC 0.9.38.1 (CodeSyntaxDump.ag) module CodeSyntaxDump where {-# LINE 5 "CodeSyntaxDump.ag" #-} @@ -69,6 +69,7 @@ child pragmas : {PragmaMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))} child multivisit : {Bool} @@ -76,8 +77,8 @@ -- cata sem_CGrammar :: CGrammar -> T_CGrammar -sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) = - (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) +sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _quantMap _aroundsMap _mergeMap _multivisit ) = + (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _quantMap _aroundsMap _mergeMap _multivisit ) -- semantic domain newtype T_CGrammar = T_CGrammar (( PP_Doc)) data Inh_CGrammar = Inh_CGrammar {} @@ -95,11 +96,12 @@ PragmaMap -> ParamMap -> ContextMap -> + QuantMap -> (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) -> Bool -> T_CGrammar -sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ mergeMap_ multivisit_ = +sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ quantMap_ aroundsMap_ mergeMap_ multivisit_ = (T_CGrammar (let _lhsOpp :: PP_Doc _nontsIpp :: PP_Doc _nontsIppL :: ([PP_Doc]) @@ -111,7 +113,7 @@ , ppF "derivings" $ ppMap $ derivings_ , ppF "nonts" $ ppVList _nontsIppL ] [] - {-# LINE 115 "CodeSyntaxDump.hs" #-} + {-# LINE 117 "CodeSyntaxDump.hs" #-} ) ( _nontsIpp,_nontsIppL) = nonts_ @@ -150,7 +152,7 @@ _lhsOpp = ({-# LINE 57 "CodeSyntaxDump.ag" #-} ppNestInfo ["CInterface","CInterface"] [] [ppF "seg" $ ppVList _segIppL] [] - {-# LINE 154 "CodeSyntaxDump.hs" #-} + {-# LINE 156 "CodeSyntaxDump.hs" #-} ) ( _segIpp,_segIppL) = seg_ @@ -200,7 +202,7 @@ _lhsOpp = ({-# LINE 54 "CodeSyntaxDump.ag" #-} ppNestInfo ["CNonterminal","CNonterminal"] (pp nt_ : map pp params_) [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "prods" $ ppVList _prodsIppL, ppF "inter" _interIpp] [] - {-# LINE 204 "CodeSyntaxDump.hs" #-} + {-# LINE 206 "CodeSyntaxDump.hs" #-} ) ( _prodsIpp,_prodsIppL) = prods_ @@ -247,13 +249,13 @@ _lhsOppL = ({-# LINE 102 "CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 251 "CodeSyntaxDump.hs" #-} + {-# LINE 253 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 257 "CodeSyntaxDump.hs" #-} + {-# LINE 259 "CodeSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -268,13 +270,13 @@ _lhsOppL = ({-# LINE 103 "CodeSyntaxDump.ag" #-} [] - {-# LINE 272 "CodeSyntaxDump.hs" #-} + {-# LINE 274 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} empty - {-# LINE 278 "CodeSyntaxDump.hs" #-} + {-# LINE 280 "CodeSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) -- CProduction ------------------------------------------------- @@ -317,7 +319,7 @@ _lhsOpp = ({-# LINE 63 "CodeSyntaxDump.ag" #-} ppNestInfo ["CProduction","CProduction"] [pp con_] [ppF "visits" $ ppVList _visitsIppL, ppF "children" $ ppVList (map ppChild children_),ppF "terminals" $ ppVList (map ppShow terminals_)] [] - {-# LINE 321 "CodeSyntaxDump.hs" #-} + {-# LINE 323 "CodeSyntaxDump.hs" #-} ) ( _visitsIpp,_visitsIppL) = visits_ @@ -362,13 +364,13 @@ _lhsOppL = ({-# LINE 94 "CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 366 "CodeSyntaxDump.hs" #-} + {-# LINE 368 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 372 "CodeSyntaxDump.hs" #-} + {-# LINE 374 "CodeSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -383,13 +385,13 @@ _lhsOppL = ({-# LINE 95 "CodeSyntaxDump.ag" #-} [] - {-# LINE 387 "CodeSyntaxDump.hs" #-} + {-# LINE 389 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} empty - {-# LINE 393 "CodeSyntaxDump.hs" #-} + {-# LINE 395 "CodeSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) -- CRule ------------------------------------------------------- @@ -453,7 +455,7 @@ _lhsOpp = ({-# LINE 70 "CodeSyntaxDump.ag" #-} ppNestInfo ["CRule","CChildVisit"] [pp name_] [ppF "nt" $ pp nt_, ppF "nr" $ ppShow nr_, ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "last" $ ppBool isLast_] [] - {-# LINE 457 "CodeSyntaxDump.hs" #-} + {-# LINE 459 "CodeSyntaxDump.hs" #-} ) in ( _lhsOpp)) ) sem_CRule_CRule :: Identifier -> @@ -481,7 +483,7 @@ _lhsOpp = ({-# LINE 69 "CodeSyntaxDump.ag" #-} ppNestInfo ["CRule","CRule"] [pp name_] [ppF "isIn" $ ppBool isIn_, ppF "hasCode" $ ppBool hasCode_, ppF "nt" $ pp nt_, ppF "con" $ pp con_, ppF "field" $ pp field_, ppF "childnt" $ ppMaybeShow childnt_, ppF "tp" $ ppMaybeShow tp_, ppF "pattern" $ if isIn_ then pp "" else _patternIpp, ppF "rhs" $ ppStrings rhs_, ppF "defines" $ ppVertexMap defines_, ppF "owrt" $ ppBool owrt_, ppF "origin" $ pp origin_] [] - {-# LINE 485 "CodeSyntaxDump.hs" #-} + {-# LINE 487 "CodeSyntaxDump.hs" #-} ) ( _patternIcopy,_patternIpp) = pattern_ @@ -520,7 +522,7 @@ _lhsOpp = ({-# LINE 60 "CodeSyntaxDump.ag" #-} ppNestInfo ["CSegment","CSegment"] [] [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_] [] - {-# LINE 524 "CodeSyntaxDump.hs" #-} + {-# LINE 526 "CodeSyntaxDump.hs" #-} ) in ( _lhsOpp)) ) -- CSegments --------------------------------------------------- @@ -563,13 +565,13 @@ _lhsOppL = ({-# LINE 98 "CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 567 "CodeSyntaxDump.hs" #-} + {-# LINE 569 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 573 "CodeSyntaxDump.hs" #-} + {-# LINE 575 "CodeSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -584,13 +586,13 @@ _lhsOppL = ({-# LINE 99 "CodeSyntaxDump.ag" #-} [] - {-# LINE 588 "CodeSyntaxDump.hs" #-} + {-# LINE 590 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} empty - {-# LINE 594 "CodeSyntaxDump.hs" #-} + {-# LINE 596 "CodeSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) -- CVisit ------------------------------------------------------ @@ -635,7 +637,7 @@ _lhsOpp = ({-# LINE 66 "CodeSyntaxDump.ag" #-} ppNestInfo ["CVisit","CVisit"] [] [ppF "inh" $ ppMap inh_, ppF "syn" $ ppMap syn_, ppF "sequence" $ ppVList _vssIppL, ppF "intra" $ ppVList _intraIppL, ppF "ordered" $ ppBool ordered_] [] - {-# LINE 639 "CodeSyntaxDump.hs" #-} + {-# LINE 641 "CodeSyntaxDump.hs" #-} ) ( _vssIppL) = vss_ @@ -682,13 +684,13 @@ _lhsOppL = ({-# LINE 90 "CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 686 "CodeSyntaxDump.hs" #-} + {-# LINE 688 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 692 "CodeSyntaxDump.hs" #-} + {-# LINE 694 "CodeSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -703,13 +705,13 @@ _lhsOppL = ({-# LINE 91 "CodeSyntaxDump.ag" #-} [] - {-# LINE 707 "CodeSyntaxDump.hs" #-} + {-# LINE 709 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} empty - {-# LINE 713 "CodeSyntaxDump.hs" #-} + {-# LINE 715 "CodeSyntaxDump.hs" #-} ) in ( _lhsOpp,_lhsOppL)) ) -- Pattern ----------------------------------------------------- @@ -785,19 +787,19 @@ _lhsOpp = ({-# LINE 75 "CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Alias"] [pp field_, pp attr_] [ppF "pat" $ _patIpp] [] - {-# LINE 789 "CodeSyntaxDump.hs" #-} + {-# LINE 791 "CodeSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 795 "CodeSyntaxDump.hs" #-} + {-# LINE 797 "CodeSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 801 "CodeSyntaxDump.hs" #-} + {-# LINE 803 "CodeSyntaxDump.hs" #-} ) ( _patIcopy,_patIpp) = pat_ @@ -817,19 +819,19 @@ _lhsOpp = ({-# LINE 73 "CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Constr"] [pp name_] [ppF "pats" $ ppVList _patsIppL] [] - {-# LINE 821 "CodeSyntaxDump.hs" #-} + {-# LINE 823 "CodeSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 827 "CodeSyntaxDump.hs" #-} + {-# LINE 829 "CodeSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 833 "CodeSyntaxDump.hs" #-} + {-# LINE 835 "CodeSyntaxDump.hs" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_ @@ -845,19 +847,19 @@ _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} _patIpp - {-# LINE 849 "CodeSyntaxDump.hs" #-} + {-# LINE 851 "CodeSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 855 "CodeSyntaxDump.hs" #-} + {-# LINE 857 "CodeSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 861 "CodeSyntaxDump.hs" #-} + {-# LINE 863 "CodeSyntaxDump.hs" #-} ) ( _patIcopy,_patIpp) = pat_ @@ -875,19 +877,19 @@ _lhsOpp = ({-# LINE 74 "CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Product"] [ppShow pos_] [ppF "pats" $ ppVList _patsIppL] [] - {-# LINE 879 "CodeSyntaxDump.hs" #-} + {-# LINE 881 "CodeSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 885 "CodeSyntaxDump.hs" #-} + {-# LINE 887 "CodeSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 891 "CodeSyntaxDump.hs" #-} + {-# LINE 893 "CodeSyntaxDump.hs" #-} ) ( _patsIcopy,_patsIpp,_patsIppL) = pats_ @@ -901,19 +903,19 @@ _lhsOpp = ({-# LINE 76 "CodeSyntaxDump.ag" #-} ppNestInfo ["Pattern","Underscore"] [ppShow pos_] [] [] - {-# LINE 905 "CodeSyntaxDump.hs" #-} + {-# LINE 907 "CodeSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 911 "CodeSyntaxDump.hs" #-} + {-# LINE 913 "CodeSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 917 "CodeSyntaxDump.hs" #-} + {-# LINE 919 "CodeSyntaxDump.hs" #-} ) in ( _lhsOcopy,_lhsOpp)) ) -- Patterns ---------------------------------------------------- @@ -964,25 +966,25 @@ _lhsOppL = ({-# LINE 82 "CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 968 "CodeSyntaxDump.hs" #-} + {-# LINE 970 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} _hdIpp >-< _tlIpp - {-# LINE 974 "CodeSyntaxDump.hs" #-} + {-# LINE 976 "CodeSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 980 "CodeSyntaxDump.hs" #-} + {-# LINE 982 "CodeSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 986 "CodeSyntaxDump.hs" #-} + {-# LINE 988 "CodeSyntaxDump.hs" #-} ) ( _hdIcopy,_hdIpp) = hd_ @@ -998,25 +1000,25 @@ _lhsOppL = ({-# LINE 83 "CodeSyntaxDump.ag" #-} [] - {-# LINE 1002 "CodeSyntaxDump.hs" #-} + {-# LINE 1004 "CodeSyntaxDump.hs" #-} ) -- use rule "CodeSyntaxDump.ag"(line 44, column 40) _lhsOpp = ({-# LINE 44 "CodeSyntaxDump.ag" #-} empty - {-# LINE 1008 "CodeSyntaxDump.hs" #-} + {-# LINE 1010 "CodeSyntaxDump.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 1014 "CodeSyntaxDump.hs" #-} + {-# LINE 1016 "CodeSyntaxDump.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1020 "CodeSyntaxDump.hs" #-} + {-# LINE 1022 "CodeSyntaxDump.hs" #-} ) in ( _lhsOcopy,_lhsOpp,_lhsOppL)) ) -- Sequence ---------------------------------------------------- @@ -1056,7 +1058,7 @@ _lhsOppL = ({-# LINE 86 "CodeSyntaxDump.ag" #-} _hdIpp : _tlIppL - {-# LINE 1060 "CodeSyntaxDump.hs" #-} + {-# LINE 1062 "CodeSyntaxDump.hs" #-} ) ( _hdIpp) = hd_ @@ -1070,6 +1072,6 @@ _lhsOppL = ({-# LINE 87 "CodeSyntaxDump.ag" #-} [] - {-# LINE 1074 "CodeSyntaxDump.hs" #-} + {-# LINE 1076 "CodeSyntaxDump.hs" #-} ) in ( _lhsOppL)) ) diff --git a/src-derived/ConcreteSyntax.hs b/src-derived/ConcreteSyntax.hs --- a/src-derived/ConcreteSyntax.hs +++ b/src-derived/ConcreteSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.2 (ConcreteSyntax.ag) +-- UUAGC 0.9.38.1 (ConcreteSyntax.ag) module ConcreteSyntax where {-# LINE 2 "ConcreteSyntax.ag" #-} @@ -68,6 +68,7 @@ child pos : {Pos} child ctx : {ClassContext} child names : NontSet + child quants : {[String]} child attrs : Attrs alternative Data: child pos : {Pos} @@ -97,6 +98,7 @@ child ctx : {ClassContext} child names : NontSet child attrs : Attrs + child quants : {[String]} child alts : SemAlts alternative Set: child pos : {Pos} @@ -118,13 +120,13 @@ child pos : {Pos} child set : NontSet -} -data Elem = Attr (Pos) (ClassContext) (NontSet ) (Attrs ) +data Elem = Attr (Pos) (ClassContext) (NontSet ) (([String])) (Attrs ) | Data (Pos) (ClassContext) (NontSet ) (([Identifier])) (Attrs ) (Alts ) (Bool) | Deriving (Pos) (NontSet ) (([NontermIdent])) | Module (Pos) (String) (String) (String) | Nocatas (Pos) (NontSet ) | Pragma (Pos) (([NontermIdent])) - | Sem (Pos) (ClassContext) (NontSet ) (Attrs ) (SemAlts ) + | Sem (Pos) (ClassContext) (NontSet ) (Attrs ) (([String])) (SemAlts ) | Set (Pos) (NontermIdent) (Bool) (NontSet ) | Txt (Pos) (Identifier) ((Maybe NontermIdent)) (([String])) | Type (Pos) (ClassContext) (NontermIdent) (([Identifier])) (ComplexType) diff --git a/src-derived/DeclBlocks.hs b/src-derived/DeclBlocks.hs --- a/src-derived/DeclBlocks.hs +++ b/src-derived/DeclBlocks.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (DeclBlocks.ag) +-- UUAGC 0.9.38.1 (DeclBlocks.ag) module DeclBlocks where {-# LINE 2 "DeclBlocks.ag" #-} diff --git a/src-derived/DefaultRules.hs b/src-derived/DefaultRules.hs --- a/src-derived/DefaultRules.hs +++ b/src-derived/DefaultRules.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.37.1 (DefaultRules.ag) +-- UUAGC 0.9.38.1 (DefaultRules.ag) module DefaultRules where {-# LINE 10 "DefaultRules.ag" #-} @@ -631,6 +631,7 @@ child manualAttrOrderMap : {AttrOrderMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child uniqueMap : {UniqueMap} child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} @@ -641,8 +642,8 @@ -- cata sem_Grammar :: Grammar -> T_Grammar -sem_Grammar !(Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = - (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) +sem_Grammar !(Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = + (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) -- semantic domain newtype T_Grammar = T_Grammar (Options -> ( (Seq Error),Grammar )) @@ -663,80 +664,81 @@ AttrOrderMap -> ParamMap -> ContextMap -> + QuantMap -> UniqueMap -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) -> T_Grammar -sem_Grammar_Grammar !typeSyns_ !useMap_ !derivings_ !wrappers_ !(T_Nonterminals nonts_ ) !pragmas_ !manualAttrOrderMap_ !paramMap_ !contextMap_ !uniqueMap_ !augmentsMap_ !aroundsMap_ !mergeMap_ = +sem_Grammar_Grammar !typeSyns_ !useMap_ !derivings_ !wrappers_ !(T_Nonterminals nonts_ ) !pragmas_ !manualAttrOrderMap_ !paramMap_ !contextMap_ !quantMap_ !uniqueMap_ !augmentsMap_ !aroundsMap_ !mergeMap_ = (T_Grammar (\ (!_lhsIoptions) -> (case (({-# LINE 664 "DefaultRules.ag" #-} mergeMap_ - {-# LINE 676 "DefaultRules.hs" #-} + {-# LINE 678 "DefaultRules.hs" #-} )) of { !_nontsOmergesIn -> (case (({-# LINE 583 "DefaultRules.ag" #-} manualAttrOrderMap_ - {-# LINE 681 "DefaultRules.hs" #-} + {-# LINE 683 "DefaultRules.hs" #-} )) of { !_nontsOmanualAttrOrderMap -> (case (({-# LINE 150 "DefaultRules.ag" #-} typeSyns_ - {-# LINE 686 "DefaultRules.hs" #-} + {-# LINE 688 "DefaultRules.hs" #-} )) of { !_nontsOtypeSyns -> (case (({-# LINE 148 "DefaultRules.ag" #-} useMap_ - {-# LINE 691 "DefaultRules.hs" #-} + {-# LINE 693 "DefaultRules.hs" #-} )) of { !_nontsOuseMap -> (case (({-# LINE 50 "DefaultRules.ag" #-} modcopy _lhsIoptions - {-# LINE 696 "DefaultRules.hs" #-} + {-# LINE 698 "DefaultRules.hs" #-} )) of { !_nontsOcr -> (case (({-# LINE 49 "DefaultRules.ag" #-} rename _lhsIoptions - {-# LINE 701 "DefaultRules.hs" #-} + {-# LINE 703 "DefaultRules.hs" #-} )) of { !_nontsOo_rename -> (case (nonts_ ) of { ( !_nontsIcollect_nts,!T_Nonterminals_1 nonts_1) -> (case (({-# LINE 656 "DefaultRules.ag" #-} aroundsMap_ - {-# LINE 708 "DefaultRules.hs" #-} + {-# LINE 710 "DefaultRules.hs" #-} )) of { !_nontsOaroundsIn -> (case (({-# LINE 649 "DefaultRules.ag" #-} augmentsMap_ - {-# LINE 713 "DefaultRules.hs" #-} + {-# LINE 715 "DefaultRules.hs" #-} )) of { !_nontsOaugmentsIn -> (case (({-# LINE 494 "DefaultRules.ag" #-} 1 - {-# LINE 718 "DefaultRules.hs" #-} + {-# LINE 720 "DefaultRules.hs" #-} )) of { !_nontsOuniq -> (case (({-# LINE 127 "DefaultRules.ag" #-} _nontsIcollect_nts - {-# LINE 723 "DefaultRules.hs" #-} + {-# LINE 725 "DefaultRules.hs" #-} )) of { !_nontsOnonterminals -> (case (nonts_1 _nontsOaroundsIn _nontsOaugmentsIn _nontsOcr _nontsOmanualAttrOrderMap _nontsOmergesIn _nontsOnonterminals _nontsOo_rename _nontsOtypeSyns _nontsOuniq _nontsOuseMap ) of { ( !_nontsIerrors,!_nontsIoutput,!_nontsIuniq) -> (case (({-# LINE 115 "DefaultRules.ag" #-} _nontsIerrors - {-# LINE 730 "DefaultRules.hs" #-} + {-# LINE 732 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 498 "DefaultRules.ag" #-} - Grammar typeSyns_ useMap_ derivings_ wrappers_ _nontsIoutput pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ - {-# LINE 735 "DefaultRules.hs" #-} + Grammar typeSyns_ useMap_ derivings_ wrappers_ _nontsIoutput pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ + {-# LINE 737 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 740 "DefaultRules.hs" #-} + {-# LINE 742 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -810,7 +812,7 @@ sem_Nonterminal_Nonterminal !nt_ !params_ !inh_ !syn_ !(T_Productions prods_ ) = (T_Nonterminal (case (({-# LINE 123 "DefaultRules.ag" #-} Set.singleton nt_ - {-# LINE 814 "DefaultRules.hs" #-} + {-# LINE 816 "DefaultRules.hs" #-} )) of { !_lhsOcollect_nts -> (case ((let sem_Nonterminal_Nonterminal_1 :: T_Nonterminal_1 @@ -827,104 +829,104 @@ (!_lhsIuseMap) -> (case (({-# LINE 55 "DefaultRules.ag" #-} _lhsItypeSyns - {-# LINE 831 "DefaultRules.hs" #-} + {-# LINE 833 "DefaultRules.hs" #-} )) of { !_prodsOtypeSyns -> (case (({-# LINE 43 "DefaultRules.ag" #-} _lhsIo_rename - {-# LINE 836 "DefaultRules.hs" #-} + {-# LINE 838 "DefaultRules.hs" #-} )) of { !_prodsOo_rename -> (case (({-# LINE 665 "DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsImergesIn - {-# LINE 841 "DefaultRules.hs" #-} + {-# LINE 843 "DefaultRules.hs" #-} )) of { !_mergesIn -> (case (({-# LINE 661 "DefaultRules.ag" #-} _mergesIn - {-# LINE 846 "DefaultRules.hs" #-} + {-# LINE 848 "DefaultRules.hs" #-} )) of { !_prodsOmergesIn -> (case (({-# LINE 579 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap - {-# LINE 851 "DefaultRules.hs" #-} + {-# LINE 853 "DefaultRules.hs" #-} )) of { !_prodsOmanualAttrOrderMap -> (case (({-# LINE 44 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 856 "DefaultRules.hs" #-} + {-# LINE 858 "DefaultRules.hs" #-} )) of { !_prodsOcr -> (case (({-# LINE 152 "DefaultRules.ag" #-} nt_ - {-# LINE 861 "DefaultRules.hs" #-} + {-# LINE 863 "DefaultRules.hs" #-} )) of { !_prodsOnt -> (case (({-# LINE 140 "DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIuseMap - {-# LINE 866 "DefaultRules.hs" #-} + {-# LINE 868 "DefaultRules.hs" #-} )) of { !_prodsOuseMap -> (case (({-# LINE 139 "DefaultRules.ag" #-} syn_ - {-# LINE 871 "DefaultRules.hs" #-} + {-# LINE 873 "DefaultRules.hs" #-} )) of { !_prodsOsyn -> (case (({-# LINE 138 "DefaultRules.ag" #-} inh_ - {-# LINE 876 "DefaultRules.hs" #-} + {-# LINE 878 "DefaultRules.hs" #-} )) of { !_prodsOinh -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 881 "DefaultRules.hs" #-} + {-# LINE 883 "DefaultRules.hs" #-} )) of { !_prodsOuniq -> (case (({-# LINE 125 "DefaultRules.ag" #-} _lhsInonterminals - {-# LINE 886 "DefaultRules.hs" #-} + {-# LINE 888 "DefaultRules.hs" #-} )) of { !_prodsOnonterminals -> (case (({-# LINE 650 "DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaugmentsIn - {-# LINE 891 "DefaultRules.hs" #-} + {-# LINE 893 "DefaultRules.hs" #-} )) of { !_augmentsIn -> (case (({-# LINE 647 "DefaultRules.ag" #-} _augmentsIn - {-# LINE 896 "DefaultRules.hs" #-} + {-# LINE 898 "DefaultRules.hs" #-} )) of { !_prodsOaugmentsIn -> (case (({-# LINE 657 "DefaultRules.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaroundsIn - {-# LINE 901 "DefaultRules.hs" #-} + {-# LINE 903 "DefaultRules.hs" #-} )) of { !_aroundsIn -> (case (({-# LINE 654 "DefaultRules.ag" #-} _aroundsIn - {-# LINE 906 "DefaultRules.hs" #-} + {-# LINE 908 "DefaultRules.hs" #-} )) of { !_prodsOaroundsIn -> (case (prods_ _prodsOaroundsIn _prodsOaugmentsIn _prodsOcr _prodsOinh _prodsOmanualAttrOrderMap _prodsOmergesIn _prodsOnonterminals _prodsOnt _prodsOo_rename _prodsOsyn _prodsOtypeSyns _prodsOuniq _prodsOuseMap ) of { ( !_prodsIerrors,!_prodsIoutput,!_prodsIuniq) -> (case (({-# LINE 115 "DefaultRules.ag" #-} _prodsIerrors - {-# LINE 913 "DefaultRules.hs" #-} + {-# LINE 915 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 498 "DefaultRules.ag" #-} Nonterminal nt_ params_ inh_ syn_ _prodsIoutput - {-# LINE 918 "DefaultRules.hs" #-} + {-# LINE 920 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 923 "DefaultRules.hs" #-} + {-# LINE 925 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 491 "DefaultRules.ag" #-} _prodsIuniq - {-# LINE 928 "DefaultRules.hs" #-} + {-# LINE 930 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -999,7 +1001,7 @@ { ( !_hdIcollect_nts,!T_Nonterminal_1 hd_1) -> (case (({-# LINE 121 "DefaultRules.ag" #-} _hdIcollect_nts `Set.union` _tlIcollect_nts - {-# LINE 1003 "DefaultRules.hs" #-} + {-# LINE 1005 "DefaultRules.hs" #-} )) of { !_lhsOcollect_nts -> (case ((let sem_Nonterminals_Cons_1 :: T_Nonterminals_1 @@ -1016,126 +1018,126 @@ (!_lhsIuseMap) -> (case (({-# LINE 134 "DefaultRules.ag" #-} _lhsIuseMap - {-# LINE 1020 "DefaultRules.hs" #-} + {-# LINE 1022 "DefaultRules.hs" #-} )) of { !_tlOuseMap -> (case (({-# LINE 55 "DefaultRules.ag" #-} _lhsItypeSyns - {-# LINE 1025 "DefaultRules.hs" #-} + {-# LINE 1027 "DefaultRules.hs" #-} )) of { !_tlOtypeSyns -> (case (({-# LINE 43 "DefaultRules.ag" #-} _lhsIo_rename - {-# LINE 1030 "DefaultRules.hs" #-} + {-# LINE 1032 "DefaultRules.hs" #-} )) of { !_tlOo_rename -> (case (({-# LINE 660 "DefaultRules.ag" #-} _lhsImergesIn - {-# LINE 1035 "DefaultRules.hs" #-} + {-# LINE 1037 "DefaultRules.hs" #-} )) of { !_tlOmergesIn -> (case (({-# LINE 579 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap - {-# LINE 1040 "DefaultRules.hs" #-} + {-# LINE 1042 "DefaultRules.hs" #-} )) of { !_tlOmanualAttrOrderMap -> (case (({-# LINE 44 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 1045 "DefaultRules.hs" #-} + {-# LINE 1047 "DefaultRules.hs" #-} )) of { !_tlOcr -> (case (({-# LINE 134 "DefaultRules.ag" #-} _lhsIuseMap - {-# LINE 1050 "DefaultRules.hs" #-} + {-# LINE 1052 "DefaultRules.hs" #-} )) of { !_hdOuseMap -> (case (({-# LINE 55 "DefaultRules.ag" #-} _lhsItypeSyns - {-# LINE 1055 "DefaultRules.hs" #-} + {-# LINE 1057 "DefaultRules.hs" #-} )) of { !_hdOtypeSyns -> (case (({-# LINE 43 "DefaultRules.ag" #-} _lhsIo_rename - {-# LINE 1060 "DefaultRules.hs" #-} + {-# LINE 1062 "DefaultRules.hs" #-} )) of { !_hdOo_rename -> (case (({-# LINE 660 "DefaultRules.ag" #-} _lhsImergesIn - {-# LINE 1065 "DefaultRules.hs" #-} + {-# LINE 1067 "DefaultRules.hs" #-} )) of { !_hdOmergesIn -> (case (({-# LINE 579 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap - {-# LINE 1070 "DefaultRules.hs" #-} + {-# LINE 1072 "DefaultRules.hs" #-} )) of { !_hdOmanualAttrOrderMap -> (case (({-# LINE 44 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 1075 "DefaultRules.hs" #-} + {-# LINE 1077 "DefaultRules.hs" #-} )) of { !_hdOcr -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 1080 "DefaultRules.hs" #-} + {-# LINE 1082 "DefaultRules.hs" #-} )) of { !_hdOuniq -> (case (({-# LINE 125 "DefaultRules.ag" #-} _lhsInonterminals - {-# LINE 1085 "DefaultRules.hs" #-} + {-# LINE 1087 "DefaultRules.hs" #-} )) of { !_hdOnonterminals -> (case (({-# LINE 646 "DefaultRules.ag" #-} _lhsIaugmentsIn - {-# LINE 1090 "DefaultRules.hs" #-} + {-# LINE 1092 "DefaultRules.hs" #-} )) of { !_hdOaugmentsIn -> (case (({-# LINE 653 "DefaultRules.ag" #-} _lhsIaroundsIn - {-# LINE 1095 "DefaultRules.hs" #-} + {-# LINE 1097 "DefaultRules.hs" #-} )) of { !_hdOaroundsIn -> (case (hd_1 _hdOaroundsIn _hdOaugmentsIn _hdOcr _hdOmanualAttrOrderMap _hdOmergesIn _hdOnonterminals _hdOo_rename _hdOtypeSyns _hdOuniq _hdOuseMap ) of { ( !_hdIerrors,!_hdIoutput,!_hdIuniq) -> (case (({-# LINE 491 "DefaultRules.ag" #-} _hdIuniq - {-# LINE 1102 "DefaultRules.hs" #-} + {-# LINE 1104 "DefaultRules.hs" #-} )) of { !_tlOuniq -> (case (({-# LINE 125 "DefaultRules.ag" #-} _lhsInonterminals - {-# LINE 1107 "DefaultRules.hs" #-} + {-# LINE 1109 "DefaultRules.hs" #-} )) of { !_tlOnonterminals -> (case (({-# LINE 646 "DefaultRules.ag" #-} _lhsIaugmentsIn - {-# LINE 1112 "DefaultRules.hs" #-} + {-# LINE 1114 "DefaultRules.hs" #-} )) of { !_tlOaugmentsIn -> (case (({-# LINE 653 "DefaultRules.ag" #-} _lhsIaroundsIn - {-# LINE 1117 "DefaultRules.hs" #-} + {-# LINE 1119 "DefaultRules.hs" #-} )) of { !_tlOaroundsIn -> (case (tl_1 _tlOaroundsIn _tlOaugmentsIn _tlOcr _tlOmanualAttrOrderMap _tlOmergesIn _tlOnonterminals _tlOo_rename _tlOtypeSyns _tlOuniq _tlOuseMap ) of { ( !_tlIerrors,!_tlIoutput,!_tlIuniq) -> (case (({-# LINE 115 "DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 1124 "DefaultRules.hs" #-} + {-# LINE 1126 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 498 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 1129 "DefaultRules.hs" #-} + {-# LINE 1131 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1134 "DefaultRules.hs" #-} + {-# LINE 1136 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 491 "DefaultRules.ag" #-} _tlIuniq - {-# LINE 1139 "DefaultRules.hs" #-} + {-# LINE 1141 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1146,7 +1148,7 @@ sem_Nonterminals_Nil = (T_Nonterminals (case (({-# LINE 121 "DefaultRules.ag" #-} Set.empty - {-# LINE 1150 "DefaultRules.hs" #-} + {-# LINE 1152 "DefaultRules.hs" #-} )) of { !_lhsOcollect_nts -> (case ((let sem_Nonterminals_Nil_1 :: T_Nonterminals_1 @@ -1163,22 +1165,22 @@ (!_lhsIuseMap) -> (case (({-# LINE 115 "DefaultRules.ag" #-} Seq.empty - {-# LINE 1167 "DefaultRules.hs" #-} + {-# LINE 1169 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 498 "DefaultRules.ag" #-} [] - {-# LINE 1172 "DefaultRules.hs" #-} + {-# LINE 1174 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1177 "DefaultRules.hs" #-} + {-# LINE 1179 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 1182 "DefaultRules.hs" #-} + {-# LINE 1184 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) })) ) @@ -1265,68 +1267,68 @@ (!_lhsInt) -> (case (({-# LINE 485 "DefaultRules.ag" #-} True - {-# LINE 1269 "DefaultRules.hs" #-} + {-# LINE 1271 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1274 "DefaultRules.hs" #-} + {-# LINE 1276 "DefaultRules.hs" #-} )) of { !_partsOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 1279 "DefaultRules.hs" #-} + {-# LINE 1281 "DefaultRules.hs" #-} )) of { !_partsOcon -> (case (parts_ _partsOcon _partsOnt ) of { ( !_partsIcontainsVars,!_partsIcopy,!_partsIdefinedAttrs,!_partsIerrors,!_partsIlocals,!_partsIoutput) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1286 "DefaultRules.hs" #-} + {-# LINE 1288 "DefaultRules.hs" #-} )) of { !_patOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 1291 "DefaultRules.hs" #-} + {-# LINE 1293 "DefaultRules.hs" #-} )) of { !_patOcon -> (case (pat_ _patOcon _patOnt ) of { ( !_patIcontainsVars,!_patIcopy,!_patIdefinedAttrs,!_patIerrors,!_patIlocals,!_patIoutput) -> (case (({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 1298 "DefaultRules.hs" #-} + {-# LINE 1300 "DefaultRules.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1303 "DefaultRules.hs" #-} + {-# LINE 1305 "DefaultRules.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 467 "DefaultRules.ag" #-} Set.insert (field_,attr_) _patIdefinedAttrs - {-# LINE 1308 "DefaultRules.hs" #-} + {-# LINE 1310 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _patIerrors Seq.>< _partsIerrors - {-# LINE 1313 "DefaultRules.hs" #-} + {-# LINE 1315 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 468 "DefaultRules.ag" #-} if field_ == _LOC then Set.insert attr_ _patIlocals else _patIlocals - {-# LINE 1320 "DefaultRules.hs" #-} + {-# LINE 1322 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} Alias field_ attr_ _patIoutput _partsIoutput - {-# LINE 1325 "DefaultRules.hs" #-} + {-# LINE 1327 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1330 "DefaultRules.hs" #-} + {-# LINE 1332 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1338,54 +1340,54 @@ (!_lhsInt) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1342 "DefaultRules.hs" #-} + {-# LINE 1344 "DefaultRules.hs" #-} )) of { !_patsOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 1347 "DefaultRules.hs" #-} + {-# LINE 1349 "DefaultRules.hs" #-} )) of { !_patsOcon -> (case (pats_ _patsOcon _patsOnt ) of { ( !_patsIcontainsVars,!_patsIcopy,!_patsIdefinedAttrs,!_patsIerrors,!_patsIlocals,!_patsIoutput) -> (case (({-# LINE 482 "DefaultRules.ag" #-} _patsIcontainsVars - {-# LINE 1354 "DefaultRules.hs" #-} + {-# LINE 1356 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 1359 "DefaultRules.hs" #-} + {-# LINE 1361 "DefaultRules.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1364 "DefaultRules.hs" #-} + {-# LINE 1366 "DefaultRules.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 462 "DefaultRules.ag" #-} _patsIdefinedAttrs - {-# LINE 1369 "DefaultRules.hs" #-} + {-# LINE 1371 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _patsIerrors - {-# LINE 1374 "DefaultRules.hs" #-} + {-# LINE 1376 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} _patsIlocals - {-# LINE 1379 "DefaultRules.hs" #-} + {-# LINE 1381 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} Constr name_ _patsIoutput - {-# LINE 1384 "DefaultRules.hs" #-} + {-# LINE 1386 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1389 "DefaultRules.hs" #-} + {-# LINE 1391 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1396,54 +1398,54 @@ (!_lhsInt) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1400 "DefaultRules.hs" #-} + {-# LINE 1402 "DefaultRules.hs" #-} )) of { !_patOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 1405 "DefaultRules.hs" #-} + {-# LINE 1407 "DefaultRules.hs" #-} )) of { !_patOcon -> (case (pat_ _patOcon _patOnt ) of { ( !_patIcontainsVars,!_patIcopy,!_patIdefinedAttrs,!_patIerrors,!_patIlocals,!_patIoutput) -> (case (({-# LINE 482 "DefaultRules.ag" #-} _patIcontainsVars - {-# LINE 1412 "DefaultRules.hs" #-} + {-# LINE 1414 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 1417 "DefaultRules.hs" #-} + {-# LINE 1419 "DefaultRules.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1422 "DefaultRules.hs" #-} + {-# LINE 1424 "DefaultRules.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 462 "DefaultRules.ag" #-} _patIdefinedAttrs - {-# LINE 1427 "DefaultRules.hs" #-} + {-# LINE 1429 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _patIerrors - {-# LINE 1432 "DefaultRules.hs" #-} + {-# LINE 1434 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} _patIlocals - {-# LINE 1437 "DefaultRules.hs" #-} + {-# LINE 1439 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} Irrefutable _patIoutput - {-# LINE 1442 "DefaultRules.hs" #-} + {-# LINE 1444 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1447 "DefaultRules.hs" #-} + {-# LINE 1449 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1455,54 +1457,54 @@ (!_lhsInt) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1459 "DefaultRules.hs" #-} + {-# LINE 1461 "DefaultRules.hs" #-} )) of { !_patsOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 1464 "DefaultRules.hs" #-} + {-# LINE 1466 "DefaultRules.hs" #-} )) of { !_patsOcon -> (case (pats_ _patsOcon _patsOnt ) of { ( !_patsIcontainsVars,!_patsIcopy,!_patsIdefinedAttrs,!_patsIerrors,!_patsIlocals,!_patsIoutput) -> (case (({-# LINE 482 "DefaultRules.ag" #-} _patsIcontainsVars - {-# LINE 1471 "DefaultRules.hs" #-} + {-# LINE 1473 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 1476 "DefaultRules.hs" #-} + {-# LINE 1478 "DefaultRules.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1481 "DefaultRules.hs" #-} + {-# LINE 1483 "DefaultRules.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 462 "DefaultRules.ag" #-} _patsIdefinedAttrs - {-# LINE 1486 "DefaultRules.hs" #-} + {-# LINE 1488 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _patsIerrors - {-# LINE 1491 "DefaultRules.hs" #-} + {-# LINE 1493 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} _patsIlocals - {-# LINE 1496 "DefaultRules.hs" #-} + {-# LINE 1498 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} Product pos_ _patsIoutput - {-# LINE 1501 "DefaultRules.hs" #-} + {-# LINE 1503 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1506 "DefaultRules.hs" #-} + {-# LINE 1508 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1513,42 +1515,42 @@ (!_lhsInt) -> (case (({-# LINE 482 "DefaultRules.ag" #-} False - {-# LINE 1517 "DefaultRules.hs" #-} + {-# LINE 1519 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 1522 "DefaultRules.hs" #-} + {-# LINE 1524 "DefaultRules.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1527 "DefaultRules.hs" #-} + {-# LINE 1529 "DefaultRules.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 462 "DefaultRules.ag" #-} Set.empty - {-# LINE 1532 "DefaultRules.hs" #-} + {-# LINE 1534 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} Seq.empty - {-# LINE 1537 "DefaultRules.hs" #-} + {-# LINE 1539 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} Set.empty - {-# LINE 1542 "DefaultRules.hs" #-} + {-# LINE 1544 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} Underscore pos_ - {-# LINE 1547 "DefaultRules.hs" #-} + {-# LINE 1549 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1552 "DefaultRules.hs" #-} + {-# LINE 1554 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) })) ) @@ -1602,66 +1604,66 @@ (!_lhsInt) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1606 "DefaultRules.hs" #-} + {-# LINE 1608 "DefaultRules.hs" #-} )) of { !_tlOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 1611 "DefaultRules.hs" #-} + {-# LINE 1613 "DefaultRules.hs" #-} )) of { !_tlOcon -> (case (tl_ _tlOcon _tlOnt ) of { ( !_tlIcontainsVars,!_tlIcopy,!_tlIdefinedAttrs,!_tlIerrors,!_tlIlocals,!_tlIoutput) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1618 "DefaultRules.hs" #-} + {-# LINE 1620 "DefaultRules.hs" #-} )) of { !_hdOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 1623 "DefaultRules.hs" #-} + {-# LINE 1625 "DefaultRules.hs" #-} )) of { !_hdOcon -> (case (hd_ _hdOcon _hdOnt ) of { ( !_hdIcontainsVars,!_hdIcopy,!_hdIdefinedAttrs,!_hdIerrors,!_hdIlocals,!_hdIoutput) -> (case (({-# LINE 482 "DefaultRules.ag" #-} _hdIcontainsVars || _tlIcontainsVars - {-# LINE 1630 "DefaultRules.hs" #-} + {-# LINE 1632 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 1635 "DefaultRules.hs" #-} + {-# LINE 1637 "DefaultRules.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1640 "DefaultRules.hs" #-} + {-# LINE 1642 "DefaultRules.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 462 "DefaultRules.ag" #-} _hdIdefinedAttrs `Set.union` _tlIdefinedAttrs - {-# LINE 1645 "DefaultRules.hs" #-} + {-# LINE 1647 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 1650 "DefaultRules.hs" #-} + {-# LINE 1652 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} _hdIlocals `Set.union` _tlIlocals - {-# LINE 1655 "DefaultRules.hs" #-} + {-# LINE 1657 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 1660 "DefaultRules.hs" #-} + {-# LINE 1662 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1665 "DefaultRules.hs" #-} + {-# LINE 1667 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1671,42 +1673,42 @@ (!_lhsInt) -> (case (({-# LINE 482 "DefaultRules.ag" #-} False - {-# LINE 1675 "DefaultRules.hs" #-} + {-# LINE 1677 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 1680 "DefaultRules.hs" #-} + {-# LINE 1682 "DefaultRules.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1685 "DefaultRules.hs" #-} + {-# LINE 1687 "DefaultRules.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 462 "DefaultRules.ag" #-} Set.empty - {-# LINE 1690 "DefaultRules.hs" #-} + {-# LINE 1692 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} Seq.empty - {-# LINE 1695 "DefaultRules.hs" #-} + {-# LINE 1697 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} Set.empty - {-# LINE 1700 "DefaultRules.hs" #-} + {-# LINE 1702 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} [] - {-# LINE 1705 "DefaultRules.hs" #-} + {-# LINE 1707 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 1710 "DefaultRules.hs" #-} + {-# LINE 1712 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOcontainsVars,_lhsOcopy,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput) }) }) }) }) }) }) }) })) ) @@ -1800,54 +1802,54 @@ (!_lhsIuseMap) -> (case (({-# LINE 666 "DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsImergesIn - {-# LINE 1804 "DefaultRules.hs" #-} + {-# LINE 1806 "DefaultRules.hs" #-} )) of { !_mergesIn -> (case (({-# LINE 667 "DefaultRules.ag" #-} Set.fromList [ c | (_,cs,_) <- Map.elems _mergesIn , c <- cs ] - {-# LINE 1809 "DefaultRules.hs" #-} + {-# LINE 1811 "DefaultRules.hs" #-} )) of { !_merged -> (case (({-# LINE 662 "DefaultRules.ag" #-} _merged - {-# LINE 1814 "DefaultRules.hs" #-} + {-# LINE 1816 "DefaultRules.hs" #-} )) of { !_childrenOmerged -> (case (({-# LINE 593 "DefaultRules.ag" #-} Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrOrderMap - {-# LINE 1819 "DefaultRules.hs" #-} + {-# LINE 1821 "DefaultRules.hs" #-} )) of { !_orderDeps -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 1824 "DefaultRules.hs" #-} + {-# LINE 1826 "DefaultRules.hs" #-} )) of { !_rulesOuniq -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1829 "DefaultRules.hs" #-} + {-# LINE 1831 "DefaultRules.hs" #-} )) of { !_rulesOnt -> (case (({-# LINE 143 "DefaultRules.ag" #-} con_ - {-# LINE 1834 "DefaultRules.hs" #-} + {-# LINE 1836 "DefaultRules.hs" #-} )) of { !_rulesOcon -> (case (rules_ _rulesOcon _rulesOnt _rulesOuniq ) of { ( !_rulesIdefinedAttrs,!_rulesIerrors,!_rulesIlocals,!_rulesIoutput,!_rulesIruleNames,!_rulesIuniq) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 1841 "DefaultRules.hs" #-} + {-# LINE 1843 "DefaultRules.hs" #-} )) of { !_childrenOnt -> (case (({-# LINE 47 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 1846 "DefaultRules.hs" #-} + {-# LINE 1848 "DefaultRules.hs" #-} )) of { !_childrenOcr -> (case (({-# LINE 144 "DefaultRules.ag" #-} con_ - {-# LINE 1851 "DefaultRules.hs" #-} + {-# LINE 1853 "DefaultRules.hs" #-} )) of { !_childrenOcon -> (case (children_ _childrenOcon _childrenOcr _childrenOmerged _childrenOnt ) of @@ -1888,7 +1890,7 @@ [ checkIn occA ++ checkOut occB | (Dependency occA occB) <- _orderDeps ] - {-# LINE 1892 "DefaultRules.hs" #-} + {-# LINE 1894 "DefaultRules.hs" #-} )) of { !_orderErrs -> (case (({-# LINE 332 "DefaultRules.ag" #-} @@ -1948,59 +1950,59 @@ locals (lhs_env, (_LHS, others)) in (uRules++selfLocRules++selfRules++rules5++rules1, errors1> (case (({-# LINE 332 "DefaultRules.ag" #-} __tup1 - {-# LINE 1957 "DefaultRules.hs" #-} + {-# LINE 1959 "DefaultRules.hs" #-} )) of { !(_,!_errs) -> (case (({-# LINE 330 "DefaultRules.ag" #-} _childrenIerrors >< _errs >< _rulesIerrors >< _orderErrs - {-# LINE 1962 "DefaultRules.hs" #-} + {-# LINE 1964 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 658 "DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaroundsIn - {-# LINE 1967 "DefaultRules.hs" #-} + {-# LINE 1969 "DefaultRules.hs" #-} )) of { !_aroundsIn -> (case (({-# LINE 651 "DefaultRules.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaugmentsIn - {-# LINE 1972 "DefaultRules.hs" #-} + {-# LINE 1974 "DefaultRules.hs" #-} )) of { !_augmentsIn -> (case (({-# LINE 332 "DefaultRules.ag" #-} __tup1 - {-# LINE 1977 "DefaultRules.hs" #-} + {-# LINE 1979 "DefaultRules.hs" #-} )) of { !(!_newRls,_) -> (case (({-# LINE 505 "DefaultRules.ag" #-} foldr addAugments (_rulesIoutput ++ _newRls) (Map.assocs _augmentsIn ) - {-# LINE 1982 "DefaultRules.hs" #-} + {-# LINE 1984 "DefaultRules.hs" #-} )) of { !_extra1 -> (case (({-# LINE 506 "DefaultRules.ag" #-} foldr addArounds _extra1 (Map.assocs _aroundsIn ) - {-# LINE 1987 "DefaultRules.hs" #-} + {-# LINE 1989 "DefaultRules.hs" #-} )) of { !_extra2 -> (case (({-# LINE 507 "DefaultRules.ag" #-} foldr addMerges _extra2 (Map.assocs _mergesIn ) - {-# LINE 1992 "DefaultRules.hs" #-} + {-# LINE 1994 "DefaultRules.hs" #-} )) of { !_extra3 -> (case (typeSigs_ ) of { ( !_typeSigsIoutput) -> (case (({-# LINE 508 "DefaultRules.ag" #-} Production con_ _childrenIoutput _extra3 _typeSigsIoutput - {-# LINE 1999 "DefaultRules.hs" #-} + {-# LINE 2001 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 491 "DefaultRules.ag" #-} _rulesIuniq - {-# LINE 2004 "DefaultRules.hs" #-} + {-# LINE 2006 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2082,156 +2084,156 @@ (!_lhsIuseMap) -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIuseMap - {-# LINE 2086 "DefaultRules.hs" #-} + {-# LINE 2088 "DefaultRules.hs" #-} )) of { !_tlOuseMap -> (case (({-# LINE 55 "DefaultRules.ag" #-} _lhsItypeSyns - {-# LINE 2091 "DefaultRules.hs" #-} + {-# LINE 2093 "DefaultRules.hs" #-} )) of { !_tlOtypeSyns -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIsyn - {-# LINE 2096 "DefaultRules.hs" #-} + {-# LINE 2098 "DefaultRules.hs" #-} )) of { !_tlOsyn -> (case (({-# LINE 43 "DefaultRules.ag" #-} _lhsIo_rename - {-# LINE 2101 "DefaultRules.hs" #-} + {-# LINE 2103 "DefaultRules.hs" #-} )) of { !_tlOo_rename -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2106 "DefaultRules.hs" #-} + {-# LINE 2108 "DefaultRules.hs" #-} )) of { !_tlOnt -> (case (({-# LINE 661 "DefaultRules.ag" #-} _lhsImergesIn - {-# LINE 2111 "DefaultRules.hs" #-} + {-# LINE 2113 "DefaultRules.hs" #-} )) of { !_tlOmergesIn -> (case (({-# LINE 579 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap - {-# LINE 2116 "DefaultRules.hs" #-} + {-# LINE 2118 "DefaultRules.hs" #-} )) of { !_tlOmanualAttrOrderMap -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIinh - {-# LINE 2121 "DefaultRules.hs" #-} + {-# LINE 2123 "DefaultRules.hs" #-} )) of { !_tlOinh -> (case (({-# LINE 44 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 2126 "DefaultRules.hs" #-} + {-# LINE 2128 "DefaultRules.hs" #-} )) of { !_tlOcr -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIuseMap - {-# LINE 2131 "DefaultRules.hs" #-} + {-# LINE 2133 "DefaultRules.hs" #-} )) of { !_hdOuseMap -> (case (({-# LINE 55 "DefaultRules.ag" #-} _lhsItypeSyns - {-# LINE 2136 "DefaultRules.hs" #-} + {-# LINE 2138 "DefaultRules.hs" #-} )) of { !_hdOtypeSyns -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIsyn - {-# LINE 2141 "DefaultRules.hs" #-} + {-# LINE 2143 "DefaultRules.hs" #-} )) of { !_hdOsyn -> (case (({-# LINE 43 "DefaultRules.ag" #-} _lhsIo_rename - {-# LINE 2146 "DefaultRules.hs" #-} + {-# LINE 2148 "DefaultRules.hs" #-} )) of { !_hdOo_rename -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2151 "DefaultRules.hs" #-} + {-# LINE 2153 "DefaultRules.hs" #-} )) of { !_hdOnt -> (case (({-# LINE 661 "DefaultRules.ag" #-} _lhsImergesIn - {-# LINE 2156 "DefaultRules.hs" #-} + {-# LINE 2158 "DefaultRules.hs" #-} )) of { !_hdOmergesIn -> (case (({-# LINE 579 "DefaultRules.ag" #-} _lhsImanualAttrOrderMap - {-# LINE 2161 "DefaultRules.hs" #-} + {-# LINE 2163 "DefaultRules.hs" #-} )) of { !_hdOmanualAttrOrderMap -> (case (({-# LINE 135 "DefaultRules.ag" #-} _lhsIinh - {-# LINE 2166 "DefaultRules.hs" #-} + {-# LINE 2168 "DefaultRules.hs" #-} )) of { !_hdOinh -> (case (({-# LINE 44 "DefaultRules.ag" #-} _lhsIcr - {-# LINE 2171 "DefaultRules.hs" #-} + {-# LINE 2173 "DefaultRules.hs" #-} )) of { !_hdOcr -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 2176 "DefaultRules.hs" #-} + {-# LINE 2178 "DefaultRules.hs" #-} )) of { !_hdOuniq -> (case (({-# LINE 125 "DefaultRules.ag" #-} _lhsInonterminals - {-# LINE 2181 "DefaultRules.hs" #-} + {-# LINE 2183 "DefaultRules.hs" #-} )) of { !_hdOnonterminals -> (case (({-# LINE 647 "DefaultRules.ag" #-} _lhsIaugmentsIn - {-# LINE 2186 "DefaultRules.hs" #-} + {-# LINE 2188 "DefaultRules.hs" #-} )) of { !_hdOaugmentsIn -> (case (({-# LINE 654 "DefaultRules.ag" #-} _lhsIaroundsIn - {-# LINE 2191 "DefaultRules.hs" #-} + {-# LINE 2193 "DefaultRules.hs" #-} )) of { !_hdOaroundsIn -> (case (hd_ _hdOaroundsIn _hdOaugmentsIn _hdOcr _hdOinh _hdOmanualAttrOrderMap _hdOmergesIn _hdOnonterminals _hdOnt _hdOo_rename _hdOsyn _hdOtypeSyns _hdOuniq _hdOuseMap ) of { ( !_hdIerrors,!_hdIoutput,!_hdIuniq) -> (case (({-# LINE 491 "DefaultRules.ag" #-} _hdIuniq - {-# LINE 2198 "DefaultRules.hs" #-} + {-# LINE 2200 "DefaultRules.hs" #-} )) of { !_tlOuniq -> (case (({-# LINE 125 "DefaultRules.ag" #-} _lhsInonterminals - {-# LINE 2203 "DefaultRules.hs" #-} + {-# LINE 2205 "DefaultRules.hs" #-} )) of { !_tlOnonterminals -> (case (({-# LINE 647 "DefaultRules.ag" #-} _lhsIaugmentsIn - {-# LINE 2208 "DefaultRules.hs" #-} + {-# LINE 2210 "DefaultRules.hs" #-} )) of { !_tlOaugmentsIn -> (case (({-# LINE 654 "DefaultRules.ag" #-} _lhsIaroundsIn - {-# LINE 2213 "DefaultRules.hs" #-} + {-# LINE 2215 "DefaultRules.hs" #-} )) of { !_tlOaroundsIn -> (case (tl_ _tlOaroundsIn _tlOaugmentsIn _tlOcr _tlOinh _tlOmanualAttrOrderMap _tlOmergesIn _tlOnonterminals _tlOnt _tlOo_rename _tlOsyn _tlOtypeSyns _tlOuniq _tlOuseMap ) of { ( !_tlIerrors,!_tlIoutput,!_tlIuniq) -> (case (({-# LINE 115 "DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 2220 "DefaultRules.hs" #-} + {-# LINE 2222 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 498 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 2225 "DefaultRules.hs" #-} + {-# LINE 2227 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 2230 "DefaultRules.hs" #-} + {-# LINE 2232 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 491 "DefaultRules.ag" #-} _tlIuniq - {-# LINE 2235 "DefaultRules.hs" #-} + {-# LINE 2237 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2252,22 +2254,22 @@ (!_lhsIuseMap) -> (case (({-# LINE 115 "DefaultRules.ag" #-} Seq.empty - {-# LINE 2256 "DefaultRules.hs" #-} + {-# LINE 2258 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 498 "DefaultRules.ag" #-} [] - {-# LINE 2261 "DefaultRules.hs" #-} + {-# LINE 2263 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 2266 "DefaultRules.hs" #-} + {-# LINE 2268 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 2271 "DefaultRules.hs" #-} + {-# LINE 2273 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOerrors,_lhsOoutput,_lhsOuniq) }) }) }) })) ) @@ -2330,66 +2332,66 @@ (!_lhsIuniq) -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2334 "DefaultRules.hs" #-} + {-# LINE 2336 "DefaultRules.hs" #-} )) of { !_patternOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 2339 "DefaultRules.hs" #-} + {-# LINE 2341 "DefaultRules.hs" #-} )) of { !_patternOcon -> (case (pattern_ _patternOcon _patternOnt ) of { ( !_patternIcontainsVars,!_patternIcopy,!_patternIdefinedAttrs,!_patternIerrors,!_patternIlocals,!_patternIoutput) -> (case (({-# LINE 482 "DefaultRules.ag" #-} _patternIcontainsVars - {-# LINE 2346 "DefaultRules.hs" #-} + {-# LINE 2348 "DefaultRules.hs" #-} )) of { !_lhsOcontainsVars -> (case (({-# LINE 462 "DefaultRules.ag" #-} _patternIdefinedAttrs - {-# LINE 2351 "DefaultRules.hs" #-} + {-# LINE 2353 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _patternIerrors - {-# LINE 2356 "DefaultRules.hs" #-} + {-# LINE 2358 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} _patternIlocals - {-# LINE 2361 "DefaultRules.hs" #-} + {-# LINE 2363 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} Rule mbName_ _patternIoutput rhs_ owrt_ origin_ explicit_ - {-# LINE 2366 "DefaultRules.hs" #-} + {-# LINE 2368 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 2371 "DefaultRules.hs" #-} + {-# LINE 2373 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 515 "DefaultRules.ag" #-} multiRule _output _lhsIuniq - {-# LINE 2376 "DefaultRules.hs" #-} + {-# LINE 2378 "DefaultRules.hs" #-} )) of { !__tup2 -> (case (({-# LINE 515 "DefaultRules.ag" #-} __tup2 - {-# LINE 2381 "DefaultRules.hs" #-} + {-# LINE 2383 "DefaultRules.hs" #-} )) of { !(!_lhsOoutputs,_) -> (case (({-# LINE 587 "DefaultRules.ag" #-} case mbName_ of Nothing -> Set.empty Just nm -> Set.singleton nm - {-# LINE 2388 "DefaultRules.hs" #-} + {-# LINE 2390 "DefaultRules.hs" #-} )) of { !_lhsOruleNames -> (case (({-# LINE 515 "DefaultRules.ag" #-} __tup2 - {-# LINE 2393 "DefaultRules.hs" #-} + {-# LINE 2395 "DefaultRules.hs" #-} )) of { !(_,!_lhsOuniq) -> ( _lhsOcontainsVars,_lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOoutputs,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2442,66 +2444,66 @@ (!_lhsIuniq) -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 2446 "DefaultRules.hs" #-} + {-# LINE 2448 "DefaultRules.hs" #-} )) of { !_hdOuniq -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2451 "DefaultRules.hs" #-} + {-# LINE 2453 "DefaultRules.hs" #-} )) of { !_hdOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 2456 "DefaultRules.hs" #-} + {-# LINE 2458 "DefaultRules.hs" #-} )) of { !_hdOcon -> (case (hd_ _hdOcon _hdOnt _hdOuniq ) of { ( !_hdIcontainsVars,!_hdIdefinedAttrs,!_hdIerrors,!_hdIlocals,!_hdIoutput,!_hdIoutputs,!_hdIruleNames,!_hdIuniq) -> (case (({-# LINE 491 "DefaultRules.ag" #-} _hdIuniq - {-# LINE 2463 "DefaultRules.hs" #-} + {-# LINE 2465 "DefaultRules.hs" #-} )) of { !_tlOuniq -> (case (({-# LINE 34 "DefaultRules.ag" #-} _lhsInt - {-# LINE 2468 "DefaultRules.hs" #-} + {-# LINE 2470 "DefaultRules.hs" #-} )) of { !_tlOnt -> (case (({-# LINE 35 "DefaultRules.ag" #-} _lhsIcon - {-# LINE 2473 "DefaultRules.hs" #-} + {-# LINE 2475 "DefaultRules.hs" #-} )) of { !_tlOcon -> (case (tl_ _tlOcon _tlOnt _tlOuniq ) of { ( !_tlIdefinedAttrs,!_tlIerrors,!_tlIlocals,!_tlIoutput,!_tlIruleNames,!_tlIuniq) -> (case (({-# LINE 462 "DefaultRules.ag" #-} _hdIdefinedAttrs `Set.union` _tlIdefinedAttrs - {-# LINE 2480 "DefaultRules.hs" #-} + {-# LINE 2482 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 2485 "DefaultRules.hs" #-} + {-# LINE 2487 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} _hdIlocals `Set.union` _tlIlocals - {-# LINE 2490 "DefaultRules.hs" #-} + {-# LINE 2492 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 511 "DefaultRules.ag" #-} if _hdIcontainsVars then _hdIoutputs ++ _tlIoutput else _tlIoutput - {-# LINE 2495 "DefaultRules.hs" #-} + {-# LINE 2497 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 585 "DefaultRules.ag" #-} _hdIruleNames `Set.union` _tlIruleNames - {-# LINE 2500 "DefaultRules.hs" #-} + {-# LINE 2502 "DefaultRules.hs" #-} )) of { !_lhsOruleNames -> (case (({-# LINE 491 "DefaultRules.ag" #-} _tlIuniq - {-# LINE 2505 "DefaultRules.hs" #-} + {-# LINE 2507 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2512,37 +2514,37 @@ (!_lhsIuniq) -> (case (({-# LINE 462 "DefaultRules.ag" #-} Set.empty - {-# LINE 2516 "DefaultRules.hs" #-} + {-# LINE 2518 "DefaultRules.hs" #-} )) of { !_lhsOdefinedAttrs -> (case (({-# LINE 115 "DefaultRules.ag" #-} Seq.empty - {-# LINE 2521 "DefaultRules.hs" #-} + {-# LINE 2523 "DefaultRules.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 461 "DefaultRules.ag" #-} Set.empty - {-# LINE 2526 "DefaultRules.hs" #-} + {-# LINE 2528 "DefaultRules.hs" #-} )) of { !_lhsOlocals -> (case (({-# LINE 498 "DefaultRules.ag" #-} [] - {-# LINE 2531 "DefaultRules.hs" #-} + {-# LINE 2533 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 2536 "DefaultRules.hs" #-} + {-# LINE 2538 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> (case (({-# LINE 585 "DefaultRules.ag" #-} Set.empty - {-# LINE 2541 "DefaultRules.hs" #-} + {-# LINE 2543 "DefaultRules.hs" #-} )) of { !_lhsOruleNames -> (case (({-# LINE 491 "DefaultRules.ag" #-} _lhsIuniq - {-# LINE 2546 "DefaultRules.hs" #-} + {-# LINE 2548 "DefaultRules.hs" #-} )) of { !_lhsOuniq -> ( _lhsOdefinedAttrs,_lhsOerrors,_lhsOlocals,_lhsOoutput,_lhsOruleNames,_lhsOuniq) }) }) }) }) }) }) })) ) @@ -2579,12 +2581,12 @@ sem_TypeSig_TypeSig !name_ !tp_ = (T_TypeSig (case (({-# LINE 498 "DefaultRules.ag" #-} TypeSig name_ tp_ - {-# LINE 2583 "DefaultRules.hs" #-} + {-# LINE 2585 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 2588 "DefaultRules.hs" #-} + {-# LINE 2590 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOoutput) }) }) ) @@ -2628,12 +2630,12 @@ { ( !_hdIoutput) -> (case (({-# LINE 498 "DefaultRules.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 2632 "DefaultRules.hs" #-} + {-# LINE 2634 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 2637 "DefaultRules.hs" #-} + {-# LINE 2639 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOoutput) }) }) }) }) ) @@ -2641,12 +2643,12 @@ sem_TypeSigs_Nil = (T_TypeSigs (case (({-# LINE 498 "DefaultRules.ag" #-} [] - {-# LINE 2645 "DefaultRules.hs" #-} + {-# LINE 2647 "DefaultRules.hs" #-} )) of { !_output -> (case (({-# LINE 498 "DefaultRules.ag" #-} _output - {-# LINE 2650 "DefaultRules.hs" #-} + {-# LINE 2652 "DefaultRules.hs" #-} )) of { !_lhsOoutput -> ( _lhsOoutput) }) }) ) diff --git a/src-derived/Desugar.hs b/src-derived/Desugar.hs --- a/src-derived/Desugar.hs +++ b/src-derived/Desugar.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.37.1 (Desugar.ag) +-- UUAGC 0.9.38.1 (Desugar.ag) module Desugar where {-# LINE 13 "Desugar.ag" #-} @@ -349,6 +349,7 @@ child manualAttrOrderMap : {AttrOrderMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child uniqueMap : {UniqueMap} child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} @@ -357,8 +358,8 @@ -- cata sem_Grammar :: Grammar -> T_Grammar -sem_Grammar !(Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = - (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) +sem_Grammar !(Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = + (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) -- semantic domain newtype T_Grammar = T_Grammar (AttrMap -> Options -> @@ -380,39 +381,40 @@ AttrOrderMap -> ParamMap -> ContextMap -> + QuantMap -> UniqueMap -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) -> T_Grammar -sem_Grammar_Grammar !typeSyns_ !useMap_ !derivings_ !wrappers_ !(T_Nonterminals nonts_ ) !pragmas_ !manualAttrOrderMap_ !paramMap_ !contextMap_ !uniqueMap_ !augmentsMap_ !aroundsMap_ !mergeMap_ = +sem_Grammar_Grammar !typeSyns_ !useMap_ !derivings_ !wrappers_ !(T_Nonterminals nonts_ ) !pragmas_ !manualAttrOrderMap_ !paramMap_ !contextMap_ !quantMap_ !uniqueMap_ !augmentsMap_ !aroundsMap_ !mergeMap_ = (T_Grammar (\ (!_lhsIforcedIrrefutables) (!_lhsIoptions) -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 394 "Desugar.hs" #-} + {-# LINE 396 "Desugar.hs" #-} )) of { !_nontsOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 399 "Desugar.hs" #-} + {-# LINE 401 "Desugar.hs" #-} )) of { !_nontsOforcedIrrefutables -> (case (({-# LINE 234 "Desugar.ag" #-} augmentsMap_ - {-# LINE 404 "Desugar.hs" #-} + {-# LINE 406 "Desugar.hs" #-} )) of { !_nontsOaugmentsIn -> (case (nonts_ _nontsOaugmentsIn _nontsOforcedIrrefutables _nontsOoptions ) of { ( !_nontsIallAttributes,!_nontsIaugmentsOut,!_nontsIerrors,!_nontsIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _nontsIallAttributes - {-# LINE 411 "Desugar.hs" #-} + {-# LINE 413 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 37 "Desugar.ag" #-} _nontsIerrors - {-# LINE 416 "Desugar.hs" #-} + {-# LINE 418 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 290 "Desugar.ag" #-} @@ -425,11 +427,12 @@ manualAttrOrderMap_ paramMap_ contextMap_ + quantMap_ uniqueMap_ _nontsIaugmentsOut aroundsMap_ mergeMap_ - {-# LINE 433 "Desugar.hs" #-} + {-# LINE 436 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) })) ) @@ -532,34 +535,34 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 78 "Desugar.ag" #-} findField field_ attr_ _lhsIchildSyns - {-# LINE 536 "Desugar.hs" #-} + {-# LINE 539 "Desugar.hs" #-} )) of { !_mField -> (case (({-# LINE 80 "Desugar.ag" #-} maybe field_ id _mField - {-# LINE 541 "Desugar.hs" #-} + {-# LINE 544 "Desugar.hs" #-} )) of { !_field' -> (case (({-# LINE 83 "Desugar.ag" #-} if _lhsIuseFieldIdent || length (getName field_) < length (getName _field' ) then _lhsIaddLines + 1 else _lhsIaddLines - {-# LINE 548 "Desugar.hs" #-} + {-# LINE 551 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 81 "Desugar.ag" #-} maybe (Seq.singleton (UndefAttr _lhsInt _lhsIcon field_ (Ident "" (getPos field_)) False)) (const Seq.empty) _mField - {-# LINE 553 "Desugar.hs" #-} + {-# LINE 556 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 87 "Desugar.ag" #-} AGField _field' attr_ (addl _lhsIaddLines pos_) (if _lhsIuseFieldIdent then Just _lhsIruleDescr else Nothing) - {-# LINE 558 "Desugar.hs" #-} + {-# LINE 561 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 563 "Desugar.hs" #-} + {-# LINE 566 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }) })) ) @@ -579,22 +582,22 @@ if _lhsIuseFieldIdent then _lhsIaddLines + 1 else _lhsIaddLines - {-# LINE 583 "Desugar.hs" #-} + {-# LINE 586 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 588 "Desugar.hs" #-} + {-# LINE 591 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 76 "Desugar.ag" #-} AGLocal var_ (addl _lhsIaddLines pos_) (if _lhsIuseFieldIdent then Just _lhsIruleDescr else Nothing) - {-# LINE 593 "Desugar.hs" #-} + {-# LINE 596 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 598 "Desugar.hs" #-} + {-# LINE 601 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })) ) @@ -611,22 +614,22 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 63 "Desugar.ag" #-} _lhsIaddLines - {-# LINE 615 "Desugar.hs" #-} + {-# LINE 618 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 620 "Desugar.hs" #-} + {-# LINE 623 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 91 "Desugar.ag" #-} CharToken value_ (addl _lhsIaddLines pos_) - {-# LINE 625 "Desugar.hs" #-} + {-# LINE 628 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 630 "Desugar.hs" #-} + {-# LINE 633 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })) ) @@ -643,22 +646,22 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 63 "Desugar.ag" #-} _lhsIaddLines - {-# LINE 647 "Desugar.hs" #-} + {-# LINE 650 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 652 "Desugar.hs" #-} + {-# LINE 655 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 95 "Desugar.ag" #-} Err mesg_ (addl _lhsIaddLines pos_) - {-# LINE 657 "Desugar.hs" #-} + {-# LINE 660 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 662 "Desugar.hs" #-} + {-# LINE 665 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })) ) @@ -675,22 +678,22 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 63 "Desugar.ag" #-} _lhsIaddLines - {-# LINE 679 "Desugar.hs" #-} + {-# LINE 682 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 684 "Desugar.hs" #-} + {-# LINE 687 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 89 "Desugar.ag" #-} HsToken value_ (addl _lhsIaddLines pos_) - {-# LINE 689 "Desugar.hs" #-} + {-# LINE 692 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 694 "Desugar.hs" #-} + {-# LINE 697 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })) ) @@ -707,22 +710,22 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 63 "Desugar.ag" #-} _lhsIaddLines - {-# LINE 711 "Desugar.hs" #-} + {-# LINE 714 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 716 "Desugar.hs" #-} + {-# LINE 719 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 93 "Desugar.ag" #-} StrToken value_ (addl _lhsIaddLines pos_) - {-# LINE 721 "Desugar.hs" #-} + {-# LINE 724 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 726 "Desugar.hs" #-} + {-# LINE 729 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })) ) @@ -786,96 +789,96 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 61 "Desugar.ag" #-} _lhsIuseFieldIdent - {-# LINE 790 "Desugar.hs" #-} + {-# LINE 793 "Desugar.hs" #-} )) of { !_tlOuseFieldIdent -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 795 "Desugar.hs" #-} + {-# LINE 798 "Desugar.hs" #-} )) of { !_tlOchildSyns -> (case (({-# LINE 61 "Desugar.ag" #-} _lhsIuseFieldIdent - {-# LINE 800 "Desugar.hs" #-} + {-# LINE 803 "Desugar.hs" #-} )) of { !_hdOuseFieldIdent -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 805 "Desugar.hs" #-} + {-# LINE 808 "Desugar.hs" #-} )) of { !_hdOchildSyns -> (case (({-# LINE 63 "Desugar.ag" #-} _lhsIaddLines - {-# LINE 810 "Desugar.hs" #-} + {-# LINE 813 "Desugar.hs" #-} )) of { !_hdOaddLines -> (case (({-# LINE 167 "Desugar.ag" #-} _lhsIruleDescr - {-# LINE 815 "Desugar.hs" #-} + {-# LINE 818 "Desugar.hs" #-} )) of { !_hdOruleDescr -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 820 "Desugar.hs" #-} + {-# LINE 823 "Desugar.hs" #-} )) of { !_hdOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 825 "Desugar.hs" #-} + {-# LINE 828 "Desugar.hs" #-} )) of { !_hdOcon -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 830 "Desugar.hs" #-} + {-# LINE 833 "Desugar.hs" #-} )) of { !_hdOchildInhs -> (case (hd_ _hdOaddLines _hdOchildInhs _hdOchildSyns _hdOcon _hdOnt _hdOruleDescr _hdOuseFieldIdent ) of { ( !_hdIaddLines,!_hdIerrors,!_hdItks) -> (case (({-# LINE 63 "Desugar.ag" #-} _hdIaddLines - {-# LINE 837 "Desugar.hs" #-} + {-# LINE 840 "Desugar.hs" #-} )) of { !_tlOaddLines -> (case (({-# LINE 167 "Desugar.ag" #-} _lhsIruleDescr - {-# LINE 842 "Desugar.hs" #-} + {-# LINE 845 "Desugar.hs" #-} )) of { !_tlOruleDescr -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 847 "Desugar.hs" #-} + {-# LINE 850 "Desugar.hs" #-} )) of { !_tlOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 852 "Desugar.hs" #-} + {-# LINE 855 "Desugar.hs" #-} )) of { !_tlOcon -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 857 "Desugar.hs" #-} + {-# LINE 860 "Desugar.hs" #-} )) of { !_tlOchildInhs -> (case (tl_ _tlOaddLines _tlOchildInhs _tlOchildSyns _tlOcon _tlOnt _tlOruleDescr _tlOuseFieldIdent ) of { ( !_tlIaddLines,!_tlIerrors,!_tlItks) -> (case (({-# LINE 63 "Desugar.ag" #-} _tlIaddLines - {-# LINE 864 "Desugar.hs" #-} + {-# LINE 867 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 37 "Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 869 "Desugar.hs" #-} + {-# LINE 872 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 69 "Desugar.ag" #-} (:) _hdItks _tlItks - {-# LINE 874 "Desugar.hs" #-} + {-# LINE 877 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 879 "Desugar.hs" #-} + {-# LINE 882 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -890,22 +893,22 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 63 "Desugar.ag" #-} _lhsIaddLines - {-# LINE 894 "Desugar.hs" #-} + {-# LINE 897 "Desugar.hs" #-} )) of { !_lhsOaddLines -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 899 "Desugar.hs" #-} + {-# LINE 902 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 69 "Desugar.ag" #-} [] - {-# LINE 904 "Desugar.hs" #-} + {-# LINE 907 "Desugar.hs" #-} )) of { !_tks -> (case (({-# LINE 69 "Desugar.ag" #-} _tks - {-# LINE 909 "Desugar.hs" #-} + {-# LINE 912 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOaddLines,_lhsOerrors,_lhsOtks) }) }) }) })) ) @@ -958,49 +961,49 @@ (!_lhsIuseFieldIdent) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 962 "Desugar.hs" #-} + {-# LINE 965 "Desugar.hs" #-} )) of { !_tokensOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 967 "Desugar.hs" #-} + {-# LINE 970 "Desugar.hs" #-} )) of { !_tokensOcon -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 972 "Desugar.hs" #-} + {-# LINE 975 "Desugar.hs" #-} )) of { !_tokensOchildSyns -> (case (({-# LINE 61 "Desugar.ag" #-} _lhsIuseFieldIdent - {-# LINE 977 "Desugar.hs" #-} + {-# LINE 980 "Desugar.hs" #-} )) of { !_tokensOuseFieldIdent -> (case (({-# LINE 167 "Desugar.ag" #-} _lhsIruleDescr - {-# LINE 982 "Desugar.hs" #-} + {-# LINE 985 "Desugar.hs" #-} )) of { !_tokensOruleDescr -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 987 "Desugar.hs" #-} + {-# LINE 990 "Desugar.hs" #-} )) of { !_tokensOchildInhs -> (case (({-# LINE 66 "Desugar.ag" #-} 0 - {-# LINE 992 "Desugar.hs" #-} + {-# LINE 995 "Desugar.hs" #-} )) of { !_tokensOaddLines -> (case (tokens_ _tokensOaddLines _tokensOchildInhs _tokensOchildSyns _tokensOcon _tokensOnt _tokensOruleDescr _tokensOuseFieldIdent ) of { ( !_tokensIaddLines,!_tokensIerrors,!_tokensItks) -> (case (({-# LINE 37 "Desugar.ag" #-} _tokensIerrors - {-# LINE 999 "Desugar.hs" #-} + {-# LINE 1002 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 68 "Desugar.ag" #-} _tokensItks - {-# LINE 1004 "Desugar.hs" #-} + {-# LINE 1007 "Desugar.hs" #-} )) of { !_lhsOtks -> ( _lhsOerrors,_lhsOtks) }) }) }) }) }) }) }) }) }) })) ) @@ -1058,59 +1061,59 @@ (!_lhsIoptions) -> (case (({-# LINE 156 "Desugar.ag" #-} nt_ - {-# LINE 1062 "Desugar.hs" #-} + {-# LINE 1065 "Desugar.hs" #-} )) of { !_prodsOnt -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 1067 "Desugar.hs" #-} + {-# LINE 1070 "Desugar.hs" #-} )) of { !_prodsOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1072 "Desugar.hs" #-} + {-# LINE 1075 "Desugar.hs" #-} )) of { !_prodsOforcedIrrefutables -> (case (({-# LINE 238 "Desugar.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaugmentsIn - {-# LINE 1077 "Desugar.hs" #-} + {-# LINE 1080 "Desugar.hs" #-} )) of { !_augmentsIn -> (case (({-# LINE 229 "Desugar.ag" #-} _augmentsIn - {-# LINE 1082 "Desugar.hs" #-} + {-# LINE 1085 "Desugar.hs" #-} )) of { !_prodsOaugmentsIn -> (case (prods_ _prodsOaugmentsIn _prodsOforcedIrrefutables _prodsOnt _prodsOoptions ) of { ( !_prodsIallAttributes,!_prodsIaugmentsOut,!_prodsIerrors,!_prodsIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _prodsIallAttributes - {-# LINE 1089 "Desugar.hs" #-} + {-# LINE 1092 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 239 "Desugar.ag" #-} Map.singleton nt_ _prodsIaugmentsOut - {-# LINE 1094 "Desugar.hs" #-} + {-# LINE 1097 "Desugar.hs" #-} )) of { !_augmentsOut -> (case (({-# LINE 228 "Desugar.ag" #-} _augmentsOut - {-# LINE 1099 "Desugar.hs" #-} + {-# LINE 1102 "Desugar.hs" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 37 "Desugar.ag" #-} _prodsIerrors - {-# LINE 1104 "Desugar.hs" #-} + {-# LINE 1107 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} Nonterminal nt_ params_ inh_ syn_ _prodsIoutput - {-# LINE 1109 "Desugar.hs" #-} + {-# LINE 1112 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1114 "Desugar.hs" #-} + {-# LINE 1117 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1163,61 +1166,61 @@ (!_lhsIoptions) -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 1167 "Desugar.hs" #-} + {-# LINE 1170 "Desugar.hs" #-} )) of { !_tlOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1172 "Desugar.hs" #-} + {-# LINE 1175 "Desugar.hs" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 227 "Desugar.ag" #-} _lhsIaugmentsIn - {-# LINE 1177 "Desugar.hs" #-} + {-# LINE 1180 "Desugar.hs" #-} )) of { !_tlOaugmentsIn -> (case (tl_ _tlOaugmentsIn _tlOforcedIrrefutables _tlOoptions ) of { ( !_tlIallAttributes,!_tlIaugmentsOut,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 1184 "Desugar.hs" #-} + {-# LINE 1187 "Desugar.hs" #-} )) of { !_hdOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1189 "Desugar.hs" #-} + {-# LINE 1192 "Desugar.hs" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 227 "Desugar.ag" #-} _lhsIaugmentsIn - {-# LINE 1194 "Desugar.hs" #-} + {-# LINE 1197 "Desugar.hs" #-} )) of { !_hdOaugmentsIn -> (case (hd_ _hdOaugmentsIn _hdOforcedIrrefutables _hdOoptions ) of { ( !_hdIallAttributes,!_hdIaugmentsOut,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes - {-# LINE 1201 "Desugar.hs" #-} + {-# LINE 1204 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 228 "Desugar.ag" #-} _hdIaugmentsOut `Map.union` _tlIaugmentsOut - {-# LINE 1206 "Desugar.hs" #-} + {-# LINE 1209 "Desugar.hs" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 37 "Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 1211 "Desugar.hs" #-} + {-# LINE 1214 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 1216 "Desugar.hs" #-} + {-# LINE 1219 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1221 "Desugar.hs" #-} + {-# LINE 1224 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1228,27 +1231,27 @@ (!_lhsIoptions) -> (case (({-# LINE 195 "Desugar.ag" #-} Map.empty - {-# LINE 1232 "Desugar.hs" #-} + {-# LINE 1235 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 228 "Desugar.ag" #-} Map.empty - {-# LINE 1237 "Desugar.hs" #-} + {-# LINE 1240 "Desugar.hs" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 1242 "Desugar.hs" #-} + {-# LINE 1245 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} [] - {-# LINE 1247 "Desugar.hs" #-} + {-# LINE 1250 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1252 "Desugar.hs" #-} + {-# LINE 1255 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) })) ) @@ -1347,7 +1350,7 @@ sem_Pattern_Alias !field_ !attr_ !(T_Pattern pat_ ) !(T_Patterns parts_ ) = (T_Pattern (case (({-# LINE 181 "Desugar.ag" #-} Set.singleton (field_, attr_) - {-# LINE 1351 "Desugar.hs" #-} + {-# LINE 1354 "Desugar.hs" #-} )) of { !_def -> (case (parts_ ) of @@ -1356,7 +1359,7 @@ { ( !_patIdefsCollect,!T_Pattern_1 pat_1) -> (case (({-# LINE 182 "Desugar.ag" #-} _def `Set.union` _patIdefsCollect `Set.union` _partsIdefsCollect - {-# LINE 1360 "Desugar.hs" #-} + {-# LINE 1363 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Alias_1 :: T_Pattern_1 @@ -1369,92 +1372,92 @@ (!_lhsInt) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 1373 "Desugar.hs" #-} + {-# LINE 1376 "Desugar.hs" #-} )) of { !_patOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 1378 "Desugar.hs" #-} + {-# LINE 1381 "Desugar.hs" #-} )) of { !_patOcon -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1383 "Desugar.hs" #-} + {-# LINE 1386 "Desugar.hs" #-} )) of { !_patOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 1388 "Desugar.hs" #-} + {-# LINE 1391 "Desugar.hs" #-} )) of { !_patOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 1393 "Desugar.hs" #-} + {-# LINE 1396 "Desugar.hs" #-} )) of { !_patOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 1398 "Desugar.hs" #-} + {-# LINE 1401 "Desugar.hs" #-} )) of { !_patOchildInhs -> (case (pat_1 _patOchildInhs _patOchildSyns _patOcon _patOdefs _patOforcedIrrefutables _patOnt ) of { ( !_patIallAttributes,!_patIcopy,!_patIerrors,!_patIoutput) -> (case (({-# LINE 199 "Desugar.ag" #-} (Map.singleton _lhsInt $ Map.singleton _lhsIcon $ Set.singleton (field_, attr_)) `mergeAttributes` _patIallAttributes - {-# LINE 1405 "Desugar.hs" #-} + {-# LINE 1408 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 1410 "Desugar.hs" #-} + {-# LINE 1413 "Desugar.hs" #-} )) of { !_partsOnt -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1415 "Desugar.hs" #-} + {-# LINE 1418 "Desugar.hs" #-} )) of { !_partsOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 1420 "Desugar.hs" #-} + {-# LINE 1423 "Desugar.hs" #-} )) of { !_partsOdefs -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 1425 "Desugar.hs" #-} + {-# LINE 1428 "Desugar.hs" #-} )) of { !_partsOcon -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 1430 "Desugar.hs" #-} + {-# LINE 1433 "Desugar.hs" #-} )) of { !_partsOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 1435 "Desugar.hs" #-} + {-# LINE 1438 "Desugar.hs" #-} )) of { !_partsOchildInhs -> (case (parts_1 _partsOchildInhs _partsOchildSyns _partsOcon _partsOdefs _partsOforcedIrrefutables _partsOnt ) of { ( !_partsIallAttributes,!_partsIcopy,!_partsIerrors,!_partsIoutput) -> (case (({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 1442 "Desugar.hs" #-} + {-# LINE 1445 "Desugar.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1447 "Desugar.hs" #-} + {-# LINE 1450 "Desugar.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 109 "Desugar.ag" #-} maybeError field_ (UndefAttr _lhsInt _lhsIcon (Ident "" (getPos field_)) attr_ True) $ findField field_ attr_ _lhsIchildInhs - {-# LINE 1453 "Desugar.hs" #-} + {-# LINE 1456 "Desugar.hs" #-} )) of { !__tup2 -> (case (({-# LINE 109 "Desugar.ag" #-} __tup2 - {-# LINE 1458 "Desugar.hs" #-} + {-# LINE 1461 "Desugar.hs" #-} )) of { !(!_field',_) -> (case (({-# LINE 111 "Desugar.ag" #-} @@ -1463,29 +1466,29 @@ else if (_field' , attr_) `Set.member` _lhsIdefs then Seq.singleton $ DupRule _lhsInt _lhsIcon field_ attr_ _field' else Seq.empty - {-# LINE 1467 "Desugar.hs" #-} + {-# LINE 1470 "Desugar.hs" #-} )) of { !_err2 -> (case (({-# LINE 109 "Desugar.ag" #-} __tup2 - {-# LINE 1472 "Desugar.hs" #-} + {-# LINE 1475 "Desugar.hs" #-} )) of { !(_,!_err1) -> (case (({-# LINE 116 "Desugar.ag" #-} _err1 Seq.>< _err2 Seq.>< _patIerrors Seq.>< _partsIerrors - {-# LINE 1477 "Desugar.hs" #-} + {-# LINE 1480 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 117 "Desugar.ag" #-} Alias _field' attr_ _patIoutput _partsIoutput - {-# LINE 1482 "Desugar.hs" #-} + {-# LINE 1485 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 218 "Desugar.ag" #-} if Set.member (field_, attr_) $ Map.findWithDefault Set.empty _lhsIcon $ Map.findWithDefault Map.empty _lhsInt $ _lhsIforcedIrrefutables then Irrefutable _output else _output - {-# LINE 1489 "Desugar.hs" #-} + {-# LINE 1492 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1500,7 +1503,7 @@ { ( !_patsIdefsCollect,!T_Patterns_1 pats_1) -> (case (({-# LINE 178 "Desugar.ag" #-} _patsIdefsCollect - {-# LINE 1504 "Desugar.hs" #-} + {-# LINE 1507 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Constr_1 :: T_Pattern_1 @@ -1513,64 +1516,64 @@ (!_lhsInt) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 1517 "Desugar.hs" #-} + {-# LINE 1520 "Desugar.hs" #-} )) of { !_patsOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 1522 "Desugar.hs" #-} + {-# LINE 1525 "Desugar.hs" #-} )) of { !_patsOcon -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1527 "Desugar.hs" #-} + {-# LINE 1530 "Desugar.hs" #-} )) of { !_patsOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 1532 "Desugar.hs" #-} + {-# LINE 1535 "Desugar.hs" #-} )) of { !_patsOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 1537 "Desugar.hs" #-} + {-# LINE 1540 "Desugar.hs" #-} )) of { !_patsOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 1542 "Desugar.hs" #-} + {-# LINE 1545 "Desugar.hs" #-} )) of { !_patsOchildInhs -> (case (pats_1 _patsOchildInhs _patsOchildSyns _patsOcon _patsOdefs _patsOforcedIrrefutables _patsOnt ) of { ( !_patsIallAttributes,!_patsIcopy,!_patsIerrors,!_patsIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _patsIallAttributes - {-# LINE 1549 "Desugar.hs" #-} + {-# LINE 1552 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 1554 "Desugar.hs" #-} + {-# LINE 1557 "Desugar.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1559 "Desugar.hs" #-} + {-# LINE 1562 "Desugar.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 37 "Desugar.ag" #-} _patsIerrors - {-# LINE 1564 "Desugar.hs" #-} + {-# LINE 1567 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} Constr name_ _patsIoutput - {-# LINE 1569 "Desugar.hs" #-} + {-# LINE 1572 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1574 "Desugar.hs" #-} + {-# LINE 1577 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1584,7 +1587,7 @@ { ( !_patIdefsCollect,!T_Pattern_1 pat_1) -> (case (({-# LINE 178 "Desugar.ag" #-} _patIdefsCollect - {-# LINE 1588 "Desugar.hs" #-} + {-# LINE 1591 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Irrefutable_1 :: T_Pattern_1 @@ -1597,64 +1600,64 @@ (!_lhsInt) -> (case (({-# LINE 201 "Desugar.ag" #-} Map.empty - {-# LINE 1601 "Desugar.hs" #-} + {-# LINE 1604 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 1606 "Desugar.hs" #-} + {-# LINE 1609 "Desugar.hs" #-} )) of { !_patOnt -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1611 "Desugar.hs" #-} + {-# LINE 1614 "Desugar.hs" #-} )) of { !_patOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 1616 "Desugar.hs" #-} + {-# LINE 1619 "Desugar.hs" #-} )) of { !_patOdefs -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 1621 "Desugar.hs" #-} + {-# LINE 1624 "Desugar.hs" #-} )) of { !_patOcon -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 1626 "Desugar.hs" #-} + {-# LINE 1629 "Desugar.hs" #-} )) of { !_patOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 1631 "Desugar.hs" #-} + {-# LINE 1634 "Desugar.hs" #-} )) of { !_patOchildInhs -> (case (pat_1 _patOchildInhs _patOchildSyns _patOcon _patOdefs _patOforcedIrrefutables _patOnt ) of { ( !_patIallAttributes,!_patIcopy,!_patIerrors,!_patIoutput) -> (case (({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 1638 "Desugar.hs" #-} + {-# LINE 1641 "Desugar.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1643 "Desugar.hs" #-} + {-# LINE 1646 "Desugar.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 37 "Desugar.ag" #-} _patIerrors - {-# LINE 1648 "Desugar.hs" #-} + {-# LINE 1651 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} Irrefutable _patIoutput - {-# LINE 1653 "Desugar.hs" #-} + {-# LINE 1656 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1658 "Desugar.hs" #-} + {-# LINE 1661 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1669,7 +1672,7 @@ { ( !_patsIdefsCollect,!T_Patterns_1 pats_1) -> (case (({-# LINE 178 "Desugar.ag" #-} _patsIdefsCollect - {-# LINE 1673 "Desugar.hs" #-} + {-# LINE 1676 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Product_1 :: T_Pattern_1 @@ -1682,64 +1685,64 @@ (!_lhsInt) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 1686 "Desugar.hs" #-} + {-# LINE 1689 "Desugar.hs" #-} )) of { !_patsOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 1691 "Desugar.hs" #-} + {-# LINE 1694 "Desugar.hs" #-} )) of { !_patsOcon -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1696 "Desugar.hs" #-} + {-# LINE 1699 "Desugar.hs" #-} )) of { !_patsOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 1701 "Desugar.hs" #-} + {-# LINE 1704 "Desugar.hs" #-} )) of { !_patsOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 1706 "Desugar.hs" #-} + {-# LINE 1709 "Desugar.hs" #-} )) of { !_patsOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 1711 "Desugar.hs" #-} + {-# LINE 1714 "Desugar.hs" #-} )) of { !_patsOchildInhs -> (case (pats_1 _patsOchildInhs _patsOchildSyns _patsOcon _patsOdefs _patsOforcedIrrefutables _patsOnt ) of { ( !_patsIallAttributes,!_patsIcopy,!_patsIerrors,!_patsIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _patsIallAttributes - {-# LINE 1718 "Desugar.hs" #-} + {-# LINE 1721 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 1723 "Desugar.hs" #-} + {-# LINE 1726 "Desugar.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1728 "Desugar.hs" #-} + {-# LINE 1731 "Desugar.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 37 "Desugar.ag" #-} _patsIerrors - {-# LINE 1733 "Desugar.hs" #-} + {-# LINE 1736 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} Product pos_ _patsIoutput - {-# LINE 1738 "Desugar.hs" #-} + {-# LINE 1741 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1743 "Desugar.hs" #-} + {-# LINE 1746 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1751,7 +1754,7 @@ sem_Pattern_Underscore !pos_ = (T_Pattern (case (({-# LINE 178 "Desugar.ag" #-} Set.empty - {-# LINE 1755 "Desugar.hs" #-} + {-# LINE 1758 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Pattern_Underscore_1 :: T_Pattern_1 @@ -1764,32 +1767,32 @@ (!_lhsInt) -> (case (({-# LINE 195 "Desugar.ag" #-} Map.empty - {-# LINE 1768 "Desugar.hs" #-} + {-# LINE 1771 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 1773 "Desugar.hs" #-} + {-# LINE 1776 "Desugar.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1778 "Desugar.hs" #-} + {-# LINE 1781 "Desugar.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 1783 "Desugar.hs" #-} + {-# LINE 1786 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} Underscore pos_ - {-# LINE 1788 "Desugar.hs" #-} + {-# LINE 1791 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1793 "Desugar.hs" #-} + {-# LINE 1796 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) })) ) @@ -1859,7 +1862,7 @@ { ( !_hdIdefsCollect,!T_Pattern_1 hd_1) -> (case (({-# LINE 178 "Desugar.ag" #-} _hdIdefsCollect `Set.union` _tlIdefsCollect - {-# LINE 1863 "Desugar.hs" #-} + {-# LINE 1866 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Patterns_Cons_1 :: T_Patterns_1 @@ -1872,96 +1875,96 @@ (!_lhsInt) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 1876 "Desugar.hs" #-} + {-# LINE 1879 "Desugar.hs" #-} )) of { !_tlOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 1881 "Desugar.hs" #-} + {-# LINE 1884 "Desugar.hs" #-} )) of { !_tlOcon -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 1886 "Desugar.hs" #-} + {-# LINE 1889 "Desugar.hs" #-} )) of { !_hdOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 1891 "Desugar.hs" #-} + {-# LINE 1894 "Desugar.hs" #-} )) of { !_hdOcon -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1896 "Desugar.hs" #-} + {-# LINE 1899 "Desugar.hs" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 1901 "Desugar.hs" #-} + {-# LINE 1904 "Desugar.hs" #-} )) of { !_tlOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 1906 "Desugar.hs" #-} + {-# LINE 1909 "Desugar.hs" #-} )) of { !_tlOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 1911 "Desugar.hs" #-} + {-# LINE 1914 "Desugar.hs" #-} )) of { !_tlOchildInhs -> (case (tl_1 _tlOchildInhs _tlOchildSyns _tlOcon _tlOdefs _tlOforcedIrrefutables _tlOnt ) of { ( !_tlIallAttributes,!_tlIcopy,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 1918 "Desugar.hs" #-} + {-# LINE 1921 "Desugar.hs" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 1923 "Desugar.hs" #-} + {-# LINE 1926 "Desugar.hs" #-} )) of { !_hdOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 1928 "Desugar.hs" #-} + {-# LINE 1931 "Desugar.hs" #-} )) of { !_hdOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 1933 "Desugar.hs" #-} + {-# LINE 1936 "Desugar.hs" #-} )) of { !_hdOchildInhs -> (case (hd_1 _hdOchildInhs _hdOchildSyns _hdOcon _hdOdefs _hdOforcedIrrefutables _hdOnt ) of { ( !_hdIallAttributes,!_hdIcopy,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes - {-# LINE 1940 "Desugar.hs" #-} + {-# LINE 1943 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 1945 "Desugar.hs" #-} + {-# LINE 1948 "Desugar.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1950 "Desugar.hs" #-} + {-# LINE 1953 "Desugar.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 37 "Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 1955 "Desugar.hs" #-} + {-# LINE 1958 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 1960 "Desugar.hs" #-} + {-# LINE 1963 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 1965 "Desugar.hs" #-} + {-# LINE 1968 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -1972,7 +1975,7 @@ sem_Patterns_Nil = (T_Patterns (case (({-# LINE 178 "Desugar.ag" #-} Set.empty - {-# LINE 1976 "Desugar.hs" #-} + {-# LINE 1979 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Patterns_Nil_1 :: T_Patterns_1 @@ -1985,32 +1988,32 @@ (!_lhsInt) -> (case (({-# LINE 195 "Desugar.ag" #-} Map.empty - {-# LINE 1989 "Desugar.hs" #-} + {-# LINE 1992 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 1994 "Desugar.hs" #-} + {-# LINE 1997 "Desugar.hs" #-} )) of { !_copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 1999 "Desugar.hs" #-} + {-# LINE 2002 "Desugar.hs" #-} )) of { !_lhsOcopy -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 2004 "Desugar.hs" #-} + {-# LINE 2007 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} [] - {-# LINE 2009 "Desugar.hs" #-} + {-# LINE 2012 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2014 "Desugar.hs" #-} + {-# LINE 2017 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOcopy,_lhsOerrors,_lhsOoutput) }) }) }) }) }) })) ) @@ -2075,95 +2078,95 @@ (!_lhsIoptions) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 2079 "Desugar.hs" #-} + {-# LINE 2082 "Desugar.hs" #-} )) of { !_rulesOnt -> (case (({-# LINE 160 "Desugar.ag" #-} con_ - {-# LINE 2084 "Desugar.hs" #-} + {-# LINE 2087 "Desugar.hs" #-} )) of { !_rulesOcon -> (case (rules_ ) of { ( !_rulesIdefsCollect,!T_Rules_1 rules_1) -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 2091 "Desugar.hs" #-} + {-# LINE 2094 "Desugar.hs" #-} )) of { !_rulesOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 2096 "Desugar.hs" #-} + {-# LINE 2099 "Desugar.hs" #-} )) of { !_rulesOforcedIrrefutables -> (case (children_ ) of { ( !_childrenIchildInhs,!_childrenIchildSyns,!_childrenIoutput) -> (case (({-# LINE 125 "Desugar.ag" #-} _childrenIchildSyns - {-# LINE 2103 "Desugar.hs" #-} + {-# LINE 2106 "Desugar.hs" #-} )) of { !_rulesOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _childrenIchildInhs - {-# LINE 2108 "Desugar.hs" #-} + {-# LINE 2111 "Desugar.hs" #-} )) of { !_rulesOchildInhs -> (case (({-# LINE 187 "Desugar.ag" #-} _rulesIdefsCollect - {-# LINE 2113 "Desugar.hs" #-} + {-# LINE 2116 "Desugar.hs" #-} )) of { !_rulesOdefs -> (case (rules_1 _rulesOchildInhs _rulesOchildSyns _rulesOcon _rulesOdefs _rulesOforcedIrrefutables _rulesOnt _rulesOoptions ) of { ( !_rulesIallAttributes,!_rulesIerrors,!_rulesIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _rulesIallAttributes - {-# LINE 2120 "Desugar.hs" #-} + {-# LINE 2123 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 243 "Desugar.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaugmentsIn - {-# LINE 2125 "Desugar.hs" #-} + {-# LINE 2128 "Desugar.hs" #-} )) of { !_augmentsIn -> (case (({-# LINE 246 "Desugar.ag" #-} Map.mapAccum (desugarExprs _lhsIoptions _lhsInt con_ _childrenIchildInhs _childrenIchildSyns) Seq.empty _augmentsIn - {-# LINE 2130 "Desugar.hs" #-} + {-# LINE 2133 "Desugar.hs" #-} )) of { !__tup3 -> (case (({-# LINE 246 "Desugar.ag" #-} __tup3 - {-# LINE 2135 "Desugar.hs" #-} + {-# LINE 2138 "Desugar.hs" #-} )) of { !(_,!_augmentsOut1) -> (case (({-# LINE 244 "Desugar.ag" #-} Map.singleton con_ _augmentsOut1 - {-# LINE 2140 "Desugar.hs" #-} + {-# LINE 2143 "Desugar.hs" #-} )) of { !_augmentsOut -> (case (({-# LINE 230 "Desugar.ag" #-} _augmentsOut - {-# LINE 2145 "Desugar.hs" #-} + {-# LINE 2148 "Desugar.hs" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 246 "Desugar.ag" #-} __tup3 - {-# LINE 2150 "Desugar.hs" #-} + {-# LINE 2153 "Desugar.hs" #-} )) of { !(!_augmentErrs,_) -> (case (({-# LINE 282 "Desugar.ag" #-} _rulesIerrors Seq.>< _augmentErrs - {-# LINE 2155 "Desugar.hs" #-} + {-# LINE 2158 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (typeSigs_ ) of { ( !_typeSigsIoutput) -> (case (({-# LINE 39 "Desugar.ag" #-} Production con_ _childrenIoutput _rulesIoutput _typeSigsIoutput - {-# LINE 2162 "Desugar.hs" #-} + {-# LINE 2165 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2167 "Desugar.hs" #-} + {-# LINE 2170 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2219,71 +2222,71 @@ (!_lhsIoptions) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 2223 "Desugar.hs" #-} + {-# LINE 2226 "Desugar.hs" #-} )) of { !_tlOnt -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 2228 "Desugar.hs" #-} + {-# LINE 2231 "Desugar.hs" #-} )) of { !_hdOnt -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 2233 "Desugar.hs" #-} + {-# LINE 2236 "Desugar.hs" #-} )) of { !_tlOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 2238 "Desugar.hs" #-} + {-# LINE 2241 "Desugar.hs" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 229 "Desugar.ag" #-} _lhsIaugmentsIn - {-# LINE 2243 "Desugar.hs" #-} + {-# LINE 2246 "Desugar.hs" #-} )) of { !_tlOaugmentsIn -> (case (tl_ _tlOaugmentsIn _tlOforcedIrrefutables _tlOnt _tlOoptions ) of { ( !_tlIallAttributes,!_tlIaugmentsOut,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 2250 "Desugar.hs" #-} + {-# LINE 2253 "Desugar.hs" #-} )) of { !_hdOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 2255 "Desugar.hs" #-} + {-# LINE 2258 "Desugar.hs" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 229 "Desugar.ag" #-} _lhsIaugmentsIn - {-# LINE 2260 "Desugar.hs" #-} + {-# LINE 2263 "Desugar.hs" #-} )) of { !_hdOaugmentsIn -> (case (hd_ _hdOaugmentsIn _hdOforcedIrrefutables _hdOnt _hdOoptions ) of { ( !_hdIallAttributes,!_hdIaugmentsOut,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes - {-# LINE 2267 "Desugar.hs" #-} + {-# LINE 2270 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 230 "Desugar.ag" #-} _hdIaugmentsOut `Map.union` _tlIaugmentsOut - {-# LINE 2272 "Desugar.hs" #-} + {-# LINE 2275 "Desugar.hs" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 37 "Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 2277 "Desugar.hs" #-} + {-# LINE 2280 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 2282 "Desugar.hs" #-} + {-# LINE 2285 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2287 "Desugar.hs" #-} + {-# LINE 2290 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2295,27 +2298,27 @@ (!_lhsIoptions) -> (case (({-# LINE 195 "Desugar.ag" #-} Map.empty - {-# LINE 2299 "Desugar.hs" #-} + {-# LINE 2302 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 230 "Desugar.ag" #-} Map.empty - {-# LINE 2304 "Desugar.hs" #-} + {-# LINE 2307 "Desugar.hs" #-} )) of { !_lhsOaugmentsOut -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 2309 "Desugar.hs" #-} + {-# LINE 2312 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} [] - {-# LINE 2314 "Desugar.hs" #-} + {-# LINE 2317 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2319 "Desugar.hs" #-} + {-# LINE 2322 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOaugmentsOut,_lhsOerrors,_lhsOoutput) }) }) }) }) })) ) @@ -2385,7 +2388,7 @@ { ( !_patternIdefsCollect,!T_Pattern_1 pattern_1) -> (case (({-# LINE 178 "Desugar.ag" #-} _patternIdefsCollect - {-# LINE 2389 "Desugar.hs" #-} + {-# LINE 2392 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Rule_Rule_1 :: T_Rule_1 @@ -2399,91 +2402,91 @@ (!_lhsIoptions) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 2403 "Desugar.hs" #-} + {-# LINE 2406 "Desugar.hs" #-} )) of { !_patternOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 2408 "Desugar.hs" #-} + {-# LINE 2411 "Desugar.hs" #-} )) of { !_patternOcon -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 2413 "Desugar.hs" #-} + {-# LINE 2416 "Desugar.hs" #-} )) of { !_patternOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 2418 "Desugar.hs" #-} + {-# LINE 2421 "Desugar.hs" #-} )) of { !_patternOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 2423 "Desugar.hs" #-} + {-# LINE 2426 "Desugar.hs" #-} )) of { !_patternOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 2428 "Desugar.hs" #-} + {-# LINE 2431 "Desugar.hs" #-} )) of { !_patternOchildInhs -> (case (pattern_1 _patternOchildInhs _patternOchildSyns _patternOcon _patternOdefs _patternOforcedIrrefutables _patternOnt ) of { ( !_patternIallAttributes,!_patternIcopy,!_patternIerrors,!_patternIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _patternIallAttributes - {-# LINE 2435 "Desugar.hs" #-} + {-# LINE 2438 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 171 "Desugar.ag" #-} show _lhsInt ++ " :: " ++ show _lhsIcon ++ " :: " ++ (concat $ intersperse "," $ map (\(f,a) -> show f ++ "." ++ show a) $ Set.toList _patternIdefsCollect) - {-# LINE 2440 "Desugar.hs" #-} + {-# LINE 2443 "Desugar.hs" #-} )) of { !_ruleDescr -> (case (({-# LINE 167 "Desugar.ag" #-} _ruleDescr - {-# LINE 2445 "Desugar.hs" #-} + {-# LINE 2448 "Desugar.hs" #-} )) of { !_rhsOruleDescr -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 2450 "Desugar.hs" #-} + {-# LINE 2453 "Desugar.hs" #-} )) of { !_rhsOoptions -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 2455 "Desugar.hs" #-} + {-# LINE 2458 "Desugar.hs" #-} )) of { !_rhsOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 2460 "Desugar.hs" #-} + {-# LINE 2463 "Desugar.hs" #-} )) of { !_rhsOcon -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 2465 "Desugar.hs" #-} + {-# LINE 2468 "Desugar.hs" #-} )) of { !_rhsOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 2470 "Desugar.hs" #-} + {-# LINE 2473 "Desugar.hs" #-} )) of { !_rhsOchildInhs -> (case (rhs_ _rhsOchildInhs _rhsOchildSyns _rhsOcon _rhsOnt _rhsOoptions _rhsOruleDescr ) of { ( !_rhsIerrors,!_rhsIoutput) -> (case (({-# LINE 37 "Desugar.ag" #-} _patternIerrors Seq.>< _rhsIerrors - {-# LINE 2477 "Desugar.hs" #-} + {-# LINE 2480 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} Rule mbName_ _patternIoutput _rhsIoutput owrt_ origin_ explicit_ - {-# LINE 2482 "Desugar.hs" #-} + {-# LINE 2485 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2487 "Desugar.hs" #-} + {-# LINE 2490 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2552,7 +2555,7 @@ { ( !_hdIdefsCollect,!T_Rule_1 hd_1) -> (case (({-# LINE 178 "Desugar.ag" #-} _hdIdefsCollect `Set.union` _tlIdefsCollect - {-# LINE 2556 "Desugar.hs" #-} + {-# LINE 2559 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Rules_Cons_1 :: T_Rules_1 @@ -2566,96 +2569,96 @@ (!_lhsIoptions) -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 2570 "Desugar.hs" #-} + {-# LINE 2573 "Desugar.hs" #-} )) of { !_tlOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 2575 "Desugar.hs" #-} + {-# LINE 2578 "Desugar.hs" #-} )) of { !_tlOcon -> (case (({-# LINE 151 "Desugar.ag" #-} _lhsInt - {-# LINE 2580 "Desugar.hs" #-} + {-# LINE 2583 "Desugar.hs" #-} )) of { !_hdOnt -> (case (({-# LINE 152 "Desugar.ag" #-} _lhsIcon - {-# LINE 2585 "Desugar.hs" #-} + {-# LINE 2588 "Desugar.hs" #-} )) of { !_hdOcon -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 2590 "Desugar.hs" #-} + {-# LINE 2593 "Desugar.hs" #-} )) of { !_tlOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 2595 "Desugar.hs" #-} + {-# LINE 2598 "Desugar.hs" #-} )) of { !_tlOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 2600 "Desugar.hs" #-} + {-# LINE 2603 "Desugar.hs" #-} )) of { !_tlOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 2605 "Desugar.hs" #-} + {-# LINE 2608 "Desugar.hs" #-} )) of { !_tlOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 2610 "Desugar.hs" #-} + {-# LINE 2613 "Desugar.hs" #-} )) of { !_tlOchildInhs -> (case (tl_1 _tlOchildInhs _tlOchildSyns _tlOcon _tlOdefs _tlOforcedIrrefutables _tlOnt _tlOoptions ) of { ( !_tlIallAttributes,!_tlIerrors,!_tlIoutput) -> (case (({-# LINE 35 "Desugar.ag" #-} _lhsIoptions - {-# LINE 2617 "Desugar.hs" #-} + {-# LINE 2620 "Desugar.hs" #-} )) of { !_hdOoptions -> (case (({-# LINE 214 "Desugar.ag" #-} _lhsIforcedIrrefutables - {-# LINE 2622 "Desugar.hs" #-} + {-# LINE 2625 "Desugar.hs" #-} )) of { !_hdOforcedIrrefutables -> (case (({-# LINE 184 "Desugar.ag" #-} _lhsIdefs - {-# LINE 2627 "Desugar.hs" #-} + {-# LINE 2630 "Desugar.hs" #-} )) of { !_hdOdefs -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildSyns - {-# LINE 2632 "Desugar.hs" #-} + {-# LINE 2635 "Desugar.hs" #-} )) of { !_hdOchildSyns -> (case (({-# LINE 125 "Desugar.ag" #-} _lhsIchildInhs - {-# LINE 2637 "Desugar.hs" #-} + {-# LINE 2640 "Desugar.hs" #-} )) of { !_hdOchildInhs -> (case (hd_1 _hdOchildInhs _hdOchildSyns _hdOcon _hdOdefs _hdOforcedIrrefutables _hdOnt _hdOoptions ) of { ( !_hdIallAttributes,!_hdIerrors,!_hdIoutput) -> (case (({-# LINE 195 "Desugar.ag" #-} _hdIallAttributes `mergeAttributes` _tlIallAttributes - {-# LINE 2644 "Desugar.hs" #-} + {-# LINE 2647 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 37 "Desugar.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 2649 "Desugar.hs" #-} + {-# LINE 2652 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 2654 "Desugar.hs" #-} + {-# LINE 2657 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2659 "Desugar.hs" #-} + {-# LINE 2662 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) }) })) ) @@ -2666,7 +2669,7 @@ sem_Rules_Nil = (T_Rules (case (({-# LINE 178 "Desugar.ag" #-} Set.empty - {-# LINE 2670 "Desugar.hs" #-} + {-# LINE 2673 "Desugar.hs" #-} )) of { !_lhsOdefsCollect -> (case ((let sem_Rules_Nil_1 :: T_Rules_1 @@ -2680,22 +2683,22 @@ (!_lhsIoptions) -> (case (({-# LINE 195 "Desugar.ag" #-} Map.empty - {-# LINE 2684 "Desugar.hs" #-} + {-# LINE 2687 "Desugar.hs" #-} )) of { !_lhsOallAttributes -> (case (({-# LINE 37 "Desugar.ag" #-} Seq.empty - {-# LINE 2689 "Desugar.hs" #-} + {-# LINE 2692 "Desugar.hs" #-} )) of { !_lhsOerrors -> (case (({-# LINE 39 "Desugar.ag" #-} [] - {-# LINE 2694 "Desugar.hs" #-} + {-# LINE 2697 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2699 "Desugar.hs" #-} + {-# LINE 2702 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOallAttributes,_lhsOerrors,_lhsOoutput) }) }) }) })) ) @@ -2735,12 +2738,12 @@ sem_TypeSig_TypeSig !name_ !tp_ = (T_TypeSig (case (({-# LINE 39 "Desugar.ag" #-} TypeSig name_ tp_ - {-# LINE 2739 "Desugar.hs" #-} + {-# LINE 2742 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2744 "Desugar.hs" #-} + {-# LINE 2747 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOoutput) }) }) ) @@ -2784,12 +2787,12 @@ { ( !_hdIoutput) -> (case (({-# LINE 39 "Desugar.ag" #-} (:) _hdIoutput _tlIoutput - {-# LINE 2788 "Desugar.hs" #-} + {-# LINE 2791 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2793 "Desugar.hs" #-} + {-# LINE 2796 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOoutput) }) }) }) }) ) @@ -2797,12 +2800,12 @@ sem_TypeSigs_Nil = (T_TypeSigs (case (({-# LINE 39 "Desugar.ag" #-} [] - {-# LINE 2801 "Desugar.hs" #-} + {-# LINE 2804 "Desugar.hs" #-} )) of { !_output -> (case (({-# LINE 39 "Desugar.ag" #-} _output - {-# LINE 2806 "Desugar.hs" #-} + {-# LINE 2809 "Desugar.hs" #-} )) of { !_lhsOoutput -> ( _lhsOoutput) }) }) ) diff --git a/src-derived/ErrorMessages.hs b/src-derived/ErrorMessages.hs --- a/src-derived/ErrorMessages.hs +++ b/src-derived/ErrorMessages.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (ErrorMessages.ag) +-- UUAGC 0.9.38.1 (ErrorMessages.ag) module ErrorMessages where {-# LINE 2 "ErrorMessages.ag" #-} diff --git a/src-derived/Expression.hs b/src-derived/Expression.hs --- a/src-derived/Expression.hs +++ b/src-derived/Expression.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (Expression.ag) +-- UUAGC 0.9.38.1 (Expression.ag) module Expression where {-# LINE 2 "Expression.ag" #-} diff --git a/src-derived/GenerateCode.hs b/src-derived/GenerateCode.hs --- a/src-derived/GenerateCode.hs +++ b/src-derived/GenerateCode.hs @@ -1,7954 +1,8044 @@ --- UUAGC 0.9.37.2 (GenerateCode.ag) -module GenerateCode where -{-# LINE 9 "GenerateCode.ag" #-} - -import CommonTypes -import SequentialTypes -import Code hiding (Type) -import qualified Code -import Options -import CodeSyntax -import ErrorMessages -import GrammarInfo -import DeclBlocks - -import qualified Data.Map as Map -import Data.Map(Map) -import qualified Data.Set as Set -import Data.Set(Set) -import qualified Data.Sequence as Seq -import Data.Sequence(Seq) -import UU.Scanner.Position -import TokenDef -import HsToken -import HsTokenScanner - -import Data.List(partition,intersperse,intersect,(\\)) -import Maybe(fromJust,isJust) - -import Debug.Trace -{-# LINE 33 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 2 "./CodeSyntax.ag" #-} - -import Patterns -import CommonTypes -import Data.Map(Map) -import Data.Set(Set) -{-# LINE 41 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 2 "./Patterns.ag" #-} - --- Patterns.ag imports -import UU.Scanner.Position(Pos) -import CommonTypes (ConstructorIdent,Identifier) -{-# LINE 48 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 2 "./DeclBlocks.ag" #-} - -import Code (Decl,Expr) -{-# LINE 53 "../src-derived/GenerateCode.hs" #-} -{-# LINE 107 "GenerateCode.ag" #-} - --- remove possible @v references in the types of a data type. -cleanupArg :: String -> String -cleanupArg s - = case idEvalType (SimpleType s) of - SimpleType s' -> s' -{-# LINE 61 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 121 "GenerateCode.ag" #-} - -appContext :: ContextMap -> NontermIdent -> Code.Type -> Code.Type -appContext mp nt tp - = maybe tp (\ctx -> CtxApp (map (\(n,ns) -> (getName n, ns)) ctx) tp) $ Map.lookup nt mp -{-# LINE 68 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 240 "GenerateCode.ag" #-} - -mkDecl True lhs rhs _ _ = Bind lhs rhs -mkDecl False lhs rhs s1 s2 = Decl lhs rhs s1 s2 - -unwrapSem :: Bool -> NontermIdent -> Expr -> Expr -unwrapSem False _ e = e -unwrapSem True nm e = Case e alts - where alts = [CaseAlt left right] - left = Fun (typeName nm 0) [SimpleExpr "x"] - right = SimpleExpr "x" -{-# LINE 81 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 406 "GenerateCode.ag" #-} - -substSelf nt tp = case tp of - NT t tps | t == _SELF -> Haskell (getName nt ++ " " ++ unwords tps) - _ -> tp -{-# LINE 88 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 529 "GenerateCode.ag" #-} - -mkLambdaArg :: String -> Maybe Code.Type -> Expr -mkLambdaArg nm Nothing = SimpleExpr nm -mkLambdaArg nm (Just tp) = TypedExpr (SimpleExpr nm) tp - -mkLambda :: Exprs -> Expr -> Expr -mkLambda [] e = e -mkLambda xs e = Lambda xs e - -mkSemFun :: Identifier -> Int -> Exprs -> Expr -> Expr -mkSemFun nt nr xs e = SemFun (typeName nt nr) xs e - -typeAppStrs nm params = TypeApp (SimpleType nm) (map SimpleType params) - -isHigherOrder :: Maybe (Maybe Type) -> Bool -isHigherOrder (Just Nothing) = True -isHigherOrder _ = False - -pickOrigType :: (Identifier, Type, Maybe (Maybe Type)) -> (Identifier, Type, Maybe (Maybe Type)) -pickOrigType (nm, tp, virt@(Just (Just x))) = (nm, x, virt) -pickOrigType x = x -{-# LINE 112 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 625 "GenerateCode.ag" #-} - -mkPartitionedFunction :: String -> Bool -> [Decl] -> [String] -> DeclBlocks -> ([Decl], Expr) -mkPartitionedFunction prefix optCase nextVisitDecls lastExprVars cpsTree - = let inh = Inh_DeclBlocksRoot { prefix_Inh_DeclBlocksRoot = prefix - , optCase_Inh_DeclBlocksRoot = optCase - , nextVisitDecls_Inh_DeclBlocksRoot = nextVisitDecls - , lastExprVars_Inh_DeclBlocksRoot = lastExprVars - } - sem = sem_DeclBlocksRoot (DeclBlocksRoot cpsTree) - syn = wrap_DeclBlocksRoot sem inh - in (lambdas_Syn_DeclBlocksRoot syn, firstCall_Syn_DeclBlocksRoot syn) -{-# LINE 126 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 675 "GenerateCode.ag" #-} - -freevars :: [String] -> [Decl] -> [String] -freevars additional decls - = Set.toList (allused `Set.difference` alldefined) - where - allused = Set.unions (Set.fromList additional : map usedvars decls) - alldefined = Set.unions (map definedvars decls) - - usedvars (Decl _ _ _ uses) = uses - usedvars _ = Set.empty - - definedvars (Decl _ _ defs _) = defs - definedvars _ = Set.empty - -mkBlockLambda :: Bool -> String -> [String] -> [Decl] -> Expr -> Decl -mkBlockLambda optCase name args decls expr - = Decl lhs rhs Set.empty Set.empty - where - lhs = Fun name (map SimpleExpr args) - rhs = mkLet optCase decls expr -{-# LINE 149 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 753 "GenerateCode.ag" #-} - -typeToCodeType :: Maybe NontermIdent -> [String] -> Type -> Code.Type -typeToCodeType mbNt params tp - = case tp of - NT nt tps | nt == _SELF -> NontermType (maybe "Unknown" getName mbNt) params - | otherwise -> NontermType (getName nt) tps - Haskell t -> SimpleType t - -evalType :: (String -> String) -> Code.Type -> Code.Type -evalType replf t - = chase t - where - chase t - = case t of - Arr l r -> Arr (chase l) (chase r) - TypeApp f as -> TypeApp (chase f) (map chase as) - TupleType tps -> TupleType (map chase tps) - UnboxedTupleType tps -> UnboxedTupleType (map chase tps) - Code.List tp -> Code.List (chase tp) - SimpleType txt -> let tks = lexTokens (initPos txt) txt - tks' = map replaceTok tks - txt' = unlines . showTokens . tokensToStrings $ tks' - in SimpleType txt' - TMaybe m -> TMaybe (chase m) - TEither l r -> TEither (chase l) (chase r) - TMap k v -> TMap (chase k) (chase v) - TIntMap v -> TIntMap (chase v) - _ -> t - - replaceTok t - = case t of - AGLocal v p _ -> HsToken (replf $ getName v) p - _ -> t - -idEvalType :: Code.Type -> Code.Type -idEvalType = evalType id -{-# LINE 188 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 878 "GenerateCode.ag" #-} - --- for a virtual child that already existed as a child, returns -isFirstOrder :: Maybe (Maybe Type) -> Type -> Maybe Type -isFirstOrder Nothing tp = Just tp -isFirstOrder (Just x) _ = x -{-# LINE 196 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 898 "GenerateCode.ag" #-} - -makeLocalComment :: Int -> String -> Identifier -> Maybe Type -> String -makeLocalComment width what name tp = let x = getName name - y = maybe "_" (\t -> case t of (NT nt tps) -> getName nt ++ " " ++ unwords tps; Haskell t -> '{':t++"}") tp - in ( what ++ " " ++ x ++ replicate ((width - length x) `max` 0) ' ' ++ " : " ++ y ) - -{-# LINE 205 "../src-derived/GenerateCode.hs" #-} - -{-# LINE 929 "GenerateCode.ag" #-} - --- Lets or nested Cases? --- or even a do-expression? - -data DeclsType = DeclsLet | DeclsCase | DeclsDo - -mkDecls :: DeclsType -> Decls -> Expr -> Expr -mkDecls DeclsLet = mkLet False -mkDecls DeclsCase = mkLet True -mkDecls DeclsDo = \decls -> Do (map toBind decls) - where toBind (Decl lhs rhs _ _) = BindLet lhs rhs - toBind d = d - -mkLet :: Bool -> Decls -> Expr -> Expr -mkLet False decls body = Let decls body -mkLet True decls body = foldr oneCase body decls - -oneCase :: Decl -> Expr -> Expr -oneCase (Decl left rhs _ _) exp = Case rhs [CaseAlt left exp] -oneCase (Resume _ nt left rhs) exp = ResumeExpr nt rhs left exp -oneCase _ exp = exp - --- Gives the name of the visit function -funname field 0 = show field ++ "_" -funname field nr = show field ++ "_" ++ show nr - --- Gives the name of a semantic function -seqSemname :: String -> NontermIdent -> ConstructorIdent -> Int -> String -seqSemname pre nt con 0 = semname pre nt con -seqSemname pre nt con nr = semname pre nt con ++ "_" ++ show nr - --- Gives the name of a type -typeName :: NontermIdent -> Int -> String -typeName nt 0 = "T_" ++ show nt -typeName nt n = "T_" ++ show nt ++ "_" ++ show n - -ntOfVisit :: NontermIdent -> Int -> NontermIdent -ntOfVisit nt 0 = nt -ntOfVisit nt n = Ident (show nt ++ "_" ++ show n) (getPos nt) - --- Gives the name of a visit function -visitname :: String -> NontermIdent -> Int -> String -visitname pre nt n = pre ++ getName nt ++ "_" ++ show n -{-# LINE 251 "../src-derived/GenerateCode.hs" #-} --- CGrammar ---------------------------------------------------- -{- - visit 0: - inherited attribute: - options : Options - synthesized attributes: - errors : Seq Error - output : Program - alternatives: - alternative CGrammar: - child typeSyns : {TypeSyns} - child derivings : {Derivings} - child wrappers : {Set NontermIdent} - child nonts : CNonterminals - child pragmas : {PragmaMap} - child paramMap : {ParamMap} - child contextMap : {ContextMap} - child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} - child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))} - child multivisit : {Bool} - visit 0: - local options : _ - local aroundMap : _ - local mergeMap : _ - local unfoldSemDom : _ --} --- cata -sem_CGrammar :: CGrammar -> - T_CGrammar -sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) = - (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) --- semantic domain -newtype T_CGrammar = T_CGrammar (Options -> - ( (Seq Error),Program)) -data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)} -data Syn_CGrammar = Syn_CGrammar {errors_Syn_CGrammar :: !((Seq Error)),output_Syn_CGrammar :: !(Program)} -wrap_CGrammar :: T_CGrammar -> - Inh_CGrammar -> - Syn_CGrammar -wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) = - (let ( _lhsOerrors,_lhsOoutput) = sem _lhsIoptions - in (Syn_CGrammar _lhsOerrors _lhsOoutput )) -sem_CGrammar_CGrammar :: TypeSyns -> - Derivings -> - (Set NontermIdent) -> - T_CNonterminals -> - PragmaMap -> - ParamMap -> - ContextMap -> - (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> - (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) -> - Bool -> - T_CGrammar -sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ mergeMap_ multivisit_ = - (T_CGrammar (\ _lhsIoptions -> - (let _nontsOo_sig :: Bool - _nontsOo_cata :: Bool - _nontsOo_sem :: Bool - _nontsOo_newtypes :: Bool - _nontsOo_unbox :: Bool - _nontsOo_case :: Bool - _nontsOo_pretty :: Bool - _nontsOo_rename :: Bool - _nontsOo_strictwrap :: Bool - _nontsOo_splitsems :: Bool - _nontsOo_data :: (Maybe Bool) - _nontsOprefix :: String - _nontsOo_traces :: Bool - _nontsOo_costcentre :: Bool - _nontsOo_linePragmas :: Bool - _nontsOo_monadic :: Bool - _nontsOallPragmas :: PragmaMap - _nontsOparamMap :: ParamMap - _nontsOcontextMap :: ContextMap - _nontsOallNts :: (Set NontermIdent) - _nontsOwith_sig :: Bool - _lhsOerrors :: (Seq Error) - _lhsOoutput :: Program - _nontsOtypeSyns :: TypeSyns - _nontsOderivings :: Derivings - _nontsOwrappers :: (Set NontermIdent) - _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) - _nontsOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) - _nontsOoptions :: Options - _nontsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _nontsIchunks :: Chunks - _nontsIgathNts :: (Set NontermIdent) - _nontsIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_sig = - ({-# LINE 53 "GenerateCode.ag" #-} - typeSigs _lhsIoptions - {-# LINE 344 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_cata = - ({-# LINE 54 "GenerateCode.ag" #-} - folds _lhsIoptions - {-# LINE 350 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_sem = - ({-# LINE 55 "GenerateCode.ag" #-} - semfuns _lhsIoptions - {-# LINE 356 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_newtypes = - ({-# LINE 56 "GenerateCode.ag" #-} - newtypes _lhsIoptions - {-# LINE 362 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_unbox = - ({-# LINE 57 "GenerateCode.ag" #-} - unbox _lhsIoptions - {-# LINE 368 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_case = - ({-# LINE 58 "GenerateCode.ag" #-} - cases _lhsIoptions - {-# LINE 374 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_pretty = - ({-# LINE 59 "GenerateCode.ag" #-} - attrInfo _lhsIoptions - {-# LINE 380 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_rename = - ({-# LINE 60 "GenerateCode.ag" #-} - rename _lhsIoptions - {-# LINE 386 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_strictwrap = - ({-# LINE 61 "GenerateCode.ag" #-} - strictWrap _lhsIoptions - {-# LINE 392 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_splitsems = - ({-# LINE 62 "GenerateCode.ag" #-} - splitSems _lhsIoptions - {-# LINE 398 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_data = - ({-# LINE 63 "GenerateCode.ag" #-} - if dataTypes _lhsIoptions then Just (strictData _lhsIoptions) else Nothing - {-# LINE 404 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOprefix = - ({-# LINE 64 "GenerateCode.ag" #-} - prefix _lhsIoptions - {-# LINE 410 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_traces = - ({-# LINE 65 "GenerateCode.ag" #-} - genTraces _lhsIoptions - {-# LINE 416 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_costcentre = - ({-# LINE 66 "GenerateCode.ag" #-} - genCostCentres _lhsIoptions - {-# LINE 422 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_linePragmas = - ({-# LINE 67 "GenerateCode.ag" #-} - genLinePragmas _lhsIoptions - {-# LINE 428 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 53, column 17) - _nontsOo_monadic = - ({-# LINE 68 "GenerateCode.ag" #-} - monadic _lhsIoptions - {-# LINE 434 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 71, column 3) - _options = - ({-# LINE 71 "GenerateCode.ag" #-} - _lhsIoptions { breadthFirst = breadthFirst _lhsIoptions && visit _lhsIoptions && cases _lhsIoptions && multivisit_ } - {-# LINE 440 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 76, column 15) - _nontsOallPragmas = - ({-# LINE 76 "GenerateCode.ag" #-} - pragmas_ - {-# LINE 446 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 98, column 14) - _nontsOparamMap = - ({-# LINE 98 "GenerateCode.ag" #-} - paramMap_ - {-# LINE 452 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 119, column 7) - _nontsOcontextMap = - ({-# LINE 119 "GenerateCode.ag" #-} - contextMap_ - {-# LINE 458 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 131, column 7) - _nontsOallNts = - ({-# LINE 131 "GenerateCode.ag" #-} - _nontsIgathNts - {-# LINE 464 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 574, column 34) - _aroundMap = - ({-# LINE 574 "GenerateCode.ag" #-} - aroundsMap_ - {-# LINE 470 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 590, column 34) - _mergeMap = - ({-# LINE 590 "GenerateCode.ag" #-} - mergeMap_ - {-# LINE 476 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 746, column 7) - _unfoldSemDom = - ({-# LINE 746 "GenerateCode.ag" #-} - \nt nr repl -> - let (params, tp) = Map.findWithDefault (error ("No such semantic domain: " ++ show nt)) (nt, nr) _nontsIsemDomUnfoldGath - replMap = Map.fromList (zip params repl) - replace k = Map.findWithDefault ('@':k) k replMap - in evalType replace tp - {-# LINE 486 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 847, column 14) - _nontsOwith_sig = - ({-# LINE 847 "GenerateCode.ag" #-} - typeSigs _lhsIoptions - {-# LINE 492 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 850, column 15) - _lhsOerrors = - ({-# LINE 850 "GenerateCode.ag" #-} - Seq.empty - {-# LINE 498 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 915, column 17) - _lhsOoutput = - ({-# LINE 915 "GenerateCode.ag" #-} - Program _nontsIchunks multivisit_ - {-# LINE 504 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 980, column 14) - _nontsOtypeSyns = - ({-# LINE 980 "GenerateCode.ag" #-} - typeSyns_ - {-# LINE 510 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 980, column 14) - _nontsOderivings = - ({-# LINE 981 "GenerateCode.ag" #-} - derivings_ - {-# LINE 516 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 980, column 14) - _nontsOwrappers = - ({-# LINE 982 "GenerateCode.ag" #-} - wrappers_ - {-# LINE 522 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _nontsOaroundMap = - ({-# LINE 567 "GenerateCode.ag" #-} - _aroundMap - {-# LINE 528 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _nontsOmergeMap = - ({-# LINE 583 "GenerateCode.ag" #-} - _mergeMap - {-# LINE 534 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _nontsOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _options - {-# LINE 540 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _nontsOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _unfoldSemDom - {-# LINE 546 "GenerateCode.hs" #-} - ) - ( _nontsIchunks,_nontsIgathNts,_nontsIsemDomUnfoldGath) = - nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOoptions _nontsOparamMap _nontsOprefix _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers - in ( _lhsOerrors,_lhsOoutput))) ) --- CInterface -------------------------------------------------- -{- - visit 0: - inherited attributes: - inh : Attributes - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramMap : ParamMap - prefix : String - syn : Attributes - synthesized attributes: - comments : [String] - semDom : [Decl] - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - wrapDecls : Decls - alternatives: - alternative CInterface: - child seg : CSegments --} --- cata -sem_CInterface :: CInterface -> - T_CInterface -sem_CInterface (CInterface _seg ) = - (sem_CInterface_CInterface (sem_CSegments _seg ) ) --- semantic domain -newtype T_CInterface = T_CInterface (Attributes -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - ParamMap -> - String -> - Attributes -> - ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) -data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),options_Inh_CInterface :: !(Options),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)} -data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)} -wrap_CInterface :: T_CInterface -> - Inh_CInterface -> - Syn_CInterface -wrap_CInterface (T_CInterface sem ) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) = - (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn - in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) -sem_CInterface_CInterface :: T_CSegments -> - T_CInterface -sem_CInterface_CInterface (T_CSegments seg_ ) = - (T_CInterface (\ _lhsIinh - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _segOnr :: Int - _lhsOsemDom :: ([Decl]) - _lhsOcomments :: ([String]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - _segOinh :: Attributes - _segOnt :: NontermIdent - _segOo_case :: Bool - _segOo_cata :: Bool - _segOo_costcentre :: Bool - _segOo_data :: (Maybe Bool) - _segOo_linePragmas :: Bool - _segOo_monadic :: Bool - _segOo_newtypes :: Bool - _segOo_pretty :: Bool - _segOo_rename :: Bool - _segOo_sem :: Bool - _segOo_sig :: Bool - _segOo_splitsems :: Bool - _segOo_strictwrap :: Bool - _segOo_traces :: Bool - _segOo_unbox :: Bool - _segOoptions :: Options - _segOparamMap :: ParamMap - _segOprefix :: String - _segOsyn :: Attributes - _segIcomments :: ([String]) - _segIisNil :: Bool - _segIsemDom :: ([Decl]) - _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _segIwrapDecls :: Decls - -- "GenerateCode.ag"(line 277, column 17) - _segOnr = - ({-# LINE 277 "GenerateCode.ag" #-} - 0 - {-# LINE 680 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 704, column 18) - _lhsOsemDom = - ({-# LINE 704 "GenerateCode.ag" #-} - Comment "semantic domain" : _segIsemDom - {-# LINE 686 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - _segIcomments - {-# LINE 692 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 736, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 736 "GenerateCode.ag" #-} - _segIsemDomUnfoldGath - {-# LINE 698 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 822, column 52) - _lhsOwrapDecls = - ({-# LINE 822 "GenerateCode.ag" #-} - _segIwrapDecls - {-# LINE 704 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 710 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 716 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 722 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 728 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 734 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 740 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 746 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 752 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 758 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 764 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 770 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 776 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 782 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 788 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 794 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 800 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 806 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 812 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 818 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 824 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _segOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 830 "GenerateCode.hs" #-} - ) - ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) = - seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOoptions _segOparamMap _segOprefix _segOsyn - in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) --- CNonterminal ------------------------------------------------ -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) - contextMap : ContextMap - derivings : Derivings - mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramMap : ParamMap - prefix : String - typeSyns : TypeSyns - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - wrappers : Set NontermIdent - synthesized attributes: - chunks : Chunks - gathNts : Set NontermIdent - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - alternatives: - alternative CNonterminal: - child nt : {NontermIdent} - child params : {[Identifier]} - child inh : {Attributes} - child syn : {Attributes} - child prods : CProductions - child inter : CInterface - visit 0: - local _tup1 : {(Attributes,Attributes,NontermIdent)} - local _tup2 : {(Attributes,Attributes,NontermIdent)} - local aroundMap : _ - local mergeMap : _ - local semWrapper : _ - local comment : _ - local dataDef : _ - local genCata : _ - local cataFun : _ --} --- cata -sem_CNonterminal :: CNonterminal -> - T_CNonterminal -sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) = - (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) ) --- semantic domain -newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) -> - PragmaMap -> - (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> - ContextMap -> - Derivings -> - (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - ParamMap -> - String -> - TypeSyns -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - (Set NontermIdent) -> - ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) -data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),mergeMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),options_Inh_CNonterminal :: !(Options),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))} -data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))} -wrap_CNonterminal :: T_CNonterminal -> - Inh_CNonterminal -> - Syn_CNonterminal -wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = - (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers - in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath )) -sem_CNonterminal_CNonterminal :: NontermIdent -> - ([Identifier]) -> - Attributes -> - Attributes -> - T_CProductions -> - T_CInterface -> - T_CNonterminal -sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) = - (T_CNonterminal (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIderivings - _lhsImergeMap - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsItypeSyns - _lhsIunfoldSemDom - _lhsIwith_sig - _lhsIwrappers -> - (let __tup1 :: ((Attributes,Attributes,NontermIdent)) - _interOinh :: Attributes - _interOsyn :: Attributes - _interOnt :: NontermIdent - __tup2 :: ((Attributes,Attributes,NontermIdent)) - _prodsOinh :: Attributes - _prodsOsyn :: Attributes - _prodsOnt :: NontermIdent - _lhsOgathNts :: (Set NontermIdent) - _lhsOchunks :: Chunks - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _prodsOallNts :: (Set NontermIdent) - _prodsOallPragmas :: PragmaMap - _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier)) - _prodsOcontextMap :: ContextMap - _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) - _prodsOo_case :: Bool - _prodsOo_cata :: Bool - _prodsOo_costcentre :: Bool - _prodsOo_data :: (Maybe Bool) - _prodsOo_linePragmas :: Bool - _prodsOo_monadic :: Bool - _prodsOo_newtypes :: Bool - _prodsOo_pretty :: Bool - _prodsOo_rename :: Bool - _prodsOo_sem :: Bool - _prodsOo_sig :: Bool - _prodsOo_splitsems :: Bool - _prodsOo_strictwrap :: Bool - _prodsOo_traces :: Bool - _prodsOo_unbox :: Bool - _prodsOoptions :: Options - _prodsOparamMap :: ParamMap - _prodsOprefix :: String - _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _prodsOwith_sig :: Bool - _interOo_case :: Bool - _interOo_cata :: Bool - _interOo_costcentre :: Bool - _interOo_data :: (Maybe Bool) - _interOo_linePragmas :: Bool - _interOo_monadic :: Bool - _interOo_newtypes :: Bool - _interOo_pretty :: Bool - _interOo_rename :: Bool - _interOo_sem :: Bool - _interOo_sig :: Bool - _interOo_splitsems :: Bool - _interOo_strictwrap :: Bool - _interOo_traces :: Bool - _interOo_unbox :: Bool - _interOoptions :: Options - _interOparamMap :: ParamMap - _interOprefix :: String - _prodsIcataAlts :: Decls - _prodsIcomments :: ([String]) - _prodsIdataAlts :: DataAlts - _prodsIdecls :: Decls - _prodsIsemNames :: ([String]) - _interIcomments :: ([String]) - _interIsemDom :: ([Decl]) - _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _interIwrapDecls :: Decls - -- "GenerateCode.ag"(line 86, column 26) - __tup1 = - ({-# LINE 86 "GenerateCode.ag" #-} - (inh_,syn_,nt_) - {-# LINE 1036 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 86, column 26) - (_interOinh,_,_) = - ({-# LINE 86 "GenerateCode.ag" #-} - __tup1 - {-# LINE 1042 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 86, column 26) - (_,_interOsyn,_) = - ({-# LINE 86 "GenerateCode.ag" #-} - __tup1 - {-# LINE 1048 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 86, column 26) - (_,_,_interOnt) = - ({-# LINE 86 "GenerateCode.ag" #-} - __tup1 - {-# LINE 1054 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 87, column 25) - __tup2 = - ({-# LINE 87 "GenerateCode.ag" #-} - (inh_,syn_,nt_) - {-# LINE 1060 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 87, column 25) - (_prodsOinh,_,_) = - ({-# LINE 87 "GenerateCode.ag" #-} - __tup2 - {-# LINE 1066 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 87, column 25) - (_,_prodsOsyn,_) = - ({-# LINE 87 "GenerateCode.ag" #-} - __tup2 - {-# LINE 1072 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 87, column 25) - (_,_,_prodsOnt) = - ({-# LINE 87 "GenerateCode.ag" #-} - __tup2 - {-# LINE 1078 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 137, column 7) - _lhsOgathNts = - ({-# LINE 137 "GenerateCode.ag" #-} - Set.singleton nt_ - {-# LINE 1084 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 575, column 34) - _aroundMap = - ({-# LINE 575 "GenerateCode.ag" #-} - Map.findWithDefault Map.empty nt_ _lhsIaroundMap - {-# LINE 1090 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 591, column 34) - _mergeMap = - ({-# LINE 591 "GenerateCode.ag" #-} - Map.findWithDefault Map.empty nt_ _lhsImergeMap - {-# LINE 1096 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 796, column 18) - _semWrapper = - ({-# LINE 796 "GenerateCode.ag" #-} - let params' = map getName params_ - inhAttrs = Map.toList inh_ - synAttrs = Map.toList syn_ - inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ] - synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ] - var = "sem" - wrapNT = "wrap" ++ "_" ++ getName nt_ - inhNT = "Inh" ++ "_" ++ getName nt_ - synNT = "Syn" ++ "_" ++ getName nt_ - varPat = if _lhsIo_newtypes - then App (sdtype nt_) [SimpleExpr var] - else SimpleExpr var - evalTp | null params' = id - | otherwise = idEvalType - appParams nm = TypeApp (SimpleType nm) (map SimpleType params') - typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT)) - mkstrict = Named _lhsIo_strictwrap - mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' t | (f,t) <- attrs]] False [] - datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs] - in datas ++ [ typeSig - , Decl (Fun wrapNT [varPat, App inhNT inhVars]) - (Let _interIwrapDecls (App synNT synVars)) - Set.empty Set.empty - ] - {-# LINE 1125 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 857, column 18) - _comment = - ({-# LINE 857 "GenerateCode.ag" #-} - Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) ) - {-# LINE 1131 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 918, column 19) - _lhsOchunks = - ({-# LINE 918 "GenerateCode.ag" #-} - [ Chunk (getName nt_) - (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-')) - (if _lhsIo_pretty then [_comment ] else []) - (if isJust _lhsIo_data then [_dataDef ] else []) - (if _lhsIo_cata && _genCata then _cataFun else []) - (if _lhsIo_sig then _interIsemDom else []) - (if nt_ `Set.member` _lhsIwrappers then _semWrapper else []) - (if _lhsIo_sem then _prodsIdecls else []) - (if _lhsIo_sem then _prodsIsemNames else []) - ] - {-# LINE 1146 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 985, column 18) - _dataDef = - ({-# LINE 985 "GenerateCode.ag" #-} - let params' = map getName params_ - typeSyn tp = let theType = - case tp of - CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t - CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) - CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) - CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t - CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t - CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t - | (_,t) <- ts - ] - in Code.Type (getName nt_) params' (idEvalType theType) - derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings) - dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings - in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns - {-# LINE 1166 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1017, column 18) - _genCata = - ({-# LINE 1017 "GenerateCode.ag" #-} - not (nt_ `Set.member` nocatas _lhsIoptions) - {-# LINE 1172 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1018, column 18) - _cataFun = - ({-# LINE 1018 "GenerateCode.ag" #-} - let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_)) - evalTp | null params_ = id - | otherwise = idEvalType - tSig = TSig (cataname _lhsIprefix nt_) - (appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_)) - special typ = case typ of - CommonTypes.List tp -> - let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons")) - nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" )) - arg = SimpleExpr "list" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)") - _ -> arg - lhs = Fun (cataname _lhsIprefix nt_) [arg] - rhs = (App "Prelude.foldr" [cons,nil,rarg]) - in [Decl lhs rhs Set.empty Set.empty] - CommonTypes.Maybe tp -> - let just = semname _lhsIprefix nt_ (identifier "Just") - nothing = semname _lhsIprefix nt_ (identifier "Nothing" ) - arg = SimpleExpr "x" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [arg] - _ -> arg - lhs a = Fun (cataname _lhsIprefix nt_) [a] - in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty - ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty - ] - CommonTypes.Either tp1 tp2 -> - let left = semname _lhsIprefix nt_ (identifier "Left") - right = semname _lhsIprefix nt_ (identifier "Right" ) - arg = SimpleExpr "x" - rarg0 = case tp1 of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [arg] - _ -> arg - rarg1 = case tp2 of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [arg] - _ -> arg - lhs a = Fun (cataname _lhsIprefix nt_) [a] - in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty - ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty - ] - CommonTypes.Map _ tp -> - let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) - nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) - arg = SimpleExpr "m" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App "Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg] - _ -> arg - lhs = Fun (cataname _lhsIprefix nt_) [arg] - rhs = App "Map.foldWithKey" [entry,nil,rarg] - in [Decl lhs rhs Set.empty Set.empty] - CommonTypes.IntMap tp -> - let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) - nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) - arg = SimpleExpr "m" - rarg = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App "IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg] - _ -> arg - lhs = Fun (cataname _lhsIprefix nt_) [arg] - rhs = App "IntMap.foldWithKey" [entry,nil,rarg] - in [Decl lhs rhs Set.empty Set.empty] - CommonTypes.Tuple tps -> - let con = semname _lhsIprefix nt_ (identifier "Tuple") - tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps] - rargs = map rarg tps' - rarg (n, tp) = case tp of - NT t _ -> let t' = maybe t id (deforestedNt t) - in App (cataname _lhsIprefix t') [n] - _ -> n - lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')] - rhs = App con rargs - in [Decl lhs rhs Set.empty Set.empty] - in Comment "cata" : - (if _lhsIo_sig then [tSig] else []) ++ - maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns) - {-# LINE 1258 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 736, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 736 "GenerateCode.ag" #-} - _interIsemDomUnfoldGath - {-# LINE 1264 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 1270 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 1276 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _prodsOaroundMap = - ({-# LINE 570 "GenerateCode.ag" #-} - _aroundMap - {-# LINE 1282 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 1288 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _prodsOmergeMap = - ({-# LINE 586 "GenerateCode.ag" #-} - _mergeMap - {-# LINE 1294 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1300 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1306 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1312 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1318 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1324 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1330 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1336 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1342 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1348 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1354 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1360 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 1366 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 1372 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 1378 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 1384 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 1390 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 1396 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 1402 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 1408 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _prodsOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 1414 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1420 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1426 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1432 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1438 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1444 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1450 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1456 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1462 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1468 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1474 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1480 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 1486 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 1492 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 1498 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 1504 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 1510 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 1516 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _interOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 1522 "GenerateCode.hs" #-} - ) - ( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) = - prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOoptions _prodsOparamMap _prodsOprefix _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig - ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) = - inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOoptions _interOparamMap _interOprefix _interOsyn - in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) --- CNonterminals ----------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) - contextMap : ContextMap - derivings : Derivings - mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramMap : ParamMap - prefix : String - typeSyns : TypeSyns - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - wrappers : Set NontermIdent - synthesized attributes: - chunks : Chunks - gathNts : Set NontermIdent - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - alternatives: - alternative Cons: - child hd : CNonterminal - child tl : CNonterminals - alternative Nil: --} --- cata -sem_CNonterminals :: CNonterminals -> - T_CNonterminals -sem_CNonterminals list = - (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) ) --- semantic domain -newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) -> - PragmaMap -> - (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> - ContextMap -> - Derivings -> - (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - ParamMap -> - String -> - TypeSyns -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - (Set NontermIdent) -> - ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) -data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),mergeMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),options_Inh_CNonterminals :: !(Options),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))} -data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))} -wrap_CNonterminals :: T_CNonterminals -> - Inh_CNonterminals -> - Syn_CNonterminals -wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = - (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers - in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath )) -sem_CNonterminals_Cons :: T_CNonterminal -> - T_CNonterminals -> - T_CNonterminals -sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) = - (T_CNonterminals (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIderivings - _lhsImergeMap - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsItypeSyns - _lhsIunfoldSemDom - _lhsIwith_sig - _lhsIwrappers -> - (let _lhsOchunks :: Chunks - _lhsOgathNts :: (Set NontermIdent) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _hdOallNts :: (Set NontermIdent) - _hdOallPragmas :: PragmaMap - _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) - _hdOcontextMap :: ContextMap - _hdOderivings :: Derivings - _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOoptions :: Options - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOtypeSyns :: TypeSyns - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOwith_sig :: Bool - _hdOwrappers :: (Set NontermIdent) - _tlOallNts :: (Set NontermIdent) - _tlOallPragmas :: PragmaMap - _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) - _tlOcontextMap :: ContextMap - _tlOderivings :: Derivings - _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOoptions :: Options - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOtypeSyns :: TypeSyns - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOwith_sig :: Bool - _tlOwrappers :: (Set NontermIdent) - _hdIchunks :: Chunks - _hdIgathNts :: (Set NontermIdent) - _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _tlIchunks :: Chunks - _tlIgathNts :: (Set NontermIdent) - _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - -- use rule "GenerateCode.ag"(line 910, column 49) - _lhsOchunks = - ({-# LINE 910 "GenerateCode.ag" #-} - _hdIchunks ++ _tlIchunks - {-# LINE 1715 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 133, column 47) - _lhsOgathNts = - ({-# LINE 133 "GenerateCode.ag" #-} - _hdIgathNts `Set.union` _tlIgathNts - {-# LINE 1721 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 736, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 736 "GenerateCode.ag" #-} - _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath - {-# LINE 1727 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 1733 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 1739 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 567 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 1745 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 1751 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOderivings = - ({-# LINE 978 "GenerateCode.ag" #-} - _lhsIderivings - {-# LINE 1757 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOmergeMap = - ({-# LINE 583 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 1763 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1769 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1775 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1781 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1787 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1793 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1799 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1805 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1811 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1817 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1823 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1829 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 1835 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 1841 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 1847 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 1853 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 1859 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 1865 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 1871 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOtypeSyns = - ({-# LINE 978 "GenerateCode.ag" #-} - _lhsItypeSyns - {-# LINE 1877 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 1883 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 1889 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOwrappers = - ({-# LINE 978 "GenerateCode.ag" #-} - _lhsIwrappers - {-# LINE 1895 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 1901 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 1907 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 567 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 1913 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 1919 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOderivings = - ({-# LINE 978 "GenerateCode.ag" #-} - _lhsIderivings - {-# LINE 1925 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOmergeMap = - ({-# LINE 583 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 1931 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 1937 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 1943 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 1949 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 1955 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 1961 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 1967 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 1973 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 1979 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 1985 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 1991 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 1997 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 2003 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 2009 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 2015 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 2021 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 2027 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 2033 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 2039 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOtypeSyns = - ({-# LINE 978 "GenerateCode.ag" #-} - _lhsItypeSyns - {-# LINE 2045 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 2051 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 2057 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOwrappers = - ({-# LINE 978 "GenerateCode.ag" #-} - _lhsIwrappers - {-# LINE 2063 "GenerateCode.hs" #-} - ) - ( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) = - hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers - ( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) = - tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers - in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) -sem_CNonterminals_Nil :: T_CNonterminals -sem_CNonterminals_Nil = - (T_CNonterminals (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIderivings - _lhsImergeMap - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsItypeSyns - _lhsIunfoldSemDom - _lhsIwith_sig - _lhsIwrappers -> - (let _lhsOchunks :: Chunks - _lhsOgathNts :: (Set NontermIdent) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - -- use rule "GenerateCode.ag"(line 910, column 49) - _lhsOchunks = - ({-# LINE 910 "GenerateCode.ag" #-} - [] - {-# LINE 2107 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 133, column 47) - _lhsOgathNts = - ({-# LINE 133 "GenerateCode.ag" #-} - Set.empty - {-# LINE 2113 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 736, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 736 "GenerateCode.ag" #-} - Map.empty - {-# LINE 2119 "GenerateCode.hs" #-} - ) - in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) --- CProduction ------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map ConstructorIdent (Set Identifier) - contextMap : ContextMap - inh : Attributes - mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier])) - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramMap : ParamMap - prefix : String - syn : Attributes - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - synthesized attributes: - cataAlt : Decl - comments : [String] - dataAlt : DataAlt - decls : Decls - semNames : [String] - alternatives: - alternative CProduction: - child con : {ConstructorIdent} - child visits : CVisits - child children : {[(Identifier,Type,Maybe (Maybe Type))]} - child terminals : {[Identifier]} - visit 0: - local paramInstMap : _ - local aroundMap : _ - local mergeMap : _ - local firstOrderChildren : _ - local params : _ --} --- cata -sem_CProduction :: CProduction -> - T_CProduction -sem_CProduction (CProduction _con _visits _children _terminals ) = - (sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals ) --- semantic domain -newtype T_CProduction = T_CProduction ((Set NontermIdent) -> - PragmaMap -> - (Map ConstructorIdent (Set Identifier)) -> - ContextMap -> - Attributes -> - (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - ParamMap -> - String -> - Attributes -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - ( Decl,([String]),DataAlt,Decls,([String]))) -data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),mergeMap_Inh_CProduction :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),options_Inh_CProduction :: !(Options),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool)} -data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !(([String]))} -wrap_CProduction :: T_CProduction -> - Inh_CProduction -> - Syn_CProduction -wrap_CProduction (T_CProduction sem ) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = - (let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig - in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames )) -sem_CProduction_CProduction :: ConstructorIdent -> - T_CVisits -> - ([(Identifier,Type,Maybe (Maybe Type))]) -> - ([Identifier]) -> - T_CProduction -sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ = - (T_CProduction (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIinh - _lhsImergeMap - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _visitsOcon :: ConstructorIdent - _visitsOterminals :: ([Identifier]) - _visitsOvisitedSet :: (Set Identifier) - _visitsOnr :: Int - _visitsOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) - _visitsOinstVisitNrs :: (Map Identifier Int) - _lhsOcomments :: ([String]) - _lhsOdataAlt :: DataAlt - _lhsOcataAlt :: Decl - _lhsOdecls :: Decls - _lhsOsemNames :: ([String]) - _visitsOallNts :: (Set NontermIdent) - _visitsOallPragmas :: PragmaMap - _visitsOaroundMap :: (Set Identifier) - _visitsOcontextMap :: ContextMap - _visitsOinh :: Attributes - _visitsOmergeMap :: (Map Identifier (Identifier, [Identifier])) - _visitsOnt :: NontermIdent - _visitsOo_case :: Bool - _visitsOo_cata :: Bool - _visitsOo_costcentre :: Bool - _visitsOo_data :: (Maybe Bool) - _visitsOo_linePragmas :: Bool - _visitsOo_monadic :: Bool - _visitsOo_newtypes :: Bool - _visitsOo_pretty :: Bool - _visitsOo_rename :: Bool - _visitsOo_sem :: Bool - _visitsOo_sig :: Bool - _visitsOo_splitsems :: Bool - _visitsOo_strictwrap :: Bool - _visitsOo_traces :: Bool - _visitsOo_unbox :: Bool - _visitsOoptions :: Options - _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _visitsOparamMap :: ParamMap - _visitsOprefix :: String - _visitsOsyn :: Attributes - _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _visitsOwith_sig :: Bool - _visitsIcomments :: ([String]) - _visitsIdecls :: Decls - _visitsIgatherInstVisitNrs :: (Map Identifier Int) - _visitsIintra :: Exprs - _visitsIintraVars :: (Set String) - _visitsIisNil :: Bool - _visitsIsemNames :: ([String]) - _visitsIvisitedSet :: (Set Identifier) - -- "GenerateCode.ag"(line 92, column 19) - _visitsOcon = - ({-# LINE 92 "GenerateCode.ag" #-} - con_ - {-# LINE 2302 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 93, column 20) - _visitsOterminals = - ({-# LINE 93 "GenerateCode.ag" #-} - terminals_ - {-# LINE 2308 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 105, column 7) - _paramInstMap = - ({-# LINE 105 "GenerateCode.ag" #-} - Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ] - {-# LINE 2314 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 141, column 32) - _visitsOvisitedSet = - ({-# LINE 141 "GenerateCode.ag" #-} - Set.empty - {-# LINE 2320 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 273, column 18) - _visitsOnr = - ({-# LINE 273 "GenerateCode.ag" #-} - 0 - {-# LINE 2326 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 414, column 18) - _visitsOchildren = - ({-# LINE 414 "GenerateCode.ag" #-} - children_ - {-# LINE 2332 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 556, column 7) - _visitsOinstVisitNrs = - ({-# LINE 556 "GenerateCode.ag" #-} - _visitsIgatherInstVisitNrs - {-# LINE 2338 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 576, column 34) - _aroundMap = - ({-# LINE 576 "GenerateCode.ag" #-} - Map.findWithDefault Set.empty con_ _lhsIaroundMap - {-# LINE 2344 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 592, column 34) - _mergeMap = - ({-# LINE 592 "GenerateCode.ag" #-} - Map.findWithDefault Map.empty con_ _lhsImergeMap - {-# LINE 2350 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 872, column 18) - _firstOrderChildren = - ({-# LINE 872 "GenerateCode.ag" #-} - [ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ] - {-# LINE 2356 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 873, column 18) - _lhsOcomments = - ({-# LINE 873 "GenerateCode.ag" #-} - ("alternative " ++ getName con_ ++ ":") - : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren - ++ _visitsIcomments - ) - {-# LINE 2365 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1009, column 17) - _params = - ({-# LINE 1009 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 2371 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1010, column 17) - _lhsOdataAlt = - ({-# LINE 1010 "GenerateCode.ag" #-} - DataAlt (conname _lhsIo_rename _lhsInt con_) (map (\(_,t,_) -> typeToCodeType (Just _lhsInt) _params t) _firstOrderChildren ) - {-# LINE 2377 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1110, column 17) - _lhsOcataAlt = - ({-# LINE 1110 "GenerateCode.ag" #-} - let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat] - lhs_pat = App (conname _lhsIo_rename _lhsInt con_) - (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren ) - rhs = App (semname _lhsIprefix _lhsInt con_) - (map argument _firstOrderChildren ) - argument (nm,NT tp _,_) = let tp' = maybe tp id (deforestedNt tp) - in App (cataname _lhsIprefix tp') - [SimpleExpr (locname nm)] - argument (nm, _,_) = SimpleExpr (locname nm) - in Decl lhs rhs Set.empty Set.empty - {-# LINE 2392 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 911, column 44) - _lhsOdecls = - ({-# LINE 911 "GenerateCode.ag" #-} - _visitsIdecls - {-# LINE 2398 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 1126, column 61) - _lhsOsemNames = - ({-# LINE 1126 "GenerateCode.ag" #-} - _visitsIsemNames - {-# LINE 2404 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 2410 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 2416 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _visitsOaroundMap = - ({-# LINE 572 "GenerateCode.ag" #-} - _aroundMap - {-# LINE 2422 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 2428 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 2434 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _visitsOmergeMap = - ({-# LINE 588 "GenerateCode.ag" #-} - _mergeMap - {-# LINE 2440 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 2446 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 2452 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 2458 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 2464 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 2470 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 2476 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 2482 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 2488 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 2494 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 2500 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 2506 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 2512 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 2518 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 2524 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 2530 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 2536 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 2542 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _visitsOparamInstMap = - ({-# LINE 101 "GenerateCode.ag" #-} - _paramInstMap - {-# LINE 2548 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 2554 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 2560 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 2566 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 2572 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _visitsOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 2578 "GenerateCode.hs" #-} - ) - ( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames,_visitsIvisitedSet) = - visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOmergeMap _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOoptions _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOvisitedSet _visitsOwith_sig - in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))) ) --- CProductions ------------------------------------------------ -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Map ConstructorIdent (Set Identifier) - contextMap : ContextMap - inh : Attributes - mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier])) - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramMap : ParamMap - prefix : String - syn : Attributes - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - synthesized attributes: - cataAlts : Decls - comments : [String] - dataAlts : DataAlts - decls : Decls - semNames : [String] - alternatives: - alternative Cons: - child hd : CProduction - child tl : CProductions - alternative Nil: --} --- cata -sem_CProductions :: CProductions -> - T_CProductions -sem_CProductions list = - (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) ) --- semantic domain -newtype T_CProductions = T_CProductions ((Set NontermIdent) -> - PragmaMap -> - (Map ConstructorIdent (Set Identifier)) -> - ContextMap -> - Attributes -> - (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - ParamMap -> - String -> - Attributes -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - Bool -> - ( Decls,([String]),DataAlts,Decls,([String]))) -data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),mergeMap_Inh_CProductions :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),options_Inh_CProductions :: !(Options),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool)} -data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !(([String]))} -wrap_CProductions :: T_CProductions -> - Inh_CProductions -> - Syn_CProductions -wrap_CProductions (T_CProductions sem ) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = - (let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig - in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames )) -sem_CProductions_Cons :: T_CProduction -> - T_CProductions -> - T_CProductions -sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) = - (T_CProductions (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIinh - _lhsImergeMap - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _lhsOdataAlts :: DataAlts - _lhsOcataAlts :: Decls - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOsemNames :: ([String]) - _hdOallNts :: (Set NontermIdent) - _hdOallPragmas :: PragmaMap - _hdOaroundMap :: (Map ConstructorIdent (Set Identifier)) - _hdOcontextMap :: ContextMap - _hdOinh :: Attributes - _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOoptions :: Options - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOwith_sig :: Bool - _tlOallNts :: (Set NontermIdent) - _tlOallPragmas :: PragmaMap - _tlOaroundMap :: (Map ConstructorIdent (Set Identifier)) - _tlOcontextMap :: ContextMap - _tlOinh :: Attributes - _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOoptions :: Options - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOwith_sig :: Bool - _hdIcataAlt :: Decl - _hdIcomments :: ([String]) - _hdIdataAlt :: DataAlt - _hdIdecls :: Decls - _hdIsemNames :: ([String]) - _tlIcataAlts :: Decls - _tlIcomments :: ([String]) - _tlIdataAlts :: DataAlts - _tlIdecls :: Decls - _tlIsemNames :: ([String]) - -- "GenerateCode.ag"(line 1005, column 17) - _lhsOdataAlts = - ({-# LINE 1005 "GenerateCode.ag" #-} - _hdIdataAlt : _tlIdataAlts - {-# LINE 2777 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1106, column 10) - _lhsOcataAlts = - ({-# LINE 1106 "GenerateCode.ag" #-} - _hdIcataAlt : _tlIcataAlts - {-# LINE 2783 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 2789 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 911, column 44) - _lhsOdecls = - ({-# LINE 911 "GenerateCode.ag" #-} - _hdIdecls ++ _tlIdecls - {-# LINE 2795 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 1126, column 61) - _lhsOsemNames = - ({-# LINE 1126 "GenerateCode.ag" #-} - _hdIsemNames ++ _tlIsemNames - {-# LINE 2801 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 2807 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 2813 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 570 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 2819 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 2825 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 2831 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOmergeMap = - ({-# LINE 586 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 2837 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 2843 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 2849 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 2855 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 2861 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 2867 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 2873 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 2879 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 2885 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 2891 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 2897 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 2903 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 2909 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 2915 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 2921 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 2927 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 2933 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 2939 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 2945 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 2951 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 2957 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 2963 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 2969 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 2975 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 2981 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 570 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 2987 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 2993 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 2999 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOmergeMap = - ({-# LINE 586 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 3005 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 3011 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 3017 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 3023 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 3029 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 3035 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 3041 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 3047 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 3053 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 3059 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 3065 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 3071 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 3077 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 3083 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 3089 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 3095 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 3101 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 3107 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 3113 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 3119 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 3125 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 3131 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 3137 "GenerateCode.hs" #-} - ) - ( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) = - hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn _hdOunfoldSemDom _hdOwith_sig - ( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) = - tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn _tlOunfoldSemDom _tlOwith_sig - in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) ) -sem_CProductions_Nil :: T_CProductions -sem_CProductions_Nil = - (T_CProductions (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIcontextMap - _lhsIinh - _lhsImergeMap - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIunfoldSemDom - _lhsIwith_sig -> - (let _lhsOdataAlts :: DataAlts - _lhsOcataAlts :: Decls - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOsemNames :: ([String]) - -- "GenerateCode.ag"(line 1006, column 17) - _lhsOdataAlts = - ({-# LINE 1006 "GenerateCode.ag" #-} - [] - {-# LINE 3183 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1107, column 10) - _lhsOcataAlts = - ({-# LINE 1107 "GenerateCode.ag" #-} - [] - {-# LINE 3189 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - [] - {-# LINE 3195 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 911, column 44) - _lhsOdecls = - ({-# LINE 911 "GenerateCode.ag" #-} - [] - {-# LINE 3201 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 1126, column 61) - _lhsOsemNames = - ({-# LINE 1126 "GenerateCode.ag" #-} - [] - {-# LINE 3207 "GenerateCode.hs" #-} - ) - in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) ) --- CRule ------------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - aroundMap : Set Identifier - children : [(Identifier,Type,Maybe (Maybe Type))] - con : ConstructorIdent - inh : Attributes - instVisitNrs : Map Identifier Int - mergeMap : Map Identifier (Identifier, [Identifier]) - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - what : String - chained attributes: - declsAbove : [Decl] - visitedSet : Set Identifier - synthesized attributes: - allTpsFound : Bool - bldBlocksFun : DeclBlocks -> DeclBlocks - comments : [String] - decls : Decls - definedInsts : [Identifier] - exprs : Exprs - tSigs : [Decl] - tps : [Type] - usedVars : Set String - alternatives: - alternative CChildVisit: - child name : {Identifier} - child nt : {NontermIdent} - child nr : {Int} - child inh : {Attributes} - child syn : {Attributes} - child isLast : {Bool} - visit 0: - local visitedSet : _ - local costCentreDescr : _ - local addCostCentre : _ - local decls : _ - local isSuperfluousHigherOrderIntra : _ - local names : _ - local mkTp : _ - local definedTps : _ - local nextTp : _ - local orgParams : _ - local instParams : _ - local replParamMap : _ - local replace : _ - local evalTp : _ - alternative CRule: - child name : {Identifier} - child isIn : {Bool} - child hasCode : {Bool} - child nt : {NontermIdent} - child con : {ConstructorIdent} - child field : {Identifier} - child childnt : {Maybe NontermIdent} - child tp : {Maybe Type} - child pattern : Pattern - child rhs : {[String]} - child defines : {Map Int (Identifier,Identifier,Maybe Type)} - child owrt : {Bool} - child origin : {String} - child uses : {Set (Identifier, Identifier)} - child explicit : {Bool} - child mbNamed : {Maybe Identifier} - visit 0: - local instTypes : _ - local originComment : _ - local instDecls : _ - local patDescr : _ - local traceDescr : _ - local addTrace : _ - local costCentreDescr : _ - local addCostCentre : _ - local addLinePragma : _ - local decls : _ - local definedInsts : _ - local rulename : _ - local mkTp : _ - local orgParams : _ - local evalTp : _ - local _tup3 : {([Type],Bool)} --} --- cata -sem_CRule :: CRule -> - T_CRule -sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) = - (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast ) -sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) = - (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed ) --- semantic domain -newtype T_CRule = T_CRule ((Set NontermIdent) -> - (Set Identifier) -> - ([(Identifier,Type,Maybe (Maybe Type))]) -> - ConstructorIdent -> - ([Decl]) -> - Attributes -> - (Map Identifier Int) -> - (Map Identifier (Identifier, [Identifier])) -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - (Set Identifier) -> - String -> - ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier))) -data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),mergeMap_Inh_CRule :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),options_Inh_CRule :: !(Options),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CRule :: !((Set Identifier)),what_Inh_CRule :: !(String)} -data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String)),visitedSet_Syn_CRule :: !((Set Identifier))} -wrap_CRule :: T_CRule -> - Inh_CRule -> - Syn_CRule -wrap_CRule (T_CRule sem ) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) = - (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat - in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet )) -sem_CRule_CChildVisit :: Identifier -> - NontermIdent -> - Int -> - Attributes -> - Attributes -> - Bool -> - T_CRule -sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ = - (T_CRule (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIinh - _lhsIinstVisitNrs - _lhsImergeMap - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIvisitedSet - _lhsIwhat -> - (let _lhsOexprs :: Exprs - _lhsOusedVars :: (Set String) - _lhsOtSigs :: ([Decl]) - _lhsOtps :: ([Type]) - _lhsOdeclsAbove :: ([Decl]) - _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _lhsOvisitedSet :: (Set Identifier) - -- "GenerateCode.ag"(line 142, column 26) - _visitedSet = - ({-# LINE 142 "GenerateCode.ag" #-} - Set.insert name_ _lhsIvisitedSet - {-# LINE 3425 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 198, column 18) - _costCentreDescr = - ({-# LINE 198 "GenerateCode.ag" #-} - show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_ - {-# LINE 3431 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 199, column 18) - _addCostCentre = - ({-# LINE 199 "GenerateCode.ag" #-} - \v -> if _lhsIo_costcentre - then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v - else v - {-# LINE 3439 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 202, column 18) - _decls = - ({-# LINE 202 "GenerateCode.ag" #-} - let lhsVars = map (attrname True name_) (Map.keys syn_) - ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)] - rhsVars = map (attrname False name_) (Map.keys inh_) - unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else "" - tuple | isMerging = TupleLhs [locname name_ ++ "_comp"] - | otherwise = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars - rhs = _addCostCentre $ Code.InvokeExpr (typeName nt_ nr_) (SimpleExpr fun) (map SimpleExpr rhsVars) - isVirtual _ [] = False - isVirtual nm ((n,t,mb) : r) - | nm == n = isJust mb - | otherwise = isVirtual nm r - isMerged = name_ `Map.member` _lhsImergeMap - isMerging = name_ `elem` concatMap (\(_,cs) -> cs) (Map.elems _lhsImergeMap) - merges = [ (c,cs) | (c,(_,cs)) <- Map.assocs _lhsImergeMap, all (`Set.member` _visitedSet ) cs, name_ `elem` (c:cs) ] - baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren - then Ident (getName name_ ++ "_inst") (getPos name_) - else name_ - fun | nr_ == 0 && Set.member name_ _lhsIaroundMap - = locname name_ ++ "_around " ++ funname baseNm 0 - | otherwise = funname baseNm nr_ - outDecls | isMerged = [] - | otherwise = - if isMerging - then [mkDecl _lhsIo_monadic tuple rhs Set.empty Set.empty] - else [Resume _lhsIo_monadic (typeName nt_ nr_) tuple rhs] - outMerged | null merges || nr_ /= 0 = [] - | otherwise = let (c,cs) = head merges - tuple' = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars' - lhsVars' = map (attrname True c) (Map.keys syn_) - ++ if isLast_ then [] else [unwrap ++ funname c (nr_+1)] - rhsVars = [ locname c ++ "_comp" | c <- cs ] - fun = locname c ++ "_merge" - rhs' = App fun (map SimpleExpr rhsVars) - in [Resume _lhsIo_monadic (typeName nt_ nr_) tuple' rhs'] - in - (outDecls ++ outMerged) - {-# LINE 3480 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 320, column 7) - _isSuperfluousHigherOrderIntra = - ({-# LINE 320 "GenerateCode.ag" #-} - _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs - {-# LINE 3486 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 334, column 8) - _names = - ({-# LINE 334 "GenerateCode.ag" #-} - if _isSuperfluousHigherOrderIntra - then [] - else [funname name_ (nr_+1)] - {-# LINE 3494 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 338, column 8) - _lhsOexprs = - ({-# LINE 338 "GenerateCode.ag" #-} - let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id - addType expr | null _instParams = expr - | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams ) - in map (wrap . addType . SimpleExpr) _names - {-# LINE 3503 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 350, column 7) - _lhsOusedVars = - ({-# LINE 350 "GenerateCode.ag" #-} - Set.fromList _names - {-# LINE 3509 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 389, column 19) - _mkTp = - ({-# LINE 389 "GenerateCode.ag" #-} - _evalTp . typeToCodeType (Just nt_) _orgParams - {-# LINE 3515 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 390, column 19) - _definedTps = - ({-# LINE 390 "GenerateCode.ag" #-} - [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ] - {-# LINE 3521 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 391, column 19) - _nextTp = - ({-# LINE 391 "GenerateCode.ag" #-} - typeName nt_ (nr_+1) - {-# LINE 3527 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 392, column 19) - _lhsOtSigs = - ({-# LINE 392 "GenerateCode.ag" #-} - (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps - {-# LINE 3533 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 394, column 19) - _orgParams = - ({-# LINE 394 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] nt_ _lhsIparamMap - {-# LINE 3539 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 395, column 19) - _instParams = - ({-# LINE 395 "GenerateCode.ag" #-} - snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap - {-# LINE 3545 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 396, column 19) - _replParamMap = - ({-# LINE 396 "GenerateCode.ag" #-} - Map.fromList (zip _orgParams _instParams ) - {-# LINE 3551 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 397, column 19) - _replace = - ({-# LINE 397 "GenerateCode.ag" #-} - \k -> Map.findWithDefault k k _replParamMap - {-# LINE 3557 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 398, column 19) - _evalTp = - ({-# LINE 398 "GenerateCode.ag" #-} - if null _orgParams then id else evalType _replace - {-# LINE 3563 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 421, column 19) - _lhsOtps = - ({-# LINE 421 "GenerateCode.ag" #-} - if _isSuperfluousHigherOrderIntra - then [] - else [NT (ntOfVisit nt_ (nr_+1)) _instParams ] - {-# LINE 3571 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 610, column 7) - _lhsOdeclsAbove = - ({-# LINE 610 "GenerateCode.ag" #-} - [] - {-# LINE 3577 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 623, column 7) - _lhsObldBlocksFun = - ({-# LINE 623 "GenerateCode.ag" #-} - DeclBlock _lhsIdeclsAbove (head _decls ) - {-# LINE 3583 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 418, column 39) - _lhsOallTpsFound = - ({-# LINE 418 "GenerateCode.ag" #-} - True - {-# LINE 3589 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - [] - {-# LINE 3595 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 150, column 34) - _lhsOdecls = - ({-# LINE 150 "GenerateCode.ag" #-} - _decls - {-# LINE 3601 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - [] - {-# LINE 3607 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _lhsOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _visitedSet - {-# LINE 3613 "GenerateCode.hs" #-} - ) - in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) ) -sem_CRule_CRule :: Identifier -> - Bool -> - Bool -> - NontermIdent -> - ConstructorIdent -> - Identifier -> - (Maybe NontermIdent) -> - (Maybe Type) -> - T_Pattern -> - ([String]) -> - (Map Int (Identifier,Identifier,Maybe Type)) -> - Bool -> - String -> - (Set (Identifier, Identifier)) -> - Bool -> - (Maybe Identifier) -> - T_CRule -sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ = - (T_CRule (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIinh - _lhsIinstVisitNrs - _lhsImergeMap - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIvisitedSet - _lhsIwhat -> - (let _lhsOexprs :: Exprs - _lhsOusedVars :: (Set String) - _lhsOtSigs :: ([Decl]) - __tup3 :: (([Type],Bool)) - _lhsOtps :: ([Type]) - _lhsOallTpsFound :: Bool - _lhsOdeclsAbove :: ([Decl]) - _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _lhsOvisitedSet :: (Set Identifier) - _patternIcopy :: Pattern - _patternIdefinedInsts :: ([Identifier]) - _patternIpatternAttributes :: ([(Identifier, Identifier)]) - -- "GenerateCode.ag"(line 152, column 12) - _instTypes = - ({-# LINE 152 "GenerateCode.ag" #-} - [ (n, (t, mb)) | (n, NT t _, mb) <- _lhsIchildren ] - {-# LINE 3687 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 153, column 12) - _originComment = - ({-# LINE 153 "GenerateCode.ag" #-} - if _lhsIo_pretty - then (Comment origin_:) - else id - {-# LINE 3695 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 156, column 12) - _instDecls = - ({-# LINE 156 "GenerateCode.ag" #-} - [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst)) [])) - ( let (nm,mb) = fromJust $ inst `lookup` _instTypes - in unwrapSem _lhsIo_newtypes (maybe nm id (deforestedNt nm)) - $ case mb of - Just (Just tp') -> App instLocFieldName [SimpleExpr $ fieldname inst] - _ -> - case nm `Set.member` _lhsIallNts of - True -> App (cataname _lhsIprefix nm) - [SimpleExpr instLocFieldName] - False -> SimpleExpr instLocFieldName - ) - (Set.singleton instSemFieldName) - (Set.singleton instLocFieldName) - | inst <- _definedInsts - , let instLocFieldName = attrname True _INST inst - instSemFieldName = attrname False _INST' inst - ] - {-# LINE 3717 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 173, column 12) - _patDescr = - ({-# LINE 173 "GenerateCode.ag" #-} - if isIn_ - then "_" - else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes) - {-# LINE 3725 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 176, column 12) - _traceDescr = - ({-# LINE 176 "GenerateCode.ag" #-} - (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr - {-# LINE 3731 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 178, column 12) - _addTrace = - ({-# LINE 178 "GenerateCode.ag" #-} - \v -> if _lhsIo_traces - then Trace _traceDescr v - else v - {-# LINE 3739 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 181, column 12) - _costCentreDescr = - ({-# LINE 181 "GenerateCode.ag" #-} - show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr - {-# LINE 3745 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 182, column 12) - _addCostCentre = - ({-# LINE 182 "GenerateCode.ag" #-} - \v -> if _lhsIo_costcentre - then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v - else v - {-# LINE 3753 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 185, column 12) - _addLinePragma = - ({-# LINE 185 "GenerateCode.ag" #-} - \v -> let p = getPos name_ - hasPos = line p > 0 && column p >= 0 && not (null (file p)) - in if _lhsIo_linePragmas && hasPos - then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p)) - $ LineExpr - $ v - else v - {-# LINE 3765 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 192, column 12) - _decls = - ({-# LINE 192 "GenerateCode.ag" #-} - if hasCode_ - then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_)) - (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_]) - (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_]) - : _instDecls ) - else _instDecls - {-# LINE 3776 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 259, column 12) - _definedInsts = - ({-# LINE 259 "GenerateCode.ag" #-} - if isIn_ then [] else _patternIdefinedInsts - {-# LINE 3782 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 329, column 12) - _rulename = - ({-# LINE 329 "GenerateCode.ag" #-} - if field_ == _LOC && name_ `elem` _lhsIterminals - then funname name_ 0 - else attrname isIn_ field_ name_ - {-# LINE 3790 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 332, column 12) - _lhsOexprs = - ({-# LINE 332 "GenerateCode.ag" #-} - [SimpleExpr _rulename ] - {-# LINE 3796 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 348, column 7) - _lhsOusedVars = - ({-# LINE 348 "GenerateCode.ag" #-} - Set.singleton _rulename - {-# LINE 3802 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 358, column 19) - _mkTp = - ({-# LINE 358 "GenerateCode.ag" #-} - typeToCodeType (Just _lhsInt) _orgParams - {-# LINE 3808 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 359, column 19) - _lhsOtSigs = - ({-# LINE 359 "GenerateCode.ag" #-} - [ TSig (attrname False field attr) tp' - | (field,attr,tp) <- Map.elems defines_, isJust tp - , let tp1 = _evalTp field $ _mkTp (fromJust tp) - tp' = case findOrigType attr _lhsIchildren of - Just tp' -> let tp'' = case tp' of - NT n params -> NT (Ident ("T_" ++ show n) (getPos n)) params - _ -> tp' - tp2 = _evalTp field $ _mkTp tp'' - in Arr tp2 tp1 - Nothing -> tp1 - findOrigType nm [] = Nothing - findOrigType nm ((n,_,mb) : r) - | nm == n = case mb of - Just (Just orig) -> Just orig - _ -> Nothing - | otherwise = findOrigType nm r - ] - {-# LINE 3830 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 377, column 19) - _orgParams = - ({-# LINE 377 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 3836 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 378, column 19) - _evalTp = - ({-# LINE 378 "GenerateCode.ag" #-} - \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap - (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap - replMap = Map.fromList (zip orgFldParams instParams) - replace k = Map.findWithDefault ('@':k) k replMap - in if null instParams - then if null _orgParams - then tp - else idEvalType tp - else evalType replace tp - {-# LINE 3850 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 420, column 23) - __tup3 = - ({-# LINE 420 "GenerateCode.ag" #-} - maybe ([],False) (\tp -> ([substSelf (fromJust childnt_) tp],True)) tp_ - {-# LINE 3856 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 420, column 23) - (_lhsOtps,_) = - ({-# LINE 420 "GenerateCode.ag" #-} - __tup3 - {-# LINE 3862 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 420, column 23) - (_,_lhsOallTpsFound) = - ({-# LINE 420 "GenerateCode.ag" #-} - __tup3 - {-# LINE 3868 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 608, column 7) - _lhsOdeclsAbove = - ({-# LINE 608 "GenerateCode.ag" #-} - _lhsIdeclsAbove ++ _decls - {-# LINE 3874 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 621, column 7) - _lhsObldBlocksFun = - ({-# LINE 621 "GenerateCode.ag" #-} - id - {-# LINE 3880 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 895, column 18) - _lhsOcomments = - ({-# LINE 895 "GenerateCode.ag" #-} - [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ] - ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ] - {-# LINE 3887 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 150, column 34) - _lhsOdecls = - ({-# LINE 150 "GenerateCode.ag" #-} - _decls - {-# LINE 3893 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - _definedInsts - {-# LINE 3899 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _lhsOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _lhsIvisitedSet - {-# LINE 3905 "GenerateCode.hs" #-} - ) - ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) = - pattern_ - in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) ) --- CSegment ---------------------------------------------------- -{- - visit 0: - inherited attributes: - inh : Attributes - isLast : Bool - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramMap : ParamMap - prefix : String - syn : Attributes - synthesized attributes: - comments : [String] - semDom : [Decl] - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - wrapDecls : Decls - alternatives: - alternative CSegment: - child inh : {Attributes} - child syn : {Attributes} - visit 0: - local altSemForm : _ - local tp : _ - local inhTps : _ - local inhTup : _ - local synTps : _ - local curTypeName : _ - local nextTypeName : _ - local indexName : _ - local dataIndex : _ - local indexExpr : _ - local indexStr : _ - local inhInstance : _ - local synInstance : _ - local continuation : _ - local params : _ --} --- cata -sem_CSegment :: CSegment -> - T_CSegment -sem_CSegment (CSegment _inh _syn ) = - (sem_CSegment_CSegment _inh _syn ) --- semantic domain -newtype T_CSegment = T_CSegment (Attributes -> - Bool -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - ParamMap -> - String -> - Attributes -> - ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) -data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),options_Inh_CSegment :: !(Options),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)} -data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)} -wrap_CSegment :: T_CSegment -> - Inh_CSegment -> - Syn_CSegment -wrap_CSegment (T_CSegment sem ) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) = - (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn - in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) -sem_CSegment_CSegment :: Attributes -> - Attributes -> - T_CSegment -sem_CSegment_CSegment inh_ syn_ = - (T_CSegment (\ _lhsIinh - _lhsIisLast - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _lhsOsemDom :: ([Decl]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - _lhsOcomments :: ([String]) - -- "GenerateCode.ag"(line 707, column 15) - _altSemForm = - ({-# LINE 707 "GenerateCode.ag" #-} - breadthFirst _lhsIoptions - {-# LINE 4036 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 708, column 15) - _tp = - ({-# LINE 708 "GenerateCode.ag" #-} - if _altSemForm - then TypeApp (SimpleType "Child") [SimpleType "EvalInfo", _indexExpr ] - else foldr Arr _synTps _inhTps - {-# LINE 4044 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 711, column 15) - _inhTps = - ({-# LINE 711 "GenerateCode.ag" #-} - [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_] - {-# LINE 4050 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 712, column 15) - _inhTup = - ({-# LINE 712 "GenerateCode.ag" #-} - mkTupleType _lhsIo_unbox (null _inhTps ) _inhTps - {-# LINE 4056 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 713, column 15) - _synTps = - ({-# LINE 713 "GenerateCode.ag" #-} - mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation ) - {-# LINE 4062 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 714, column 15) - _curTypeName = - ({-# LINE 714 "GenerateCode.ag" #-} - typeName _lhsInt _lhsInr - {-# LINE 4068 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 715, column 15) - _nextTypeName = - ({-# LINE 715 "GenerateCode.ag" #-} - typeName _lhsInt (_lhsInr + 1) - {-# LINE 4074 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 716, column 15) - _indexName = - ({-# LINE 716 "GenerateCode.ag" #-} - "I_" ++ _curTypeName - {-# LINE 4080 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 717, column 15) - _dataIndex = - ({-# LINE 717 "GenerateCode.ag" #-} - Code.Data _indexName _params [DataAlt _indexName []] False [] - {-# LINE 4086 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 718, column 15) - _indexExpr = - ({-# LINE 718 "GenerateCode.ag" #-} - TypeApp (SimpleType _indexName ) (map (SimpleType . ('@':)) _params ) - {-# LINE 4092 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 719, column 15) - _indexStr = - ({-# LINE 719 "GenerateCode.ag" #-} - "(" ++ _indexName ++ concatMap (\p -> " " ++ p) _params ++ ")" - {-# LINE 4098 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 720, column 15) - _inhInstance = - ({-# LINE 720 "GenerateCode.ag" #-} - Code.Data "instance Inh" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Inh") [_inhTup ] ] False [] - {-# LINE 4104 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 721, column 15) - _synInstance = - ({-# LINE 721 "GenerateCode.ag" #-} - Code.Data "instance Syn" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Syn") [_synTps ] ] False [] - {-# LINE 4110 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 722, column 15) - _continuation = - ({-# LINE 722 "GenerateCode.ag" #-} - if _lhsIisLast - then [] - else [TypeApp (SimpleType _nextTypeName ) (map (SimpleType . ('@':)) _params )] - {-# LINE 4118 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 725, column 15) - _params = - ({-# LINE 725 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 4124 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 726, column 15) - _lhsOsemDom = - ({-# LINE 726 "GenerateCode.ag" #-} - let name = typeName _lhsInt _lhsInr - evalTp | null _params = id - | otherwise = idEvalType - in ( if _lhsIo_newtypes - then [ Code.NewType name _params name (evalTp _tp ) ] - else [ Code.Type name _params (evalTp _tp ) ] ) - ++ ( if _altSemForm - then [_dataIndex , _inhInstance , _synInstance ] - else [] ) - {-# LINE 4138 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 740, column 7) - _lhsOsemDomUnfoldGath = - ({-# LINE 740 "GenerateCode.ag" #-} - Map.singleton (_lhsInt, _lhsInr) (_params , _tp ) - {-# LINE 4144 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 824, column 15) - _lhsOwrapDecls = - ({-# LINE 824 "GenerateCode.ag" #-} - let lhsVars = map (lhsname False) (Map.keys syn_) - ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)] - rhsVars = map (lhsname True) (Map.keys inh_) - rhs = map SimpleExpr rhsVars - unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else "" - var = "sem" - sem 0 = var - sem n = var ++ "_" ++ show n - ntt = typeName _lhsInt _lhsInr - in [ EvalDecl ntt (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (InvokeExpr ntt (SimpleExpr $ sem _lhsInr) rhs) ] - {-# LINE 4159 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 866, column 18) - _lhsOcomments = - ({-# LINE 866 "GenerateCode.ag" #-} - let body = map ind (showsSegment (CSegment inh_ syn_)) - in if null body - then [] - else ("visit " ++ show _lhsInr ++ ":") : body - {-# LINE 4168 "GenerateCode.hs" #-} - ) - in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) --- CSegments --------------------------------------------------- -{- - visit 0: - inherited attributes: - inh : Attributes - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramMap : ParamMap - prefix : String - syn : Attributes - synthesized attributes: - comments : [String] - isNil : Bool - semDom : [Decl] - semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) - wrapDecls : Decls - alternatives: - alternative Cons: - child hd : CSegment - child tl : CSegments - alternative Nil: --} --- cata -sem_CSegments :: CSegments -> - T_CSegments -sem_CSegments list = - (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) ) --- semantic domain -newtype T_CSegments = T_CSegments (Attributes -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - ParamMap -> - String -> - Attributes -> - ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) -data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),options_Inh_CSegments :: !(Options),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)} -data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)} -wrap_CSegments :: T_CSegments -> - Inh_CSegments -> - Syn_CSegments -wrap_CSegments (T_CSegments sem ) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) = - (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn - in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) -sem_CSegments_Cons :: T_CSegment -> - T_CSegments -> - T_CSegments -sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) = - (T_CSegments (\ _lhsIinh - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _tlOnr :: Int - _lhsOisNil :: Bool - _hdOisLast :: Bool - _lhsOcomments :: ([String]) - _lhsOsemDom :: ([Decl]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - _hdOinh :: Attributes - _hdOnr :: Int - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOoptions :: Options - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _tlOinh :: Attributes - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOoptions :: Options - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _hdIcomments :: ([String]) - _hdIsemDom :: ([Decl]) - _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _hdIwrapDecls :: Decls - _tlIcomments :: ([String]) - _tlIisNil :: Bool - _tlIsemDom :: ([Decl]) - _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _tlIwrapDecls :: Decls - -- "GenerateCode.ag"(line 279, column 11) - _tlOnr = - ({-# LINE 279 "GenerateCode.ag" #-} - _lhsInr + 1 - {-# LINE 4335 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 292, column 12) - _lhsOisNil = - ({-# LINE 292 "GenerateCode.ag" #-} - False - {-# LINE 4341 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 293, column 12) - _hdOisLast = - ({-# LINE 293 "GenerateCode.ag" #-} - _tlIisNil - {-# LINE 4347 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 4353 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 702, column 50) - _lhsOsemDom = - ({-# LINE 702 "GenerateCode.ag" #-} - _hdIsemDom ++ _tlIsemDom - {-# LINE 4359 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 736, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 736 "GenerateCode.ag" #-} - _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath - {-# LINE 4365 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 822, column 52) - _lhsOwrapDecls = - ({-# LINE 822 "GenerateCode.ag" #-} - _hdIwrapDecls ++ _tlIwrapDecls - {-# LINE 4371 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 4377 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOnr = - ({-# LINE 271 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 4383 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 4389 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 4395 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 4401 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 4407 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 4413 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 4419 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 4425 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 4431 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 4437 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 4443 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 4449 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 4455 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 4461 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 4467 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 4473 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 4479 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 4485 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 4491 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 4497 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 4503 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 4509 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 4515 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 4521 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 4527 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 4533 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 4539 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 4545 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 4551 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 4557 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 4563 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 4569 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 4575 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 4581 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 4587 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 4593 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 4599 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 4605 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 4611 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 4617 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 4623 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 4629 "GenerateCode.hs" #-} - ) - ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) = - hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn - ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) = - tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn - in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) -sem_CSegments_Nil :: T_CSegments -sem_CSegments_Nil = - (T_CSegments (\ _lhsIinh - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamMap - _lhsIprefix - _lhsIsyn -> - (let _lhsOisNil :: Bool - _lhsOcomments :: ([String]) - _lhsOsemDom :: ([Decl]) - _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) - _lhsOwrapDecls :: Decls - -- "GenerateCode.ag"(line 294, column 10) - _lhsOisNil = - ({-# LINE 294 "GenerateCode.ag" #-} - True - {-# LINE 4669 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - [] - {-# LINE 4675 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 702, column 50) - _lhsOsemDom = - ({-# LINE 702 "GenerateCode.ag" #-} - [] - {-# LINE 4681 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 736, column 86) - _lhsOsemDomUnfoldGath = - ({-# LINE 736 "GenerateCode.ag" #-} - Map.empty - {-# LINE 4687 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 822, column 52) - _lhsOwrapDecls = - ({-# LINE 822 "GenerateCode.ag" #-} - [] - {-# LINE 4693 "GenerateCode.hs" #-} - ) - in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) --- CVisit ------------------------------------------------------ -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Set Identifier - children : [(Identifier,Type, Maybe (Maybe Type))] - con : ConstructorIdent - contextMap : ContextMap - inh : Attributes - instVisitNrs : Map Identifier Int - isLast : Bool - mergeMap : Map Identifier (Identifier, [Identifier]) - nextIntra : Exprs - nextIntraVars : Set String - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - chained attributes: - decls : Decls - visitedSet : Set Identifier - synthesized attributes: - comments : [String] - gatherInstVisitNrs : Map Identifier Int - intra : Exprs - intraVars : Set String - semNames : [String] - alternatives: - alternative CVisit: - child inh : {Attributes} - child syn : {Attributes} - child vss : Sequence - child intra : Sequence - child ordered : {Bool} - visit 0: - local _tup4 : _ - local higherOrderChildren : _ - local firstOrderChildren : _ - local firstOrderOrig : _ - local funcname : _ - local nextVisitName : _ - local nextVisitDecl : _ - local decls : _ - local lastExprVars : _ - local _tup5 : _ - local blockFunDecls : _ - local blockFirstFunCall : _ - local costCentreDescr : _ - local addCostCentre : _ - local params : _ - local semFun : _ - local tsig : _ - local semType : _ - local typeSigs : _ - local o_do : _ - local o_case : _ - local declsType : _ - local o_splitsems : _ --} --- cata -sem_CVisit :: CVisit -> - T_CVisit -sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) = - (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered ) --- semantic domain -newtype T_CVisit = T_CVisit ((Set NontermIdent) -> - PragmaMap -> - (Set Identifier) -> - ([(Identifier,Type, Maybe (Maybe Type))]) -> - ConstructorIdent -> - ContextMap -> - Decls -> - Attributes -> - (Map Identifier Int) -> - Bool -> - (Map Identifier (Identifier, [Identifier])) -> - Exprs -> - (Set String) -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - (Set Identifier) -> - Bool -> - ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]),(Set Identifier))) -data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),mergeMap_Inh_CVisit :: !((Map Identifier (Identifier, [Identifier]))),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),options_Inh_CVisit :: !(Options),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisit :: !((Set Identifier)),with_sig_Inh_CVisit :: !(Bool)} -data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String])),visitedSet_Syn_CVisit :: !((Set Identifier))} -wrap_CVisit :: T_CVisit -> - Inh_CVisit -> - Syn_CVisit -wrap_CVisit (T_CVisit sem ) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) = - (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig - in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet )) -sem_CVisit_CVisit :: Attributes -> - Attributes -> - T_Sequence -> - T_Sequence -> - Bool -> - T_CVisit -sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ = - (T_CVisit (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIcontextMap - _lhsIdecls - _lhsIinh - _lhsIinstVisitNrs - _lhsIisLast - _lhsImergeMap - _lhsInextIntra - _lhsInextIntraVars - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIvisitedSet - _lhsIwith_sig -> - (let _lhsOintra :: Exprs - _lhsOintraVars :: (Set String) - _vssOlastExpr :: Expr - _intraOlastExpr :: Expr - _lhsOdecls :: Decls - _lhsOgatherInstVisitNrs :: (Map Identifier Int) - _vssOdeclsAbove :: ([Decl]) - _intraOdeclsAbove :: ([Decl]) - _lhsOcomments :: ([String]) - _vssOwhat :: String - _intraOwhat :: String - _lhsOsemNames :: ([String]) - _lhsOvisitedSet :: (Set Identifier) - _vssOallNts :: (Set NontermIdent) - _vssOaroundMap :: (Set Identifier) - _vssOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) - _vssOcon :: ConstructorIdent - _vssOinh :: Attributes - _vssOinstVisitNrs :: (Map Identifier Int) - _vssOmergeMap :: (Map Identifier (Identifier, [Identifier])) - _vssOnr :: Int - _vssOnt :: NontermIdent - _vssOo_case :: Bool - _vssOo_cata :: Bool - _vssOo_costcentre :: Bool - _vssOo_data :: (Maybe Bool) - _vssOo_linePragmas :: Bool - _vssOo_monadic :: Bool - _vssOo_newtypes :: Bool - _vssOo_pretty :: Bool - _vssOo_rename :: Bool - _vssOo_sem :: Bool - _vssOo_sig :: Bool - _vssOo_splitsems :: Bool - _vssOo_strictwrap :: Bool - _vssOo_traces :: Bool - _vssOo_unbox :: Bool - _vssOoptions :: Options - _vssOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _vssOparamMap :: ParamMap - _vssOprefix :: String - _vssOsyn :: Attributes - _vssOterminals :: ([Identifier]) - _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _vssOvisitedSet :: (Set Identifier) - _intraOallNts :: (Set NontermIdent) - _intraOaroundMap :: (Set Identifier) - _intraOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) - _intraOcon :: ConstructorIdent - _intraOinh :: Attributes - _intraOinstVisitNrs :: (Map Identifier Int) - _intraOmergeMap :: (Map Identifier (Identifier, [Identifier])) - _intraOnr :: Int - _intraOnt :: NontermIdent - _intraOo_case :: Bool - _intraOo_cata :: Bool - _intraOo_costcentre :: Bool - _intraOo_data :: (Maybe Bool) - _intraOo_linePragmas :: Bool - _intraOo_monadic :: Bool - _intraOo_newtypes :: Bool - _intraOo_pretty :: Bool - _intraOo_rename :: Bool - _intraOo_sem :: Bool - _intraOo_sig :: Bool - _intraOo_splitsems :: Bool - _intraOo_strictwrap :: Bool - _intraOo_traces :: Bool - _intraOo_unbox :: Bool - _intraOoptions :: Options - _intraOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _intraOparamMap :: ParamMap - _intraOprefix :: String - _intraOsyn :: Attributes - _intraOterminals :: ([Identifier]) - _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _intraOvisitedSet :: (Set Identifier) - _vssIallTpsFound :: Bool - _vssIblockDecls :: DeclBlocks - _vssIcomments :: ([String]) - _vssIdecls :: Decls - _vssIdeclsAbove :: ([Decl]) - _vssIdefinedInsts :: ([Identifier]) - _vssIexprs :: Exprs - _vssItSigs :: ([Decl]) - _vssItps :: ([Type]) - _vssIusedVars :: (Set String) - _vssIvisitedSet :: (Set Identifier) - _intraIallTpsFound :: Bool - _intraIblockDecls :: DeclBlocks - _intraIcomments :: ([String]) - _intraIdecls :: Decls - _intraIdeclsAbove :: ([Decl]) - _intraIdefinedInsts :: ([Identifier]) - _intraIexprs :: Exprs - _intraItSigs :: ([Decl]) - _intraItps :: ([Type]) - _intraIusedVars :: (Set String) - _intraIvisitedSet :: (Set Identifier) - -- "GenerateCode.ag"(line 303, column 13) - _lhsOintra = - ({-# LINE 303 "GenerateCode.ag" #-} - _intraIexprs - {-# LINE 4981 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 304, column 13) - _lhsOintraVars = - ({-# LINE 304 "GenerateCode.ag" #-} - _intraIusedVars - {-# LINE 4987 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 443, column 13) - __tup4 = - ({-# LINE 443 "GenerateCode.ag" #-} - partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren - {-# LINE 4993 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 443, column 13) - (_higherOrderChildren,_) = - ({-# LINE 443 "GenerateCode.ag" #-} - __tup4 - {-# LINE 4999 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 443, column 13) - (_,_firstOrderChildren) = - ({-# LINE 443 "GenerateCode.ag" #-} - __tup4 - {-# LINE 5005 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 444, column 13) - _firstOrderOrig = - ({-# LINE 444 "GenerateCode.ag" #-} - map pickOrigType _firstOrderChildren - {-# LINE 5011 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 445, column 13) - _funcname = - ({-# LINE 445 "GenerateCode.ag" #-} - seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr - {-# LINE 5017 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 446, column 13) - _nextVisitName = - ({-# LINE 446 "GenerateCode.ag" #-} - if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)] - {-# LINE 5023 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 447, column 13) - _nextVisitDecl = - ({-# LINE 447 "GenerateCode.ag" #-} - let lhs = TupleLhs _nextVisitName - rhs = Let _lhsIdecls (SimpleExpr fun) - fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1) - in if _lhsIisLast - then [] - else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars] - {-# LINE 5034 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 454, column 13) - _decls = - ({-# LINE 454 "GenerateCode.ag" #-} - _typeSigs ++ _vssIdecls ++ _nextVisitDecl - {-# LINE 5040 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 455, column 13) - _vssOlastExpr = - ({-# LINE 455 "GenerateCode.ag" #-} - mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName - {-# LINE 5046 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 456, column 13) - _intraOlastExpr = - ({-# LINE 456 "GenerateCode.ag" #-} - error "lastExpr: not used here" - {-# LINE 5052 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 457, column 13) - _lastExprVars = - ({-# LINE 457 "GenerateCode.ag" #-} - map (lhsname False) (Map.keys syn_) ++ _nextVisitName - {-# LINE 5058 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 458, column 13) - __tup5 = - ({-# LINE 458 "GenerateCode.ag" #-} - mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls - {-# LINE 5064 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 458, column 13) - (_blockFunDecls,_) = - ({-# LINE 458 "GenerateCode.ag" #-} - __tup5 - {-# LINE 5070 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 458, column 13) - (_,_blockFirstFunCall) = - ({-# LINE 458 "GenerateCode.ag" #-} - __tup5 - {-# LINE 5076 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 460, column 13) - _costCentreDescr = - ({-# LINE 460 "GenerateCode.ag" #-} - "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr - {-# LINE 5082 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 461, column 13) - _addCostCentre = - ({-# LINE 461 "GenerateCode.ag" #-} - \v -> if _lhsIo_costcentre - then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v - else v - {-# LINE 5090 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 465, column 13) - _params = - ({-# LINE 465 "GenerateCode.ag" #-} - map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap - {-# LINE 5096 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 466, column 13) - _semFun = - ({-# LINE 466 "GenerateCode.ag" #-} - let lhs = Fun _funcname lhs_args - lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else [] - field (name,NT tp tps,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x] - | otherwise = id - addType expr | null tps = expr - | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps) - in unwrap $ addType $ SimpleExpr $ funname name 0 - field (name,tp,_) = let expr = SimpleExpr (funname name 0) - in if null _params - then expr - else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params tp) - mbEvalTp | null _params = const Nothing - | otherwise = Just . idEvalType - rhs = wrap - . mkSemFun _lhsInt _lhsInr [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params tp) | (nm,tp) <- Map.assocs inh_] - $ _addCostCentre - $ if ordered_ && _o_splitsems - then _blockFirstFunCall - else mkDecls _declsType _decls - . ResultExpr (typeName _lhsInt _lhsInr) - . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) - $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName - wrap = if _lhsIo_newtypes - then \x -> App (typeName _lhsInt _lhsInr) [x] - else id - in Decl lhs rhs Set.empty Set.empty - {-# LINE 5127 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 497, column 13) - _tsig = - ({-# LINE 497 "GenerateCode.ag" #-} - TSig _funcname _semType - {-# LINE 5133 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 498, column 13) - _semType = - ({-# LINE 498 "GenerateCode.ag" #-} - let argType (NT tp tps) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r - | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps" - argType (Haskell tp) r = SimpleType tp `Arr` r - evalTp | null _params = id - | otherwise = idEvalType - in appContext _lhsIcontextMap _lhsInt $ evalTp $ - if _lhsInr == 0 - then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig ) - else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) [] - {-# LINE 5147 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 509, column 13) - _lhsOdecls = - ({-# LINE 509 "GenerateCode.ag" #-} - ( if _lhsIwith_sig - then [_tsig, _semFun] - else [_semFun] - ) ++ - ( if ordered_ && _o_splitsems - then _blockFunDecls - else [] - ) - {-# LINE 5160 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 517, column 13) - _typeSigs = - ({-# LINE 517 "GenerateCode.ag" #-} - if _lhsIo_sig && not _o_case - then _vssItSigs - else [] - {-# LINE 5168 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 520, column 13) - _o_do = - ({-# LINE 520 "GenerateCode.ag" #-} - ordered_ && _lhsIo_monadic - {-# LINE 5174 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 521, column 13) - _o_case = - ({-# LINE 521 "GenerateCode.ag" #-} - not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE) - {-# LINE 5180 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 522, column 13) - _declsType = - ({-# LINE 522 "GenerateCode.ag" #-} - if _o_do - then DeclsDo - else if _o_case - then DeclsCase - else DeclsLet - {-# LINE 5190 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 527, column 13) - _o_splitsems = - ({-# LINE 527 "GenerateCode.ag" #-} - ordered_ && _lhsIo_splitsems - {-# LINE 5196 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 560, column 7) - _lhsOgatherInstVisitNrs = - ({-# LINE 560 "GenerateCode.ag" #-} - Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts] - {-# LINE 5202 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 603, column 7) - _vssOdeclsAbove = - ({-# LINE 603 "GenerateCode.ag" #-} - [] - {-# LINE 5208 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 604, column 7) - _intraOdeclsAbove = - ({-# LINE 604 "GenerateCode.ag" #-} - error "declsAbove: not used here" - {-# LINE 5214 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 886, column 18) - _lhsOcomments = - ({-# LINE 886 "GenerateCode.ag" #-} - let body = map ind (_vssIcomments ++ _intraIcomments) - in if null body - then [] - else ("visit " ++ show _lhsInr ++ ":") : body - {-# LINE 5223 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 890, column 18) - _vssOwhat = - ({-# LINE 890 "GenerateCode.ag" #-} - "local" - {-# LINE 5229 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 891, column 18) - _intraOwhat = - ({-# LINE 891 "GenerateCode.ag" #-} - "intra" - {-# LINE 5235 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 1136, column 7) - _lhsOsemNames = - ({-# LINE 1136 "GenerateCode.ag" #-} - [_funcname ] - {-# LINE 5241 "GenerateCode.hs" #-} - ) - -- copy rule (up) - _lhsOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _intraIvisitedSet - {-# LINE 5247 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 5253 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOaroundMap = - ({-# LINE 572 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 5259 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOchildren = - ({-# LINE 252 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 5265 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOcon = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 5271 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 5277 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOinstVisitNrs = - ({-# LINE 552 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 5283 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOmergeMap = - ({-# LINE 588 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 5289 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOnr = - ({-# LINE 271 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 5295 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 5301 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _vssOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _o_case - {-# LINE 5307 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 5313 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 5319 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 5325 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 5331 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 5337 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 5343 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 5349 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 5355 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 5361 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 5367 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _vssOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _o_splitsems - {-# LINE 5373 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 5379 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 5385 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 5391 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 5397 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOparamInstMap = - ({-# LINE 101 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 5403 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 5409 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 5415 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 5421 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOterminals = - ({-# LINE 90 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 5427 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 5433 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _vssOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _lhsIvisitedSet - {-# LINE 5439 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 5445 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOaroundMap = - ({-# LINE 572 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 5451 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOchildren = - ({-# LINE 252 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 5457 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOcon = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 5463 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 5469 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOinstVisitNrs = - ({-# LINE 552 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 5475 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOmergeMap = - ({-# LINE 588 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 5481 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOnr = - ({-# LINE 271 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 5487 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 5493 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _intraOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _o_case - {-# LINE 5499 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 5505 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 5511 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 5517 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 5523 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 5529 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 5535 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 5541 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 5547 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 5553 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 5559 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _intraOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _o_splitsems - {-# LINE 5565 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 5571 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 5577 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 5583 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 5589 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOparamInstMap = - ({-# LINE 101 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 5595 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 5601 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 5607 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 5613 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOterminals = - ({-# LINE 90 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 5619 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _intraOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 5625 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _intraOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _vssIvisitedSet - {-# LINE 5631 "GenerateCode.hs" #-} - ) - ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars,_vssIvisitedSet) = - vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOmergeMap _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOoptions _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOvisitedSet _vssOwhat - ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars,_intraIvisitedSet) = - intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOmergeMap _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOoptions _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOvisitedSet _intraOwhat - in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet))) ) --- CVisits ----------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - allPragmas : PragmaMap - aroundMap : Set Identifier - children : [(Identifier,Type, Maybe (Maybe Type))] - con : ConstructorIdent - contextMap : ContextMap - inh : Attributes - instVisitNrs : Map Identifier Int - mergeMap : Map Identifier (Identifier, [Identifier]) - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - with_sig : Bool - chained attribute: - visitedSet : Set Identifier - synthesized attributes: - comments : [String] - decls : Decls - gatherInstVisitNrs : Map Identifier Int - intra : Exprs - intraVars : Set String - isNil : Bool - semNames : [String] - alternatives: - alternative Cons: - child hd : CVisit - child tl : CVisits - alternative Nil: --} --- cata -sem_CVisits :: CVisits -> - T_CVisits -sem_CVisits list = - (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) ) --- semantic domain -newtype T_CVisits = T_CVisits ((Set NontermIdent) -> - PragmaMap -> - (Set Identifier) -> - ([(Identifier,Type, Maybe (Maybe Type))]) -> - ConstructorIdent -> - ContextMap -> - Attributes -> - (Map Identifier Int) -> - (Map Identifier (Identifier, [Identifier])) -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - (Set Identifier) -> - Bool -> - ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]),(Set Identifier))) -data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),mergeMap_Inh_CVisits :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),options_Inh_CVisits :: !(Options),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisits :: !((Set Identifier)),with_sig_Inh_CVisits :: !(Bool)} -data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String])),visitedSet_Syn_CVisits :: !((Set Identifier))} -wrap_CVisits :: T_CVisits -> - Inh_CVisits -> - Syn_CVisits -wrap_CVisits (T_CVisits sem ) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) = - (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig - in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet )) -sem_CVisits_Cons :: T_CVisit -> - T_CVisits -> - T_CVisits -sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) = - (T_CVisits (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIcontextMap - _lhsIinh - _lhsIinstVisitNrs - _lhsImergeMap - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIvisitedSet - _lhsIwith_sig -> - (let _tlOnr :: Int - _lhsOisNil :: Bool - _hdOisLast :: Bool - _hdOnextIntra :: Exprs - _hdOnextIntraVars :: (Set String) - _lhsOintra :: Exprs - _lhsOintraVars :: (Set String) - _lhsOdecls :: Decls - _hdOdecls :: Decls - _lhsOcomments :: ([String]) - _lhsOgatherInstVisitNrs :: (Map Identifier Int) - _lhsOsemNames :: ([String]) - _lhsOvisitedSet :: (Set Identifier) - _hdOallNts :: (Set NontermIdent) - _hdOallPragmas :: PragmaMap - _hdOaroundMap :: (Set Identifier) - _hdOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) - _hdOcon :: ConstructorIdent - _hdOcontextMap :: ContextMap - _hdOinh :: Attributes - _hdOinstVisitNrs :: (Map Identifier Int) - _hdOmergeMap :: (Map Identifier (Identifier, [Identifier])) - _hdOnr :: Int - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOoptions :: Options - _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOterminals :: ([Identifier]) - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOvisitedSet :: (Set Identifier) - _hdOwith_sig :: Bool - _tlOallNts :: (Set NontermIdent) - _tlOallPragmas :: PragmaMap - _tlOaroundMap :: (Set Identifier) - _tlOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) - _tlOcon :: ConstructorIdent - _tlOcontextMap :: ContextMap - _tlOinh :: Attributes - _tlOinstVisitNrs :: (Map Identifier Int) - _tlOmergeMap :: (Map Identifier (Identifier, [Identifier])) - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOoptions :: Options - _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOterminals :: ([Identifier]) - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOvisitedSet :: (Set Identifier) - _tlOwith_sig :: Bool - _hdIcomments :: ([String]) - _hdIdecls :: Decls - _hdIgatherInstVisitNrs :: (Map Identifier Int) - _hdIintra :: Exprs - _hdIintraVars :: (Set String) - _hdIsemNames :: ([String]) - _hdIvisitedSet :: (Set Identifier) - _tlIcomments :: ([String]) - _tlIdecls :: Decls - _tlIgatherInstVisitNrs :: (Map Identifier Int) - _tlIintra :: Exprs - _tlIintraVars :: (Set String) - _tlIisNil :: Bool - _tlIsemNames :: ([String]) - _tlIvisitedSet :: (Set Identifier) - -- "GenerateCode.ag"(line 275, column 11) - _tlOnr = - ({-# LINE 275 "GenerateCode.ag" #-} - _lhsInr + 1 - {-# LINE 5882 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 288, column 12) - _lhsOisNil = - ({-# LINE 288 "GenerateCode.ag" #-} - False - {-# LINE 5888 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 289, column 12) - _hdOisLast = - ({-# LINE 289 "GenerateCode.ag" #-} - _tlIisNil - {-# LINE 5894 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 306, column 12) - _hdOnextIntra = - ({-# LINE 306 "GenerateCode.ag" #-} - _tlIintra - {-# LINE 5900 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 307, column 12) - _hdOnextIntraVars = - ({-# LINE 307 "GenerateCode.ag" #-} - _tlIintraVars - {-# LINE 5906 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 308, column 12) - _lhsOintra = - ({-# LINE 308 "GenerateCode.ag" #-} - _hdIintra - {-# LINE 5912 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 309, column 12) - _lhsOintraVars = - ({-# LINE 309 "GenerateCode.ag" #-} - _hdIintraVars - {-# LINE 5918 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 433, column 11) - _lhsOdecls = - ({-# LINE 433 "GenerateCode.ag" #-} - _hdIdecls - {-# LINE 5924 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 434, column 11) - _hdOdecls = - ({-# LINE 434 "GenerateCode.ag" #-} - _tlIdecls - {-# LINE 5930 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 5936 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 553, column 44) - _lhsOgatherInstVisitNrs = - ({-# LINE 553 "GenerateCode.ag" #-} - _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs - {-# LINE 5942 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 1126, column 61) - _lhsOsemNames = - ({-# LINE 1126 "GenerateCode.ag" #-} - _hdIsemNames ++ _tlIsemNames - {-# LINE 5948 "GenerateCode.hs" #-} - ) - -- copy rule (up) - _lhsOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _tlIvisitedSet - {-# LINE 5954 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 5960 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 5966 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 572 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 5972 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOchildren = - ({-# LINE 412 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 5978 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOcon = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 5984 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 5990 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 5996 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOinstVisitNrs = - ({-# LINE 552 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 6002 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOmergeMap = - ({-# LINE 588 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 6008 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOnr = - ({-# LINE 271 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 6014 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 6020 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 6026 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 6032 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 6038 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 6044 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 6050 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 6056 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 6062 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 6068 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 6074 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 6080 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 6086 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 6092 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 6098 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 6104 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 6110 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 6116 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOparamInstMap = - ({-# LINE 101 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 6122 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 6128 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 6134 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 6140 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOterminals = - ({-# LINE 90 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 6146 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 6152 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _lhsIvisitedSet - {-# LINE 6158 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 6164 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 6170 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOallPragmas = - ({-# LINE 73 "GenerateCode.ag" #-} - _lhsIallPragmas - {-# LINE 6176 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 572 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 6182 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOchildren = - ({-# LINE 412 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 6188 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOcon = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 6194 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOcontextMap = - ({-# LINE 115 "GenerateCode.ag" #-} - _lhsIcontextMap - {-# LINE 6200 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 6206 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOinstVisitNrs = - ({-# LINE 552 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 6212 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOmergeMap = - ({-# LINE 588 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 6218 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 6224 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 6230 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 6236 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 6242 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 6248 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 6254 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 6260 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 6266 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 6272 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 6278 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 6284 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 6290 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 6296 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 6302 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 6308 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 6314 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 6320 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOparamInstMap = - ({-# LINE 101 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 6326 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 6332 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 6338 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 6344 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOterminals = - ({-# LINE 90 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 6350 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 6356 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _tlOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _hdIvisitedSet - {-# LINE 6362 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOwith_sig = - ({-# LINE 844 "GenerateCode.ag" #-} - _lhsIwith_sig - {-# LINE 6368 "GenerateCode.hs" #-} - ) - ( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames,_hdIvisitedSet) = - hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOmergeMap _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwith_sig - ( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames,_tlIvisitedSet) = - tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwith_sig - in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) ) -sem_CVisits_Nil :: T_CVisits -sem_CVisits_Nil = - (T_CVisits (\ _lhsIallNts - _lhsIallPragmas - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIcontextMap - _lhsIinh - _lhsIinstVisitNrs - _lhsImergeMap - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIvisitedSet - _lhsIwith_sig -> - (let _lhsOisNil :: Bool - _lhsOintra :: Exprs - _lhsOintraVars :: (Set String) - _lhsOdecls :: Decls - _lhsOcomments :: ([String]) - _lhsOgatherInstVisitNrs :: (Map Identifier Int) - _lhsOsemNames :: ([String]) - _lhsOvisitedSet :: (Set Identifier) - -- "GenerateCode.ag"(line 290, column 10) - _lhsOisNil = - ({-# LINE 290 "GenerateCode.ag" #-} - True - {-# LINE 6424 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 310, column 10) - _lhsOintra = - ({-# LINE 310 "GenerateCode.ag" #-} - [] - {-# LINE 6430 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 311, column 10) - _lhsOintraVars = - ({-# LINE 311 "GenerateCode.ag" #-} - Set.empty - {-# LINE 6436 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 432, column 11) - _lhsOdecls = - ({-# LINE 432 "GenerateCode.ag" #-} - [] - {-# LINE 6442 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - [] - {-# LINE 6448 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 553, column 44) - _lhsOgatherInstVisitNrs = - ({-# LINE 553 "GenerateCode.ag" #-} - Map.empty - {-# LINE 6454 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 1126, column 61) - _lhsOsemNames = - ({-# LINE 1126 "GenerateCode.ag" #-} - [] - {-# LINE 6460 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _lhsOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _lhsIvisitedSet - {-# LINE 6466 "GenerateCode.hs" #-} - ) - in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) ) --- DeclBlocks -------------------------------------------------- -{- - visit 0: - inherited attributes: - blockNr : Int - lastExprVars : [String] - nextVisitDecls : [Decl] - optCase : Bool - prefix : String - synthesized attributes: - callExpr : Expr - decls : [Decl] - freeVars : [String] - alternatives: - alternative DeclBlock: - child defs : {[Decl]} - child visit : {Decl} - child next : DeclBlocks - visit 0: - local lambdaName : _ - local pragmaDecl : _ - local freeVars : _ - local decl : _ - alternative DeclTerminator: - child defs : {[Decl]} - child result : {Expr} - visit 0: - local lambdaName : _ - local pragmaDecl : _ - local freeVars : _ --} --- cata -sem_DeclBlocks :: DeclBlocks -> - T_DeclBlocks -sem_DeclBlocks (DeclBlock _defs _visit _next ) = - (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) ) -sem_DeclBlocks (DeclTerminator _defs _result ) = - (sem_DeclBlocks_DeclTerminator _defs _result ) --- semantic domain -newtype T_DeclBlocks = T_DeclBlocks (Int -> - ([String]) -> - ([Decl]) -> - Bool -> - String -> - ( Expr,([Decl]),([String]))) -data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)} -data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))} -wrap_DeclBlocks :: T_DeclBlocks -> - Inh_DeclBlocks -> - Syn_DeclBlocks -wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = - (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix - in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars )) -sem_DeclBlocks_DeclBlock :: ([Decl]) -> - Decl -> - T_DeclBlocks -> - T_DeclBlocks -sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) = - (T_DeclBlocks (\ _lhsIblockNr - _lhsIlastExprVars - _lhsInextVisitDecls - _lhsIoptCase - _lhsIprefix -> - (let _nextOblockNr :: Int - _lhsOcallExpr :: Expr - _lhsOdecls :: ([Decl]) - _lhsOfreeVars :: ([String]) - _nextOlastExprVars :: ([String]) - _nextOnextVisitDecls :: ([Decl]) - _nextOoptCase :: Bool - _nextOprefix :: String - _nextIcallExpr :: Expr - _nextIdecls :: ([Decl]) - _nextIfreeVars :: ([String]) - -- "GenerateCode.ag"(line 654, column 7) - _nextOblockNr = - ({-# LINE 654 "GenerateCode.ag" #-} - _lhsIblockNr + 1 - {-# LINE 6547 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 659, column 7) - _lambdaName = - ({-# LINE 659 "GenerateCode.ag" #-} - _lhsIprefix ++ "_block" ++ show _lhsIblockNr - {-# LINE 6553 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 660, column 7) - _pragmaDecl = - ({-# LINE 660 "GenerateCode.ag" #-} - PragmaDecl ("NOINLINE " ++ _lambdaName ) - {-# LINE 6559 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 661, column 7) - _lhsOcallExpr = - ({-# LINE 661 "GenerateCode.ag" #-} - App _lambdaName (map SimpleExpr _freeVars ) - {-# LINE 6565 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 665, column 7) - _freeVars = - ({-# LINE 665 "GenerateCode.ag" #-} - freevars _nextIfreeVars (visit_ : defs_) - {-# LINE 6571 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 672, column 7) - _decl = - ({-# LINE 672 "GenerateCode.ag" #-} - mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr - {-# LINE 6577 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 673, column 7) - _lhsOdecls = - ({-# LINE 673 "GenerateCode.ag" #-} - (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls - {-# LINE 6583 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _lhsOfreeVars = - ({-# LINE 656 "GenerateCode.ag" #-} - _freeVars - {-# LINE 6589 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _nextOlastExprVars = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsIlastExprVars - {-# LINE 6595 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _nextOnextVisitDecls = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsInextVisitDecls - {-# LINE 6601 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _nextOoptCase = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsIoptCase - {-# LINE 6607 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _nextOprefix = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 6613 "GenerateCode.hs" #-} - ) - ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) = - next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix - in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) -sem_DeclBlocks_DeclTerminator :: ([Decl]) -> - Expr -> - T_DeclBlocks -sem_DeclBlocks_DeclTerminator defs_ result_ = - (T_DeclBlocks (\ _lhsIblockNr - _lhsIlastExprVars - _lhsInextVisitDecls - _lhsIoptCase - _lhsIprefix -> - (let _lhsOcallExpr :: Expr - _lhsOdecls :: ([Decl]) - _lhsOfreeVars :: ([String]) - -- "GenerateCode.ag"(line 659, column 7) - _lambdaName = - ({-# LINE 659 "GenerateCode.ag" #-} - _lhsIprefix ++ "_block" ++ show _lhsIblockNr - {-# LINE 6634 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 660, column 7) - _pragmaDecl = - ({-# LINE 660 "GenerateCode.ag" #-} - PragmaDecl ("NOINLINE " ++ _lambdaName ) - {-# LINE 6640 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 661, column 7) - _lhsOcallExpr = - ({-# LINE 661 "GenerateCode.ag" #-} - App _lambdaName (map SimpleExpr _freeVars ) - {-# LINE 6646 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 663, column 7) - _freeVars = - ({-# LINE 663 "GenerateCode.ag" #-} - freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls) - {-# LINE 6652 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 670, column 7) - _lhsOdecls = - ({-# LINE 670 "GenerateCode.ag" #-} - [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ] - {-# LINE 6658 "GenerateCode.hs" #-} - ) - -- copy rule (from local) - _lhsOfreeVars = - ({-# LINE 656 "GenerateCode.ag" #-} - _freeVars - {-# LINE 6664 "GenerateCode.hs" #-} - ) - in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) --- DeclBlocksRoot ---------------------------------------------- -{- - visit 0: - inherited attributes: - lastExprVars : [String] - nextVisitDecls : [Decl] - optCase : Bool - prefix : String - synthesized attributes: - firstCall : Expr - lambdas : [Decl] - alternatives: - alternative DeclBlocksRoot: - child blocks : DeclBlocks --} --- cata -sem_DeclBlocksRoot :: DeclBlocksRoot -> - T_DeclBlocksRoot -sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) = - (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) ) --- semantic domain -newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) -> - ([Decl]) -> - Bool -> - String -> - ( Expr,([Decl]))) -data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)} -data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))} -wrap_DeclBlocksRoot :: T_DeclBlocksRoot -> - Inh_DeclBlocksRoot -> - Syn_DeclBlocksRoot -wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = - (let ( _lhsOfirstCall,_lhsOlambdas) = sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix - in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas )) -sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks -> - T_DeclBlocksRoot -sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) = - (T_DeclBlocksRoot (\ _lhsIlastExprVars - _lhsInextVisitDecls - _lhsIoptCase - _lhsIprefix -> - (let _lhsOlambdas :: ([Decl]) - _lhsOfirstCall :: Expr - _blocksOblockNr :: Int - _blocksOlastExprVars :: ([String]) - _blocksOnextVisitDecls :: ([Decl]) - _blocksOoptCase :: Bool - _blocksOprefix :: String - _blocksIcallExpr :: Expr - _blocksIdecls :: ([Decl]) - _blocksIfreeVars :: ([String]) - -- "GenerateCode.ag"(line 645, column 7) - _lhsOlambdas = - ({-# LINE 645 "GenerateCode.ag" #-} - _blocksIdecls - {-# LINE 6722 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 646, column 7) - _lhsOfirstCall = - ({-# LINE 646 "GenerateCode.ag" #-} - _blocksIcallExpr - {-# LINE 6728 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 651, column 7) - _blocksOblockNr = - ({-# LINE 651 "GenerateCode.ag" #-} - 1 - {-# LINE 6734 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _blocksOlastExprVars = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsIlastExprVars - {-# LINE 6740 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _blocksOnextVisitDecls = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsInextVisitDecls - {-# LINE 6746 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _blocksOoptCase = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsIoptCase - {-# LINE 6752 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _blocksOprefix = - ({-# LINE 640 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 6758 "GenerateCode.hs" #-} - ) - ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) = - blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix - in ( _lhsOfirstCall,_lhsOlambdas))) ) --- Pattern ----------------------------------------------------- -{- - visit 0: - synthesized attributes: - copy : SELF - definedInsts : [Identifier] - patternAttributes : [(Identifier, Identifier)] - alternatives: - alternative Alias: - child field : {Identifier} - child attr : {Identifier} - child pat : Pattern - child parts : Patterns - visit 0: - local copy : _ - alternative Constr: - child name : {ConstructorIdent} - child pats : Patterns - visit 0: - local copy : _ - alternative Irrefutable: - child pat : Pattern - visit 0: - local copy : _ - alternative Product: - child pos : {Pos} - child pats : Patterns - visit 0: - local copy : _ - alternative Underscore: - child pos : {Pos} - visit 0: - local copy : _ --} --- cata -sem_Pattern :: Pattern -> - T_Pattern -sem_Pattern (Alias _field _attr _pat _parts ) = - (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) ) -sem_Pattern (Constr _name _pats ) = - (sem_Pattern_Constr _name (sem_Patterns _pats ) ) -sem_Pattern (Irrefutable _pat ) = - (sem_Pattern_Irrefutable (sem_Pattern _pat ) ) -sem_Pattern (Product _pos _pats ) = - (sem_Pattern_Product _pos (sem_Patterns _pats ) ) -sem_Pattern (Underscore _pos ) = - (sem_Pattern_Underscore _pos ) --- semantic domain -newtype T_Pattern = T_Pattern (( Pattern ,([Identifier]),([(Identifier, Identifier)]))) -data Inh_Pattern = Inh_Pattern {} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))} -wrap_Pattern :: T_Pattern -> - Inh_Pattern -> - Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) = - (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem - in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) -sem_Pattern_Alias :: Identifier -> - Identifier -> - T_Pattern -> - T_Patterns -> - T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedInsts :: ([Identifier]) - _patIpatternAttributes :: ([(Identifier, Identifier)]) - _partsIcopy :: Patterns - _partsIdefinedInsts :: ([Identifier]) - _partsIpatternAttributes :: ([(Identifier, Identifier)]) - -- "GenerateCode.ag"(line 256, column 11) - _lhsOdefinedInsts = - ({-# LINE 256 "GenerateCode.ag" #-} - (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts - {-# LINE 6839 "GenerateCode.hs" #-} - ) - -- "GenerateCode.ag"(line 264, column 7) - _lhsOpatternAttributes = - ({-# LINE 264 "GenerateCode.ag" #-} - (field_,attr_) : (_patIpatternAttributes ++ _partsIpatternAttributes) - {-# LINE 6845 "GenerateCode.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 6851 "GenerateCode.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6857 "GenerateCode.hs" #-} - ) - ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = - pat_ - ( _partsIcopy,_partsIdefinedInsts,_partsIpatternAttributes) = - parts_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Constr :: ConstructorIdent -> - T_Patterns -> - T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedInsts :: ([Identifier]) - _patsIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - _patsIdefinedInsts - {-# LINE 6878 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 261, column 47) - _lhsOpatternAttributes = - ({-# LINE 261 "GenerateCode.ag" #-} - _patsIpatternAttributes - {-# LINE 6884 "GenerateCode.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Constr name_ _patsIcopy - {-# LINE 6890 "GenerateCode.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6896 "GenerateCode.hs" #-} - ) - ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = - pats_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Irrefutable :: T_Pattern -> - T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedInsts :: ([Identifier]) - _patIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - _patIdefinedInsts - {-# LINE 6914 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 261, column 47) - _lhsOpatternAttributes = - ({-# LINE 261 "GenerateCode.ag" #-} - _patIpatternAttributes - {-# LINE 6920 "GenerateCode.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Irrefutable _patIcopy - {-# LINE 6926 "GenerateCode.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6932 "GenerateCode.hs" #-} - ) - ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = - pat_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Product :: Pos -> - T_Patterns -> - T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedInsts :: ([Identifier]) - _patsIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - _patsIdefinedInsts - {-# LINE 6951 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 261, column 47) - _lhsOpatternAttributes = - ({-# LINE 261 "GenerateCode.ag" #-} - _patsIpatternAttributes - {-# LINE 6957 "GenerateCode.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Product pos_ _patsIcopy - {-# LINE 6963 "GenerateCode.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 6969 "GenerateCode.hs" #-} - ) - ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = - pats_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Pattern_Underscore :: Pos -> - T_Pattern -sem_Pattern_Underscore pos_ = - (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Pattern - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - [] - {-# LINE 6984 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 261, column 47) - _lhsOpatternAttributes = - ({-# LINE 261 "GenerateCode.ag" #-} - [] - {-# LINE 6990 "GenerateCode.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Underscore pos_ - {-# LINE 6996 "GenerateCode.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 7002 "GenerateCode.hs" #-} - ) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) --- Patterns ---------------------------------------------------- -{- - visit 0: - synthesized attributes: - copy : SELF - definedInsts : [Identifier] - patternAttributes : [(Identifier, Identifier)] - alternatives: - alternative Cons: - child hd : Pattern - child tl : Patterns - visit 0: - local copy : _ - alternative Nil: - visit 0: - local copy : _ --} --- cata -sem_Patterns :: Patterns -> - T_Patterns -sem_Patterns list = - (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) --- semantic domain -newtype T_Patterns = T_Patterns (( Patterns ,([Identifier]),([(Identifier, Identifier)]))) -data Inh_Patterns = Inh_Patterns {} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))} -wrap_Patterns :: T_Patterns -> - Inh_Patterns -> - Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) = - (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem - in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) -sem_Patterns_Cons :: T_Pattern -> - T_Patterns -> - T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = - (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Patterns - _hdIcopy :: Pattern - _hdIdefinedInsts :: ([Identifier]) - _hdIpatternAttributes :: ([(Identifier, Identifier)]) - _tlIcopy :: Patterns - _tlIdefinedInsts :: ([Identifier]) - _tlIpatternAttributes :: ([(Identifier, Identifier)]) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 7054 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 261, column 47) - _lhsOpatternAttributes = - ({-# LINE 261 "GenerateCode.ag" #-} - _hdIpatternAttributes ++ _tlIpatternAttributes - {-# LINE 7060 "GenerateCode.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 7066 "GenerateCode.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 7072 "GenerateCode.hs" #-} - ) - ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) = - hd_ - ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) = - tl_ - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) -sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil = - (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) - _lhsOpatternAttributes :: ([(Identifier, Identifier)]) - _lhsOcopy :: Patterns - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - [] - {-# LINE 7088 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 261, column 47) - _lhsOpatternAttributes = - ({-# LINE 261 "GenerateCode.ag" #-} - [] - {-# LINE 7094 "GenerateCode.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - [] - {-# LINE 7100 "GenerateCode.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 7106 "GenerateCode.hs" #-} - ) - in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) --- Sequence ---------------------------------------------------- -{- - visit 0: - inherited attributes: - allNts : Set NontermIdent - aroundMap : Set Identifier - children : [(Identifier,Type,Maybe (Maybe Type))] - con : ConstructorIdent - inh : Attributes - instVisitNrs : Map Identifier Int - lastExpr : Expr - mergeMap : Map Identifier (Identifier, [Identifier]) - nr : Int - nt : NontermIdent - o_case : Bool - o_cata : Bool - o_costcentre : Bool - o_data : Maybe Bool - o_linePragmas : Bool - o_monadic : Bool - o_newtypes : Bool - o_pretty : Bool - o_rename : Bool - o_sem : Bool - o_sig : Bool - o_splitsems : Bool - o_strictwrap : Bool - o_traces : Bool - o_unbox : Bool - options : Options - paramInstMap : Map Identifier (NontermIdent, [String]) - paramMap : ParamMap - prefix : String - syn : Attributes - terminals : [Identifier] - unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type - what : String - chained attributes: - declsAbove : [Decl] - visitedSet : Set Identifier - synthesized attributes: - allTpsFound : Bool - blockDecls : DeclBlocks - comments : [String] - decls : Decls - definedInsts : [Identifier] - exprs : Exprs - tSigs : [Decl] - tps : [Type] - usedVars : Set String - alternatives: - alternative Cons: - child hd : CRule - child tl : Sequence - alternative Nil: --} --- cata -sem_Sequence :: Sequence -> - T_Sequence -sem_Sequence list = - (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) ) --- semantic domain -newtype T_Sequence = T_Sequence ((Set NontermIdent) -> - (Set Identifier) -> - ([(Identifier,Type,Maybe (Maybe Type))]) -> - ConstructorIdent -> - ([Decl]) -> - Attributes -> - (Map Identifier Int) -> - Expr -> - (Map Identifier (Identifier, [Identifier])) -> - Int -> - NontermIdent -> - Bool -> - Bool -> - Bool -> - (Maybe Bool) -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Bool -> - Options -> - (Map Identifier (NontermIdent, [String])) -> - ParamMap -> - String -> - Attributes -> - ([Identifier]) -> - (NontermIdent -> Int -> [String] -> Code.Type) -> - (Set Identifier) -> - String -> - ( Bool,DeclBlocks ,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier))) -data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),mergeMap_Inh_Sequence :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),options_Inh_Sequence :: !(Options),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_Sequence :: !((Set Identifier)),what_Inh_Sequence :: !(String)} -data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks ),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String)),visitedSet_Syn_Sequence :: !((Set Identifier))} -wrap_Sequence :: T_Sequence -> - Inh_Sequence -> - Syn_Sequence -wrap_Sequence (T_Sequence sem ) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) = - (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat - in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet )) -sem_Sequence_Cons :: T_CRule -> - T_Sequence -> - T_Sequence -sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) = - (T_Sequence (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIinh - _lhsIinstVisitNrs - _lhsIlastExpr - _lhsImergeMap - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIvisitedSet - _lhsIwhat -> - (let _lhsOblockDecls :: DeclBlocks - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _lhsOexprs :: Exprs - _lhsOtSigs :: ([Decl]) - _lhsOtps :: ([Type]) - _lhsOusedVars :: (Set String) - _lhsOdeclsAbove :: ([Decl]) - _lhsOvisitedSet :: (Set Identifier) - _hdOallNts :: (Set NontermIdent) - _hdOaroundMap :: (Set Identifier) - _hdOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) - _hdOcon :: ConstructorIdent - _hdOdeclsAbove :: ([Decl]) - _hdOinh :: Attributes - _hdOinstVisitNrs :: (Map Identifier Int) - _hdOmergeMap :: (Map Identifier (Identifier, [Identifier])) - _hdOnr :: Int - _hdOnt :: NontermIdent - _hdOo_case :: Bool - _hdOo_cata :: Bool - _hdOo_costcentre :: Bool - _hdOo_data :: (Maybe Bool) - _hdOo_linePragmas :: Bool - _hdOo_monadic :: Bool - _hdOo_newtypes :: Bool - _hdOo_pretty :: Bool - _hdOo_rename :: Bool - _hdOo_sem :: Bool - _hdOo_sig :: Bool - _hdOo_splitsems :: Bool - _hdOo_strictwrap :: Bool - _hdOo_traces :: Bool - _hdOo_unbox :: Bool - _hdOoptions :: Options - _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _hdOparamMap :: ParamMap - _hdOprefix :: String - _hdOsyn :: Attributes - _hdOterminals :: ([Identifier]) - _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _hdOvisitedSet :: (Set Identifier) - _hdOwhat :: String - _tlOallNts :: (Set NontermIdent) - _tlOaroundMap :: (Set Identifier) - _tlOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) - _tlOcon :: ConstructorIdent - _tlOdeclsAbove :: ([Decl]) - _tlOinh :: Attributes - _tlOinstVisitNrs :: (Map Identifier Int) - _tlOlastExpr :: Expr - _tlOmergeMap :: (Map Identifier (Identifier, [Identifier])) - _tlOnr :: Int - _tlOnt :: NontermIdent - _tlOo_case :: Bool - _tlOo_cata :: Bool - _tlOo_costcentre :: Bool - _tlOo_data :: (Maybe Bool) - _tlOo_linePragmas :: Bool - _tlOo_monadic :: Bool - _tlOo_newtypes :: Bool - _tlOo_pretty :: Bool - _tlOo_rename :: Bool - _tlOo_sem :: Bool - _tlOo_sig :: Bool - _tlOo_splitsems :: Bool - _tlOo_strictwrap :: Bool - _tlOo_traces :: Bool - _tlOo_unbox :: Bool - _tlOoptions :: Options - _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) - _tlOparamMap :: ParamMap - _tlOprefix :: String - _tlOsyn :: Attributes - _tlOterminals :: ([Identifier]) - _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) - _tlOvisitedSet :: (Set Identifier) - _tlOwhat :: String - _hdIallTpsFound :: Bool - _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks) - _hdIcomments :: ([String]) - _hdIdecls :: Decls - _hdIdeclsAbove :: ([Decl]) - _hdIdefinedInsts :: ([Identifier]) - _hdIexprs :: Exprs - _hdItSigs :: ([Decl]) - _hdItps :: ([Type]) - _hdIusedVars :: (Set String) - _hdIvisitedSet :: (Set Identifier) - _tlIallTpsFound :: Bool - _tlIblockDecls :: DeclBlocks - _tlIcomments :: ([String]) - _tlIdecls :: Decls - _tlIdeclsAbove :: ([Decl]) - _tlIdefinedInsts :: ([Identifier]) - _tlIexprs :: Exprs - _tlItSigs :: ([Decl]) - _tlItps :: ([Type]) - _tlIusedVars :: (Set String) - _tlIvisitedSet :: (Set Identifier) - -- "GenerateCode.ag"(line 614, column 7) - _lhsOblockDecls = - ({-# LINE 614 "GenerateCode.ag" #-} - _hdIbldBlocksFun _tlIblockDecls - {-# LINE 7360 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 418, column 39) - _lhsOallTpsFound = - ({-# LINE 418 "GenerateCode.ag" #-} - _hdIallTpsFound && _tlIallTpsFound - {-# LINE 7366 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - _hdIcomments ++ _tlIcomments - {-# LINE 7372 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 150, column 34) - _lhsOdecls = - ({-# LINE 150 "GenerateCode.ag" #-} - _hdIdecls ++ _tlIdecls - {-# LINE 7378 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 7384 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 327, column 34) - _lhsOexprs = - ({-# LINE 327 "GenerateCode.ag" #-} - _hdIexprs ++ _tlIexprs - {-# LINE 7390 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 356, column 33) - _lhsOtSigs = - ({-# LINE 356 "GenerateCode.ag" #-} - _hdItSigs ++ _tlItSigs - {-# LINE 7396 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 417, column 31) - _lhsOtps = - ({-# LINE 417 "GenerateCode.ag" #-} - _hdItps ++ _tlItps - {-# LINE 7402 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 345, column 37) - _lhsOusedVars = - ({-# LINE 345 "GenerateCode.ag" #-} - _hdIusedVars `Set.union` _tlIusedVars - {-# LINE 7408 "GenerateCode.hs" #-} - ) - -- copy rule (up) - _lhsOdeclsAbove = - ({-# LINE 600 "GenerateCode.ag" #-} - _tlIdeclsAbove - {-# LINE 7414 "GenerateCode.hs" #-} - ) - -- copy rule (up) - _lhsOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _tlIvisitedSet - {-# LINE 7420 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 7426 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOaroundMap = - ({-# LINE 572 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 7432 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOchildren = - ({-# LINE 252 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 7438 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOcon = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 7444 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOdeclsAbove = - ({-# LINE 600 "GenerateCode.ag" #-} - _lhsIdeclsAbove - {-# LINE 7450 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 7456 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOinstVisitNrs = - ({-# LINE 552 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 7462 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOmergeMap = - ({-# LINE 588 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 7468 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOnr = - ({-# LINE 271 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 7474 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 7480 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 7486 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 7492 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 7498 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 7504 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 7510 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 7516 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 7522 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 7528 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 7534 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 7540 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 7546 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 7552 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 7558 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 7564 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 7570 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 7576 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOparamInstMap = - ({-# LINE 101 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 7582 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 7588 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 7594 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 7600 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOterminals = - ({-# LINE 90 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 7606 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 7612 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _lhsIvisitedSet - {-# LINE 7618 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _hdOwhat = - ({-# LINE 863 "GenerateCode.ag" #-} - _lhsIwhat - {-# LINE 7624 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOallNts = - ({-# LINE 127 "GenerateCode.ag" #-} - _lhsIallNts - {-# LINE 7630 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOaroundMap = - ({-# LINE 572 "GenerateCode.ag" #-} - _lhsIaroundMap - {-# LINE 7636 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOchildren = - ({-# LINE 252 "GenerateCode.ag" #-} - _lhsIchildren - {-# LINE 7642 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOcon = - ({-# LINE 89 "GenerateCode.ag" #-} - _lhsIcon - {-# LINE 7648 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _tlOdeclsAbove = - ({-# LINE 600 "GenerateCode.ag" #-} - _hdIdeclsAbove - {-# LINE 7654 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOinh = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIinh - {-# LINE 7660 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOinstVisitNrs = - ({-# LINE 552 "GenerateCode.ag" #-} - _lhsIinstVisitNrs - {-# LINE 7666 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOlastExpr = - ({-# LINE 598 "GenerateCode.ag" #-} - _lhsIlastExpr - {-# LINE 7672 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOmergeMap = - ({-# LINE 588 "GenerateCode.ag" #-} - _lhsImergeMap - {-# LINE 7678 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOnr = - ({-# LINE 271 "GenerateCode.ag" #-} - _lhsInr - {-# LINE 7684 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOnt = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsInt - {-# LINE 7690 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_case = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_case - {-# LINE 7696 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_cata = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_cata - {-# LINE 7702 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_costcentre = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_costcentre - {-# LINE 7708 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_data = - ({-# LINE 48 "GenerateCode.ag" #-} - _lhsIo_data - {-# LINE 7714 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_linePragmas = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_linePragmas - {-# LINE 7720 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_monadic = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_monadic - {-# LINE 7726 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_newtypes = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_newtypes - {-# LINE 7732 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_pretty = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_pretty - {-# LINE 7738 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_rename = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_rename - {-# LINE 7744 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sem = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sem - {-# LINE 7750 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_sig = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_sig - {-# LINE 7756 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_splitsems = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_splitsems - {-# LINE 7762 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_strictwrap = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_strictwrap - {-# LINE 7768 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_traces = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_traces - {-# LINE 7774 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOo_unbox = - ({-# LINE 47 "GenerateCode.ag" #-} - _lhsIo_unbox - {-# LINE 7780 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 50 "GenerateCode.ag" #-} - _lhsIoptions - {-# LINE 7786 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOparamInstMap = - ({-# LINE 101 "GenerateCode.ag" #-} - _lhsIparamInstMap - {-# LINE 7792 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOparamMap = - ({-# LINE 95 "GenerateCode.ag" #-} - _lhsIparamMap - {-# LINE 7798 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOprefix = - ({-# LINE 49 "GenerateCode.ag" #-} - _lhsIprefix - {-# LINE 7804 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOsyn = - ({-# LINE 84 "GenerateCode.ag" #-} - _lhsIsyn - {-# LINE 7810 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOterminals = - ({-# LINE 90 "GenerateCode.ag" #-} - _lhsIterminals - {-# LINE 7816 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOunfoldSemDom = - ({-# LINE 742 "GenerateCode.ag" #-} - _lhsIunfoldSemDom - {-# LINE 7822 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _tlOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _hdIvisitedSet - {-# LINE 7828 "GenerateCode.hs" #-} - ) - -- copy rule (down) - _tlOwhat = - ({-# LINE 863 "GenerateCode.ag" #-} - _lhsIwhat - {-# LINE 7834 "GenerateCode.hs" #-} - ) - ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars,_hdIvisitedSet) = - hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOmergeMap _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwhat - ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars,_tlIvisitedSet) = - tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwhat - in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) ) -sem_Sequence_Nil :: T_Sequence -sem_Sequence_Nil = - (T_Sequence (\ _lhsIallNts - _lhsIaroundMap - _lhsIchildren - _lhsIcon - _lhsIdeclsAbove - _lhsIinh - _lhsIinstVisitNrs - _lhsIlastExpr - _lhsImergeMap - _lhsInr - _lhsInt - _lhsIo_case - _lhsIo_cata - _lhsIo_costcentre - _lhsIo_data - _lhsIo_linePragmas - _lhsIo_monadic - _lhsIo_newtypes - _lhsIo_pretty - _lhsIo_rename - _lhsIo_sem - _lhsIo_sig - _lhsIo_splitsems - _lhsIo_strictwrap - _lhsIo_traces - _lhsIo_unbox - _lhsIoptions - _lhsIparamInstMap - _lhsIparamMap - _lhsIprefix - _lhsIsyn - _lhsIterminals - _lhsIunfoldSemDom - _lhsIvisitedSet - _lhsIwhat -> - (let _lhsOblockDecls :: DeclBlocks - _lhsOallTpsFound :: Bool - _lhsOcomments :: ([String]) - _lhsOdecls :: Decls - _lhsOdefinedInsts :: ([Identifier]) - _lhsOexprs :: Exprs - _lhsOtSigs :: ([Decl]) - _lhsOtps :: ([Type]) - _lhsOusedVars :: (Set String) - _lhsOdeclsAbove :: ([Decl]) - _lhsOvisitedSet :: (Set Identifier) - -- "GenerateCode.ag"(line 616, column 7) - _lhsOblockDecls = - ({-# LINE 616 "GenerateCode.ag" #-} - DeclTerminator _lhsIdeclsAbove _lhsIlastExpr - {-# LINE 7893 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 418, column 39) - _lhsOallTpsFound = - ({-# LINE 418 "GenerateCode.ag" #-} - True - {-# LINE 7899 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 861, column 52) - _lhsOcomments = - ({-# LINE 861 "GenerateCode.ag" #-} - [] - {-# LINE 7905 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 150, column 34) - _lhsOdecls = - ({-# LINE 150 "GenerateCode.ag" #-} - [] - {-# LINE 7911 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 254, column 55) - _lhsOdefinedInsts = - ({-# LINE 254 "GenerateCode.ag" #-} - [] - {-# LINE 7917 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 327, column 34) - _lhsOexprs = - ({-# LINE 327 "GenerateCode.ag" #-} - [] - {-# LINE 7923 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 356, column 33) - _lhsOtSigs = - ({-# LINE 356 "GenerateCode.ag" #-} - [] - {-# LINE 7929 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 417, column 31) - _lhsOtps = - ({-# LINE 417 "GenerateCode.ag" #-} - [] - {-# LINE 7935 "GenerateCode.hs" #-} - ) - -- use rule "GenerateCode.ag"(line 345, column 37) - _lhsOusedVars = - ({-# LINE 345 "GenerateCode.ag" #-} - Set.empty - {-# LINE 7941 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _lhsOdeclsAbove = - ({-# LINE 600 "GenerateCode.ag" #-} - _lhsIdeclsAbove - {-# LINE 7947 "GenerateCode.hs" #-} - ) - -- copy rule (chain) - _lhsOvisitedSet = - ({-# LINE 140 "GenerateCode.ag" #-} - _lhsIvisitedSet - {-# LINE 7953 "GenerateCode.hs" #-} +-- UUAGC 0.9.38.1 (GenerateCode.ag) +module GenerateCode where +{-# LINE 9 "GenerateCode.ag" #-} + +import CommonTypes +import SequentialTypes +import Code hiding (Type) +import qualified Code +import Options +import CodeSyntax +import ErrorMessages +import GrammarInfo +import DeclBlocks + +import qualified Data.Map as Map +import Data.Map(Map) +import qualified Data.Set as Set +import Data.Set(Set) +import qualified Data.Sequence as Seq +import Data.Sequence(Seq) +import UU.Scanner.Position +import TokenDef +import HsToken +import HsTokenScanner + +import Data.List(partition,intersperse,intersect,(\\)) +import Maybe(fromJust,isJust) + +import Debug.Trace +{-# LINE 33 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 2 "./CodeSyntax.ag" #-} + +import Patterns +import CommonTypes +import Data.Map(Map) +import Data.Set(Set) +{-# LINE 41 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 2 "./Patterns.ag" #-} + +-- Patterns.ag imports +import UU.Scanner.Position(Pos) +import CommonTypes (ConstructorIdent,Identifier) +{-# LINE 48 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 2 "./DeclBlocks.ag" #-} + +import Code (Decl,Expr) +{-# LINE 53 "../src-derived/GenerateCode.hs" #-} +{-# LINE 107 "GenerateCode.ag" #-} + +-- remove possible @v references in the types of a data type. +cleanupArg :: String -> String +cleanupArg s + = case idEvalType (SimpleType s) of + SimpleType s' -> s' +{-# LINE 61 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 122 "GenerateCode.ag" #-} + +appContext :: ContextMap -> NontermIdent -> Code.Type -> Code.Type +appContext mp nt tp + = maybe tp (\ctx -> CtxApp (map (\(n,ns) -> (getName n, ns)) ctx) tp) $ Map.lookup nt mp + +appQuant :: QuantMap -> NontermIdent -> Code.Type -> Code.Type +appQuant mp nt tp + = foldr QuantApp tp $ Map.findWithDefault [] nt mp +{-# LINE 72 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 245 "GenerateCode.ag" #-} + +mkDecl True lhs rhs _ _ = Bind lhs rhs +mkDecl False lhs rhs s1 s2 = Decl lhs rhs s1 s2 + +unwrapSem :: Bool -> NontermIdent -> Expr -> Expr +unwrapSem False _ e = e +unwrapSem True nm e = Case e alts + where alts = [CaseAlt left right] + left = Fun (typeName nm 0) [SimpleExpr "x"] + right = SimpleExpr "x" +{-# LINE 85 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 411 "GenerateCode.ag" #-} + +substSelf nt tp = case tp of + NT t tps | t == _SELF -> Haskell (getName nt ++ " " ++ unwords tps) + _ -> tp +{-# LINE 92 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 534 "GenerateCode.ag" #-} + +mkLambdaArg :: String -> Maybe Code.Type -> Expr +mkLambdaArg nm Nothing = SimpleExpr nm +mkLambdaArg nm (Just tp) = TypedExpr (SimpleExpr nm) tp + +mkLambda :: Exprs -> Expr -> Expr +mkLambda [] e = e +mkLambda xs e = Lambda xs e + +mkSemFun :: Identifier -> Int -> Exprs -> Expr -> Expr +mkSemFun nt nr xs e = SemFun (typeName nt nr) xs e + +typeAppStrs nm params = TypeApp (SimpleType nm) (map SimpleType params) + +isHigherOrder :: Maybe (Maybe Type) -> Bool +isHigherOrder (Just Nothing) = True +isHigherOrder _ = False + +pickOrigType :: (Identifier, Type, Maybe (Maybe Type)) -> (Identifier, Type, Maybe (Maybe Type)) +pickOrigType (nm, tp, virt@(Just (Just x))) = (nm, x, virt) +pickOrigType x = x +{-# LINE 116 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 630 "GenerateCode.ag" #-} + +mkPartitionedFunction :: String -> Bool -> [Decl] -> [String] -> DeclBlocks -> ([Decl], Expr) +mkPartitionedFunction prefix optCase nextVisitDecls lastExprVars cpsTree + = let inh = Inh_DeclBlocksRoot { prefix_Inh_DeclBlocksRoot = prefix + , optCase_Inh_DeclBlocksRoot = optCase + , nextVisitDecls_Inh_DeclBlocksRoot = nextVisitDecls + , lastExprVars_Inh_DeclBlocksRoot = lastExprVars + } + sem = sem_DeclBlocksRoot (DeclBlocksRoot cpsTree) + syn = wrap_DeclBlocksRoot sem inh + in (lambdas_Syn_DeclBlocksRoot syn, firstCall_Syn_DeclBlocksRoot syn) +{-# LINE 130 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 680 "GenerateCode.ag" #-} + +freevars :: [String] -> [Decl] -> [String] +freevars additional decls + = Set.toList (allused `Set.difference` alldefined) + where + allused = Set.unions (Set.fromList additional : map usedvars decls) + alldefined = Set.unions (map definedvars decls) + + usedvars (Decl _ _ _ uses) = uses + usedvars _ = Set.empty + + definedvars (Decl _ _ defs _) = defs + definedvars _ = Set.empty + +mkBlockLambda :: Bool -> String -> [String] -> [Decl] -> Expr -> Decl +mkBlockLambda optCase name args decls expr + = Decl lhs rhs Set.empty Set.empty + where + lhs = Fun name (map SimpleExpr args) + rhs = mkLet optCase decls expr +{-# LINE 153 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 758 "GenerateCode.ag" #-} + +typeToCodeType :: Maybe NontermIdent -> [String] -> Type -> Code.Type +typeToCodeType mbNt params tp + = case tp of + NT nt tps | nt == _SELF -> NontermType (maybe "Unknown" getName mbNt) params + | otherwise -> NontermType (getName nt) tps + Haskell t -> SimpleType t + +evalType :: (String -> String) -> Code.Type -> Code.Type +evalType replf t + = chase t + where + chase t + = case t of + Arr l r -> Arr (chase l) (chase r) + TypeApp f as -> TypeApp (chase f) (map chase as) + TupleType tps -> TupleType (map chase tps) + UnboxedTupleType tps -> UnboxedTupleType (map chase tps) + Code.List tp -> Code.List (chase tp) + SimpleType txt -> let tks = lexTokens (initPos txt) txt + tks' = map replaceTok tks + txt' = unlines . showTokens . tokensToStrings $ tks' + in SimpleType txt' + TMaybe m -> TMaybe (chase m) + TEither l r -> TEither (chase l) (chase r) + TMap k v -> TMap (chase k) (chase v) + TIntMap v -> TIntMap (chase v) + _ -> t + + replaceTok t + = case t of + AGLocal v p _ -> HsToken (replf $ getName v) p + _ -> t + +idEvalType :: Code.Type -> Code.Type +idEvalType = evalType id +{-# LINE 192 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 883 "GenerateCode.ag" #-} + +-- for a virtual child that already existed as a child, returns +isFirstOrder :: Maybe (Maybe Type) -> Type -> Maybe Type +isFirstOrder Nothing tp = Just tp +isFirstOrder (Just x) _ = x +{-# LINE 200 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 903 "GenerateCode.ag" #-} + +makeLocalComment :: Int -> String -> Identifier -> Maybe Type -> String +makeLocalComment width what name tp = let x = getName name + y = maybe "_" (\t -> case t of (NT nt tps) -> getName nt ++ " " ++ unwords tps; Haskell t -> '{':t++"}") tp + in ( what ++ " " ++ x ++ replicate ((width - length x) `max` 0) ' ' ++ " : " ++ y ) + +{-# LINE 209 "../src-derived/GenerateCode.hs" #-} + +{-# LINE 934 "GenerateCode.ag" #-} + +-- Lets or nested Cases? +-- or even a do-expression? + +data DeclsType = DeclsLet | DeclsCase | DeclsDo + +mkDecls :: DeclsType -> Decls -> Expr -> Expr +mkDecls DeclsLet = mkLet False +mkDecls DeclsCase = mkLet True +mkDecls DeclsDo = \decls -> Do (map toBind decls) + where toBind (Decl lhs rhs _ _) = BindLet lhs rhs + toBind d = d + +mkLet :: Bool -> Decls -> Expr -> Expr +mkLet False decls body = Let decls body +mkLet True decls body = foldr oneCase body decls + +oneCase :: Decl -> Expr -> Expr +oneCase (Decl left rhs _ _) exp = Case rhs [CaseAlt left exp] +oneCase (Resume _ nt left rhs) exp = ResumeExpr nt rhs left exp +oneCase _ exp = exp + +-- Gives the name of the visit function +funname field 0 = show field ++ "_" +funname field nr = show field ++ "_" ++ show nr + +-- Gives the name of a semantic function +seqSemname :: String -> NontermIdent -> ConstructorIdent -> Int -> String +seqSemname pre nt con 0 = semname pre nt con +seqSemname pre nt con nr = semname pre nt con ++ "_" ++ show nr + +-- Gives the name of a type +typeName :: NontermIdent -> Int -> String +typeName nt 0 = "T_" ++ show nt +typeName nt n = "T_" ++ show nt ++ "_" ++ show n + +ntOfVisit :: NontermIdent -> Int -> NontermIdent +ntOfVisit nt 0 = nt +ntOfVisit nt n = Ident (show nt ++ "_" ++ show n) (getPos nt) + +-- Gives the name of a visit function +visitname :: String -> NontermIdent -> Int -> String +visitname pre nt n = pre ++ getName nt ++ "_" ++ show n +{-# LINE 255 "../src-derived/GenerateCode.hs" #-} +-- CGrammar ---------------------------------------------------- +{- + visit 0: + inherited attribute: + options : Options + synthesized attributes: + errors : Seq Error + output : Program + alternatives: + alternative CGrammar: + child typeSyns : {TypeSyns} + child derivings : {Derivings} + child wrappers : {Set NontermIdent} + child nonts : CNonterminals + child pragmas : {PragmaMap} + child paramMap : {ParamMap} + child contextMap : {ContextMap} + child quantMap : {QuantMap} + child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} + child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))} + child multivisit : {Bool} + visit 0: + local options : _ + local aroundMap : _ + local mergeMap : _ + local unfoldSemDom : _ +-} +-- cata +sem_CGrammar :: CGrammar -> + T_CGrammar +sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _quantMap _aroundsMap _mergeMap _multivisit ) = + (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _quantMap _aroundsMap _mergeMap _multivisit ) +-- semantic domain +newtype T_CGrammar = T_CGrammar (Options -> + ( (Seq Error),Program)) +data Inh_CGrammar = Inh_CGrammar {options_Inh_CGrammar :: !(Options)} +data Syn_CGrammar = Syn_CGrammar {errors_Syn_CGrammar :: !((Seq Error)),output_Syn_CGrammar :: !(Program)} +wrap_CGrammar :: T_CGrammar -> + Inh_CGrammar -> + Syn_CGrammar +wrap_CGrammar (T_CGrammar sem ) (Inh_CGrammar _lhsIoptions ) = + (let ( _lhsOerrors,_lhsOoutput) = sem _lhsIoptions + in (Syn_CGrammar _lhsOerrors _lhsOoutput )) +sem_CGrammar_CGrammar :: TypeSyns -> + Derivings -> + (Set NontermIdent) -> + T_CNonterminals -> + PragmaMap -> + ParamMap -> + ContextMap -> + QuantMap -> + (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> + (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) -> + Bool -> + T_CGrammar +sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ quantMap_ aroundsMap_ mergeMap_ multivisit_ = + (T_CGrammar (\ _lhsIoptions -> + (let _nontsOo_sig :: Bool + _nontsOo_cata :: Bool + _nontsOo_sem :: Bool + _nontsOo_newtypes :: Bool + _nontsOo_unbox :: Bool + _nontsOo_case :: Bool + _nontsOo_pretty :: Bool + _nontsOo_rename :: Bool + _nontsOo_strictwrap :: Bool + _nontsOo_splitsems :: Bool + _nontsOo_data :: (Maybe Bool) + _nontsOprefix :: String + _nontsOo_traces :: Bool + _nontsOo_costcentre :: Bool + _nontsOo_linePragmas :: Bool + _nontsOo_monadic :: Bool + _nontsOallPragmas :: PragmaMap + _nontsOparamMap :: ParamMap + _nontsOcontextMap :: ContextMap + _nontsOquantMap :: QuantMap + _nontsOallNts :: (Set NontermIdent) + _nontsOwith_sig :: Bool + _lhsOerrors :: (Seq Error) + _lhsOoutput :: Program + _nontsOtypeSyns :: TypeSyns + _nontsOderivings :: Derivings + _nontsOwrappers :: (Set NontermIdent) + _nontsOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) + _nontsOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) + _nontsOoptions :: Options + _nontsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _nontsIchunks :: Chunks + _nontsIgathNts :: (Set NontermIdent) + _nontsIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_sig = + ({-# LINE 53 "GenerateCode.ag" #-} + typeSigs _lhsIoptions + {-# LINE 351 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_cata = + ({-# LINE 54 "GenerateCode.ag" #-} + folds _lhsIoptions + {-# LINE 357 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_sem = + ({-# LINE 55 "GenerateCode.ag" #-} + semfuns _lhsIoptions + {-# LINE 363 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_newtypes = + ({-# LINE 56 "GenerateCode.ag" #-} + newtypes _lhsIoptions + {-# LINE 369 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_unbox = + ({-# LINE 57 "GenerateCode.ag" #-} + unbox _lhsIoptions + {-# LINE 375 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_case = + ({-# LINE 58 "GenerateCode.ag" #-} + cases _lhsIoptions + {-# LINE 381 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_pretty = + ({-# LINE 59 "GenerateCode.ag" #-} + attrInfo _lhsIoptions + {-# LINE 387 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_rename = + ({-# LINE 60 "GenerateCode.ag" #-} + rename _lhsIoptions + {-# LINE 393 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_strictwrap = + ({-# LINE 61 "GenerateCode.ag" #-} + strictWrap _lhsIoptions + {-# LINE 399 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_splitsems = + ({-# LINE 62 "GenerateCode.ag" #-} + splitSems _lhsIoptions + {-# LINE 405 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_data = + ({-# LINE 63 "GenerateCode.ag" #-} + if dataTypes _lhsIoptions then Just (strictData _lhsIoptions) else Nothing + {-# LINE 411 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOprefix = + ({-# LINE 64 "GenerateCode.ag" #-} + prefix _lhsIoptions + {-# LINE 417 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_traces = + ({-# LINE 65 "GenerateCode.ag" #-} + genTraces _lhsIoptions + {-# LINE 423 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_costcentre = + ({-# LINE 66 "GenerateCode.ag" #-} + genCostCentres _lhsIoptions + {-# LINE 429 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_linePragmas = + ({-# LINE 67 "GenerateCode.ag" #-} + genLinePragmas _lhsIoptions + {-# LINE 435 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 53, column 17) + _nontsOo_monadic = + ({-# LINE 68 "GenerateCode.ag" #-} + monadic _lhsIoptions + {-# LINE 441 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 71, column 3) + _options = + ({-# LINE 71 "GenerateCode.ag" #-} + _lhsIoptions { breadthFirst = breadthFirst _lhsIoptions && visit _lhsIoptions && cases _lhsIoptions && multivisit_ } + {-# LINE 447 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 76, column 15) + _nontsOallPragmas = + ({-# LINE 76 "GenerateCode.ag" #-} + pragmas_ + {-# LINE 453 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 98, column 14) + _nontsOparamMap = + ({-# LINE 98 "GenerateCode.ag" #-} + paramMap_ + {-# LINE 459 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 119, column 7) + _nontsOcontextMap = + ({-# LINE 119 "GenerateCode.ag" #-} + contextMap_ + {-# LINE 465 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 120, column 7) + _nontsOquantMap = + ({-# LINE 120 "GenerateCode.ag" #-} + quantMap_ + {-# LINE 471 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 136, column 7) + _nontsOallNts = + ({-# LINE 136 "GenerateCode.ag" #-} + _nontsIgathNts + {-# LINE 477 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 579, column 34) + _aroundMap = + ({-# LINE 579 "GenerateCode.ag" #-} + aroundsMap_ + {-# LINE 483 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 595, column 34) + _mergeMap = + ({-# LINE 595 "GenerateCode.ag" #-} + mergeMap_ + {-# LINE 489 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 751, column 7) + _unfoldSemDom = + ({-# LINE 751 "GenerateCode.ag" #-} + \nt nr repl -> + let (params, tp) = Map.findWithDefault (error ("No such semantic domain: " ++ show nt)) (nt, nr) _nontsIsemDomUnfoldGath + replMap = Map.fromList (zip params repl) + replace k = Map.findWithDefault ('@':k) k replMap + in evalType replace tp + {-# LINE 499 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 852, column 14) + _nontsOwith_sig = + ({-# LINE 852 "GenerateCode.ag" #-} + typeSigs _lhsIoptions + {-# LINE 505 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 855, column 15) + _lhsOerrors = + ({-# LINE 855 "GenerateCode.ag" #-} + Seq.empty + {-# LINE 511 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 920, column 17) + _lhsOoutput = + ({-# LINE 920 "GenerateCode.ag" #-} + Program _nontsIchunks multivisit_ + {-# LINE 517 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 985, column 14) + _nontsOtypeSyns = + ({-# LINE 985 "GenerateCode.ag" #-} + typeSyns_ + {-# LINE 523 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 985, column 14) + _nontsOderivings = + ({-# LINE 986 "GenerateCode.ag" #-} + derivings_ + {-# LINE 529 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 985, column 14) + _nontsOwrappers = + ({-# LINE 987 "GenerateCode.ag" #-} + wrappers_ + {-# LINE 535 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _nontsOaroundMap = + ({-# LINE 572 "GenerateCode.ag" #-} + _aroundMap + {-# LINE 541 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _nontsOmergeMap = + ({-# LINE 588 "GenerateCode.ag" #-} + _mergeMap + {-# LINE 547 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _nontsOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _options + {-# LINE 553 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _nontsOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _unfoldSemDom + {-# LINE 559 "GenerateCode.hs" #-} + ) + ( _nontsIchunks,_nontsIgathNts,_nontsIsemDomUnfoldGath) = + nonts_ _nontsOallNts _nontsOallPragmas _nontsOaroundMap _nontsOcontextMap _nontsOderivings _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_costcentre _nontsOo_data _nontsOo_linePragmas _nontsOo_monadic _nontsOo_newtypes _nontsOo_pretty _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_splitsems _nontsOo_strictwrap _nontsOo_traces _nontsOo_unbox _nontsOoptions _nontsOparamMap _nontsOprefix _nontsOquantMap _nontsOtypeSyns _nontsOunfoldSemDom _nontsOwith_sig _nontsOwrappers + in ( _lhsOerrors,_lhsOoutput))) ) +-- CInterface -------------------------------------------------- +{- + visit 0: + inherited attributes: + inh : Attributes + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramMap : ParamMap + prefix : String + syn : Attributes + synthesized attributes: + comments : [String] + semDom : [Decl] + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + wrapDecls : Decls + alternatives: + alternative CInterface: + child seg : CSegments +-} +-- cata +sem_CInterface :: CInterface -> + T_CInterface +sem_CInterface (CInterface _seg ) = + (sem_CInterface_CInterface (sem_CSegments _seg ) ) +-- semantic domain +newtype T_CInterface = T_CInterface (Attributes -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + ParamMap -> + String -> + Attributes -> + ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) +data Inh_CInterface = Inh_CInterface {inh_Inh_CInterface :: !(Attributes),nt_Inh_CInterface :: !(NontermIdent),o_case_Inh_CInterface :: !(Bool),o_cata_Inh_CInterface :: !(Bool),o_costcentre_Inh_CInterface :: !(Bool),o_data_Inh_CInterface :: !((Maybe Bool)),o_linePragmas_Inh_CInterface :: !(Bool),o_monadic_Inh_CInterface :: !(Bool),o_newtypes_Inh_CInterface :: !(Bool),o_pretty_Inh_CInterface :: !(Bool),o_rename_Inh_CInterface :: !(Bool),o_sem_Inh_CInterface :: !(Bool),o_sig_Inh_CInterface :: !(Bool),o_splitsems_Inh_CInterface :: !(Bool),o_strictwrap_Inh_CInterface :: !(Bool),o_traces_Inh_CInterface :: !(Bool),o_unbox_Inh_CInterface :: !(Bool),options_Inh_CInterface :: !(Options),paramMap_Inh_CInterface :: !(ParamMap),prefix_Inh_CInterface :: !(String),syn_Inh_CInterface :: !(Attributes)} +data Syn_CInterface = Syn_CInterface {comments_Syn_CInterface :: !(([String])),semDom_Syn_CInterface :: !(([Decl])),semDomUnfoldGath_Syn_CInterface :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CInterface :: !(Decls)} +wrap_CInterface :: T_CInterface -> + Inh_CInterface -> + Syn_CInterface +wrap_CInterface (T_CInterface sem ) (Inh_CInterface _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) = + (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn + in (Syn_CInterface _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) +sem_CInterface_CInterface :: T_CSegments -> + T_CInterface +sem_CInterface_CInterface (T_CSegments seg_ ) = + (T_CInterface (\ _lhsIinh + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _segOnr :: Int + _lhsOsemDom :: ([Decl]) + _lhsOcomments :: ([String]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + _segOinh :: Attributes + _segOnt :: NontermIdent + _segOo_case :: Bool + _segOo_cata :: Bool + _segOo_costcentre :: Bool + _segOo_data :: (Maybe Bool) + _segOo_linePragmas :: Bool + _segOo_monadic :: Bool + _segOo_newtypes :: Bool + _segOo_pretty :: Bool + _segOo_rename :: Bool + _segOo_sem :: Bool + _segOo_sig :: Bool + _segOo_splitsems :: Bool + _segOo_strictwrap :: Bool + _segOo_traces :: Bool + _segOo_unbox :: Bool + _segOoptions :: Options + _segOparamMap :: ParamMap + _segOprefix :: String + _segOsyn :: Attributes + _segIcomments :: ([String]) + _segIisNil :: Bool + _segIsemDom :: ([Decl]) + _segIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _segIwrapDecls :: Decls + -- "GenerateCode.ag"(line 282, column 17) + _segOnr = + ({-# LINE 282 "GenerateCode.ag" #-} + 0 + {-# LINE 693 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 709, column 18) + _lhsOsemDom = + ({-# LINE 709 "GenerateCode.ag" #-} + Comment "semantic domain" : _segIsemDom + {-# LINE 699 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + _segIcomments + {-# LINE 705 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 741, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 741 "GenerateCode.ag" #-} + _segIsemDomUnfoldGath + {-# LINE 711 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 827, column 52) + _lhsOwrapDecls = + ({-# LINE 827 "GenerateCode.ag" #-} + _segIwrapDecls + {-# LINE 717 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 723 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 729 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 735 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 741 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 747 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 753 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 759 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 765 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 771 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 777 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 783 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 789 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 795 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 801 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 807 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 813 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 819 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 825 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 831 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 837 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _segOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 843 "GenerateCode.hs" #-} + ) + ( _segIcomments,_segIisNil,_segIsemDom,_segIsemDomUnfoldGath,_segIwrapDecls) = + seg_ _segOinh _segOnr _segOnt _segOo_case _segOo_cata _segOo_costcentre _segOo_data _segOo_linePragmas _segOo_monadic _segOo_newtypes _segOo_pretty _segOo_rename _segOo_sem _segOo_sig _segOo_splitsems _segOo_strictwrap _segOo_traces _segOo_unbox _segOoptions _segOparamMap _segOprefix _segOsyn + in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +-- CNonterminal ------------------------------------------------ +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) + contextMap : ContextMap + derivings : Derivings + mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramMap : ParamMap + prefix : String + quantMap : QuantMap + typeSyns : TypeSyns + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + wrappers : Set NontermIdent + synthesized attributes: + chunks : Chunks + gathNts : Set NontermIdent + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + alternatives: + alternative CNonterminal: + child nt : {NontermIdent} + child params : {[Identifier]} + child inh : {Attributes} + child syn : {Attributes} + child prods : CProductions + child inter : CInterface + visit 0: + local _tup1 : {(Attributes,Attributes,NontermIdent)} + local _tup2 : {(Attributes,Attributes,NontermIdent)} + local aroundMap : _ + local mergeMap : _ + local semWrapper : _ + local comment : _ + local dataDef : _ + local genCata : _ + local cataFun : _ +-} +-- cata +sem_CNonterminal :: CNonterminal -> + T_CNonterminal +sem_CNonterminal (CNonterminal _nt _params _inh _syn _prods _inter ) = + (sem_CNonterminal_CNonterminal _nt _params _inh _syn (sem_CProductions _prods ) (sem_CInterface _inter ) ) +-- semantic domain +newtype T_CNonterminal = T_CNonterminal ((Set NontermIdent) -> + PragmaMap -> + (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> + ContextMap -> + Derivings -> + (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + ParamMap -> + String -> + QuantMap -> + TypeSyns -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + (Set NontermIdent) -> + ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) +data Inh_CNonterminal = Inh_CNonterminal {allNts_Inh_CNonterminal :: !((Set NontermIdent)),allPragmas_Inh_CNonterminal :: !(PragmaMap),aroundMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminal :: !(ContextMap),derivings_Inh_CNonterminal :: !(Derivings),mergeMap_Inh_CNonterminal :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminal :: !(Bool),o_cata_Inh_CNonterminal :: !(Bool),o_costcentre_Inh_CNonterminal :: !(Bool),o_data_Inh_CNonterminal :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminal :: !(Bool),o_monadic_Inh_CNonterminal :: !(Bool),o_newtypes_Inh_CNonterminal :: !(Bool),o_pretty_Inh_CNonterminal :: !(Bool),o_rename_Inh_CNonterminal :: !(Bool),o_sem_Inh_CNonterminal :: !(Bool),o_sig_Inh_CNonterminal :: !(Bool),o_splitsems_Inh_CNonterminal :: !(Bool),o_strictwrap_Inh_CNonterminal :: !(Bool),o_traces_Inh_CNonterminal :: !(Bool),o_unbox_Inh_CNonterminal :: !(Bool),options_Inh_CNonterminal :: !(Options),paramMap_Inh_CNonterminal :: !(ParamMap),prefix_Inh_CNonterminal :: !(String),quantMap_Inh_CNonterminal :: !(QuantMap),typeSyns_Inh_CNonterminal :: !(TypeSyns),unfoldSemDom_Inh_CNonterminal :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminal :: !(Bool),wrappers_Inh_CNonterminal :: !((Set NontermIdent))} +data Syn_CNonterminal = Syn_CNonterminal {chunks_Syn_CNonterminal :: !(Chunks),gathNts_Syn_CNonterminal :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminal :: !((Map (NontermIdent, Int) ([String], Code.Type)))} +wrap_CNonterminal :: T_CNonterminal -> + Inh_CNonterminal -> + Syn_CNonterminal +wrap_CNonterminal (T_CNonterminal sem ) (Inh_CNonterminal _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = + (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers + in (Syn_CNonterminal _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath )) +sem_CNonterminal_CNonterminal :: NontermIdent -> + ([Identifier]) -> + Attributes -> + Attributes -> + T_CProductions -> + T_CInterface -> + T_CNonterminal +sem_CNonterminal_CNonterminal nt_ params_ inh_ syn_ (T_CProductions prods_ ) (T_CInterface inter_ ) = + (T_CNonterminal (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIderivings + _lhsImergeMap + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsItypeSyns + _lhsIunfoldSemDom + _lhsIwith_sig + _lhsIwrappers -> + (let __tup1 :: ((Attributes,Attributes,NontermIdent)) + _interOinh :: Attributes + _interOsyn :: Attributes + _interOnt :: NontermIdent + __tup2 :: ((Attributes,Attributes,NontermIdent)) + _prodsOinh :: Attributes + _prodsOsyn :: Attributes + _prodsOnt :: NontermIdent + _lhsOgathNts :: (Set NontermIdent) + _lhsOchunks :: Chunks + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _prodsOallNts :: (Set NontermIdent) + _prodsOallPragmas :: PragmaMap + _prodsOaroundMap :: (Map ConstructorIdent (Set Identifier)) + _prodsOcontextMap :: ContextMap + _prodsOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) + _prodsOo_case :: Bool + _prodsOo_cata :: Bool + _prodsOo_costcentre :: Bool + _prodsOo_data :: (Maybe Bool) + _prodsOo_linePragmas :: Bool + _prodsOo_monadic :: Bool + _prodsOo_newtypes :: Bool + _prodsOo_pretty :: Bool + _prodsOo_rename :: Bool + _prodsOo_sem :: Bool + _prodsOo_sig :: Bool + _prodsOo_splitsems :: Bool + _prodsOo_strictwrap :: Bool + _prodsOo_traces :: Bool + _prodsOo_unbox :: Bool + _prodsOoptions :: Options + _prodsOparamMap :: ParamMap + _prodsOprefix :: String + _prodsOquantMap :: QuantMap + _prodsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _prodsOwith_sig :: Bool + _interOo_case :: Bool + _interOo_cata :: Bool + _interOo_costcentre :: Bool + _interOo_data :: (Maybe Bool) + _interOo_linePragmas :: Bool + _interOo_monadic :: Bool + _interOo_newtypes :: Bool + _interOo_pretty :: Bool + _interOo_rename :: Bool + _interOo_sem :: Bool + _interOo_sig :: Bool + _interOo_splitsems :: Bool + _interOo_strictwrap :: Bool + _interOo_traces :: Bool + _interOo_unbox :: Bool + _interOoptions :: Options + _interOparamMap :: ParamMap + _interOprefix :: String + _prodsIcataAlts :: Decls + _prodsIcomments :: ([String]) + _prodsIdataAlts :: DataAlts + _prodsIdecls :: Decls + _prodsIsemNames :: ([String]) + _interIcomments :: ([String]) + _interIsemDom :: ([Decl]) + _interIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _interIwrapDecls :: Decls + -- "GenerateCode.ag"(line 86, column 26) + __tup1 = + ({-# LINE 86 "GenerateCode.ag" #-} + (inh_,syn_,nt_) + {-# LINE 1053 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 86, column 26) + (_interOinh,_,_) = + ({-# LINE 86 "GenerateCode.ag" #-} + __tup1 + {-# LINE 1059 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 86, column 26) + (_,_interOsyn,_) = + ({-# LINE 86 "GenerateCode.ag" #-} + __tup1 + {-# LINE 1065 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 86, column 26) + (_,_,_interOnt) = + ({-# LINE 86 "GenerateCode.ag" #-} + __tup1 + {-# LINE 1071 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 87, column 25) + __tup2 = + ({-# LINE 87 "GenerateCode.ag" #-} + (inh_,syn_,nt_) + {-# LINE 1077 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 87, column 25) + (_prodsOinh,_,_) = + ({-# LINE 87 "GenerateCode.ag" #-} + __tup2 + {-# LINE 1083 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 87, column 25) + (_,_prodsOsyn,_) = + ({-# LINE 87 "GenerateCode.ag" #-} + __tup2 + {-# LINE 1089 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 87, column 25) + (_,_,_prodsOnt) = + ({-# LINE 87 "GenerateCode.ag" #-} + __tup2 + {-# LINE 1095 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 142, column 7) + _lhsOgathNts = + ({-# LINE 142 "GenerateCode.ag" #-} + Set.singleton nt_ + {-# LINE 1101 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 580, column 34) + _aroundMap = + ({-# LINE 580 "GenerateCode.ag" #-} + Map.findWithDefault Map.empty nt_ _lhsIaroundMap + {-# LINE 1107 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 596, column 34) + _mergeMap = + ({-# LINE 596 "GenerateCode.ag" #-} + Map.findWithDefault Map.empty nt_ _lhsImergeMap + {-# LINE 1113 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 801, column 18) + _semWrapper = + ({-# LINE 801 "GenerateCode.ag" #-} + let params' = map getName params_ + inhAttrs = Map.toList inh_ + synAttrs = Map.toList syn_ + inhVars = [ SimpleExpr (attrname True _LHS a) | (a,_) <- inhAttrs ] + synVars = [ SimpleExpr (attrname False _LHS a) | (a,_) <- synAttrs ] + var = "sem" + wrapNT = "wrap" ++ "_" ++ getName nt_ + inhNT = "Inh" ++ "_" ++ getName nt_ + synNT = "Syn" ++ "_" ++ getName nt_ + varPat = if _lhsIo_newtypes + then App (sdtype nt_) [SimpleExpr var] + else SimpleExpr var + evalTp | null params' = id + | otherwise = idEvalType + appParams nm = TypeApp (SimpleType nm) (map SimpleType params') + typeSig = TSig wrapNT (evalTp $ appParams (sdtype nt_) `Arr` (appParams inhNT `Arr` appParams synNT)) + mkstrict = Named _lhsIo_strictwrap + mkdata n attrs = Data n params' [Record n [mkstrict (getName f++"_"++n) $ evalTp $ typeToCodeType (Just nt_) params' t | (f,t) <- attrs]] False [] + datas = [mkdata inhNT inhAttrs, mkdata synNT synAttrs] + in datas ++ [ typeSig + , Decl (Fun wrapNT [varPat, App inhNT inhVars]) + (Let _interIwrapDecls (App synNT synVars)) + Set.empty Set.empty + ] + {-# LINE 1142 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 862, column 18) + _comment = + ({-# LINE 862 "GenerateCode.ag" #-} + Comment . unlines . map ind $ ( _interIcomments ++ ("alternatives:" : map ind _prodsIcomments) ) + {-# LINE 1148 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 923, column 19) + _lhsOchunks = + ({-# LINE 923 "GenerateCode.ag" #-} + [ Chunk (getName nt_) + (Comment (getName nt_ ++ " " ++ replicate (60 - length (getName nt_)) '-')) + (if _lhsIo_pretty then [_comment ] else []) + (if isJust _lhsIo_data then [_dataDef ] else []) + (if _lhsIo_cata && _genCata then _cataFun else []) + (if _lhsIo_sig then _interIsemDom else []) + (if nt_ `Set.member` _lhsIwrappers then _semWrapper else []) + (if _lhsIo_sem then _prodsIdecls else []) + (if _lhsIo_sem then _prodsIsemNames else []) + ] + {-# LINE 1163 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 990, column 18) + _dataDef = + ({-# LINE 990 "GenerateCode.ag" #-} + let params' = map getName params_ + typeSyn tp = let theType = + case tp of + CommonTypes.Maybe t -> TMaybe $ typeToCodeType (Just nt_) params' t + CommonTypes.Either t1 t2 -> TEither (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) + CommonTypes.Map t1 t2 -> TMap (typeToCodeType (Just nt_) params' t1) (typeToCodeType (Just nt_) params' t2) + CommonTypes.IntMap t -> TIntMap $ typeToCodeType (Just nt_) params' t + CommonTypes.List t -> Code.List $ typeToCodeType (Just nt_) params' t + CommonTypes.Tuple ts -> Code.TupleType [typeToCodeType (Just nt_) params' t + | (_,t) <- ts + ] + in Code.Type (getName nt_) params' (idEvalType theType) + derivings = maybe [] (map getName . Set.toList) (Map.lookup nt_ _lhsIderivings) + dataDef = Data (getName nt_) (map getName params_) _prodsIdataAlts (maybe False id _lhsIo_data) derivings + in maybe dataDef typeSyn $ lookup nt_ _lhsItypeSyns + {-# LINE 1183 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1022, column 18) + _genCata = + ({-# LINE 1022 "GenerateCode.ag" #-} + not (nt_ `Set.member` nocatas _lhsIoptions) + {-# LINE 1189 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1023, column 18) + _cataFun = + ({-# LINE 1023 "GenerateCode.ag" #-} + let appParams nm = TypeApp (SimpleType nm) (map SimpleType (map getName params_)) + evalTp | null params_ = id + | otherwise = idEvalType + tSig = TSig (cataname _lhsIprefix nt_) + (appQuant _lhsIquantMap nt_ $ appContext _lhsIcontextMap nt_ $ evalTp $ appParams (getName nt_) `Arr` appParams (sdtype nt_)) + special typ = case typ of + CommonTypes.List tp -> + let cons = SimpleExpr (semname _lhsIprefix nt_ (identifier "Cons")) + nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil" )) + arg = SimpleExpr "list" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in SimpleExpr ("(Prelude.map " ++ (cataname _lhsIprefix t') ++ " list)") + _ -> arg + lhs = Fun (cataname _lhsIprefix nt_) [arg] + rhs = (App "Prelude.foldr" [cons,nil,rarg]) + in [Decl lhs rhs Set.empty Set.empty] + CommonTypes.Maybe tp -> + let just = semname _lhsIprefix nt_ (identifier "Just") + nothing = semname _lhsIprefix nt_ (identifier "Nothing" ) + arg = SimpleExpr "x" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [arg] + _ -> arg + lhs a = Fun (cataname _lhsIprefix nt_) [a] + in [Decl (lhs (App "Prelude.Just" [arg])) (App just [rarg]) Set.empty Set.empty + ,Decl (lhs (SimpleExpr "Prelude.Nothing")) (SimpleExpr nothing) Set.empty Set.empty + ] + CommonTypes.Either tp1 tp2 -> + let left = semname _lhsIprefix nt_ (identifier "Left") + right = semname _lhsIprefix nt_ (identifier "Right" ) + arg = SimpleExpr "x" + rarg0 = case tp1 of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [arg] + _ -> arg + rarg1 = case tp2 of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [arg] + _ -> arg + lhs a = Fun (cataname _lhsIprefix nt_) [a] + in [Decl (lhs (App "Prelude.Left" [arg])) (App left [rarg0]) Set.empty Set.empty + ,Decl (lhs (App "Prelude.Right" [arg])) (App right [rarg1]) Set.empty Set.empty + ] + CommonTypes.Map _ tp -> + let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) + nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) + arg = SimpleExpr "m" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App "Map.map" [SimpleExpr $ cataname _lhsIprefix t', arg] + _ -> arg + lhs = Fun (cataname _lhsIprefix nt_) [arg] + rhs = App "Map.foldWithKey" [entry,nil,rarg] + in [Decl lhs rhs Set.empty Set.empty] + CommonTypes.IntMap tp -> + let entry = SimpleExpr (semname _lhsIprefix nt_ (identifier "Entry")) + nil = SimpleExpr (semname _lhsIprefix nt_ (identifier "Nil")) + arg = SimpleExpr "m" + rarg = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App "IntMap.map" [SimpleExpr $ cataname _lhsIprefix t', arg] + _ -> arg + lhs = Fun (cataname _lhsIprefix nt_) [arg] + rhs = App "IntMap.foldWithKey" [entry,nil,rarg] + in [Decl lhs rhs Set.empty Set.empty] + CommonTypes.Tuple tps -> + let con = semname _lhsIprefix nt_ (identifier "Tuple") + tps' = [ (SimpleExpr (getName x),y) | (x,y) <- tps] + rargs = map rarg tps' + rarg (n, tp) = case tp of + NT t _ -> let t' = maybe t id (deforestedNt t) + in App (cataname _lhsIprefix t') [n] + _ -> n + lhs = Fun (cataname _lhsIprefix nt_) [TupleExpr (map fst tps')] + rhs = App con rargs + in [Decl lhs rhs Set.empty Set.empty] + in Comment "cata" : + (if _lhsIo_sig then [tSig] else []) ++ + maybe _prodsIcataAlts special (lookup nt_ _lhsItypeSyns) + {-# LINE 1275 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 741, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 741 "GenerateCode.ag" #-} + _interIsemDomUnfoldGath + {-# LINE 1281 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 1287 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 1293 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _prodsOaroundMap = + ({-# LINE 575 "GenerateCode.ag" #-} + _aroundMap + {-# LINE 1299 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 1305 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _prodsOmergeMap = + ({-# LINE 591 "GenerateCode.ag" #-} + _mergeMap + {-# LINE 1311 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1317 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1323 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1329 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1335 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1341 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 1347 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 1353 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 1359 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 1365 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 1371 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 1377 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 1383 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 1389 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 1395 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 1401 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 1407 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 1413 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 1419 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 1425 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 1431 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _prodsOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 1437 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1443 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1449 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1455 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1461 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1467 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 1473 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 1479 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 1485 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 1491 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 1497 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 1503 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 1509 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 1515 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 1521 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 1527 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 1533 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 1539 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _interOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 1545 "GenerateCode.hs" #-} + ) + ( _prodsIcataAlts,_prodsIcomments,_prodsIdataAlts,_prodsIdecls,_prodsIsemNames) = + prods_ _prodsOallNts _prodsOallPragmas _prodsOaroundMap _prodsOcontextMap _prodsOinh _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_costcentre _prodsOo_data _prodsOo_linePragmas _prodsOo_monadic _prodsOo_newtypes _prodsOo_pretty _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_splitsems _prodsOo_strictwrap _prodsOo_traces _prodsOo_unbox _prodsOoptions _prodsOparamMap _prodsOprefix _prodsOquantMap _prodsOsyn _prodsOunfoldSemDom _prodsOwith_sig + ( _interIcomments,_interIsemDom,_interIsemDomUnfoldGath,_interIwrapDecls) = + inter_ _interOinh _interOnt _interOo_case _interOo_cata _interOo_costcentre _interOo_data _interOo_linePragmas _interOo_monadic _interOo_newtypes _interOo_pretty _interOo_rename _interOo_sem _interOo_sig _interOo_splitsems _interOo_strictwrap _interOo_traces _interOo_unbox _interOoptions _interOparamMap _interOprefix _interOsyn + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) +-- CNonterminals ----------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map NontermIdent (Map ConstructorIdent (Set Identifier)) + contextMap : ContextMap + derivings : Derivings + mergeMap : Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramMap : ParamMap + prefix : String + quantMap : QuantMap + typeSyns : TypeSyns + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + wrappers : Set NontermIdent + synthesized attributes: + chunks : Chunks + gathNts : Set NontermIdent + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + alternatives: + alternative Cons: + child hd : CNonterminal + child tl : CNonterminals + alternative Nil: +-} +-- cata +sem_CNonterminals :: CNonterminals -> + T_CNonterminals +sem_CNonterminals list = + (Prelude.foldr sem_CNonterminals_Cons sem_CNonterminals_Nil (Prelude.map sem_CNonterminal list) ) +-- semantic domain +newtype T_CNonterminals = T_CNonterminals ((Set NontermIdent) -> + PragmaMap -> + (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> + ContextMap -> + Derivings -> + (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + ParamMap -> + String -> + QuantMap -> + TypeSyns -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + (Set NontermIdent) -> + ( Chunks,(Set NontermIdent),(Map (NontermIdent, Int) ([String], Code.Type)))) +data Inh_CNonterminals = Inh_CNonterminals {allNts_Inh_CNonterminals :: !((Set NontermIdent)),allPragmas_Inh_CNonterminals :: !(PragmaMap),aroundMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Set Identifier)))),contextMap_Inh_CNonterminals :: !(ContextMap),derivings_Inh_CNonterminals :: !(Derivings),mergeMap_Inh_CNonterminals :: !((Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))))),o_case_Inh_CNonterminals :: !(Bool),o_cata_Inh_CNonterminals :: !(Bool),o_costcentre_Inh_CNonterminals :: !(Bool),o_data_Inh_CNonterminals :: !((Maybe Bool)),o_linePragmas_Inh_CNonterminals :: !(Bool),o_monadic_Inh_CNonterminals :: !(Bool),o_newtypes_Inh_CNonterminals :: !(Bool),o_pretty_Inh_CNonterminals :: !(Bool),o_rename_Inh_CNonterminals :: !(Bool),o_sem_Inh_CNonterminals :: !(Bool),o_sig_Inh_CNonterminals :: !(Bool),o_splitsems_Inh_CNonterminals :: !(Bool),o_strictwrap_Inh_CNonterminals :: !(Bool),o_traces_Inh_CNonterminals :: !(Bool),o_unbox_Inh_CNonterminals :: !(Bool),options_Inh_CNonterminals :: !(Options),paramMap_Inh_CNonterminals :: !(ParamMap),prefix_Inh_CNonterminals :: !(String),quantMap_Inh_CNonterminals :: !(QuantMap),typeSyns_Inh_CNonterminals :: !(TypeSyns),unfoldSemDom_Inh_CNonterminals :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CNonterminals :: !(Bool),wrappers_Inh_CNonterminals :: !((Set NontermIdent))} +data Syn_CNonterminals = Syn_CNonterminals {chunks_Syn_CNonterminals :: !(Chunks),gathNts_Syn_CNonterminals :: !((Set NontermIdent)),semDomUnfoldGath_Syn_CNonterminals :: !((Map (NontermIdent, Int) ([String], Code.Type)))} +wrap_CNonterminals :: T_CNonterminals -> + Inh_CNonterminals -> + Syn_CNonterminals +wrap_CNonterminals (T_CNonterminals sem ) (Inh_CNonterminals _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers ) = + (let ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIderivings _lhsImergeMap _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsItypeSyns _lhsIunfoldSemDom _lhsIwith_sig _lhsIwrappers + in (Syn_CNonterminals _lhsOchunks _lhsOgathNts _lhsOsemDomUnfoldGath )) +sem_CNonterminals_Cons :: T_CNonterminal -> + T_CNonterminals -> + T_CNonterminals +sem_CNonterminals_Cons (T_CNonterminal hd_ ) (T_CNonterminals tl_ ) = + (T_CNonterminals (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIderivings + _lhsImergeMap + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsItypeSyns + _lhsIunfoldSemDom + _lhsIwith_sig + _lhsIwrappers -> + (let _lhsOchunks :: Chunks + _lhsOgathNts :: (Set NontermIdent) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _hdOallNts :: (Set NontermIdent) + _hdOallPragmas :: PragmaMap + _hdOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) + _hdOcontextMap :: ContextMap + _hdOderivings :: Derivings + _hdOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOoptions :: Options + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOquantMap :: QuantMap + _hdOtypeSyns :: TypeSyns + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOwith_sig :: Bool + _hdOwrappers :: (Set NontermIdent) + _tlOallNts :: (Set NontermIdent) + _tlOallPragmas :: PragmaMap + _tlOaroundMap :: (Map NontermIdent (Map ConstructorIdent (Set Identifier))) + _tlOcontextMap :: ContextMap + _tlOderivings :: Derivings + _tlOmergeMap :: (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))) + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOoptions :: Options + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOquantMap :: QuantMap + _tlOtypeSyns :: TypeSyns + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOwith_sig :: Bool + _tlOwrappers :: (Set NontermIdent) + _hdIchunks :: Chunks + _hdIgathNts :: (Set NontermIdent) + _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _tlIchunks :: Chunks + _tlIgathNts :: (Set NontermIdent) + _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + -- use rule "GenerateCode.ag"(line 915, column 49) + _lhsOchunks = + ({-# LINE 915 "GenerateCode.ag" #-} + _hdIchunks ++ _tlIchunks + {-# LINE 1743 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 138, column 47) + _lhsOgathNts = + ({-# LINE 138 "GenerateCode.ag" #-} + _hdIgathNts `Set.union` _tlIgathNts + {-# LINE 1749 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 741, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 741 "GenerateCode.ag" #-} + _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath + {-# LINE 1755 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 1761 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 1767 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 572 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 1773 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 1779 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOderivings = + ({-# LINE 983 "GenerateCode.ag" #-} + _lhsIderivings + {-# LINE 1785 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOmergeMap = + ({-# LINE 588 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 1791 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1797 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1803 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1809 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1815 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1821 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 1827 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 1833 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 1839 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 1845 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 1851 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 1857 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 1863 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 1869 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 1875 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 1881 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 1887 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 1893 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 1899 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 1905 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOtypeSyns = + ({-# LINE 983 "GenerateCode.ag" #-} + _lhsItypeSyns + {-# LINE 1911 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 1917 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 1923 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOwrappers = + ({-# LINE 983 "GenerateCode.ag" #-} + _lhsIwrappers + {-# LINE 1929 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 1935 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 1941 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 572 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 1947 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 1953 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOderivings = + ({-# LINE 983 "GenerateCode.ag" #-} + _lhsIderivings + {-# LINE 1959 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOmergeMap = + ({-# LINE 588 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 1965 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 1971 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 1977 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 1983 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 1989 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 1995 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 2001 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 2007 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 2013 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 2019 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 2025 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 2031 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 2037 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 2043 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 2049 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 2055 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 2061 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 2067 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 2073 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 2079 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOtypeSyns = + ({-# LINE 983 "GenerateCode.ag" #-} + _lhsItypeSyns + {-# LINE 2085 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 2091 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 2097 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOwrappers = + ({-# LINE 983 "GenerateCode.ag" #-} + _lhsIwrappers + {-# LINE 2103 "GenerateCode.hs" #-} + ) + ( _hdIchunks,_hdIgathNts,_hdIsemDomUnfoldGath) = + hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOderivings _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOquantMap _hdOtypeSyns _hdOunfoldSemDom _hdOwith_sig _hdOwrappers + ( _tlIchunks,_tlIgathNts,_tlIsemDomUnfoldGath) = + tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOderivings _tlOmergeMap _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOquantMap _tlOtypeSyns _tlOunfoldSemDom _tlOwith_sig _tlOwrappers + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) +sem_CNonterminals_Nil :: T_CNonterminals +sem_CNonterminals_Nil = + (T_CNonterminals (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIderivings + _lhsImergeMap + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsItypeSyns + _lhsIunfoldSemDom + _lhsIwith_sig + _lhsIwrappers -> + (let _lhsOchunks :: Chunks + _lhsOgathNts :: (Set NontermIdent) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + -- use rule "GenerateCode.ag"(line 915, column 49) + _lhsOchunks = + ({-# LINE 915 "GenerateCode.ag" #-} + [] + {-# LINE 2148 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 138, column 47) + _lhsOgathNts = + ({-# LINE 138 "GenerateCode.ag" #-} + Set.empty + {-# LINE 2154 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 741, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 741 "GenerateCode.ag" #-} + Map.empty + {-# LINE 2160 "GenerateCode.hs" #-} + ) + in ( _lhsOchunks,_lhsOgathNts,_lhsOsemDomUnfoldGath))) ) +-- CProduction ------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map ConstructorIdent (Set Identifier) + contextMap : ContextMap + inh : Attributes + mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier])) + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramMap : ParamMap + prefix : String + quantMap : QuantMap + syn : Attributes + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + synthesized attributes: + cataAlt : Decl + comments : [String] + dataAlt : DataAlt + decls : Decls + semNames : [String] + alternatives: + alternative CProduction: + child con : {ConstructorIdent} + child visits : CVisits + child children : {[(Identifier,Type,Maybe (Maybe Type))]} + child terminals : {[Identifier]} + visit 0: + local paramInstMap : _ + local aroundMap : _ + local mergeMap : _ + local firstOrderChildren : _ + local params : _ +-} +-- cata +sem_CProduction :: CProduction -> + T_CProduction +sem_CProduction (CProduction _con _visits _children _terminals ) = + (sem_CProduction_CProduction _con (sem_CVisits _visits ) _children _terminals ) +-- semantic domain +newtype T_CProduction = T_CProduction ((Set NontermIdent) -> + PragmaMap -> + (Map ConstructorIdent (Set Identifier)) -> + ContextMap -> + Attributes -> + (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + ParamMap -> + String -> + QuantMap -> + Attributes -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + ( Decl,([String]),DataAlt,Decls,([String]))) +data Inh_CProduction = Inh_CProduction {allNts_Inh_CProduction :: !((Set NontermIdent)),allPragmas_Inh_CProduction :: !(PragmaMap),aroundMap_Inh_CProduction :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProduction :: !(ContextMap),inh_Inh_CProduction :: !(Attributes),mergeMap_Inh_CProduction :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProduction :: !(NontermIdent),o_case_Inh_CProduction :: !(Bool),o_cata_Inh_CProduction :: !(Bool),o_costcentre_Inh_CProduction :: !(Bool),o_data_Inh_CProduction :: !((Maybe Bool)),o_linePragmas_Inh_CProduction :: !(Bool),o_monadic_Inh_CProduction :: !(Bool),o_newtypes_Inh_CProduction :: !(Bool),o_pretty_Inh_CProduction :: !(Bool),o_rename_Inh_CProduction :: !(Bool),o_sem_Inh_CProduction :: !(Bool),o_sig_Inh_CProduction :: !(Bool),o_splitsems_Inh_CProduction :: !(Bool),o_strictwrap_Inh_CProduction :: !(Bool),o_traces_Inh_CProduction :: !(Bool),o_unbox_Inh_CProduction :: !(Bool),options_Inh_CProduction :: !(Options),paramMap_Inh_CProduction :: !(ParamMap),prefix_Inh_CProduction :: !(String),quantMap_Inh_CProduction :: !(QuantMap),syn_Inh_CProduction :: !(Attributes),unfoldSemDom_Inh_CProduction :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProduction :: !(Bool)} +data Syn_CProduction = Syn_CProduction {cataAlt_Syn_CProduction :: !(Decl),comments_Syn_CProduction :: !(([String])),dataAlt_Syn_CProduction :: !(DataAlt),decls_Syn_CProduction :: !(Decls),semNames_Syn_CProduction :: !(([String]))} +wrap_CProduction :: T_CProduction -> + Inh_CProduction -> + Syn_CProduction +wrap_CProduction (T_CProduction sem ) (Inh_CProduction _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = + (let ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig + in (Syn_CProduction _lhsOcataAlt _lhsOcomments _lhsOdataAlt _lhsOdecls _lhsOsemNames )) +sem_CProduction_CProduction :: ConstructorIdent -> + T_CVisits -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ([Identifier]) -> + T_CProduction +sem_CProduction_CProduction con_ (T_CVisits visits_ ) children_ terminals_ = + (T_CProduction (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIinh + _lhsImergeMap + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsIsyn + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _visitsOcon :: ConstructorIdent + _visitsOterminals :: ([Identifier]) + _visitsOvisitedSet :: (Set Identifier) + _visitsOnr :: Int + _visitsOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) + _visitsOinstVisitNrs :: (Map Identifier Int) + _lhsOcomments :: ([String]) + _lhsOdataAlt :: DataAlt + _lhsOcataAlt :: Decl + _lhsOdecls :: Decls + _lhsOsemNames :: ([String]) + _visitsOallNts :: (Set NontermIdent) + _visitsOallPragmas :: PragmaMap + _visitsOaroundMap :: (Set Identifier) + _visitsOcontextMap :: ContextMap + _visitsOinh :: Attributes + _visitsOmergeMap :: (Map Identifier (Identifier, [Identifier])) + _visitsOnt :: NontermIdent + _visitsOo_case :: Bool + _visitsOo_cata :: Bool + _visitsOo_costcentre :: Bool + _visitsOo_data :: (Maybe Bool) + _visitsOo_linePragmas :: Bool + _visitsOo_monadic :: Bool + _visitsOo_newtypes :: Bool + _visitsOo_pretty :: Bool + _visitsOo_rename :: Bool + _visitsOo_sem :: Bool + _visitsOo_sig :: Bool + _visitsOo_splitsems :: Bool + _visitsOo_strictwrap :: Bool + _visitsOo_traces :: Bool + _visitsOo_unbox :: Bool + _visitsOoptions :: Options + _visitsOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _visitsOparamMap :: ParamMap + _visitsOprefix :: String + _visitsOquantMap :: QuantMap + _visitsOsyn :: Attributes + _visitsOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _visitsOwith_sig :: Bool + _visitsIcomments :: ([String]) + _visitsIdecls :: Decls + _visitsIgatherInstVisitNrs :: (Map Identifier Int) + _visitsIintra :: Exprs + _visitsIintraVars :: (Set String) + _visitsIisNil :: Bool + _visitsIsemNames :: ([String]) + _visitsIvisitedSet :: (Set Identifier) + -- "GenerateCode.ag"(line 92, column 19) + _visitsOcon = + ({-# LINE 92 "GenerateCode.ag" #-} + con_ + {-# LINE 2347 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 93, column 20) + _visitsOterminals = + ({-# LINE 93 "GenerateCode.ag" #-} + terminals_ + {-# LINE 2353 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 105, column 7) + _paramInstMap = + ({-# LINE 105 "GenerateCode.ag" #-} + Map.fromList [(nm, (extractNonterminal tp, tps)) | (nm,tp,_) <- children_, let tps = map cleanupArg $ nontermArgs tp, not (null tps) ] + {-# LINE 2359 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 146, column 32) + _visitsOvisitedSet = + ({-# LINE 146 "GenerateCode.ag" #-} + Set.empty + {-# LINE 2365 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 278, column 18) + _visitsOnr = + ({-# LINE 278 "GenerateCode.ag" #-} + 0 + {-# LINE 2371 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 419, column 18) + _visitsOchildren = + ({-# LINE 419 "GenerateCode.ag" #-} + children_ + {-# LINE 2377 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 561, column 7) + _visitsOinstVisitNrs = + ({-# LINE 561 "GenerateCode.ag" #-} + _visitsIgatherInstVisitNrs + {-# LINE 2383 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 581, column 34) + _aroundMap = + ({-# LINE 581 "GenerateCode.ag" #-} + Map.findWithDefault Set.empty con_ _lhsIaroundMap + {-# LINE 2389 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 597, column 34) + _mergeMap = + ({-# LINE 597 "GenerateCode.ag" #-} + Map.findWithDefault Map.empty con_ _lhsImergeMap + {-# LINE 2395 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 877, column 18) + _firstOrderChildren = + ({-# LINE 877 "GenerateCode.ag" #-} + [ (nm,fromJust mb,virt) | (nm,tp,virt) <- children_, let mb = isFirstOrder virt tp, isJust mb ] + {-# LINE 2401 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 878, column 18) + _lhsOcomments = + ({-# LINE 878 "GenerateCode.ag" #-} + ("alternative " ++ getName con_ ++ ":") + : map ind ( map (\(x,y,_) -> makeLocalComment 14 "child" x (Just y)) _firstOrderChildren + ++ _visitsIcomments + ) + {-# LINE 2410 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1014, column 17) + _params = + ({-# LINE 1014 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 2416 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1015, column 17) + _lhsOdataAlt = + ({-# LINE 1015 "GenerateCode.ag" #-} + DataAlt (conname _lhsIo_rename _lhsInt con_) (map (\(_,t,_) -> typeToCodeType (Just _lhsInt) _params t) _firstOrderChildren ) + {-# LINE 2422 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1115, column 17) + _lhsOcataAlt = + ({-# LINE 1115 "GenerateCode.ag" #-} + let lhs = Fun (cataname _lhsIprefix _lhsInt) [lhs_pat] + lhs_pat = App (conname _lhsIo_rename _lhsInt con_) + (map (\(n,_,_) -> SimpleExpr $ locname $ n) _firstOrderChildren ) + rhs = App (semname _lhsIprefix _lhsInt con_) + (map argument _firstOrderChildren ) + argument (nm,NT tp _,_) = let tp' = maybe tp id (deforestedNt tp) + in App (cataname _lhsIprefix tp') + [SimpleExpr (locname nm)] + argument (nm, _,_) = SimpleExpr (locname nm) + in Decl lhs rhs Set.empty Set.empty + {-# LINE 2437 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 916, column 44) + _lhsOdecls = + ({-# LINE 916 "GenerateCode.ag" #-} + _visitsIdecls + {-# LINE 2443 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 1131, column 61) + _lhsOsemNames = + ({-# LINE 1131 "GenerateCode.ag" #-} + _visitsIsemNames + {-# LINE 2449 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 2455 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 2461 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _visitsOaroundMap = + ({-# LINE 577 "GenerateCode.ag" #-} + _aroundMap + {-# LINE 2467 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 2473 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 2479 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _visitsOmergeMap = + ({-# LINE 593 "GenerateCode.ag" #-} + _mergeMap + {-# LINE 2485 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 2491 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 2497 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 2503 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 2509 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 2515 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 2521 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 2527 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 2533 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 2539 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 2545 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 2551 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 2557 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 2563 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 2569 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 2575 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 2581 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 2587 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _visitsOparamInstMap = + ({-# LINE 101 "GenerateCode.ag" #-} + _paramInstMap + {-# LINE 2593 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 2599 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 2605 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 2611 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 2617 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 2623 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _visitsOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 2629 "GenerateCode.hs" #-} + ) + ( _visitsIcomments,_visitsIdecls,_visitsIgatherInstVisitNrs,_visitsIintra,_visitsIintraVars,_visitsIisNil,_visitsIsemNames,_visitsIvisitedSet) = + visits_ _visitsOallNts _visitsOallPragmas _visitsOaroundMap _visitsOchildren _visitsOcon _visitsOcontextMap _visitsOinh _visitsOinstVisitNrs _visitsOmergeMap _visitsOnr _visitsOnt _visitsOo_case _visitsOo_cata _visitsOo_costcentre _visitsOo_data _visitsOo_linePragmas _visitsOo_monadic _visitsOo_newtypes _visitsOo_pretty _visitsOo_rename _visitsOo_sem _visitsOo_sig _visitsOo_splitsems _visitsOo_strictwrap _visitsOo_traces _visitsOo_unbox _visitsOoptions _visitsOparamInstMap _visitsOparamMap _visitsOprefix _visitsOquantMap _visitsOsyn _visitsOterminals _visitsOunfoldSemDom _visitsOvisitedSet _visitsOwith_sig + in ( _lhsOcataAlt,_lhsOcomments,_lhsOdataAlt,_lhsOdecls,_lhsOsemNames))) ) +-- CProductions ------------------------------------------------ +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Map ConstructorIdent (Set Identifier) + contextMap : ContextMap + inh : Attributes + mergeMap : Map ConstructorIdent (Map Identifier (Identifier, [Identifier])) + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramMap : ParamMap + prefix : String + quantMap : QuantMap + syn : Attributes + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + synthesized attributes: + cataAlts : Decls + comments : [String] + dataAlts : DataAlts + decls : Decls + semNames : [String] + alternatives: + alternative Cons: + child hd : CProduction + child tl : CProductions + alternative Nil: +-} +-- cata +sem_CProductions :: CProductions -> + T_CProductions +sem_CProductions list = + (Prelude.foldr sem_CProductions_Cons sem_CProductions_Nil (Prelude.map sem_CProduction list) ) +-- semantic domain +newtype T_CProductions = T_CProductions ((Set NontermIdent) -> + PragmaMap -> + (Map ConstructorIdent (Set Identifier)) -> + ContextMap -> + Attributes -> + (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + ParamMap -> + String -> + QuantMap -> + Attributes -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + Bool -> + ( Decls,([String]),DataAlts,Decls,([String]))) +data Inh_CProductions = Inh_CProductions {allNts_Inh_CProductions :: !((Set NontermIdent)),allPragmas_Inh_CProductions :: !(PragmaMap),aroundMap_Inh_CProductions :: !((Map ConstructorIdent (Set Identifier))),contextMap_Inh_CProductions :: !(ContextMap),inh_Inh_CProductions :: !(Attributes),mergeMap_Inh_CProductions :: !((Map ConstructorIdent (Map Identifier (Identifier, [Identifier])))),nt_Inh_CProductions :: !(NontermIdent),o_case_Inh_CProductions :: !(Bool),o_cata_Inh_CProductions :: !(Bool),o_costcentre_Inh_CProductions :: !(Bool),o_data_Inh_CProductions :: !((Maybe Bool)),o_linePragmas_Inh_CProductions :: !(Bool),o_monadic_Inh_CProductions :: !(Bool),o_newtypes_Inh_CProductions :: !(Bool),o_pretty_Inh_CProductions :: !(Bool),o_rename_Inh_CProductions :: !(Bool),o_sem_Inh_CProductions :: !(Bool),o_sig_Inh_CProductions :: !(Bool),o_splitsems_Inh_CProductions :: !(Bool),o_strictwrap_Inh_CProductions :: !(Bool),o_traces_Inh_CProductions :: !(Bool),o_unbox_Inh_CProductions :: !(Bool),options_Inh_CProductions :: !(Options),paramMap_Inh_CProductions :: !(ParamMap),prefix_Inh_CProductions :: !(String),quantMap_Inh_CProductions :: !(QuantMap),syn_Inh_CProductions :: !(Attributes),unfoldSemDom_Inh_CProductions :: !((NontermIdent -> Int -> [String] -> Code.Type)),with_sig_Inh_CProductions :: !(Bool)} +data Syn_CProductions = Syn_CProductions {cataAlts_Syn_CProductions :: !(Decls),comments_Syn_CProductions :: !(([String])),dataAlts_Syn_CProductions :: !(DataAlts),decls_Syn_CProductions :: !(Decls),semNames_Syn_CProductions :: !(([String]))} +wrap_CProductions :: T_CProductions -> + Inh_CProductions -> + Syn_CProductions +wrap_CProductions (T_CProductions sem ) (Inh_CProductions _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig ) = + (let ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIcontextMap _lhsIinh _lhsImergeMap _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIunfoldSemDom _lhsIwith_sig + in (Syn_CProductions _lhsOcataAlts _lhsOcomments _lhsOdataAlts _lhsOdecls _lhsOsemNames )) +sem_CProductions_Cons :: T_CProduction -> + T_CProductions -> + T_CProductions +sem_CProductions_Cons (T_CProduction hd_ ) (T_CProductions tl_ ) = + (T_CProductions (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIinh + _lhsImergeMap + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsIsyn + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _lhsOdataAlts :: DataAlts + _lhsOcataAlts :: Decls + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOsemNames :: ([String]) + _hdOallNts :: (Set NontermIdent) + _hdOallPragmas :: PragmaMap + _hdOaroundMap :: (Map ConstructorIdent (Set Identifier)) + _hdOcontextMap :: ContextMap + _hdOinh :: Attributes + _hdOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOoptions :: Options + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOquantMap :: QuantMap + _hdOsyn :: Attributes + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOwith_sig :: Bool + _tlOallNts :: (Set NontermIdent) + _tlOallPragmas :: PragmaMap + _tlOaroundMap :: (Map ConstructorIdent (Set Identifier)) + _tlOcontextMap :: ContextMap + _tlOinh :: Attributes + _tlOmergeMap :: (Map ConstructorIdent (Map Identifier (Identifier, [Identifier]))) + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOoptions :: Options + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOquantMap :: QuantMap + _tlOsyn :: Attributes + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOwith_sig :: Bool + _hdIcataAlt :: Decl + _hdIcomments :: ([String]) + _hdIdataAlt :: DataAlt + _hdIdecls :: Decls + _hdIsemNames :: ([String]) + _tlIcataAlts :: Decls + _tlIcomments :: ([String]) + _tlIdataAlts :: DataAlts + _tlIdecls :: Decls + _tlIsemNames :: ([String]) + -- "GenerateCode.ag"(line 1010, column 17) + _lhsOdataAlts = + ({-# LINE 1010 "GenerateCode.ag" #-} + _hdIdataAlt : _tlIdataAlts + {-# LINE 2833 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1111, column 10) + _lhsOcataAlts = + ({-# LINE 1111 "GenerateCode.ag" #-} + _hdIcataAlt : _tlIcataAlts + {-# LINE 2839 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 2845 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 916, column 44) + _lhsOdecls = + ({-# LINE 916 "GenerateCode.ag" #-} + _hdIdecls ++ _tlIdecls + {-# LINE 2851 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 1131, column 61) + _lhsOsemNames = + ({-# LINE 1131 "GenerateCode.ag" #-} + _hdIsemNames ++ _tlIsemNames + {-# LINE 2857 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 2863 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 2869 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 575 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 2875 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 2881 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 2887 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOmergeMap = + ({-# LINE 591 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 2893 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 2899 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 2905 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 2911 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 2917 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 2923 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 2929 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 2935 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 2941 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 2947 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 2953 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 2959 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 2965 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 2971 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 2977 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 2983 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 2989 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 2995 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 3001 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 3007 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 3013 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 3019 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 3025 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 3031 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 3037 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 3043 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 575 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 3049 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 3055 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 3061 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOmergeMap = + ({-# LINE 591 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 3067 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 3073 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 3079 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 3085 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 3091 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 3097 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 3103 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 3109 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 3115 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 3121 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 3127 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 3133 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 3139 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 3145 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 3151 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 3157 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 3163 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 3169 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 3175 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 3181 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 3187 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 3193 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 3199 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 3205 "GenerateCode.hs" #-} + ) + ( _hdIcataAlt,_hdIcomments,_hdIdataAlt,_hdIdecls,_hdIsemNames) = + hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOcontextMap _hdOinh _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOquantMap _hdOsyn _hdOunfoldSemDom _hdOwith_sig + ( _tlIcataAlts,_tlIcomments,_tlIdataAlts,_tlIdecls,_tlIsemNames) = + tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOcontextMap _tlOinh _tlOmergeMap _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOquantMap _tlOsyn _tlOunfoldSemDom _tlOwith_sig + in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) ) +sem_CProductions_Nil :: T_CProductions +sem_CProductions_Nil = + (T_CProductions (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIcontextMap + _lhsIinh + _lhsImergeMap + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsIsyn + _lhsIunfoldSemDom + _lhsIwith_sig -> + (let _lhsOdataAlts :: DataAlts + _lhsOcataAlts :: Decls + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOsemNames :: ([String]) + -- "GenerateCode.ag"(line 1011, column 17) + _lhsOdataAlts = + ({-# LINE 1011 "GenerateCode.ag" #-} + [] + {-# LINE 3252 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1112, column 10) + _lhsOcataAlts = + ({-# LINE 1112 "GenerateCode.ag" #-} + [] + {-# LINE 3258 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + [] + {-# LINE 3264 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 916, column 44) + _lhsOdecls = + ({-# LINE 916 "GenerateCode.ag" #-} + [] + {-# LINE 3270 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 1131, column 61) + _lhsOsemNames = + ({-# LINE 1131 "GenerateCode.ag" #-} + [] + {-# LINE 3276 "GenerateCode.hs" #-} + ) + in ( _lhsOcataAlts,_lhsOcomments,_lhsOdataAlts,_lhsOdecls,_lhsOsemNames))) ) +-- CRule ------------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + aroundMap : Set Identifier + children : [(Identifier,Type,Maybe (Maybe Type))] + con : ConstructorIdent + inh : Attributes + instVisitNrs : Map Identifier Int + mergeMap : Map Identifier (Identifier, [Identifier]) + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + what : String + chained attributes: + declsAbove : [Decl] + visitedSet : Set Identifier + synthesized attributes: + allTpsFound : Bool + bldBlocksFun : DeclBlocks -> DeclBlocks + comments : [String] + decls : Decls + definedInsts : [Identifier] + exprs : Exprs + tSigs : [Decl] + tps : [Type] + usedVars : Set String + alternatives: + alternative CChildVisit: + child name : {Identifier} + child nt : {NontermIdent} + child nr : {Int} + child inh : {Attributes} + child syn : {Attributes} + child isLast : {Bool} + visit 0: + local visitedSet : _ + local costCentreDescr : _ + local addCostCentre : _ + local decls : _ + local isSuperfluousHigherOrderIntra : _ + local names : _ + local mkTp : _ + local definedTps : _ + local nextTp : _ + local orgParams : _ + local instParams : _ + local replParamMap : _ + local replace : _ + local evalTp : _ + alternative CRule: + child name : {Identifier} + child isIn : {Bool} + child hasCode : {Bool} + child nt : {NontermIdent} + child con : {ConstructorIdent} + child field : {Identifier} + child childnt : {Maybe NontermIdent} + child tp : {Maybe Type} + child pattern : Pattern + child rhs : {[String]} + child defines : {Map Int (Identifier,Identifier,Maybe Type)} + child owrt : {Bool} + child origin : {String} + child uses : {Set (Identifier, Identifier)} + child explicit : {Bool} + child mbNamed : {Maybe Identifier} + visit 0: + local instTypes : _ + local originComment : _ + local instDecls : _ + local patDescr : _ + local traceDescr : _ + local addTrace : _ + local costCentreDescr : _ + local addCostCentre : _ + local addLinePragma : _ + local decls : _ + local definedInsts : _ + local rulename : _ + local mkTp : _ + local orgParams : _ + local evalTp : _ + local _tup3 : {([Type],Bool)} +-} +-- cata +sem_CRule :: CRule -> + T_CRule +sem_CRule (CChildVisit _name _nt _nr _inh _syn _isLast ) = + (sem_CRule_CChildVisit _name _nt _nr _inh _syn _isLast ) +sem_CRule (CRule _name _isIn _hasCode _nt _con _field _childnt _tp _pattern _rhs _defines _owrt _origin _uses _explicit _mbNamed ) = + (sem_CRule_CRule _name _isIn _hasCode _nt _con _field _childnt _tp (sem_Pattern _pattern ) _rhs _defines _owrt _origin _uses _explicit _mbNamed ) +-- semantic domain +newtype T_CRule = T_CRule ((Set NontermIdent) -> + (Set Identifier) -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ConstructorIdent -> + ([Decl]) -> + Attributes -> + (Map Identifier Int) -> + (Map Identifier (Identifier, [Identifier])) -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + (Set Identifier) -> + String -> + ( Bool,(DeclBlocks -> DeclBlocks),([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier))) +data Inh_CRule = Inh_CRule {allNts_Inh_CRule :: !((Set NontermIdent)),aroundMap_Inh_CRule :: !((Set Identifier)),children_Inh_CRule :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_CRule :: !(ConstructorIdent),declsAbove_Inh_CRule :: !(([Decl])),inh_Inh_CRule :: !(Attributes),instVisitNrs_Inh_CRule :: !((Map Identifier Int)),mergeMap_Inh_CRule :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CRule :: !(Int),nt_Inh_CRule :: !(NontermIdent),o_case_Inh_CRule :: !(Bool),o_cata_Inh_CRule :: !(Bool),o_costcentre_Inh_CRule :: !(Bool),o_data_Inh_CRule :: !((Maybe Bool)),o_linePragmas_Inh_CRule :: !(Bool),o_monadic_Inh_CRule :: !(Bool),o_newtypes_Inh_CRule :: !(Bool),o_pretty_Inh_CRule :: !(Bool),o_rename_Inh_CRule :: !(Bool),o_sem_Inh_CRule :: !(Bool),o_sig_Inh_CRule :: !(Bool),o_splitsems_Inh_CRule :: !(Bool),o_strictwrap_Inh_CRule :: !(Bool),o_traces_Inh_CRule :: !(Bool),o_unbox_Inh_CRule :: !(Bool),options_Inh_CRule :: !(Options),paramInstMap_Inh_CRule :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CRule :: !(ParamMap),prefix_Inh_CRule :: !(String),syn_Inh_CRule :: !(Attributes),terminals_Inh_CRule :: !(([Identifier])),unfoldSemDom_Inh_CRule :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CRule :: !((Set Identifier)),what_Inh_CRule :: !(String)} +data Syn_CRule = Syn_CRule {allTpsFound_Syn_CRule :: !(Bool),bldBlocksFun_Syn_CRule :: !((DeclBlocks -> DeclBlocks)),comments_Syn_CRule :: !(([String])),decls_Syn_CRule :: !(Decls),declsAbove_Syn_CRule :: !(([Decl])),definedInsts_Syn_CRule :: !(([Identifier])),exprs_Syn_CRule :: !(Exprs),tSigs_Syn_CRule :: !(([Decl])),tps_Syn_CRule :: !(([Type])),usedVars_Syn_CRule :: !((Set String)),visitedSet_Syn_CRule :: !((Set Identifier))} +wrap_CRule :: T_CRule -> + Inh_CRule -> + Syn_CRule +wrap_CRule (T_CRule sem ) (Inh_CRule _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) = + (let ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat + in (Syn_CRule _lhsOallTpsFound _lhsObldBlocksFun _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet )) +sem_CRule_CChildVisit :: Identifier -> + NontermIdent -> + Int -> + Attributes -> + Attributes -> + Bool -> + T_CRule +sem_CRule_CChildVisit name_ nt_ nr_ inh_ syn_ isLast_ = + (T_CRule (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsImergeMap + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIvisitedSet + _lhsIwhat -> + (let _lhsOexprs :: Exprs + _lhsOusedVars :: (Set String) + _lhsOtSigs :: ([Decl]) + _lhsOtps :: ([Type]) + _lhsOdeclsAbove :: ([Decl]) + _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) + _lhsOallTpsFound :: Bool + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + _lhsOvisitedSet :: (Set Identifier) + -- "GenerateCode.ag"(line 147, column 26) + _visitedSet = + ({-# LINE 147 "GenerateCode.ag" #-} + Set.insert name_ _lhsIvisitedSet + {-# LINE 3494 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 203, column 18) + _costCentreDescr = + ({-# LINE 203 "GenerateCode.ag" #-} + show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show name_ ++ ":" ++ show nt_ ++ ":" ++ show nr_ + {-# LINE 3500 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 204, column 18) + _addCostCentre = + ({-# LINE 204 "GenerateCode.ag" #-} + \v -> if _lhsIo_costcentre + then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v + else v + {-# LINE 3508 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 207, column 18) + _decls = + ({-# LINE 207 "GenerateCode.ag" #-} + let lhsVars = map (attrname True name_) (Map.keys syn_) + ++ if isLast_ then [] else [unwrap ++ funname name_ (nr_+1)] + rhsVars = map (attrname False name_) (Map.keys inh_) + unwrap = if _lhsIo_newtypes then typeName nt_ (nr_ + 1) ++ " " else "" + tuple | isMerging = TupleLhs [locname name_ ++ "_comp"] + | otherwise = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars + rhs = _addCostCentre $ Code.InvokeExpr (typeName nt_ nr_) (SimpleExpr fun) (map SimpleExpr rhsVars) + isVirtual _ [] = False + isVirtual nm ((n,t,mb) : r) + | nm == n = isJust mb + | otherwise = isVirtual nm r + isMerged = name_ `Map.member` _lhsImergeMap + isMerging = name_ `elem` concatMap (\(_,cs) -> cs) (Map.elems _lhsImergeMap) + merges = [ (c,cs) | (c,(_,cs)) <- Map.assocs _lhsImergeMap, all (`Set.member` _visitedSet ) cs, name_ `elem` (c:cs) ] + baseNm = if nr_ == 0 && isVirtual name_ _lhsIchildren + then Ident (getName name_ ++ "_inst") (getPos name_) + else name_ + fun | nr_ == 0 && Set.member name_ _lhsIaroundMap + = locname name_ ++ "_around " ++ funname baseNm 0 + | otherwise = funname baseNm nr_ + outDecls | isMerged = [] + | otherwise = + if isMerging + then [mkDecl _lhsIo_monadic tuple rhs Set.empty Set.empty] + else [Resume _lhsIo_monadic (typeName nt_ nr_) tuple rhs] + outMerged | null merges || nr_ /= 0 = [] + | otherwise = let (c,cs) = head merges + tuple' = mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars' + lhsVars' = map (attrname True c) (Map.keys syn_) + ++ if isLast_ then [] else [unwrap ++ funname c (nr_+1)] + rhsVars = [ locname c ++ "_comp" | c <- cs ] + fun = locname c ++ "_merge" + rhs' = App fun (map SimpleExpr rhsVars) + in [Resume _lhsIo_monadic (typeName nt_ nr_) tuple' rhs'] + in + (outDecls ++ outMerged) + {-# LINE 3549 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 325, column 7) + _isSuperfluousHigherOrderIntra = + ({-# LINE 325 "GenerateCode.ag" #-} + _lhsInr <= Map.findWithDefault (-1) name_ _lhsIinstVisitNrs + {-# LINE 3555 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 339, column 8) + _names = + ({-# LINE 339 "GenerateCode.ag" #-} + if _isSuperfluousHigherOrderIntra + then [] + else [funname name_ (nr_+1)] + {-# LINE 3563 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 343, column 8) + _lhsOexprs = + ({-# LINE 343 "GenerateCode.ag" #-} + let wrap = if _lhsIo_newtypes then \x -> App (typeName nt_ (nr_ + 1)) [x] else id + addType expr | null _instParams = expr + | otherwise = TypedExpr expr (_lhsIunfoldSemDom nt_ (nr_+1) _instParams ) + in map (wrap . addType . SimpleExpr) _names + {-# LINE 3572 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 355, column 7) + _lhsOusedVars = + ({-# LINE 355 "GenerateCode.ag" #-} + Set.fromList _names + {-# LINE 3578 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 394, column 19) + _mkTp = + ({-# LINE 394 "GenerateCode.ag" #-} + _evalTp . typeToCodeType (Just nt_) _orgParams + {-# LINE 3584 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 395, column 19) + _definedTps = + ({-# LINE 395 "GenerateCode.ag" #-} + [ TSig (attrname True name_ a) (_mkTp tp) | (a,tp) <- Map.toList syn_ ] + {-# LINE 3590 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 396, column 19) + _nextTp = + ({-# LINE 396 "GenerateCode.ag" #-} + typeName nt_ (nr_+1) + {-# LINE 3596 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 397, column 19) + _lhsOtSigs = + ({-# LINE 397 "GenerateCode.ag" #-} + (if isLast_ then id else (TSig (funname name_ (nr_+1)) (TypeApp (SimpleType _nextTp) (map SimpleType _instParams )) :)) _definedTps + {-# LINE 3602 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 399, column 19) + _orgParams = + ({-# LINE 399 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] nt_ _lhsIparamMap + {-# LINE 3608 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 400, column 19) + _instParams = + ({-# LINE 400 "GenerateCode.ag" #-} + snd $ Map.findWithDefault (nt_,[]) name_ _lhsIparamInstMap + {-# LINE 3614 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 401, column 19) + _replParamMap = + ({-# LINE 401 "GenerateCode.ag" #-} + Map.fromList (zip _orgParams _instParams ) + {-# LINE 3620 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 402, column 19) + _replace = + ({-# LINE 402 "GenerateCode.ag" #-} + \k -> Map.findWithDefault k k _replParamMap + {-# LINE 3626 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 403, column 19) + _evalTp = + ({-# LINE 403 "GenerateCode.ag" #-} + if null _orgParams then id else evalType _replace + {-# LINE 3632 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 426, column 19) + _lhsOtps = + ({-# LINE 426 "GenerateCode.ag" #-} + if _isSuperfluousHigherOrderIntra + then [] + else [NT (ntOfVisit nt_ (nr_+1)) _instParams ] + {-# LINE 3640 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 615, column 7) + _lhsOdeclsAbove = + ({-# LINE 615 "GenerateCode.ag" #-} + [] + {-# LINE 3646 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 628, column 7) + _lhsObldBlocksFun = + ({-# LINE 628 "GenerateCode.ag" #-} + DeclBlock _lhsIdeclsAbove (head _decls ) + {-# LINE 3652 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 423, column 39) + _lhsOallTpsFound = + ({-# LINE 423 "GenerateCode.ag" #-} + True + {-# LINE 3658 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + [] + {-# LINE 3664 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 155, column 34) + _lhsOdecls = + ({-# LINE 155 "GenerateCode.ag" #-} + _decls + {-# LINE 3670 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + [] + {-# LINE 3676 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _lhsOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _visitedSet + {-# LINE 3682 "GenerateCode.hs" #-} + ) + in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) ) +sem_CRule_CRule :: Identifier -> + Bool -> + Bool -> + NontermIdent -> + ConstructorIdent -> + Identifier -> + (Maybe NontermIdent) -> + (Maybe Type) -> + T_Pattern -> + ([String]) -> + (Map Int (Identifier,Identifier,Maybe Type)) -> + Bool -> + String -> + (Set (Identifier, Identifier)) -> + Bool -> + (Maybe Identifier) -> + T_CRule +sem_CRule_CRule name_ isIn_ hasCode_ nt_ con_ field_ childnt_ tp_ (T_Pattern pattern_ ) rhs_ defines_ owrt_ origin_ uses_ explicit_ mbNamed_ = + (T_CRule (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsImergeMap + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIvisitedSet + _lhsIwhat -> + (let _lhsOexprs :: Exprs + _lhsOusedVars :: (Set String) + _lhsOtSigs :: ([Decl]) + __tup3 :: (([Type],Bool)) + _lhsOtps :: ([Type]) + _lhsOallTpsFound :: Bool + _lhsOdeclsAbove :: ([Decl]) + _lhsObldBlocksFun :: (DeclBlocks -> DeclBlocks) + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + _lhsOvisitedSet :: (Set Identifier) + _patternIcopy :: Pattern + _patternIdefinedInsts :: ([Identifier]) + _patternIpatternAttributes :: ([(Identifier, Identifier)]) + -- "GenerateCode.ag"(line 157, column 12) + _instTypes = + ({-# LINE 157 "GenerateCode.ag" #-} + [ (n, (t, mb)) | (n, NT t _, mb) <- _lhsIchildren ] + {-# LINE 3756 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 158, column 12) + _originComment = + ({-# LINE 158 "GenerateCode.ag" #-} + if _lhsIo_pretty + then (Comment origin_:) + else id + {-# LINE 3764 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 161, column 12) + _instDecls = + ({-# LINE 161 "GenerateCode.ag" #-} + [ mkDecl _lhsIo_monadic (Pattern3 (Alias _INST' inst (Underscore (getPos inst)) [])) + ( let (nm,mb) = fromJust $ inst `lookup` _instTypes + in unwrapSem _lhsIo_newtypes (maybe nm id (deforestedNt nm)) + $ case mb of + Just (Just tp') -> App instLocFieldName [SimpleExpr $ fieldname inst] + _ -> + case nm `Set.member` _lhsIallNts of + True -> App (cataname _lhsIprefix nm) + [SimpleExpr instLocFieldName] + False -> SimpleExpr instLocFieldName + ) + (Set.singleton instSemFieldName) + (Set.singleton instLocFieldName) + | inst <- _definedInsts + , let instLocFieldName = attrname True _INST inst + instSemFieldName = attrname False _INST' inst + ] + {-# LINE 3786 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 178, column 12) + _patDescr = + ({-# LINE 178 "GenerateCode.ag" #-} + if isIn_ + then "_" + else concat $ intersperse "," (map (\(f,a) -> show f ++ "." ++ show a) _patternIpatternAttributes) + {-# LINE 3794 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 181, column 12) + _traceDescr = + ({-# LINE 181 "GenerateCode.ag" #-} + (maybe "" (\nm -> show nm ++ ":") mbNamed_) ++ show nt_ ++ " :: " ++ show con_ ++ " :: " ++ _patDescr + {-# LINE 3800 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 183, column 12) + _addTrace = + ({-# LINE 183 "GenerateCode.ag" #-} + \v -> if _lhsIo_traces + then Trace _traceDescr v + else v + {-# LINE 3808 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 186, column 12) + _costCentreDescr = + ({-# LINE 186 "GenerateCode.ag" #-} + show nt_ ++ ":" ++ show con_ ++ ":" ++ _patDescr + {-# LINE 3814 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 187, column 12) + _addCostCentre = + ({-# LINE 187 "GenerateCode.ag" #-} + \v -> if _lhsIo_costcentre + then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v + else v + {-# LINE 3822 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 190, column 12) + _addLinePragma = + ({-# LINE 190 "GenerateCode.ag" #-} + \v -> let p = getPos name_ + hasPos = line p > 0 && column p >= 0 && not (null (file p)) + in if _lhsIo_linePragmas && hasPos + then PragmaExpr True True ("LINE " ++ show (line p) ++ " " ++ show (file p)) + $ LineExpr + $ v + else v + {-# LINE 3834 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 197, column 12) + _decls = + ({-# LINE 197 "GenerateCode.ag" #-} + if hasCode_ + then _originComment ( mkDecl (_lhsIo_monadic && explicit_) (Pattern3 _patternIcopy) (_addTrace $ _addCostCentre $ _addLinePragma $ (TextExpr rhs_)) + (Set.fromList [attrname False fld nm | (fld,nm,_) <- Map.elems defines_]) + (Set.fromList [attrname True fld nm | (fld,nm) <- Set.toList uses_]) + : _instDecls ) + else _instDecls + {-# LINE 3845 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 264, column 12) + _definedInsts = + ({-# LINE 264 "GenerateCode.ag" #-} + if isIn_ then [] else _patternIdefinedInsts + {-# LINE 3851 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 334, column 12) + _rulename = + ({-# LINE 334 "GenerateCode.ag" #-} + if field_ == _LOC && name_ `elem` _lhsIterminals + then funname name_ 0 + else attrname isIn_ field_ name_ + {-# LINE 3859 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 337, column 12) + _lhsOexprs = + ({-# LINE 337 "GenerateCode.ag" #-} + [SimpleExpr _rulename ] + {-# LINE 3865 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 353, column 7) + _lhsOusedVars = + ({-# LINE 353 "GenerateCode.ag" #-} + Set.singleton _rulename + {-# LINE 3871 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 363, column 19) + _mkTp = + ({-# LINE 363 "GenerateCode.ag" #-} + typeToCodeType (Just _lhsInt) _orgParams + {-# LINE 3877 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 364, column 19) + _lhsOtSigs = + ({-# LINE 364 "GenerateCode.ag" #-} + [ TSig (attrname False field attr) tp' + | (field,attr,tp) <- Map.elems defines_, isJust tp + , let tp1 = _evalTp field $ _mkTp (fromJust tp) + tp' = case findOrigType attr _lhsIchildren of + Just tp' -> let tp'' = case tp' of + NT n params -> NT (Ident ("T_" ++ show n) (getPos n)) params + _ -> tp' + tp2 = _evalTp field $ _mkTp tp'' + in Arr tp2 tp1 + Nothing -> tp1 + findOrigType nm [] = Nothing + findOrigType nm ((n,_,mb) : r) + | nm == n = case mb of + Just (Just orig) -> Just orig + _ -> Nothing + | otherwise = findOrigType nm r + ] + {-# LINE 3899 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 382, column 19) + _orgParams = + ({-# LINE 382 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 3905 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 383, column 19) + _evalTp = + ({-# LINE 383 "GenerateCode.ag" #-} + \field tp -> let orgFldParams = map getName $ Map.findWithDefault [] childNt _lhsIparamMap + (childNt,instParams) = Map.findWithDefault (_lhsInt,[]) field _lhsIparamInstMap + replMap = Map.fromList (zip orgFldParams instParams) + replace k = Map.findWithDefault ('@':k) k replMap + in if null instParams + then if null _orgParams + then tp + else idEvalType tp + else evalType replace tp + {-# LINE 3919 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 425, column 23) + __tup3 = + ({-# LINE 425 "GenerateCode.ag" #-} + maybe ([],False) (\tp -> ([substSelf (fromJust childnt_) tp],True)) tp_ + {-# LINE 3925 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 425, column 23) + (_lhsOtps,_) = + ({-# LINE 425 "GenerateCode.ag" #-} + __tup3 + {-# LINE 3931 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 425, column 23) + (_,_lhsOallTpsFound) = + ({-# LINE 425 "GenerateCode.ag" #-} + __tup3 + {-# LINE 3937 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 613, column 7) + _lhsOdeclsAbove = + ({-# LINE 613 "GenerateCode.ag" #-} + _lhsIdeclsAbove ++ _decls + {-# LINE 3943 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 626, column 7) + _lhsObldBlocksFun = + ({-# LINE 626 "GenerateCode.ag" #-} + id + {-# LINE 3949 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 900, column 18) + _lhsOcomments = + ({-# LINE 900 "GenerateCode.ag" #-} + [ makeLocalComment 11 _lhsIwhat name tp | (field,name,tp) <- Map.elems defines_, field == _LOC ] + ++ [ makeLocalComment 11 "inst " name tp | (field,name,tp) <- Map.elems defines_, field == _INST ] + {-# LINE 3956 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 155, column 34) + _lhsOdecls = + ({-# LINE 155 "GenerateCode.ag" #-} + _decls + {-# LINE 3962 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + _definedInsts + {-# LINE 3968 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _lhsOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _lhsIvisitedSet + {-# LINE 3974 "GenerateCode.hs" #-} + ) + ( _patternIcopy,_patternIdefinedInsts,_patternIpatternAttributes) = + pattern_ + in ( _lhsOallTpsFound,_lhsObldBlocksFun,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) ) +-- CSegment ---------------------------------------------------- +{- + visit 0: + inherited attributes: + inh : Attributes + isLast : Bool + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramMap : ParamMap + prefix : String + syn : Attributes + synthesized attributes: + comments : [String] + semDom : [Decl] + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + wrapDecls : Decls + alternatives: + alternative CSegment: + child inh : {Attributes} + child syn : {Attributes} + visit 0: + local altSemForm : _ + local tp : _ + local inhTps : _ + local inhTup : _ + local synTps : _ + local curTypeName : _ + local nextTypeName : _ + local indexName : _ + local dataIndex : _ + local indexExpr : _ + local indexStr : _ + local inhInstance : _ + local synInstance : _ + local continuation : _ + local params : _ +-} +-- cata +sem_CSegment :: CSegment -> + T_CSegment +sem_CSegment (CSegment _inh _syn ) = + (sem_CSegment_CSegment _inh _syn ) +-- semantic domain +newtype T_CSegment = T_CSegment (Attributes -> + Bool -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + ParamMap -> + String -> + Attributes -> + ( ([String]),([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) +data Inh_CSegment = Inh_CSegment {inh_Inh_CSegment :: !(Attributes),isLast_Inh_CSegment :: !(Bool),nr_Inh_CSegment :: !(Int),nt_Inh_CSegment :: !(NontermIdent),o_case_Inh_CSegment :: !(Bool),o_cata_Inh_CSegment :: !(Bool),o_costcentre_Inh_CSegment :: !(Bool),o_data_Inh_CSegment :: !((Maybe Bool)),o_linePragmas_Inh_CSegment :: !(Bool),o_monadic_Inh_CSegment :: !(Bool),o_newtypes_Inh_CSegment :: !(Bool),o_pretty_Inh_CSegment :: !(Bool),o_rename_Inh_CSegment :: !(Bool),o_sem_Inh_CSegment :: !(Bool),o_sig_Inh_CSegment :: !(Bool),o_splitsems_Inh_CSegment :: !(Bool),o_strictwrap_Inh_CSegment :: !(Bool),o_traces_Inh_CSegment :: !(Bool),o_unbox_Inh_CSegment :: !(Bool),options_Inh_CSegment :: !(Options),paramMap_Inh_CSegment :: !(ParamMap),prefix_Inh_CSegment :: !(String),syn_Inh_CSegment :: !(Attributes)} +data Syn_CSegment = Syn_CSegment {comments_Syn_CSegment :: !(([String])),semDom_Syn_CSegment :: !(([Decl])),semDomUnfoldGath_Syn_CSegment :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegment :: !(Decls)} +wrap_CSegment :: T_CSegment -> + Inh_CSegment -> + Syn_CSegment +wrap_CSegment (T_CSegment sem ) (Inh_CSegment _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) = + (let ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsIisLast _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn + in (Syn_CSegment _lhsOcomments _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) +sem_CSegment_CSegment :: Attributes -> + Attributes -> + T_CSegment +sem_CSegment_CSegment inh_ syn_ = + (T_CSegment (\ _lhsIinh + _lhsIisLast + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _lhsOsemDom :: ([Decl]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + _lhsOcomments :: ([String]) + -- "GenerateCode.ag"(line 712, column 15) + _altSemForm = + ({-# LINE 712 "GenerateCode.ag" #-} + breadthFirst _lhsIoptions + {-# LINE 4105 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 713, column 15) + _tp = + ({-# LINE 713 "GenerateCode.ag" #-} + if _altSemForm + then TypeApp (SimpleType "Child") [SimpleType "EvalInfo", _indexExpr ] + else foldr Arr _synTps _inhTps + {-# LINE 4113 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 716, column 15) + _inhTps = + ({-# LINE 716 "GenerateCode.ag" #-} + [typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems inh_] + {-# LINE 4119 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 717, column 15) + _inhTup = + ({-# LINE 717 "GenerateCode.ag" #-} + mkTupleType _lhsIo_unbox (null _inhTps ) _inhTps + {-# LINE 4125 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 718, column 15) + _synTps = + ({-# LINE 718 "GenerateCode.ag" #-} + mkTupleType _lhsIo_unbox (null _inhTps ) ([typeToCodeType (Just _lhsInt) _params tp | tp <- Map.elems syn_] ++ _continuation ) + {-# LINE 4131 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 719, column 15) + _curTypeName = + ({-# LINE 719 "GenerateCode.ag" #-} + typeName _lhsInt _lhsInr + {-# LINE 4137 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 720, column 15) + _nextTypeName = + ({-# LINE 720 "GenerateCode.ag" #-} + typeName _lhsInt (_lhsInr + 1) + {-# LINE 4143 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 721, column 15) + _indexName = + ({-# LINE 721 "GenerateCode.ag" #-} + "I_" ++ _curTypeName + {-# LINE 4149 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 722, column 15) + _dataIndex = + ({-# LINE 722 "GenerateCode.ag" #-} + Code.Data _indexName _params [DataAlt _indexName []] False [] + {-# LINE 4155 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 723, column 15) + _indexExpr = + ({-# LINE 723 "GenerateCode.ag" #-} + TypeApp (SimpleType _indexName ) (map (SimpleType . ('@':)) _params ) + {-# LINE 4161 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 724, column 15) + _indexStr = + ({-# LINE 724 "GenerateCode.ag" #-} + "(" ++ _indexName ++ concatMap (\p -> " " ++ p) _params ++ ")" + {-# LINE 4167 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 725, column 15) + _inhInstance = + ({-# LINE 725 "GenerateCode.ag" #-} + Code.Data "instance Inh" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Inh") [_inhTup ] ] False [] + {-# LINE 4173 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 726, column 15) + _synInstance = + ({-# LINE 726 "GenerateCode.ag" #-} + Code.Data "instance Syn" [_indexStr ] [DataAlt (typeName _lhsInt _lhsInr ++ "_Syn") [_synTps ] ] False [] + {-# LINE 4179 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 727, column 15) + _continuation = + ({-# LINE 727 "GenerateCode.ag" #-} + if _lhsIisLast + then [] + else [TypeApp (SimpleType _nextTypeName ) (map (SimpleType . ('@':)) _params )] + {-# LINE 4187 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 730, column 15) + _params = + ({-# LINE 730 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 4193 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 731, column 15) + _lhsOsemDom = + ({-# LINE 731 "GenerateCode.ag" #-} + let name = typeName _lhsInt _lhsInr + evalTp | null _params = id + | otherwise = idEvalType + in ( if _lhsIo_newtypes + then [ Code.NewType name _params name (evalTp _tp ) ] + else [ Code.Type name _params (evalTp _tp ) ] ) + ++ ( if _altSemForm + then [_dataIndex , _inhInstance , _synInstance ] + else [] ) + {-# LINE 4207 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 745, column 7) + _lhsOsemDomUnfoldGath = + ({-# LINE 745 "GenerateCode.ag" #-} + Map.singleton (_lhsInt, _lhsInr) (_params , _tp ) + {-# LINE 4213 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 829, column 15) + _lhsOwrapDecls = + ({-# LINE 829 "GenerateCode.ag" #-} + let lhsVars = map (lhsname False) (Map.keys syn_) + ++ if _lhsIisLast then [] else [unwrap ++ sem (_lhsInr+1)] + rhsVars = map (lhsname True) (Map.keys inh_) + rhs = map SimpleExpr rhsVars + unwrap = if _lhsIo_newtypes then typeName _lhsInt (_lhsInr + 1) ++ " " else "" + var = "sem" + sem 0 = var + sem n = var ++ "_" ++ show n + ntt = typeName _lhsInt _lhsInr + in [ EvalDecl ntt (mkTupleLhs _lhsIo_unbox (null $ Map.keys inh_) lhsVars) (InvokeExpr ntt (SimpleExpr $ sem _lhsInr) rhs) ] + {-# LINE 4228 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 871, column 18) + _lhsOcomments = + ({-# LINE 871 "GenerateCode.ag" #-} + let body = map ind (showsSegment (CSegment inh_ syn_)) + in if null body + then [] + else ("visit " ++ show _lhsInr ++ ":") : body + {-# LINE 4237 "GenerateCode.hs" #-} + ) + in ( _lhsOcomments,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +-- CSegments --------------------------------------------------- +{- + visit 0: + inherited attributes: + inh : Attributes + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramMap : ParamMap + prefix : String + syn : Attributes + synthesized attributes: + comments : [String] + isNil : Bool + semDom : [Decl] + semDomUnfoldGath : Map (NontermIdent, Int) ([String], Code.Type) + wrapDecls : Decls + alternatives: + alternative Cons: + child hd : CSegment + child tl : CSegments + alternative Nil: +-} +-- cata +sem_CSegments :: CSegments -> + T_CSegments +sem_CSegments list = + (Prelude.foldr sem_CSegments_Cons sem_CSegments_Nil (Prelude.map sem_CSegment list) ) +-- semantic domain +newtype T_CSegments = T_CSegments (Attributes -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + ParamMap -> + String -> + Attributes -> + ( ([String]),Bool,([Decl]),(Map (NontermIdent, Int) ([String], Code.Type)),Decls)) +data Inh_CSegments = Inh_CSegments {inh_Inh_CSegments :: !(Attributes),nr_Inh_CSegments :: !(Int),nt_Inh_CSegments :: !(NontermIdent),o_case_Inh_CSegments :: !(Bool),o_cata_Inh_CSegments :: !(Bool),o_costcentre_Inh_CSegments :: !(Bool),o_data_Inh_CSegments :: !((Maybe Bool)),o_linePragmas_Inh_CSegments :: !(Bool),o_monadic_Inh_CSegments :: !(Bool),o_newtypes_Inh_CSegments :: !(Bool),o_pretty_Inh_CSegments :: !(Bool),o_rename_Inh_CSegments :: !(Bool),o_sem_Inh_CSegments :: !(Bool),o_sig_Inh_CSegments :: !(Bool),o_splitsems_Inh_CSegments :: !(Bool),o_strictwrap_Inh_CSegments :: !(Bool),o_traces_Inh_CSegments :: !(Bool),o_unbox_Inh_CSegments :: !(Bool),options_Inh_CSegments :: !(Options),paramMap_Inh_CSegments :: !(ParamMap),prefix_Inh_CSegments :: !(String),syn_Inh_CSegments :: !(Attributes)} +data Syn_CSegments = Syn_CSegments {comments_Syn_CSegments :: !(([String])),isNil_Syn_CSegments :: !(Bool),semDom_Syn_CSegments :: !(([Decl])),semDomUnfoldGath_Syn_CSegments :: !((Map (NontermIdent, Int) ([String], Code.Type))),wrapDecls_Syn_CSegments :: !(Decls)} +wrap_CSegments :: T_CSegments -> + Inh_CSegments -> + Syn_CSegments +wrap_CSegments (T_CSegments sem ) (Inh_CSegments _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn ) = + (let ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls) = sem _lhsIinh _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamMap _lhsIprefix _lhsIsyn + in (Syn_CSegments _lhsOcomments _lhsOisNil _lhsOsemDom _lhsOsemDomUnfoldGath _lhsOwrapDecls )) +sem_CSegments_Cons :: T_CSegment -> + T_CSegments -> + T_CSegments +sem_CSegments_Cons (T_CSegment hd_ ) (T_CSegments tl_ ) = + (T_CSegments (\ _lhsIinh + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _tlOnr :: Int + _lhsOisNil :: Bool + _hdOisLast :: Bool + _lhsOcomments :: ([String]) + _lhsOsemDom :: ([Decl]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + _hdOinh :: Attributes + _hdOnr :: Int + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOoptions :: Options + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOsyn :: Attributes + _tlOinh :: Attributes + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOoptions :: Options + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOsyn :: Attributes + _hdIcomments :: ([String]) + _hdIsemDom :: ([Decl]) + _hdIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _hdIwrapDecls :: Decls + _tlIcomments :: ([String]) + _tlIisNil :: Bool + _tlIsemDom :: ([Decl]) + _tlIsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _tlIwrapDecls :: Decls + -- "GenerateCode.ag"(line 284, column 11) + _tlOnr = + ({-# LINE 284 "GenerateCode.ag" #-} + _lhsInr + 1 + {-# LINE 4404 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 297, column 12) + _lhsOisNil = + ({-# LINE 297 "GenerateCode.ag" #-} + False + {-# LINE 4410 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 298, column 12) + _hdOisLast = + ({-# LINE 298 "GenerateCode.ag" #-} + _tlIisNil + {-# LINE 4416 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 4422 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 707, column 50) + _lhsOsemDom = + ({-# LINE 707 "GenerateCode.ag" #-} + _hdIsemDom ++ _tlIsemDom + {-# LINE 4428 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 741, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 741 "GenerateCode.ag" #-} + _hdIsemDomUnfoldGath `Map.union` _tlIsemDomUnfoldGath + {-# LINE 4434 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 827, column 52) + _lhsOwrapDecls = + ({-# LINE 827 "GenerateCode.ag" #-} + _hdIwrapDecls ++ _tlIwrapDecls + {-# LINE 4440 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 4446 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOnr = + ({-# LINE 276 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 4452 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 4458 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 4464 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 4470 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 4476 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 4482 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 4488 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 4494 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 4500 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 4506 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 4512 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 4518 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 4524 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 4530 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 4536 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 4542 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 4548 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 4554 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 4560 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 4566 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 4572 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 4578 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 4584 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 4590 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 4596 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 4602 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 4608 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 4614 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 4620 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 4626 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 4632 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 4638 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 4644 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 4650 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 4656 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 4662 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 4668 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 4674 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 4680 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 4686 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 4692 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 4698 "GenerateCode.hs" #-} + ) + ( _hdIcomments,_hdIsemDom,_hdIsemDomUnfoldGath,_hdIwrapDecls) = + hd_ _hdOinh _hdOisLast _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamMap _hdOprefix _hdOsyn + ( _tlIcomments,_tlIisNil,_tlIsemDom,_tlIsemDomUnfoldGath,_tlIwrapDecls) = + tl_ _tlOinh _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamMap _tlOprefix _tlOsyn + in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +sem_CSegments_Nil :: T_CSegments +sem_CSegments_Nil = + (T_CSegments (\ _lhsIinh + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamMap + _lhsIprefix + _lhsIsyn -> + (let _lhsOisNil :: Bool + _lhsOcomments :: ([String]) + _lhsOsemDom :: ([Decl]) + _lhsOsemDomUnfoldGath :: (Map (NontermIdent, Int) ([String], Code.Type)) + _lhsOwrapDecls :: Decls + -- "GenerateCode.ag"(line 299, column 10) + _lhsOisNil = + ({-# LINE 299 "GenerateCode.ag" #-} + True + {-# LINE 4738 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + [] + {-# LINE 4744 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 707, column 50) + _lhsOsemDom = + ({-# LINE 707 "GenerateCode.ag" #-} + [] + {-# LINE 4750 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 741, column 86) + _lhsOsemDomUnfoldGath = + ({-# LINE 741 "GenerateCode.ag" #-} + Map.empty + {-# LINE 4756 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 827, column 52) + _lhsOwrapDecls = + ({-# LINE 827 "GenerateCode.ag" #-} + [] + {-# LINE 4762 "GenerateCode.hs" #-} + ) + in ( _lhsOcomments,_lhsOisNil,_lhsOsemDom,_lhsOsemDomUnfoldGath,_lhsOwrapDecls))) ) +-- CVisit ------------------------------------------------------ +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Set Identifier + children : [(Identifier,Type, Maybe (Maybe Type))] + con : ConstructorIdent + contextMap : ContextMap + inh : Attributes + instVisitNrs : Map Identifier Int + isLast : Bool + mergeMap : Map Identifier (Identifier, [Identifier]) + nextIntra : Exprs + nextIntraVars : Set String + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + quantMap : QuantMap + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + chained attributes: + decls : Decls + visitedSet : Set Identifier + synthesized attributes: + comments : [String] + gatherInstVisitNrs : Map Identifier Int + intra : Exprs + intraVars : Set String + semNames : [String] + alternatives: + alternative CVisit: + child inh : {Attributes} + child syn : {Attributes} + child vss : Sequence + child intra : Sequence + child ordered : {Bool} + visit 0: + local _tup4 : _ + local higherOrderChildren : _ + local firstOrderChildren : _ + local firstOrderOrig : _ + local funcname : _ + local nextVisitName : _ + local nextVisitDecl : _ + local decls : _ + local lastExprVars : _ + local _tup5 : _ + local blockFunDecls : _ + local blockFirstFunCall : _ + local costCentreDescr : _ + local addCostCentre : _ + local params : _ + local semFun : _ + local tsig : _ + local semType : _ + local typeSigs : _ + local o_do : _ + local o_case : _ + local declsType : _ + local o_splitsems : _ +-} +-- cata +sem_CVisit :: CVisit -> + T_CVisit +sem_CVisit (CVisit _inh _syn _vss _intra _ordered ) = + (sem_CVisit_CVisit _inh _syn (sem_Sequence _vss ) (sem_Sequence _intra ) _ordered ) +-- semantic domain +newtype T_CVisit = T_CVisit ((Set NontermIdent) -> + PragmaMap -> + (Set Identifier) -> + ([(Identifier,Type, Maybe (Maybe Type))]) -> + ConstructorIdent -> + ContextMap -> + Decls -> + Attributes -> + (Map Identifier Int) -> + Bool -> + (Map Identifier (Identifier, [Identifier])) -> + Exprs -> + (Set String) -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + QuantMap -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + (Set Identifier) -> + Bool -> + ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),([String]),(Set Identifier))) +data Inh_CVisit = Inh_CVisit {allNts_Inh_CVisit :: !((Set NontermIdent)),allPragmas_Inh_CVisit :: !(PragmaMap),aroundMap_Inh_CVisit :: !((Set Identifier)),children_Inh_CVisit :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisit :: !(ConstructorIdent),contextMap_Inh_CVisit :: !(ContextMap),decls_Inh_CVisit :: !(Decls),inh_Inh_CVisit :: !(Attributes),instVisitNrs_Inh_CVisit :: !((Map Identifier Int)),isLast_Inh_CVisit :: !(Bool),mergeMap_Inh_CVisit :: !((Map Identifier (Identifier, [Identifier]))),nextIntra_Inh_CVisit :: !(Exprs),nextIntraVars_Inh_CVisit :: !((Set String)),nr_Inh_CVisit :: !(Int),nt_Inh_CVisit :: !(NontermIdent),o_case_Inh_CVisit :: !(Bool),o_cata_Inh_CVisit :: !(Bool),o_costcentre_Inh_CVisit :: !(Bool),o_data_Inh_CVisit :: !((Maybe Bool)),o_linePragmas_Inh_CVisit :: !(Bool),o_monadic_Inh_CVisit :: !(Bool),o_newtypes_Inh_CVisit :: !(Bool),o_pretty_Inh_CVisit :: !(Bool),o_rename_Inh_CVisit :: !(Bool),o_sem_Inh_CVisit :: !(Bool),o_sig_Inh_CVisit :: !(Bool),o_splitsems_Inh_CVisit :: !(Bool),o_strictwrap_Inh_CVisit :: !(Bool),o_traces_Inh_CVisit :: !(Bool),o_unbox_Inh_CVisit :: !(Bool),options_Inh_CVisit :: !(Options),paramInstMap_Inh_CVisit :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisit :: !(ParamMap),prefix_Inh_CVisit :: !(String),quantMap_Inh_CVisit :: !(QuantMap),syn_Inh_CVisit :: !(Attributes),terminals_Inh_CVisit :: !(([Identifier])),unfoldSemDom_Inh_CVisit :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisit :: !((Set Identifier)),with_sig_Inh_CVisit :: !(Bool)} +data Syn_CVisit = Syn_CVisit {comments_Syn_CVisit :: !(([String])),decls_Syn_CVisit :: !(Decls),gatherInstVisitNrs_Syn_CVisit :: !((Map Identifier Int)),intra_Syn_CVisit :: !(Exprs),intraVars_Syn_CVisit :: !((Set String)),semNames_Syn_CVisit :: !(([String])),visitedSet_Syn_CVisit :: !((Set Identifier))} +wrap_CVisit :: T_CVisit -> + Inh_CVisit -> + Syn_CVisit +wrap_CVisit (T_CVisit sem ) (Inh_CVisit _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) = + (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIdecls _lhsIinh _lhsIinstVisitNrs _lhsIisLast _lhsImergeMap _lhsInextIntra _lhsInextIntraVars _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig + in (Syn_CVisit _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOsemNames _lhsOvisitedSet )) +sem_CVisit_CVisit :: Attributes -> + Attributes -> + T_Sequence -> + T_Sequence -> + Bool -> + T_CVisit +sem_CVisit_CVisit inh_ syn_ (T_Sequence vss_ ) (T_Sequence intra_ ) ordered_ = + (T_CVisit (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIcontextMap + _lhsIdecls + _lhsIinh + _lhsIinstVisitNrs + _lhsIisLast + _lhsImergeMap + _lhsInextIntra + _lhsInextIntraVars + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIvisitedSet + _lhsIwith_sig -> + (let _lhsOintra :: Exprs + _lhsOintraVars :: (Set String) + _vssOlastExpr :: Expr + _intraOlastExpr :: Expr + _lhsOdecls :: Decls + _lhsOgatherInstVisitNrs :: (Map Identifier Int) + _vssOdeclsAbove :: ([Decl]) + _intraOdeclsAbove :: ([Decl]) + _lhsOcomments :: ([String]) + _vssOwhat :: String + _intraOwhat :: String + _lhsOsemNames :: ([String]) + _lhsOvisitedSet :: (Set Identifier) + _vssOallNts :: (Set NontermIdent) + _vssOaroundMap :: (Set Identifier) + _vssOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _vssOcon :: ConstructorIdent + _vssOinh :: Attributes + _vssOinstVisitNrs :: (Map Identifier Int) + _vssOmergeMap :: (Map Identifier (Identifier, [Identifier])) + _vssOnr :: Int + _vssOnt :: NontermIdent + _vssOo_case :: Bool + _vssOo_cata :: Bool + _vssOo_costcentre :: Bool + _vssOo_data :: (Maybe Bool) + _vssOo_linePragmas :: Bool + _vssOo_monadic :: Bool + _vssOo_newtypes :: Bool + _vssOo_pretty :: Bool + _vssOo_rename :: Bool + _vssOo_sem :: Bool + _vssOo_sig :: Bool + _vssOo_splitsems :: Bool + _vssOo_strictwrap :: Bool + _vssOo_traces :: Bool + _vssOo_unbox :: Bool + _vssOoptions :: Options + _vssOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _vssOparamMap :: ParamMap + _vssOprefix :: String + _vssOsyn :: Attributes + _vssOterminals :: ([Identifier]) + _vssOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _vssOvisitedSet :: (Set Identifier) + _intraOallNts :: (Set NontermIdent) + _intraOaroundMap :: (Set Identifier) + _intraOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _intraOcon :: ConstructorIdent + _intraOinh :: Attributes + _intraOinstVisitNrs :: (Map Identifier Int) + _intraOmergeMap :: (Map Identifier (Identifier, [Identifier])) + _intraOnr :: Int + _intraOnt :: NontermIdent + _intraOo_case :: Bool + _intraOo_cata :: Bool + _intraOo_costcentre :: Bool + _intraOo_data :: (Maybe Bool) + _intraOo_linePragmas :: Bool + _intraOo_monadic :: Bool + _intraOo_newtypes :: Bool + _intraOo_pretty :: Bool + _intraOo_rename :: Bool + _intraOo_sem :: Bool + _intraOo_sig :: Bool + _intraOo_splitsems :: Bool + _intraOo_strictwrap :: Bool + _intraOo_traces :: Bool + _intraOo_unbox :: Bool + _intraOoptions :: Options + _intraOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _intraOparamMap :: ParamMap + _intraOprefix :: String + _intraOsyn :: Attributes + _intraOterminals :: ([Identifier]) + _intraOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _intraOvisitedSet :: (Set Identifier) + _vssIallTpsFound :: Bool + _vssIblockDecls :: DeclBlocks + _vssIcomments :: ([String]) + _vssIdecls :: Decls + _vssIdeclsAbove :: ([Decl]) + _vssIdefinedInsts :: ([Identifier]) + _vssIexprs :: Exprs + _vssItSigs :: ([Decl]) + _vssItps :: ([Type]) + _vssIusedVars :: (Set String) + _vssIvisitedSet :: (Set Identifier) + _intraIallTpsFound :: Bool + _intraIblockDecls :: DeclBlocks + _intraIcomments :: ([String]) + _intraIdecls :: Decls + _intraIdeclsAbove :: ([Decl]) + _intraIdefinedInsts :: ([Identifier]) + _intraIexprs :: Exprs + _intraItSigs :: ([Decl]) + _intraItps :: ([Type]) + _intraIusedVars :: (Set String) + _intraIvisitedSet :: (Set Identifier) + -- "GenerateCode.ag"(line 308, column 13) + _lhsOintra = + ({-# LINE 308 "GenerateCode.ag" #-} + _intraIexprs + {-# LINE 5053 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 309, column 13) + _lhsOintraVars = + ({-# LINE 309 "GenerateCode.ag" #-} + _intraIusedVars + {-# LINE 5059 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 448, column 13) + __tup4 = + ({-# LINE 448 "GenerateCode.ag" #-} + partition (\(_,_,virt) -> isHigherOrder virt) _lhsIchildren + {-# LINE 5065 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 448, column 13) + (_higherOrderChildren,_) = + ({-# LINE 448 "GenerateCode.ag" #-} + __tup4 + {-# LINE 5071 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 448, column 13) + (_,_firstOrderChildren) = + ({-# LINE 448 "GenerateCode.ag" #-} + __tup4 + {-# LINE 5077 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 449, column 13) + _firstOrderOrig = + ({-# LINE 449 "GenerateCode.ag" #-} + map pickOrigType _firstOrderChildren + {-# LINE 5083 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 450, column 13) + _funcname = + ({-# LINE 450 "GenerateCode.ag" #-} + seqSemname _lhsIprefix _lhsInt _lhsIcon _lhsInr + {-# LINE 5089 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 451, column 13) + _nextVisitName = + ({-# LINE 451 "GenerateCode.ag" #-} + if _lhsIisLast then [] else [visitname _lhsIprefix _lhsInt (_lhsInr+1)] + {-# LINE 5095 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 452, column 13) + _nextVisitDecl = + ({-# LINE 452 "GenerateCode.ag" #-} + let lhs = TupleLhs _nextVisitName + rhs = Let _lhsIdecls (SimpleExpr fun) + fun = seqSemname _lhsIprefix _lhsInt _lhsIcon (_lhsInr+1) + in if _lhsIisLast + then [] + else [Decl lhs rhs (Set.fromList _nextVisitName) _lhsInextIntraVars] + {-# LINE 5106 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 459, column 13) + _decls = + ({-# LINE 459 "GenerateCode.ag" #-} + _typeSigs ++ _vssIdecls ++ _nextVisitDecl + {-# LINE 5112 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 460, column 13) + _vssOlastExpr = + ({-# LINE 460 "GenerateCode.ag" #-} + mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName + {-# LINE 5118 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 461, column 13) + _intraOlastExpr = + ({-# LINE 461 "GenerateCode.ag" #-} + error "lastExpr: not used here" + {-# LINE 5124 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 462, column 13) + _lastExprVars = + ({-# LINE 462 "GenerateCode.ag" #-} + map (lhsname False) (Map.keys syn_) ++ _nextVisitName + {-# LINE 5130 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 463, column 13) + __tup5 = + ({-# LINE 463 "GenerateCode.ag" #-} + mkPartitionedFunction _funcname _o_case _nextVisitDecl _lastExprVars _vssIblockDecls + {-# LINE 5136 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 463, column 13) + (_blockFunDecls,_) = + ({-# LINE 463 "GenerateCode.ag" #-} + __tup5 + {-# LINE 5142 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 463, column 13) + (_,_blockFirstFunCall) = + ({-# LINE 463 "GenerateCode.ag" #-} + __tup5 + {-# LINE 5148 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 465, column 13) + _costCentreDescr = + ({-# LINE 465 "GenerateCode.ag" #-} + "b" ++ ":" ++ show _lhsInt ++ ":" ++ show _lhsIcon ++ ":" ++ show _lhsInr + {-# LINE 5154 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 466, column 13) + _addCostCentre = + ({-# LINE 466 "GenerateCode.ag" #-} + \v -> if _lhsIo_costcentre + then PragmaExpr True False ("SCC \"" ++ _costCentreDescr ++ "\"") v + else v + {-# LINE 5162 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 470, column 13) + _params = + ({-# LINE 470 "GenerateCode.ag" #-} + map getName $ Map.findWithDefault [] _lhsInt _lhsIparamMap + {-# LINE 5168 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 471, column 13) + _semFun = + ({-# LINE 471 "GenerateCode.ag" #-} + let lhs = Fun _funcname lhs_args + lhs_args = if _lhsInr == 0 then map field _firstOrderOrig else [] + field (name,NT tp tps,_) = let unwrap | _lhsIo_newtypes = \x -> App (sdtype tp) [x] + | otherwise = id + addType expr | null tps = expr + | otherwise = TypedExpr expr (_lhsIunfoldSemDom tp 0 tps) + in unwrap $ addType $ SimpleExpr $ funname name 0 + field (name,tp,_) = let expr = SimpleExpr (funname name 0) + in if null _params + then expr + else TypedExpr expr (idEvalType $ typeToCodeType (Just _lhsInt) _params tp) + mbEvalTp | null _params = const Nothing + | otherwise = Just . idEvalType + rhs = wrap + . mkSemFun _lhsInt _lhsInr [mkLambdaArg (lhsname True nm) (mbEvalTp $ typeToCodeType (Just _lhsInt) _params tp) | (nm,tp) <- Map.assocs inh_] + $ _addCostCentre + $ if ordered_ && _o_splitsems + then _blockFirstFunCall + else mkDecls _declsType _decls + . ResultExpr (typeName _lhsInt _lhsInr) + . mkTupleExpr _lhsIo_unbox (null $ Map.keys inh_) + $ map (SimpleExpr . lhsname False) (Map.keys syn_) ++ map SimpleExpr _nextVisitName + wrap = if _lhsIo_newtypes + then \x -> App (typeName _lhsInt _lhsInr) [x] + else id + in Decl lhs rhs Set.empty Set.empty + {-# LINE 5199 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 502, column 13) + _tsig = + ({-# LINE 502 "GenerateCode.ag" #-} + TSig _funcname _semType + {-# LINE 5205 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 503, column 13) + _semType = + ({-# LINE 503 "GenerateCode.ag" #-} + let argType (NT tp tps) r | tp /= _SELF = typeAppStrs (sdtype tp) tps `Arr` r + | tp == _SELF = error "GenerateCode: found an intra-type with type SELF, which should have been prevented by CRule.tps" + argType (Haskell tp) r = SimpleType tp `Arr` r + evalTp | null _params = id + | otherwise = idEvalType + in appQuant _lhsIquantMap _lhsInt $ appContext _lhsIcontextMap _lhsInt $ evalTp $ + if _lhsInr == 0 + then foldr argType (typeAppStrs (sdtype _lhsInt ) _params ) (map (\(_,t,_) -> t) _firstOrderOrig ) + else foldr argType (typeAppStrs (typeName _lhsInt _lhsInr) _params ) [] + {-# LINE 5219 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 514, column 13) + _lhsOdecls = + ({-# LINE 514 "GenerateCode.ag" #-} + ( if _lhsIwith_sig + then [_tsig, _semFun] + else [_semFun] + ) ++ + ( if ordered_ && _o_splitsems + then _blockFunDecls + else [] + ) + {-# LINE 5232 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 522, column 13) + _typeSigs = + ({-# LINE 522 "GenerateCode.ag" #-} + if _lhsIo_sig && not _o_case + then _vssItSigs + else [] + {-# LINE 5240 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 525, column 13) + _o_do = + ({-# LINE 525 "GenerateCode.ag" #-} + ordered_ && _lhsIo_monadic + {-# LINE 5246 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 526, column 13) + _o_case = + ({-# LINE 526 "GenerateCode.ag" #-} + not _o_do && _lhsIo_case && ordered_ && not (hasPragma _lhsIallPragmas _lhsInt _lhsIcon _NOCASE) + {-# LINE 5252 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 527, column 13) + _declsType = + ({-# LINE 527 "GenerateCode.ag" #-} + if _o_do + then DeclsDo + else if _o_case + then DeclsCase + else DeclsLet + {-# LINE 5262 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 532, column 13) + _o_splitsems = + ({-# LINE 532 "GenerateCode.ag" #-} + ordered_ && _lhsIo_splitsems + {-# LINE 5268 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 565, column 7) + _lhsOgatherInstVisitNrs = + ({-# LINE 565 "GenerateCode.ag" #-} + Map.fromList [(i,_lhsInr) | i <- _vssIdefinedInsts] + {-# LINE 5274 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 608, column 7) + _vssOdeclsAbove = + ({-# LINE 608 "GenerateCode.ag" #-} + [] + {-# LINE 5280 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 609, column 7) + _intraOdeclsAbove = + ({-# LINE 609 "GenerateCode.ag" #-} + error "declsAbove: not used here" + {-# LINE 5286 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 891, column 18) + _lhsOcomments = + ({-# LINE 891 "GenerateCode.ag" #-} + let body = map ind (_vssIcomments ++ _intraIcomments) + in if null body + then [] + else ("visit " ++ show _lhsInr ++ ":") : body + {-# LINE 5295 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 895, column 18) + _vssOwhat = + ({-# LINE 895 "GenerateCode.ag" #-} + "local" + {-# LINE 5301 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 896, column 18) + _intraOwhat = + ({-# LINE 896 "GenerateCode.ag" #-} + "intra" + {-# LINE 5307 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 1141, column 7) + _lhsOsemNames = + ({-# LINE 1141 "GenerateCode.ag" #-} + [_funcname ] + {-# LINE 5313 "GenerateCode.hs" #-} + ) + -- copy rule (up) + _lhsOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _intraIvisitedSet + {-# LINE 5319 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 5325 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOaroundMap = + ({-# LINE 577 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 5331 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOchildren = + ({-# LINE 257 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 5337 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOcon = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 5343 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 5349 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOinstVisitNrs = + ({-# LINE 557 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 5355 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOmergeMap = + ({-# LINE 593 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 5361 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOnr = + ({-# LINE 276 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 5367 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 5373 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _vssOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _o_case + {-# LINE 5379 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 5385 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 5391 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 5397 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 5403 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 5409 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 5415 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 5421 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 5427 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 5433 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 5439 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _vssOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _o_splitsems + {-# LINE 5445 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 5451 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 5457 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 5463 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 5469 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOparamInstMap = + ({-# LINE 101 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 5475 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 5481 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 5487 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 5493 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOterminals = + ({-# LINE 90 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 5499 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 5505 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _vssOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _lhsIvisitedSet + {-# LINE 5511 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 5517 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOaroundMap = + ({-# LINE 577 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 5523 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOchildren = + ({-# LINE 257 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 5529 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOcon = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 5535 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 5541 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOinstVisitNrs = + ({-# LINE 557 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 5547 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOmergeMap = + ({-# LINE 593 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 5553 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOnr = + ({-# LINE 276 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 5559 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 5565 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _intraOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _o_case + {-# LINE 5571 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 5577 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 5583 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 5589 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 5595 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 5601 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 5607 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 5613 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 5619 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 5625 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 5631 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _intraOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _o_splitsems + {-# LINE 5637 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 5643 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 5649 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 5655 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 5661 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOparamInstMap = + ({-# LINE 101 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 5667 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 5673 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 5679 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 5685 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOterminals = + ({-# LINE 90 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 5691 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _intraOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 5697 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _intraOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _vssIvisitedSet + {-# LINE 5703 "GenerateCode.hs" #-} + ) + ( _vssIallTpsFound,_vssIblockDecls,_vssIcomments,_vssIdecls,_vssIdeclsAbove,_vssIdefinedInsts,_vssIexprs,_vssItSigs,_vssItps,_vssIusedVars,_vssIvisitedSet) = + vss_ _vssOallNts _vssOaroundMap _vssOchildren _vssOcon _vssOdeclsAbove _vssOinh _vssOinstVisitNrs _vssOlastExpr _vssOmergeMap _vssOnr _vssOnt _vssOo_case _vssOo_cata _vssOo_costcentre _vssOo_data _vssOo_linePragmas _vssOo_monadic _vssOo_newtypes _vssOo_pretty _vssOo_rename _vssOo_sem _vssOo_sig _vssOo_splitsems _vssOo_strictwrap _vssOo_traces _vssOo_unbox _vssOoptions _vssOparamInstMap _vssOparamMap _vssOprefix _vssOsyn _vssOterminals _vssOunfoldSemDom _vssOvisitedSet _vssOwhat + ( _intraIallTpsFound,_intraIblockDecls,_intraIcomments,_intraIdecls,_intraIdeclsAbove,_intraIdefinedInsts,_intraIexprs,_intraItSigs,_intraItps,_intraIusedVars,_intraIvisitedSet) = + intra_ _intraOallNts _intraOaroundMap _intraOchildren _intraOcon _intraOdeclsAbove _intraOinh _intraOinstVisitNrs _intraOlastExpr _intraOmergeMap _intraOnr _intraOnt _intraOo_case _intraOo_cata _intraOo_costcentre _intraOo_data _intraOo_linePragmas _intraOo_monadic _intraOo_newtypes _intraOo_pretty _intraOo_rename _intraOo_sem _intraOo_sig _intraOo_splitsems _intraOo_strictwrap _intraOo_traces _intraOo_unbox _intraOoptions _intraOparamInstMap _intraOparamMap _intraOprefix _intraOsyn _intraOterminals _intraOunfoldSemDom _intraOvisitedSet _intraOwhat + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOsemNames,_lhsOvisitedSet))) ) +-- CVisits ----------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + allPragmas : PragmaMap + aroundMap : Set Identifier + children : [(Identifier,Type, Maybe (Maybe Type))] + con : ConstructorIdent + contextMap : ContextMap + inh : Attributes + instVisitNrs : Map Identifier Int + mergeMap : Map Identifier (Identifier, [Identifier]) + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + quantMap : QuantMap + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + with_sig : Bool + chained attribute: + visitedSet : Set Identifier + synthesized attributes: + comments : [String] + decls : Decls + gatherInstVisitNrs : Map Identifier Int + intra : Exprs + intraVars : Set String + isNil : Bool + semNames : [String] + alternatives: + alternative Cons: + child hd : CVisit + child tl : CVisits + alternative Nil: +-} +-- cata +sem_CVisits :: CVisits -> + T_CVisits +sem_CVisits list = + (Prelude.foldr sem_CVisits_Cons sem_CVisits_Nil (Prelude.map sem_CVisit list) ) +-- semantic domain +newtype T_CVisits = T_CVisits ((Set NontermIdent) -> + PragmaMap -> + (Set Identifier) -> + ([(Identifier,Type, Maybe (Maybe Type))]) -> + ConstructorIdent -> + ContextMap -> + Attributes -> + (Map Identifier Int) -> + (Map Identifier (Identifier, [Identifier])) -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + QuantMap -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + (Set Identifier) -> + Bool -> + ( ([String]),Decls,(Map Identifier Int),Exprs,(Set String),Bool,([String]),(Set Identifier))) +data Inh_CVisits = Inh_CVisits {allNts_Inh_CVisits :: !((Set NontermIdent)),allPragmas_Inh_CVisits :: !(PragmaMap),aroundMap_Inh_CVisits :: !((Set Identifier)),children_Inh_CVisits :: !(([(Identifier,Type, Maybe (Maybe Type))])),con_Inh_CVisits :: !(ConstructorIdent),contextMap_Inh_CVisits :: !(ContextMap),inh_Inh_CVisits :: !(Attributes),instVisitNrs_Inh_CVisits :: !((Map Identifier Int)),mergeMap_Inh_CVisits :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_CVisits :: !(Int),nt_Inh_CVisits :: !(NontermIdent),o_case_Inh_CVisits :: !(Bool),o_cata_Inh_CVisits :: !(Bool),o_costcentre_Inh_CVisits :: !(Bool),o_data_Inh_CVisits :: !((Maybe Bool)),o_linePragmas_Inh_CVisits :: !(Bool),o_monadic_Inh_CVisits :: !(Bool),o_newtypes_Inh_CVisits :: !(Bool),o_pretty_Inh_CVisits :: !(Bool),o_rename_Inh_CVisits :: !(Bool),o_sem_Inh_CVisits :: !(Bool),o_sig_Inh_CVisits :: !(Bool),o_splitsems_Inh_CVisits :: !(Bool),o_strictwrap_Inh_CVisits :: !(Bool),o_traces_Inh_CVisits :: !(Bool),o_unbox_Inh_CVisits :: !(Bool),options_Inh_CVisits :: !(Options),paramInstMap_Inh_CVisits :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_CVisits :: !(ParamMap),prefix_Inh_CVisits :: !(String),quantMap_Inh_CVisits :: !(QuantMap),syn_Inh_CVisits :: !(Attributes),terminals_Inh_CVisits :: !(([Identifier])),unfoldSemDom_Inh_CVisits :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_CVisits :: !((Set Identifier)),with_sig_Inh_CVisits :: !(Bool)} +data Syn_CVisits = Syn_CVisits {comments_Syn_CVisits :: !(([String])),decls_Syn_CVisits :: !(Decls),gatherInstVisitNrs_Syn_CVisits :: !((Map Identifier Int)),intra_Syn_CVisits :: !(Exprs),intraVars_Syn_CVisits :: !((Set String)),isNil_Syn_CVisits :: !(Bool),semNames_Syn_CVisits :: !(([String])),visitedSet_Syn_CVisits :: !((Set Identifier))} +wrap_CVisits :: T_CVisits -> + Inh_CVisits -> + Syn_CVisits +wrap_CVisits (T_CVisits sem ) (Inh_CVisits _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig ) = + (let ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet) = sem _lhsIallNts _lhsIallPragmas _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIcontextMap _lhsIinh _lhsIinstVisitNrs _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIquantMap _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwith_sig + in (Syn_CVisits _lhsOcomments _lhsOdecls _lhsOgatherInstVisitNrs _lhsOintra _lhsOintraVars _lhsOisNil _lhsOsemNames _lhsOvisitedSet )) +sem_CVisits_Cons :: T_CVisit -> + T_CVisits -> + T_CVisits +sem_CVisits_Cons (T_CVisit hd_ ) (T_CVisits tl_ ) = + (T_CVisits (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIcontextMap + _lhsIinh + _lhsIinstVisitNrs + _lhsImergeMap + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIvisitedSet + _lhsIwith_sig -> + (let _tlOnr :: Int + _lhsOisNil :: Bool + _hdOisLast :: Bool + _hdOnextIntra :: Exprs + _hdOnextIntraVars :: (Set String) + _lhsOintra :: Exprs + _lhsOintraVars :: (Set String) + _lhsOdecls :: Decls + _hdOdecls :: Decls + _lhsOcomments :: ([String]) + _lhsOgatherInstVisitNrs :: (Map Identifier Int) + _lhsOsemNames :: ([String]) + _lhsOvisitedSet :: (Set Identifier) + _hdOallNts :: (Set NontermIdent) + _hdOallPragmas :: PragmaMap + _hdOaroundMap :: (Set Identifier) + _hdOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) + _hdOcon :: ConstructorIdent + _hdOcontextMap :: ContextMap + _hdOinh :: Attributes + _hdOinstVisitNrs :: (Map Identifier Int) + _hdOmergeMap :: (Map Identifier (Identifier, [Identifier])) + _hdOnr :: Int + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOoptions :: Options + _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOquantMap :: QuantMap + _hdOsyn :: Attributes + _hdOterminals :: ([Identifier]) + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOvisitedSet :: (Set Identifier) + _hdOwith_sig :: Bool + _tlOallNts :: (Set NontermIdent) + _tlOallPragmas :: PragmaMap + _tlOaroundMap :: (Set Identifier) + _tlOchildren :: ([(Identifier,Type, Maybe (Maybe Type))]) + _tlOcon :: ConstructorIdent + _tlOcontextMap :: ContextMap + _tlOinh :: Attributes + _tlOinstVisitNrs :: (Map Identifier Int) + _tlOmergeMap :: (Map Identifier (Identifier, [Identifier])) + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOoptions :: Options + _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOquantMap :: QuantMap + _tlOsyn :: Attributes + _tlOterminals :: ([Identifier]) + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOvisitedSet :: (Set Identifier) + _tlOwith_sig :: Bool + _hdIcomments :: ([String]) + _hdIdecls :: Decls + _hdIgatherInstVisitNrs :: (Map Identifier Int) + _hdIintra :: Exprs + _hdIintraVars :: (Set String) + _hdIsemNames :: ([String]) + _hdIvisitedSet :: (Set Identifier) + _tlIcomments :: ([String]) + _tlIdecls :: Decls + _tlIgatherInstVisitNrs :: (Map Identifier Int) + _tlIintra :: Exprs + _tlIintraVars :: (Set String) + _tlIisNil :: Bool + _tlIsemNames :: ([String]) + _tlIvisitedSet :: (Set Identifier) + -- "GenerateCode.ag"(line 280, column 11) + _tlOnr = + ({-# LINE 280 "GenerateCode.ag" #-} + _lhsInr + 1 + {-# LINE 5959 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 293, column 12) + _lhsOisNil = + ({-# LINE 293 "GenerateCode.ag" #-} + False + {-# LINE 5965 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 294, column 12) + _hdOisLast = + ({-# LINE 294 "GenerateCode.ag" #-} + _tlIisNil + {-# LINE 5971 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 311, column 12) + _hdOnextIntra = + ({-# LINE 311 "GenerateCode.ag" #-} + _tlIintra + {-# LINE 5977 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 312, column 12) + _hdOnextIntraVars = + ({-# LINE 312 "GenerateCode.ag" #-} + _tlIintraVars + {-# LINE 5983 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 313, column 12) + _lhsOintra = + ({-# LINE 313 "GenerateCode.ag" #-} + _hdIintra + {-# LINE 5989 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 314, column 12) + _lhsOintraVars = + ({-# LINE 314 "GenerateCode.ag" #-} + _hdIintraVars + {-# LINE 5995 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 438, column 11) + _lhsOdecls = + ({-# LINE 438 "GenerateCode.ag" #-} + _hdIdecls + {-# LINE 6001 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 439, column 11) + _hdOdecls = + ({-# LINE 439 "GenerateCode.ag" #-} + _tlIdecls + {-# LINE 6007 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 6013 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 558, column 44) + _lhsOgatherInstVisitNrs = + ({-# LINE 558 "GenerateCode.ag" #-} + _hdIgatherInstVisitNrs `Map.union` _tlIgatherInstVisitNrs + {-# LINE 6019 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 1131, column 61) + _lhsOsemNames = + ({-# LINE 1131 "GenerateCode.ag" #-} + _hdIsemNames ++ _tlIsemNames + {-# LINE 6025 "GenerateCode.hs" #-} + ) + -- copy rule (up) + _lhsOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _tlIvisitedSet + {-# LINE 6031 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 6037 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 6043 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 577 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 6049 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOchildren = + ({-# LINE 417 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 6055 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOcon = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 6061 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 6067 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 6073 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOinstVisitNrs = + ({-# LINE 557 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 6079 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOmergeMap = + ({-# LINE 593 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 6085 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOnr = + ({-# LINE 276 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 6091 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 6097 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 6103 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 6109 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 6115 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 6121 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 6127 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 6133 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 6139 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 6145 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 6151 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 6157 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 6163 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 6169 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 6175 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 6181 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 6187 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 6193 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOparamInstMap = + ({-# LINE 101 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 6199 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 6205 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 6211 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 6217 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 6223 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOterminals = + ({-# LINE 90 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 6229 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 6235 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _lhsIvisitedSet + {-# LINE 6241 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 6247 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 6253 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOallPragmas = + ({-# LINE 73 "GenerateCode.ag" #-} + _lhsIallPragmas + {-# LINE 6259 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 577 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 6265 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOchildren = + ({-# LINE 417 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 6271 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOcon = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 6277 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOcontextMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIcontextMap + {-# LINE 6283 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 6289 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOinstVisitNrs = + ({-# LINE 557 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 6295 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOmergeMap = + ({-# LINE 593 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 6301 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 6307 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 6313 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 6319 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 6325 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 6331 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 6337 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 6343 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 6349 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 6355 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 6361 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 6367 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 6373 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 6379 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 6385 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 6391 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 6397 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 6403 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOparamInstMap = + ({-# LINE 101 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 6409 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 6415 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 6421 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOquantMap = + ({-# LINE 115 "GenerateCode.ag" #-} + _lhsIquantMap + {-# LINE 6427 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 6433 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOterminals = + ({-# LINE 90 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 6439 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 6445 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _tlOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _hdIvisitedSet + {-# LINE 6451 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOwith_sig = + ({-# LINE 849 "GenerateCode.ag" #-} + _lhsIwith_sig + {-# LINE 6457 "GenerateCode.hs" #-} + ) + ( _hdIcomments,_hdIdecls,_hdIgatherInstVisitNrs,_hdIintra,_hdIintraVars,_hdIsemNames,_hdIvisitedSet) = + hd_ _hdOallNts _hdOallPragmas _hdOaroundMap _hdOchildren _hdOcon _hdOcontextMap _hdOdecls _hdOinh _hdOinstVisitNrs _hdOisLast _hdOmergeMap _hdOnextIntra _hdOnextIntraVars _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOquantMap _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwith_sig + ( _tlIcomments,_tlIdecls,_tlIgatherInstVisitNrs,_tlIintra,_tlIintraVars,_tlIisNil,_tlIsemNames,_tlIvisitedSet) = + tl_ _tlOallNts _tlOallPragmas _tlOaroundMap _tlOchildren _tlOcon _tlOcontextMap _tlOinh _tlOinstVisitNrs _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOquantMap _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwith_sig + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) ) +sem_CVisits_Nil :: T_CVisits +sem_CVisits_Nil = + (T_CVisits (\ _lhsIallNts + _lhsIallPragmas + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIcontextMap + _lhsIinh + _lhsIinstVisitNrs + _lhsImergeMap + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIquantMap + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIvisitedSet + _lhsIwith_sig -> + (let _lhsOisNil :: Bool + _lhsOintra :: Exprs + _lhsOintraVars :: (Set String) + _lhsOdecls :: Decls + _lhsOcomments :: ([String]) + _lhsOgatherInstVisitNrs :: (Map Identifier Int) + _lhsOsemNames :: ([String]) + _lhsOvisitedSet :: (Set Identifier) + -- "GenerateCode.ag"(line 295, column 10) + _lhsOisNil = + ({-# LINE 295 "GenerateCode.ag" #-} + True + {-# LINE 6514 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 315, column 10) + _lhsOintra = + ({-# LINE 315 "GenerateCode.ag" #-} + [] + {-# LINE 6520 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 316, column 10) + _lhsOintraVars = + ({-# LINE 316 "GenerateCode.ag" #-} + Set.empty + {-# LINE 6526 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 437, column 11) + _lhsOdecls = + ({-# LINE 437 "GenerateCode.ag" #-} + [] + {-# LINE 6532 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + [] + {-# LINE 6538 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 558, column 44) + _lhsOgatherInstVisitNrs = + ({-# LINE 558 "GenerateCode.ag" #-} + Map.empty + {-# LINE 6544 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 1131, column 61) + _lhsOsemNames = + ({-# LINE 1131 "GenerateCode.ag" #-} + [] + {-# LINE 6550 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _lhsOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _lhsIvisitedSet + {-# LINE 6556 "GenerateCode.hs" #-} + ) + in ( _lhsOcomments,_lhsOdecls,_lhsOgatherInstVisitNrs,_lhsOintra,_lhsOintraVars,_lhsOisNil,_lhsOsemNames,_lhsOvisitedSet))) ) +-- DeclBlocks -------------------------------------------------- +{- + visit 0: + inherited attributes: + blockNr : Int + lastExprVars : [String] + nextVisitDecls : [Decl] + optCase : Bool + prefix : String + synthesized attributes: + callExpr : Expr + decls : [Decl] + freeVars : [String] + alternatives: + alternative DeclBlock: + child defs : {[Decl]} + child visit : {Decl} + child next : DeclBlocks + visit 0: + local lambdaName : _ + local pragmaDecl : _ + local freeVars : _ + local decl : _ + alternative DeclTerminator: + child defs : {[Decl]} + child result : {Expr} + visit 0: + local lambdaName : _ + local pragmaDecl : _ + local freeVars : _ +-} +-- cata +sem_DeclBlocks :: DeclBlocks -> + T_DeclBlocks +sem_DeclBlocks (DeclBlock _defs _visit _next ) = + (sem_DeclBlocks_DeclBlock _defs _visit (sem_DeclBlocks _next ) ) +sem_DeclBlocks (DeclTerminator _defs _result ) = + (sem_DeclBlocks_DeclTerminator _defs _result ) +-- semantic domain +newtype T_DeclBlocks = T_DeclBlocks (Int -> + ([String]) -> + ([Decl]) -> + Bool -> + String -> + ( Expr,([Decl]),([String]))) +data Inh_DeclBlocks = Inh_DeclBlocks {blockNr_Inh_DeclBlocks :: !(Int),lastExprVars_Inh_DeclBlocks :: !(([String])),nextVisitDecls_Inh_DeclBlocks :: !(([Decl])),optCase_Inh_DeclBlocks :: !(Bool),prefix_Inh_DeclBlocks :: !(String)} +data Syn_DeclBlocks = Syn_DeclBlocks {callExpr_Syn_DeclBlocks :: !(Expr),decls_Syn_DeclBlocks :: !(([Decl])),freeVars_Syn_DeclBlocks :: !(([String]))} +wrap_DeclBlocks :: T_DeclBlocks -> + Inh_DeclBlocks -> + Syn_DeclBlocks +wrap_DeclBlocks (T_DeclBlocks sem ) (Inh_DeclBlocks _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = + (let ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars) = sem _lhsIblockNr _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix + in (Syn_DeclBlocks _lhsOcallExpr _lhsOdecls _lhsOfreeVars )) +sem_DeclBlocks_DeclBlock :: ([Decl]) -> + Decl -> + T_DeclBlocks -> + T_DeclBlocks +sem_DeclBlocks_DeclBlock defs_ visit_ (T_DeclBlocks next_ ) = + (T_DeclBlocks (\ _lhsIblockNr + _lhsIlastExprVars + _lhsInextVisitDecls + _lhsIoptCase + _lhsIprefix -> + (let _nextOblockNr :: Int + _lhsOcallExpr :: Expr + _lhsOdecls :: ([Decl]) + _lhsOfreeVars :: ([String]) + _nextOlastExprVars :: ([String]) + _nextOnextVisitDecls :: ([Decl]) + _nextOoptCase :: Bool + _nextOprefix :: String + _nextIcallExpr :: Expr + _nextIdecls :: ([Decl]) + _nextIfreeVars :: ([String]) + -- "GenerateCode.ag"(line 659, column 7) + _nextOblockNr = + ({-# LINE 659 "GenerateCode.ag" #-} + _lhsIblockNr + 1 + {-# LINE 6637 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 664, column 7) + _lambdaName = + ({-# LINE 664 "GenerateCode.ag" #-} + _lhsIprefix ++ "_block" ++ show _lhsIblockNr + {-# LINE 6643 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 665, column 7) + _pragmaDecl = + ({-# LINE 665 "GenerateCode.ag" #-} + PragmaDecl ("NOINLINE " ++ _lambdaName ) + {-# LINE 6649 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 666, column 7) + _lhsOcallExpr = + ({-# LINE 666 "GenerateCode.ag" #-} + App _lambdaName (map SimpleExpr _freeVars ) + {-# LINE 6655 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 670, column 7) + _freeVars = + ({-# LINE 670 "GenerateCode.ag" #-} + freevars _nextIfreeVars (visit_ : defs_) + {-# LINE 6661 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 677, column 7) + _decl = + ({-# LINE 677 "GenerateCode.ag" #-} + mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ [visit_]) _nextIcallExpr + {-# LINE 6667 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 678, column 7) + _lhsOdecls = + ({-# LINE 678 "GenerateCode.ag" #-} + (if _lhsIblockNr > 1 then [_pragmaDecl ] else []) ++ [_decl ] ++ _nextIdecls + {-# LINE 6673 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _lhsOfreeVars = + ({-# LINE 661 "GenerateCode.ag" #-} + _freeVars + {-# LINE 6679 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _nextOlastExprVars = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsIlastExprVars + {-# LINE 6685 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _nextOnextVisitDecls = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsInextVisitDecls + {-# LINE 6691 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _nextOoptCase = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsIoptCase + {-# LINE 6697 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _nextOprefix = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 6703 "GenerateCode.hs" #-} + ) + ( _nextIcallExpr,_nextIdecls,_nextIfreeVars) = + next_ _nextOblockNr _nextOlastExprVars _nextOnextVisitDecls _nextOoptCase _nextOprefix + in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) +sem_DeclBlocks_DeclTerminator :: ([Decl]) -> + Expr -> + T_DeclBlocks +sem_DeclBlocks_DeclTerminator defs_ result_ = + (T_DeclBlocks (\ _lhsIblockNr + _lhsIlastExprVars + _lhsInextVisitDecls + _lhsIoptCase + _lhsIprefix -> + (let _lhsOcallExpr :: Expr + _lhsOdecls :: ([Decl]) + _lhsOfreeVars :: ([String]) + -- "GenerateCode.ag"(line 664, column 7) + _lambdaName = + ({-# LINE 664 "GenerateCode.ag" #-} + _lhsIprefix ++ "_block" ++ show _lhsIblockNr + {-# LINE 6724 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 665, column 7) + _pragmaDecl = + ({-# LINE 665 "GenerateCode.ag" #-} + PragmaDecl ("NOINLINE " ++ _lambdaName ) + {-# LINE 6730 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 666, column 7) + _lhsOcallExpr = + ({-# LINE 666 "GenerateCode.ag" #-} + App _lambdaName (map SimpleExpr _freeVars ) + {-# LINE 6736 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 668, column 7) + _freeVars = + ({-# LINE 668 "GenerateCode.ag" #-} + freevars _lhsIlastExprVars (defs_ ++ _lhsInextVisitDecls) + {-# LINE 6742 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 675, column 7) + _lhsOdecls = + ({-# LINE 675 "GenerateCode.ag" #-} + [ mkBlockLambda _lhsIoptCase _lambdaName _freeVars (defs_ ++ _lhsInextVisitDecls) result_ ] + {-# LINE 6748 "GenerateCode.hs" #-} + ) + -- copy rule (from local) + _lhsOfreeVars = + ({-# LINE 661 "GenerateCode.ag" #-} + _freeVars + {-# LINE 6754 "GenerateCode.hs" #-} + ) + in ( _lhsOcallExpr,_lhsOdecls,_lhsOfreeVars))) ) +-- DeclBlocksRoot ---------------------------------------------- +{- + visit 0: + inherited attributes: + lastExprVars : [String] + nextVisitDecls : [Decl] + optCase : Bool + prefix : String + synthesized attributes: + firstCall : Expr + lambdas : [Decl] + alternatives: + alternative DeclBlocksRoot: + child blocks : DeclBlocks +-} +-- cata +sem_DeclBlocksRoot :: DeclBlocksRoot -> + T_DeclBlocksRoot +sem_DeclBlocksRoot (DeclBlocksRoot _blocks ) = + (sem_DeclBlocksRoot_DeclBlocksRoot (sem_DeclBlocks _blocks ) ) +-- semantic domain +newtype T_DeclBlocksRoot = T_DeclBlocksRoot (([String]) -> + ([Decl]) -> + Bool -> + String -> + ( Expr,([Decl]))) +data Inh_DeclBlocksRoot = Inh_DeclBlocksRoot {lastExprVars_Inh_DeclBlocksRoot :: !(([String])),nextVisitDecls_Inh_DeclBlocksRoot :: !(([Decl])),optCase_Inh_DeclBlocksRoot :: !(Bool),prefix_Inh_DeclBlocksRoot :: !(String)} +data Syn_DeclBlocksRoot = Syn_DeclBlocksRoot {firstCall_Syn_DeclBlocksRoot :: !(Expr),lambdas_Syn_DeclBlocksRoot :: !(([Decl]))} +wrap_DeclBlocksRoot :: T_DeclBlocksRoot -> + Inh_DeclBlocksRoot -> + Syn_DeclBlocksRoot +wrap_DeclBlocksRoot (T_DeclBlocksRoot sem ) (Inh_DeclBlocksRoot _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix ) = + (let ( _lhsOfirstCall,_lhsOlambdas) = sem _lhsIlastExprVars _lhsInextVisitDecls _lhsIoptCase _lhsIprefix + in (Syn_DeclBlocksRoot _lhsOfirstCall _lhsOlambdas )) +sem_DeclBlocksRoot_DeclBlocksRoot :: T_DeclBlocks -> + T_DeclBlocksRoot +sem_DeclBlocksRoot_DeclBlocksRoot (T_DeclBlocks blocks_ ) = + (T_DeclBlocksRoot (\ _lhsIlastExprVars + _lhsInextVisitDecls + _lhsIoptCase + _lhsIprefix -> + (let _lhsOlambdas :: ([Decl]) + _lhsOfirstCall :: Expr + _blocksOblockNr :: Int + _blocksOlastExprVars :: ([String]) + _blocksOnextVisitDecls :: ([Decl]) + _blocksOoptCase :: Bool + _blocksOprefix :: String + _blocksIcallExpr :: Expr + _blocksIdecls :: ([Decl]) + _blocksIfreeVars :: ([String]) + -- "GenerateCode.ag"(line 650, column 7) + _lhsOlambdas = + ({-# LINE 650 "GenerateCode.ag" #-} + _blocksIdecls + {-# LINE 6812 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 651, column 7) + _lhsOfirstCall = + ({-# LINE 651 "GenerateCode.ag" #-} + _blocksIcallExpr + {-# LINE 6818 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 656, column 7) + _blocksOblockNr = + ({-# LINE 656 "GenerateCode.ag" #-} + 1 + {-# LINE 6824 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _blocksOlastExprVars = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsIlastExprVars + {-# LINE 6830 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _blocksOnextVisitDecls = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsInextVisitDecls + {-# LINE 6836 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _blocksOoptCase = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsIoptCase + {-# LINE 6842 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _blocksOprefix = + ({-# LINE 645 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 6848 "GenerateCode.hs" #-} + ) + ( _blocksIcallExpr,_blocksIdecls,_blocksIfreeVars) = + blocks_ _blocksOblockNr _blocksOlastExprVars _blocksOnextVisitDecls _blocksOoptCase _blocksOprefix + in ( _lhsOfirstCall,_lhsOlambdas))) ) +-- Pattern ----------------------------------------------------- +{- + visit 0: + synthesized attributes: + copy : SELF + definedInsts : [Identifier] + patternAttributes : [(Identifier, Identifier)] + alternatives: + alternative Alias: + child field : {Identifier} + child attr : {Identifier} + child pat : Pattern + child parts : Patterns + visit 0: + local copy : _ + alternative Constr: + child name : {ConstructorIdent} + child pats : Patterns + visit 0: + local copy : _ + alternative Irrefutable: + child pat : Pattern + visit 0: + local copy : _ + alternative Product: + child pos : {Pos} + child pats : Patterns + visit 0: + local copy : _ + alternative Underscore: + child pos : {Pos} + visit 0: + local copy : _ +-} +-- cata +sem_Pattern :: Pattern -> + T_Pattern +sem_Pattern (Alias _field _attr _pat _parts ) = + (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) ) +sem_Pattern (Constr _name _pats ) = + (sem_Pattern_Constr _name (sem_Patterns _pats ) ) +sem_Pattern (Irrefutable _pat ) = + (sem_Pattern_Irrefutable (sem_Pattern _pat ) ) +sem_Pattern (Product _pos _pats ) = + (sem_Pattern_Product _pos (sem_Patterns _pats ) ) +sem_Pattern (Underscore _pos ) = + (sem_Pattern_Underscore _pos ) +-- semantic domain +newtype T_Pattern = T_Pattern (( Pattern ,([Identifier]),([(Identifier, Identifier)]))) +data Inh_Pattern = Inh_Pattern {} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedInsts_Syn_Pattern :: !(([Identifier])),patternAttributes_Syn_Pattern :: !(([(Identifier, Identifier)]))} +wrap_Pattern :: T_Pattern -> + Inh_Pattern -> + Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) = + (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem + in (Syn_Pattern _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) +sem_Pattern_Alias :: Identifier -> + Identifier -> + T_Pattern -> + T_Patterns -> + T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedInsts :: ([Identifier]) + _patIpatternAttributes :: ([(Identifier, Identifier)]) + _partsIcopy :: Patterns + _partsIdefinedInsts :: ([Identifier]) + _partsIpatternAttributes :: ([(Identifier, Identifier)]) + -- "GenerateCode.ag"(line 261, column 11) + _lhsOdefinedInsts = + ({-# LINE 261 "GenerateCode.ag" #-} + (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts + {-# LINE 6929 "GenerateCode.hs" #-} + ) + -- "GenerateCode.ag"(line 269, column 7) + _lhsOpatternAttributes = + ({-# LINE 269 "GenerateCode.ag" #-} + (field_,attr_) : (_patIpatternAttributes ++ _partsIpatternAttributes) + {-# LINE 6935 "GenerateCode.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Alias field_ attr_ _patIcopy _partsIcopy + {-# LINE 6941 "GenerateCode.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 6947 "GenerateCode.hs" #-} + ) + ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = + pat_ + ( _partsIcopy,_partsIdefinedInsts,_partsIpatternAttributes) = + parts_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Constr :: ConstructorIdent -> + T_Patterns -> + T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedInsts :: ([Identifier]) + _patsIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + _patsIdefinedInsts + {-# LINE 6968 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 266, column 47) + _lhsOpatternAttributes = + ({-# LINE 266 "GenerateCode.ag" #-} + _patsIpatternAttributes + {-# LINE 6974 "GenerateCode.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Constr name_ _patsIcopy + {-# LINE 6980 "GenerateCode.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 6986 "GenerateCode.hs" #-} + ) + ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = + pats_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Irrefutable :: T_Pattern -> + T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedInsts :: ([Identifier]) + _patIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + _patIdefinedInsts + {-# LINE 7004 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 266, column 47) + _lhsOpatternAttributes = + ({-# LINE 266 "GenerateCode.ag" #-} + _patIpatternAttributes + {-# LINE 7010 "GenerateCode.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Irrefutable _patIcopy + {-# LINE 7016 "GenerateCode.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 7022 "GenerateCode.hs" #-} + ) + ( _patIcopy,_patIdefinedInsts,_patIpatternAttributes) = + pat_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Product :: Pos -> + T_Patterns -> + T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedInsts :: ([Identifier]) + _patsIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + _patsIdefinedInsts + {-# LINE 7041 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 266, column 47) + _lhsOpatternAttributes = + ({-# LINE 266 "GenerateCode.ag" #-} + _patsIpatternAttributes + {-# LINE 7047 "GenerateCode.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Product pos_ _patsIcopy + {-# LINE 7053 "GenerateCode.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 7059 "GenerateCode.hs" #-} + ) + ( _patsIcopy,_patsIdefinedInsts,_patsIpatternAttributes) = + pats_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Pattern_Underscore :: Pos -> + T_Pattern +sem_Pattern_Underscore pos_ = + (T_Pattern (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Pattern + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + [] + {-# LINE 7074 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 266, column 47) + _lhsOpatternAttributes = + ({-# LINE 266 "GenerateCode.ag" #-} + [] + {-# LINE 7080 "GenerateCode.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Underscore pos_ + {-# LINE 7086 "GenerateCode.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 7092 "GenerateCode.hs" #-} + ) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +-- Patterns ---------------------------------------------------- +{- + visit 0: + synthesized attributes: + copy : SELF + definedInsts : [Identifier] + patternAttributes : [(Identifier, Identifier)] + alternatives: + alternative Cons: + child hd : Pattern + child tl : Patterns + visit 0: + local copy : _ + alternative Nil: + visit 0: + local copy : _ +-} +-- cata +sem_Patterns :: Patterns -> + T_Patterns +sem_Patterns list = + (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) +-- semantic domain +newtype T_Patterns = T_Patterns (( Patterns ,([Identifier]),([(Identifier, Identifier)]))) +data Inh_Patterns = Inh_Patterns {} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedInsts_Syn_Patterns :: !(([Identifier])),patternAttributes_Syn_Patterns :: !(([(Identifier, Identifier)]))} +wrap_Patterns :: T_Patterns -> + Inh_Patterns -> + Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) = + (let ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes) = sem + in (Syn_Patterns _lhsOcopy _lhsOdefinedInsts _lhsOpatternAttributes )) +sem_Patterns_Cons :: T_Pattern -> + T_Patterns -> + T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = + (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Patterns + _hdIcopy :: Pattern + _hdIdefinedInsts :: ([Identifier]) + _hdIpatternAttributes :: ([(Identifier, Identifier)]) + _tlIcopy :: Patterns + _tlIdefinedInsts :: ([Identifier]) + _tlIpatternAttributes :: ([(Identifier, Identifier)]) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 7144 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 266, column 47) + _lhsOpatternAttributes = + ({-# LINE 266 "GenerateCode.ag" #-} + _hdIpatternAttributes ++ _tlIpatternAttributes + {-# LINE 7150 "GenerateCode.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 7156 "GenerateCode.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 7162 "GenerateCode.hs" #-} + ) + ( _hdIcopy,_hdIdefinedInsts,_hdIpatternAttributes) = + hd_ + ( _tlIcopy,_tlIdefinedInsts,_tlIpatternAttributes) = + tl_ + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil = + (T_Patterns (let _lhsOdefinedInsts :: ([Identifier]) + _lhsOpatternAttributes :: ([(Identifier, Identifier)]) + _lhsOcopy :: Patterns + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + [] + {-# LINE 7178 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 266, column 47) + _lhsOpatternAttributes = + ({-# LINE 266 "GenerateCode.ag" #-} + [] + {-# LINE 7184 "GenerateCode.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + [] + {-# LINE 7190 "GenerateCode.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 7196 "GenerateCode.hs" #-} + ) + in ( _lhsOcopy,_lhsOdefinedInsts,_lhsOpatternAttributes)) ) +-- Sequence ---------------------------------------------------- +{- + visit 0: + inherited attributes: + allNts : Set NontermIdent + aroundMap : Set Identifier + children : [(Identifier,Type,Maybe (Maybe Type))] + con : ConstructorIdent + inh : Attributes + instVisitNrs : Map Identifier Int + lastExpr : Expr + mergeMap : Map Identifier (Identifier, [Identifier]) + nr : Int + nt : NontermIdent + o_case : Bool + o_cata : Bool + o_costcentre : Bool + o_data : Maybe Bool + o_linePragmas : Bool + o_monadic : Bool + o_newtypes : Bool + o_pretty : Bool + o_rename : Bool + o_sem : Bool + o_sig : Bool + o_splitsems : Bool + o_strictwrap : Bool + o_traces : Bool + o_unbox : Bool + options : Options + paramInstMap : Map Identifier (NontermIdent, [String]) + paramMap : ParamMap + prefix : String + syn : Attributes + terminals : [Identifier] + unfoldSemDom : NontermIdent -> Int -> [String] -> Code.Type + what : String + chained attributes: + declsAbove : [Decl] + visitedSet : Set Identifier + synthesized attributes: + allTpsFound : Bool + blockDecls : DeclBlocks + comments : [String] + decls : Decls + definedInsts : [Identifier] + exprs : Exprs + tSigs : [Decl] + tps : [Type] + usedVars : Set String + alternatives: + alternative Cons: + child hd : CRule + child tl : Sequence + alternative Nil: +-} +-- cata +sem_Sequence :: Sequence -> + T_Sequence +sem_Sequence list = + (Prelude.foldr sem_Sequence_Cons sem_Sequence_Nil (Prelude.map sem_CRule list) ) +-- semantic domain +newtype T_Sequence = T_Sequence ((Set NontermIdent) -> + (Set Identifier) -> + ([(Identifier,Type,Maybe (Maybe Type))]) -> + ConstructorIdent -> + ([Decl]) -> + Attributes -> + (Map Identifier Int) -> + Expr -> + (Map Identifier (Identifier, [Identifier])) -> + Int -> + NontermIdent -> + Bool -> + Bool -> + Bool -> + (Maybe Bool) -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Bool -> + Options -> + (Map Identifier (NontermIdent, [String])) -> + ParamMap -> + String -> + Attributes -> + ([Identifier]) -> + (NontermIdent -> Int -> [String] -> Code.Type) -> + (Set Identifier) -> + String -> + ( Bool,DeclBlocks ,([String]),Decls,([Decl]),([Identifier]),Exprs,([Decl]),([Type]),(Set String),(Set Identifier))) +data Inh_Sequence = Inh_Sequence {allNts_Inh_Sequence :: !((Set NontermIdent)),aroundMap_Inh_Sequence :: !((Set Identifier)),children_Inh_Sequence :: !(([(Identifier,Type,Maybe (Maybe Type))])),con_Inh_Sequence :: !(ConstructorIdent),declsAbove_Inh_Sequence :: !(([Decl])),inh_Inh_Sequence :: !(Attributes),instVisitNrs_Inh_Sequence :: !((Map Identifier Int)),lastExpr_Inh_Sequence :: !(Expr),mergeMap_Inh_Sequence :: !((Map Identifier (Identifier, [Identifier]))),nr_Inh_Sequence :: !(Int),nt_Inh_Sequence :: !(NontermIdent),o_case_Inh_Sequence :: !(Bool),o_cata_Inh_Sequence :: !(Bool),o_costcentre_Inh_Sequence :: !(Bool),o_data_Inh_Sequence :: !((Maybe Bool)),o_linePragmas_Inh_Sequence :: !(Bool),o_monadic_Inh_Sequence :: !(Bool),o_newtypes_Inh_Sequence :: !(Bool),o_pretty_Inh_Sequence :: !(Bool),o_rename_Inh_Sequence :: !(Bool),o_sem_Inh_Sequence :: !(Bool),o_sig_Inh_Sequence :: !(Bool),o_splitsems_Inh_Sequence :: !(Bool),o_strictwrap_Inh_Sequence :: !(Bool),o_traces_Inh_Sequence :: !(Bool),o_unbox_Inh_Sequence :: !(Bool),options_Inh_Sequence :: !(Options),paramInstMap_Inh_Sequence :: !((Map Identifier (NontermIdent, [String]))),paramMap_Inh_Sequence :: !(ParamMap),prefix_Inh_Sequence :: !(String),syn_Inh_Sequence :: !(Attributes),terminals_Inh_Sequence :: !(([Identifier])),unfoldSemDom_Inh_Sequence :: !((NontermIdent -> Int -> [String] -> Code.Type)),visitedSet_Inh_Sequence :: !((Set Identifier)),what_Inh_Sequence :: !(String)} +data Syn_Sequence = Syn_Sequence {allTpsFound_Syn_Sequence :: !(Bool),blockDecls_Syn_Sequence :: !(DeclBlocks ),comments_Syn_Sequence :: !(([String])),decls_Syn_Sequence :: !(Decls),declsAbove_Syn_Sequence :: !(([Decl])),definedInsts_Syn_Sequence :: !(([Identifier])),exprs_Syn_Sequence :: !(Exprs),tSigs_Syn_Sequence :: !(([Decl])),tps_Syn_Sequence :: !(([Type])),usedVars_Syn_Sequence :: !((Set String)),visitedSet_Syn_Sequence :: !((Set Identifier))} +wrap_Sequence :: T_Sequence -> + Inh_Sequence -> + Syn_Sequence +wrap_Sequence (T_Sequence sem ) (Inh_Sequence _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat ) = + (let ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet) = sem _lhsIallNts _lhsIaroundMap _lhsIchildren _lhsIcon _lhsIdeclsAbove _lhsIinh _lhsIinstVisitNrs _lhsIlastExpr _lhsImergeMap _lhsInr _lhsInt _lhsIo_case _lhsIo_cata _lhsIo_costcentre _lhsIo_data _lhsIo_linePragmas _lhsIo_monadic _lhsIo_newtypes _lhsIo_pretty _lhsIo_rename _lhsIo_sem _lhsIo_sig _lhsIo_splitsems _lhsIo_strictwrap _lhsIo_traces _lhsIo_unbox _lhsIoptions _lhsIparamInstMap _lhsIparamMap _lhsIprefix _lhsIsyn _lhsIterminals _lhsIunfoldSemDom _lhsIvisitedSet _lhsIwhat + in (Syn_Sequence _lhsOallTpsFound _lhsOblockDecls _lhsOcomments _lhsOdecls _lhsOdeclsAbove _lhsOdefinedInsts _lhsOexprs _lhsOtSigs _lhsOtps _lhsOusedVars _lhsOvisitedSet )) +sem_Sequence_Cons :: T_CRule -> + T_Sequence -> + T_Sequence +sem_Sequence_Cons (T_CRule hd_ ) (T_Sequence tl_ ) = + (T_Sequence (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsIlastExpr + _lhsImergeMap + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIvisitedSet + _lhsIwhat -> + (let _lhsOblockDecls :: DeclBlocks + _lhsOallTpsFound :: Bool + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + _lhsOexprs :: Exprs + _lhsOtSigs :: ([Decl]) + _lhsOtps :: ([Type]) + _lhsOusedVars :: (Set String) + _lhsOdeclsAbove :: ([Decl]) + _lhsOvisitedSet :: (Set Identifier) + _hdOallNts :: (Set NontermIdent) + _hdOaroundMap :: (Set Identifier) + _hdOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _hdOcon :: ConstructorIdent + _hdOdeclsAbove :: ([Decl]) + _hdOinh :: Attributes + _hdOinstVisitNrs :: (Map Identifier Int) + _hdOmergeMap :: (Map Identifier (Identifier, [Identifier])) + _hdOnr :: Int + _hdOnt :: NontermIdent + _hdOo_case :: Bool + _hdOo_cata :: Bool + _hdOo_costcentre :: Bool + _hdOo_data :: (Maybe Bool) + _hdOo_linePragmas :: Bool + _hdOo_monadic :: Bool + _hdOo_newtypes :: Bool + _hdOo_pretty :: Bool + _hdOo_rename :: Bool + _hdOo_sem :: Bool + _hdOo_sig :: Bool + _hdOo_splitsems :: Bool + _hdOo_strictwrap :: Bool + _hdOo_traces :: Bool + _hdOo_unbox :: Bool + _hdOoptions :: Options + _hdOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _hdOparamMap :: ParamMap + _hdOprefix :: String + _hdOsyn :: Attributes + _hdOterminals :: ([Identifier]) + _hdOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _hdOvisitedSet :: (Set Identifier) + _hdOwhat :: String + _tlOallNts :: (Set NontermIdent) + _tlOaroundMap :: (Set Identifier) + _tlOchildren :: ([(Identifier,Type,Maybe (Maybe Type))]) + _tlOcon :: ConstructorIdent + _tlOdeclsAbove :: ([Decl]) + _tlOinh :: Attributes + _tlOinstVisitNrs :: (Map Identifier Int) + _tlOlastExpr :: Expr + _tlOmergeMap :: (Map Identifier (Identifier, [Identifier])) + _tlOnr :: Int + _tlOnt :: NontermIdent + _tlOo_case :: Bool + _tlOo_cata :: Bool + _tlOo_costcentre :: Bool + _tlOo_data :: (Maybe Bool) + _tlOo_linePragmas :: Bool + _tlOo_monadic :: Bool + _tlOo_newtypes :: Bool + _tlOo_pretty :: Bool + _tlOo_rename :: Bool + _tlOo_sem :: Bool + _tlOo_sig :: Bool + _tlOo_splitsems :: Bool + _tlOo_strictwrap :: Bool + _tlOo_traces :: Bool + _tlOo_unbox :: Bool + _tlOoptions :: Options + _tlOparamInstMap :: (Map Identifier (NontermIdent, [String])) + _tlOparamMap :: ParamMap + _tlOprefix :: String + _tlOsyn :: Attributes + _tlOterminals :: ([Identifier]) + _tlOunfoldSemDom :: (NontermIdent -> Int -> [String] -> Code.Type) + _tlOvisitedSet :: (Set Identifier) + _tlOwhat :: String + _hdIallTpsFound :: Bool + _hdIbldBlocksFun :: (DeclBlocks -> DeclBlocks) + _hdIcomments :: ([String]) + _hdIdecls :: Decls + _hdIdeclsAbove :: ([Decl]) + _hdIdefinedInsts :: ([Identifier]) + _hdIexprs :: Exprs + _hdItSigs :: ([Decl]) + _hdItps :: ([Type]) + _hdIusedVars :: (Set String) + _hdIvisitedSet :: (Set Identifier) + _tlIallTpsFound :: Bool + _tlIblockDecls :: DeclBlocks + _tlIcomments :: ([String]) + _tlIdecls :: Decls + _tlIdeclsAbove :: ([Decl]) + _tlIdefinedInsts :: ([Identifier]) + _tlIexprs :: Exprs + _tlItSigs :: ([Decl]) + _tlItps :: ([Type]) + _tlIusedVars :: (Set String) + _tlIvisitedSet :: (Set Identifier) + -- "GenerateCode.ag"(line 619, column 7) + _lhsOblockDecls = + ({-# LINE 619 "GenerateCode.ag" #-} + _hdIbldBlocksFun _tlIblockDecls + {-# LINE 7450 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 423, column 39) + _lhsOallTpsFound = + ({-# LINE 423 "GenerateCode.ag" #-} + _hdIallTpsFound && _tlIallTpsFound + {-# LINE 7456 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + _hdIcomments ++ _tlIcomments + {-# LINE 7462 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 155, column 34) + _lhsOdecls = + ({-# LINE 155 "GenerateCode.ag" #-} + _hdIdecls ++ _tlIdecls + {-# LINE 7468 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 7474 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 332, column 34) + _lhsOexprs = + ({-# LINE 332 "GenerateCode.ag" #-} + _hdIexprs ++ _tlIexprs + {-# LINE 7480 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 361, column 33) + _lhsOtSigs = + ({-# LINE 361 "GenerateCode.ag" #-} + _hdItSigs ++ _tlItSigs + {-# LINE 7486 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 422, column 31) + _lhsOtps = + ({-# LINE 422 "GenerateCode.ag" #-} + _hdItps ++ _tlItps + {-# LINE 7492 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 350, column 37) + _lhsOusedVars = + ({-# LINE 350 "GenerateCode.ag" #-} + _hdIusedVars `Set.union` _tlIusedVars + {-# LINE 7498 "GenerateCode.hs" #-} + ) + -- copy rule (up) + _lhsOdeclsAbove = + ({-# LINE 605 "GenerateCode.ag" #-} + _tlIdeclsAbove + {-# LINE 7504 "GenerateCode.hs" #-} + ) + -- copy rule (up) + _lhsOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _tlIvisitedSet + {-# LINE 7510 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 7516 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOaroundMap = + ({-# LINE 577 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 7522 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOchildren = + ({-# LINE 257 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 7528 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOcon = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 7534 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOdeclsAbove = + ({-# LINE 605 "GenerateCode.ag" #-} + _lhsIdeclsAbove + {-# LINE 7540 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 7546 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOinstVisitNrs = + ({-# LINE 557 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 7552 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOmergeMap = + ({-# LINE 593 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 7558 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOnr = + ({-# LINE 276 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 7564 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 7570 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 7576 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 7582 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 7588 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 7594 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 7600 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 7606 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 7612 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 7618 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 7624 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 7630 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 7636 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 7642 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 7648 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 7654 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 7660 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 7666 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOparamInstMap = + ({-# LINE 101 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 7672 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 7678 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 7684 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 7690 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOterminals = + ({-# LINE 90 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 7696 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 7702 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _lhsIvisitedSet + {-# LINE 7708 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _hdOwhat = + ({-# LINE 868 "GenerateCode.ag" #-} + _lhsIwhat + {-# LINE 7714 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOallNts = + ({-# LINE 132 "GenerateCode.ag" #-} + _lhsIallNts + {-# LINE 7720 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOaroundMap = + ({-# LINE 577 "GenerateCode.ag" #-} + _lhsIaroundMap + {-# LINE 7726 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOchildren = + ({-# LINE 257 "GenerateCode.ag" #-} + _lhsIchildren + {-# LINE 7732 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOcon = + ({-# LINE 89 "GenerateCode.ag" #-} + _lhsIcon + {-# LINE 7738 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _tlOdeclsAbove = + ({-# LINE 605 "GenerateCode.ag" #-} + _hdIdeclsAbove + {-# LINE 7744 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOinh = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIinh + {-# LINE 7750 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOinstVisitNrs = + ({-# LINE 557 "GenerateCode.ag" #-} + _lhsIinstVisitNrs + {-# LINE 7756 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOlastExpr = + ({-# LINE 603 "GenerateCode.ag" #-} + _lhsIlastExpr + {-# LINE 7762 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOmergeMap = + ({-# LINE 593 "GenerateCode.ag" #-} + _lhsImergeMap + {-# LINE 7768 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOnr = + ({-# LINE 276 "GenerateCode.ag" #-} + _lhsInr + {-# LINE 7774 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOnt = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsInt + {-# LINE 7780 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_case = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_case + {-# LINE 7786 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_cata = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_cata + {-# LINE 7792 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_costcentre = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_costcentre + {-# LINE 7798 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_data = + ({-# LINE 48 "GenerateCode.ag" #-} + _lhsIo_data + {-# LINE 7804 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_linePragmas = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_linePragmas + {-# LINE 7810 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_monadic = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_monadic + {-# LINE 7816 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_newtypes = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_newtypes + {-# LINE 7822 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_pretty = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_pretty + {-# LINE 7828 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_rename = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_rename + {-# LINE 7834 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sem = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sem + {-# LINE 7840 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_sig = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_sig + {-# LINE 7846 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_splitsems = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_splitsems + {-# LINE 7852 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_strictwrap = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_strictwrap + {-# LINE 7858 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_traces = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_traces + {-# LINE 7864 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOo_unbox = + ({-# LINE 47 "GenerateCode.ag" #-} + _lhsIo_unbox + {-# LINE 7870 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 50 "GenerateCode.ag" #-} + _lhsIoptions + {-# LINE 7876 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOparamInstMap = + ({-# LINE 101 "GenerateCode.ag" #-} + _lhsIparamInstMap + {-# LINE 7882 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOparamMap = + ({-# LINE 95 "GenerateCode.ag" #-} + _lhsIparamMap + {-# LINE 7888 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOprefix = + ({-# LINE 49 "GenerateCode.ag" #-} + _lhsIprefix + {-# LINE 7894 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOsyn = + ({-# LINE 84 "GenerateCode.ag" #-} + _lhsIsyn + {-# LINE 7900 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOterminals = + ({-# LINE 90 "GenerateCode.ag" #-} + _lhsIterminals + {-# LINE 7906 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOunfoldSemDom = + ({-# LINE 747 "GenerateCode.ag" #-} + _lhsIunfoldSemDom + {-# LINE 7912 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _tlOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _hdIvisitedSet + {-# LINE 7918 "GenerateCode.hs" #-} + ) + -- copy rule (down) + _tlOwhat = + ({-# LINE 868 "GenerateCode.ag" #-} + _lhsIwhat + {-# LINE 7924 "GenerateCode.hs" #-} + ) + ( _hdIallTpsFound,_hdIbldBlocksFun,_hdIcomments,_hdIdecls,_hdIdeclsAbove,_hdIdefinedInsts,_hdIexprs,_hdItSigs,_hdItps,_hdIusedVars,_hdIvisitedSet) = + hd_ _hdOallNts _hdOaroundMap _hdOchildren _hdOcon _hdOdeclsAbove _hdOinh _hdOinstVisitNrs _hdOmergeMap _hdOnr _hdOnt _hdOo_case _hdOo_cata _hdOo_costcentre _hdOo_data _hdOo_linePragmas _hdOo_monadic _hdOo_newtypes _hdOo_pretty _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_splitsems _hdOo_strictwrap _hdOo_traces _hdOo_unbox _hdOoptions _hdOparamInstMap _hdOparamMap _hdOprefix _hdOsyn _hdOterminals _hdOunfoldSemDom _hdOvisitedSet _hdOwhat + ( _tlIallTpsFound,_tlIblockDecls,_tlIcomments,_tlIdecls,_tlIdeclsAbove,_tlIdefinedInsts,_tlIexprs,_tlItSigs,_tlItps,_tlIusedVars,_tlIvisitedSet) = + tl_ _tlOallNts _tlOaroundMap _tlOchildren _tlOcon _tlOdeclsAbove _tlOinh _tlOinstVisitNrs _tlOlastExpr _tlOmergeMap _tlOnr _tlOnt _tlOo_case _tlOo_cata _tlOo_costcentre _tlOo_data _tlOo_linePragmas _tlOo_monadic _tlOo_newtypes _tlOo_pretty _tlOo_rename _tlOo_sem _tlOo_sig _tlOo_splitsems _tlOo_strictwrap _tlOo_traces _tlOo_unbox _tlOoptions _tlOparamInstMap _tlOparamMap _tlOprefix _tlOsyn _tlOterminals _tlOunfoldSemDom _tlOvisitedSet _tlOwhat + in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) ) +sem_Sequence_Nil :: T_Sequence +sem_Sequence_Nil = + (T_Sequence (\ _lhsIallNts + _lhsIaroundMap + _lhsIchildren + _lhsIcon + _lhsIdeclsAbove + _lhsIinh + _lhsIinstVisitNrs + _lhsIlastExpr + _lhsImergeMap + _lhsInr + _lhsInt + _lhsIo_case + _lhsIo_cata + _lhsIo_costcentre + _lhsIo_data + _lhsIo_linePragmas + _lhsIo_monadic + _lhsIo_newtypes + _lhsIo_pretty + _lhsIo_rename + _lhsIo_sem + _lhsIo_sig + _lhsIo_splitsems + _lhsIo_strictwrap + _lhsIo_traces + _lhsIo_unbox + _lhsIoptions + _lhsIparamInstMap + _lhsIparamMap + _lhsIprefix + _lhsIsyn + _lhsIterminals + _lhsIunfoldSemDom + _lhsIvisitedSet + _lhsIwhat -> + (let _lhsOblockDecls :: DeclBlocks + _lhsOallTpsFound :: Bool + _lhsOcomments :: ([String]) + _lhsOdecls :: Decls + _lhsOdefinedInsts :: ([Identifier]) + _lhsOexprs :: Exprs + _lhsOtSigs :: ([Decl]) + _lhsOtps :: ([Type]) + _lhsOusedVars :: (Set String) + _lhsOdeclsAbove :: ([Decl]) + _lhsOvisitedSet :: (Set Identifier) + -- "GenerateCode.ag"(line 621, column 7) + _lhsOblockDecls = + ({-# LINE 621 "GenerateCode.ag" #-} + DeclTerminator _lhsIdeclsAbove _lhsIlastExpr + {-# LINE 7983 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 423, column 39) + _lhsOallTpsFound = + ({-# LINE 423 "GenerateCode.ag" #-} + True + {-# LINE 7989 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 866, column 52) + _lhsOcomments = + ({-# LINE 866 "GenerateCode.ag" #-} + [] + {-# LINE 7995 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 155, column 34) + _lhsOdecls = + ({-# LINE 155 "GenerateCode.ag" #-} + [] + {-# LINE 8001 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 259, column 55) + _lhsOdefinedInsts = + ({-# LINE 259 "GenerateCode.ag" #-} + [] + {-# LINE 8007 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 332, column 34) + _lhsOexprs = + ({-# LINE 332 "GenerateCode.ag" #-} + [] + {-# LINE 8013 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 361, column 33) + _lhsOtSigs = + ({-# LINE 361 "GenerateCode.ag" #-} + [] + {-# LINE 8019 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 422, column 31) + _lhsOtps = + ({-# LINE 422 "GenerateCode.ag" #-} + [] + {-# LINE 8025 "GenerateCode.hs" #-} + ) + -- use rule "GenerateCode.ag"(line 350, column 37) + _lhsOusedVars = + ({-# LINE 350 "GenerateCode.ag" #-} + Set.empty + {-# LINE 8031 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _lhsOdeclsAbove = + ({-# LINE 605 "GenerateCode.ag" #-} + _lhsIdeclsAbove + {-# LINE 8037 "GenerateCode.hs" #-} + ) + -- copy rule (chain) + _lhsOvisitedSet = + ({-# LINE 145 "GenerateCode.ag" #-} + _lhsIvisitedSet + {-# LINE 8043 "GenerateCode.hs" #-} ) in ( _lhsOallTpsFound,_lhsOblockDecls,_lhsOcomments,_lhsOdecls,_lhsOdeclsAbove,_lhsOdefinedInsts,_lhsOexprs,_lhsOtSigs,_lhsOtps,_lhsOusedVars,_lhsOvisitedSet))) ) diff --git a/src-derived/HsToken.hs b/src-derived/HsToken.hs --- a/src-derived/HsToken.hs +++ b/src-derived/HsToken.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (HsToken.ag) +-- UUAGC 0.9.38.1 (HsToken.ag) module HsToken where {-# LINE 2 "HsToken.ag" #-} diff --git a/src-derived/Interfaces.hs b/src-derived/Interfaces.hs --- a/src-derived/Interfaces.hs +++ b/src-derived/Interfaces.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (Interfaces.ag) +-- UUAGC 0.9.38.1 (Interfaces.ag) module Interfaces where {-# LINE 2 "Interfaces.ag" #-} diff --git a/src-derived/InterfacesRules.hs b/src-derived/InterfacesRules.hs --- a/src-derived/InterfacesRules.hs +++ b/src-derived/InterfacesRules.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.37.1 (InterfacesRules.lag) +-- UUAGC 0.9.38.1 (InterfacesRules.lag) module InterfacesRules where {-# LINE 10 "InterfacesRules.lag" #-} diff --git a/src-derived/Order.hs b/src-derived/Order.hs --- a/src-derived/Order.hs +++ b/src-derived/Order.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (Order.ag) +-- UUAGC 0.9.38.1 (Order.ag) module Order where {-# LINE 9 "Order.ag" #-} @@ -24,7 +24,7 @@ import qualified Data.Map as Map import qualified Data.Set as Set import qualified Data.Sequence as Seq -import Data.Map(Map) +import Data.Map(Map) import Data.Set(Set) import Data.Sequence(Seq, (><)) import UU.Util.Utils @@ -89,7 +89,7 @@ {-# LINE 166 "Order.ag" #-} -data AltAttr = AltAttr Identifier Identifier Bool +data AltAttr = AltAttr Identifier Identifier Bool deriving (Eq, Ord, Show) {-# LINE 95 "../src-derived/Order.hs" #-} @@ -99,7 +99,7 @@ = case tp of NT n tps | n == _SELF -> NT nt tps _ -> tp - + haskellTupel :: [Type] -> Maybe Type haskellTupel ts = Just ( Haskell ( '(' : (concat (intersperse "," (map show ts))) ++ ")" )) {-# LINE 106 "../src-derived/Order.hs" #-} @@ -130,7 +130,7 @@ limitTo :: Int -> [String] -> [String] -limitTo _ [] = [] +limitTo _ [] = [] limitTo 0 _ = ["....etcetera, etcetera...."] limitTo n (x:xs) = x : limitTo (n-1) xs @@ -147,7 +147,7 @@ | first&& not(isSyn r2) = "get from above " ++ alignR maxf "" ++ " " ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2 | last = "pass down " ++ alignR maxf f1 ++ "." ++ a1 ++ induced | isSyn r2 = "get from below " ++ alignR maxf f2 ++ "." ++ alignL maxa a2 ++ " in " ++ alignR maxn n2 ++ "|" ++ c2 - | isLocal r1 = if head a1 == '_' + | isLocal r1 = if head a1 == '_' then "" else "calculate " ++ alignR maxf "loc" ++ "." ++ a1 | otherwise = "pass down " ++ alignR maxf f1 ++ "." ++ alignL maxa a1 ++ " to " ++ alignR maxn n2 ++ "|" ++ c2 @@ -986,6 +986,7 @@ child manualAttrOrderMap : {AttrOrderMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child uniqueMap : {UniqueMap} child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} @@ -1012,8 +1013,8 @@ -- cata sem_Grammar :: Grammar -> T_Grammar -sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = - (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) +sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = + (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) -- semantic domain newtype T_Grammar = T_Grammar (Options -> ( (Seq Error),Int,Int,CGrammar)) @@ -1034,12 +1035,13 @@ AttrOrderMap -> ParamMap -> ContextMap -> + QuantMap -> UniqueMap -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) -> T_Grammar -sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = +sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = (T_Grammar (\ _lhsIoptions -> (let _nontsOo_cata :: Bool _nontsOo_data :: Bool @@ -1083,116 +1085,116 @@ _o_dovisit = ({-# LINE 123 "Order.ag" #-} visit _lhsIoptions && null _cyclesErrors - {-# LINE 1087 "Order.hs" #-} + {-# LINE 1089 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_cata = ({-# LINE 124 "Order.ag" #-} folds _lhsIoptions - {-# LINE 1093 "Order.hs" #-} + {-# LINE 1095 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_data = ({-# LINE 125 "Order.ag" #-} dataTypes _lhsIoptions - {-# LINE 1099 "Order.hs" #-} + {-# LINE 1101 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_sig = ({-# LINE 126 "Order.ag" #-} typeSigs _lhsIoptions - {-# LINE 1105 "Order.hs" #-} + {-# LINE 1107 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_sem = ({-# LINE 127 "Order.ag" #-} semfuns _lhsIoptions - {-# LINE 1111 "Order.hs" #-} + {-# LINE 1113 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_rename = ({-# LINE 128 "Order.ag" #-} rename _lhsIoptions - {-# LINE 1117 "Order.hs" #-} + {-# LINE 1119 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_newtypes = ({-# LINE 129 "Order.ag" #-} newtypes _lhsIoptions - {-# LINE 1123 "Order.hs" #-} + {-# LINE 1125 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_wantvisit = ({-# LINE 130 "Order.ag" #-} visit _lhsIoptions - {-# LINE 1129 "Order.hs" #-} + {-# LINE 1131 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_unbox = ({-# LINE 131 "Order.ag" #-} unbox _lhsIoptions - {-# LINE 1135 "Order.hs" #-} + {-# LINE 1137 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOo_case = ({-# LINE 132 "Order.ag" #-} cases _lhsIoptions - {-# LINE 1141 "Order.hs" #-} + {-# LINE 1143 "Order.hs" #-} ) -- "Order.ag"(line 124, column 17) _nontsOprefix = ({-# LINE 133 "Order.ag" #-} prefix _lhsIoptions - {-# LINE 1147 "Order.hs" #-} + {-# LINE 1149 "Order.hs" #-} ) -- "Order.ag"(line 261, column 15) _nontsOvcount = ({-# LINE 261 "Order.ag" #-} 0 - {-# LINE 1153 "Order.hs" #-} + {-# LINE 1155 "Order.hs" #-} ) -- "Order.ag"(line 287, column 7) _nontsOmanualAttrDepMap = ({-# LINE 287 "Order.ag" #-} manualAttrOrderMap_ - {-# LINE 1159 "Order.hs" #-} + {-# LINE 1161 "Order.hs" #-} ) -- "Order.ag"(line 416, column 14) _nontsOaroundMap = ({-# LINE 416 "Order.ag" #-} aroundsMap_ - {-# LINE 1165 "Order.hs" #-} + {-# LINE 1167 "Order.hs" #-} ) -- "Order.ag"(line 503, column 13) _nontsOacount = ({-# LINE 503 "Order.ag" #-} 0 - {-# LINE 1171 "Order.hs" #-} + {-# LINE 1173 "Order.hs" #-} ) -- "Order.ag"(line 541, column 13) _ruleTable = ({-# LINE 541 "Order.ag" #-} Array.array (0,_nontsIvcount-1) (toList _nontsIrules) - {-# LINE 1177 "Order.hs" #-} + {-# LINE 1179 "Order.hs" #-} ) -- "Order.ag"(line 542, column 13) _attrTable = ({-# LINE 542 "Order.ag" #-} Array.array (0,_nontsIacount-1) (toList _nontsIntattrs) - {-# LINE 1183 "Order.hs" #-} + {-# LINE 1185 "Order.hs" #-} ) -- "Order.ag"(line 543, column 13) _attrVertex = ({-# LINE 543 "Order.ag" #-} Map.fromList (map swap (toList _nontsIntattrs)) - {-# LINE 1189 "Order.hs" #-} + {-# LINE 1191 "Order.hs" #-} ) -- "Order.ag"(line 544, column 13) _tdpToTds = ({-# LINE 544 "Order.ag" #-} [ (s, maybe (-1) (\v -> findWithErr1 "Grammar.tdpToTds" v _attrVertex) (ntattr cr)) | (s,cr) <- toList _nontsIrules] - {-# LINE 1196 "Order.hs" #-} + {-# LINE 1198 "Order.hs" #-} ) -- "Order.ag"(line 546, column 13) _tdsToTdp = @@ -1201,31 +1203,31 @@ conv ((s,v):svs) | v == -1 = Nothing | otherwise = Just (v,s:map fst svs) in mapMaybe conv (eqClasses eq _tdpToTds) - {-# LINE 1205 "Order.hs" #-} + {-# LINE 1207 "Order.hs" #-} ) -- "Order.ag"(line 550, column 13) _directDep = ({-# LINE 550 "Order.ag" #-} toList (_nontsIdirectDep Seq.>< _nontsIadditionalDep) - {-# LINE 1211 "Order.hs" #-} + {-# LINE 1213 "Order.hs" #-} ) -- "Order.ag"(line 551, column 13) _instDep = ({-# LINE 551 "Order.ag" #-} toList _nontsIinstDep - {-# LINE 1217 "Order.hs" #-} + {-# LINE 1219 "Order.hs" #-} ) -- "Order.ag"(line 552, column 13) _aroundDep = ({-# LINE 552 "Order.ag" #-} toList _nontsIaroundDep - {-# LINE 1223 "Order.hs" #-} + {-# LINE 1225 "Order.hs" #-} ) -- "Order.ag"(line 553, column 13) _mergeDep = ({-# LINE 553 "Order.ag" #-} toList _nontsImergeDep - {-# LINE 1229 "Order.hs" #-} + {-# LINE 1231 "Order.hs" #-} ) -- "Order.ag"(line 554, column 13) _info = @@ -1240,7 +1242,7 @@ , nonts = _nontsInonts , wraps = wrappers_ } - {-# LINE 1244 "Order.hs" #-} + {-# LINE 1246 "Order.hs" #-} ) -- "Order.ag"(line 565, column 17) __tup2 = @@ -1266,92 +1268,92 @@ , error "No visit sub-sequences for AG with induced cycles" , inducedCycleErrs _attrTable _ruleTable cim errs ) - {-# LINE 1270 "Order.hs" #-} + {-# LINE 1272 "Order.hs" #-} ) -- "Order.ag"(line 565, column 17) (_cInterfaceMap,_,_) = ({-# LINE 565 "Order.ag" #-} __tup2 - {-# LINE 1276 "Order.hs" #-} + {-# LINE 1278 "Order.hs" #-} ) -- "Order.ag"(line 565, column 17) (_,_cVisitsMap,_) = ({-# LINE 565 "Order.ag" #-} __tup2 - {-# LINE 1282 "Order.hs" #-} + {-# LINE 1284 "Order.hs" #-} ) -- "Order.ag"(line 565, column 17) (_,_,_cyclesErrors) = ({-# LINE 565 "Order.ag" #-} __tup2 - {-# LINE 1288 "Order.hs" #-} + {-# LINE 1290 "Order.hs" #-} ) -- "Order.ag"(line 587, column 13) _lhsOerrors = ({-# LINE 587 "Order.ag" #-} (if withCycle _lhsIoptions then Seq.fromList _cyclesErrors else Seq.empty) Seq.>< _nontsIerrors - {-# LINE 1295 "Order.hs" #-} + {-# LINE 1297 "Order.hs" #-} ) -- "Order.ag"(line 619, column 15) _lhsOoutput = ({-# LINE 619 "Order.ag" #-} - CGrammar typeSyns_ derivings_ wrappers_ _nontsIcNonterminals pragmas_ paramMap_ contextMap_ _aroundMap _mergeMap _o_dovisit - {-# LINE 1301 "Order.hs" #-} + CGrammar typeSyns_ derivings_ wrappers_ _nontsIcNonterminals pragmas_ paramMap_ contextMap_ quantMap_ _aroundMap _mergeMap _o_dovisit + {-# LINE 1303 "Order.hs" #-} ) -- "Order.ag"(line 632, column 14) _aroundMap = ({-# LINE 632 "Order.ag" #-} Map.map (Map.map Map.keysSet) aroundsMap_ - {-# LINE 1307 "Order.hs" #-} + {-# LINE 1309 "Order.hs" #-} ) -- "Order.ag"(line 633, column 14) _mergeMap = ({-# LINE 633 "Order.ag" #-} Map.map (Map.map (Map.map (\(nt,srcs,_) -> (nt,srcs)))) mergeMap_ - {-# LINE 1313 "Order.hs" #-} + {-# LINE 1315 "Order.hs" #-} ) -- "Order.ag"(line 650, column 13) _nontsOallnts = ({-# LINE 650 "Order.ag" #-} map fst (_nontsInonts) - {-# LINE 1319 "Order.hs" #-} + {-# LINE 1321 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} _nontsInAutoRules - {-# LINE 1325 "Order.hs" #-} + {-# LINE 1327 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} _nontsInExplicitRules - {-# LINE 1331 "Order.hs" #-} + {-# LINE 1333 "Order.hs" #-} ) -- copy rule (from local) _nontsOcInterfaceMap = ({-# LINE 594 "Order.ag" #-} _cInterfaceMap - {-# LINE 1337 "Order.hs" #-} + {-# LINE 1339 "Order.hs" #-} ) -- copy rule (from local) _nontsOcVisitsMap = ({-# LINE 601 "Order.ag" #-} _cVisitsMap - {-# LINE 1343 "Order.hs" #-} + {-# LINE 1345 "Order.hs" #-} ) -- copy rule (from local) _nontsOmergeMap = ({-# LINE 354 "Order.ag" #-} _mergeMap - {-# LINE 1349 "Order.hs" #-} + {-# LINE 1351 "Order.hs" #-} ) -- copy rule (from local) _nontsOo_dovisit = ({-# LINE 116 "Order.ag" #-} _o_dovisit - {-# LINE 1355 "Order.hs" #-} + {-# LINE 1357 "Order.hs" #-} ) ( _nontsIacount,_nontsIadditionalDep,_nontsIaranges,_nontsIaroundDep,_nontsIcNonterminals,_nontsIdirectDep,_nontsIerrors,_nontsIinstDep,_nontsImergeDep,_nontsInAutoRules,_nontsInExplicitRules,_nontsInonts,_nontsIntattrs,_nontsIrules,_nontsIvcount) = nonts_ _nontsOacount _nontsOallnts _nontsOaroundMap _nontsOcInterfaceMap _nontsOcVisitsMap _nontsOmanualAttrDepMap _nontsOmergeMap _nontsOo_case _nontsOo_cata _nontsOo_data _nontsOo_dovisit _nontsOo_newtypes _nontsOo_rename _nontsOo_sem _nontsOo_sig _nontsOo_unbox _nontsOo_wantvisit _nontsOprefix _nontsOvcount @@ -1517,50 +1519,50 @@ _prodsOnt = ({-# LINE 97 "Order.ag" #-} nt_ - {-# LINE 1521 "Order.hs" #-} + {-# LINE 1523 "Order.hs" #-} ) -- "Order.ag"(line 100, column 17) _prodsOinh = ({-# LINE 100 "Order.ag" #-} inh_ - {-# LINE 1527 "Order.hs" #-} + {-# LINE 1529 "Order.hs" #-} ) -- "Order.ag"(line 101, column 17) _prodsOsyn = ({-# LINE 101 "Order.ag" #-} syn_ - {-# LINE 1533 "Order.hs" #-} + {-# LINE 1535 "Order.hs" #-} ) -- "Order.ag"(line 359, column 32) _mergeMap = ({-# LINE 359 "Order.ag" #-} Map.findWithDefault Map.empty nt_ _lhsImergeMap - {-# LINE 1539 "Order.hs" #-} + {-# LINE 1541 "Order.hs" #-} ) -- "Order.ag"(line 412, column 32) _aroundMap = ({-# LINE 412 "Order.ag" #-} Map.findWithDefault Map.empty nt_ _lhsIaroundMap - {-# LINE 1545 "Order.hs" #-} + {-# LINE 1547 "Order.hs" #-} ) -- "Order.ag"(line 506, column 17) _ntattrs = ({-# LINE 506 "Order.ag" #-} [ NTAInh nt_ inh tp | (inh,tp) <- Map.assocs inh_ ] ++ [NTASyn nt_ syn tp | (syn,tp) <- Map.assocs syn_ ] - {-# LINE 1552 "Order.hs" #-} + {-# LINE 1554 "Order.hs" #-} ) -- "Order.ag"(line 508, column 17) _lhsOntattrs = ({-# LINE 508 "Order.ag" #-} Seq.fromList (zip [_lhsIacount ..] _ntattrs) - {-# LINE 1558 "Order.hs" #-} + {-# LINE 1560 "Order.hs" #-} ) -- "Order.ag"(line 509, column 17) _lhsOacount = ({-# LINE 509 "Order.ag" #-} _lhsIacount + Map.size inh_ + Map.size syn_ - {-# LINE 1564 "Order.hs" #-} + {-# LINE 1566 "Order.hs" #-} ) -- "Order.ag"(line 510, column 17) _lhsOaranges = @@ -1569,13 +1571,13 @@ (_lhsIacount ,_lhsIacount + Map.size inh_ ,_lhsIacount + Map.size syn_ + Map.size inh_ - 1) - {-# LINE 1573 "Order.hs" #-} + {-# LINE 1575 "Order.hs" #-} ) -- "Order.ag"(line 519, column 19) _lhsOnonts = ({-# LINE 519 "Order.ag" #-} [(nt_,_prodsIcons)] - {-# LINE 1579 "Order.hs" #-} + {-# LINE 1581 "Order.hs" #-} ) -- "Order.ag"(line 596, column 19) _cInter = @@ -1583,169 +1585,169 @@ if _lhsIo_dovisit then findWithErr1 "Nonterminal.cInter" nt_ _lhsIcInterfaceMap else CInterface [CSegment inh_ syn_] - {-# LINE 1587 "Order.hs" #-} + {-# LINE 1589 "Order.hs" #-} ) -- "Order.ag"(line 624, column 19) _lhsOcNonterminal = ({-# LINE 624 "Order.ag" #-} CNonterminal nt_ params_ inh_ syn_ _prodsIcProductions _cInter - {-# LINE 1593 "Order.hs" #-} + {-# LINE 1595 "Order.hs" #-} ) -- use rule "Order.ag"(line 283, column 60) _lhsOadditionalDep = ({-# LINE 283 "Order.ag" #-} _prodsIadditionalDep - {-# LINE 1599 "Order.hs" #-} + {-# LINE 1601 "Order.hs" #-} ) -- use rule "Order.ag"(line 404, column 24) _lhsOaroundDep = ({-# LINE 404 "Order.ag" #-} _prodsIaroundDep - {-# LINE 1605 "Order.hs" #-} + {-# LINE 1607 "Order.hs" #-} ) -- use rule "Order.ag"(line 269, column 33) _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} _prodsIdirectDep - {-# LINE 1611 "Order.hs" #-} + {-# LINE 1613 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _prodsIerrors - {-# LINE 1617 "Order.hs" #-} + {-# LINE 1619 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} _prodsIinstDep - {-# LINE 1623 "Order.hs" #-} + {-# LINE 1625 "Order.hs" #-} ) -- use rule "Order.ag"(line 367, column 18) _lhsOmergeDep = ({-# LINE 367 "Order.ag" #-} _prodsImergeDep - {-# LINE 1629 "Order.hs" #-} + {-# LINE 1631 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} _prodsInAutoRules - {-# LINE 1635 "Order.hs" #-} + {-# LINE 1637 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} _prodsInExplicitRules - {-# LINE 1641 "Order.hs" #-} + {-# LINE 1643 "Order.hs" #-} ) -- use rule "Order.ag"(line 259, column 18) _lhsOrules = ({-# LINE 259 "Order.ag" #-} _prodsIrules - {-# LINE 1647 "Order.hs" #-} + {-# LINE 1649 "Order.hs" #-} ) -- copy rule (up) _lhsOvcount = ({-# LINE 258 "Order.ag" #-} _prodsIvcount - {-# LINE 1653 "Order.hs" #-} + {-# LINE 1655 "Order.hs" #-} ) -- copy rule (down) _prodsOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 1659 "Order.hs" #-} + {-# LINE 1661 "Order.hs" #-} ) -- copy rule (from local) _prodsOaroundMap = ({-# LINE 410 "Order.ag" #-} _aroundMap - {-# LINE 1665 "Order.hs" #-} + {-# LINE 1667 "Order.hs" #-} ) -- copy rule (down) _prodsOcVisitsMap = ({-# LINE 601 "Order.ag" #-} _lhsIcVisitsMap - {-# LINE 1671 "Order.hs" #-} + {-# LINE 1673 "Order.hs" #-} ) -- copy rule (down) _prodsOmanualAttrDepMap = ({-# LINE 283 "Order.ag" #-} _lhsImanualAttrDepMap - {-# LINE 1677 "Order.hs" #-} + {-# LINE 1679 "Order.hs" #-} ) -- copy rule (from local) _prodsOmergeMap = ({-# LINE 357 "Order.ag" #-} _mergeMap - {-# LINE 1683 "Order.hs" #-} + {-# LINE 1685 "Order.hs" #-} ) -- copy rule (down) _prodsOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 1689 "Order.hs" #-} + {-# LINE 1691 "Order.hs" #-} ) -- copy rule (down) _prodsOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 1695 "Order.hs" #-} + {-# LINE 1697 "Order.hs" #-} ) -- copy rule (down) _prodsOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 1701 "Order.hs" #-} + {-# LINE 1703 "Order.hs" #-} ) -- copy rule (down) _prodsOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 1707 "Order.hs" #-} + {-# LINE 1709 "Order.hs" #-} ) -- copy rule (down) _prodsOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 1713 "Order.hs" #-} + {-# LINE 1715 "Order.hs" #-} ) -- copy rule (down) _prodsOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 1719 "Order.hs" #-} + {-# LINE 1721 "Order.hs" #-} ) -- copy rule (down) _prodsOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 1725 "Order.hs" #-} + {-# LINE 1727 "Order.hs" #-} ) -- copy rule (down) _prodsOo_unbox = ({-# LINE 119 "Order.ag" #-} _lhsIo_unbox - {-# LINE 1731 "Order.hs" #-} + {-# LINE 1733 "Order.hs" #-} ) -- copy rule (down) _prodsOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 1737 "Order.hs" #-} + {-# LINE 1739 "Order.hs" #-} ) -- copy rule (down) _prodsOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 1743 "Order.hs" #-} + {-# LINE 1745 "Order.hs" #-} ) -- copy rule (down) _prodsOvcount = ({-# LINE 258 "Order.ag" #-} _lhsIvcount - {-# LINE 1749 "Order.hs" #-} + {-# LINE 1751 "Order.hs" #-} ) ( _prodsIadditionalDep,_prodsIaroundDep,_prodsIcProductions,_prodsIcons,_prodsIdirectDep,_prodsIerrors,_prodsIinstDep,_prodsImergeDep,_prodsInAutoRules,_prodsInExplicitRules,_prodsIrules,_prodsIvcount) = prods_ _prodsOallnts _prodsOaroundMap _prodsOcVisitsMap _prodsOinh _prodsOmanualAttrDepMap _prodsOmergeMap _prodsOnt _prodsOo_case _prodsOo_cata _prodsOo_dovisit _prodsOo_newtypes _prodsOo_rename _prodsOo_sem _prodsOo_sig _prodsOo_unbox _prodsOo_wantvisit _prodsOprefix _prodsOsyn _prodsOvcount @@ -1938,319 +1940,319 @@ _lhsOcNonterminals = ({-# LINE 621 "Order.ag" #-} _hdIcNonterminal : _tlIcNonterminals - {-# LINE 1942 "Order.hs" #-} + {-# LINE 1944 "Order.hs" #-} ) -- use rule "Order.ag"(line 283, column 60) _lhsOadditionalDep = ({-# LINE 283 "Order.ag" #-} _hdIadditionalDep Seq.>< _tlIadditionalDep - {-# LINE 1948 "Order.hs" #-} + {-# LINE 1950 "Order.hs" #-} ) -- use rule "Order.ag"(line 500, column 36) _lhsOaranges = ({-# LINE 500 "Order.ag" #-} _hdIaranges Seq.>< _tlIaranges - {-# LINE 1954 "Order.hs" #-} + {-# LINE 1956 "Order.hs" #-} ) -- use rule "Order.ag"(line 404, column 24) _lhsOaroundDep = ({-# LINE 404 "Order.ag" #-} _hdIaroundDep Seq.>< _tlIaroundDep - {-# LINE 1960 "Order.hs" #-} + {-# LINE 1962 "Order.hs" #-} ) -- use rule "Order.ag"(line 269, column 33) _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} _hdIdirectDep Seq.>< _tlIdirectDep - {-# LINE 1966 "Order.hs" #-} + {-# LINE 1968 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 1972 "Order.hs" #-} + {-# LINE 1974 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} _hdIinstDep Seq.>< _tlIinstDep - {-# LINE 1978 "Order.hs" #-} + {-# LINE 1980 "Order.hs" #-} ) -- use rule "Order.ag"(line 367, column 18) _lhsOmergeDep = ({-# LINE 367 "Order.ag" #-} _hdImergeDep Seq.>< _tlImergeDep - {-# LINE 1984 "Order.hs" #-} + {-# LINE 1986 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} _hdInAutoRules + _tlInAutoRules - {-# LINE 1990 "Order.hs" #-} + {-# LINE 1992 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} _hdInExplicitRules + _tlInExplicitRules - {-# LINE 1996 "Order.hs" #-} + {-# LINE 1998 "Order.hs" #-} ) -- use rule "Order.ag"(line 517, column 43) _lhsOnonts = ({-# LINE 517 "Order.ag" #-} _hdInonts ++ _tlInonts - {-# LINE 2002 "Order.hs" #-} + {-# LINE 2004 "Order.hs" #-} ) -- use rule "Order.ag"(line 499, column 35) _lhsOntattrs = ({-# LINE 499 "Order.ag" #-} _hdIntattrs Seq.>< _tlIntattrs - {-# LINE 2008 "Order.hs" #-} + {-# LINE 2010 "Order.hs" #-} ) -- use rule "Order.ag"(line 259, column 18) _lhsOrules = ({-# LINE 259 "Order.ag" #-} _hdIrules Seq.>< _tlIrules - {-# LINE 2014 "Order.hs" #-} + {-# LINE 2016 "Order.hs" #-} ) -- copy rule (up) _lhsOacount = ({-# LINE 499 "Order.ag" #-} _tlIacount - {-# LINE 2020 "Order.hs" #-} + {-# LINE 2022 "Order.hs" #-} ) -- copy rule (up) _lhsOvcount = ({-# LINE 258 "Order.ag" #-} _tlIvcount - {-# LINE 2026 "Order.hs" #-} + {-# LINE 2028 "Order.hs" #-} ) -- copy rule (down) _hdOacount = ({-# LINE 499 "Order.ag" #-} _lhsIacount - {-# LINE 2032 "Order.hs" #-} + {-# LINE 2034 "Order.hs" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 2038 "Order.hs" #-} + {-# LINE 2040 "Order.hs" #-} ) -- copy rule (down) _hdOaroundMap = ({-# LINE 407 "Order.ag" #-} _lhsIaroundMap - {-# LINE 2044 "Order.hs" #-} + {-# LINE 2046 "Order.hs" #-} ) -- copy rule (down) _hdOcInterfaceMap = ({-# LINE 594 "Order.ag" #-} _lhsIcInterfaceMap - {-# LINE 2050 "Order.hs" #-} + {-# LINE 2052 "Order.hs" #-} ) -- copy rule (down) _hdOcVisitsMap = ({-# LINE 601 "Order.ag" #-} _lhsIcVisitsMap - {-# LINE 2056 "Order.hs" #-} + {-# LINE 2058 "Order.hs" #-} ) -- copy rule (down) _hdOmanualAttrDepMap = ({-# LINE 283 "Order.ag" #-} _lhsImanualAttrDepMap - {-# LINE 2062 "Order.hs" #-} + {-# LINE 2064 "Order.hs" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 354 "Order.ag" #-} _lhsImergeMap - {-# LINE 2068 "Order.hs" #-} + {-# LINE 2070 "Order.hs" #-} ) -- copy rule (down) _hdOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 2074 "Order.hs" #-} + {-# LINE 2076 "Order.hs" #-} ) -- copy rule (down) _hdOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 2080 "Order.hs" #-} + {-# LINE 2082 "Order.hs" #-} ) -- copy rule (down) _hdOo_data = ({-# LINE 120 "Order.ag" #-} _lhsIo_data - {-# LINE 2086 "Order.hs" #-} + {-# LINE 2088 "Order.hs" #-} ) -- copy rule (down) _hdOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 2092 "Order.hs" #-} + {-# LINE 2094 "Order.hs" #-} ) -- copy rule (down) _hdOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 2098 "Order.hs" #-} + {-# LINE 2100 "Order.hs" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 2104 "Order.hs" #-} + {-# LINE 2106 "Order.hs" #-} ) -- copy rule (down) _hdOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 2110 "Order.hs" #-} + {-# LINE 2112 "Order.hs" #-} ) -- copy rule (down) _hdOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 2116 "Order.hs" #-} + {-# LINE 2118 "Order.hs" #-} ) -- copy rule (down) _hdOo_unbox = ({-# LINE 119 "Order.ag" #-} _lhsIo_unbox - {-# LINE 2122 "Order.hs" #-} + {-# LINE 2124 "Order.hs" #-} ) -- copy rule (down) _hdOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 2128 "Order.hs" #-} + {-# LINE 2130 "Order.hs" #-} ) -- copy rule (down) _hdOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 2134 "Order.hs" #-} + {-# LINE 2136 "Order.hs" #-} ) -- copy rule (down) _hdOvcount = ({-# LINE 258 "Order.ag" #-} _lhsIvcount - {-# LINE 2140 "Order.hs" #-} + {-# LINE 2142 "Order.hs" #-} ) -- copy rule (chain) _tlOacount = ({-# LINE 499 "Order.ag" #-} _hdIacount - {-# LINE 2146 "Order.hs" #-} + {-# LINE 2148 "Order.hs" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 2152 "Order.hs" #-} + {-# LINE 2154 "Order.hs" #-} ) -- copy rule (down) _tlOaroundMap = ({-# LINE 407 "Order.ag" #-} _lhsIaroundMap - {-# LINE 2158 "Order.hs" #-} + {-# LINE 2160 "Order.hs" #-} ) -- copy rule (down) _tlOcInterfaceMap = ({-# LINE 594 "Order.ag" #-} _lhsIcInterfaceMap - {-# LINE 2164 "Order.hs" #-} + {-# LINE 2166 "Order.hs" #-} ) -- copy rule (down) _tlOcVisitsMap = ({-# LINE 601 "Order.ag" #-} _lhsIcVisitsMap - {-# LINE 2170 "Order.hs" #-} + {-# LINE 2172 "Order.hs" #-} ) -- copy rule (down) _tlOmanualAttrDepMap = ({-# LINE 283 "Order.ag" #-} _lhsImanualAttrDepMap - {-# LINE 2176 "Order.hs" #-} + {-# LINE 2178 "Order.hs" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 354 "Order.ag" #-} _lhsImergeMap - {-# LINE 2182 "Order.hs" #-} + {-# LINE 2184 "Order.hs" #-} ) -- copy rule (down) _tlOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 2188 "Order.hs" #-} + {-# LINE 2190 "Order.hs" #-} ) -- copy rule (down) _tlOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 2194 "Order.hs" #-} + {-# LINE 2196 "Order.hs" #-} ) -- copy rule (down) _tlOo_data = ({-# LINE 120 "Order.ag" #-} _lhsIo_data - {-# LINE 2200 "Order.hs" #-} + {-# LINE 2202 "Order.hs" #-} ) -- copy rule (down) _tlOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 2206 "Order.hs" #-} + {-# LINE 2208 "Order.hs" #-} ) -- copy rule (down) _tlOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 2212 "Order.hs" #-} + {-# LINE 2214 "Order.hs" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 2218 "Order.hs" #-} + {-# LINE 2220 "Order.hs" #-} ) -- copy rule (down) _tlOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 2224 "Order.hs" #-} + {-# LINE 2226 "Order.hs" #-} ) -- copy rule (down) _tlOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 2230 "Order.hs" #-} + {-# LINE 2232 "Order.hs" #-} ) -- copy rule (down) _tlOo_unbox = ({-# LINE 119 "Order.ag" #-} _lhsIo_unbox - {-# LINE 2236 "Order.hs" #-} + {-# LINE 2238 "Order.hs" #-} ) -- copy rule (down) _tlOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 2242 "Order.hs" #-} + {-# LINE 2244 "Order.hs" #-} ) -- copy rule (down) _tlOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 2248 "Order.hs" #-} + {-# LINE 2250 "Order.hs" #-} ) -- copy rule (chain) _tlOvcount = ({-# LINE 258 "Order.ag" #-} _hdIvcount - {-# LINE 2254 "Order.hs" #-} + {-# LINE 2256 "Order.hs" #-} ) ( _hdIacount,_hdIadditionalDep,_hdIaranges,_hdIaroundDep,_hdIcNonterminal,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdImergeDep,_hdInAutoRules,_hdInExplicitRules,_hdInonts,_hdIntattrs,_hdIrules,_hdIvcount) = hd_ _hdOacount _hdOallnts _hdOaroundMap _hdOcInterfaceMap _hdOcVisitsMap _hdOmanualAttrDepMap _hdOmergeMap _hdOo_case _hdOo_cata _hdOo_data _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOvcount @@ -2297,91 +2299,91 @@ _lhsOcNonterminals = ({-# LINE 622 "Order.ag" #-} [] - {-# LINE 2301 "Order.hs" #-} + {-# LINE 2303 "Order.hs" #-} ) -- use rule "Order.ag"(line 283, column 60) _lhsOadditionalDep = ({-# LINE 283 "Order.ag" #-} Seq.empty - {-# LINE 2307 "Order.hs" #-} + {-# LINE 2309 "Order.hs" #-} ) -- use rule "Order.ag"(line 500, column 36) _lhsOaranges = ({-# LINE 500 "Order.ag" #-} Seq.empty - {-# LINE 2313 "Order.hs" #-} + {-# LINE 2315 "Order.hs" #-} ) -- use rule "Order.ag"(line 404, column 24) _lhsOaroundDep = ({-# LINE 404 "Order.ag" #-} Seq.empty - {-# LINE 2319 "Order.hs" #-} + {-# LINE 2321 "Order.hs" #-} ) -- use rule "Order.ag"(line 269, column 33) _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} Seq.empty - {-# LINE 2325 "Order.hs" #-} + {-# LINE 2327 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} Seq.empty - {-# LINE 2331 "Order.hs" #-} + {-# LINE 2333 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} Seq.empty - {-# LINE 2337 "Order.hs" #-} + {-# LINE 2339 "Order.hs" #-} ) -- use rule "Order.ag"(line 367, column 18) _lhsOmergeDep = ({-# LINE 367 "Order.ag" #-} Seq.empty - {-# LINE 2343 "Order.hs" #-} + {-# LINE 2345 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} 0 - {-# LINE 2349 "Order.hs" #-} + {-# LINE 2351 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} 0 - {-# LINE 2355 "Order.hs" #-} + {-# LINE 2357 "Order.hs" #-} ) -- use rule "Order.ag"(line 517, column 43) _lhsOnonts = ({-# LINE 517 "Order.ag" #-} [] - {-# LINE 2361 "Order.hs" #-} + {-# LINE 2363 "Order.hs" #-} ) -- use rule "Order.ag"(line 499, column 35) _lhsOntattrs = ({-# LINE 499 "Order.ag" #-} Seq.empty - {-# LINE 2367 "Order.hs" #-} + {-# LINE 2369 "Order.hs" #-} ) -- use rule "Order.ag"(line 259, column 18) _lhsOrules = ({-# LINE 259 "Order.ag" #-} Seq.empty - {-# LINE 2373 "Order.hs" #-} + {-# LINE 2375 "Order.hs" #-} ) -- copy rule (chain) _lhsOacount = ({-# LINE 499 "Order.ag" #-} _lhsIacount - {-# LINE 2379 "Order.hs" #-} + {-# LINE 2381 "Order.hs" #-} ) -- copy rule (chain) _lhsOvcount = ({-# LINE 258 "Order.ag" #-} _lhsIvcount - {-# LINE 2385 "Order.hs" #-} + {-# LINE 2387 "Order.hs" #-} ) in ( _lhsOacount,_lhsOadditionalDep,_lhsOaranges,_lhsOaroundDep,_lhsOcNonterminals,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOnonts,_lhsOntattrs,_lhsOrules,_lhsOvcount))) ) -- Pattern ----------------------------------------------------- @@ -2503,13 +2505,13 @@ _lhsOgathAltAttrs = ({-# LINE 184 "Order.ag" #-} [AltAttr field_ attr_ (field_ == _LOC || field_ == _INST)] - {-# LINE 2507 "Order.hs" #-} + {-# LINE 2509 "Order.hs" #-} ) -- "Order.ag"(line 252, column 12) _lhsOpatternAttrs = ({-# LINE 252 "Order.ag" #-} [(field_,attr_,(field_ == _LOC || field_ == _INST),_partsIcopy)] - {-# LINE 2513 "Order.hs" #-} + {-# LINE 2515 "Order.hs" #-} ) -- "Order.ag"(line 680, column 14) _lhsOlocVars = @@ -2517,7 +2519,7 @@ if field_ == _LOC then [attr_] else [] - {-# LINE 2521 "Order.hs" #-} + {-# LINE 2523 "Order.hs" #-} ) -- "Order.ag"(line 683, column 14) _lhsOinstVars = @@ -2525,97 +2527,97 @@ if field_ == _INST then [attr_] else [] - {-# LINE 2529 "Order.hs" #-} + {-# LINE 2531 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _patIerrors Seq.>< _partsIerrors - {-# LINE 2535 "Order.hs" #-} + {-# LINE 2537 "Order.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 2541 "Order.hs" #-} + {-# LINE 2543 "Order.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 2547 "Order.hs" #-} + {-# LINE 2549 "Order.hs" #-} ) -- copy rule (down) _patOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 2553 "Order.hs" #-} + {-# LINE 2555 "Order.hs" #-} ) -- copy rule (down) _patOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 2559 "Order.hs" #-} + {-# LINE 2561 "Order.hs" #-} ) -- copy rule (down) _patOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 2565 "Order.hs" #-} + {-# LINE 2567 "Order.hs" #-} ) -- copy rule (down) _patOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 2571 "Order.hs" #-} + {-# LINE 2573 "Order.hs" #-} ) -- copy rule (down) _patOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 2577 "Order.hs" #-} + {-# LINE 2579 "Order.hs" #-} ) -- copy rule (down) _patOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 2583 "Order.hs" #-} + {-# LINE 2585 "Order.hs" #-} ) -- copy rule (down) _partsOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 2589 "Order.hs" #-} + {-# LINE 2591 "Order.hs" #-} ) -- copy rule (down) _partsOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 2595 "Order.hs" #-} + {-# LINE 2597 "Order.hs" #-} ) -- copy rule (down) _partsOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 2601 "Order.hs" #-} + {-# LINE 2603 "Order.hs" #-} ) -- copy rule (down) _partsOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 2607 "Order.hs" #-} + {-# LINE 2609 "Order.hs" #-} ) -- copy rule (down) _partsOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 2613 "Order.hs" #-} + {-# LINE 2615 "Order.hs" #-} ) -- copy rule (down) _partsOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 2619 "Order.hs" #-} + {-# LINE 2621 "Order.hs" #-} ) ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) = pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn @@ -2654,79 +2656,79 @@ _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _patsIerrors - {-# LINE 2658 "Order.hs" #-} + {-# LINE 2660 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _patsIgathAltAttrs - {-# LINE 2664 "Order.hs" #-} + {-# LINE 2666 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _patsIinstVars - {-# LINE 2670 "Order.hs" #-} + {-# LINE 2672 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _patsIlocVars - {-# LINE 2676 "Order.hs" #-} + {-# LINE 2678 "Order.hs" #-} ) -- use rule "Order.ag"(line 249, column 42) _lhsOpatternAttrs = ({-# LINE 249 "Order.ag" #-} _patsIpatternAttrs - {-# LINE 2682 "Order.hs" #-} + {-# LINE 2684 "Order.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 2688 "Order.hs" #-} + {-# LINE 2690 "Order.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 2694 "Order.hs" #-} + {-# LINE 2696 "Order.hs" #-} ) -- copy rule (down) _patsOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 2700 "Order.hs" #-} + {-# LINE 2702 "Order.hs" #-} ) -- copy rule (down) _patsOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 2706 "Order.hs" #-} + {-# LINE 2708 "Order.hs" #-} ) -- copy rule (down) _patsOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 2712 "Order.hs" #-} + {-# LINE 2714 "Order.hs" #-} ) -- copy rule (down) _patsOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 2718 "Order.hs" #-} + {-# LINE 2720 "Order.hs" #-} ) -- copy rule (down) _patsOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 2724 "Order.hs" #-} + {-# LINE 2726 "Order.hs" #-} ) -- copy rule (down) _patsOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 2730 "Order.hs" #-} + {-# LINE 2732 "Order.hs" #-} ) ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) = pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn @@ -2762,79 +2764,79 @@ _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _patIerrors - {-# LINE 2766 "Order.hs" #-} + {-# LINE 2768 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _patIgathAltAttrs - {-# LINE 2772 "Order.hs" #-} + {-# LINE 2774 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _patIinstVars - {-# LINE 2778 "Order.hs" #-} + {-# LINE 2780 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _patIlocVars - {-# LINE 2784 "Order.hs" #-} + {-# LINE 2786 "Order.hs" #-} ) -- use rule "Order.ag"(line 249, column 42) _lhsOpatternAttrs = ({-# LINE 249 "Order.ag" #-} _patIpatternAttrs - {-# LINE 2790 "Order.hs" #-} + {-# LINE 2792 "Order.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 2796 "Order.hs" #-} + {-# LINE 2798 "Order.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 2802 "Order.hs" #-} + {-# LINE 2804 "Order.hs" #-} ) -- copy rule (down) _patOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 2808 "Order.hs" #-} + {-# LINE 2810 "Order.hs" #-} ) -- copy rule (down) _patOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 2814 "Order.hs" #-} + {-# LINE 2816 "Order.hs" #-} ) -- copy rule (down) _patOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 2820 "Order.hs" #-} + {-# LINE 2822 "Order.hs" #-} ) -- copy rule (down) _patOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 2826 "Order.hs" #-} + {-# LINE 2828 "Order.hs" #-} ) -- copy rule (down) _patOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 2832 "Order.hs" #-} + {-# LINE 2834 "Order.hs" #-} ) -- copy rule (down) _patOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 2838 "Order.hs" #-} + {-# LINE 2840 "Order.hs" #-} ) ( _patIcopy,_patIerrors,_patIgathAltAttrs,_patIinstVars,_patIlocVars,_patIpatternAttrs) = pat_ _patOallTypeSigs _patOaltAttrs _patOcon _patOinh _patOnt _patOsyn @@ -2871,79 +2873,79 @@ _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _patsIerrors - {-# LINE 2875 "Order.hs" #-} + {-# LINE 2877 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _patsIgathAltAttrs - {-# LINE 2881 "Order.hs" #-} + {-# LINE 2883 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _patsIinstVars - {-# LINE 2887 "Order.hs" #-} + {-# LINE 2889 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _patsIlocVars - {-# LINE 2893 "Order.hs" #-} + {-# LINE 2895 "Order.hs" #-} ) -- use rule "Order.ag"(line 249, column 42) _lhsOpatternAttrs = ({-# LINE 249 "Order.ag" #-} _patsIpatternAttrs - {-# LINE 2899 "Order.hs" #-} + {-# LINE 2901 "Order.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 2905 "Order.hs" #-} + {-# LINE 2907 "Order.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 2911 "Order.hs" #-} + {-# LINE 2913 "Order.hs" #-} ) -- copy rule (down) _patsOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 2917 "Order.hs" #-} + {-# LINE 2919 "Order.hs" #-} ) -- copy rule (down) _patsOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 2923 "Order.hs" #-} + {-# LINE 2925 "Order.hs" #-} ) -- copy rule (down) _patsOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 2929 "Order.hs" #-} + {-# LINE 2931 "Order.hs" #-} ) -- copy rule (down) _patsOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 2935 "Order.hs" #-} + {-# LINE 2937 "Order.hs" #-} ) -- copy rule (down) _patsOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 2941 "Order.hs" #-} + {-# LINE 2943 "Order.hs" #-} ) -- copy rule (down) _patsOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 2947 "Order.hs" #-} + {-# LINE 2949 "Order.hs" #-} ) ( _patsIcopy,_patsIerrors,_patsIgathAltAttrs,_patsIinstVars,_patsIlocVars,_patsIpatternAttrs) = pats_ _patsOallTypeSigs _patsOaltAttrs _patsOcon _patsOinh _patsOnt _patsOsyn @@ -2967,43 +2969,43 @@ _lhsOerrors = ({-# LINE 84 "Order.ag" #-} Seq.empty - {-# LINE 2971 "Order.hs" #-} + {-# LINE 2973 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} [] - {-# LINE 2977 "Order.hs" #-} + {-# LINE 2979 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} [] - {-# LINE 2983 "Order.hs" #-} + {-# LINE 2985 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} [] - {-# LINE 2989 "Order.hs" #-} + {-# LINE 2991 "Order.hs" #-} ) -- use rule "Order.ag"(line 249, column 42) _lhsOpatternAttrs = ({-# LINE 249 "Order.ag" #-} [] - {-# LINE 2995 "Order.hs" #-} + {-# LINE 2997 "Order.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 3001 "Order.hs" #-} + {-# LINE 3003 "Order.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 3007 "Order.hs" #-} + {-# LINE 3009 "Order.hs" #-} ) in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) -- Patterns ---------------------------------------------------- @@ -3098,115 +3100,115 @@ _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 3102 "Order.hs" #-} + {-# LINE 3104 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _hdIgathAltAttrs ++ _tlIgathAltAttrs - {-# LINE 3108 "Order.hs" #-} + {-# LINE 3110 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _hdIinstVars ++ _tlIinstVars - {-# LINE 3114 "Order.hs" #-} + {-# LINE 3116 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _hdIlocVars ++ _tlIlocVars - {-# LINE 3120 "Order.hs" #-} + {-# LINE 3122 "Order.hs" #-} ) -- use rule "Order.ag"(line 249, column 42) _lhsOpatternAttrs = ({-# LINE 249 "Order.ag" #-} _hdIpatternAttrs ++ _tlIpatternAttrs - {-# LINE 3126 "Order.hs" #-} + {-# LINE 3128 "Order.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 3132 "Order.hs" #-} + {-# LINE 3134 "Order.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 3138 "Order.hs" #-} + {-# LINE 3140 "Order.hs" #-} ) -- copy rule (down) _hdOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 3144 "Order.hs" #-} + {-# LINE 3146 "Order.hs" #-} ) -- copy rule (down) _hdOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 3150 "Order.hs" #-} + {-# LINE 3152 "Order.hs" #-} ) -- copy rule (down) _hdOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 3156 "Order.hs" #-} + {-# LINE 3158 "Order.hs" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 3162 "Order.hs" #-} + {-# LINE 3164 "Order.hs" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 3168 "Order.hs" #-} + {-# LINE 3170 "Order.hs" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 3174 "Order.hs" #-} + {-# LINE 3176 "Order.hs" #-} ) -- copy rule (down) _tlOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 3180 "Order.hs" #-} + {-# LINE 3182 "Order.hs" #-} ) -- copy rule (down) _tlOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 3186 "Order.hs" #-} + {-# LINE 3188 "Order.hs" #-} ) -- copy rule (down) _tlOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 3192 "Order.hs" #-} + {-# LINE 3194 "Order.hs" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 3198 "Order.hs" #-} + {-# LINE 3200 "Order.hs" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 3204 "Order.hs" #-} + {-# LINE 3206 "Order.hs" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 3210 "Order.hs" #-} + {-# LINE 3212 "Order.hs" #-} ) ( _hdIcopy,_hdIerrors,_hdIgathAltAttrs,_hdIinstVars,_hdIlocVars,_hdIpatternAttrs) = hd_ _hdOallTypeSigs _hdOaltAttrs _hdOcon _hdOinh _hdOnt _hdOsyn @@ -3231,43 +3233,43 @@ _lhsOerrors = ({-# LINE 84 "Order.ag" #-} Seq.empty - {-# LINE 3235 "Order.hs" #-} + {-# LINE 3237 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} [] - {-# LINE 3241 "Order.hs" #-} + {-# LINE 3243 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} [] - {-# LINE 3247 "Order.hs" #-} + {-# LINE 3249 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} [] - {-# LINE 3253 "Order.hs" #-} + {-# LINE 3255 "Order.hs" #-} ) -- use rule "Order.ag"(line 249, column 42) _lhsOpatternAttrs = ({-# LINE 249 "Order.ag" #-} [] - {-# LINE 3259 "Order.hs" #-} + {-# LINE 3261 "Order.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 3265 "Order.hs" #-} + {-# LINE 3267 "Order.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 3271 "Order.hs" #-} + {-# LINE 3273 "Order.hs" #-} ) in ( _lhsOcopy,_lhsOerrors,_lhsOgathAltAttrs,_lhsOinstVars,_lhsOlocVars,_lhsOpatternAttrs))) ) -- Production -------------------------------------------------- @@ -3459,13 +3461,13 @@ _childrenOcon = ({-# LINE 93 "Order.ag" #-} con_ - {-# LINE 3463 "Order.hs" #-} + {-# LINE 3465 "Order.hs" #-} ) -- "Order.ag"(line 95, column 16) _rulesOcon = ({-# LINE 95 "Order.ag" #-} con_ - {-# LINE 3469 "Order.hs" #-} + {-# LINE 3471 "Order.hs" #-} ) -- "Order.ag"(line 172, column 18) _gathAltAttrs = @@ -3473,55 +3475,55 @@ [ AltAttr _LHS inh True | inh <- Map.keys _lhsIinh ] ++ _childrenIgathAltAttrs ++ _rulesIgathAltAttrs - {-# LINE 3477 "Order.hs" #-} + {-# LINE 3479 "Order.hs" #-} ) -- "Order.ag"(line 188, column 17) _altAttrs = ({-# LINE 188 "Order.ag" #-} Map.fromList (zip _gathAltAttrs [_lhsIvcount..]) - {-# LINE 3483 "Order.hs" #-} + {-# LINE 3485 "Order.hs" #-} ) -- "Order.ag"(line 201, column 18) _rulesOchildNts = ({-# LINE 201 "Order.ag" #-} Map.fromList (toList _childrenInts) - {-# LINE 3489 "Order.hs" #-} + {-# LINE 3491 "Order.hs" #-} ) -- "Order.ag"(line 202, column 19) _rulesOchildInhs = ({-# LINE 202 "Order.ag" #-} Map.fromList (toList _childrenIinhs) - {-# LINE 3495 "Order.hs" #-} + {-# LINE 3497 "Order.hs" #-} ) -- "Order.ag"(line 208, column 18) _inhRules = ({-# LINE 208 "Order.ag" #-} [ cRuleLhsInh inh _lhsInt con_ tp | (inh,tp) <- Map.assocs _lhsIinh ] - {-# LINE 3501 "Order.hs" #-} + {-# LINE 3503 "Order.hs" #-} ) -- "Order.ag"(line 209, column 19) _gathRules = ({-# LINE 209 "Order.ag" #-} _inhRules ++ toList (_childrenIgathRules Seq.>< _rulesIgathRules) - {-# LINE 3507 "Order.hs" #-} + {-# LINE 3509 "Order.hs" #-} ) -- "Order.ag"(line 263, column 18) _lhsOrules = ({-# LINE 263 "Order.ag" #-} Seq.fromList (zip [_lhsIvcount..] _gathRules) - {-# LINE 3513 "Order.hs" #-} + {-# LINE 3515 "Order.hs" #-} ) -- "Order.ag"(line 264, column 19) _lhsOvcount = ({-# LINE 264 "Order.ag" #-} _lhsIvcount + length _gathRules - {-# LINE 3519 "Order.hs" #-} + {-# LINE 3521 "Order.hs" #-} ) -- "Order.ag"(line 291, column 7) _manualDeps = ({-# LINE 291 "Order.ag" #-} Set.toList $ Map.findWithDefault Set.empty con_ $ Map.findWithDefault Map.empty _lhsInt _lhsImanualAttrDepMap - {-# LINE 3525 "Order.hs" #-} + {-# LINE 3527 "Order.hs" #-} ) -- "Order.ag"(line 294, column 7) _lhsOadditionalDep = @@ -3534,31 +3536,31 @@ vertex _ (OccRule nm) = findWithErr2 (AltAttr _LOC (Ident ("_rule_" ++ show nm) (getPos nm)) True) _altAttrs ] - {-# LINE 3538 "Order.hs" #-} + {-# LINE 3540 "Order.hs" #-} ) -- "Order.ag"(line 341, column 17) _rulesOsynsOfChildren = ({-# LINE 341 "Order.ag" #-} _childrenIcollectChildrenSyns - {-# LINE 3544 "Order.hs" #-} + {-# LINE 3546 "Order.hs" #-} ) -- "Order.ag"(line 342, column 17) _rulesOinhsOfChildren = ({-# LINE 342 "Order.ag" #-} _childrenIcollectChildrenInhs - {-# LINE 3550 "Order.hs" #-} + {-# LINE 3552 "Order.hs" #-} ) -- "Order.ag"(line 360, column 32) _mergeMap = ({-# LINE 360 "Order.ag" #-} Map.findWithDefault Map.empty con_ _lhsImergeMap - {-# LINE 3556 "Order.hs" #-} + {-# LINE 3558 "Order.hs" #-} ) -- "Order.ag"(line 371, column 7) _lhsOmergeDep = ({-# LINE 371 "Order.ag" #-} _mergeDep1 Seq.>< _mergeDep2 - {-# LINE 3562 "Order.hs" #-} + {-# LINE 3564 "Order.hs" #-} ) -- "Order.ag"(line 372, column 7) _mergeDep1 = @@ -3573,7 +3575,7 @@ childVert = findWithErr2 childAttr _altAttrs synVert = findWithErr2 synAttr _altAttrs ] - {-# LINE 3577 "Order.hs" #-} + {-# LINE 3579 "Order.hs" #-} ) -- "Order.ag"(line 383, column 7) _mergeDep2 = @@ -3588,13 +3590,13 @@ sourceVert = findWithErr2 sourceAttr _altAttrs mergedVert = findWithErr2 mergedAttr _altAttrs ] - {-# LINE 3592 "Order.hs" #-} + {-# LINE 3594 "Order.hs" #-} ) -- "Order.ag"(line 413, column 32) _aroundMap = ({-# LINE 413 "Order.ag" #-} Map.findWithDefault Map.empty con_ _lhsIaroundMap - {-# LINE 3598 "Order.hs" #-} + {-# LINE 3600 "Order.hs" #-} ) -- "Order.ag"(line 420, column 6) _aroundDep1 = @@ -3609,7 +3611,7 @@ childVert = findWithErr2 childAttr _altAttrs synVert = findWithErr2 synAttr _altAttrs ] - {-# LINE 3613 "Order.hs" #-} + {-# LINE 3615 "Order.hs" #-} ) -- "Order.ag"(line 431, column 6) _aroundDep2 = @@ -3624,31 +3626,31 @@ childVert = findWithErr2 childAttr _altAttrs inhVert = findWithErr2 inhAttr _altAttrs ] - {-# LINE 3628 "Order.hs" #-} + {-# LINE 3630 "Order.hs" #-} ) -- "Order.ag"(line 442, column 6) _lhsOaroundDep = ({-# LINE 442 "Order.ag" #-} _aroundDep1 Seq.>< _aroundDep2 - {-# LINE 3634 "Order.hs" #-} + {-# LINE 3636 "Order.hs" #-} ) -- "Order.ag"(line 522, column 18) _lhsOcons = ({-# LINE 522 "Order.ag" #-} [con_] - {-# LINE 3640 "Order.hs" #-} + {-# LINE 3642 "Order.hs" #-} ) -- "Order.ag"(line 529, column 16) _typeSigsOtypeSigs = ({-# LINE 529 "Order.ag" #-} Map.empty - {-# LINE 3646 "Order.hs" #-} + {-# LINE 3648 "Order.hs" #-} ) -- "Order.ag"(line 535, column 17) _rulesOallTypeSigs = ({-# LINE 535 "Order.ag" #-} _typeSigsItypeSigs - {-# LINE 3652 "Order.hs" #-} + {-# LINE 3654 "Order.hs" #-} ) -- "Order.ag"(line 603, column 17) _cVisits = @@ -3659,19 +3661,19 @@ in visits else let vss = nubBy eqCRuleDefines _gathRules ++ _childrenIsinglevisits in [CVisit _lhsIinh _lhsIsyn vss [] False] - {-# LINE 3663 "Order.hs" #-} + {-# LINE 3665 "Order.hs" #-} ) -- "Order.ag"(line 629, column 18) _lhsOcProduction = ({-# LINE 629 "Order.ag" #-} CProduction con_ _cVisits _childrenIfields _childrenIterminals - {-# LINE 3669 "Order.hs" #-} + {-# LINE 3671 "Order.hs" #-} ) -- "Order.ag"(line 657, column 16) _allfields = ({-# LINE 657 "Order.ag" #-} _childrenIfields - {-# LINE 3675 "Order.hs" #-} + {-# LINE 3677 "Order.hs" #-} ) -- "Order.ag"(line 657, column 16) _attrs = @@ -3680,199 +3682,199 @@ map ((,) _INST) _rulesIinstVars ++ map ((,) _LHS) _inhnames ++ concat [map ((,) nm) (Map.keys as) | (nm,_,as) <- _childrenIattributes] - {-# LINE 3684 "Order.hs" #-} + {-# LINE 3686 "Order.hs" #-} ) -- "Order.ag"(line 657, column 16) _inhnames = ({-# LINE 662 "Order.ag" #-} Map.keys _lhsIinh - {-# LINE 3690 "Order.hs" #-} + {-# LINE 3692 "Order.hs" #-} ) -- "Order.ag"(line 657, column 16) _synnames = ({-# LINE 663 "Order.ag" #-} Map.keys _lhsIsyn - {-# LINE 3696 "Order.hs" #-} + {-# LINE 3698 "Order.hs" #-} ) -- use rule "Order.ag"(line 269, column 33) _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} _rulesIdirectDep - {-# LINE 3702 "Order.hs" #-} + {-# LINE 3704 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _childrenIerrors Seq.>< _rulesIerrors - {-# LINE 3708 "Order.hs" #-} + {-# LINE 3710 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} _rulesIinstDep - {-# LINE 3714 "Order.hs" #-} + {-# LINE 3716 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} _rulesInAutoRules - {-# LINE 3720 "Order.hs" #-} + {-# LINE 3722 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} _rulesInExplicitRules - {-# LINE 3726 "Order.hs" #-} + {-# LINE 3728 "Order.hs" #-} ) -- copy rule (from local) _childrenOallfields = ({-# LINE 654 "Order.ag" #-} _allfields - {-# LINE 3732 "Order.hs" #-} + {-# LINE 3734 "Order.hs" #-} ) -- copy rule (down) _childrenOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 3738 "Order.hs" #-} + {-# LINE 3740 "Order.hs" #-} ) -- copy rule (from local) _childrenOattrs = ({-# LINE 654 "Order.ag" #-} _attrs - {-# LINE 3744 "Order.hs" #-} + {-# LINE 3746 "Order.hs" #-} ) -- copy rule (down) _childrenOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 3750 "Order.hs" #-} + {-# LINE 3752 "Order.hs" #-} ) -- copy rule (from local) _childrenOmergeMap = ({-# LINE 362 "Order.ag" #-} _mergeMap - {-# LINE 3756 "Order.hs" #-} + {-# LINE 3758 "Order.hs" #-} ) -- copy rule (down) _childrenOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 3762 "Order.hs" #-} + {-# LINE 3764 "Order.hs" #-} ) -- copy rule (down) _childrenOo_unbox = ({-# LINE 119 "Order.ag" #-} _lhsIo_unbox - {-# LINE 3768 "Order.hs" #-} + {-# LINE 3770 "Order.hs" #-} ) -- copy rule (down) _childrenOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 3774 "Order.hs" #-} + {-# LINE 3776 "Order.hs" #-} ) -- copy rule (from local) _rulesOallfields = ({-# LINE 654 "Order.ag" #-} _allfields - {-# LINE 3780 "Order.hs" #-} + {-# LINE 3782 "Order.hs" #-} ) -- copy rule (down) _rulesOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 3786 "Order.hs" #-} + {-# LINE 3788 "Order.hs" #-} ) -- copy rule (from local) _rulesOaltAttrs = ({-# LINE 186 "Order.ag" #-} _altAttrs - {-# LINE 3792 "Order.hs" #-} + {-# LINE 3794 "Order.hs" #-} ) -- copy rule (from local) _rulesOattrs = ({-# LINE 654 "Order.ag" #-} _attrs - {-# LINE 3798 "Order.hs" #-} + {-# LINE 3800 "Order.hs" #-} ) -- copy rule (down) _rulesOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 3804 "Order.hs" #-} + {-# LINE 3806 "Order.hs" #-} ) -- copy rule (from local) _rulesOmergeMap = ({-# LINE 362 "Order.ag" #-} _mergeMap - {-# LINE 3810 "Order.hs" #-} + {-# LINE 3812 "Order.hs" #-} ) -- copy rule (down) _rulesOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 3816 "Order.hs" #-} + {-# LINE 3818 "Order.hs" #-} ) -- copy rule (down) _rulesOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 3822 "Order.hs" #-} + {-# LINE 3824 "Order.hs" #-} ) -- copy rule (down) _rulesOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 3828 "Order.hs" #-} + {-# LINE 3830 "Order.hs" #-} ) -- copy rule (down) _rulesOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 3834 "Order.hs" #-} + {-# LINE 3836 "Order.hs" #-} ) -- copy rule (down) _rulesOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 3840 "Order.hs" #-} + {-# LINE 3842 "Order.hs" #-} ) -- copy rule (down) _rulesOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 3846 "Order.hs" #-} + {-# LINE 3848 "Order.hs" #-} ) -- copy rule (down) _rulesOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 3852 "Order.hs" #-} + {-# LINE 3854 "Order.hs" #-} ) -- copy rule (down) _rulesOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 3858 "Order.hs" #-} + {-# LINE 3860 "Order.hs" #-} ) -- copy rule (down) _rulesOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 3864 "Order.hs" #-} + {-# LINE 3866 "Order.hs" #-} ) -- copy rule (down) _rulesOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 3870 "Order.hs" #-} + {-# LINE 3872 "Order.hs" #-} ) -- copy rule (down) _rulesOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 3876 "Order.hs" #-} + {-# LINE 3878 "Order.hs" #-} ) ( _childrenIattributes,_childrenIcollectChildrenInhs,_childrenIcollectChildrenSyns,_childrenIerrors,_childrenIfields,_childrenIgathAltAttrs,_childrenIgathRules,_childrenIinhs,_childrenInts,_childrenIsinglevisits,_childrenIterminals) = children_ _childrenOallfields _childrenOallnts _childrenOattrs _childrenOcon _childrenOinh _childrenOmergeMap _childrenOnt _childrenOo_unbox _childrenOsyn @@ -4058,301 +4060,301 @@ _lhsOcProductions = ({-# LINE 626 "Order.ag" #-} _hdIcProduction : _tlIcProductions - {-# LINE 4062 "Order.hs" #-} + {-# LINE 4064 "Order.hs" #-} ) -- use rule "Order.ag"(line 283, column 60) _lhsOadditionalDep = ({-# LINE 283 "Order.ag" #-} _hdIadditionalDep Seq.>< _tlIadditionalDep - {-# LINE 4068 "Order.hs" #-} + {-# LINE 4070 "Order.hs" #-} ) -- use rule "Order.ag"(line 404, column 24) _lhsOaroundDep = ({-# LINE 404 "Order.ag" #-} _hdIaroundDep Seq.>< _tlIaroundDep - {-# LINE 4074 "Order.hs" #-} + {-# LINE 4076 "Order.hs" #-} ) -- use rule "Order.ag"(line 520, column 40) _lhsOcons = ({-# LINE 520 "Order.ag" #-} _hdIcons ++ _tlIcons - {-# LINE 4080 "Order.hs" #-} + {-# LINE 4082 "Order.hs" #-} ) -- use rule "Order.ag"(line 269, column 33) _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} _hdIdirectDep Seq.>< _tlIdirectDep - {-# LINE 4086 "Order.hs" #-} + {-# LINE 4088 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 4092 "Order.hs" #-} + {-# LINE 4094 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} _hdIinstDep Seq.>< _tlIinstDep - {-# LINE 4098 "Order.hs" #-} + {-# LINE 4100 "Order.hs" #-} ) -- use rule "Order.ag"(line 367, column 18) _lhsOmergeDep = ({-# LINE 367 "Order.ag" #-} _hdImergeDep Seq.>< _tlImergeDep - {-# LINE 4104 "Order.hs" #-} + {-# LINE 4106 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} _hdInAutoRules + _tlInAutoRules - {-# LINE 4110 "Order.hs" #-} + {-# LINE 4112 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} _hdInExplicitRules + _tlInExplicitRules - {-# LINE 4116 "Order.hs" #-} + {-# LINE 4118 "Order.hs" #-} ) -- use rule "Order.ag"(line 259, column 18) _lhsOrules = ({-# LINE 259 "Order.ag" #-} _hdIrules Seq.>< _tlIrules - {-# LINE 4122 "Order.hs" #-} + {-# LINE 4124 "Order.hs" #-} ) -- copy rule (up) _lhsOvcount = ({-# LINE 258 "Order.ag" #-} _tlIvcount - {-# LINE 4128 "Order.hs" #-} + {-# LINE 4130 "Order.hs" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 4134 "Order.hs" #-} + {-# LINE 4136 "Order.hs" #-} ) -- copy rule (down) _hdOaroundMap = ({-# LINE 410 "Order.ag" #-} _lhsIaroundMap - {-# LINE 4140 "Order.hs" #-} + {-# LINE 4142 "Order.hs" #-} ) -- copy rule (down) _hdOcVisitsMap = ({-# LINE 601 "Order.ag" #-} _lhsIcVisitsMap - {-# LINE 4146 "Order.hs" #-} + {-# LINE 4148 "Order.hs" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 4152 "Order.hs" #-} + {-# LINE 4154 "Order.hs" #-} ) -- copy rule (down) _hdOmanualAttrDepMap = ({-# LINE 283 "Order.ag" #-} _lhsImanualAttrDepMap - {-# LINE 4158 "Order.hs" #-} + {-# LINE 4160 "Order.hs" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 357 "Order.ag" #-} _lhsImergeMap - {-# LINE 4164 "Order.hs" #-} + {-# LINE 4166 "Order.hs" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 4170 "Order.hs" #-} + {-# LINE 4172 "Order.hs" #-} ) -- copy rule (down) _hdOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 4176 "Order.hs" #-} + {-# LINE 4178 "Order.hs" #-} ) -- copy rule (down) _hdOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 4182 "Order.hs" #-} + {-# LINE 4184 "Order.hs" #-} ) -- copy rule (down) _hdOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 4188 "Order.hs" #-} + {-# LINE 4190 "Order.hs" #-} ) -- copy rule (down) _hdOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 4194 "Order.hs" #-} + {-# LINE 4196 "Order.hs" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 4200 "Order.hs" #-} + {-# LINE 4202 "Order.hs" #-} ) -- copy rule (down) _hdOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 4206 "Order.hs" #-} + {-# LINE 4208 "Order.hs" #-} ) -- copy rule (down) _hdOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 4212 "Order.hs" #-} + {-# LINE 4214 "Order.hs" #-} ) -- copy rule (down) _hdOo_unbox = ({-# LINE 119 "Order.ag" #-} _lhsIo_unbox - {-# LINE 4218 "Order.hs" #-} + {-# LINE 4220 "Order.hs" #-} ) -- copy rule (down) _hdOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 4224 "Order.hs" #-} + {-# LINE 4226 "Order.hs" #-} ) -- copy rule (down) _hdOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 4230 "Order.hs" #-} + {-# LINE 4232 "Order.hs" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 4236 "Order.hs" #-} + {-# LINE 4238 "Order.hs" #-} ) -- copy rule (down) _hdOvcount = ({-# LINE 258 "Order.ag" #-} _lhsIvcount - {-# LINE 4242 "Order.hs" #-} + {-# LINE 4244 "Order.hs" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 4248 "Order.hs" #-} + {-# LINE 4250 "Order.hs" #-} ) -- copy rule (down) _tlOaroundMap = ({-# LINE 410 "Order.ag" #-} _lhsIaroundMap - {-# LINE 4254 "Order.hs" #-} + {-# LINE 4256 "Order.hs" #-} ) -- copy rule (down) _tlOcVisitsMap = ({-# LINE 601 "Order.ag" #-} _lhsIcVisitsMap - {-# LINE 4260 "Order.hs" #-} + {-# LINE 4262 "Order.hs" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 4266 "Order.hs" #-} + {-# LINE 4268 "Order.hs" #-} ) -- copy rule (down) _tlOmanualAttrDepMap = ({-# LINE 283 "Order.ag" #-} _lhsImanualAttrDepMap - {-# LINE 4272 "Order.hs" #-} + {-# LINE 4274 "Order.hs" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 357 "Order.ag" #-} _lhsImergeMap - {-# LINE 4278 "Order.hs" #-} + {-# LINE 4280 "Order.hs" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 4284 "Order.hs" #-} + {-# LINE 4286 "Order.hs" #-} ) -- copy rule (down) _tlOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 4290 "Order.hs" #-} + {-# LINE 4292 "Order.hs" #-} ) -- copy rule (down) _tlOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 4296 "Order.hs" #-} + {-# LINE 4298 "Order.hs" #-} ) -- copy rule (down) _tlOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 4302 "Order.hs" #-} + {-# LINE 4304 "Order.hs" #-} ) -- copy rule (down) _tlOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 4308 "Order.hs" #-} + {-# LINE 4310 "Order.hs" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 4314 "Order.hs" #-} + {-# LINE 4316 "Order.hs" #-} ) -- copy rule (down) _tlOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 4320 "Order.hs" #-} + {-# LINE 4322 "Order.hs" #-} ) -- copy rule (down) _tlOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 4326 "Order.hs" #-} + {-# LINE 4328 "Order.hs" #-} ) -- copy rule (down) _tlOo_unbox = ({-# LINE 119 "Order.ag" #-} _lhsIo_unbox - {-# LINE 4332 "Order.hs" #-} + {-# LINE 4334 "Order.hs" #-} ) -- copy rule (down) _tlOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 4338 "Order.hs" #-} + {-# LINE 4340 "Order.hs" #-} ) -- copy rule (down) _tlOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 4344 "Order.hs" #-} + {-# LINE 4346 "Order.hs" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 4350 "Order.hs" #-} + {-# LINE 4352 "Order.hs" #-} ) -- copy rule (chain) _tlOvcount = ({-# LINE 258 "Order.ag" #-} _hdIvcount - {-# LINE 4356 "Order.hs" #-} + {-# LINE 4358 "Order.hs" #-} ) ( _hdIadditionalDep,_hdIaroundDep,_hdIcProduction,_hdIcons,_hdIdirectDep,_hdIerrors,_hdIinstDep,_hdImergeDep,_hdInAutoRules,_hdInExplicitRules,_hdIrules,_hdIvcount) = hd_ _hdOallnts _hdOaroundMap _hdOcVisitsMap _hdOinh _hdOmanualAttrDepMap _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_unbox _hdOo_wantvisit _hdOprefix _hdOsyn _hdOvcount @@ -4396,73 +4398,73 @@ _lhsOcProductions = ({-# LINE 627 "Order.ag" #-} [] - {-# LINE 4400 "Order.hs" #-} + {-# LINE 4402 "Order.hs" #-} ) -- use rule "Order.ag"(line 283, column 60) _lhsOadditionalDep = ({-# LINE 283 "Order.ag" #-} Seq.empty - {-# LINE 4406 "Order.hs" #-} + {-# LINE 4408 "Order.hs" #-} ) -- use rule "Order.ag"(line 404, column 24) _lhsOaroundDep = ({-# LINE 404 "Order.ag" #-} Seq.empty - {-# LINE 4412 "Order.hs" #-} + {-# LINE 4414 "Order.hs" #-} ) -- use rule "Order.ag"(line 520, column 40) _lhsOcons = ({-# LINE 520 "Order.ag" #-} [] - {-# LINE 4418 "Order.hs" #-} + {-# LINE 4420 "Order.hs" #-} ) -- use rule "Order.ag"(line 269, column 33) _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} Seq.empty - {-# LINE 4424 "Order.hs" #-} + {-# LINE 4426 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} Seq.empty - {-# LINE 4430 "Order.hs" #-} + {-# LINE 4432 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} Seq.empty - {-# LINE 4436 "Order.hs" #-} + {-# LINE 4438 "Order.hs" #-} ) -- use rule "Order.ag"(line 367, column 18) _lhsOmergeDep = ({-# LINE 367 "Order.ag" #-} Seq.empty - {-# LINE 4442 "Order.hs" #-} + {-# LINE 4444 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} 0 - {-# LINE 4448 "Order.hs" #-} + {-# LINE 4450 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} 0 - {-# LINE 4454 "Order.hs" #-} + {-# LINE 4456 "Order.hs" #-} ) -- use rule "Order.ag"(line 259, column 18) _lhsOrules = ({-# LINE 259 "Order.ag" #-} Seq.empty - {-# LINE 4460 "Order.hs" #-} + {-# LINE 4462 "Order.hs" #-} ) -- copy rule (chain) _lhsOvcount = ({-# LINE 258 "Order.ag" #-} _lhsIvcount - {-# LINE 4466 "Order.hs" #-} + {-# LINE 4468 "Order.hs" #-} ) in ( _lhsOadditionalDep,_lhsOaroundDep,_lhsOcProductions,_lhsOcons,_lhsOdirectDep,_lhsOerrors,_lhsOinstDep,_lhsOmergeDep,_lhsOnAutoRules,_lhsOnExplicitRules,_lhsOrules,_lhsOvcount))) ) -- Rule -------------------------------------------------------- @@ -4625,7 +4627,7 @@ if explicit_ then 1 else 0 - {-# LINE 4629 "Order.hs" #-} + {-# LINE 4631 "Order.hs" #-} ) -- "Order.ag"(line 67, column 11) _lhsOnAutoRules = @@ -4633,7 +4635,7 @@ if startsWith "use rule" origin_ || startsWith "copy rule" origin_ then 1 else 0 - {-# LINE 4637 "Order.hs" #-} + {-# LINE 4639 "Order.hs" #-} ) -- "Order.ag"(line 217, column 12) _defines = @@ -4652,7 +4654,7 @@ | (field,attr,isLocalOrInst,parts) <- _patternIpatternAttrs , let aa = AltAttr field attr isLocalOrInst ] - {-# LINE 4656 "Order.hs" #-} + {-# LINE 4658 "Order.hs" #-} ) -- "Order.ag"(line 233, column 12) _gathRules = @@ -4661,7 +4663,7 @@ in Seq.fromList [ CRule attr False True _lhsInt _lhsIcon field (childnt field) tp _patternIcopy _rhsItextLines _defines owrt_ origin_ _rhsIallRhsVars explicit_ mbName_ | (field,attr,tp) <- Map.elems _defines ] - {-# LINE 4665 "Order.hs" #-} + {-# LINE 4667 "Order.hs" #-} ) -- "Order.ag"(line 271, column 12) _lhsOdirectDep = @@ -4670,7 +4672,7 @@ used = [ Map.lookup (AltAttr field attr True) _lhsIaltAttrs | (field,attr) <- _rhsIusedAttrs] ++ [ Map.lookup (AltAttr _LOC attr True) _lhsIaltAttrs | attr <- _rhsIusedLocals ++ _rhsIusedFields ] in Seq.fromList [ (x,y) | Just x <- used, y <- defined ] - {-# LINE 4674 "Order.hs" #-} + {-# LINE 4676 "Order.hs" #-} ) -- "Order.ag"(line 315, column 6) _instDep1 = @@ -4685,7 +4687,7 @@ instVert = findWithErr2 instAttr _lhsIaltAttrs synVert = findWithErr2 synAttr _lhsIaltAttrs ] - {-# LINE 4689 "Order.hs" #-} + {-# LINE 4691 "Order.hs" #-} ) -- "Order.ag"(line 326, column 6) _instDep2 = @@ -4700,115 +4702,115 @@ instVert = findWithErr2 instAttr _lhsIaltAttrs inhVert = findWithErr2 inhAttr _lhsIaltAttrs ] - {-# LINE 4704 "Order.hs" #-} + {-# LINE 4706 "Order.hs" #-} ) -- "Order.ag"(line 337, column 6) _lhsOinstDep = ({-# LINE 337 "Order.ag" #-} _instDep1 Seq.>< _instDep2 - {-# LINE 4710 "Order.hs" #-} + {-# LINE 4712 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _patternIerrors Seq.>< _rhsIerrors - {-# LINE 4716 "Order.hs" #-} + {-# LINE 4718 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _patternIgathAltAttrs - {-# LINE 4722 "Order.hs" #-} + {-# LINE 4724 "Order.hs" #-} ) -- use rule "Order.ag"(line 206, column 23) _lhsOgathRules = ({-# LINE 206 "Order.ag" #-} _gathRules - {-# LINE 4728 "Order.hs" #-} + {-# LINE 4730 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _patternIinstVars - {-# LINE 4734 "Order.hs" #-} + {-# LINE 4736 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _patternIlocVars - {-# LINE 4740 "Order.hs" #-} + {-# LINE 4742 "Order.hs" #-} ) -- copy rule (down) _patternOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 4746 "Order.hs" #-} + {-# LINE 4748 "Order.hs" #-} ) -- copy rule (down) _patternOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 4752 "Order.hs" #-} + {-# LINE 4754 "Order.hs" #-} ) -- copy rule (down) _patternOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 4758 "Order.hs" #-} + {-# LINE 4760 "Order.hs" #-} ) -- copy rule (down) _patternOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 4764 "Order.hs" #-} + {-# LINE 4766 "Order.hs" #-} ) -- copy rule (down) _patternOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 4770 "Order.hs" #-} + {-# LINE 4772 "Order.hs" #-} ) -- copy rule (down) _patternOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 4776 "Order.hs" #-} + {-# LINE 4778 "Order.hs" #-} ) -- copy rule (down) _rhsOallfields = ({-# LINE 448 "Order.ag" #-} _lhsIallfields - {-# LINE 4782 "Order.hs" #-} + {-# LINE 4784 "Order.hs" #-} ) -- copy rule (down) _rhsOallnts = ({-# LINE 449 "Order.ag" #-} _lhsIallnts - {-# LINE 4788 "Order.hs" #-} + {-# LINE 4790 "Order.hs" #-} ) -- copy rule (down) _rhsOattrs = ({-# LINE 450 "Order.ag" #-} _lhsIattrs - {-# LINE 4794 "Order.hs" #-} + {-# LINE 4796 "Order.hs" #-} ) -- copy rule (down) _rhsOcon = ({-# LINE 447 "Order.ag" #-} _lhsIcon - {-# LINE 4800 "Order.hs" #-} + {-# LINE 4802 "Order.hs" #-} ) -- copy rule (down) _rhsOmergeMap = ({-# LINE 362 "Order.ag" #-} _lhsImergeMap - {-# LINE 4806 "Order.hs" #-} + {-# LINE 4808 "Order.hs" #-} ) -- copy rule (down) _rhsOnt = ({-# LINE 447 "Order.ag" #-} _lhsInt - {-# LINE 4812 "Order.hs" #-} + {-# LINE 4814 "Order.hs" #-} ) ( _patternIcopy,_patternIerrors,_patternIgathAltAttrs,_patternIinstVars,_patternIlocVars,_patternIpatternAttrs) = pattern_ _patternOallTypeSigs _patternOaltAttrs _patternOcon _patternOinh _patternOnt _patternOsyn @@ -5000,331 +5002,331 @@ _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} _hdIdirectDep Seq.>< _tlIdirectDep - {-# LINE 5004 "Order.hs" #-} + {-# LINE 5006 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} _hdIerrors Seq.>< _tlIerrors - {-# LINE 5010 "Order.hs" #-} + {-# LINE 5012 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} _hdIgathAltAttrs ++ _tlIgathAltAttrs - {-# LINE 5016 "Order.hs" #-} + {-# LINE 5018 "Order.hs" #-} ) -- use rule "Order.ag"(line 206, column 23) _lhsOgathRules = ({-# LINE 206 "Order.ag" #-} _hdIgathRules Seq.>< _tlIgathRules - {-# LINE 5022 "Order.hs" #-} + {-# LINE 5024 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} _hdIinstDep Seq.>< _tlIinstDep - {-# LINE 5028 "Order.hs" #-} + {-# LINE 5030 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} _hdIinstVars ++ _tlIinstVars - {-# LINE 5034 "Order.hs" #-} + {-# LINE 5036 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} _hdIlocVars ++ _tlIlocVars - {-# LINE 5040 "Order.hs" #-} + {-# LINE 5042 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} _hdInAutoRules + _tlInAutoRules - {-# LINE 5046 "Order.hs" #-} + {-# LINE 5048 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} _hdInExplicitRules + _tlInExplicitRules - {-# LINE 5052 "Order.hs" #-} + {-# LINE 5054 "Order.hs" #-} ) -- copy rule (down) _hdOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 5058 "Order.hs" #-} + {-# LINE 5060 "Order.hs" #-} ) -- copy rule (down) _hdOallfields = ({-# LINE 654 "Order.ag" #-} _lhsIallfields - {-# LINE 5064 "Order.hs" #-} + {-# LINE 5066 "Order.hs" #-} ) -- copy rule (down) _hdOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 5070 "Order.hs" #-} + {-# LINE 5072 "Order.hs" #-} ) -- copy rule (down) _hdOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 5076 "Order.hs" #-} + {-# LINE 5078 "Order.hs" #-} ) -- copy rule (down) _hdOattrs = ({-# LINE 654 "Order.ag" #-} _lhsIattrs - {-# LINE 5082 "Order.hs" #-} + {-# LINE 5084 "Order.hs" #-} ) -- copy rule (down) _hdOchildInhs = ({-# LINE 199 "Order.ag" #-} _lhsIchildInhs - {-# LINE 5088 "Order.hs" #-} + {-# LINE 5090 "Order.hs" #-} ) -- copy rule (down) _hdOchildNts = ({-# LINE 198 "Order.ag" #-} _lhsIchildNts - {-# LINE 5094 "Order.hs" #-} + {-# LINE 5096 "Order.hs" #-} ) -- copy rule (down) _hdOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 5100 "Order.hs" #-} + {-# LINE 5102 "Order.hs" #-} ) -- copy rule (down) _hdOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 5106 "Order.hs" #-} + {-# LINE 5108 "Order.hs" #-} ) -- copy rule (down) _hdOinhsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIinhsOfChildren - {-# LINE 5112 "Order.hs" #-} + {-# LINE 5114 "Order.hs" #-} ) -- copy rule (down) _hdOmergeMap = ({-# LINE 362 "Order.ag" #-} _lhsImergeMap - {-# LINE 5118 "Order.hs" #-} + {-# LINE 5120 "Order.hs" #-} ) -- copy rule (down) _hdOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 5124 "Order.hs" #-} + {-# LINE 5126 "Order.hs" #-} ) -- copy rule (down) _hdOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 5130 "Order.hs" #-} + {-# LINE 5132 "Order.hs" #-} ) -- copy rule (down) _hdOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 5136 "Order.hs" #-} + {-# LINE 5138 "Order.hs" #-} ) -- copy rule (down) _hdOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 5142 "Order.hs" #-} + {-# LINE 5144 "Order.hs" #-} ) -- copy rule (down) _hdOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 5148 "Order.hs" #-} + {-# LINE 5150 "Order.hs" #-} ) -- copy rule (down) _hdOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 5154 "Order.hs" #-} + {-# LINE 5156 "Order.hs" #-} ) -- copy rule (down) _hdOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 5160 "Order.hs" #-} + {-# LINE 5162 "Order.hs" #-} ) -- copy rule (down) _hdOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 5166 "Order.hs" #-} + {-# LINE 5168 "Order.hs" #-} ) -- copy rule (down) _hdOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 5172 "Order.hs" #-} + {-# LINE 5174 "Order.hs" #-} ) -- copy rule (down) _hdOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 5178 "Order.hs" #-} + {-# LINE 5180 "Order.hs" #-} ) -- copy rule (down) _hdOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 5184 "Order.hs" #-} + {-# LINE 5186 "Order.hs" #-} ) -- copy rule (down) _hdOsynsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIsynsOfChildren - {-# LINE 5190 "Order.hs" #-} + {-# LINE 5192 "Order.hs" #-} ) -- copy rule (down) _tlOallTypeSigs = ({-# LINE 533 "Order.ag" #-} _lhsIallTypeSigs - {-# LINE 5196 "Order.hs" #-} + {-# LINE 5198 "Order.hs" #-} ) -- copy rule (down) _tlOallfields = ({-# LINE 654 "Order.ag" #-} _lhsIallfields - {-# LINE 5202 "Order.hs" #-} + {-# LINE 5204 "Order.hs" #-} ) -- copy rule (down) _tlOallnts = ({-# LINE 647 "Order.ag" #-} _lhsIallnts - {-# LINE 5208 "Order.hs" #-} + {-# LINE 5210 "Order.hs" #-} ) -- copy rule (down) _tlOaltAttrs = ({-# LINE 186 "Order.ag" #-} _lhsIaltAttrs - {-# LINE 5214 "Order.hs" #-} + {-# LINE 5216 "Order.hs" #-} ) -- copy rule (down) _tlOattrs = ({-# LINE 654 "Order.ag" #-} _lhsIattrs - {-# LINE 5220 "Order.hs" #-} + {-# LINE 5222 "Order.hs" #-} ) -- copy rule (down) _tlOchildInhs = ({-# LINE 199 "Order.ag" #-} _lhsIchildInhs - {-# LINE 5226 "Order.hs" #-} + {-# LINE 5228 "Order.hs" #-} ) -- copy rule (down) _tlOchildNts = ({-# LINE 198 "Order.ag" #-} _lhsIchildNts - {-# LINE 5232 "Order.hs" #-} + {-# LINE 5234 "Order.hs" #-} ) -- copy rule (down) _tlOcon = ({-# LINE 90 "Order.ag" #-} _lhsIcon - {-# LINE 5238 "Order.hs" #-} + {-# LINE 5240 "Order.hs" #-} ) -- copy rule (down) _tlOinh = ({-# LINE 89 "Order.ag" #-} _lhsIinh - {-# LINE 5244 "Order.hs" #-} + {-# LINE 5246 "Order.hs" #-} ) -- copy rule (down) _tlOinhsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIinhsOfChildren - {-# LINE 5250 "Order.hs" #-} + {-# LINE 5252 "Order.hs" #-} ) -- copy rule (down) _tlOmergeMap = ({-# LINE 362 "Order.ag" #-} _lhsImergeMap - {-# LINE 5256 "Order.hs" #-} + {-# LINE 5258 "Order.hs" #-} ) -- copy rule (down) _tlOnt = ({-# LINE 89 "Order.ag" #-} _lhsInt - {-# LINE 5262 "Order.hs" #-} + {-# LINE 5264 "Order.hs" #-} ) -- copy rule (down) _tlOo_case = ({-# LINE 117 "Order.ag" #-} _lhsIo_case - {-# LINE 5268 "Order.hs" #-} + {-# LINE 5270 "Order.hs" #-} ) -- copy rule (down) _tlOo_cata = ({-# LINE 111 "Order.ag" #-} _lhsIo_cata - {-# LINE 5274 "Order.hs" #-} + {-# LINE 5276 "Order.hs" #-} ) -- copy rule (down) _tlOo_dovisit = ({-# LINE 116 "Order.ag" #-} _lhsIo_dovisit - {-# LINE 5280 "Order.hs" #-} + {-# LINE 5282 "Order.hs" #-} ) -- copy rule (down) _tlOo_newtypes = ({-# LINE 110 "Order.ag" #-} _lhsIo_newtypes - {-# LINE 5286 "Order.hs" #-} + {-# LINE 5288 "Order.hs" #-} ) -- copy rule (down) _tlOo_rename = ({-# LINE 114 "Order.ag" #-} _lhsIo_rename - {-# LINE 5292 "Order.hs" #-} + {-# LINE 5294 "Order.hs" #-} ) -- copy rule (down) _tlOo_sem = ({-# LINE 113 "Order.ag" #-} _lhsIo_sem - {-# LINE 5298 "Order.hs" #-} + {-# LINE 5300 "Order.hs" #-} ) -- copy rule (down) _tlOo_sig = ({-# LINE 112 "Order.ag" #-} _lhsIo_sig - {-# LINE 5304 "Order.hs" #-} + {-# LINE 5306 "Order.hs" #-} ) -- copy rule (down) _tlOo_wantvisit = ({-# LINE 115 "Order.ag" #-} _lhsIo_wantvisit - {-# LINE 5310 "Order.hs" #-} + {-# LINE 5312 "Order.hs" #-} ) -- copy rule (down) _tlOprefix = ({-# LINE 118 "Order.ag" #-} _lhsIprefix - {-# LINE 5316 "Order.hs" #-} + {-# LINE 5318 "Order.hs" #-} ) -- copy rule (down) _tlOsyn = ({-# LINE 89 "Order.ag" #-} _lhsIsyn - {-# LINE 5322 "Order.hs" #-} + {-# LINE 5324 "Order.hs" #-} ) -- copy rule (down) _tlOsynsOfChildren = ({-# LINE 339 "Order.ag" #-} _lhsIsynsOfChildren - {-# LINE 5328 "Order.hs" #-} + {-# LINE 5330 "Order.hs" #-} ) ( _hdIdirectDep,_hdIerrors,_hdIgathAltAttrs,_hdIgathRules,_hdIinstDep,_hdIinstVars,_hdIlocVars,_hdInAutoRules,_hdInExplicitRules) = hd_ _hdOallTypeSigs _hdOallfields _hdOallnts _hdOaltAttrs _hdOattrs _hdOchildInhs _hdOchildNts _hdOcon _hdOinh _hdOinhsOfChildren _hdOmergeMap _hdOnt _hdOo_case _hdOo_cata _hdOo_dovisit _hdOo_newtypes _hdOo_rename _hdOo_sem _hdOo_sig _hdOo_wantvisit _hdOprefix _hdOsyn _hdOsynsOfChildren @@ -5369,55 +5371,55 @@ _lhsOdirectDep = ({-# LINE 269 "Order.ag" #-} Seq.empty - {-# LINE 5373 "Order.hs" #-} + {-# LINE 5375 "Order.hs" #-} ) -- use rule "Order.ag"(line 84, column 70) _lhsOerrors = ({-# LINE 84 "Order.ag" #-} Seq.empty - {-# LINE 5379 "Order.hs" #-} + {-# LINE 5381 "Order.hs" #-} ) -- use rule "Order.ag"(line 170, column 68) _lhsOgathAltAttrs = ({-# LINE 170 "Order.ag" #-} [] - {-# LINE 5385 "Order.hs" #-} + {-# LINE 5387 "Order.hs" #-} ) -- use rule "Order.ag"(line 206, column 23) _lhsOgathRules = ({-# LINE 206 "Order.ag" #-} Seq.empty - {-# LINE 5391 "Order.hs" #-} + {-# LINE 5393 "Order.hs" #-} ) -- use rule "Order.ag"(line 312, column 31) _lhsOinstDep = ({-# LINE 312 "Order.ag" #-} Seq.empty - {-# LINE 5397 "Order.hs" #-} + {-# LINE 5399 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 86) _lhsOinstVars = ({-# LINE 677 "Order.ag" #-} [] - {-# LINE 5403 "Order.hs" #-} + {-# LINE 5405 "Order.hs" #-} ) -- use rule "Order.ag"(line 677, column 48) _lhsOlocVars = ({-# LINE 677 "Order.ag" #-} [] - {-# LINE 5409 "Order.hs" #-} + {-# LINE 5411 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnAutoRules = ({-# LINE 61 "Order.ag" #-} 0 - {-# LINE 5415 "Order.hs" #-} + {-# LINE 5417 "Order.hs" #-} ) -- use rule "Order.ag"(line 61, column 105) _lhsOnExplicitRules = ({-# LINE 61 "Order.ag" #-} 0 - {-# LINE 5421 "Order.hs" #-} + {-# LINE 5423 "Order.hs" #-} ) in ( _lhsOdirectDep,_lhsOerrors,_lhsOgathAltAttrs,_lhsOgathRules,_lhsOinstDep,_lhsOinstVars,_lhsOlocVars,_lhsOnAutoRules,_lhsOnExplicitRules))) ) -- TypeSig ----------------------------------------------------- @@ -5456,7 +5458,7 @@ _lhsOtypeSigs = ({-# LINE 531 "Order.ag" #-} Map.insert name_ tp_ _lhsItypeSigs - {-# LINE 5460 "Order.hs" #-} + {-# LINE 5462 "Order.hs" #-} ) in ( _lhsOtypeSigs))) ) -- TypeSigs ---------------------------------------------------- @@ -5500,19 +5502,19 @@ _lhsOtypeSigs = ({-# LINE 527 "Order.ag" #-} _tlItypeSigs - {-# LINE 5504 "Order.hs" #-} + {-# LINE 5506 "Order.hs" #-} ) -- copy rule (down) _hdOtypeSigs = ({-# LINE 527 "Order.ag" #-} _lhsItypeSigs - {-# LINE 5510 "Order.hs" #-} + {-# LINE 5512 "Order.hs" #-} ) -- copy rule (chain) _tlOtypeSigs = ({-# LINE 527 "Order.ag" #-} _hdItypeSigs - {-# LINE 5516 "Order.hs" #-} + {-# LINE 5518 "Order.hs" #-} ) ( _hdItypeSigs) = hd_ _hdOtypeSigs @@ -5527,6 +5529,6 @@ _lhsOtypeSigs = ({-# LINE 527 "Order.ag" #-} _lhsItypeSigs - {-# LINE 5531 "Order.hs" #-} + {-# LINE 5533 "Order.hs" #-} ) in ( _lhsOtypeSigs))) ) diff --git a/src-derived/Patterns.hs b/src-derived/Patterns.hs --- a/src-derived/Patterns.hs +++ b/src-derived/Patterns.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (Patterns.ag) +-- UUAGC 0.9.38.1 (Patterns.ag) module Patterns where {-# LINE 2 "Patterns.ag" #-} diff --git a/src-derived/PrintCode.hs b/src-derived/PrintCode.hs --- a/src-derived/PrintCode.hs +++ b/src-derived/PrintCode.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.37.1 (PrintCode.ag) +-- UUAGC 0.9.38.1 (PrintCode.ag) module PrintCode where {-# LINE 10 "PrintCode.ag" #-} @@ -51,7 +51,7 @@ = foldr (\v r -> (v >#< "`seq`") `next` pp_parens r) expr strictArgs {-# LINE 53 "../src-derived/PrintCode.hs" #-} -{-# LINE 294 "PrintCode.ag" #-} +{-# LINE 296 "PrintCode.ag" #-} reallySimple :: String -> Bool @@ -64,18 +64,18 @@ {-# LINE 66 "../src-derived/PrintCode.hs" #-} -{-# LINE 393 "PrintCode.ag" #-} +{-# LINE 395 "PrintCode.ag" #-} locname' n = "_loc_" ++ getName n {-# LINE 71 "../src-derived/PrintCode.hs" #-} -{-# LINE 466 "PrintCode.ag" #-} +{-# LINE 468 "PrintCode.ag" #-} renderDocs :: [PP_Doc] -> String renderDocs pps = foldr (.) id (map (\d -> (disp d 50000) . ( '\n':) ) pps) "" {-# LINE 77 "../src-derived/PrintCode.hs" #-} -{-# LINE 513 "PrintCode.ag" #-} +{-# LINE 515 "PrintCode.ag" #-} writeModule :: FilePath -> [PP_Doc] -> IO () writeModule path docs @@ -92,12 +92,12 @@ dumpIt = writeFile path output {-# LINE 94 "../src-derived/PrintCode.hs" #-} -{-# LINE 143 "./Code.ag" #-} +{-# LINE 145 "./Code.ag" #-} -- Unboxed tuples -- unbox Whether unboxed tuples are wanted or not --- inh The inherited attributes. --- If there are none, no unboxing can take place, +-- inh The inherited attributes. +-- If there are none, no unboxing can take place, -- because in that case the semantic function (a top-level identifier) would have an unboxed type. -- Of course we can't have an unboxed 1-tuple mkTupleExpr :: Bool -> Bool -> Exprs -> Expr @@ -179,7 +179,7 @@ {-# LINE 180 "PrintCode.hs" #-} )) of { !_leftOnested -> - (case (({-# LINE 416 "PrintCode.ag" #-} + (case (({-# LINE 418 "PrintCode.ag" #-} False {-# LINE 185 "PrintCode.hs" #-} )) of @@ -391,7 +391,7 @@ {-# LINE 392 "PrintCode.hs" #-} )) of { !_semDomOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 397 "PrintCode.hs" #-} )) of @@ -411,7 +411,7 @@ {-# LINE 412 "PrintCode.hs" #-} )) of { !_dataDefOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 417 "PrintCode.hs" #-} )) of @@ -431,7 +431,7 @@ {-# LINE 432 "PrintCode.hs" #-} )) of { !_commentOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 437 "PrintCode.hs" #-} )) of @@ -442,7 +442,7 @@ { ( !_dataDefIpps) -> (case (comment_ _commentOisDeclOfLet _commentOnested _commentOoptions _commentOoutputfile ) of { ( !_commentIpp) -> - (case (({-# LINE 480 "PrintCode.ag" #-} + (case (({-# LINE 482 "PrintCode.ag" #-} [ [_commentIpp] , _dataDefIpps , _semDomIpps @@ -465,7 +465,7 @@ {-# LINE 466 "PrintCode.hs" #-} )) of { !_semWrapperOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 471 "PrintCode.hs" #-} )) of @@ -485,7 +485,7 @@ {-# LINE 486 "PrintCode.hs" #-} )) of { !_cataFunOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 491 "PrintCode.hs" #-} )) of @@ -494,7 +494,7 @@ { ( !_semWrapperIpps) -> (case (cataFun_ _cataFunOisDeclOfLet _cataFunOnested _cataFunOoptions _cataFunOoutputfile ) of { ( !_cataFunIpps) -> - (case (({-# LINE 485 "PrintCode.ag" #-} + (case (({-# LINE 487 "PrintCode.ag" #-} [ [_commentIpp] , _cataFunIpps , _semWrapperIpps @@ -517,7 +517,7 @@ {-# LINE 518 "PrintCode.hs" #-} )) of { !_semFunctionsOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 523 "PrintCode.hs" #-} )) of @@ -537,12 +537,12 @@ {-# LINE 538 "PrintCode.hs" #-} )) of { !_infoOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 543 "PrintCode.hs" #-} )) of { !_infoOisDeclOfLet -> - (case (({-# LINE 511 "PrintCode.ag" #-} + (case (({-# LINE 513 "PrintCode.ag" #-} concat $ intersperse "," semNames_ {-# LINE 548 "PrintCode.hs" #-} )) of @@ -551,7 +551,7 @@ { ( !_semFunctionsIpps) -> (case (info_ _infoOisDeclOfLet _infoOnested _infoOoptions _infoOoutputfile ) of { ( !_infoIpps) -> - (case (({-# LINE 495 "PrintCode.ag" #-} + (case (({-# LINE 497 "PrintCode.ag" #-} writeModule _outputfile [ pp $ _lhsIpragmaBlocks , pp $ Map.findWithDefault empty (BlockPragma, Just $ identifier name_) _lhsItextBlockMap @@ -567,7 +567,7 @@ {-# LINE 568 "PrintCode.hs" #-} )) of { !_lhsOgenSems -> - (case (({-# LINE 474 "PrintCode.ag" #-} + (case (({-# LINE 476 "PrintCode.ag" #-} ["import " ++ _lhsImainName ++ "_" ++ name_ ++ "\n"] {-# LINE 573 "PrintCode.hs" #-} )) of @@ -663,12 +663,12 @@ {-# LINE 664 "PrintCode.hs" #-} )) of { !_tlOnested -> - (case (({-# LINE 431 "PrintCode.ag" #-} + (case (({-# LINE 433 "PrintCode.ag" #-} _lhsImainFile {-# LINE 669 "PrintCode.hs" #-} )) of { !_tlOmainFile -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 674 "PrintCode.hs" #-} )) of @@ -683,106 +683,106 @@ {-# LINE 684 "PrintCode.hs" #-} )) of { !_hdOnested -> - (case (({-# LINE 431 "PrintCode.ag" #-} + (case (({-# LINE 433 "PrintCode.ag" #-} _lhsImainFile {-# LINE 689 "PrintCode.hs" #-} )) of { !_hdOmainFile -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 694 "PrintCode.hs" #-} )) of { !_hdOisDeclOfLet -> - (case (({-# LINE 428 "PrintCode.ag" #-} + (case (({-# LINE 430 "PrintCode.ag" #-} _lhsItextBlocks {-# LINE 699 "PrintCode.hs" #-} )) of { !_tlOtextBlocks -> - (case (({-# LINE 429 "PrintCode.ag" #-} + (case (({-# LINE 431 "PrintCode.ag" #-} _lhsItextBlockMap {-# LINE 704 "PrintCode.hs" #-} )) of { !_tlOtextBlockMap -> - (case (({-# LINE 427 "PrintCode.ag" #-} + (case (({-# LINE 429 "PrintCode.ag" #-} _lhsIpragmaBlocks {-# LINE 709 "PrintCode.hs" #-} )) of { !_tlOpragmaBlocks -> - (case (({-# LINE 430 "PrintCode.ag" #-} + (case (({-# LINE 432 "PrintCode.ag" #-} _lhsIoptionsLine {-# LINE 714 "PrintCode.hs" #-} )) of { !_tlOoptionsLine -> - (case (({-# LINE 433 "PrintCode.ag" #-} + (case (({-# LINE 435 "PrintCode.ag" #-} _lhsImoduleHeader {-# LINE 719 "PrintCode.hs" #-} )) of { !_tlOmoduleHeader -> - (case (({-# LINE 432 "PrintCode.ag" #-} + (case (({-# LINE 434 "PrintCode.ag" #-} _lhsImainName {-# LINE 724 "PrintCode.hs" #-} )) of { !_tlOmainName -> - (case (({-# LINE 426 "PrintCode.ag" #-} + (case (({-# LINE 428 "PrintCode.ag" #-} _lhsIimportBlocks {-# LINE 729 "PrintCode.hs" #-} )) of { !_tlOimportBlocks -> (case (tl_ _tlOimportBlocks _tlOisDeclOfLet _tlOmainFile _tlOmainName _tlOmoduleHeader _tlOnested _tlOoptions _tlOoptionsLine _tlOpragmaBlocks _tlOtextBlockMap _tlOtextBlocks ) of { ( !_tlIappendCommon,!_tlIappendMain,!_tlIgenSems,!_tlIimports,!_tlIpps) -> - (case (({-# LINE 428 "PrintCode.ag" #-} + (case (({-# LINE 430 "PrintCode.ag" #-} _lhsItextBlocks {-# LINE 736 "PrintCode.hs" #-} )) of { !_hdOtextBlocks -> - (case (({-# LINE 429 "PrintCode.ag" #-} + (case (({-# LINE 431 "PrintCode.ag" #-} _lhsItextBlockMap {-# LINE 741 "PrintCode.hs" #-} )) of { !_hdOtextBlockMap -> - (case (({-# LINE 427 "PrintCode.ag" #-} + (case (({-# LINE 429 "PrintCode.ag" #-} _lhsIpragmaBlocks {-# LINE 746 "PrintCode.hs" #-} )) of { !_hdOpragmaBlocks -> - (case (({-# LINE 430 "PrintCode.ag" #-} + (case (({-# LINE 432 "PrintCode.ag" #-} _lhsIoptionsLine {-# LINE 751 "PrintCode.hs" #-} )) of { !_hdOoptionsLine -> - (case (({-# LINE 433 "PrintCode.ag" #-} + (case (({-# LINE 435 "PrintCode.ag" #-} _lhsImoduleHeader {-# LINE 756 "PrintCode.hs" #-} )) of { !_hdOmoduleHeader -> - (case (({-# LINE 432 "PrintCode.ag" #-} + (case (({-# LINE 434 "PrintCode.ag" #-} _lhsImainName {-# LINE 761 "PrintCode.hs" #-} )) of { !_hdOmainName -> - (case (({-# LINE 426 "PrintCode.ag" #-} + (case (({-# LINE 428 "PrintCode.ag" #-} _lhsIimportBlocks {-# LINE 766 "PrintCode.hs" #-} )) of { !_hdOimportBlocks -> (case (hd_ _hdOimportBlocks _hdOisDeclOfLet _hdOmainFile _hdOmainName _hdOmoduleHeader _hdOnested _hdOoptions _hdOoptionsLine _hdOpragmaBlocks _hdOtextBlockMap _hdOtextBlocks ) of { ( !_hdIappendCommon,!_hdIappendMain,!_hdIgenSems,!_hdIimports,!_hdIpps) -> - (case (({-# LINE 476 "PrintCode.ag" #-} + (case (({-# LINE 478 "PrintCode.ag" #-} _hdIappendCommon ++ _tlIappendCommon {-# LINE 773 "PrintCode.hs" #-} )) of { !_lhsOappendCommon -> - (case (({-# LINE 476 "PrintCode.ag" #-} + (case (({-# LINE 478 "PrintCode.ag" #-} _hdIappendMain ++ _tlIappendMain {-# LINE 778 "PrintCode.hs" #-} )) of { !_lhsOappendMain -> - (case (({-# LINE 491 "PrintCode.ag" #-} + (case (({-# LINE 493 "PrintCode.ag" #-} _hdIgenSems >> _tlIgenSems {-# LINE 783 "PrintCode.hs" #-} )) of { !_lhsOgenSems -> - (case (({-# LINE 471 "PrintCode.ag" #-} + (case (({-# LINE 473 "PrintCode.ag" #-} _hdIimports ++ _tlIimports {-# LINE 788 "PrintCode.hs" #-} )) of @@ -806,22 +806,22 @@ (!_lhsIpragmaBlocks) (!_lhsItextBlockMap) (!_lhsItextBlocks) -> - (case (({-# LINE 476 "PrintCode.ag" #-} + (case (({-# LINE 478 "PrintCode.ag" #-} [] {-# LINE 812 "PrintCode.hs" #-} )) of { !_lhsOappendCommon -> - (case (({-# LINE 476 "PrintCode.ag" #-} + (case (({-# LINE 478 "PrintCode.ag" #-} [] {-# LINE 817 "PrintCode.hs" #-} )) of { !_lhsOappendMain -> - (case (({-# LINE 491 "PrintCode.ag" #-} + (case (({-# LINE 493 "PrintCode.ag" #-} return () {-# LINE 822 "PrintCode.hs" #-} )) of { !_lhsOgenSems -> - (case (({-# LINE 471 "PrintCode.ag" #-} + (case (({-# LINE 473 "PrintCode.ag" #-} [] {-# LINE 827 "PrintCode.hs" #-} )) of @@ -942,7 +942,7 @@ sem_DataAlts_Cons !(T_DataAlt hd_ ) !(T_DataAlts tl_ ) = (T_DataAlts (\ (!_lhsInested) (!_lhsIstrictPre) -> - (case (({-# LINE 311 "PrintCode.ag" #-} + (case (({-# LINE 313 "PrintCode.ag" #-} _lhsIstrictPre {-# LINE 948 "PrintCode.hs" #-} )) of @@ -952,7 +952,7 @@ {-# LINE 953 "PrintCode.hs" #-} )) of { !_tlOnested -> - (case (({-# LINE 311 "PrintCode.ag" #-} + (case (({-# LINE 313 "PrintCode.ag" #-} _lhsIstrictPre {-# LINE 958 "PrintCode.hs" #-} )) of @@ -1115,7 +1115,7 @@ {-# LINE 1116 "PrintCode.hs" #-} )) of { !_leftOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 1121 "PrintCode.hs" #-} )) of @@ -1168,7 +1168,7 @@ {-# LINE 1169 "PrintCode.hs" #-} )) of { !_leftOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 1174 "PrintCode.hs" #-} )) of @@ -1214,7 +1214,7 @@ {-# LINE 1215 "PrintCode.hs" #-} )) of { !_altsOnested -> - (case (({-# LINE 314 "PrintCode.ag" #-} + (case (({-# LINE 316 "PrintCode.ag" #-} if strict_ then pp "!" else empty {-# LINE 1220 "PrintCode.hs" #-} )) of @@ -1275,7 +1275,7 @@ {-# LINE 1276 "PrintCode.hs" #-} )) of { !_leftOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 1281 "PrintCode.hs" #-} )) of @@ -1330,7 +1330,7 @@ {-# LINE 1331 "PrintCode.hs" #-} )) of { !_leftOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 1336 "PrintCode.hs" #-} )) of @@ -1433,7 +1433,7 @@ {-# LINE 1434 "PrintCode.hs" #-} )) of { !_leftOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 1439 "PrintCode.hs" #-} )) of @@ -1551,7 +1551,7 @@ {-# LINE 1552 "PrintCode.hs" #-} )) of { !_tlOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 1557 "PrintCode.hs" #-} )) of @@ -1571,7 +1571,7 @@ {-# LINE 1572 "PrintCode.hs" #-} )) of { !_hdOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 1577 "PrintCode.hs" #-} )) of @@ -1833,7 +1833,7 @@ {-# LINE 1834 "PrintCode.hs" #-} )) of { !_stmtsOnested -> - (case (({-# LINE 410 "PrintCode.ag" #-} + (case (({-# LINE 412 "PrintCode.ag" #-} False {-# LINE 1839 "PrintCode.hs" #-} )) of @@ -2001,7 +2001,7 @@ {-# LINE 2002 "PrintCode.hs" #-} )) of { !_declsOnested -> - (case (({-# LINE 408 "PrintCode.ag" #-} + (case (({-# LINE 410 "PrintCode.ag" #-} True {-# LINE 2007 "PrintCode.hs" #-} )) of @@ -2177,7 +2177,7 @@ {-# LINE 2178 "PrintCode.hs" #-} )) of { !_exprOnested -> - (case (({-# LINE 412 "PrintCode.ag" #-} + (case (({-# LINE 414 "PrintCode.ag" #-} False {-# LINE 2183 "PrintCode.hs" #-} )) of @@ -2657,12 +2657,12 @@ {-# LINE 2658 "PrintCode.hs" #-} )) of { !_pat3Ooptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 2663 "PrintCode.hs" #-} )) of { !_pat3OisDeclOfLet -> - (case (({-# LINE 374 "PrintCode.ag" #-} + (case (({-# LINE 376 "PrintCode.ag" #-} False {-# LINE 2668 "PrintCode.hs" #-} )) of @@ -2702,12 +2702,12 @@ {-# LINE 2703 "PrintCode.hs" #-} )) of { !_pat3Ooptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 2708 "PrintCode.hs" #-} )) of { !_pat3OisDeclOfLet -> - (case (({-# LINE 374 "PrintCode.ag" #-} + (case (({-# LINE 376 "PrintCode.ag" #-} False {-# LINE 2713 "PrintCode.hs" #-} )) of @@ -2817,7 +2817,7 @@ {-# LINE 2818 "PrintCode.hs" #-} )) of { !_subOnested -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 2823 "PrintCode.hs" #-} )) of @@ -3030,12 +3030,12 @@ {-# LINE 3031 "PrintCode.hs" #-} )) of { !_partsOoptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 3036 "PrintCode.hs" #-} )) of { !_partsOisDeclOfLet -> - (case (({-# LINE 367 "PrintCode.ag" #-} + (case (({-# LINE 369 "PrintCode.ag" #-} _lhsIbelowIrrefutable {-# LINE 3041 "PrintCode.hs" #-} )) of @@ -3047,12 +3047,12 @@ {-# LINE 3048 "PrintCode.hs" #-} )) of { !_patOoptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 3053 "PrintCode.hs" #-} )) of { !_patOisDeclOfLet -> - (case (({-# LINE 367 "PrintCode.ag" #-} + (case (({-# LINE 369 "PrintCode.ag" #-} _lhsIbelowIrrefutable {-# LINE 3058 "PrintCode.hs" #-} )) of @@ -3069,57 +3069,57 @@ {-# LINE 3070 "PrintCode.hs" #-} )) of { !_lhsOcopy -> - (case (({-# LINE 364 "PrintCode.ag" #-} + (case (({-# LINE 366 "PrintCode.ag" #-} False {-# LINE 3075 "PrintCode.hs" #-} )) of { !_lhsOisUnderscore -> - (case (({-# LINE 353 "PrintCode.ag" #-} + (case (({-# LINE 355 "PrintCode.ag" #-} pp (attrname False field_ attr_) {-# LINE 3080 "PrintCode.hs" #-} )) of { !_ppVar -> - (case (({-# LINE 346 "PrintCode.ag" #-} + (case (({-# LINE 348 "PrintCode.ag" #-} if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable then \p -> "!" >|< p else id {-# LINE 3087 "PrintCode.hs" #-} )) of { !_addBang -> - (case (({-# LINE 354 "PrintCode.ag" #-} + (case (({-# LINE 356 "PrintCode.ag" #-} _addBang $ _ppVar {-# LINE 3092 "PrintCode.hs" #-} )) of { !_ppVarBang -> - (case (({-# LINE 355 "PrintCode.ag" #-} + (case (({-# LINE 357 "PrintCode.ag" #-} if _patIisUnderscore then _ppVarBang else _ppVarBang >|< "@" >|< _patIpp {-# LINE 3099 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 387 "PrintCode.ag" #-} + (case (({-# LINE 389 "PrintCode.ag" #-} let attribute | field_ == _LOC || field_ == nullIdent = locname' attr_ | otherwise = attrname False field_ attr_ in attribute >|< "@" >|< _patIpp' {-# LINE 3106 "PrintCode.hs" #-} )) of { !_lhsOpp' -> - (case (({-# LINE 327 "PrintCode.ag" #-} + (case (({-# LINE 329 "PrintCode.ag" #-} if stricterCases _lhsIoptions && not _lhsIisDeclOfLet then _patIstrictVars else [] {-# LINE 3113 "PrintCode.hs" #-} )) of { !_strictPatVars -> - (case (({-# LINE 323 "PrintCode.ag" #-} + (case (({-# LINE 325 "PrintCode.ag" #-} if strictCases _lhsIoptions && not _lhsIisDeclOfLet then [_ppVar ] else [] {-# LINE 3120 "PrintCode.hs" #-} )) of { !_strictVar -> - (case (({-# LINE 331 "PrintCode.ag" #-} + (case (({-# LINE 333 "PrintCode.ag" #-} _strictVar ++ _strictPatVars {-# LINE 3125 "PrintCode.hs" #-} )) of @@ -3137,12 +3137,12 @@ {-# LINE 3138 "PrintCode.hs" #-} )) of { !_patsOoptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 3143 "PrintCode.hs" #-} )) of { !_patsOisDeclOfLet -> - (case (({-# LINE 367 "PrintCode.ag" #-} + (case (({-# LINE 369 "PrintCode.ag" #-} _lhsIbelowIrrefutable {-# LINE 3148 "PrintCode.hs" #-} )) of @@ -3159,29 +3159,29 @@ {-# LINE 3160 "PrintCode.hs" #-} )) of { !_lhsOcopy -> - (case (({-# LINE 362 "PrintCode.ag" #-} + (case (({-# LINE 364 "PrintCode.ag" #-} False {-# LINE 3165 "PrintCode.hs" #-} )) of { !_lhsOisUnderscore -> - (case (({-# LINE 346 "PrintCode.ag" #-} + (case (({-# LINE 348 "PrintCode.ag" #-} if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable then \p -> "!" >|< p else id {-# LINE 3172 "PrintCode.hs" #-} )) of { !_addBang -> - (case (({-# LINE 351 "PrintCode.ag" #-} + (case (({-# LINE 353 "PrintCode.ag" #-} _addBang $ pp_parens $ name_ >#< hv_sp _patsIpps {-# LINE 3177 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 385 "PrintCode.ag" #-} + (case (({-# LINE 387 "PrintCode.ag" #-} pp_parens $ name_ >#< hv_sp (map pp_parens _patsIpps') {-# LINE 3182 "PrintCode.hs" #-} )) of { !_lhsOpp' -> - (case (({-# LINE 320 "PrintCode.ag" #-} + (case (({-# LINE 322 "PrintCode.ag" #-} _patsIstrictVars {-# LINE 3187 "PrintCode.hs" #-} )) of @@ -3198,12 +3198,12 @@ {-# LINE 3199 "PrintCode.hs" #-} )) of { !_patOoptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 3204 "PrintCode.hs" #-} )) of { !_patOisDeclOfLet -> - (case (({-# LINE 370 "PrintCode.ag" #-} + (case (({-# LINE 372 "PrintCode.ag" #-} True {-# LINE 3209 "PrintCode.hs" #-} )) of @@ -3220,22 +3220,22 @@ {-# LINE 3221 "PrintCode.hs" #-} )) of { !_lhsOcopy -> - (case (({-# LINE 361 "PrintCode.ag" #-} + (case (({-# LINE 363 "PrintCode.ag" #-} _patIisUnderscore {-# LINE 3226 "PrintCode.hs" #-} )) of { !_lhsOisUnderscore -> - (case (({-# LINE 358 "PrintCode.ag" #-} + (case (({-# LINE 360 "PrintCode.ag" #-} text "~" >|< pp_parens _patIpp {-# LINE 3231 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 390 "PrintCode.ag" #-} + (case (({-# LINE 392 "PrintCode.ag" #-} text "~" >|< pp_parens _patIpp {-# LINE 3236 "PrintCode.hs" #-} )) of { !_lhsOpp' -> - (case (({-# LINE 334 "PrintCode.ag" #-} + (case (({-# LINE 336 "PrintCode.ag" #-} [] {-# LINE 3241 "PrintCode.hs" #-} )) of @@ -3253,12 +3253,12 @@ {-# LINE 3254 "PrintCode.hs" #-} )) of { !_patsOoptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 3259 "PrintCode.hs" #-} )) of { !_patsOisDeclOfLet -> - (case (({-# LINE 367 "PrintCode.ag" #-} + (case (({-# LINE 369 "PrintCode.ag" #-} _lhsIbelowIrrefutable {-# LINE 3264 "PrintCode.hs" #-} )) of @@ -3275,29 +3275,29 @@ {-# LINE 3276 "PrintCode.hs" #-} )) of { !_lhsOcopy -> - (case (({-# LINE 363 "PrintCode.ag" #-} + (case (({-# LINE 365 "PrintCode.ag" #-} False {-# LINE 3281 "PrintCode.hs" #-} )) of { !_lhsOisUnderscore -> - (case (({-# LINE 346 "PrintCode.ag" #-} + (case (({-# LINE 348 "PrintCode.ag" #-} if bangpats _lhsIoptions && not _lhsIisDeclOfLet && not _lhsIbelowIrrefutable then \p -> "!" >|< p else id {-# LINE 3288 "PrintCode.hs" #-} )) of { !_addBang -> - (case (({-# LINE 352 "PrintCode.ag" #-} + (case (({-# LINE 354 "PrintCode.ag" #-} _addBang $ pp_block "(" ")" "," _patsIpps {-# LINE 3293 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 386 "PrintCode.ag" #-} + (case (({-# LINE 388 "PrintCode.ag" #-} pp_block "(" ")" "," _patsIpps' {-# LINE 3298 "PrintCode.hs" #-} )) of { !_lhsOpp' -> - (case (({-# LINE 320 "PrintCode.ag" #-} + (case (({-# LINE 322 "PrintCode.ag" #-} _patsIstrictVars {-# LINE 3303 "PrintCode.hs" #-} )) of @@ -3319,22 +3319,22 @@ {-# LINE 3320 "PrintCode.hs" #-} )) of { !_lhsOcopy -> - (case (({-# LINE 365 "PrintCode.ag" #-} + (case (({-# LINE 367 "PrintCode.ag" #-} True {-# LINE 3325 "PrintCode.hs" #-} )) of { !_lhsOisUnderscore -> - (case (({-# LINE 359 "PrintCode.ag" #-} + (case (({-# LINE 361 "PrintCode.ag" #-} text "_" {-# LINE 3330 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 391 "PrintCode.ag" #-} + (case (({-# LINE 393 "PrintCode.ag" #-} text "_" {-# LINE 3335 "PrintCode.hs" #-} )) of { !_lhsOpp' -> - (case (({-# LINE 320 "PrintCode.ag" #-} + (case (({-# LINE 322 "PrintCode.ag" #-} [] {-# LINE 3340 "PrintCode.hs" #-} )) of @@ -3392,12 +3392,12 @@ {-# LINE 3393 "PrintCode.hs" #-} )) of { !_tlOoptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 3398 "PrintCode.hs" #-} )) of { !_tlOisDeclOfLet -> - (case (({-# LINE 367 "PrintCode.ag" #-} + (case (({-# LINE 369 "PrintCode.ag" #-} _lhsIbelowIrrefutable {-# LINE 3403 "PrintCode.hs" #-} )) of @@ -3409,12 +3409,12 @@ {-# LINE 3410 "PrintCode.hs" #-} )) of { !_hdOoptions -> - (case (({-# LINE 401 "PrintCode.ag" #-} + (case (({-# LINE 403 "PrintCode.ag" #-} _lhsIisDeclOfLet {-# LINE 3415 "PrintCode.hs" #-} )) of { !_hdOisDeclOfLet -> - (case (({-# LINE 367 "PrintCode.ag" #-} + (case (({-# LINE 369 "PrintCode.ag" #-} _lhsIbelowIrrefutable {-# LINE 3420 "PrintCode.hs" #-} )) of @@ -3431,17 +3431,17 @@ {-# LINE 3432 "PrintCode.hs" #-} )) of { !_lhsOcopy -> - (case (({-# LINE 341 "PrintCode.ag" #-} + (case (({-# LINE 343 "PrintCode.ag" #-} _hdIpp : _tlIpps {-# LINE 3437 "PrintCode.hs" #-} )) of { !_lhsOpps -> - (case (({-# LINE 381 "PrintCode.ag" #-} + (case (({-# LINE 383 "PrintCode.ag" #-} _hdIpp' : _tlIpps' {-# LINE 3442 "PrintCode.hs" #-} )) of { !_lhsOpps' -> - (case (({-# LINE 320 "PrintCode.ag" #-} + (case (({-# LINE 322 "PrintCode.ag" #-} _hdIstrictVars ++ _tlIstrictVars {-# LINE 3447 "PrintCode.hs" #-} )) of @@ -3462,17 +3462,17 @@ {-# LINE 3463 "PrintCode.hs" #-} )) of { !_lhsOcopy -> - (case (({-# LINE 342 "PrintCode.ag" #-} + (case (({-# LINE 344 "PrintCode.ag" #-} [] {-# LINE 3468 "PrintCode.hs" #-} )) of { !_lhsOpps -> - (case (({-# LINE 382 "PrintCode.ag" #-} + (case (({-# LINE 384 "PrintCode.ag" #-} [] {-# LINE 3473 "PrintCode.hs" #-} )) of { !_lhsOpps' -> - (case (({-# LINE 320 "PrintCode.ag" #-} + (case (({-# LINE 322 "PrintCode.ag" #-} [] {-# LINE 3478 "PrintCode.hs" #-} )) of @@ -3542,17 +3542,17 @@ (!_lhsIpragmaBlocks) (!_lhsItextBlockMap) (!_lhsItextBlocks) -> - (case (({-# LINE 429 "PrintCode.ag" #-} + (case (({-# LINE 431 "PrintCode.ag" #-} _lhsItextBlockMap {-# LINE 3548 "PrintCode.hs" #-} )) of { !_chunksOtextBlockMap -> - (case (({-# LINE 427 "PrintCode.ag" #-} + (case (({-# LINE 429 "PrintCode.ag" #-} _lhsIpragmaBlocks {-# LINE 3553 "PrintCode.hs" #-} )) of { !_chunksOpragmaBlocks -> - (case (({-# LINE 430 "PrintCode.ag" #-} + (case (({-# LINE 432 "PrintCode.ag" #-} _lhsIoptionsLine {-# LINE 3558 "PrintCode.hs" #-} )) of @@ -3567,27 +3567,27 @@ {-# LINE 3568 "PrintCode.hs" #-} )) of { !_chunksOoptions -> - (case (({-# LINE 433 "PrintCode.ag" #-} + (case (({-# LINE 435 "PrintCode.ag" #-} _lhsImoduleHeader {-# LINE 3573 "PrintCode.hs" #-} )) of { !_chunksOmoduleHeader -> - (case (({-# LINE 432 "PrintCode.ag" #-} + (case (({-# LINE 434 "PrintCode.ag" #-} _lhsImainName {-# LINE 3578 "PrintCode.hs" #-} )) of { !_chunksOmainName -> - (case (({-# LINE 431 "PrintCode.ag" #-} + (case (({-# LINE 433 "PrintCode.ag" #-} _lhsImainFile {-# LINE 3583 "PrintCode.hs" #-} )) of { !_chunksOmainFile -> - (case (({-# LINE 450 "PrintCode.ag" #-} + (case (({-# LINE 452 "PrintCode.ag" #-} _lhsImainFile ++ "_common.hs" {-# LINE 3588 "PrintCode.hs" #-} )) of { !_commonFile -> - (case (({-# LINE 404 "PrintCode.ag" #-} + (case (({-# LINE 406 "PrintCode.ag" #-} False {-# LINE 3593 "PrintCode.hs" #-} )) of @@ -3597,19 +3597,19 @@ {-# LINE 3598 "PrintCode.hs" #-} )) of { !_chunksOnested -> - (case (({-# LINE 428 "PrintCode.ag" #-} + (case (({-# LINE 430 "PrintCode.ag" #-} _lhsItextBlocks {-# LINE 3603 "PrintCode.hs" #-} )) of { !_chunksOtextBlocks -> - (case (({-# LINE 426 "PrintCode.ag" #-} + (case (({-# LINE 428 "PrintCode.ag" #-} _lhsIimportBlocks {-# LINE 3608 "PrintCode.hs" #-} )) of { !_chunksOimportBlocks -> (case (chunks_ _chunksOimportBlocks _chunksOisDeclOfLet _chunksOmainFile _chunksOmainName _chunksOmoduleHeader _chunksOnested _chunksOoptions _chunksOoptionsLine _chunksOpragmaBlocks _chunksOtextBlockMap _chunksOtextBlocks ) of { ( !_chunksIappendCommon,!_chunksIappendMain,!_chunksIgenSems,!_chunksIimports,!_chunksIpps) -> - (case (({-# LINE 451 "PrintCode.ag" #-} + (case (({-# LINE 453 "PrintCode.ag" #-} writeModule _commonFile ( [ pp $ _lhsIpragmaBlocks , pp $ _lhsIoptionsLine @@ -3622,12 +3622,12 @@ {-# LINE 3623 "PrintCode.hs" #-} )) of { !_genCommonModule -> - (case (({-# LINE 438 "PrintCode.ag" #-} + (case (({-# LINE 440 "PrintCode.ag" #-} _lhsImainFile ++ ".hs" {-# LINE 3628 "PrintCode.hs" #-} )) of { !_mainModuleFile -> - (case (({-# LINE 439 "PrintCode.ag" #-} + (case (({-# LINE 441 "PrintCode.ag" #-} writeModule _mainModuleFile ( [ pp $ _lhsIpragmaBlocks , pp $ _lhsIoptionsLine @@ -3640,7 +3640,7 @@ {-# LINE 3641 "PrintCode.hs" #-} )) of { !_genMainModule -> - (case (({-# LINE 462 "PrintCode.ag" #-} + (case (({-# LINE 464 "PrintCode.ag" #-} do _genMainModule _genCommonModule _chunksIgenSems @@ -3676,6 +3676,9 @@ alternative NontermType: child name : {String} child params : {[String]} + alternative QuantApp: + child left : {String} + child right : Type alternative SimpleType: child txt : {String} alternative TEither: @@ -3707,6 +3710,8 @@ (sem_Type_List (sem_Type _tp ) ) sem_Type !(NontermType _name _params ) = (sem_Type_NontermType _name _params ) +sem_Type !(QuantApp _left _right ) = + (sem_Type_QuantApp _left (sem_Type _right ) ) sem_Type !(SimpleType _txt ) = (sem_Type_SimpleType _txt ) sem_Type !(TEither _left _right ) = @@ -3741,36 +3746,36 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3745 "PrintCode.hs" #-} + {-# LINE 3750 "PrintCode.hs" #-} )) of { !_rightOnested -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3750 "PrintCode.hs" #-} + {-# LINE 3755 "PrintCode.hs" #-} )) of { !_leftOnested -> (case (right_ _rightOnested ) of { ( !_rightIpp,!_rightIprec) -> (case (({-# LINE 262 "PrintCode.ag" #-} if _rightIprec < 2 then pp_parens _rightIpp else _rightIpp - {-# LINE 3757 "PrintCode.hs" #-} + {-# LINE 3762 "PrintCode.hs" #-} )) of { !_r -> (case (left_ _leftOnested ) of { ( !_leftIpp,!_leftIprec) -> (case (({-# LINE 261 "PrintCode.ag" #-} if _leftIprec <= 2 then pp_parens _leftIpp else _leftIpp - {-# LINE 3764 "PrintCode.hs" #-} + {-# LINE 3769 "PrintCode.hs" #-} )) of { !_l -> (case (({-# LINE 260 "PrintCode.ag" #-} _l >#< "->" >-< _r - {-# LINE 3769 "PrintCode.hs" #-} + {-# LINE 3774 "PrintCode.hs" #-} )) of { !_lhsOpp -> (case (({-# LINE 259 "PrintCode.ag" #-} 2 - {-# LINE 3774 "PrintCode.hs" #-} + {-# LINE 3779 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) }) }) }) }) })) ) @@ -3781,19 +3786,19 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3785 "PrintCode.hs" #-} + {-# LINE 3790 "PrintCode.hs" #-} )) of { !_rightOnested -> (case (right_ _rightOnested ) of { ( !_rightIpp,!_rightIprec) -> (case (({-# LINE 268 "PrintCode.ag" #-} (pp_block "(" ")" "," $ map (\(n,ns) -> hv_sp $ map pp (n:ns)) left_) >#< "=>" >#< _rightIpp - {-# LINE 3792 "PrintCode.hs" #-} + {-# LINE 3797 "PrintCode.hs" #-} )) of { !_lhsOpp -> (case (({-# LINE 258 "PrintCode.ag" #-} _rightIprec - {-# LINE 3797 "PrintCode.hs" #-} + {-# LINE 3802 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) })) ) @@ -3803,19 +3808,19 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3807 "PrintCode.hs" #-} + {-# LINE 3812 "PrintCode.hs" #-} )) of { !_tpOnested -> (case (tp_ _tpOnested ) of { ( !_tpIpp,!_tpIprec) -> - (case (({-# LINE 277 "PrintCode.ag" #-} + (case (({-# LINE 279 "PrintCode.ag" #-} "[" >|< _tpIpp >|< "]" - {-# LINE 3814 "PrintCode.hs" #-} + {-# LINE 3819 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 276 "PrintCode.ag" #-} + (case (({-# LINE 278 "PrintCode.ag" #-} 5 - {-# LINE 3819 "PrintCode.hs" #-} + {-# LINE 3824 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) })) ) @@ -3824,29 +3829,52 @@ T_Type sem_Type_NontermType !name_ !params_ = (T_Type (\ (!_lhsInested) -> - (case (({-# LINE 283 "PrintCode.ag" #-} + (case (({-# LINE 285 "PrintCode.ag" #-} text name_ >#< hv_sp params_ - {-# LINE 3830 "PrintCode.hs" #-} + {-# LINE 3835 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 282 "PrintCode.ag" #-} + (case (({-# LINE 284 "PrintCode.ag" #-} 5 - {-# LINE 3835 "PrintCode.hs" #-} + {-# LINE 3840 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) })) ) +sem_Type_QuantApp :: String -> + T_Type -> + T_Type +sem_Type_QuantApp !left_ !(T_Type right_ ) = + (T_Type (\ (!_lhsInested) -> + (case (({-# LINE 51 "PrintCode.ag" #-} + _lhsInested + {-# LINE 3851 "PrintCode.hs" #-} + )) of + { !_rightOnested -> + (case (right_ _rightOnested ) of + { ( !_rightIpp,!_rightIprec) -> + (case (({-# LINE 270 "PrintCode.ag" #-} + left_ >#< _rightIpp + {-# LINE 3858 "PrintCode.hs" #-} + )) of + { !_lhsOpp -> + (case (({-# LINE 258 "PrintCode.ag" #-} + _rightIprec + {-# LINE 3863 "PrintCode.hs" #-} + )) of + { !_lhsOprec -> + ( _lhsOpp,_lhsOprec) }) }) }) })) ) sem_Type_SimpleType :: String -> T_Type sem_Type_SimpleType !txt_ = (T_Type (\ (!_lhsInested) -> - (case (({-# LINE 280 "PrintCode.ag" #-} + (case (({-# LINE 282 "PrintCode.ag" #-} if reallySimple txt_ then text txt_ else pp_parens (text txt_) - {-# LINE 3845 "PrintCode.hs" #-} + {-# LINE 3873 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 279 "PrintCode.ag" #-} + (case (({-# LINE 281 "PrintCode.ag" #-} 5 - {-# LINE 3850 "PrintCode.hs" #-} + {-# LINE 3878 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) })) ) @@ -3857,26 +3885,26 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3861 "PrintCode.hs" #-} + {-# LINE 3889 "PrintCode.hs" #-} )) of { !_rightOnested -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3866 "PrintCode.hs" #-} + {-# LINE 3894 "PrintCode.hs" #-} )) of { !_leftOnested -> (case (right_ _rightOnested ) of { ( !_rightIpp,!_rightIprec) -> (case (left_ _leftOnested ) of { ( !_leftIpp,!_leftIprec) -> - (case (({-# LINE 287 "PrintCode.ag" #-} + (case (({-# LINE 289 "PrintCode.ag" #-} text "Either" >#< pp_parens _leftIpp >#< pp_parens _rightIpp - {-# LINE 3875 "PrintCode.hs" #-} + {-# LINE 3903 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 286 "PrintCode.ag" #-} + (case (({-# LINE 288 "PrintCode.ag" #-} 5 - {-# LINE 3880 "PrintCode.hs" #-} + {-# LINE 3908 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) }) }) })) ) @@ -3886,19 +3914,19 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3890 "PrintCode.hs" #-} + {-# LINE 3918 "PrintCode.hs" #-} )) of { !_valueOnested -> (case (value_ _valueOnested ) of { ( !_valueIpp,!_valueIprec) -> - (case (({-# LINE 291 "PrintCode.ag" #-} + (case (({-# LINE 293 "PrintCode.ag" #-} text "IntMap" >#< pp_parens _valueIpp - {-# LINE 3897 "PrintCode.hs" #-} + {-# LINE 3925 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 290 "PrintCode.ag" #-} + (case (({-# LINE 292 "PrintCode.ag" #-} 5 - {-# LINE 3902 "PrintCode.hs" #-} + {-# LINE 3930 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) })) ) @@ -3909,26 +3937,26 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3913 "PrintCode.hs" #-} + {-# LINE 3941 "PrintCode.hs" #-} )) of { !_valueOnested -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3918 "PrintCode.hs" #-} + {-# LINE 3946 "PrintCode.hs" #-} )) of { !_keyOnested -> (case (value_ _valueOnested ) of { ( !_valueIpp,!_valueIprec) -> (case (key_ _keyOnested ) of { ( !_keyIpp,!_keyIprec) -> - (case (({-# LINE 289 "PrintCode.ag" #-} + (case (({-# LINE 291 "PrintCode.ag" #-} text "Map" >#< pp_parens _keyIpp >#< pp_parens _valueIpp - {-# LINE 3927 "PrintCode.hs" #-} + {-# LINE 3955 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 288 "PrintCode.ag" #-} + (case (({-# LINE 290 "PrintCode.ag" #-} 5 - {-# LINE 3932 "PrintCode.hs" #-} + {-# LINE 3960 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) }) }) })) ) @@ -3938,19 +3966,19 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3942 "PrintCode.hs" #-} + {-# LINE 3970 "PrintCode.hs" #-} )) of { !_tpOnested -> (case (tp_ _tpOnested ) of { ( !_tpIpp,!_tpIprec) -> - (case (({-# LINE 285 "PrintCode.ag" #-} + (case (({-# LINE 287 "PrintCode.ag" #-} text "Maybe" >#< _tpIpp - {-# LINE 3949 "PrintCode.hs" #-} + {-# LINE 3977 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 284 "PrintCode.ag" #-} + (case (({-# LINE 286 "PrintCode.ag" #-} 5 - {-# LINE 3954 "PrintCode.hs" #-} + {-# LINE 3982 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) })) ) @@ -3960,19 +3988,19 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 53 "PrintCode.ag" #-} _lhsInested - {-# LINE 3964 "PrintCode.hs" #-} + {-# LINE 3992 "PrintCode.hs" #-} )) of { !_tpsOnested -> (case (tps_ _tpsOnested ) of { ( !_tpsIpps) -> - (case (({-# LINE 271 "PrintCode.ag" #-} + (case (({-# LINE 273 "PrintCode.ag" #-} ppTuple _lhsInested _tpsIpps - {-# LINE 3971 "PrintCode.hs" #-} + {-# LINE 3999 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 270 "PrintCode.ag" #-} + (case (({-# LINE 272 "PrintCode.ag" #-} 5 - {-# LINE 3976 "PrintCode.hs" #-} + {-# LINE 4004 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) })) ) @@ -3983,12 +4011,12 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 53 "PrintCode.ag" #-} _lhsInested - {-# LINE 3987 "PrintCode.hs" #-} + {-# LINE 4015 "PrintCode.hs" #-} )) of { !_argsOnested -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 3992 "PrintCode.hs" #-} + {-# LINE 4020 "PrintCode.hs" #-} )) of { !_funcOnested -> (case (args_ _argsOnested ) of @@ -3997,12 +4025,12 @@ { ( !_funcIpp,!_funcIprec) -> (case (({-# LINE 265 "PrintCode.ag" #-} hv_sp (_funcIpp : _argsIpps) - {-# LINE 4001 "PrintCode.hs" #-} + {-# LINE 4029 "PrintCode.hs" #-} )) of { !_lhsOpp -> (case (({-# LINE 258 "PrintCode.ag" #-} _funcIprec - {-# LINE 4006 "PrintCode.hs" #-} + {-# LINE 4034 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) }) }) })) ) @@ -4012,19 +4040,19 @@ (T_Type (\ (!_lhsInested) -> (case (({-# LINE 53 "PrintCode.ag" #-} _lhsInested - {-# LINE 4016 "PrintCode.hs" #-} + {-# LINE 4044 "PrintCode.hs" #-} )) of { !_tpsOnested -> (case (tps_ _tpsOnested ) of { ( !_tpsIpps) -> - (case (({-# LINE 274 "PrintCode.ag" #-} + (case (({-# LINE 276 "PrintCode.ag" #-} ppUnboxedTuple _lhsInested _tpsIpps - {-# LINE 4023 "PrintCode.hs" #-} + {-# LINE 4051 "PrintCode.hs" #-} )) of { !_lhsOpp -> - (case (({-# LINE 273 "PrintCode.ag" #-} + (case (({-# LINE 275 "PrintCode.ag" #-} 5 - {-# LINE 4028 "PrintCode.hs" #-} + {-# LINE 4056 "PrintCode.hs" #-} )) of { !_lhsOprec -> ( _lhsOpp,_lhsOprec) }) }) }) })) ) @@ -4064,12 +4092,12 @@ (T_Types (\ (!_lhsInested) -> (case (({-# LINE 53 "PrintCode.ag" #-} _lhsInested - {-# LINE 4068 "PrintCode.hs" #-} + {-# LINE 4096 "PrintCode.hs" #-} )) of { !_tlOnested -> (case (({-# LINE 51 "PrintCode.ag" #-} _lhsInested - {-# LINE 4073 "PrintCode.hs" #-} + {-# LINE 4101 "PrintCode.hs" #-} )) of { !_hdOnested -> (case (tl_ _tlOnested ) of @@ -4078,7 +4106,7 @@ { ( !_hdIpp,!_hdIprec) -> (case (({-# LINE 76 "PrintCode.ag" #-} _hdIpp : _tlIpps - {-# LINE 4082 "PrintCode.hs" #-} + {-# LINE 4110 "PrintCode.hs" #-} )) of { !_lhsOpps -> ( _lhsOpps) }) }) }) }) })) ) @@ -4087,7 +4115,7 @@ (T_Types (\ (!_lhsInested) -> (case (({-# LINE 77 "PrintCode.ag" #-} [] - {-# LINE 4091 "PrintCode.hs" #-} + {-# LINE 4119 "PrintCode.hs" #-} )) of { !_lhsOpps -> ( _lhsOpps) })) ) diff --git a/src-derived/PrintErrorMessages.hs b/src-derived/PrintErrorMessages.hs --- a/src-derived/PrintErrorMessages.hs +++ b/src-derived/PrintErrorMessages.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (PrintErrorMessages.ag) +-- UUAGC 0.9.38.1 (PrintErrorMessages.ag) module PrintErrorMessages where {-# LINE 4 "PrintErrorMessages.ag" #-} diff --git a/src-derived/PrintOcamlCode.hs b/src-derived/PrintOcamlCode.hs --- a/src-derived/PrintOcamlCode.hs +++ b/src-derived/PrintOcamlCode.hs @@ -1,6 +1,6 @@ {-# OPTIONS_GHC -XBangPatterns #-} --- UUAGC 0.9.37.1 (PrintOcamlCode.ag) +-- UUAGC 0.9.38.1 (PrintOcamlCode.ag) module PrintOcamlCode where {-# LINE 10 "PrintOcamlCode.ag" #-} @@ -54,12 +54,12 @@ toOcamlTC xs = xs {-# LINE 56 "../src-derived/PrintOcamlCode.hs" #-} -{-# LINE 143 "./Code.ag" #-} +{-# LINE 145 "./Code.ag" #-} -- Unboxed tuples -- unbox Whether unboxed tuples are wanted or not --- inh The inherited attributes. --- If there are none, no unboxing can take place, +-- inh The inherited attributes. +-- If there are none, no unboxing can take place, -- because in that case the semantic function (a top-level identifier) would have an unboxed type. -- Of course we can't have an unboxed 1-tuple mkTupleExpr :: Bool -> Bool -> Exprs -> Expr @@ -1978,6 +1978,9 @@ alternative NontermType: child name : {String} child params : {[String]} + alternative QuantApp: + child left : {String} + child right : Type alternative SimpleType: child txt : {String} alternative TEither: @@ -2009,6 +2012,8 @@ (sem_Type_List (sem_Type _tp ) ) sem_Type !(NontermType _name _params ) = (sem_Type_NontermType _name _params ) +sem_Type !(QuantApp _left _right ) = + (sem_Type_QuantApp _left (sem_Type _right ) ) sem_Type !(SimpleType _txt ) = (sem_Type_SimpleType _txt ) sem_Type !(TEither _left _right ) = @@ -2045,7 +2050,7 @@ { ( !_leftIpp) -> (case (({-# LINE 160 "PrintOcamlCode.ag" #-} pp_parens (_leftIpp >#< "->" >#< _rightIpp) - {-# LINE 2049 "PrintOcamlCode.hs" #-} + {-# LINE 2054 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) }) }) ) @@ -2055,7 +2060,7 @@ sem_Type_CtxApp !left_ !(T_Type right_ ) = (T_Type (case (({-# LINE 161 "PrintOcamlCode.ag" #-} error "pp of Type.CtxApp not supported" - {-# LINE 2059 "PrintOcamlCode.hs" #-} + {-# LINE 2064 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) ) @@ -2066,7 +2071,7 @@ { ( !_tpIpp) -> (case (({-# LINE 166 "PrintOcamlCode.ag" #-} _tpIpp >#< "list" - {-# LINE 2070 "PrintOcamlCode.hs" #-} + {-# LINE 2075 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) }) ) @@ -2076,16 +2081,28 @@ sem_Type_NontermType !name_ !params_ = (T_Type (case (({-# LINE 168 "PrintOcamlCode.ag" #-} pp_block "(" ")" " " (map text params_ ++ [text $ toOcamlTC name_]) - {-# LINE 2080 "PrintOcamlCode.hs" #-} + {-# LINE 2085 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) ) +sem_Type_QuantApp :: String -> + T_Type -> + T_Type +sem_Type_QuantApp !left_ !(T_Type right_ ) = + (T_Type (case (right_ ) of + { ( !_rightIpp) -> + (case (({-# LINE 53 "PrintOcamlCode.ag" #-} + _rightIpp + {-# LINE 2097 "PrintOcamlCode.hs" #-} + )) of + { !_lhsOpp -> + ( _lhsOpp) }) }) ) sem_Type_SimpleType :: String -> T_Type sem_Type_SimpleType !txt_ = (T_Type (case (({-# LINE 167 "PrintOcamlCode.ag" #-} text txt_ - {-# LINE 2089 "PrintOcamlCode.hs" #-} + {-# LINE 2106 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) ) @@ -2095,7 +2112,7 @@ sem_Type_TEither !(T_Type left_ ) !(T_Type right_ ) = (T_Type (case (({-# LINE 170 "PrintOcamlCode.ag" #-} error "pp of Type.TEither is not supported" - {-# LINE 2099 "PrintOcamlCode.hs" #-} + {-# LINE 2116 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) ) @@ -2104,7 +2121,7 @@ sem_Type_TIntMap !(T_Type value_ ) = (T_Type (case (({-# LINE 172 "PrintOcamlCode.ag" #-} error "pp of Type.TIntMap is not supported" - {-# LINE 2108 "PrintOcamlCode.hs" #-} + {-# LINE 2125 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) ) @@ -2114,7 +2131,7 @@ sem_Type_TMap !(T_Type key_ ) !(T_Type value_ ) = (T_Type (case (({-# LINE 171 "PrintOcamlCode.ag" #-} error "pp of Type.TMap is not supported" - {-# LINE 2118 "PrintOcamlCode.hs" #-} + {-# LINE 2135 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) ) @@ -2125,7 +2142,7 @@ { ( !_tpIpp) -> (case (({-# LINE 169 "PrintOcamlCode.ag" #-} _tpIpp >#< "opt" - {-# LINE 2129 "PrintOcamlCode.hs" #-} + {-# LINE 2146 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) }) ) @@ -2136,7 +2153,7 @@ { ( !_tpsIpps) -> (case (({-# LINE 163 "PrintOcamlCode.ag" #-} pp_block "(" ")" "," _tpsIpps - {-# LINE 2140 "PrintOcamlCode.hs" #-} + {-# LINE 2157 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) }) ) @@ -2150,7 +2167,7 @@ { ( !_funcIpp) -> (case (({-# LINE 162 "PrintOcamlCode.ag" #-} pp_parens (hv_sp (_argsIpps ++ [_funcIpp])) - {-# LINE 2154 "PrintOcamlCode.hs" #-} + {-# LINE 2171 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) }) }) ) @@ -2159,7 +2176,7 @@ sem_Type_UnboxedTupleType !(T_Types tps_ ) = (T_Type (case (({-# LINE 165 "PrintOcamlCode.ag" #-} error "pp of Type.UnboxedTupleType is not supported" - {-# LINE 2163 "PrintOcamlCode.hs" #-} + {-# LINE 2180 "PrintOcamlCode.hs" #-} )) of { !_lhsOpp -> ( _lhsOpp) }) ) @@ -2199,7 +2216,7 @@ { ( !_hdIpp) -> (case (({-# LINE 72 "PrintOcamlCode.ag" #-} _hdIpp : _tlIpps - {-# LINE 2203 "PrintOcamlCode.hs" #-} + {-# LINE 2220 "PrintOcamlCode.hs" #-} )) of { !_lhsOpps -> ( _lhsOpps) }) }) }) ) @@ -2207,7 +2224,7 @@ sem_Types_Nil = (T_Types (case (({-# LINE 73 "PrintOcamlCode.ag" #-} [] - {-# LINE 2211 "PrintOcamlCode.hs" #-} + {-# LINE 2228 "PrintOcamlCode.hs" #-} )) of { !_lhsOpps -> ( _lhsOpps) }) ) diff --git a/src-derived/PrintVisitCode.hs b/src-derived/PrintVisitCode.hs --- a/src-derived/PrintVisitCode.hs +++ b/src-derived/PrintVisitCode.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (PrintVisitCode.ag) +-- UUAGC 0.9.38.1 (PrintVisitCode.ag) module PrintVisitCode where {-# LINE 10 "PrintVisitCode.ag" #-} @@ -74,6 +74,7 @@ child pragmas : {PragmaMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Set Identifier))} child mergeMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))} child multivisit : {Bool} @@ -81,8 +82,8 @@ -- cata sem_CGrammar :: CGrammar -> T_CGrammar -sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) = - (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _aroundsMap _mergeMap _multivisit ) +sem_CGrammar (CGrammar _typeSyns _derivings _wrappers _nonts _pragmas _paramMap _contextMap _quantMap _aroundsMap _mergeMap _multivisit ) = + (sem_CGrammar_CGrammar _typeSyns _derivings _wrappers (sem_CNonterminals _nonts ) _pragmas _paramMap _contextMap _quantMap _aroundsMap _mergeMap _multivisit ) -- semantic domain newtype T_CGrammar = T_CGrammar (Options -> ( PP_Docs)) @@ -101,15 +102,16 @@ PragmaMap -> ParamMap -> ContextMap -> + QuantMap -> (Map NontermIdent (Map ConstructorIdent (Set Identifier))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier,[Identifier])))) -> Bool -> T_CGrammar -sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ aroundsMap_ mergeMap_ multivisit_ = +sem_CGrammar_CGrammar typeSyns_ derivings_ wrappers_ (T_CNonterminals nonts_ ) pragmas_ paramMap_ contextMap_ quantMap_ aroundsMap_ mergeMap_ multivisit_ = (T_CGrammar (\ _lhsIoptions -> (case (({-# LINE 53 "PrintVisitCode.ag" #-} [] - {-# LINE 113 "PrintVisitCode.hs" #-} + {-# LINE 115 "PrintVisitCode.hs" #-} )) of { _lhsOoutput -> ( _lhsOoutput) })) ) @@ -592,12 +594,12 @@ { ( _patIcopy) -> (case (({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 596 "PrintVisitCode.hs" #-} + {-# LINE 598 "PrintVisitCode.hs" #-} )) of { _copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 601 "PrintVisitCode.hs" #-} + {-# LINE 603 "PrintVisitCode.hs" #-} )) of { _lhsOcopy -> ( _lhsOcopy) }) }) }) }) ) @@ -609,12 +611,12 @@ { ( _patsIcopy) -> (case (({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 613 "PrintVisitCode.hs" #-} + {-# LINE 615 "PrintVisitCode.hs" #-} )) of { _copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 618 "PrintVisitCode.hs" #-} + {-# LINE 620 "PrintVisitCode.hs" #-} )) of { _lhsOcopy -> ( _lhsOcopy) }) }) }) ) @@ -625,12 +627,12 @@ { ( _patIcopy) -> (case (({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 629 "PrintVisitCode.hs" #-} + {-# LINE 631 "PrintVisitCode.hs" #-} )) of { _copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 634 "PrintVisitCode.hs" #-} + {-# LINE 636 "PrintVisitCode.hs" #-} )) of { _lhsOcopy -> ( _lhsOcopy) }) }) }) ) @@ -642,12 +644,12 @@ { ( _patsIcopy) -> (case (({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 646 "PrintVisitCode.hs" #-} + {-# LINE 648 "PrintVisitCode.hs" #-} )) of { _copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 651 "PrintVisitCode.hs" #-} + {-# LINE 653 "PrintVisitCode.hs" #-} )) of { _lhsOcopy -> ( _lhsOcopy) }) }) }) ) @@ -656,12 +658,12 @@ sem_Pattern_Underscore pos_ = (T_Pattern (case (({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 660 "PrintVisitCode.hs" #-} + {-# LINE 662 "PrintVisitCode.hs" #-} )) of { _copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 665 "PrintVisitCode.hs" #-} + {-# LINE 667 "PrintVisitCode.hs" #-} )) of { _lhsOcopy -> ( _lhsOcopy) }) }) ) @@ -705,12 +707,12 @@ { ( _hdIcopy) -> (case (({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 709 "PrintVisitCode.hs" #-} + {-# LINE 711 "PrintVisitCode.hs" #-} )) of { _copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 714 "PrintVisitCode.hs" #-} + {-# LINE 716 "PrintVisitCode.hs" #-} )) of { _lhsOcopy -> ( _lhsOcopy) }) }) }) }) ) @@ -718,12 +720,12 @@ sem_Patterns_Nil = (T_Patterns (case (({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 722 "PrintVisitCode.hs" #-} + {-# LINE 724 "PrintVisitCode.hs" #-} )) of { _copy -> (case (({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 727 "PrintVisitCode.hs" #-} + {-# LINE 729 "PrintVisitCode.hs" #-} )) of { _lhsOcopy -> ( _lhsOcopy) }) }) ) diff --git a/src-derived/SemHsTokens.hs b/src-derived/SemHsTokens.hs --- a/src-derived/SemHsTokens.hs +++ b/src-derived/SemHsTokens.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (SemHsTokens.ag) +-- UUAGC 0.9.38.1 (SemHsTokens.ag) module SemHsTokens where {-# LINE 4 "SemHsTokens.ag" #-} diff --git a/src-derived/TfmToVisage.hs b/src-derived/TfmToVisage.hs --- a/src-derived/TfmToVisage.hs +++ b/src-derived/TfmToVisage.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (TfmToVisage.ag) +-- UUAGC 0.9.38.1 (TfmToVisage.ag) module TfmToVisage where {-# LINE 8 "TfmToVisage.ag" #-} @@ -268,6 +268,7 @@ child manualAttrOrderMap : {AttrOrderMap} child paramMap : {ParamMap} child contextMap : {ContextMap} + child quantMap : {QuantMap} child uniqueMap : {UniqueMap} child augmentsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} child aroundsMap : {Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))} @@ -276,8 +277,8 @@ -- cata sem_Grammar :: Grammar -> T_Grammar -sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = - (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) +sem_Grammar (Grammar _typeSyns _useMap _derivings _wrappers _nonts _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) = + (sem_Grammar_Grammar _typeSyns _useMap _derivings _wrappers (sem_Nonterminals _nonts ) _pragmas _manualAttrOrderMap _paramMap _contextMap _quantMap _uniqueMap _augmentsMap _aroundsMap _mergeMap ) -- semantic domain newtype T_Grammar = T_Grammar (( VisageGrammar)) data Inh_Grammar = Inh_Grammar {} @@ -297,19 +298,20 @@ AttrOrderMap -> ParamMap -> ContextMap -> + QuantMap -> UniqueMap -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression]))) -> (Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression)))) -> T_Grammar -sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = +sem_Grammar_Grammar typeSyns_ useMap_ derivings_ wrappers_ (T_Nonterminals nonts_ ) pragmas_ manualAttrOrderMap_ paramMap_ contextMap_ quantMap_ uniqueMap_ augmentsMap_ aroundsMap_ mergeMap_ = (T_Grammar (let _lhsOvisage :: VisageGrammar _nontsIvnonts :: ([VisageNonterminal]) -- "TfmToVisage.ag"(line 87, column 7) _lhsOvisage = ({-# LINE 87 "TfmToVisage.ag" #-} VGrammar _nontsIvnonts - {-# LINE 313 "TfmToVisage.hs" #-} + {-# LINE 315 "TfmToVisage.hs" #-} ) ( _nontsIvnonts) = nonts_ @@ -355,7 +357,7 @@ _lhsOvnont = ({-# LINE 97 "TfmToVisage.ag" #-} VNonterminal nt_ inh_ syn_ _prodsIvprods - {-# LINE 359 "TfmToVisage.hs" #-} + {-# LINE 361 "TfmToVisage.hs" #-} ) ( _prodsIvprods) = prods_ @@ -397,7 +399,7 @@ _lhsOvnonts = ({-# LINE 91 "TfmToVisage.ag" #-} _hdIvnont : _tlIvnonts - {-# LINE 401 "TfmToVisage.hs" #-} + {-# LINE 403 "TfmToVisage.hs" #-} ) ( _hdIvnont) = hd_ @@ -411,7 +413,7 @@ _lhsOvnonts = ({-# LINE 93 "TfmToVisage.ag" #-} [] - {-# LINE 415 "TfmToVisage.hs" #-} + {-# LINE 417 "TfmToVisage.hs" #-} ) in ( _lhsOvnonts)) ) -- Pattern ----------------------------------------------------- @@ -501,37 +503,37 @@ if (isVar _self) then VVar field_ attr_ else VAlias field_ attr_ _patIvpat - {-# LINE 505 "TfmToVisage.hs" #-} + {-# LINE 507 "TfmToVisage.hs" #-} ) -- "TfmToVisage.ag"(line 144, column 17) _lhsOfieldattrs = ({-# LINE 144 "TfmToVisage.ag" #-} [(field_, attr_)] - {-# LINE 511 "TfmToVisage.hs" #-} + {-# LINE 513 "TfmToVisage.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 517 "TfmToVisage.hs" #-} + {-# LINE 519 "TfmToVisage.hs" #-} ) -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} Alias field_ attr_ _patIself _partsIself - {-# LINE 523 "TfmToVisage.hs" #-} + {-# LINE 525 "TfmToVisage.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 529 "TfmToVisage.hs" #-} + {-# LINE 531 "TfmToVisage.hs" #-} ) -- self rule _lhsOself = ({-# LINE 71 "TfmToVisage.ag" #-} _self - {-# LINE 535 "TfmToVisage.hs" #-} + {-# LINE 537 "TfmToVisage.hs" #-} ) ( _patIcopy,_patIfieldattrs,_patIself,_patIvpat) = pat_ @@ -554,37 +556,37 @@ _lhsOvpat = ({-# LINE 133 "TfmToVisage.ag" #-} VConstr name_ _patsIvpats - {-# LINE 558 "TfmToVisage.hs" #-} + {-# LINE 560 "TfmToVisage.hs" #-} ) -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = ({-# LINE 141 "TfmToVisage.ag" #-} _patsIfieldattrs - {-# LINE 564 "TfmToVisage.hs" #-} + {-# LINE 566 "TfmToVisage.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Constr name_ _patsIcopy - {-# LINE 570 "TfmToVisage.hs" #-} + {-# LINE 572 "TfmToVisage.hs" #-} ) -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} Constr name_ _patsIself - {-# LINE 576 "TfmToVisage.hs" #-} + {-# LINE 578 "TfmToVisage.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 582 "TfmToVisage.hs" #-} + {-# LINE 584 "TfmToVisage.hs" #-} ) -- self rule _lhsOself = ({-# LINE 71 "TfmToVisage.ag" #-} _self - {-# LINE 588 "TfmToVisage.hs" #-} + {-# LINE 590 "TfmToVisage.hs" #-} ) ( _patsIcopy,_patsIfieldattrs,_patsIself,_patsIvpats) = pats_ @@ -604,37 +606,37 @@ _lhsOfieldattrs = ({-# LINE 141 "TfmToVisage.ag" #-} _patIfieldattrs - {-# LINE 608 "TfmToVisage.hs" #-} + {-# LINE 610 "TfmToVisage.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Irrefutable _patIcopy - {-# LINE 614 "TfmToVisage.hs" #-} + {-# LINE 616 "TfmToVisage.hs" #-} ) -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} Irrefutable _patIself - {-# LINE 620 "TfmToVisage.hs" #-} + {-# LINE 622 "TfmToVisage.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 626 "TfmToVisage.hs" #-} + {-# LINE 628 "TfmToVisage.hs" #-} ) -- self rule _lhsOself = ({-# LINE 71 "TfmToVisage.ag" #-} _self - {-# LINE 632 "TfmToVisage.hs" #-} + {-# LINE 634 "TfmToVisage.hs" #-} ) -- copy rule (up) _lhsOvpat = ({-# LINE 82 "TfmToVisage.ag" #-} _patIvpat - {-# LINE 638 "TfmToVisage.hs" #-} + {-# LINE 640 "TfmToVisage.hs" #-} ) ( _patIcopy,_patIfieldattrs,_patIself,_patIvpat) = pat_ @@ -655,37 +657,37 @@ _lhsOvpat = ({-# LINE 134 "TfmToVisage.ag" #-} VProduct pos_ _patsIvpats - {-# LINE 659 "TfmToVisage.hs" #-} + {-# LINE 661 "TfmToVisage.hs" #-} ) -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = ({-# LINE 141 "TfmToVisage.ag" #-} _patsIfieldattrs - {-# LINE 665 "TfmToVisage.hs" #-} + {-# LINE 667 "TfmToVisage.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Product pos_ _patsIcopy - {-# LINE 671 "TfmToVisage.hs" #-} + {-# LINE 673 "TfmToVisage.hs" #-} ) -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} Product pos_ _patsIself - {-# LINE 677 "TfmToVisage.hs" #-} + {-# LINE 679 "TfmToVisage.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 683 "TfmToVisage.hs" #-} + {-# LINE 685 "TfmToVisage.hs" #-} ) -- self rule _lhsOself = ({-# LINE 71 "TfmToVisage.ag" #-} _self - {-# LINE 689 "TfmToVisage.hs" #-} + {-# LINE 691 "TfmToVisage.hs" #-} ) ( _patsIcopy,_patsIfieldattrs,_patsIself,_patsIvpats) = pats_ @@ -701,37 +703,37 @@ _lhsOvpat = ({-# LINE 138 "TfmToVisage.ag" #-} VUnderscore pos_ - {-# LINE 705 "TfmToVisage.hs" #-} + {-# LINE 707 "TfmToVisage.hs" #-} ) -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = ({-# LINE 141 "TfmToVisage.ag" #-} [] - {-# LINE 711 "TfmToVisage.hs" #-} + {-# LINE 713 "TfmToVisage.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} Underscore pos_ - {-# LINE 717 "TfmToVisage.hs" #-} + {-# LINE 719 "TfmToVisage.hs" #-} ) -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} Underscore pos_ - {-# LINE 723 "TfmToVisage.hs" #-} + {-# LINE 725 "TfmToVisage.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 729 "TfmToVisage.hs" #-} + {-# LINE 731 "TfmToVisage.hs" #-} ) -- self rule _lhsOself = ({-# LINE 71 "TfmToVisage.ag" #-} _self - {-# LINE 735 "TfmToVisage.hs" #-} + {-# LINE 737 "TfmToVisage.hs" #-} ) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpat)) ) -- Patterns ---------------------------------------------------- @@ -789,37 +791,37 @@ _lhsOvpats = ({-# LINE 129 "TfmToVisage.ag" #-} _hdIvpat : _tlIvpats - {-# LINE 793 "TfmToVisage.hs" #-} + {-# LINE 795 "TfmToVisage.hs" #-} ) -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = ({-# LINE 141 "TfmToVisage.ag" #-} _hdIfieldattrs ++ _tlIfieldattrs - {-# LINE 799 "TfmToVisage.hs" #-} + {-# LINE 801 "TfmToVisage.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} (:) _hdIcopy _tlIcopy - {-# LINE 805 "TfmToVisage.hs" #-} + {-# LINE 807 "TfmToVisage.hs" #-} ) -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} (:) _hdIself _tlIself - {-# LINE 811 "TfmToVisage.hs" #-} + {-# LINE 813 "TfmToVisage.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 817 "TfmToVisage.hs" #-} + {-# LINE 819 "TfmToVisage.hs" #-} ) -- self rule _lhsOself = ({-# LINE 71 "TfmToVisage.ag" #-} _self - {-# LINE 823 "TfmToVisage.hs" #-} + {-# LINE 825 "TfmToVisage.hs" #-} ) ( _hdIcopy,_hdIfieldattrs,_hdIself,_hdIvpat) = hd_ @@ -836,37 +838,37 @@ _lhsOvpats = ({-# LINE 130 "TfmToVisage.ag" #-} [] - {-# LINE 840 "TfmToVisage.hs" #-} + {-# LINE 842 "TfmToVisage.hs" #-} ) -- use rule "TfmToVisage.ag"(line 141, column 43) _lhsOfieldattrs = ({-# LINE 141 "TfmToVisage.ag" #-} [] - {-# LINE 846 "TfmToVisage.hs" #-} + {-# LINE 848 "TfmToVisage.hs" #-} ) -- self rule _copy = ({-# LINE 23 "./Patterns.ag" #-} [] - {-# LINE 852 "TfmToVisage.hs" #-} + {-# LINE 854 "TfmToVisage.hs" #-} ) -- self rule _self = ({-# LINE 71 "TfmToVisage.ag" #-} [] - {-# LINE 858 "TfmToVisage.hs" #-} + {-# LINE 860 "TfmToVisage.hs" #-} ) -- self rule _lhsOcopy = ({-# LINE 23 "./Patterns.ag" #-} _copy - {-# LINE 864 "TfmToVisage.hs" #-} + {-# LINE 866 "TfmToVisage.hs" #-} ) -- self rule _lhsOself = ({-# LINE 71 "TfmToVisage.ag" #-} _self - {-# LINE 870 "TfmToVisage.hs" #-} + {-# LINE 872 "TfmToVisage.hs" #-} ) in ( _lhsOcopy,_lhsOfieldattrs,_lhsOself,_lhsOvpats)) ) -- Production -------------------------------------------------- @@ -914,31 +916,31 @@ _lhsOvprod = ({-# LINE 107 "TfmToVisage.ag" #-} VProduction con_ _childrenIvchildren _lhsrules _locrules - {-# LINE 918 "TfmToVisage.hs" #-} + {-# LINE 920 "TfmToVisage.hs" #-} ) -- "TfmToVisage.ag"(line 108, column 7) _splitVRules = ({-# LINE 108 "TfmToVisage.ag" #-} splitVRules _rulesIvrules - {-# LINE 924 "TfmToVisage.hs" #-} + {-# LINE 926 "TfmToVisage.hs" #-} ) -- "TfmToVisage.ag"(line 109, column 7) _locrules = ({-# LINE 109 "TfmToVisage.ag" #-} getForField "loc" _splitVRules - {-# LINE 930 "TfmToVisage.hs" #-} + {-# LINE 932 "TfmToVisage.hs" #-} ) -- "TfmToVisage.ag"(line 110, column 7) _lhsrules = ({-# LINE 110 "TfmToVisage.ag" #-} getForField "lhs" _splitVRules - {-# LINE 936 "TfmToVisage.hs" #-} + {-# LINE 938 "TfmToVisage.hs" #-} ) -- "TfmToVisage.ag"(line 111, column 7) _childrenOrulemap = ({-# LINE 111 "TfmToVisage.ag" #-} _splitVRules - {-# LINE 942 "TfmToVisage.hs" #-} + {-# LINE 944 "TfmToVisage.hs" #-} ) ( _childrenIvchildren) = children_ _childrenOrulemap @@ -982,7 +984,7 @@ _lhsOvprods = ({-# LINE 101 "TfmToVisage.ag" #-} _hdIvprod : _tlIvprods - {-# LINE 986 "TfmToVisage.hs" #-} + {-# LINE 988 "TfmToVisage.hs" #-} ) ( _hdIvprod) = hd_ @@ -996,7 +998,7 @@ _lhsOvprods = ({-# LINE 103 "TfmToVisage.ag" #-} [] - {-# LINE 1000 "TfmToVisage.hs" #-} + {-# LINE 1002 "TfmToVisage.hs" #-} ) in ( _lhsOvprods)) ) -- Rule -------------------------------------------------------- @@ -1046,7 +1048,7 @@ _lhsOvrule = ({-# LINE 126 "TfmToVisage.ag" #-} VRule _patternIfieldattrs undefined _patternIvpat _rhsIself owrt_ - {-# LINE 1050 "TfmToVisage.hs" #-} + {-# LINE 1052 "TfmToVisage.hs" #-} ) ( _patternIcopy,_patternIfieldattrs,_patternIself,_patternIvpat) = pattern_ @@ -1090,7 +1092,7 @@ _lhsOvrules = ({-# LINE 121 "TfmToVisage.ag" #-} _hdIvrule : _tlIvrules - {-# LINE 1094 "TfmToVisage.hs" #-} + {-# LINE 1096 "TfmToVisage.hs" #-} ) ( _hdIvrule) = hd_ @@ -1104,7 +1106,7 @@ _lhsOvrules = ({-# LINE 122 "TfmToVisage.ag" #-} [] - {-# LINE 1108 "TfmToVisage.hs" #-} + {-# LINE 1110 "TfmToVisage.hs" #-} ) in ( _lhsOvrules)) ) -- TypeSig ----------------------------------------------------- diff --git a/src-derived/Transform.hs b/src-derived/Transform.hs --- a/src-derived/Transform.hs +++ b/src-derived/Transform.hs @@ -1,7082 +1,7194 @@ --- UUAGC 0.9.37.2 (Transform.ag) -module Transform where -{-# LINE 8 "Transform.ag" #-} - -import Control.Monad(mplus,mzero) -import List (partition, elem, nub,intersperse) -import Data.Maybe -import qualified Data.Map as Map -import Data.Map (Map) -import Data.Set as Set (Set, member, union, toList, fromList, empty, singleton, member, unions, size, fold, intersection, difference, insert) -import qualified Data.Sequence as Seq -import Data.Sequence(Seq, empty, (><),fromList) -import Data.Foldable(toList) -import UU.Scanner.Position(noPos) - -import ConcreteSyntax -import AbstractSyntax -import ErrorMessages -import Patterns (Patterns(..),Pattern(..)) -import Expression (Expression(..)) -import HsToken - -import Options -import CommonTypes -import RhsCheck -{-# LINE 29 "../src-derived/Transform.hs" #-} - -{-# LINE 2 "./ConcreteSyntax.ag" #-} - -import UU.Scanner.Position (Pos) -import Patterns (Pattern) -import Expression (Expression) -import CommonTypes -{-# LINE 37 "../src-derived/Transform.hs" #-} - -{-# LINE 2 "./Patterns.ag" #-} - --- Patterns.ag imports -import UU.Scanner.Position(Pos) -import CommonTypes (ConstructorIdent,Identifier) -{-# LINE 44 "../src-derived/Transform.hs" #-} -{-# LINE 101 "Transform.ag" #-} -type DefinedSets = Map Identifier (Set NontermIdent) -{-# LINE 47 "../src-derived/Transform.hs" #-} - -{-# LINE 121 "Transform.ag" #-} -type FieldMap = [(Identifier, Type)] -{-# LINE 51 "../src-derived/Transform.hs" #-} - -{-# LINE 122 "Transform.ag" #-} -type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) -{-# LINE 55 "../src-derived/Transform.hs" #-} - -{-# LINE 142 "Transform.ag" #-} -type AttrName = (Identifier,Identifier) -{-# LINE 59 "../src-derived/Transform.hs" #-} - -{-# LINE 143 "Transform.ag" #-} -type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) -{-# LINE 63 "../src-derived/Transform.hs" #-} - -{-# LINE 144 "Transform.ag" #-} -type SigInfo = (Identifier,Type) -{-# LINE 67 "../src-derived/Transform.hs" #-} - -{-# LINE 145 "Transform.ag" #-} -type UniqueInfo = (Identifier,Identifier) -{-# LINE 71 "../src-derived/Transform.hs" #-} - -{-# LINE 146 "Transform.ag" #-} -type AugmentInfo = (Identifier,Expression) -{-# LINE 75 "../src-derived/Transform.hs" #-} - -{-# LINE 147 "Transform.ag" #-} -type AroundInfo = (Identifier,Expression) -{-# LINE 79 "../src-derived/Transform.hs" #-} - -{-# LINE 148 "Transform.ag" #-} -type MergeInfo = (Identifier, Identifier, [Identifier], Expression) -{-# LINE 83 "../src-derived/Transform.hs" #-} - -{-# LINE 202 "Transform.ag" #-} - - -checkDuplicate :: (Identifier -> Identifier -> Error) - -> Identifier -> val -> Map Identifier val -> (Map Identifier val,Seq Error) -checkDuplicate dupError key val m - = case Map.lookupIndex key m of - Just ix -> let (key',_) = Map.elemAt ix m - in (m,Seq.singleton (dupError key key')) - Nothing -> (Map.insert key val m,Seq.empty) - -checkDuplicates :: (Identifier -> Identifier -> Error) - -> [(Identifier, val)] -> Map Identifier val -> (Map Identifier val,Seq Error) -checkDuplicates dupError new m = foldErrors check m new - where check = uncurry (checkDuplicate dupError) - -foldErrors f e xs = foldl g (e,Seq.empty) xs - where g ~(e,es) x = let (e',es') = f x e - in (e', es >< es') - - -checkForDuplicates :: (Identifier -> Identifier -> Error) -> [Identifier] -> [Error] -checkForDuplicates err [] = [] -checkForDuplicates err (x:xs) = let (same,other) = List.partition (equalId x) xs - in map (err x) same ++ checkForDuplicates err other - -equalId :: Identifier -> Identifier -> Bool -equalId x y = getName x == getName y - -{-# LINE 114 "../src-derived/Transform.hs" #-} - -{-# LINE 338 "Transform.ag" #-} - -type RulesAndErrors = ([Rule], Seq Error) -type SigsAndErrors = ([TypeSig], Seq Error) -type InstsAndErrors = ([(Identifier, Type)], Seq Error) -type UniquesAndErrors = (Map Identifier Identifier, Seq Error) -type AugmentsAndErrors = (Map Identifier [Expression], Seq Error) -type AroundsAndErrors = (Map Identifier [Expression], Seq Error) -type MergesAndErrors = (Map Identifier (Identifier, [Identifier], Expression), Seq Error) -type AttrOverwrite = Map AttrName Bool -type AccumRuleCheck = (RulesAndErrors, AttrOverwrite) -type AccumDefiCheck = (Seq Error, AttrOverwrite, [AttrName], [AttrName]) - -checkRules :: Map NontermIdent (Attributes, Attributes) -> Map NontermIdent (Map ConstructorIdent FieldMap) -> - Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> - Map NontermIdent (Map ConstructorIdent [MergeInfo]) -> - NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors -checkRules attributes fields allinsts allsigs allmerges nt con rs - = let fieldmap :: FieldMap - fieldmap = (_LHS,NT nt undefined) : (_LOC,NT undefined undefined) : (_INST, NT undefined undefined) : (_FIRST, NT undefined undefined) : (_LAST, NT undefined undefined) - : Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fields) - ++ mapMaybe (\instNm -> lookup instNm sigs >>= \tp -> return (instNm, tp)) (Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allinsts)) - -- merged children are not allowed to have any inherited attrs defined: do not include - - sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allsigs) - - hasAttrib f tp attr = Map.member attr (f (Map.findWithDefault (Map.empty,Map.empty) tp attributes)) - - checkRule :: RuleInfo -> AccumRuleCheck -> AccumRuleCheck - checkRule (mbNm, pat,exp,as,owrt,str) ((r1,e1),m1) - = let (e2,m2,u2,b2) = foldr (checkDefi owrt) (e1,m1,[],[]) as - in ( (Rule mbNm (pat u2) exp owrt str True : r1, e2), m2) - - checkDefi :: Bool -> AttrName -> AccumDefiCheck -> AccumDefiCheck - checkDefi owrt fa@(field,attr) (e,m,u,bs) - = case lookup field fieldmap - of Just (NT tp _) -> - let tp' = maybe tp id (deforestedNt tp) - in if field == _LOC || field == _INST || field == _FIRST || field == _LAST - || hasAttrib (if getName field==getName _LHS then snd else fst) tp' attr - then case Map.lookupIndex fa m of - Just ix -> let ((_,attr2),b) = Map.elemAt ix m - in if b && not (fa `elem` bs) - then ( e, Map.insert fa owrt m, fa:u, fa:bs) - else (((Seq.<|)) (DupRule nt con field attr2 attr) e, m, fa:u, bs) - Nothing -> ( e, Map.insert fa owrt m, u, fa:bs) - else (((Seq.<|)) (SuperfluousRule nt con field attr) e, m, fa:u, bs) - _ -> (((Seq.<|)) (UndefChild nt con field) e, m, fa:u, bs ) - - in fst (foldr checkRule (([],Seq.empty),Map.empty) rs) - -checkRuleNames :: NontermIdent -> ConstructorIdent -> [RuleInfo] -> Seq Error -checkRuleNames nt con - = fst . foldr checkRule (Seq.empty, Set.empty) - where - checkRule (Just nm,_,_,_,_,_) (errs, nms) - | nm `Set.member` nms = (DupRuleName nt con nm Seq.<| errs, nms) - | otherwise = (errs, Set.insert nm nms) - checkRule (Nothing,_,_,_,_,_) inp = inp - -checkSigs :: NontermIdent -> ConstructorIdent -> [SigInfo] -> SigsAndErrors -checkSigs nt con sis - = let checkSig (ide,typ) (sigs,errs) - = if ide `elem` map (\(TypeSig n t)-> n) sigs - then (sigs, ((Seq.<|)) (DupSig nt con ide) errs) - -- else if not (ide `elem` locattrdefs) - -- then (sigs, ((Seq.<|)) (SupSig nt con ide) errs) - else (TypeSig ide typ:sigs, errs) - in foldr checkSig ([],Seq.empty) sis - -checkInsts :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [Identifier] -> InstsAndErrors -checkInsts allNts sigMap fieldMap nt con - = foldr (\inst (insts, errs) -> - maybe (insts, Seq.singleton (MissingInstSig nt con inst) >< errs) - (\info@(k, NT nm _) -> - case findInst k insts of - Just k' -> (insts, Seq.singleton (DupChild nt con k k') >< errs) - Nothing -> case nm `Set.member` allNts of - True -> (info : insts, errs) - False | take 2 (getName nm) == "T_" -> let nm' = Ident (drop 2 (getName nm)) (getPos nm) - in case nm' `Set.member` allNts of - True -> (info : insts, errs) - False -> (insts, Seq.singleton (UndefNont nm') >< errs) - | otherwise -> (insts, Seq.singleton (UndefNont nm) >< errs) - ) - $ findSig inst - ) ([], Seq.empty) - where - sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt sigMap) - - findSig name - = do tp@(NT _ _) <- lookup name sigs - return (name, tp) - - findInst _ [] = Nothing - findInst k ((k', _): r) - | k == k' = Just k' - | otherwise = findInst k r - -checkUniques :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [UniqueInfo] -> UniquesAndErrors -checkUniques allAttrs nt con uniques - = let checkUnique (ident,ref) (us,errs) - = if ident `Map.member` us - then (us, ((Seq.<|)) (DupUnique nt con ident) errs) - else if Map.member ref inhs && Map.member ref syns - then (Map.insert ident ref us, errs) - else (us, ((Seq.<|)) (MissingUnique nt ref) errs) - - (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs - in foldr checkUnique (Map.empty, Seq.empty) uniques - -checkAugments :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [AugmentInfo] -> AugmentsAndErrors -checkAugments allAttrs nt con augments - = let checkAugment (ident,expr) (as,errs) - = if ident `Map.member` as - then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs) - else if Map.member ident syns - then (Map.insert ident [expr] as, errs) - else (as, ((Seq.<|)) (MissingSyn nt ident) errs) - - (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs - in foldr checkAugment (Map.empty, Seq.empty) augments - -checkArounds :: Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [AroundInfo] -> AroundsAndErrors -checkArounds fieldMap nt con arounds - = let checkAround (ident,expr) (as,errs) - = if ident `Map.member` as - then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs) - else case lookup ident fields of - Just (NT _ _) -> (Map.insert ident [expr] as, errs) - _ -> (as, ((Seq.<|)) (UndefChild nt con ident) errs) - fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap) - in foldr checkAround (Map.empty, Seq.empty) arounds - -checkMerges :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [MergeInfo] -> MergesAndErrors -checkMerges allNts allInsts fieldMap nt con merges - = let checkMerge (target,nt,sources,expr) (m,errs) - = let fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap) - insts = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts) - allFields = insts ++ map fst fields -- note: sources of merge may not contain a target (for simplicity) - in if target `Map.member` m -- check for duplicate with self - then (m, DupChild nt con target (fst $ Map.elemAt (Map.findIndex target m) m) Seq.<| errs) - else if target `elem` allFields - then (m, DupChild nt con target (head $ filter (== target) allFields) Seq.<| errs) - else let missing = filter (\s -> not (s `elem` allFields)) sources - in if null missing - then if nt `Set.member` allNts -- check if the nonterm is defined - then (Map.insert target (nt, sources, expr) m, errs) -- all ok.. - else (m, UndefNont nt Seq.<| errs) - else (m, (Seq.fromList $ map (UndefChild nt con) missing) Seq.>< errs) - in foldr checkMerge (Map.empty, Seq.empty) merges - -unionunionplusplus = Map.unionWith (Map.unionWith (++)) -{-# LINE 269 "../src-derived/Transform.hs" #-} - -{-# LINE 493 "Transform.ag" #-} - -mkUniqueRules :: Options -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Attributes,Attributes) -> NontermIdent -> ConstructorIdent -> Map Identifier Identifier -> [Rule] -mkUniqueRules opts allFields allInsts allAttrDecls nt con usMap - = map apply groups - where - fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allFields) - ++ Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts) - -- may have duplicates - - groups = Map.assocs $ Map.foldrWithKey (\i r m -> Map.insertWith (++) r [i] m) Map.empty usMap - apply (ref,us) = mkRule ref (findOutField ref) us - findOutField ref = case [ chld | (chld,NT tp _) <- fields, tp `hasSyn` ref] of - [] -> _LHS - (x:_) -> x - hasSyn tp ref = Map.member ref $ snd $ Map.findWithDefault (Map.empty,Map.empty) tp allAttrDecls - mkRule ref outFld locAttrs - = let pat = Product noPos (attr outFld ref : [attr _LOC u | u <- locAttrs ]) - rhs = Expression noPos $ wrap ref $ foldr gencase (finalout locAttrs) locAttrs - -- [HsToken ("mkUniques" ++ show (length locAttrs) ++ " ") noPos, AGField _LHS ref noPos Nothing] - in Rule Nothing pat rhs False "-- generated by the unique rule mechanism." False - attr fld a = Alias fld a (Underscore noPos) [] - gencase nm outp - = h ("case " ++ uniqueDispenser opts ++ " __cont of { (__cont, " ++ getName nm ++ ") -> ") ++ outp ++ h "}" - h s = [HsToken s noPos] - finalout us = h ("(__cont, " ++ concat (intersperse "," (map getName us)) ++ ")") - wrap ref inp = h "case " ++ [AGField _LHS ref noPos Nothing] ++ h " of { __cont | __cont `seq` True -> " ++ inp ++ h "}" -{-# LINE 298 "../src-derived/Transform.hs" #-} - -{-# LINE 691 "Transform.ag" #-} - -flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent) -flattenDatas ds = Map.map flatten ds - where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)] - -reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent -reachableFrom table nts = reach nts - where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts - , let ns = Map.findWithDefault Set.empty nt table ]) - in if Set.size nts' > Set.size nts - then reach nts' - else nts -invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent) -invert m = foldr inv Map.empty (Map.toList m) - where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns - -path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent -path table from to = let children = Map.findWithDefault Set.empty from table - forward = reachableFrom table children - backward = reachableFrom (invert table) - (Set.singleton to) - in Set.intersection forward backward -{-# LINE 323 "../src-derived/Transform.hs" #-} - -{-# LINE 808 "Transform.ag" #-} - -pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap -pragmaMapUnion = Map.unionWith (Map.unionWith Set.union) - -pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap -pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms) -{-# LINE 332 "../src-derived/Transform.hs" #-} - -{-# LINE 840 "Transform.ag" #-} - -orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap -orderMapUnion = Map.unionWith (Map.unionWith Set.union) - -orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap -orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps) -{-# LINE 341 "../src-derived/Transform.hs" #-} - -{-# LINE 866 "Transform.ag" #-} - -mergeParams :: ParamMap -> ParamMap -> ParamMap -mergeParams = Map.unionWith (++) -{-# LINE 347 "../src-derived/Transform.hs" #-} - -{-# LINE 889 "Transform.ag" #-} - -mergeCtx :: ContextMap -> ContextMap -> ContextMap -mergeCtx - = Map.unionWith nubconcat - where nubconcat a b = nub (a ++ b) -{-# LINE 355 "../src-derived/Transform.hs" #-} - -{-# LINE 902 "Transform.ag" #-} - -mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1) -{-# LINE 360 "../src-derived/Transform.hs" #-} - -{-# LINE 913 "Transform.ag" #-} - -merge x y = foldr f y (Map.toList x) - where f ~(k,v) m = Map.insertWith (Map.union) k v m -{-# LINE 366 "../src-derived/Transform.hs" #-} - -{-# LINE 954 "Transform.ag" #-} - -checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where - check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt)) - | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls - (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh - (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn - in (Map.insert nt (inh',syn') decls,einh >< esyn) -{-# LINE 376 "../src-derived/Transform.hs" #-} - -{-# LINE 965 "Transform.ag" #-} - -addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap - in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap -{-# LINE 382 "../src-derived/Transform.hs" #-} - -{-# LINE 1106 "Transform.ag" #-} - -makeType :: Set NontermIdent -> Type -> Type -makeType nts tp@(NT x _) | x == _SELF = tp - | Set.member x nts = tp - | otherwise = Haskell (typeToHaskellString Nothing [] tp) -makeType _ tp = tp -{-# LINE 391 "../src-derived/Transform.hs" #-} - -{-# LINE 1113 "Transform.ag" #-} - -constructGrammar :: Set NontermIdent - -> ParamMap - -> DataTypes - -> Map NontermIdent (Attributes, Attributes) - -> Map NontermIdent (Map Identifier (String, String, String)) - -> Derivings - -> Set NontermIdent - -> Map NontermIdent (Map ConstructorIdent [Rule]) - -> Map NontermIdent (Map ConstructorIdent [TypeSig]) - -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) - -> TypeSyns - -> PragmaMap - -> AttrOrderMap - -> ContextMap - -> UniqueMap - -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) - -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) - -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression))) - -> Grammar - -constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap uniqueMap augmentsMap aroundsMap mergeMap = - let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram] - nonts = map nont gr - nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs - rmap = Map.findWithDefault Map.empty nt allrules - tsmap = Map.findWithDefault Map.empty nt tsigs - instsmap = Map.findWithDefault Map.empty nt allinsts - params = Map.findWithDefault [] nt ntParams - mergemap = Map.findWithDefault Map.empty nt mergeMap - alt (con,flds) = - let rules = maybe [] id (Map.lookup con rmap) - tsigs = maybe [] id (Map.lookup con tsmap) - insts = maybe [] id (Map.lookup con instsmap) - merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ] - - -- important: keep order of children - cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges) - child (nm, tp) = - let tpI = if existsAsInst nm - then fromJust $ lookup nm insts - else tp - (inh,syn) = case tpI of - NT nt _ -> let nt' = maybe nt id (deforestedNt nt) - in Map.findWithDefault (Map.empty,Map.empty) nt' attrs - _ -> (Map.empty,Map.empty) - virt = if existsAsInst nm - then case lookup nm flds of - Just tp' -> Just (Just tp') - Nothing -> Just Nothing - else if existsAsMerge nm - then (Just Nothing) - else Nothing - in Child nm tpI inh syn virt - existsAsInst nm = maybe False (const True) (lookup nm insts) - existsAsField (nm,_) = maybe False (const True) (lookup nm flds) - existsAsMerge nm = maybe False (const True) (lookup nm merges) - in Production con cldrn rules tsigs - in Nonterminal nt params inh syn (map alt alts) - in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap uniqueMap augmentsMap aroundsMap mergeMap -{-# LINE 454 "../src-derived/Transform.hs" #-} - -{-# LINE 1175 "Transform.ag" #-} - -mapUnionWithSetUnion = Map.unionWith Set.union -mapUnionWithPlusPlus = Map.unionWith (++) -{-# LINE 460 "../src-derived/Transform.hs" #-} --- AG ---------------------------------------------------------- -{- - visit 0: - inherited attribute: - options : Options - synthesized attributes: - blocks : Blocks - errors : Seq Error - moduleDecl : Maybe (String,String,String) - output : Grammar - pragmas : Options -> Options - alternatives: - alternative AG: - child elems : Elems - visit 0: - local allFields : _ - local allConstrs : _ - local allRules : _ - local allSigs : _ - local allInsts : _ - local allUniques : _ - local allAugments : _ - local allArounds : _ - local allMerges : _ - local augmentSigs : _ - local allRulesErrs : _ - local allNamesErrs : _ - local allSigsErrs : _ - local allInstsErrs : _ - local allUniquesErrs : _ - local allAugmentErrs : _ - local allAroundsErrs : _ - local allMergesErrs : _ - local checkedRulesPre : _ - local checkedSigs : _ - local checkedInsts : _ - local checkedUniques : _ - local checkedAugments : _ - local checkedArounds : _ - local checkedRules : _ - local checkedMerges : _ - local errs1 : _ - local errs2 : _ - local errs3 : _ - local errs4 : _ - local errs5 : _ - local errs6 : _ - local errs7 : _ - local errs8 : _ - local errs9 : _ - local errs10 : _ - local errs11 : _ - local allNonterminals : _ - local allAttrDecls : _ --} --- cata -sem_AG :: AG -> - T_AG -sem_AG (AG _elems ) = - (sem_AG_AG (sem_Elems _elems ) ) --- semantic domain -newtype T_AG = T_AG (Options -> - ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options))) -data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)} -data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))} -wrap_AG :: T_AG -> - Inh_AG -> - Syn_AG -wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) = - (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions - in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas )) -sem_AG_AG :: T_Elems -> - T_AG -sem_AG_AG (T_Elems elems_ ) = - (T_AG (\ _lhsIoptions -> - (let _lhsOoutput :: Grammar - _lhsOerrors :: (Seq Error) - _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) - _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _elemsOdefinedSets :: DefinedSets - _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOblocks :: Blocks - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOpragmas :: (Options -> Options) - _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _elemsOallFields :: DataTypes - _elemsOallNonterminals :: (Set NontermIdent) - _elemsOoptions :: Options - _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _elemsIattrOrderCollect :: AttrOrderMap - _elemsIblocks :: Blocks - _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _elemsIcollectedNames :: (Set Identifier) - _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _elemsIcollectedSetNames :: (Set Identifier) - _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _elemsIctxCollect :: ContextMap - _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _elemsIderivings :: Derivings - _elemsIerrors :: (Seq Error) - _elemsImoduleDecl :: (Maybe (String,String,String)) - _elemsIparamsCollect :: ParamMap - _elemsIpragmas :: (Options -> Options) - _elemsIsemPragmasCollect :: PragmaMap - _elemsItypeSyns :: TypeSyns - _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _elemsIwrappers :: (Set NontermIdent) - -- "Transform.ag"(line 52, column 8) - _lhsOoutput = - ({-# LINE 52 "Transform.ag" #-} - constructGrammar _allNonterminals - _elemsIparamsCollect - _allFields - _allAttrDecls - _elemsIuseMap - _elemsIderivings - (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers) - _checkedRules - _checkedSigs - _checkedInsts - _elemsItypeSyns - _elemsIsemPragmasCollect - _elemsIattrOrderCollect - _elemsIctxCollect - _checkedUniques - _checkedAugments - _checkedArounds - _checkedMerges - {-# LINE 595 "Transform.hs" #-} - ) - -- "Transform.ag"(line 253, column 10) - _allFields = - ({-# LINE 253 "Transform.ag" #-} - let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm) - in foldr f (Map.empty) _elemsIcollectedFields - {-# LINE 602 "Transform.hs" #-} - ) - -- "Transform.ag"(line 256, column 10) - _allConstrs = - ({-# LINE 256 "Transform.ag" #-} - let f (nt,con,_) = Map.insertWith (++) nt [con] - in foldr f (Map.empty) _elemsIcollectedFields - {-# LINE 609 "Transform.hs" #-} - ) - -- "Transform.ag"(line 259, column 10) - _allRules = - ({-# LINE 259 "Transform.ag" #-} - let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r]) - in foldr f (Map.empty) _elemsIcollectedRules - {-# LINE 616 "Transform.hs" #-} - ) - -- "Transform.ag"(line 262, column 10) - _allSigs = - ({-# LINE 262 "Transform.ag" #-} - let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t]) - typeof nt r = Map.findWithDefault (Haskell "") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls - in foldr f (Map.empty) ( _elemsIcollectedSigs - ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ] - ) - {-# LINE 626 "Transform.hs" #-} - ) - -- "Transform.ag"(line 268, column 10) - _allInsts = - ({-# LINE 268 "Transform.ag" #-} - let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is) - in foldr f (Map.empty) _elemsIcollectedInsts - {-# LINE 633 "Transform.hs" #-} - ) - -- "Transform.ag"(line 271, column 10) - _allUniques = - ({-# LINE 271 "Transform.ag" #-} - let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us) - in foldr f (Map.empty) _elemsIcollectedUniques - {-# LINE 640 "Transform.hs" #-} - ) - -- "Transform.ag"(line 273, column 10) - _allAugments = - ({-# LINE 273 "Transform.ag" #-} - let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) - in foldr f Map.empty _elemsIcollectedAugments - {-# LINE 647 "Transform.hs" #-} - ) - -- "Transform.ag"(line 275, column 10) - _allArounds = - ({-# LINE 275 "Transform.ag" #-} - let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) - in foldr f Map.empty _elemsIcollectedArounds - {-# LINE 654 "Transform.hs" #-} - ) - -- "Transform.ag"(line 277, column 10) - _allMerges = - ({-# LINE 277 "Transform.ag" #-} - let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) - in foldr f Map.empty _elemsIcollectedMerges - {-# LINE 661 "Transform.hs" #-} - ) - -- "Transform.ag"(line 280, column 10) - _augmentSigs = - ({-# LINE 280 "Transform.ag" #-} - let gen mp = [] - in Map.map (Map.map gen) _allAugments - {-# LINE 668 "Transform.hs" #-} - ) - -- "Transform.ag"(line 283, column 10) - _allRulesErrs = - ({-# LINE 283 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules - {-# LINE 674 "Transform.hs" #-} - ) - -- "Transform.ag"(line 284, column 10) - _allNamesErrs = - ({-# LINE 284 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules - {-# LINE 680 "Transform.hs" #-} - ) - -- "Transform.ag"(line 285, column 10) - _allSigsErrs = - ({-# LINE 285 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs - {-# LINE 686 "Transform.hs" #-} - ) - -- "Transform.ag"(line 286, column 10) - _allInstsErrs = - ({-# LINE 286 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts - {-# LINE 692 "Transform.hs" #-} - ) - -- "Transform.ag"(line 287, column 10) - _allUniquesErrs = - ({-# LINE 287 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques - {-# LINE 698 "Transform.hs" #-} - ) - -- "Transform.ag"(line 288, column 10) - _allAugmentErrs = - ({-# LINE 288 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments - {-# LINE 704 "Transform.hs" #-} - ) - -- "Transform.ag"(line 289, column 10) - _allAroundsErrs = - ({-# LINE 289 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds - {-# LINE 710 "Transform.hs" #-} - ) - -- "Transform.ag"(line 290, column 10) - _allMergesErrs = - ({-# LINE 290 "Transform.ag" #-} - Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges - {-# LINE 716 "Transform.hs" #-} - ) - -- "Transform.ag"(line 292, column 10) - _checkedRulesPre = - ({-# LINE 292 "Transform.ag" #-} - Map.map (Map.map fst) _allRulesErrs - {-# LINE 722 "Transform.hs" #-} - ) - -- "Transform.ag"(line 293, column 10) - _checkedSigs = - ({-# LINE 293 "Transform.ag" #-} - Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs - {-# LINE 728 "Transform.hs" #-} - ) - -- "Transform.ag"(line 294, column 10) - _checkedInsts = - ({-# LINE 294 "Transform.ag" #-} - Map.map (Map.map fst) _allInstsErrs - {-# LINE 734 "Transform.hs" #-} - ) - -- "Transform.ag"(line 295, column 10) - _checkedUniques = - ({-# LINE 295 "Transform.ag" #-} - Map.map (Map.map fst) _allUniquesErrs - {-# LINE 740 "Transform.hs" #-} - ) - -- "Transform.ag"(line 296, column 10) - _checkedAugments = - ({-# LINE 296 "Transform.ag" #-} - Map.map (Map.map fst) _allAugmentErrs - {-# LINE 746 "Transform.hs" #-} - ) - -- "Transform.ag"(line 297, column 10) - _checkedArounds = - ({-# LINE 297 "Transform.ag" #-} - Map.map (Map.map fst) _allAroundsErrs - {-# LINE 752 "Transform.hs" #-} - ) - -- "Transform.ag"(line 298, column 10) - _checkedRules = - ({-# LINE 298 "Transform.ag" #-} - Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques ) - {-# LINE 758 "Transform.hs" #-} - ) - -- "Transform.ag"(line 299, column 10) - _checkedMerges = - ({-# LINE 299 "Transform.ag" #-} - Map.map (Map.map fst) _allMergesErrs - {-# LINE 764 "Transform.hs" #-} - ) - -- "Transform.ag"(line 301, column 10) - _errs1 = - ({-# LINE 301 "Transform.ag" #-} - let f = checkForDuplicates (DupSynonym) - in Seq.fromList . f . map fst $ _elemsItypeSyns - {-# LINE 771 "Transform.hs" #-} - ) - -- "Transform.ag"(line 304, column 10) - _errs2 = - ({-# LINE 304 "Transform.ag" #-} - let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm) - f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm - in Seq.fromList . concat . map f . Map.toList $ _allFields - {-# LINE 779 "Transform.hs" #-} - ) - -- "Transform.ag"(line 308, column 10) - _errs3 = - ({-# LINE 308 "Transform.ag" #-} - let f (nt,cons) = checkForDuplicates (DupAlt nt) cons - in Seq.empty - {-# LINE 786 "Transform.hs" #-} - ) - -- "Transform.ag"(line 312, column 10) - _errs4 = - ({-# LINE 312 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allRulesErrs - {-# LINE 793 "Transform.hs" #-} - ) - -- "Transform.ag"(line 315, column 10) - _errs5 = - ({-# LINE 315 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allSigsErrs - {-# LINE 800 "Transform.hs" #-} - ) - -- "Transform.ag"(line 318, column 10) - _errs6 = - ({-# LINE 318 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allInstsErrs - {-# LINE 807 "Transform.hs" #-} - ) - -- "Transform.ag"(line 321, column 10) - _errs7 = - ({-# LINE 321 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allUniquesErrs - {-# LINE 814 "Transform.hs" #-} - ) - -- "Transform.ag"(line 324, column 10) - _errs8 = - ({-# LINE 324 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allAugmentErrs - {-# LINE 821 "Transform.hs" #-} - ) - -- "Transform.ag"(line 327, column 10) - _errs9 = - ({-# LINE 327 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allAroundsErrs - {-# LINE 828 "Transform.hs" #-} - ) - -- "Transform.ag"(line 330, column 10) - _errs10 = - ({-# LINE 330 "Transform.ag" #-} - let f m s = Map.fold ((><)) s m - in Map.fold f Seq.empty _allNamesErrs - {-# LINE 835 "Transform.hs" #-} - ) - -- "Transform.ag"(line 333, column 10) - _errs11 = - ({-# LINE 333 "Transform.ag" #-} - let f m s = Map.fold ((><) . snd) s m - in Map.fold f Seq.empty _allMergesErrs - {-# LINE 842 "Transform.hs" #-} - ) - -- "Transform.ag"(line 336, column 10) - _lhsOerrors = - ({-# LINE 336 "Transform.ag" #-} - _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11 - {-# LINE 848 "Transform.hs" #-} - ) - -- "Transform.ag"(line 560, column 10) - _allNonterminals = - ({-# LINE 560 "Transform.ag" #-} - _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames - {-# LINE 854 "Transform.hs" #-} - ) - -- "Transform.ag"(line 580, column 8) - _elemsOallConstructors = - ({-# LINE 580 "Transform.ag" #-} - _elemsIcollectedConstructorsMap - {-# LINE 860 "Transform.hs" #-} - ) - -- "Transform.ag"(line 653, column 8) - _elemsOdefSets = - ({-# LINE 653 "Transform.ag" #-} - Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals )) - {-# LINE 866 "Transform.hs" #-} - ) - -- "Transform.ag"(line 654, column 8) - _elemsOdefinedSets = - ({-# LINE 654 "Transform.ag" #-} - Map.map fst _elemsIdefSets - {-# LINE 872 "Transform.hs" #-} - ) - -- "Transform.ag"(line 919, column 8) - _elemsOattrDecls = - ({-# LINE 919 "Transform.ag" #-} - Map.empty - {-# LINE 878 "Transform.hs" #-} - ) - -- "Transform.ag"(line 972, column 9) - _allAttrDecls = - ({-# LINE 972 "Transform.ag" #-} - if withSelf _lhsIoptions - then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals ) - else _elemsIattrDecls - {-# LINE 886 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - _elemsIblocks - {-# LINE 892 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - _elemsImoduleDecl - {-# LINE 898 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - _elemsIpragmas - {-# LINE 904 "Transform.hs" #-} - ) - -- copy rule (from local) - _elemsOallAttrDecls = - ({-# LINE 821 "Transform.ag" #-} - _allAttrDecls - {-# LINE 910 "Transform.hs" #-} - ) - -- copy rule (from local) - _elemsOallFields = - ({-# LINE 128 "Transform.ag" #-} - _allFields - {-# LINE 916 "Transform.hs" #-} - ) - -- copy rule (from local) - _elemsOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _allNonterminals - {-# LINE 922 "Transform.hs" #-} - ) - -- copy rule (down) - _elemsOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 928 "Transform.hs" #-} - ) - ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) = - elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets _elemsOoptions - in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) ) --- Alt --------------------------------------------------------- -{- - visit 0: - inherited attributes: - allConstructors : Map NontermIdent (Set ConstructorIdent) - allNonterminals : Set NontermIdent - nts : Set NontermIdent - synthesized attributes: - collectedConstructorNames : Set ConstructorIdent - collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] - alternatives: - alternative Alt: - child pos : {Pos} - child names : ConstructorSet - child fields : {Fields} --} --- cata -sem_Alt :: Alt -> - T_Alt -sem_Alt (Alt _pos _names _fields ) = - (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields ) --- semantic domain -newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) -> - (Set NontermIdent) -> - (Set NontermIdent) -> - ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]))) -data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))} -data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))} -wrap_Alt :: T_Alt -> - Inh_Alt -> - Syn_Alt -wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) = - (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields )) -sem_Alt_Alt :: Pos -> - T_ConstructorSet -> - Fields -> - T_Alt -sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ = - (T_Alt (\ _lhsIallConstructors - _lhsIallNonterminals - _lhsInts -> - (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedConstructorNames :: (Set ConstructorIdent) - _namesIcollectedConstructorNames :: (Set ConstructorIdent) - _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _namesIerrors :: (Seq Error) - -- "Transform.ag"(line 238, column 10) - _lhsOcollectedFields = - ({-# LINE 238 "Transform.ag" #-} - let fieldTable = - [ (attr, makeType _lhsIallNonterminals tp) - | (attr, tp) <- fields_ - ] - in [ (nt, con, fieldTable) - | nt <- Set.toList _lhsInts - , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors)) - ] - {-# LINE 991 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 93, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 93 "Transform.ag" #-} - _namesIcollectedConstructorNames - {-# LINE 997 "Transform.hs" #-} - ) - ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) = - names_ - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) --- Alts -------------------------------------------------------- -{- - visit 0: - inherited attributes: - allConstructors : Map NontermIdent (Set ConstructorIdent) - allNonterminals : Set NontermIdent - nts : Set NontermIdent - synthesized attributes: - collectedConstructorNames : Set ConstructorIdent - collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] - alternatives: - alternative Cons: - child hd : Alt - child tl : Alts - alternative Nil: --} --- cata -sem_Alts :: Alts -> - T_Alts -sem_Alts list = - (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) ) --- semantic domain -newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) -> - (Set NontermIdent) -> - (Set NontermIdent) -> - ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]))) -data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))} -data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))} -wrap_Alts :: T_Alts -> - Inh_Alts -> - Syn_Alts -wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) = - (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts - in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields )) -sem_Alts_Cons :: T_Alt -> - T_Alts -> - T_Alts -sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) = - (T_Alts (\ _lhsIallConstructors - _lhsIallNonterminals - _lhsInts -> - (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) - _hdOallNonterminals :: (Set NontermIdent) - _hdOnts :: (Set NontermIdent) - _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) - _tlOallNonterminals :: (Set NontermIdent) - _tlOnts :: (Set NontermIdent) - _hdIcollectedConstructorNames :: (Set ConstructorIdent) - _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _tlIcollectedConstructorNames :: (Set ConstructorIdent) - _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - -- use rule "Transform.ag"(line 93, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 93 "Transform.ag" #-} - _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames - {-# LINE 1059 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - _hdIcollectedFields ++ _tlIcollectedFields - {-# LINE 1065 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallConstructors = - ({-# LINE 96 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 1071 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1077 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOnts = - ({-# LINE 167 "Transform.ag" #-} - _lhsInts - {-# LINE 1083 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallConstructors = - ({-# LINE 96 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 1089 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1095 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOnts = - ({-# LINE 167 "Transform.ag" #-} - _lhsInts - {-# LINE 1101 "Transform.hs" #-} - ) - ( _hdIcollectedConstructorNames,_hdIcollectedFields) = - hd_ _hdOallConstructors _hdOallNonterminals _hdOnts - ( _tlIcollectedConstructorNames,_tlIcollectedFields) = - tl_ _tlOallConstructors _tlOallNonterminals _tlOnts - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) -sem_Alts_Nil :: T_Alts -sem_Alts_Nil = - (T_Alts (\ _lhsIallConstructors - _lhsIallNonterminals - _lhsInts -> - (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - -- use rule "Transform.ag"(line 93, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 93 "Transform.ag" #-} - Set.empty - {-# LINE 1119 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 1125 "Transform.hs" #-} - ) - in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) --- Attrs ------------------------------------------------------- -{- - visit 0: - inherited attributes: - allFields : DataTypes - allNonterminals : Set NontermIdent - nts : Set NontermIdent - options : Options - chained attribute: - attrDecls : Map NontermIdent (Attributes, Attributes) - synthesized attributes: - errors : Seq Error - useMap : Map NontermIdent (Map Identifier (String,String,String)) - alternatives: - alternative Attrs: - child pos : {Pos} - child inh : {AttrNames} - child chn : {AttrNames} - child syn : {AttrNames} - visit 0: - local _tup1 : _ - local attrDecls : _ - local errors : _ - local _tup2 : _ - local inherited : _ - local synthesized : _ - local useMap : _ - local errors1 : _ --} --- cata -sem_Attrs :: Attrs -> - T_Attrs -sem_Attrs (Attrs _pos _inh _chn _syn ) = - (sem_Attrs_Attrs _pos _inh _chn _syn ) --- semantic domain -newtype T_Attrs = T_Attrs (DataTypes -> - (Set NontermIdent) -> - (Map NontermIdent (Attributes, Attributes)) -> - (Set NontermIdent) -> - Options -> - ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String))))) -data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent)),options_Inh_Attrs :: !(Options)} -data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))} -wrap_Attrs :: T_Attrs -> - Inh_Attrs -> - Syn_Attrs -wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions ) = - (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions - in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap )) -sem_Attrs_Attrs :: Pos -> - AttrNames -> - AttrNames -> - AttrNames -> - T_Attrs -sem_Attrs_Attrs pos_ inh_ chn_ syn_ = - (T_Attrs (\ _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsInts - _lhsIoptions -> - (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOerrors :: (Seq Error) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - -- "Transform.ag"(line 927, column 15) - __tup1 = - ({-# LINE 927 "Transform.ag" #-} - checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls - {-# LINE 1195 "Transform.hs" #-} - ) - -- "Transform.ag"(line 927, column 15) - (_attrDecls,_) = - ({-# LINE 927 "Transform.ag" #-} - __tup1 - {-# LINE 1201 "Transform.hs" #-} - ) - -- "Transform.ag"(line 927, column 15) - (_,_errors) = - ({-# LINE 927 "Transform.ag" #-} - __tup1 - {-# LINE 1207 "Transform.hs" #-} - ) - -- "Transform.ag"(line 929, column 15) - __tup2 = - ({-# LINE 929 "Transform.ag" #-} - let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud)) - | (n,t,ud) <- xs - ] - (inh,_) = splitAttrs inh_ - (chn,uses1) = splitAttrs chn_ - (syn,uses2) = splitAttrs syn_ - isUse (n,(e1,e2,_)) = not (null e1 || null e2) - in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2))) - {-# LINE 1220 "Transform.hs" #-} - ) - -- "Transform.ag"(line 929, column 15) - (_inherited,_,_) = - ({-# LINE 929 "Transform.ag" #-} - __tup2 - {-# LINE 1226 "Transform.hs" #-} - ) - -- "Transform.ag"(line 929, column 15) - (_,_synthesized,_) = - ({-# LINE 929 "Transform.ag" #-} - __tup2 - {-# LINE 1232 "Transform.hs" #-} - ) - -- "Transform.ag"(line 929, column 15) - (_,_,_useMap) = - ({-# LINE 929 "Transform.ag" #-} - __tup2 - {-# LINE 1238 "Transform.hs" #-} - ) - -- "Transform.ag"(line 937, column 11) - _lhsOuseMap = - ({-# LINE 937 "Transform.ag" #-} - Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap)) - {-# LINE 1244 "Transform.hs" #-} - ) - -- "Transform.ag"(line 939, column 11) - _errors1 = - ({-# LINE 939 "Transform.ag" #-} - if checkParseTy _lhsIoptions - then let attrs = inh_ ++ syn_ ++ chn_ - items = map (\(ident,tp,_) -> (getPos ident, tp)) attrs - errs = map check items - check (pos,Haskell s) = - let exp = Expression pos tks - tks = [tk] - tk = HsToken s pos - in Seq.fromList $ checkTy exp - check _ = Seq.empty - in foldr (Seq.><) Seq.empty errs - else Seq.empty - {-# LINE 1261 "Transform.hs" #-} - ) - -- "Transform.ag"(line 951, column 11) - _lhsOerrors = - ({-# LINE 951 "Transform.ag" #-} - _errors Seq.>< _errors1 - {-# LINE 1267 "Transform.hs" #-} - ) - -- copy rule (from local) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _attrDecls - {-# LINE 1273 "Transform.hs" #-} - ) - in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) ) --- ConstructorSet ---------------------------------------------- -{- - visit 0: - synthesized attributes: - collectedConstructorNames : Set ConstructorIdent - constructors : (Set ConstructorIdent->Set ConstructorIdent) - errors : Seq Error - alternatives: - alternative CAll: - alternative CDifference: - child set1 : ConstructorSet - child set2 : ConstructorSet - alternative CName: - child name : {ConstructorIdent} - alternative CUnion: - child set1 : ConstructorSet - child set2 : ConstructorSet --} --- cata -sem_ConstructorSet :: ConstructorSet -> - T_ConstructorSet -sem_ConstructorSet (CAll ) = - (sem_ConstructorSet_CAll ) -sem_ConstructorSet (CDifference _set1 _set2 ) = - (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) ) -sem_ConstructorSet (CName _name ) = - (sem_ConstructorSet_CName _name ) -sem_ConstructorSet (CUnion _set1 _set2 ) = - (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) ) --- semantic domain -newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error))) -data Inh_ConstructorSet = Inh_ConstructorSet {} -data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))} -wrap_ConstructorSet :: T_ConstructorSet -> - Inh_ConstructorSet -> - Syn_ConstructorSet -wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) = - (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem - in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors )) -sem_ConstructorSet_CAll :: T_ConstructorSet -sem_ConstructorSet_CAll = - (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _lhsOcollectedConstructorNames :: (Set ConstructorIdent) - _lhsOerrors :: (Seq Error) - -- "Transform.ag"(line 724, column 17) - _lhsOconstructors = - ({-# LINE 724 "Transform.ag" #-} - \ds -> ds - {-# LINE 1324 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 93, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 93 "Transform.ag" #-} - Set.empty - {-# LINE 1330 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 1336 "Transform.hs" #-} - ) - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) -sem_ConstructorSet_CDifference :: T_ConstructorSet -> - T_ConstructorSet -> - T_ConstructorSet -sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) = - (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _lhsOcollectedConstructorNames :: (Set ConstructorIdent) - _lhsOerrors :: (Seq Error) - _set1IcollectedConstructorNames :: (Set ConstructorIdent) - _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _set1Ierrors :: (Seq Error) - _set2IcollectedConstructorNames :: (Set ConstructorIdent) - _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _set2Ierrors :: (Seq Error) - -- "Transform.ag"(line 723, column 17) - _lhsOconstructors = - ({-# LINE 723 "Transform.ag" #-} - \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds - {-# LINE 1356 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 93, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 93 "Transform.ag" #-} - _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames - {-# LINE 1362 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 1368 "Transform.hs" #-} - ) - ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) = - set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) = - set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) -sem_ConstructorSet_CName :: ConstructorIdent -> - T_ConstructorSet -sem_ConstructorSet_CName name_ = - (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent) - _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _lhsOerrors :: (Seq Error) - -- "Transform.ag"(line 568, column 11) - _lhsOcollectedConstructorNames = - ({-# LINE 568 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 1385 "Transform.hs" #-} - ) - -- "Transform.ag"(line 721, column 17) - _lhsOconstructors = - ({-# LINE 721 "Transform.ag" #-} - \ds -> Set.singleton name_ - {-# LINE 1391 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 1397 "Transform.hs" #-} - ) - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) -sem_ConstructorSet_CUnion :: T_ConstructorSet -> - T_ConstructorSet -> - T_ConstructorSet -sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) = - (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _lhsOcollectedConstructorNames :: (Set ConstructorIdent) - _lhsOerrors :: (Seq Error) - _set1IcollectedConstructorNames :: (Set ConstructorIdent) - _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _set1Ierrors :: (Seq Error) - _set2IcollectedConstructorNames :: (Set ConstructorIdent) - _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _set2Ierrors :: (Seq Error) - -- "Transform.ag"(line 722, column 17) - _lhsOconstructors = - ({-# LINE 722 "Transform.ag" #-} - \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds - {-# LINE 1417 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 93, column 62) - _lhsOcollectedConstructorNames = - ({-# LINE 93 "Transform.ag" #-} - _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames - {-# LINE 1423 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 1429 "Transform.hs" #-} - ) - ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) = - set1_ - ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) = - set2_ - in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) --- Elem -------------------------------------------------------- -{- - visit 0: - inherited attributes: - allAttrDecls : Map NontermIdent (Attributes, Attributes) - allConstructors : Map NontermIdent (Set ConstructorIdent) - allFields : DataTypes - allNonterminals : Set NontermIdent - definedSets : DefinedSets - options : Options - chained attributes: - attrDecls : Map NontermIdent (Attributes, Attributes) - defSets : Map Identifier (Set NontermIdent,Set Identifier) - synthesized attributes: - attrOrderCollect : AttrOrderMap - blocks : Blocks - collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] - collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] - collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent) - collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] - collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] - collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] - collectedNames : Set Identifier - collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] - collectedSetNames : Set Identifier - collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] - collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] - ctxCollect : ContextMap - derivings : Derivings - errors : Seq Error - moduleDecl : Maybe (String,String,String) - paramsCollect : ParamMap - pragmas : Options -> Options - semPragmasCollect : PragmaMap - typeSyns : TypeSyns - useMap : Map NontermIdent (Map Identifier (String,String,String)) - wrappers : Set NontermIdent - alternatives: - alternative Attr: - child pos : {Pos} - child ctx : {ClassContext} - child names : NontSet - child attrs : Attrs - alternative Data: - child pos : {Pos} - child ctx : {ClassContext} - child names : NontSet - child params : {[Identifier]} - child attrs : Attrs - child alts : Alts - child ext : {Bool} - alternative Deriving: - child pos : {Pos} - child set : NontSet - child classes : {[NontermIdent]} - alternative Module: - child pos : {Pos} - child name : {String} - child exports : {String} - child imports : {String} - alternative Nocatas: - child pos : {Pos} - child set : NontSet - alternative Pragma: - child pos : {Pos} - child names : {[NontermIdent]} - alternative Sem: - child pos : {Pos} - child ctx : {ClassContext} - child names : NontSet - child attrs : Attrs - child alts : SemAlts - alternative Set: - child pos : {Pos} - child name : {NontermIdent} - child merge : {Bool} - child set : NontSet - visit 0: - local _tup3 : _ - local defSets2 : _ - local errs : _ - alternative Txt: - child pos : {Pos} - child name : {Identifier} - child mbNt : {Maybe NontermIdent} - child lines : {[String]} - visit 0: - local blockInfo : _ - local blockValue : _ - alternative Type: - child pos : {Pos} - child ctx : {ClassContext} - child name : {NontermIdent} - child params : {[Identifier]} - child type : {ComplexType} - visit 0: - local expanded : _ - local argType : _ - alternative Wrapper: - child pos : {Pos} - child set : NontSet --} --- cata -sem_Elem :: Elem -> - T_Elem -sem_Elem (Attr _pos _ctx _names _attrs ) = - (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) ) -sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) = - (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext ) -sem_Elem (Deriving _pos _set _classes ) = - (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes ) -sem_Elem (Module _pos _name _exports _imports ) = - (sem_Elem_Module _pos _name _exports _imports ) -sem_Elem (Nocatas _pos _set ) = - (sem_Elem_Nocatas _pos (sem_NontSet _set ) ) -sem_Elem (Pragma _pos _names ) = - (sem_Elem_Pragma _pos _names ) -sem_Elem (Sem _pos _ctx _names _attrs _alts ) = - (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) (sem_SemAlts _alts ) ) -sem_Elem (Set _pos _name _merge _set ) = - (sem_Elem_Set _pos _name _merge (sem_NontSet _set ) ) -sem_Elem (Txt _pos _name _mbNt _lines ) = - (sem_Elem_Txt _pos _name _mbNt _lines ) -sem_Elem (Type _pos _ctx _name _params _type ) = - (sem_Elem_Type _pos _ctx _name _params _type ) -sem_Elem (Wrapper _pos _set ) = - (sem_Elem_Wrapper _pos (sem_NontSet _set ) ) --- semantic domain -newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) -> - (Map NontermIdent (Set ConstructorIdent)) -> - DataTypes -> - (Set NontermIdent) -> - (Map NontermIdent (Attributes, Attributes)) -> - (Map Identifier (Set NontermIdent,Set Identifier)) -> - DefinedSets -> - Options -> - ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent))) -data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets),options_Inh_Elem :: !(Options)} -data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))} -wrap_Elem :: T_Elem -> - Inh_Elem -> - Syn_Elem -wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) = - (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions - in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers )) -sem_Elem_Attr :: Pos -> - ClassContext -> - T_NontSet -> - T_Attrs -> - T_Elem -sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOctxCollect :: ContextMap - _attrsOnts :: (Set NontermIdent) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _namesOallFields :: DataTypes - _namesOallNonterminals :: (Set NontermIdent) - _namesOdefinedSets :: DefinedSets - _attrsOallFields :: DataTypes - _attrsOallNonterminals :: (Set NontermIdent) - _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _attrsOoptions :: Options - _namesIcollectedNames :: (Set Identifier) - _namesIerrors :: (Seq Error) - _namesInontSet :: (Set NontermIdent) - _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _attrsIerrors :: (Seq Error) - _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - -- "Transform.ag"(line 879, column 7) - _lhsOctxCollect = - ({-# LINE 879 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] - {-# LINE 1640 "Transform.hs" #-} - ) - -- "Transform.ag"(line 923, column 10) - _attrsOnts = - ({-# LINE 923 "Transform.ag" #-} - _namesInontSet - {-# LINE 1646 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 1652 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 1658 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 1664 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 1670 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 1676 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 1682 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1688 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 1694 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 1700 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1706 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 1712 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 1718 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 1724 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 1730 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors - {-# LINE 1736 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 1742 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 1748 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 1754 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 1760 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 1766 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 1772 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 1778 "Transform.hs" #-} - ) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 1784 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 1790 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1796 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1802 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 1808 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 1814 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 1820 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 1826 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 1832 "Transform.hs" #-} - ) - ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = - names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = - attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Data :: Pos -> - ClassContext -> - T_NontSet -> - ([Identifier]) -> - T_Attrs -> - T_Alts -> - Bool -> - T_Elem -sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _altsOnts :: (Set NontermIdent) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOparamsCollect :: ParamMap - _lhsOctxCollect :: ContextMap - _attrsOnts :: (Set NontermIdent) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _namesOallFields :: DataTypes - _namesOallNonterminals :: (Set NontermIdent) - _namesOdefinedSets :: DefinedSets - _attrsOallFields :: DataTypes - _attrsOallNonterminals :: (Set NontermIdent) - _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _attrsOoptions :: Options - _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) - _altsOallNonterminals :: (Set NontermIdent) - _namesIcollectedNames :: (Set Identifier) - _namesIerrors :: (Seq Error) - _namesInontSet :: (Set NontermIdent) - _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _attrsIerrors :: (Seq Error) - _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _altsIcollectedConstructorNames :: (Set ConstructorIdent) - _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - -- "Transform.ag"(line 170, column 10) - _altsOnts = - ({-# LINE 170 "Transform.ag" #-} - _namesInontSet - {-# LINE 1904 "Transform.hs" #-} - ) - -- "Transform.ag"(line 574, column 11) - _lhsOcollectedConstructorsMap = - ({-# LINE 574 "Transform.ag" #-} - Map.fromList - [ (n, _altsIcollectedConstructorNames) - | n <- Set.toList _namesInontSet - ] - {-# LINE 1913 "Transform.hs" #-} - ) - -- "Transform.ag"(line 856, column 7) - _lhsOparamsCollect = - ({-# LINE 856 "Transform.ag" #-} - if null params_ - then Map.empty - else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet] - {-# LINE 1921 "Transform.hs" #-} - ) - -- "Transform.ag"(line 879, column 7) - _lhsOctxCollect = - ({-# LINE 879 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] - {-# LINE 1929 "Transform.hs" #-} - ) - -- "Transform.ag"(line 922, column 10) - _attrsOnts = - ({-# LINE 922 "Transform.ag" #-} - _namesInontSet - {-# LINE 1935 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 1941 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 1947 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 1953 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 1959 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - _altsIcollectedFields - {-# LINE 1965 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 1971 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 1977 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 1983 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 1989 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 1995 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2001 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 2007 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 2013 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors - {-# LINE 2019 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 2025 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 2031 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 2037 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 2043 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 2049 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 2055 "Transform.hs" #-} - ) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 2061 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2067 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2073 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2079 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2085 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2091 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2097 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2103 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 2109 "Transform.hs" #-} - ) - -- copy rule (down) - _altsOallConstructors = - ({-# LINE 96 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 2115 "Transform.hs" #-} - ) - -- copy rule (down) - _altsOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2121 "Transform.hs" #-} - ) - ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = - names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = - attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - ( _altsIcollectedConstructorNames,_altsIcollectedFields) = - alts_ _altsOallConstructors _altsOallNonterminals _altsOnts - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Deriving :: Pos -> - T_NontSet -> - ([NontermIdent]) -> - T_Elem -sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOderivings :: Derivings - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _setOallFields :: DataTypes - _setOallNonterminals :: (Set NontermIdent) - _setOdefinedSets :: DefinedSets - _setIcollectedNames :: (Set Identifier) - _setIerrors :: (Seq Error) - _setInontSet :: (Set NontermIdent) - -- "Transform.ag"(line 907, column 14) - _lhsOderivings = - ({-# LINE 907 "Transform.ag" #-} - Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet] - {-# LINE 2178 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 2184 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 2190 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 2196 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 2202 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 2208 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 2214 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2220 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 2226 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 2232 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2238 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 2244 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2250 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 2256 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 2262 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _setIerrors - {-# LINE 2268 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 2274 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 2280 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 2286 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 2292 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 2298 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 2304 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 2310 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2316 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2322 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2328 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2334 "Transform.hs" #-} - ) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2340 "Transform.hs" #-} - ) - ( _setIcollectedNames,_setIerrors,_setInontSet) = - set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Module :: Pos -> - String -> - String -> - String -> - T_Elem -sem_Elem_Module pos_ name_ exports_ imports_ = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - -- "Transform.ag"(line 1100, column 7) - _lhsOmoduleDecl = - ({-# LINE 1100 "Transform.ag" #-} - Just (name_, exports_, imports_) - {-# LINE 2388 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 2394 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 2400 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 2406 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 2412 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 2418 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 2424 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2430 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 2436 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - Set.empty - {-# LINE 2442 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2448 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 2454 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2460 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 2466 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 2472 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 2478 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 2484 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 2490 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 2496 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 2502 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 2508 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 2514 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 2520 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2526 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2532 "Transform.hs" #-} - ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Nocatas :: Pos -> - T_NontSet -> - T_Elem -sem_Elem_Nocatas pos_ (T_NontSet set_ ) = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOpragmas :: (Options -> Options) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _setOallFields :: DataTypes - _setOallNonterminals :: (Set NontermIdent) - _setOdefinedSets :: DefinedSets - _setIcollectedNames :: (Set Identifier) - _setIerrors :: (Seq Error) - _setInontSet :: (Set NontermIdent) - -- "Transform.ag"(line 740, column 14) - _lhsOpragmas = - ({-# LINE 740 "Transform.ag" #-} - \o -> o { nocatas = _setInontSet `Set.union` nocatas o } - {-# LINE 2582 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 2588 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 2594 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 2600 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 2606 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 2612 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 2618 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2624 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 2630 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 2636 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2642 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 2648 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2654 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 2660 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 2666 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 2672 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _setIerrors - {-# LINE 2678 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 2684 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 2690 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 2696 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 2702 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 2708 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 2714 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2720 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2726 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 2732 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 2738 "Transform.hs" #-} - ) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 2744 "Transform.hs" #-} - ) - ( _setIcollectedNames,_setIerrors,_setInontSet) = - set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Pragma :: Pos -> - ([NontermIdent]) -> - T_Elem -sem_Elem_Pragma pos_ names_ = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOpragmas :: (Options -> Options) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - -- "Transform.ag"(line 749, column 13) - _lhsOpragmas = - ({-# LINE 749 "Transform.ag" #-} - let mk n o = case getName n of - "gencatas" -> o { folds = True } - "nogencatas" -> o { folds = False } - "gendatas" -> o { dataTypes = True } - "nogendatas" -> o { dataTypes = False } - "gensems" -> o { semfuns = True } - "nogensems" -> o { semfuns = False } - "gentypesigs" -> o { typeSigs = True } - "nogentypesigs"-> o { typeSigs = False } - "nocycle" -> o { withCycle = False } - "cycle" -> o { withCycle = True } - "nostrictdata" -> o { strictData = False } - "strictdata" -> o { strictData = True } - "nostrictcase" -> o { strictCases = False } - "strictcase" -> o { strictCases = True } - "strictercase" -> o { strictCases = True, stricterCases = True } - "nostrictwrap" -> o { strictWrap = False } - "strictwrap" -> o { strictWrap = True } - "novisit" -> o { visit = False } - "visit" -> o { visit = True } - "nocase" -> o { cases = False } - "case" -> o { cases = True } - "noseq" -> o { withSeq = False } - "seq" -> o { withSeq = True } - "nounbox" -> o { unbox = False } - "unbox" -> o { unbox = True } - "bangpats" -> o { bangpats = True } - "breadthfirst" -> o { breadthFirst = True } - "breadthfirstStrict" -> o { breadthFirstStrict = True } - "nooptimize" -> o { cases = False , visit = False } - "optimize" -> o { cases = True , visit = True } - "strictsem" -> o { strictSems = True } - "gentraces" -> o { genTraces = True } - "genusetraces" -> o { genUseTraces = True } - "splitsems" -> o { splitSems = True } - "gencostcentres" -> o { genCostCentres = True } - "sepsemmods" -> o { sepSemMods = True } - "genlinepragmas" -> o { genLinePragmas = True } - "newtypes" -> o { newtypes = True } - "nonewtypes" -> o { newtypes = False } - _ -> o - in \o -> foldr mk o names_ - {-# LINE 2831 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 2837 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 2843 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 2849 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 2855 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 2861 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 2867 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 2873 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 2879 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - Set.empty - {-# LINE 2885 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 2891 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 2897 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 2903 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 2909 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 2915 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 2921 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 2927 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 2933 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 2939 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 2945 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 2951 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 2957 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 2963 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 2969 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 2975 "Transform.hs" #-} - ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Sem :: Pos -> - ClassContext -> - T_NontSet -> - T_Attrs -> - T_SemAlts -> - T_Elem -sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) (T_SemAlts alts_ ) = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _altsOnts :: (Set NontermIdent) - _lhsOctxCollect :: ContextMap - _attrsOnts :: (Set NontermIdent) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _namesOallFields :: DataTypes - _namesOallNonterminals :: (Set NontermIdent) - _namesOdefinedSets :: DefinedSets - _attrsOallFields :: DataTypes - _attrsOallNonterminals :: (Set NontermIdent) - _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _attrsOoptions :: Options - _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _altsOallFields :: DataTypes - _altsOoptions :: Options - _namesIcollectedNames :: (Set Identifier) - _namesIerrors :: (Seq Error) - _namesInontSet :: (Set NontermIdent) - _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _attrsIerrors :: (Seq Error) - _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _altsIattrOrderCollect :: AttrOrderMap - _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _altsIerrors :: (Seq Error) - _altsIsemPragmasCollect :: PragmaMap - -- "Transform.ag"(line 171, column 10) - _altsOnts = - ({-# LINE 171 "Transform.ag" #-} - _namesInontSet - {-# LINE 3050 "Transform.hs" #-} - ) - -- "Transform.ag"(line 879, column 7) - _lhsOctxCollect = - ({-# LINE 879 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] - {-# LINE 3058 "Transform.hs" #-} - ) - -- "Transform.ag"(line 924, column 10) - _attrsOnts = - ({-# LINE 924 "Transform.ag" #-} - _namesInontSet - {-# LINE 3064 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - _altsIattrOrderCollect - {-# LINE 3070 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 3076 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - _altsIcollectedArounds - {-# LINE 3082 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - _altsIcollectedAugments - {-# LINE 3088 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 3094 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 3100 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - _altsIcollectedInsts - {-# LINE 3106 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - _altsIcollectedMerges - {-# LINE 3112 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _namesIcollectedNames - {-# LINE 3118 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - _altsIcollectedRules - {-# LINE 3124 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 3130 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - _altsIcollectedSigs - {-# LINE 3136 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - _altsIcollectedUniques - {-# LINE 3142 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 3148 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors - {-# LINE 3154 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 3160 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 3166 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 3172 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - _altsIsemPragmasCollect - {-# LINE 3178 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 3184 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - _attrsIuseMap - {-# LINE 3190 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 3196 "Transform.hs" #-} - ) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _attrsIattrDecls - {-# LINE 3202 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3208 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3214 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3220 "Transform.hs" #-} - ) - -- copy rule (down) - _namesOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3226 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3232 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3238 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3244 "Transform.hs" #-} - ) - -- copy rule (down) - _attrsOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 3250 "Transform.hs" #-} - ) - -- copy rule (down) - _altsOallAttrDecls = - ({-# LINE 821 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 3256 "Transform.hs" #-} - ) - -- copy rule (down) - _altsOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3262 "Transform.hs" #-} - ) - -- copy rule (down) - _altsOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 3268 "Transform.hs" #-} - ) - ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = - names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets - ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = - attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions - ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) = - alts_ _altsOallAttrDecls _altsOallFields _altsOnts _altsOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Set :: Pos -> - NontermIdent -> - Bool -> - T_NontSet -> - T_Elem -sem_Elem_Set pos_ name_ merge_ (T_NontSet set_ ) = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOcollectedSetNames :: (Set Identifier) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _lhsOerrors :: (Seq Error) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _setOallFields :: DataTypes - _setOallNonterminals :: (Set NontermIdent) - _setOdefinedSets :: DefinedSets - _setIcollectedNames :: (Set Identifier) - _setIerrors :: (Seq Error) - _setInontSet :: (Set NontermIdent) - -- "Transform.ag"(line 551, column 10) - _lhsOcollectedSetNames = - ({-# LINE 551 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 3326 "Transform.hs" #-} - ) - -- "Transform.ag"(line 658, column 13) - __tup3 = - ({-# LINE 658 "Transform.ag" #-} - let allUsedNames = Set.unions [ maybe (Set.singleton n) - snd - (Map.lookup n _lhsIdefSets) - | n <- Set.toList _setIcollectedNames - ] - (nontSet,e1) | Set.member name_ allUsedNames - = (Set.empty, Seq.singleton(CyclicSet name_)) - | otherwise = (_setInontSet, Seq.empty) - (res, e2) = let toAdd = (nontSet,Set.insert name_ allUsedNames) - union (a,b) (c,d) = (a `Set.union` c, b `Set.union` d) - in if Set.member name_ _lhsIallNonterminals || not merge_ - then checkDuplicate DupSet name_ toAdd _lhsIdefSets - else (Map.insertWith union name_ toAdd _lhsIdefSets, Seq.empty) - in (res, e1 Seq.>< e2) - {-# LINE 3345 "Transform.hs" #-} - ) - -- "Transform.ag"(line 658, column 13) - (_defSets2,_) = - ({-# LINE 658 "Transform.ag" #-} - __tup3 - {-# LINE 3351 "Transform.hs" #-} - ) - -- "Transform.ag"(line 658, column 13) - (_,_errs) = - ({-# LINE 658 "Transform.ag" #-} - __tup3 - {-# LINE 3357 "Transform.hs" #-} - ) - -- "Transform.ag"(line 672, column 9) - _lhsOdefSets = - ({-# LINE 672 "Transform.ag" #-} - _defSets2 - {-# LINE 3363 "Transform.hs" #-} - ) - -- "Transform.ag"(line 672, column 9) - _lhsOerrors = - ({-# LINE 673 "Transform.ag" #-} - _errs >< _setIerrors - {-# LINE 3369 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 3375 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 3381 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 3387 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 3393 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 3399 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 3405 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3411 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 3417 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 3423 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3429 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3435 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 3441 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 3447 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 3453 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 3459 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 3465 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 3471 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 3477 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 3483 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 3489 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 3495 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3501 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 3507 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 3513 "Transform.hs" #-} - ) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 3519 "Transform.hs" #-} - ) - ( _setIcollectedNames,_setIerrors,_setInontSet) = - set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Txt :: Pos -> - Identifier -> - (Maybe NontermIdent) -> - ([String]) -> - T_Elem -sem_Elem_Txt pos_ name_ mbNt_ lines_ = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOblocks :: Blocks - _lhsOerrors :: (Seq Error) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - -- "Transform.ag"(line 180, column 10) - _blockInfo = - ({-# LINE 180 "Transform.ag" #-} - ( let nm = getName name_ - in if nm == "imports" - then BlockImport - else if nm == "optpragmas" - then BlockPragma - else BlockOther - , mbNt_ - ) - {-# LINE 3574 "Transform.hs" #-} - ) - -- "Transform.ag"(line 188, column 10) - _blockValue = - ({-# LINE 188 "Transform.ag" #-} - [(lines_, pos_)] - {-# LINE 3580 "Transform.hs" #-} - ) - -- "Transform.ag"(line 189, column 10) - _lhsOblocks = - ({-# LINE 189 "Transform.ag" #-} - Map.singleton _blockInfo _blockValue - {-# LINE 3586 "Transform.hs" #-} - ) - -- "Transform.ag"(line 190, column 10) - _lhsOerrors = - ({-# LINE 190 "Transform.ag" #-} - if checkParseBlock _lhsIoptions - then let exp = Expression pos_ tks - tks = [tk] - tk = HsToken (unlines lines_) pos_ - in Seq.fromList $ checkBlock $ exp - else Seq.empty - {-# LINE 3597 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 3603 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 3609 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 3615 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 3621 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 3627 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3633 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 3639 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - Set.empty - {-# LINE 3645 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3651 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 3657 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3663 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 3669 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 3675 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 3681 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 3687 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 3693 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 3699 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 3705 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 3711 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 3717 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 3723 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3729 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3735 "Transform.hs" #-} - ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Type :: Pos -> - ClassContext -> - NontermIdent -> - ([Identifier]) -> - ComplexType -> - T_Elem -sem_Elem_Type pos_ ctx_ name_ params_ type_ = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOtypeSyns :: TypeSyns - _lhsOparamsCollect :: ParamMap - _lhsOctxCollect :: ContextMap - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - -- "Transform.ag"(line 248, column 10) - _lhsOcollectedFields = - ({-# LINE 248 "Transform.ag" #-} - map (\(x,y)->(name_, x, y)) _expanded - {-# LINE 3782 "Transform.hs" #-} - ) - -- "Transform.ag"(line 554, column 11) - _lhsOcollectedNames = - ({-# LINE 554 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 3788 "Transform.hs" #-} - ) - -- "Transform.ag"(line 608, column 11) - _expanded = - ({-# LINE 608 "Transform.ag" #-} - case _argType of - List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp) - ,(Ident "tl" pos_, NT name_ (map getName params_)) - ] - ) - ,(Ident "Nil" pos_, []) - ] - Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp) - ] - ) - ,(Ident "Nothing" pos_, []) - ] - Either tp1 tp2 -> [ - (Ident "Left" pos_, [(Ident "left" pos_, tp1) ]) - , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ]) - ] - Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1) - , (Ident "val" pos_, tp2) - , (Ident "tl" pos_, NT name_ (map getName params_)) - ]) - , (Ident "Nil" pos_, []) - ] - IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int") - , (Ident "val" pos_, tp) - , (Ident "tl" pos_, NT name_ (map getName params_)) - ]) - , (Ident "Nil" pos_, []) - ] - Tuple xs -> [(Ident "Tuple" pos_, xs)] - {-# LINE 3822 "Transform.hs" #-} - ) - -- "Transform.ag"(line 637, column 11) - _argType = - ({-# LINE 637 "Transform.ag" #-} - case type_ of - Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp) - Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2) - List tp -> List ( makeType _lhsIallNonterminals tp) - Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs] - Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2) - IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp) - {-# LINE 3834 "Transform.hs" #-} - ) - -- "Transform.ag"(line 644, column 11) - _lhsOtypeSyns = - ({-# LINE 644 "Transform.ag" #-} - [(name_,_argType)] - {-# LINE 3840 "Transform.hs" #-} - ) - -- "Transform.ag"(line 862, column 7) - _lhsOparamsCollect = - ({-# LINE 862 "Transform.ag" #-} - if null params_ - then Map.empty - else Map.singleton name_ params_ - {-# LINE 3848 "Transform.hs" #-} - ) - -- "Transform.ag"(line 885, column 7) - _lhsOctxCollect = - ({-# LINE 885 "Transform.ag" #-} - if null ctx_ - then Map.empty - else Map.singleton name_ ctx_ - {-# LINE 3856 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 3862 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 3868 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 3874 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 3880 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 3886 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 3892 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 3898 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 3904 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 3910 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 3916 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 3922 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 3928 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 3934 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 3940 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 3946 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 3952 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 3958 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 3964 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 3970 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 3976 "Transform.hs" #-} - ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elem_Wrapper :: Pos -> - T_NontSet -> - T_Elem -sem_Elem_Wrapper pos_ (T_NontSet set_ ) = - (T_Elem (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOwrappers :: (Set NontermIdent) - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _setOallFields :: DataTypes - _setOallNonterminals :: (Set NontermIdent) - _setOdefinedSets :: DefinedSets - _setIcollectedNames :: (Set Identifier) - _setIerrors :: (Seq Error) - _setInontSet :: (Set NontermIdent) - -- "Transform.ag"(line 733, column 13) - _lhsOwrappers = - ({-# LINE 733 "Transform.ag" #-} - _setInontSet - {-# LINE 4026 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 4032 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 4038 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 4044 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 4050 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 4056 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 4062 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 4068 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 4074 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _setIcollectedNames - {-# LINE 4080 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 4086 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 4092 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 4098 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 4104 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 4110 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 4116 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _setIerrors - {-# LINE 4122 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 4128 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 4134 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 4140 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 4146 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 4152 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 4158 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 4164 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 4170 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4176 "Transform.hs" #-} - ) - -- copy rule (down) - _setOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4182 "Transform.hs" #-} - ) - -- copy rule (down) - _setOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4188 "Transform.hs" #-} - ) - ( _setIcollectedNames,_setIerrors,_setInontSet) = - set_ _setOallFields _setOallNonterminals _setOdefinedSets - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) --- Elems ------------------------------------------------------- -{- - visit 0: - inherited attributes: - allAttrDecls : Map NontermIdent (Attributes, Attributes) - allConstructors : Map NontermIdent (Set ConstructorIdent) - allFields : DataTypes - allNonterminals : Set NontermIdent - definedSets : DefinedSets - options : Options - chained attributes: - attrDecls : Map NontermIdent (Attributes, Attributes) - defSets : Map Identifier (Set NontermIdent,Set Identifier) - synthesized attributes: - attrOrderCollect : AttrOrderMap - blocks : Blocks - collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] - collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] - collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent) - collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] - collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] - collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] - collectedNames : Set Identifier - collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] - collectedSetNames : Set Identifier - collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] - collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] - ctxCollect : ContextMap - derivings : Derivings - errors : Seq Error - moduleDecl : Maybe (String,String,String) - paramsCollect : ParamMap - pragmas : Options -> Options - semPragmasCollect : PragmaMap - typeSyns : TypeSyns - useMap : Map NontermIdent (Map Identifier (String,String,String)) - wrappers : Set NontermIdent - alternatives: - alternative Cons: - child hd : Elem - child tl : Elems - alternative Nil: --} --- cata -sem_Elems :: Elems -> - T_Elems -sem_Elems list = - (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) ) --- semantic domain -newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) -> - (Map NontermIdent (Set ConstructorIdent)) -> - DataTypes -> - (Set NontermIdent) -> - (Map NontermIdent (Attributes, Attributes)) -> - (Map Identifier (Set NontermIdent,Set Identifier)) -> - DefinedSets -> - Options -> - ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent))) -data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets),options_Inh_Elems :: !(Options)} -data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))} -wrap_Elems :: T_Elems -> - Inh_Elems -> - Syn_Elems -wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) = - (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions - in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers )) -sem_Elems_Cons :: T_Elem -> - T_Elems -> - T_Elems -sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) = - (T_Elems (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) - _hdOallFields :: DataTypes - _hdOallNonterminals :: (Set NontermIdent) - _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _hdOdefinedSets :: DefinedSets - _hdOoptions :: Options - _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) - _tlOallFields :: DataTypes - _tlOallNonterminals :: (Set NontermIdent) - _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _tlOdefinedSets :: DefinedSets - _tlOoptions :: Options - _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _hdIattrOrderCollect :: AttrOrderMap - _hdIblocks :: Blocks - _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _hdIcollectedNames :: (Set Identifier) - _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _hdIcollectedSetNames :: (Set Identifier) - _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _hdIctxCollect :: ContextMap - _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _hdIderivings :: Derivings - _hdIerrors :: (Seq Error) - _hdImoduleDecl :: (Maybe (String,String,String)) - _hdIparamsCollect :: ParamMap - _hdIpragmas :: (Options -> Options) - _hdIsemPragmasCollect :: PragmaMap - _hdItypeSyns :: TypeSyns - _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _hdIwrappers :: (Set NontermIdent) - _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _tlIattrOrderCollect :: AttrOrderMap - _tlIblocks :: Blocks - _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _tlIcollectedNames :: (Set Identifier) - _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _tlIcollectedSetNames :: (Set Identifier) - _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _tlIctxCollect :: ContextMap - _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - _tlIderivings :: Derivings - _tlIerrors :: (Seq Error) - _tlImoduleDecl :: (Maybe (String,String,String)) - _tlIparamsCollect :: ParamMap - _tlIpragmas :: (Options -> Options) - _tlIsemPragmasCollect :: PragmaMap - _tlItypeSyns :: TypeSyns - _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _tlIwrappers :: (Set NontermIdent) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect - {-# LINE 4366 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - _hdIblocks `mapUnionWithPlusPlus` _tlIblocks - {-# LINE 4372 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - _hdIcollectedArounds ++ _tlIcollectedArounds - {-# LINE 4378 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - _hdIcollectedAugments ++ _tlIcollectedAugments - {-# LINE 4384 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap - {-# LINE 4390 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - _hdIcollectedFields ++ _tlIcollectedFields - {-# LINE 4396 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - _hdIcollectedInsts ++ _tlIcollectedInsts - {-# LINE 4402 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - _hdIcollectedMerges ++ _tlIcollectedMerges - {-# LINE 4408 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _hdIcollectedNames `Set.union` _tlIcollectedNames - {-# LINE 4414 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - _hdIcollectedRules ++ _tlIcollectedRules - {-# LINE 4420 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames - {-# LINE 4426 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - _hdIcollectedSigs ++ _tlIcollectedSigs - {-# LINE 4432 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - _hdIcollectedUniques ++ _tlIcollectedUniques - {-# LINE 4438 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - _hdIctxCollect `mergeCtx` _tlIctxCollect - {-# LINE 4444 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - _hdIderivings `mergeDerivings` _tlIderivings - {-# LINE 4450 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 4456 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - _hdImoduleDecl `mplus` _tlImoduleDecl - {-# LINE 4462 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - _hdIparamsCollect `mergeParams` _tlIparamsCollect - {-# LINE 4468 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - _hdIpragmas . _tlIpragmas - {-# LINE 4474 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect - {-# LINE 4480 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - _hdItypeSyns ++ _tlItypeSyns - {-# LINE 4486 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - _hdIuseMap `merge` _tlIuseMap - {-# LINE 4492 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - _hdIwrappers `Set.union` _tlIwrappers - {-# LINE 4498 "Transform.hs" #-} - ) - -- copy rule (up) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _tlIattrDecls - {-# LINE 4504 "Transform.hs" #-} - ) - -- copy rule (up) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _tlIdefSets - {-# LINE 4510 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallAttrDecls = - ({-# LINE 821 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 4516 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallConstructors = - ({-# LINE 96 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 4522 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4528 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4534 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 4540 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 4546 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4552 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 4558 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallAttrDecls = - ({-# LINE 821 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 4564 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallConstructors = - ({-# LINE 96 "Transform.ag" #-} - _lhsIallConstructors - {-# LINE 4570 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4576 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4582 "Transform.hs" #-} - ) - -- copy rule (chain) - _tlOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _hdIattrDecls - {-# LINE 4588 "Transform.hs" #-} - ) - -- copy rule (chain) - _tlOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _hdIdefSets - {-# LINE 4594 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4600 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 4606 "Transform.hs" #-} - ) - ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) = - hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets _hdOoptions - ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) = - tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets _tlOoptions - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) -sem_Elems_Nil :: T_Elems -sem_Elems_Nil = - (T_Elems (\ _lhsIallAttrDecls - _lhsIallConstructors - _lhsIallFields - _lhsIallNonterminals - _lhsIattrDecls - _lhsIdefSets - _lhsIdefinedSets - _lhsIoptions -> - (let _lhsOattrOrderCollect :: AttrOrderMap - _lhsOblocks :: Blocks - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) - _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedNames :: (Set Identifier) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSetNames :: (Set Identifier) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOctxCollect :: ContextMap - _lhsOderivings :: Derivings - _lhsOerrors :: (Seq Error) - _lhsOmoduleDecl :: (Maybe (String,String,String)) - _lhsOparamsCollect :: ParamMap - _lhsOpragmas :: (Options -> Options) - _lhsOsemPragmasCollect :: PragmaMap - _lhsOtypeSyns :: TypeSyns - _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) - _lhsOwrappers :: (Set NontermIdent) - _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) - _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 4652 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 45, column 19) - _lhsOblocks = - ({-# LINE 45 "Transform.ag" #-} - Map.empty - {-# LINE 4658 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 4664 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 4670 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 94, column 48) - _lhsOcollectedConstructorsMap = - ({-# LINE 94 "Transform.ag" #-} - Map.empty - {-# LINE 4676 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 125, column 28) - _lhsOcollectedFields = - ({-# LINE 125 "Transform.ag" #-} - [] - {-# LINE 4682 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 4688 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 4694 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - Set.empty - {-# LINE 4700 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 4706 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 85, column 50) - _lhsOcollectedSetNames = - ({-# LINE 85 "Transform.ag" #-} - Set.empty - {-# LINE 4712 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 4718 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 4724 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 875, column 34) - _lhsOctxCollect = - ({-# LINE 875 "Transform.ag" #-} - Map.empty - {-# LINE 4730 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 900, column 33) - _lhsOderivings = - ({-# LINE 900 "Transform.ag" #-} - Map.empty - {-# LINE 4736 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 4742 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1096, column 37) - _lhsOmoduleDecl = - ({-# LINE 1096 "Transform.ag" #-} - mzero - {-# LINE 4748 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 852, column 37) - _lhsOparamsCollect = - ({-# LINE 852 "Transform.ag" #-} - Map.empty - {-# LINE 4754 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 746, column 34) - _lhsOpragmas = - ({-# LINE 746 "Transform.ag" #-} - id - {-# LINE 4760 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 4766 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 595, column 32) - _lhsOtypeSyns = - ({-# LINE 595 "Transform.ag" #-} - [] - {-# LINE 4772 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 137, column 15) - _lhsOuseMap = - ({-# LINE 137 "Transform.ag" #-} - Map.empty - {-# LINE 4778 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 730, column 32) - _lhsOwrappers = - ({-# LINE 730 "Transform.ag" #-} - Set.empty - {-# LINE 4784 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOattrDecls = - ({-# LINE 136 "Transform.ag" #-} - _lhsIattrDecls - {-# LINE 4790 "Transform.hs" #-} - ) - -- copy rule (chain) - _lhsOdefSets = - ({-# LINE 104 "Transform.ag" #-} - _lhsIdefSets - {-# LINE 4796 "Transform.hs" #-} - ) - in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) --- NontSet ----------------------------------------------------- -{- - visit 0: - inherited attributes: - allFields : DataTypes - allNonterminals : Set NontermIdent - definedSets : DefinedSets - synthesized attributes: - collectedNames : Set Identifier - errors : Seq Error - nontSet : Set NontermIdent - alternatives: - alternative All: - alternative Difference: - child set1 : NontSet - child set2 : NontSet - alternative Intersect: - child set1 : NontSet - child set2 : NontSet - alternative NamedSet: - child name : {NontermIdent} - visit 0: - local _tup4 : _ - local nontSet : _ - local errors : _ - alternative Path: - child from : {NontermIdent} - child to : {NontermIdent} - alternative Union: - child set1 : NontSet - child set2 : NontSet --} --- cata -sem_NontSet :: NontSet -> - T_NontSet -sem_NontSet (All ) = - (sem_NontSet_All ) -sem_NontSet (Difference _set1 _set2 ) = - (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) ) -sem_NontSet (Intersect _set1 _set2 ) = - (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) ) -sem_NontSet (NamedSet _name ) = - (sem_NontSet_NamedSet _name ) -sem_NontSet (Path _from _to ) = - (sem_NontSet_Path _from _to ) -sem_NontSet (Union _set1 _set2 ) = - (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) ) --- semantic domain -newtype T_NontSet = T_NontSet (DataTypes -> - (Set NontermIdent) -> - DefinedSets -> - ( (Set Identifier),(Seq Error),(Set NontermIdent))) -data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)} -data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))} -wrap_NontSet :: T_NontSet -> - Inh_NontSet -> - Syn_NontSet -wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) = - (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets - in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet )) -sem_NontSet_All :: T_NontSet -sem_NontSet_All = - (T_NontSet (\ _lhsIallFields - _lhsIallNonterminals - _lhsIdefinedSets -> - (let _lhsOnontSet :: (Set NontermIdent) - _lhsOcollectedNames :: (Set Identifier) - _lhsOerrors :: (Seq Error) - -- "Transform.ag"(line 676, column 16) - _lhsOnontSet = - ({-# LINE 676 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4871 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - Set.empty - {-# LINE 4877 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 4883 "Transform.hs" #-} - ) - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) -sem_NontSet_Difference :: T_NontSet -> - T_NontSet -> - T_NontSet -sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) = - (T_NontSet (\ _lhsIallFields - _lhsIallNonterminals - _lhsIdefinedSets -> - (let _lhsOnontSet :: (Set NontermIdent) - _lhsOcollectedNames :: (Set Identifier) - _lhsOerrors :: (Seq Error) - _set1OallFields :: DataTypes - _set1OallNonterminals :: (Set NontermIdent) - _set1OdefinedSets :: DefinedSets - _set2OallFields :: DataTypes - _set2OallNonterminals :: (Set NontermIdent) - _set2OdefinedSets :: DefinedSets - _set1IcollectedNames :: (Set Identifier) - _set1Ierrors :: (Seq Error) - _set1InontSet :: (Set NontermIdent) - _set2IcollectedNames :: (Set Identifier) - _set2Ierrors :: (Seq Error) - _set2InontSet :: (Set NontermIdent) - -- "Transform.ag"(line 682, column 16) - _lhsOnontSet = - ({-# LINE 682 "Transform.ag" #-} - Set.difference _set1InontSet _set2InontSet - {-# LINE 4912 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4918 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 4924 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4930 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4936 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4942 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 4948 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 4954 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 4960 "Transform.hs" #-} - ) - ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) = - set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) = - set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) -sem_NontSet_Intersect :: T_NontSet -> - T_NontSet -> - T_NontSet -sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) = - (T_NontSet (\ _lhsIallFields - _lhsIallNonterminals - _lhsIdefinedSets -> - (let _lhsOnontSet :: (Set NontermIdent) - _lhsOcollectedNames :: (Set Identifier) - _lhsOerrors :: (Seq Error) - _set1OallFields :: DataTypes - _set1OallNonterminals :: (Set NontermIdent) - _set1OdefinedSets :: DefinedSets - _set2OallFields :: DataTypes - _set2OallNonterminals :: (Set NontermIdent) - _set2OdefinedSets :: DefinedSets - _set1IcollectedNames :: (Set Identifier) - _set1Ierrors :: (Seq Error) - _set1InontSet :: (Set NontermIdent) - _set2IcollectedNames :: (Set Identifier) - _set2Ierrors :: (Seq Error) - _set2InontSet :: (Set NontermIdent) - -- "Transform.ag"(line 681, column 16) - _lhsOnontSet = - ({-# LINE 681 "Transform.ag" #-} - Set.intersection _set1InontSet _set2InontSet - {-# LINE 4993 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 4999 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 5005 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 5011 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 5017 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 5023 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 5029 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 5035 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 5041 "Transform.hs" #-} - ) - ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) = - set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) = - set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) -sem_NontSet_NamedSet :: NontermIdent -> - T_NontSet -sem_NontSet_NamedSet name_ = - (T_NontSet (\ _lhsIallFields - _lhsIallNonterminals - _lhsIdefinedSets -> - (let _lhsOcollectedNames :: (Set Identifier) - _lhsOerrors :: (Seq Error) - _lhsOnontSet :: (Set NontermIdent) - -- "Transform.ag"(line 557, column 14) - _lhsOcollectedNames = - ({-# LINE 557 "Transform.ag" #-} - Set.singleton name_ - {-# LINE 5061 "Transform.hs" #-} - ) - -- "Transform.ag"(line 677, column 20) - __tup4 = - ({-# LINE 677 "Transform.ag" #-} - case Map.lookup name_ _lhsIdefinedSets of - Nothing -> (Set.empty, Seq.singleton (UndefNont name_)) - Just set -> (set, Seq.empty) - {-# LINE 5069 "Transform.hs" #-} - ) - -- "Transform.ag"(line 677, column 20) - (_nontSet,_) = - ({-# LINE 677 "Transform.ag" #-} - __tup4 - {-# LINE 5075 "Transform.hs" #-} - ) - -- "Transform.ag"(line 677, column 20) - (_,_errors) = - ({-# LINE 677 "Transform.ag" #-} - __tup4 - {-# LINE 5081 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _errors - {-# LINE 5087 "Transform.hs" #-} - ) - -- copy rule (from local) - _lhsOnontSet = - ({-# LINE 112 "Transform.ag" #-} - _nontSet - {-# LINE 5093 "Transform.hs" #-} - ) - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) -sem_NontSet_Path :: NontermIdent -> - NontermIdent -> - T_NontSet -sem_NontSet_Path from_ to_ = - (T_NontSet (\ _lhsIallFields - _lhsIallNonterminals - _lhsIdefinedSets -> - (let _lhsOnontSet :: (Set NontermIdent) - _lhsOerrors :: (Seq Error) - _lhsOcollectedNames :: (Set Identifier) - -- "Transform.ag"(line 683, column 16) - _lhsOnontSet = - ({-# LINE 683 "Transform.ag" #-} - let table = flattenDatas _lhsIallFields - in path table from_ to_ - {-# LINE 5111 "Transform.hs" #-} - ) - -- "Transform.ag"(line 685, column 16) - _lhsOerrors = - ({-# LINE 685 "Transform.ag" #-} - let check name | Set.member name _lhsIallNonterminals - = Seq.empty - | otherwise = Seq.singleton (UndefNont name) - in check from_ >< check to_ - {-# LINE 5120 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - Set.empty - {-# LINE 5126 "Transform.hs" #-} - ) - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) -sem_NontSet_Union :: T_NontSet -> - T_NontSet -> - T_NontSet -sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) = - (T_NontSet (\ _lhsIallFields - _lhsIallNonterminals - _lhsIdefinedSets -> - (let _lhsOnontSet :: (Set NontermIdent) - _lhsOcollectedNames :: (Set Identifier) - _lhsOerrors :: (Seq Error) - _set1OallFields :: DataTypes - _set1OallNonterminals :: (Set NontermIdent) - _set1OdefinedSets :: DefinedSets - _set2OallFields :: DataTypes - _set2OallNonterminals :: (Set NontermIdent) - _set2OdefinedSets :: DefinedSets - _set1IcollectedNames :: (Set Identifier) - _set1Ierrors :: (Seq Error) - _set1InontSet :: (Set NontermIdent) - _set2IcollectedNames :: (Set Identifier) - _set2Ierrors :: (Seq Error) - _set2InontSet :: (Set NontermIdent) - -- "Transform.ag"(line 680, column 16) - _lhsOnontSet = - ({-# LINE 680 "Transform.ag" #-} - Set.union _set1InontSet _set2InontSet - {-# LINE 5155 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 86, column 50) - _lhsOcollectedNames = - ({-# LINE 86 "Transform.ag" #-} - _set1IcollectedNames `Set.union` _set2IcollectedNames - {-# LINE 5161 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _set1Ierrors Seq.>< _set2Ierrors - {-# LINE 5167 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 5173 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 5179 "Transform.hs" #-} - ) - -- copy rule (down) - _set1OdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 5185 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 5191 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OallNonterminals = - ({-# LINE 88 "Transform.ag" #-} - _lhsIallNonterminals - {-# LINE 5197 "Transform.hs" #-} - ) - -- copy rule (down) - _set2OdefinedSets = - ({-# LINE 107 "Transform.ag" #-} - _lhsIdefinedSets - {-# LINE 5203 "Transform.hs" #-} - ) - ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) = - set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets - ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) = - set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets - in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) --- Pattern ----------------------------------------------------- -{- - visit 0: - synthesized attributes: - copy : SELF - definedAttrs : [AttrName] - definedInsts : [Identifier] - patunder : [AttrName]->Pattern - stpos : Pos - alternatives: - alternative Alias: - child field : {Identifier} - child attr : {Identifier} - child pat : Pattern - child parts : Patterns - visit 0: - local copy : _ - alternative Constr: - child name : {ConstructorIdent} - child pats : Patterns - visit 0: - local copy : _ - alternative Irrefutable: - child pat : Pattern - visit 0: - local copy : _ - alternative Product: - child pos : {Pos} - child pats : Patterns - visit 0: - local copy : _ - alternative Underscore: - child pos : {Pos} - visit 0: - local copy : _ --} --- cata -sem_Pattern :: Pattern -> - T_Pattern -sem_Pattern (Alias _field _attr _pat _parts ) = - (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) ) -sem_Pattern (Constr _name _pats ) = - (sem_Pattern_Constr _name (sem_Patterns _pats ) ) -sem_Pattern (Irrefutable _pat ) = - (sem_Pattern_Irrefutable (sem_Pattern _pat ) ) -sem_Pattern (Product _pos _pats ) = - (sem_Pattern_Product _pos (sem_Patterns _pats ) ) -sem_Pattern (Underscore _pos ) = - (sem_Pattern_Underscore _pos ) --- semantic domain -newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos)) -data Inh_Pattern = Inh_Pattern {} -data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)} -wrap_Pattern :: T_Pattern -> - Inh_Pattern -> - Syn_Pattern -wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) = - (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem - in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos )) -sem_Pattern_Alias :: Identifier -> - Identifier -> - T_Pattern -> - T_Patterns -> - T_Pattern -sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = - (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName]) - _lhsOpatunder :: ([AttrName]->Pattern) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOstpos :: Pos - _lhsOcopy :: Pattern - _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName]) - _patIdefinedInsts :: ([Identifier]) - _patIpatunder :: ([AttrName]->Pattern) - _patIstpos :: Pos - _partsIcopy :: Patterns - _partsIdefinedAttrs :: ([AttrName]) - _partsIdefinedInsts :: ([Identifier]) - _partsIpatunder :: ([AttrName]->Patterns) - -- "Transform.ag"(line 1072, column 11) - _lhsOdefinedAttrs = - ({-# LINE 1072 "Transform.ag" #-} - (field_, attr_) : _patIdefinedAttrs - {-# LINE 5293 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1073, column 11) - _lhsOpatunder = - ({-# LINE 1073 "Transform.ag" #-} - \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy - {-# LINE 5299 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1074, column 11) - _lhsOdefinedInsts = - ({-# LINE 1074 "Transform.ag" #-} - (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts - {-# LINE 5305 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1089, column 16) - _lhsOstpos = - ({-# LINE 1089 "Transform.ag" #-} - getPos field_ - {-# LINE 5311 "Transform.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Alias field_ attr_ _patIcopy _partsIcopy - {-# LINE 5317 "Transform.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 5323 "Transform.hs" #-} - ) - ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) = - pat_ - ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) = - parts_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) -sem_Pattern_Constr :: ConstructorIdent -> - T_Patterns -> - T_Pattern -sem_Pattern_Constr name_ (T_Patterns pats_ ) = - (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) - _lhsOstpos :: Pos - _lhsOdefinedAttrs :: ([AttrName]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName]) - _patsIdefinedInsts :: ([Identifier]) - _patsIpatunder :: ([AttrName]->Patterns) - -- "Transform.ag"(line 1076, column 12) - _lhsOpatunder = - ({-# LINE 1076 "Transform.ag" #-} - \us -> Constr name_ (_patsIpatunder us) - {-# LINE 5347 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1087, column 16) - _lhsOstpos = - ({-# LINE 1087 "Transform.ag" #-} - getPos name_ - {-# LINE 5353 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1067, column 42) - _lhsOdefinedAttrs = - ({-# LINE 1067 "Transform.ag" #-} - _patsIdefinedAttrs - {-# LINE 5359 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - _patsIdefinedInsts - {-# LINE 5365 "Transform.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Constr name_ _patsIcopy - {-# LINE 5371 "Transform.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 5377 "Transform.hs" #-} - ) - ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) = - pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) -sem_Pattern_Irrefutable :: T_Pattern -> - T_Pattern -sem_Pattern_Irrefutable (T_Pattern pat_ ) = - (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) - _lhsOdefinedAttrs :: ([AttrName]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOcopy :: Pattern - _lhsOstpos :: Pos - _patIcopy :: Pattern - _patIdefinedAttrs :: ([AttrName]) - _patIdefinedInsts :: ([Identifier]) - _patIpatunder :: ([AttrName]->Pattern) - _patIstpos :: Pos - -- "Transform.ag"(line 1078, column 17) - _lhsOpatunder = - ({-# LINE 1078 "Transform.ag" #-} - \us -> Irrefutable (_patIpatunder us) - {-# LINE 5399 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1067, column 42) - _lhsOdefinedAttrs = - ({-# LINE 1067 "Transform.ag" #-} - _patIdefinedAttrs - {-# LINE 5405 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - _patIdefinedInsts - {-# LINE 5411 "Transform.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Irrefutable _patIcopy - {-# LINE 5417 "Transform.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 5423 "Transform.hs" #-} - ) - -- copy rule (up) - _lhsOstpos = - ({-# LINE 1084 "Transform.ag" #-} - _patIstpos - {-# LINE 5429 "Transform.hs" #-} - ) - ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) = - pat_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) -sem_Pattern_Product :: Pos -> - T_Patterns -> - T_Pattern -sem_Pattern_Product pos_ (T_Patterns pats_ ) = - (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) - _lhsOstpos :: Pos - _lhsOdefinedAttrs :: ([AttrName]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOcopy :: Pattern - _patsIcopy :: Patterns - _patsIdefinedAttrs :: ([AttrName]) - _patsIdefinedInsts :: ([Identifier]) - _patsIpatunder :: ([AttrName]->Patterns) - -- "Transform.ag"(line 1077, column 13) - _lhsOpatunder = - ({-# LINE 1077 "Transform.ag" #-} - \us -> Product pos_ (_patsIpatunder us) - {-# LINE 5451 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1088, column 16) - _lhsOstpos = - ({-# LINE 1088 "Transform.ag" #-} - pos_ - {-# LINE 5457 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1067, column 42) - _lhsOdefinedAttrs = - ({-# LINE 1067 "Transform.ag" #-} - _patsIdefinedAttrs - {-# LINE 5463 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - _patsIdefinedInsts - {-# LINE 5469 "Transform.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Product pos_ _patsIcopy - {-# LINE 5475 "Transform.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 5481 "Transform.hs" #-} - ) - ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) = - pats_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) -sem_Pattern_Underscore :: Pos -> - T_Pattern -sem_Pattern_Underscore pos_ = - (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) - _lhsOstpos :: Pos - _lhsOdefinedAttrs :: ([AttrName]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOcopy :: Pattern - -- "Transform.ag"(line 1075, column 16) - _lhsOpatunder = - ({-# LINE 1075 "Transform.ag" #-} - \us -> _copy - {-# LINE 5498 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1090, column 16) - _lhsOstpos = - ({-# LINE 1090 "Transform.ag" #-} - pos_ - {-# LINE 5504 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1067, column 42) - _lhsOdefinedAttrs = - ({-# LINE 1067 "Transform.ag" #-} - [] - {-# LINE 5510 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 5516 "Transform.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - Underscore pos_ - {-# LINE 5522 "Transform.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 5528 "Transform.hs" #-} - ) - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) --- Patterns ---------------------------------------------------- -{- - visit 0: - synthesized attributes: - copy : SELF - definedAttrs : [AttrName] - definedInsts : [Identifier] - patunder : [AttrName]->Patterns - alternatives: - alternative Cons: - child hd : Pattern - child tl : Patterns - visit 0: - local copy : _ - alternative Nil: - visit 0: - local copy : _ --} --- cata -sem_Patterns :: Patterns -> - T_Patterns -sem_Patterns list = - (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) --- semantic domain -newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns))) -data Inh_Patterns = Inh_Patterns {} -data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))} -wrap_Patterns :: T_Patterns -> - Inh_Patterns -> - Syn_Patterns -wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) = - (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem - in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder )) -sem_Patterns_Cons :: T_Pattern -> - T_Patterns -> - T_Patterns -sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = - (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns) - _lhsOdefinedAttrs :: ([AttrName]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOcopy :: Patterns - _hdIcopy :: Pattern - _hdIdefinedAttrs :: ([AttrName]) - _hdIdefinedInsts :: ([Identifier]) - _hdIpatunder :: ([AttrName]->Pattern) - _hdIstpos :: Pos - _tlIcopy :: Patterns - _tlIdefinedAttrs :: ([AttrName]) - _tlIdefinedInsts :: ([Identifier]) - _tlIpatunder :: ([AttrName]->Patterns) - -- "Transform.ag"(line 1082, column 10) - _lhsOpatunder = - ({-# LINE 1082 "Transform.ag" #-} - \us -> (_hdIpatunder us) : (_tlIpatunder us) - {-# LINE 5585 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1067, column 42) - _lhsOdefinedAttrs = - ({-# LINE 1067 "Transform.ag" #-} - _hdIdefinedAttrs ++ _tlIdefinedAttrs - {-# LINE 5591 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 5597 "Transform.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - (:) _hdIcopy _tlIcopy - {-# LINE 5603 "Transform.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 5609 "Transform.hs" #-} - ) - ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) = - hd_ - ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) = - tl_ - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) ) -sem_Patterns_Nil :: T_Patterns -sem_Patterns_Nil = - (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns) - _lhsOdefinedAttrs :: ([AttrName]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOcopy :: Patterns - -- "Transform.ag"(line 1081, column 9) - _lhsOpatunder = - ({-# LINE 1081 "Transform.ag" #-} - \us -> [] - {-# LINE 5626 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1067, column 42) - _lhsOdefinedAttrs = - ({-# LINE 1067 "Transform.ag" #-} - [] - {-# LINE 5632 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 5638 "Transform.hs" #-} - ) - -- self rule - _copy = - ({-# LINE 23 "./Patterns.ag" #-} - [] - {-# LINE 5644 "Transform.hs" #-} - ) - -- self rule - _lhsOcopy = - ({-# LINE 23 "./Patterns.ag" #-} - _copy - {-# LINE 5650 "Transform.hs" #-} - ) - in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) ) --- SemAlt ------------------------------------------------------ -{- - visit 0: - inherited attributes: - allAttrDecls : Map NontermIdent (Attributes, Attributes) - allFields : DataTypes - nts : Set NontermIdent - options : Options - synthesized attributes: - attrOrderCollect : AttrOrderMap - collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] - collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] - collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] - collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] - collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] - collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] - collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] - errors : Seq Error - semPragmasCollect : PragmaMap - alternatives: - alternative SemAlt: - child pos : {Pos} - child constructorSet : ConstructorSet - child rules : SemDefs - visit 0: - local pragmaNames : _ - local attrOrders : _ - local coninfo : _ --} --- cata -sem_SemAlt :: SemAlt -> - T_SemAlt -sem_SemAlt (SemAlt _pos _constructorSet _rules ) = - (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) ) --- semantic domain -newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) -> - DataTypes -> - (Set NontermIdent) -> - Options -> - ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap)) -data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent)),options_Inh_SemAlt :: !(Options)} -data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)} -wrap_SemAlt :: T_SemAlt -> - Inh_SemAlt -> - Syn_SemAlt -wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) = - (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions - in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect )) -sem_SemAlt_SemAlt :: Pos -> - T_ConstructorSet -> - T_SemDefs -> - T_SemAlt -sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) = - (T_SemAlt (\ _lhsIallAttrDecls - _lhsIallFields - _lhsInts - _lhsIoptions -> - (let _lhsOsemPragmasCollect :: PragmaMap - _lhsOattrOrderCollect :: AttrOrderMap - _lhsOerrors :: (Seq Error) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _rulesOoptions :: Options - _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent) - _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) - _constructorSetIerrors :: (Seq Error) - _rulesIaroundInfos :: ([AroundInfo]) - _rulesIaugmentInfos :: ([AugmentInfo]) - _rulesIdefinedInsts :: ([Identifier]) - _rulesIerrors :: (Seq Error) - _rulesImergeInfos :: ([MergeInfo]) - _rulesIorderDepsCollect :: (Set Dependency) - _rulesIpragmaNamesCollect :: ([Identifier]) - _rulesIruleInfos :: ([RuleInfo]) - _rulesIsigInfos :: ([SigInfo]) - _rulesIuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 796, column 7) - _pragmaNames = - ({-# LINE 796 "Transform.ag" #-} - Set.fromList _rulesIpragmaNamesCollect - {-# LINE 5738 "Transform.hs" #-} - ) - -- "Transform.ag"(line 797, column 7) - _lhsOsemPragmasCollect = - ({-# LINE 797 "Transform.ag" #-} - foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 5747 "Transform.hs" #-} - ) - -- "Transform.ag"(line 825, column 7) - _attrOrders = - ({-# LINE 825 "Transform.ag" #-} - [ orderMapSingle nt con _rulesIorderDepsCollect - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 5756 "Transform.hs" #-} - ) - -- "Transform.ag"(line 831, column 7) - _lhsOattrOrderCollect = - ({-# LINE 831 "Transform.ag" #-} - foldr orderMapUnion Map.empty _attrOrders - {-# LINE 5762 "Transform.hs" #-} - ) - -- "Transform.ag"(line 991, column 12) - _coninfo = - ({-# LINE 991 "Transform.ag" #-} - [ (nt, conset, conkeys) - | nt <- Set.toList _lhsInts - , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields - , let conkeys = Set.fromList (Map.keys conmap) - , let conset = _constructorSetIconstructors conkeys - ] - {-# LINE 5773 "Transform.hs" #-} - ) - -- "Transform.ag"(line 998, column 12) - _lhsOerrors = - ({-# LINE 998 "Transform.ag" #-} - Seq.fromList - [ UndefAlt nt con - | (nt, conset, conkeys) <- _coninfo - , con <- Set.toList (Set.difference conset conkeys) - ] - Seq.>< _rulesIerrors - {-# LINE 5784 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1004, column 12) - _lhsOcollectedRules = - ({-# LINE 1004 "Transform.ag" #-} - [ (nt,con,r) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - , r <- _rulesIruleInfos - ] - {-# LINE 5794 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1010, column 12) - _lhsOcollectedSigs = - ({-# LINE 1010 "Transform.ag" #-} - [ (nt,con,ts) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - , ts <- _rulesIsigInfos - ] - {-# LINE 5804 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1017, column 12) - _lhsOcollectedInsts = - ({-# LINE 1017 "Transform.ag" #-} - [ (nt,con,_rulesIdefinedInsts) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 5813 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1023, column 12) - _lhsOcollectedUniques = - ({-# LINE 1023 "Transform.ag" #-} - [ (nt,con,_rulesIuniqueInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 5822 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1029, column 12) - _lhsOcollectedAugments = - ({-# LINE 1029 "Transform.ag" #-} - [ (nt, con, _rulesIaugmentInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 5831 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1035, column 12) - _lhsOcollectedArounds = - ({-# LINE 1035 "Transform.ag" #-} - [ (nt, con, _rulesIaroundInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 5840 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1041, column 12) - _lhsOcollectedMerges = - ({-# LINE 1041 "Transform.ag" #-} - [ (nt, con, _rulesImergeInfos) - | (nt, conset, _) <- _coninfo - , con <- Set.toList conset - ] - {-# LINE 5849 "Transform.hs" #-} - ) - -- copy rule (down) - _rulesOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 5855 "Transform.hs" #-} - ) - ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) = - constructorSet_ - ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) = - rules_ _rulesOoptions - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) --- SemAlts ----------------------------------------------------- -{- - visit 0: - inherited attributes: - allAttrDecls : Map NontermIdent (Attributes, Attributes) - allFields : DataTypes - nts : Set NontermIdent - options : Options - synthesized attributes: - attrOrderCollect : AttrOrderMap - collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] - collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] - collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] - collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] - collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] - collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] - collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] - errors : Seq Error - semPragmasCollect : PragmaMap - alternatives: - alternative Cons: - child hd : SemAlt - child tl : SemAlts - alternative Nil: --} --- cata -sem_SemAlts :: SemAlts -> - T_SemAlts -sem_SemAlts list = - (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) ) --- semantic domain -newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) -> - DataTypes -> - (Set NontermIdent) -> - Options -> - ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap)) -data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent)),options_Inh_SemAlts :: !(Options)} -data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)} -wrap_SemAlts :: T_SemAlts -> - Inh_SemAlts -> - Syn_SemAlts -wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) = - (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions - in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect )) -sem_SemAlts_Cons :: T_SemAlt -> - T_SemAlts -> - T_SemAlts -sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) = - (T_SemAlts (\ _lhsIallAttrDecls - _lhsIallFields - _lhsInts - _lhsIoptions -> - (let _lhsOattrOrderCollect :: AttrOrderMap - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOerrors :: (Seq Error) - _lhsOsemPragmasCollect :: PragmaMap - _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _hdOallFields :: DataTypes - _hdOnts :: (Set NontermIdent) - _hdOoptions :: Options - _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) - _tlOallFields :: DataTypes - _tlOnts :: (Set NontermIdent) - _tlOoptions :: Options - _hdIattrOrderCollect :: AttrOrderMap - _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _hdIerrors :: (Seq Error) - _hdIsemPragmasCollect :: PragmaMap - _tlIattrOrderCollect :: AttrOrderMap - _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _tlIerrors :: (Seq Error) - _tlIsemPragmasCollect :: PragmaMap - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect - {-# LINE 5956 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - _hdIcollectedArounds ++ _tlIcollectedArounds - {-# LINE 5962 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - _hdIcollectedAugments ++ _tlIcollectedAugments - {-# LINE 5968 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - _hdIcollectedInsts ++ _tlIcollectedInsts - {-# LINE 5974 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - _hdIcollectedMerges ++ _tlIcollectedMerges - {-# LINE 5980 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - _hdIcollectedRules ++ _tlIcollectedRules - {-# LINE 5986 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - _hdIcollectedSigs ++ _tlIcollectedSigs - {-# LINE 5992 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - _hdIcollectedUniques ++ _tlIcollectedUniques - {-# LINE 5998 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 6004 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect - {-# LINE 6010 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallAttrDecls = - ({-# LINE 821 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 6016 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 6022 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOnts = - ({-# LINE 167 "Transform.ag" #-} - _lhsInts - {-# LINE 6028 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 6034 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallAttrDecls = - ({-# LINE 821 "Transform.ag" #-} - _lhsIallAttrDecls - {-# LINE 6040 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOallFields = - ({-# LINE 128 "Transform.ag" #-} - _lhsIallFields - {-# LINE 6046 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOnts = - ({-# LINE 167 "Transform.ag" #-} - _lhsInts - {-# LINE 6052 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 6058 "Transform.hs" #-} - ) - ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) = - hd_ _hdOallAttrDecls _hdOallFields _hdOnts _hdOoptions - ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) = - tl_ _tlOallAttrDecls _tlOallFields _tlOnts _tlOoptions - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) -sem_SemAlts_Nil :: T_SemAlts -sem_SemAlts_Nil = - (T_SemAlts (\ _lhsIallAttrDecls - _lhsIallFields - _lhsInts - _lhsIoptions -> - (let _lhsOattrOrderCollect :: AttrOrderMap - _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) - _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) - _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) - _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) - _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) - _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) - _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) - _lhsOerrors :: (Seq Error) - _lhsOsemPragmasCollect :: PragmaMap - -- use rule "Transform.ag"(line 820, column 55) - _lhsOattrOrderCollect = - ({-# LINE 820 "Transform.ag" #-} - Map.empty - {-# LINE 6085 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 156, column 32) - _lhsOcollectedArounds = - ({-# LINE 156 "Transform.ag" #-} - [] - {-# LINE 6091 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 155, column 32) - _lhsOcollectedAugments = - ({-# LINE 155 "Transform.ag" #-} - [] - {-# LINE 6097 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 153, column 32) - _lhsOcollectedInsts = - ({-# LINE 153 "Transform.ag" #-} - [] - {-# LINE 6103 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 157, column 32) - _lhsOcollectedMerges = - ({-# LINE 157 "Transform.ag" #-} - [] - {-# LINE 6109 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 151, column 32) - _lhsOcollectedRules = - ({-# LINE 151 "Transform.ag" #-} - [] - {-# LINE 6115 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 152, column 32) - _lhsOcollectedSigs = - ({-# LINE 152 "Transform.ag" #-} - [] - {-# LINE 6121 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 154, column 32) - _lhsOcollectedUniques = - ({-# LINE 154 "Transform.ag" #-} - [] - {-# LINE 6127 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 6133 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 792, column 56) - _lhsOsemPragmasCollect = - ({-# LINE 792 "Transform.ag" #-} - Map.empty - {-# LINE 6139 "Transform.hs" #-} - ) - in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) --- SemDef ------------------------------------------------------ -{- - visit 0: - inherited attribute: - options : Options - synthesized attributes: - aroundInfos : [AroundInfo] - augmentInfos : [AugmentInfo] - definedInsts : [Identifier] - errors : Seq Error - mergeInfos : [MergeInfo] - orderDepsCollect : Set Dependency - pragmaNamesCollect : [Identifier] - ruleInfos : [RuleInfo] - sigInfos : [SigInfo] - uniqueInfos : [UniqueInfo] - alternatives: - alternative AroundDef: - child ident : {Identifier} - child rhs : {Expression} - alternative AttrOrderBefore: - child before : {[Occurrence]} - child after : {[Occurrence]} - visit 0: - local dependency : _ - alternative AugmentDef: - child ident : {Identifier} - child rhs : {Expression} - alternative Def: - child pos : {Pos} - child mbName : {Maybe Identifier} - child pattern : Pattern - child rhs : {Expression} - child owrt : {Bool} - alternative MergeDef: - child target : {Identifier} - child nt : {Identifier} - child sources : {[Identifier]} - child rhs : {Expression} - alternative SemPragma: - child names : {[NontermIdent]} - alternative TypeDef: - child pos : {Pos} - child ident : {Identifier} - child tp : {Type} - alternative UniqueDef: - child ident : {Identifier} - child ref : {Identifier} --} --- cata -sem_SemDef :: SemDef -> - T_SemDef -sem_SemDef (AroundDef _ident _rhs ) = - (sem_SemDef_AroundDef _ident _rhs ) -sem_SemDef (AttrOrderBefore _before _after ) = - (sem_SemDef_AttrOrderBefore _before _after ) -sem_SemDef (AugmentDef _ident _rhs ) = - (sem_SemDef_AugmentDef _ident _rhs ) -sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) = - (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt ) -sem_SemDef (MergeDef _target _nt _sources _rhs ) = - (sem_SemDef_MergeDef _target _nt _sources _rhs ) -sem_SemDef (SemPragma _names ) = - (sem_SemDef_SemPragma _names ) -sem_SemDef (TypeDef _pos _ident _tp ) = - (sem_SemDef_TypeDef _pos _ident _tp ) -sem_SemDef (UniqueDef _ident _ref ) = - (sem_SemDef_UniqueDef _ident _ref ) --- semantic domain -newtype T_SemDef = T_SemDef (Options -> - ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) -data Inh_SemDef = Inh_SemDef {options_Inh_SemDef :: !(Options)} -data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),errors_Syn_SemDef :: !((Seq Error)),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))} -wrap_SemDef :: T_SemDef -> - Inh_SemDef -> - Syn_SemDef -wrap_SemDef (T_SemDef sem ) (Inh_SemDef _lhsIoptions ) = - (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions - in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos )) -sem_SemDef_AroundDef :: Identifier -> - Expression -> - T_SemDef -sem_SemDef_AroundDef ident_ rhs_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 1060, column 17) - _lhsOaroundInfos = - ({-# LINE 1060 "Transform.ag" #-} - [ (ident_, rhs_) ] - {-# LINE 6240 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 6246 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 6252 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 6258 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 6264 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 6270 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 6276 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 6282 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 6288 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 6294 "Transform.hs" #-} - ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDef_AttrOrderBefore :: ([Occurrence]) -> - ([Occurrence]) -> - T_SemDef -sem_SemDef_AttrOrderBefore before_ after_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOorderDepsCollect :: (Set Dependency) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 837, column 7) - _dependency = - ({-# LINE 837 "Transform.ag" #-} - [ Dependency b a | b <- before_, a <- after_ ] - {-# LINE 6316 "Transform.hs" #-} - ) - -- "Transform.ag"(line 838, column 7) - _lhsOorderDepsCollect = - ({-# LINE 838 "Transform.ag" #-} - Set.fromList _dependency - {-# LINE 6322 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 6328 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 6334 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 6340 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 6346 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 6352 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 6358 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 6364 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 6370 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 6376 "Transform.hs" #-} - ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDef_AugmentDef :: Identifier -> - Expression -> - T_SemDef -sem_SemDef_AugmentDef ident_ rhs_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 1057, column 17) - _lhsOaugmentInfos = - ({-# LINE 1057 "Transform.ag" #-} - [ (ident_, rhs_) ] - {-# LINE 6398 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 6404 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 6410 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 6416 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 6422 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 6428 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 6434 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 6440 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 6446 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 6452 "Transform.hs" #-} - ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDef_Def :: Pos -> - (Maybe Identifier) -> - T_Pattern -> - Expression -> - Bool -> - T_SemDef -sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOerrors :: (Seq Error) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - _patternIcopy :: Pattern - _patternIdefinedAttrs :: ([AttrName]) - _patternIdefinedInsts :: ([Identifier]) - _patternIpatunder :: ([AttrName]->Pattern) - _patternIstpos :: Pos - -- "Transform.ag"(line 527, column 3) - _lhsOerrors = - ({-# LINE 527 "Transform.ag" #-} - if checkParseRhs _lhsIoptions - then Seq.fromList $ checkRhs rhs_ - else Seq.empty - {-# LINE 6484 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1048, column 10) - _lhsOruleInfos = - ({-# LINE 1048 "Transform.ag" #-} - [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ] - {-# LINE 6490 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 6496 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 6502 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - _patternIdefinedInsts - {-# LINE 6508 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 6514 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 6520 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 6526 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 6532 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 6538 "Transform.hs" #-} - ) - ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) = - pattern_ - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDef_MergeDef :: Identifier -> - Identifier -> - ([Identifier]) -> - Expression -> - T_SemDef -sem_SemDef_MergeDef target_ nt_ sources_ rhs_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 527, column 3) - _lhsOerrors = - ({-# LINE 527 "Transform.ag" #-} - if checkParseRhs _lhsIoptions - then Seq.fromList $ checkRhs rhs_ - else Seq.empty - {-# LINE 6566 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1063, column 17) - _lhsOmergeInfos = - ({-# LINE 1063 "Transform.ag" #-} - [ (target_, nt_, sources_, rhs_) ] - {-# LINE 6572 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 6578 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 6584 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 6590 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 6596 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 6602 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 6608 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 6614 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 6620 "Transform.hs" #-} - ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDef_SemPragma :: ([NontermIdent]) -> - T_SemDef -sem_SemDef_SemPragma names_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 806, column 7) - _lhsOpragmaNamesCollect = - ({-# LINE 806 "Transform.ag" #-} - names_ - {-# LINE 6641 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 6647 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 6653 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 6659 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 6665 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 6671 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 6677 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 6683 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 6689 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 6695 "Transform.hs" #-} - ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDef_TypeDef :: Pos -> - Identifier -> - Type -> - T_SemDef -sem_SemDef_TypeDef pos_ ident_ tp_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOerrors :: (Seq Error) - _lhsOsigInfos :: ([SigInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- "Transform.ag"(line 534, column 3) - _lhsOerrors = - ({-# LINE 534 "Transform.ag" #-} - if checkParseTy _lhsIoptions - then case tp_ of - Haskell s -> let exp = Expression pos_ tks - tks = [tk] - tk = HsToken s pos_ - in Seq.fromList $ checkTy exp - _ -> Seq.empty - else Seq.empty - {-# LINE 6725 "Transform.hs" #-} - ) - -- "Transform.ag"(line 1051, column 14) - _lhsOsigInfos = - ({-# LINE 1051 "Transform.ag" #-} - [ (ident_, tp_) ] - {-# LINE 6731 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 6737 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 6743 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 6749 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 6755 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 6761 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 6767 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 6773 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 6779 "Transform.hs" #-} - ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDef_UniqueDef :: Identifier -> - Identifier -> - T_SemDef -sem_SemDef_UniqueDef ident_ ref_ = - (T_SemDef (\ _lhsIoptions -> - (let _lhsOuniqueInfos :: ([UniqueInfo]) - _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - -- "Transform.ag"(line 1054, column 16) - _lhsOuniqueInfos = - ({-# LINE 1054 "Transform.ag" #-} - [ (ident_, ref_) ] - {-# LINE 6801 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 6807 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 6813 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 6819 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 6825 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 6831 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 6837 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 6843 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 6849 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 6855 "Transform.hs" #-} - ) - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) --- SemDefs ----------------------------------------------------- -{- - visit 0: - inherited attribute: - options : Options - synthesized attributes: - aroundInfos : [AroundInfo] - augmentInfos : [AugmentInfo] - definedInsts : [Identifier] - errors : Seq Error - mergeInfos : [MergeInfo] - orderDepsCollect : Set Dependency - pragmaNamesCollect : [Identifier] - ruleInfos : [RuleInfo] - sigInfos : [SigInfo] - uniqueInfos : [UniqueInfo] - alternatives: - alternative Cons: - child hd : SemDef - child tl : SemDefs - alternative Nil: --} --- cata -sem_SemDefs :: SemDefs -> - T_SemDefs -sem_SemDefs list = - (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) ) --- semantic domain -newtype T_SemDefs = T_SemDefs (Options -> - ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) -data Inh_SemDefs = Inh_SemDefs {options_Inh_SemDefs :: !(Options)} -data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),errors_Syn_SemDefs :: !((Seq Error)),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))} -wrap_SemDefs :: T_SemDefs -> - Inh_SemDefs -> - Syn_SemDefs -wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs _lhsIoptions ) = - (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions - in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos )) -sem_SemDefs_Cons :: T_SemDef -> - T_SemDefs -> - T_SemDefs -sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) = - (T_SemDefs (\ _lhsIoptions -> - (let _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - _hdOoptions :: Options - _tlOoptions :: Options - _hdIaroundInfos :: ([AroundInfo]) - _hdIaugmentInfos :: ([AugmentInfo]) - _hdIdefinedInsts :: ([Identifier]) - _hdIerrors :: (Seq Error) - _hdImergeInfos :: ([MergeInfo]) - _hdIorderDepsCollect :: (Set Dependency) - _hdIpragmaNamesCollect :: ([Identifier]) - _hdIruleInfos :: ([RuleInfo]) - _hdIsigInfos :: ([SigInfo]) - _hdIuniqueInfos :: ([UniqueInfo]) - _tlIaroundInfos :: ([AroundInfo]) - _tlIaugmentInfos :: ([AugmentInfo]) - _tlIdefinedInsts :: ([Identifier]) - _tlIerrors :: (Seq Error) - _tlImergeInfos :: ([MergeInfo]) - _tlIorderDepsCollect :: (Set Dependency) - _tlIpragmaNamesCollect :: ([Identifier]) - _tlIruleInfos :: ([RuleInfo]) - _tlIsigInfos :: ([SigInfo]) - _tlIuniqueInfos :: ([UniqueInfo]) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - _hdIaroundInfos ++ _tlIaroundInfos - {-# LINE 6937 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - _hdIaugmentInfos ++ _tlIaugmentInfos - {-# LINE 6943 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - _hdIdefinedInsts ++ _tlIdefinedInsts - {-# LINE 6949 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - _hdIerrors Seq.>< _tlIerrors - {-# LINE 6955 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - _hdImergeInfos ++ _tlImergeInfos - {-# LINE 6961 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect - {-# LINE 6967 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect - {-# LINE 6973 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - _hdIruleInfos ++ _tlIruleInfos - {-# LINE 6979 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - _hdIsigInfos ++ _tlIsigInfos - {-# LINE 6985 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - _hdIuniqueInfos ++ _tlIuniqueInfos - {-# LINE 6991 "Transform.hs" #-} - ) - -- copy rule (down) - _hdOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 6997 "Transform.hs" #-} - ) - -- copy rule (down) - _tlOoptions = - ({-# LINE 39 "Transform.ag" #-} - _lhsIoptions - {-# LINE 7003 "Transform.hs" #-} - ) - ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) = - hd_ _hdOoptions - ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) = - tl_ _tlOoptions - in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) -sem_SemDefs_Nil :: T_SemDefs -sem_SemDefs_Nil = - (T_SemDefs (\ _lhsIoptions -> - (let _lhsOaroundInfos :: ([AroundInfo]) - _lhsOaugmentInfos :: ([AugmentInfo]) - _lhsOdefinedInsts :: ([Identifier]) - _lhsOerrors :: (Seq Error) - _lhsOmergeInfos :: ([MergeInfo]) - _lhsOorderDepsCollect :: (Set Dependency) - _lhsOpragmaNamesCollect :: ([Identifier]) - _lhsOruleInfos :: ([RuleInfo]) - _lhsOsigInfos :: ([SigInfo]) - _lhsOuniqueInfos :: ([UniqueInfo]) - -- use rule "Transform.ag"(line 985, column 40) - _lhsOaroundInfos = - ({-# LINE 985 "Transform.ag" #-} - [] - {-# LINE 7027 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 984, column 40) - _lhsOaugmentInfos = - ({-# LINE 984 "Transform.ag" #-} - [] - {-# LINE 7033 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 1066, column 55) - _lhsOdefinedInsts = - ({-# LINE 1066 "Transform.ag" #-} - [] - {-# LINE 7039 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 43, column 19) - _lhsOerrors = - ({-# LINE 43 "Transform.ag" #-} - Seq.empty - {-# LINE 7045 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 986, column 40) - _lhsOmergeInfos = - ({-# LINE 986 "Transform.ag" #-} - [] - {-# LINE 7051 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 833, column 44) - _lhsOorderDepsCollect = - ({-# LINE 833 "Transform.ag" #-} - Set.empty - {-# LINE 7057 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 802, column 46) - _lhsOpragmaNamesCollect = - ({-# LINE 802 "Transform.ag" #-} - [] - {-# LINE 7063 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 981, column 40) - _lhsOruleInfos = - ({-# LINE 981 "Transform.ag" #-} - [] - {-# LINE 7069 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 982, column 40) - _lhsOsigInfos = - ({-# LINE 982 "Transform.ag" #-} - [] - {-# LINE 7075 "Transform.hs" #-} - ) - -- use rule "Transform.ag"(line 983, column 40) - _lhsOuniqueInfos = - ({-# LINE 983 "Transform.ag" #-} - [] - {-# LINE 7081 "Transform.hs" #-} +-- UUAGC 0.9.38.2 (Transform.ag) +module Transform where +{-# LINE 8 "Transform.ag" #-} + +import Control.Monad(mplus,mzero) +import List (partition, elem, nub,intersperse) +import Data.Maybe +import qualified Data.Map as Map +import Data.Map (Map) +import Data.Set as Set (Set, member, union, toList, fromList, empty, singleton, member, unions, size, fold, intersection, difference, insert) +import qualified Data.Sequence as Seq +import Data.Sequence(Seq, empty, (><),fromList) +import Data.Foldable(toList) +import UU.Scanner.Position(noPos) + +import ConcreteSyntax +import AbstractSyntax +import ErrorMessages +import Patterns (Patterns(..),Pattern(..)) +import Expression (Expression(..)) +import HsToken + +import Options +import CommonTypes +import RhsCheck +{-# LINE 29 "../src-derived/Transform.hs" #-} + +{-# LINE 2 "./ConcreteSyntax.ag" #-} + +import UU.Scanner.Position (Pos) +import Patterns (Pattern) +import Expression (Expression) +import CommonTypes +{-# LINE 37 "../src-derived/Transform.hs" #-} + +{-# LINE 2 "./Patterns.ag" #-} + +-- Patterns.ag imports +import UU.Scanner.Position(Pos) +import CommonTypes (ConstructorIdent,Identifier) +{-# LINE 44 "../src-derived/Transform.hs" #-} +{-# LINE 102 "Transform.ag" #-} +type DefinedSets = Map Identifier (Set NontermIdent) +{-# LINE 47 "../src-derived/Transform.hs" #-} + +{-# LINE 122 "Transform.ag" #-} +type FieldMap = [(Identifier, Type)] +{-# LINE 51 "../src-derived/Transform.hs" #-} + +{-# LINE 123 "Transform.ag" #-} +type DataTypes = Map.Map NontermIdent (Map.Map ConstructorIdent FieldMap) +{-# LINE 55 "../src-derived/Transform.hs" #-} + +{-# LINE 143 "Transform.ag" #-} +type AttrName = (Identifier,Identifier) +{-# LINE 59 "../src-derived/Transform.hs" #-} + +{-# LINE 144 "Transform.ag" #-} +type RuleInfo = (Maybe Identifier, [AttrName]->Pattern, Expression, [AttrName], Bool, String) +{-# LINE 63 "../src-derived/Transform.hs" #-} + +{-# LINE 145 "Transform.ag" #-} +type SigInfo = (Identifier,Type) +{-# LINE 67 "../src-derived/Transform.hs" #-} + +{-# LINE 146 "Transform.ag" #-} +type UniqueInfo = (Identifier,Identifier) +{-# LINE 71 "../src-derived/Transform.hs" #-} + +{-# LINE 147 "Transform.ag" #-} +type AugmentInfo = (Identifier,Expression) +{-# LINE 75 "../src-derived/Transform.hs" #-} + +{-# LINE 148 "Transform.ag" #-} +type AroundInfo = (Identifier,Expression) +{-# LINE 79 "../src-derived/Transform.hs" #-} + +{-# LINE 149 "Transform.ag" #-} +type MergeInfo = (Identifier, Identifier, [Identifier], Expression) +{-# LINE 83 "../src-derived/Transform.hs" #-} + +{-# LINE 203 "Transform.ag" #-} + + +checkDuplicate :: (Identifier -> Identifier -> Error) + -> Identifier -> val -> Map Identifier val -> (Map Identifier val,Seq Error) +checkDuplicate dupError key val m + = case Map.lookupIndex key m of + Just ix -> let (key',_) = Map.elemAt ix m + in (m,Seq.singleton (dupError key key')) + Nothing -> (Map.insert key val m,Seq.empty) + +checkDuplicates :: (Identifier -> Identifier -> Error) + -> [(Identifier, val)] -> Map Identifier val -> (Map Identifier val,Seq Error) +checkDuplicates dupError new m = foldErrors check m new + where check = uncurry (checkDuplicate dupError) + +foldErrors f e xs = foldl g (e,Seq.empty) xs + where g ~(e,es) x = let (e',es') = f x e + in (e', es >< es') + + +checkForDuplicates :: (Identifier -> Identifier -> Error) -> [Identifier] -> [Error] +checkForDuplicates err [] = [] +checkForDuplicates err (x:xs) = let (same,other) = List.partition (equalId x) xs + in map (err x) same ++ checkForDuplicates err other + +equalId :: Identifier -> Identifier -> Bool +equalId x y = getName x == getName y + +{-# LINE 114 "../src-derived/Transform.hs" #-} + +{-# LINE 339 "Transform.ag" #-} + +type RulesAndErrors = ([Rule], Seq Error) +type SigsAndErrors = ([TypeSig], Seq Error) +type InstsAndErrors = ([(Identifier, Type)], Seq Error) +type UniquesAndErrors = (Map Identifier Identifier, Seq Error) +type AugmentsAndErrors = (Map Identifier [Expression], Seq Error) +type AroundsAndErrors = (Map Identifier [Expression], Seq Error) +type MergesAndErrors = (Map Identifier (Identifier, [Identifier], Expression), Seq Error) +type AttrOverwrite = Map AttrName Bool +type AccumRuleCheck = (RulesAndErrors, AttrOverwrite) +type AccumDefiCheck = (Seq Error, AttrOverwrite, [AttrName], [AttrName]) + +checkRules :: Map NontermIdent (Attributes, Attributes) -> Map NontermIdent (Map ConstructorIdent FieldMap) -> + Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> + Map NontermIdent (Map ConstructorIdent [MergeInfo]) -> + NontermIdent -> ConstructorIdent -> [RuleInfo] -> RulesAndErrors +checkRules attributes fields allinsts allsigs allmerges nt con rs + = let fieldmap :: FieldMap + fieldmap = (_LHS,NT nt undefined) : (_LOC,NT undefined undefined) : (_INST, NT undefined undefined) : (_FIRST, NT undefined undefined) : (_LAST, NT undefined undefined) + : Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fields) + ++ mapMaybe (\instNm -> lookup instNm sigs >>= \tp -> return (instNm, tp)) (Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allinsts)) + -- merged children are not allowed to have any inherited attrs defined: do not include + + sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allsigs) + + hasAttrib f tp attr = Map.member attr (f (Map.findWithDefault (Map.empty,Map.empty) tp attributes)) + + checkRule :: RuleInfo -> AccumRuleCheck -> AccumRuleCheck + checkRule (mbNm, pat,exp,as,owrt,str) ((r1,e1),m1) + = let (e2,m2,u2,b2) = foldr (checkDefi owrt) (e1,m1,[],[]) as + in ( (Rule mbNm (pat u2) exp owrt str True : r1, e2), m2) + + checkDefi :: Bool -> AttrName -> AccumDefiCheck -> AccumDefiCheck + checkDefi owrt fa@(field,attr) (e,m,u,bs) + = case lookup field fieldmap + of Just (NT tp _) -> + let tp' = maybe tp id (deforestedNt tp) + in if field == _LOC || field == _INST || field == _FIRST || field == _LAST + || hasAttrib (if getName field==getName _LHS then snd else fst) tp' attr + then case Map.lookupIndex fa m of + Just ix -> let ((_,attr2),b) = Map.elemAt ix m + in if b && not (fa `elem` bs) + then ( e, Map.insert fa owrt m, fa:u, fa:bs) + else (((Seq.<|)) (DupRule nt con field attr2 attr) e, m, fa:u, bs) + Nothing -> ( e, Map.insert fa owrt m, u, fa:bs) + else (((Seq.<|)) (SuperfluousRule nt con field attr) e, m, fa:u, bs) + _ -> (((Seq.<|)) (UndefChild nt con field) e, m, fa:u, bs ) + + in fst (foldr checkRule (([],Seq.empty),Map.empty) rs) + +checkRuleNames :: NontermIdent -> ConstructorIdent -> [RuleInfo] -> Seq Error +checkRuleNames nt con + = fst . foldr checkRule (Seq.empty, Set.empty) + where + checkRule (Just nm,_,_,_,_,_) (errs, nms) + | nm `Set.member` nms = (DupRuleName nt con nm Seq.<| errs, nms) + | otherwise = (errs, Set.insert nm nms) + checkRule (Nothing,_,_,_,_,_) inp = inp + +checkSigs :: NontermIdent -> ConstructorIdent -> [SigInfo] -> SigsAndErrors +checkSigs nt con sis + = let checkSig (ide,typ) (sigs,errs) + = if ide `elem` map (\(TypeSig n t)-> n) sigs + then (sigs, ((Seq.<|)) (DupSig nt con ide) errs) + -- else if not (ide `elem` locattrdefs) + -- then (sigs, ((Seq.<|)) (SupSig nt con ide) errs) + else (TypeSig ide typ:sigs, errs) + in foldr checkSig ([],Seq.empty) sis + +checkInsts :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [SigInfo]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [Identifier] -> InstsAndErrors +checkInsts allNts sigMap fieldMap nt con + = foldr (\inst (insts, errs) -> + maybe (insts, Seq.singleton (MissingInstSig nt con inst) >< errs) + (\info@(k, NT nm _) -> + case findInst k insts of + Just k' -> (insts, Seq.singleton (DupChild nt con k k') >< errs) + Nothing -> case nm `Set.member` allNts of + True -> (info : insts, errs) + False | take 2 (getName nm) == "T_" -> let nm' = Ident (drop 2 (getName nm)) (getPos nm) + in case nm' `Set.member` allNts of + True -> (info : insts, errs) + False -> (insts, Seq.singleton (UndefNont nm') >< errs) + | otherwise -> (insts, Seq.singleton (UndefNont nm) >< errs) + ) + $ findSig inst + ) ([], Seq.empty) + where + sigs = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt sigMap) + + findSig name + = do tp@(NT _ _) <- lookup name sigs + return (name, tp) + + findInst _ [] = Nothing + findInst k ((k', _): r) + | k == k' = Just k' + | otherwise = findInst k r + +checkUniques :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [UniqueInfo] -> UniquesAndErrors +checkUniques allAttrs nt con uniques + = let checkUnique (ident,ref) (us,errs) + = if ident `Map.member` us + then (us, ((Seq.<|)) (DupUnique nt con ident) errs) + else if Map.member ref inhs && Map.member ref syns + then (Map.insert ident ref us, errs) + else (us, ((Seq.<|)) (MissingUnique nt ref) errs) + + (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs + in foldr checkUnique (Map.empty, Seq.empty) uniques + +checkAugments :: Map NontermIdent (Attributes, Attributes) -> NontermIdent -> ConstructorIdent -> [AugmentInfo] -> AugmentsAndErrors +checkAugments allAttrs nt con augments + = let checkAugment (ident,expr) (as,errs) + = if ident `Map.member` as + then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs) + else if Map.member ident syns + then (Map.insert ident [expr] as, errs) + else (as, ((Seq.<|)) (MissingSyn nt ident) errs) + + (inhs,syns) = Map.findWithDefault (Map.empty,Map.empty) nt allAttrs + in foldr checkAugment (Map.empty, Seq.empty) augments + +checkArounds :: Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [AroundInfo] -> AroundsAndErrors +checkArounds fieldMap nt con arounds + = let checkAround (ident,expr) (as,errs) + = if ident `Map.member` as + then (Map.update (\vs -> Just (vs ++ [expr])) ident as, errs) + else case lookup ident fields of + Just (NT _ _) -> (Map.insert ident [expr] as, errs) + _ -> (as, ((Seq.<|)) (UndefChild nt con ident) errs) + fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap) + in foldr checkAround (Map.empty, Seq.empty) arounds + +checkMerges :: Set NontermIdent -> Map NontermIdent (Map ConstructorIdent [Identifier]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> NontermIdent -> ConstructorIdent -> [MergeInfo] -> MergesAndErrors +checkMerges allNts allInsts fieldMap nt con merges + = let checkMerge (target,nt,sources,expr) (m,errs) + = let fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt fieldMap) + insts = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts) + allFields = insts ++ map fst fields -- note: sources of merge may not contain a target (for simplicity) + in if target `Map.member` m -- check for duplicate with self + then (m, DupChild nt con target (fst $ Map.elemAt (Map.findIndex target m) m) Seq.<| errs) + else if target `elem` allFields + then (m, DupChild nt con target (head $ filter (== target) allFields) Seq.<| errs) + else let missing = filter (\s -> not (s `elem` allFields)) sources + in if null missing + then if nt `Set.member` allNts -- check if the nonterm is defined + then (Map.insert target (nt, sources, expr) m, errs) -- all ok.. + else (m, UndefNont nt Seq.<| errs) + else (m, (Seq.fromList $ map (UndefChild nt con) missing) Seq.>< errs) + in foldr checkMerge (Map.empty, Seq.empty) merges + +unionunionplusplus = Map.unionWith (Map.unionWith (++)) +{-# LINE 269 "../src-derived/Transform.hs" #-} + +{-# LINE 494 "Transform.ag" #-} + +mkUniqueRules :: Options -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) -> Map NontermIdent (Attributes,Attributes) -> NontermIdent -> ConstructorIdent -> Map Identifier Identifier -> [Rule] +mkUniqueRules opts allFields allInsts allAttrDecls nt con usMap + = map apply groups + where + fields = Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allFields) + ++ Map.findWithDefault [] con (Map.findWithDefault Map.empty nt allInsts) + -- may have duplicates + + groups = Map.assocs $ Map.foldrWithKey (\i r m -> Map.insertWith (++) r [i] m) Map.empty usMap + apply (ref,us) = mkRule ref (findOutField ref) us + findOutField ref = case [ chld | (chld,NT tp _) <- fields, tp `hasSyn` ref] of + [] -> _LHS + (x:_) -> x + hasSyn tp ref = Map.member ref $ snd $ Map.findWithDefault (Map.empty,Map.empty) tp allAttrDecls + mkRule ref outFld locAttrs + = let pat = Product noPos (attr outFld ref : [attr _LOC u | u <- locAttrs ]) + rhs = Expression noPos $ wrap ref $ foldr gencase (finalout locAttrs) locAttrs + -- [HsToken ("mkUniques" ++ show (length locAttrs) ++ " ") noPos, AGField _LHS ref noPos Nothing] + in Rule Nothing pat rhs False "-- generated by the unique rule mechanism." False + attr fld a = Alias fld a (Underscore noPos) [] + gencase nm outp + = h ("case " ++ uniqueDispenser opts ++ " __cont of { (__cont, " ++ getName nm ++ ") -> ") ++ outp ++ h "}" + h s = [HsToken s noPos] + finalout us = h ("(__cont, " ++ concat (intersperse "," (map getName us)) ++ ")") + wrap ref inp = h "let __cont = " ++ [AGField _LHS ref noPos Nothing] ++ h " in seq __cont ( " ++ inp ++ h " )" +{-# LINE 298 "../src-derived/Transform.hs" #-} + +{-# LINE 692 "Transform.ag" #-} + +flattenDatas :: DataTypes -> Map NontermIdent (Set NontermIdent) +flattenDatas ds = Map.map flatten ds + where flatten cs = Set.fromList [ nt | (_,NT nt _) <- concatMap snd (Map.toList cs)] + +reachableFrom :: Map NontermIdent (Set NontermIdent) -> Set NontermIdent -> Set NontermIdent +reachableFrom table nts = reach nts + where reach nts = let nts' = Set.unions (nts : [ ns | nt <- Set.toList nts + , let ns = Map.findWithDefault Set.empty nt table ]) + in if Set.size nts' > Set.size nts + then reach nts' + else nts +invert :: Map NontermIdent (Set NontermIdent) -> Map NontermIdent (Set NontermIdent) +invert m = foldr inv Map.empty (Map.toList m) + where inv (x,ns) m = fold (\n m -> Map.insertWith Set.union n (Set.singleton x) m) m ns + +path :: Map NontermIdent (Set NontermIdent) -> NontermIdent -> NontermIdent -> Set NontermIdent +path table from to = let children = Map.findWithDefault Set.empty from table + forward = reachableFrom table children + backward = reachableFrom (invert table) + (Set.singleton to) + in Set.intersection forward backward +{-# LINE 323 "../src-derived/Transform.hs" #-} + +{-# LINE 809 "Transform.ag" #-} + +pragmaMapUnion :: PragmaMap -> PragmaMap -> PragmaMap +pragmaMapUnion = Map.unionWith (Map.unionWith Set.union) + +pragmaMapSingle :: NontermIdent -> ConstructorIdent -> Set Identifier -> PragmaMap +pragmaMapSingle nt con nms = Map.singleton nt (Map.singleton con nms) +{-# LINE 332 "../src-derived/Transform.hs" #-} + +{-# LINE 841 "Transform.ag" #-} + +orderMapUnion :: AttrOrderMap -> AttrOrderMap -> AttrOrderMap +orderMapUnion = Map.unionWith (Map.unionWith Set.union) + +orderMapSingle :: NontermIdent -> ConstructorIdent -> Set Dependency -> AttrOrderMap +orderMapSingle nt con deps = Map.singleton nt (Map.singleton con deps) +{-# LINE 341 "../src-derived/Transform.hs" #-} + +{-# LINE 867 "Transform.ag" #-} + +mergeParams :: ParamMap -> ParamMap -> ParamMap +mergeParams = Map.unionWith (++) +{-# LINE 347 "../src-derived/Transform.hs" #-} + +{-# LINE 890 "Transform.ag" #-} + +mergeCtx :: ContextMap -> ContextMap -> ContextMap +mergeCtx + = Map.unionWith nubconcat + where nubconcat a b = nub (a ++ b) +{-# LINE 355 "../src-derived/Transform.hs" #-} + +{-# LINE 909 "Transform.ag" #-} + +mergeQuant :: QuantMap -> QuantMap -> QuantMap +mergeQuant = Map.unionWith (++) +{-# LINE 361 "../src-derived/Transform.hs" #-} + +{-# LINE 920 "Transform.ag" #-} + +mergeDerivings m1 m2 = foldr (\(n,cs) m -> Map.insertWith Set.union n cs m) m2 (Map.toList m1) +{-# LINE 366 "../src-derived/Transform.hs" #-} + +{-# LINE 931 "Transform.ag" #-} + +merge x y = foldr f y (Map.toList x) + where f ~(k,v) m = Map.insertWith (Map.union) k v m +{-# LINE 372 "../src-derived/Transform.hs" #-} + +{-# LINE 972 "Transform.ag" #-} + +checkAttrs allFields nts inherited synthesized decls = foldErrors check decls nts where + check nt decls | not (nt `Map.member` allFields) = (decls,Seq.singleton(UndefNont nt)) + | otherwise = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt decls + (inh',einh) = checkDuplicates (DupInhAttr nt) inherited inh + (syn',esyn) = checkDuplicates (DupSynAttr nt) synthesized syn + in (Map.insert nt (inh',syn') decls,einh >< esyn) +{-# LINE 382 "../src-derived/Transform.hs" #-} + +{-# LINE 983 "Transform.ag" #-} + +addSelf name atMap = let (eInh,eSyn) = Map.findWithDefault(Map.empty,Map.empty) name atMap + in Map.insert name (eInh, Map.insert (Ident "self" noPos) (NT _SELF []) eSyn)atMap +{-# LINE 388 "../src-derived/Transform.hs" #-} + +{-# LINE 1124 "Transform.ag" #-} + +makeType :: Set NontermIdent -> Type -> Type +makeType nts tp@(NT x _) | x == _SELF = tp + | Set.member x nts = tp + | otherwise = Haskell (typeToHaskellString Nothing [] tp) +makeType _ tp = tp +{-# LINE 397 "../src-derived/Transform.hs" #-} + +{-# LINE 1131 "Transform.ag" #-} + +constructGrammar :: Set NontermIdent + -> ParamMap + -> DataTypes + -> Map NontermIdent (Attributes, Attributes) + -> Map NontermIdent (Map Identifier (String, String, String)) + -> Derivings + -> Set NontermIdent + -> Map NontermIdent (Map ConstructorIdent [Rule]) + -> Map NontermIdent (Map ConstructorIdent [TypeSig]) + -> Map NontermIdent (Map ConstructorIdent [(Identifier, Type)]) + -> TypeSyns + -> PragmaMap + -> AttrOrderMap + -> ContextMap + -> QuantMap + -> UniqueMap + -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) + -> Map NontermIdent (Map ConstructorIdent (Map Identifier [Expression])) + -> Map NontermIdent (Map ConstructorIdent (Map Identifier (Identifier, [Identifier], Expression))) + -> Grammar + +constructGrammar nts ntParams gram attrs uses derivings wrappers allrules tsigs allinsts tsyns pragmaMap orderMap contextMap quantMap uniqueMap augmentsMap aroundsMap mergeMap = + let gr = [ (nt,Map.toList alts) | (nt,alts) <- Map.toList gram] + nonts = map nont gr + nont (nt,alts) = let (inh,syn) = Map.findWithDefault (Map.empty,Map.empty) nt attrs + rmap = Map.findWithDefault Map.empty nt allrules + tsmap = Map.findWithDefault Map.empty nt tsigs + instsmap = Map.findWithDefault Map.empty nt allinsts + params = Map.findWithDefault [] nt ntParams + mergemap = Map.findWithDefault Map.empty nt mergeMap + alt (con,flds) = + let rules = maybe [] id (Map.lookup con rmap) + tsigs = maybe [] id (Map.lookup con tsmap) + insts = maybe [] id (Map.lookup con instsmap) + merges = [ (n, NT t []) | (n, (t, _, _)) <- Map.assocs $ maybe Map.empty id (Map.lookup con mergemap) ] + + -- important: keep order of children + cldrn = map child (flds ++ filter (not . existsAsField) insts ++ merges) + child (nm, tp) = + let tpI = if existsAsInst nm + then fromJust $ lookup nm insts + else tp + (inh,syn) = case tpI of + NT nt _ -> let nt' = maybe nt id (deforestedNt nt) + in Map.findWithDefault (Map.empty,Map.empty) nt' attrs + _ -> (Map.empty,Map.empty) + virt = if existsAsInst nm + then case lookup nm flds of + Just tp' -> Just (Just tp') + Nothing -> Just Nothing + else if existsAsMerge nm + then (Just Nothing) + else Nothing + in Child nm tpI inh syn virt + existsAsInst nm = maybe False (const True) (lookup nm insts) + existsAsField (nm,_) = maybe False (const True) (lookup nm flds) + existsAsMerge nm = maybe False (const True) (lookup nm merges) + in Production con cldrn rules tsigs + in Nonterminal nt params inh syn (map alt alts) + in Grammar tsyns uses derivings wrappers nonts pragmaMap orderMap ntParams contextMap quantMap uniqueMap augmentsMap aroundsMap mergeMap +{-# LINE 461 "../src-derived/Transform.hs" #-} + +{-# LINE 1194 "Transform.ag" #-} + +mapUnionWithSetUnion = Map.unionWith Set.union +mapUnionWithPlusPlus = Map.unionWith (++) +{-# LINE 467 "../src-derived/Transform.hs" #-} +-- AG ---------------------------------------------------------- +{- + visit 0: + inherited attribute: + options : Options + synthesized attributes: + blocks : Blocks + errors : Seq Error + moduleDecl : Maybe (String,String,String) + output : Grammar + pragmas : Options -> Options + alternatives: + alternative AG: + child elems : Elems + visit 0: + local allFields : _ + local allConstrs : _ + local allRules : _ + local allSigs : _ + local allInsts : _ + local allUniques : _ + local allAugments : _ + local allArounds : _ + local allMerges : _ + local augmentSigs : _ + local allRulesErrs : _ + local allNamesErrs : _ + local allSigsErrs : _ + local allInstsErrs : _ + local allUniquesErrs : _ + local allAugmentErrs : _ + local allAroundsErrs : _ + local allMergesErrs : _ + local checkedRulesPre : _ + local checkedSigs : _ + local checkedInsts : _ + local checkedUniques : _ + local checkedAugments : _ + local checkedArounds : _ + local checkedRules : _ + local checkedMerges : _ + local errs1 : _ + local errs2 : _ + local errs3 : _ + local errs4 : _ + local errs5 : _ + local errs6 : _ + local errs7 : _ + local errs8 : _ + local errs9 : _ + local errs10 : _ + local errs11 : _ + local allNonterminals : _ + local allAttrDecls : _ +-} +-- cata +sem_AG :: AG -> + T_AG +sem_AG (AG _elems ) = + (sem_AG_AG (sem_Elems _elems ) ) +-- semantic domain +newtype T_AG = T_AG (Options -> + ( Blocks,(Seq Error),(Maybe (String,String,String)),Grammar,(Options -> Options))) +data Inh_AG = Inh_AG {options_Inh_AG :: !(Options)} +data Syn_AG = Syn_AG {blocks_Syn_AG :: !(Blocks),errors_Syn_AG :: !((Seq Error)),moduleDecl_Syn_AG :: !((Maybe (String,String,String))),output_Syn_AG :: !(Grammar),pragmas_Syn_AG :: !((Options -> Options))} +wrap_AG :: T_AG -> + Inh_AG -> + Syn_AG +wrap_AG (T_AG sem ) (Inh_AG _lhsIoptions ) = + (let ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas) = sem _lhsIoptions + in (Syn_AG _lhsOblocks _lhsOerrors _lhsOmoduleDecl _lhsOoutput _lhsOpragmas )) +sem_AG_AG :: T_Elems -> + T_AG +sem_AG_AG (T_Elems elems_ ) = + (T_AG (\ _lhsIoptions -> + (let _lhsOoutput :: Grammar + _lhsOerrors :: (Seq Error) + _elemsOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) + _elemsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _elemsOdefinedSets :: DefinedSets + _elemsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOblocks :: Blocks + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOpragmas :: (Options -> Options) + _elemsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _elemsOallFields :: DataTypes + _elemsOallNonterminals :: (Set NontermIdent) + _elemsOoptions :: Options + _elemsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _elemsIattrOrderCollect :: AttrOrderMap + _elemsIblocks :: Blocks + _elemsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _elemsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _elemsIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _elemsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _elemsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _elemsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _elemsIcollectedNames :: (Set Identifier) + _elemsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _elemsIcollectedSetNames :: (Set Identifier) + _elemsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _elemsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _elemsIctxCollect :: ContextMap + _elemsIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _elemsIderivings :: Derivings + _elemsIerrors :: (Seq Error) + _elemsImoduleDecl :: (Maybe (String,String,String)) + _elemsIparamsCollect :: ParamMap + _elemsIpragmas :: (Options -> Options) + _elemsIquantCollect :: QuantMap + _elemsIsemPragmasCollect :: PragmaMap + _elemsItypeSyns :: TypeSyns + _elemsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _elemsIwrappers :: (Set NontermIdent) + -- "Transform.ag"(line 52, column 8) + _lhsOoutput = + ({-# LINE 52 "Transform.ag" #-} + constructGrammar _allNonterminals + _elemsIparamsCollect + _allFields + _allAttrDecls + _elemsIuseMap + _elemsIderivings + (if wrappers _lhsIoptions then _allNonterminals else _elemsIwrappers) + _checkedRules + _checkedSigs + _checkedInsts + _elemsItypeSyns + _elemsIsemPragmasCollect + _elemsIattrOrderCollect + _elemsIctxCollect + _elemsIquantCollect + _checkedUniques + _checkedAugments + _checkedArounds + _checkedMerges + {-# LINE 604 "Transform.hs" #-} + ) + -- "Transform.ag"(line 254, column 10) + _allFields = + ({-# LINE 254 "Transform.ag" #-} + let f (nt,con,fm) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con fm) + in foldr f (Map.empty) _elemsIcollectedFields + {-# LINE 611 "Transform.hs" #-} + ) + -- "Transform.ag"(line 257, column 10) + _allConstrs = + ({-# LINE 257 "Transform.ag" #-} + let f (nt,con,_) = Map.insertWith (++) nt [con] + in foldr f (Map.empty) _elemsIcollectedFields + {-# LINE 618 "Transform.hs" #-} + ) + -- "Transform.ag"(line 260, column 10) + _allRules = + ({-# LINE 260 "Transform.ag" #-} + let f (nt,con,r) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [r]) + in foldr f (Map.empty) _elemsIcollectedRules + {-# LINE 625 "Transform.hs" #-} + ) + -- "Transform.ag"(line 263, column 10) + _allSigs = + ({-# LINE 263 "Transform.ag" #-} + let f (nt,con,t) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con [t]) + typeof nt r = Map.findWithDefault (Haskell "") r $ fst $ Map.findWithDefault (Map.empty,Map.empty) nt _allAttrDecls + in foldr f (Map.empty) ( _elemsIcollectedSigs + ++ [ (nt, con, (ident,typeof nt ref)) | (nt, con, us) <- _elemsIcollectedUniques, (ident,ref) <- us ] + ) + {-# LINE 635 "Transform.hs" #-} + ) + -- "Transform.ag"(line 269, column 10) + _allInsts = + ({-# LINE 269 "Transform.ag" #-} + let f (nt,con,is) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con is) + in foldr f (Map.empty) _elemsIcollectedInsts + {-# LINE 642 "Transform.hs" #-} + ) + -- "Transform.ag"(line 272, column 10) + _allUniques = + ({-# LINE 272 "Transform.ag" #-} + let f (nt,con,us) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con us) + in foldr f (Map.empty) _elemsIcollectedUniques + {-# LINE 649 "Transform.hs" #-} + ) + -- "Transform.ag"(line 274, column 10) + _allAugments = + ({-# LINE 274 "Transform.ag" #-} + let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) + in foldr f Map.empty _elemsIcollectedAugments + {-# LINE 656 "Transform.hs" #-} + ) + -- "Transform.ag"(line 276, column 10) + _allArounds = + ({-# LINE 276 "Transform.ag" #-} + let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) + in foldr f Map.empty _elemsIcollectedArounds + {-# LINE 663 "Transform.hs" #-} + ) + -- "Transform.ag"(line 278, column 10) + _allMerges = + ({-# LINE 278 "Transform.ag" #-} + let f (nt,con,as) = Map.insertWith (Map.unionWith (++)) nt (Map.singleton con as) + in foldr f Map.empty _elemsIcollectedMerges + {-# LINE 670 "Transform.hs" #-} + ) + -- "Transform.ag"(line 281, column 10) + _augmentSigs = + ({-# LINE 281 "Transform.ag" #-} + let gen mp = [] + in Map.map (Map.map gen) _allAugments + {-# LINE 677 "Transform.hs" #-} + ) + -- "Transform.ag"(line 284, column 10) + _allRulesErrs = + ({-# LINE 284 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkRules _allAttrDecls _allFields _allInsts _allSigs _allMerges )) _allRules + {-# LINE 683 "Transform.hs" #-} + ) + -- "Transform.ag"(line 285, column 10) + _allNamesErrs = + ({-# LINE 285 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . checkRuleNames) _allRules + {-# LINE 689 "Transform.hs" #-} + ) + -- "Transform.ag"(line 286, column 10) + _allSigsErrs = + ({-# LINE 286 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkSigs )) _allSigs + {-# LINE 695 "Transform.hs" #-} + ) + -- "Transform.ag"(line 287, column 10) + _allInstsErrs = + ({-# LINE 287 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkInsts _allNonterminals _allSigs _allFields )) _allInsts + {-# LINE 701 "Transform.hs" #-} + ) + -- "Transform.ag"(line 288, column 10) + _allUniquesErrs = + ({-# LINE 288 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkUniques _allAttrDecls )) _allUniques + {-# LINE 707 "Transform.hs" #-} + ) + -- "Transform.ag"(line 289, column 10) + _allAugmentErrs = + ({-# LINE 289 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkAugments _allAttrDecls )) _allAugments + {-# LINE 713 "Transform.hs" #-} + ) + -- "Transform.ag"(line 290, column 10) + _allAroundsErrs = + ({-# LINE 290 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkArounds _allFields )) _allArounds + {-# LINE 719 "Transform.hs" #-} + ) + -- "Transform.ag"(line 291, column 10) + _allMergesErrs = + ({-# LINE 291 "Transform.ag" #-} + Map.mapWithKey (Map.mapWithKey . (checkMerges _allNonterminals _allInsts _allFields )) _allMerges + {-# LINE 725 "Transform.hs" #-} + ) + -- "Transform.ag"(line 293, column 10) + _checkedRulesPre = + ({-# LINE 293 "Transform.ag" #-} + Map.map (Map.map fst) _allRulesErrs + {-# LINE 731 "Transform.hs" #-} + ) + -- "Transform.ag"(line 294, column 10) + _checkedSigs = + ({-# LINE 294 "Transform.ag" #-} + Map.map (Map.map fst) _allSigsErrs `unionunionplusplus` _augmentSigs + {-# LINE 737 "Transform.hs" #-} + ) + -- "Transform.ag"(line 295, column 10) + _checkedInsts = + ({-# LINE 295 "Transform.ag" #-} + Map.map (Map.map fst) _allInstsErrs + {-# LINE 743 "Transform.hs" #-} + ) + -- "Transform.ag"(line 296, column 10) + _checkedUniques = + ({-# LINE 296 "Transform.ag" #-} + Map.map (Map.map fst) _allUniquesErrs + {-# LINE 749 "Transform.hs" #-} + ) + -- "Transform.ag"(line 297, column 10) + _checkedAugments = + ({-# LINE 297 "Transform.ag" #-} + Map.map (Map.map fst) _allAugmentErrs + {-# LINE 755 "Transform.hs" #-} + ) + -- "Transform.ag"(line 298, column 10) + _checkedArounds = + ({-# LINE 298 "Transform.ag" #-} + Map.map (Map.map fst) _allAroundsErrs + {-# LINE 761 "Transform.hs" #-} + ) + -- "Transform.ag"(line 299, column 10) + _checkedRules = + ({-# LINE 299 "Transform.ag" #-} + Map.unionWith (Map.unionWith (++)) _checkedRulesPre (Map.mapWithKey (Map.mapWithKey . (mkUniqueRules _lhsIoptions _allFields _checkedInsts _allAttrDecls )) _checkedUniques ) + {-# LINE 767 "Transform.hs" #-} + ) + -- "Transform.ag"(line 300, column 10) + _checkedMerges = + ({-# LINE 300 "Transform.ag" #-} + Map.map (Map.map fst) _allMergesErrs + {-# LINE 773 "Transform.hs" #-} + ) + -- "Transform.ag"(line 302, column 10) + _errs1 = + ({-# LINE 302 "Transform.ag" #-} + let f = checkForDuplicates (DupSynonym) + in Seq.fromList . f . map fst $ _elemsItypeSyns + {-# LINE 780 "Transform.hs" #-} + ) + -- "Transform.ag"(line 305, column 10) + _errs2 = + ({-# LINE 305 "Transform.ag" #-} + let g nt (con,fm) = checkForDuplicates (DupChild nt con) (map fst fm) + f (nt,cfm) = concat . map (g nt) . Map.toList $ cfm + in Seq.fromList . concat . map f . Map.toList $ _allFields + {-# LINE 788 "Transform.hs" #-} + ) + -- "Transform.ag"(line 309, column 10) + _errs3 = + ({-# LINE 309 "Transform.ag" #-} + let f (nt,cons) = checkForDuplicates (DupAlt nt) cons + in Seq.empty + {-# LINE 795 "Transform.hs" #-} + ) + -- "Transform.ag"(line 313, column 10) + _errs4 = + ({-# LINE 313 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allRulesErrs + {-# LINE 802 "Transform.hs" #-} + ) + -- "Transform.ag"(line 316, column 10) + _errs5 = + ({-# LINE 316 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allSigsErrs + {-# LINE 809 "Transform.hs" #-} + ) + -- "Transform.ag"(line 319, column 10) + _errs6 = + ({-# LINE 319 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allInstsErrs + {-# LINE 816 "Transform.hs" #-} + ) + -- "Transform.ag"(line 322, column 10) + _errs7 = + ({-# LINE 322 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allUniquesErrs + {-# LINE 823 "Transform.hs" #-} + ) + -- "Transform.ag"(line 325, column 10) + _errs8 = + ({-# LINE 325 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allAugmentErrs + {-# LINE 830 "Transform.hs" #-} + ) + -- "Transform.ag"(line 328, column 10) + _errs9 = + ({-# LINE 328 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allAroundsErrs + {-# LINE 837 "Transform.hs" #-} + ) + -- "Transform.ag"(line 331, column 10) + _errs10 = + ({-# LINE 331 "Transform.ag" #-} + let f m s = Map.fold ((><)) s m + in Map.fold f Seq.empty _allNamesErrs + {-# LINE 844 "Transform.hs" #-} + ) + -- "Transform.ag"(line 334, column 10) + _errs11 = + ({-# LINE 334 "Transform.ag" #-} + let f m s = Map.fold ((><) . snd) s m + in Map.fold f Seq.empty _allMergesErrs + {-# LINE 851 "Transform.hs" #-} + ) + -- "Transform.ag"(line 337, column 10) + _lhsOerrors = + ({-# LINE 337 "Transform.ag" #-} + _elemsIerrors >< _errs1 >< _errs2 >< _errs3 >< _errs4 >< _errs5 >< _errs6 >< _errs7 >< _errs8 >< _errs9 >< _errs10 >< _errs11 + {-# LINE 857 "Transform.hs" #-} + ) + -- "Transform.ag"(line 561, column 10) + _allNonterminals = + ({-# LINE 561 "Transform.ag" #-} + _elemsIcollectedNames `Set.difference` _elemsIcollectedSetNames + {-# LINE 863 "Transform.hs" #-} + ) + -- "Transform.ag"(line 581, column 8) + _elemsOallConstructors = + ({-# LINE 581 "Transform.ag" #-} + _elemsIcollectedConstructorsMap + {-# LINE 869 "Transform.hs" #-} + ) + -- "Transform.ag"(line 654, column 8) + _elemsOdefSets = + ({-# LINE 654 "Transform.ag" #-} + Map.fromList (map (\x->(x,(Set.singleton x, Set.empty))) (Set.toList _allNonterminals )) + {-# LINE 875 "Transform.hs" #-} + ) + -- "Transform.ag"(line 655, column 8) + _elemsOdefinedSets = + ({-# LINE 655 "Transform.ag" #-} + Map.map fst _elemsIdefSets + {-# LINE 881 "Transform.hs" #-} + ) + -- "Transform.ag"(line 937, column 8) + _elemsOattrDecls = + ({-# LINE 937 "Transform.ag" #-} + Map.empty + {-# LINE 887 "Transform.hs" #-} + ) + -- "Transform.ag"(line 990, column 9) + _allAttrDecls = + ({-# LINE 990 "Transform.ag" #-} + if withSelf _lhsIoptions + then foldr addSelf _elemsIattrDecls (Set.toList _allNonterminals ) + else _elemsIattrDecls + {-# LINE 895 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + _elemsIblocks + {-# LINE 901 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + _elemsImoduleDecl + {-# LINE 907 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + _elemsIpragmas + {-# LINE 913 "Transform.hs" #-} + ) + -- copy rule (from local) + _elemsOallAttrDecls = + ({-# LINE 822 "Transform.ag" #-} + _allAttrDecls + {-# LINE 919 "Transform.hs" #-} + ) + -- copy rule (from local) + _elemsOallFields = + ({-# LINE 129 "Transform.ag" #-} + _allFields + {-# LINE 925 "Transform.hs" #-} + ) + -- copy rule (from local) + _elemsOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _allNonterminals + {-# LINE 931 "Transform.hs" #-} + ) + -- copy rule (down) + _elemsOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 937 "Transform.hs" #-} + ) + ( _elemsIattrDecls,_elemsIattrOrderCollect,_elemsIblocks,_elemsIcollectedArounds,_elemsIcollectedAugments,_elemsIcollectedConstructorsMap,_elemsIcollectedFields,_elemsIcollectedInsts,_elemsIcollectedMerges,_elemsIcollectedNames,_elemsIcollectedRules,_elemsIcollectedSetNames,_elemsIcollectedSigs,_elemsIcollectedUniques,_elemsIctxCollect,_elemsIdefSets,_elemsIderivings,_elemsIerrors,_elemsImoduleDecl,_elemsIparamsCollect,_elemsIpragmas,_elemsIquantCollect,_elemsIsemPragmasCollect,_elemsItypeSyns,_elemsIuseMap,_elemsIwrappers) = + elems_ _elemsOallAttrDecls _elemsOallConstructors _elemsOallFields _elemsOallNonterminals _elemsOattrDecls _elemsOdefSets _elemsOdefinedSets _elemsOoptions + in ( _lhsOblocks,_lhsOerrors,_lhsOmoduleDecl,_lhsOoutput,_lhsOpragmas))) ) +-- Alt --------------------------------------------------------- +{- + visit 0: + inherited attributes: + allConstructors : Map NontermIdent (Set ConstructorIdent) + allNonterminals : Set NontermIdent + nts : Set NontermIdent + synthesized attributes: + collectedConstructorNames : Set ConstructorIdent + collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] + alternatives: + alternative Alt: + child pos : {Pos} + child names : ConstructorSet + child fields : {Fields} +-} +-- cata +sem_Alt :: Alt -> + T_Alt +sem_Alt (Alt _pos _names _fields ) = + (sem_Alt_Alt _pos (sem_ConstructorSet _names ) _fields ) +-- semantic domain +newtype T_Alt = T_Alt ((Map NontermIdent (Set ConstructorIdent)) -> + (Set NontermIdent) -> + (Set NontermIdent) -> + ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]))) +data Inh_Alt = Inh_Alt {allConstructors_Inh_Alt :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alt :: !((Set NontermIdent)),nts_Inh_Alt :: !((Set NontermIdent))} +data Syn_Alt = Syn_Alt {collectedConstructorNames_Syn_Alt :: !((Set ConstructorIdent)),collectedFields_Syn_Alt :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))} +wrap_Alt :: T_Alt -> + Inh_Alt -> + Syn_Alt +wrap_Alt (T_Alt sem ) (Inh_Alt _lhsIallConstructors _lhsIallNonterminals _lhsInts ) = + (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alt _lhsOcollectedConstructorNames _lhsOcollectedFields )) +sem_Alt_Alt :: Pos -> + T_ConstructorSet -> + Fields -> + T_Alt +sem_Alt_Alt pos_ (T_ConstructorSet names_ ) fields_ = + (T_Alt (\ _lhsIallConstructors + _lhsIallNonterminals + _lhsInts -> + (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedConstructorNames :: (Set ConstructorIdent) + _namesIcollectedConstructorNames :: (Set ConstructorIdent) + _namesIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _namesIerrors :: (Seq Error) + -- "Transform.ag"(line 239, column 10) + _lhsOcollectedFields = + ({-# LINE 239 "Transform.ag" #-} + let fieldTable = + [ (attr, makeType _lhsIallNonterminals tp) + | (attr, tp) <- fields_ + ] + in [ (nt, con, fieldTable) + | nt <- Set.toList _lhsInts + , con <- Set.toList (_namesIconstructors (Map.findWithDefault Set.empty nt _lhsIallConstructors)) + ] + {-# LINE 1000 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 94, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 94 "Transform.ag" #-} + _namesIcollectedConstructorNames + {-# LINE 1006 "Transform.hs" #-} + ) + ( _namesIcollectedConstructorNames,_namesIconstructors,_namesIerrors) = + names_ + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) +-- Alts -------------------------------------------------------- +{- + visit 0: + inherited attributes: + allConstructors : Map NontermIdent (Set ConstructorIdent) + allNonterminals : Set NontermIdent + nts : Set NontermIdent + synthesized attributes: + collectedConstructorNames : Set ConstructorIdent + collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] + alternatives: + alternative Cons: + child hd : Alt + child tl : Alts + alternative Nil: +-} +-- cata +sem_Alts :: Alts -> + T_Alts +sem_Alts list = + (Prelude.foldr sem_Alts_Cons sem_Alts_Nil (Prelude.map sem_Alt list) ) +-- semantic domain +newtype T_Alts = T_Alts ((Map NontermIdent (Set ConstructorIdent)) -> + (Set NontermIdent) -> + (Set NontermIdent) -> + ( (Set ConstructorIdent),([(NontermIdent, ConstructorIdent, FieldMap)]))) +data Inh_Alts = Inh_Alts {allConstructors_Inh_Alts :: !((Map NontermIdent (Set ConstructorIdent))),allNonterminals_Inh_Alts :: !((Set NontermIdent)),nts_Inh_Alts :: !((Set NontermIdent))} +data Syn_Alts = Syn_Alts {collectedConstructorNames_Syn_Alts :: !((Set ConstructorIdent)),collectedFields_Syn_Alts :: !(([(NontermIdent, ConstructorIdent, FieldMap)]))} +wrap_Alts :: T_Alts -> + Inh_Alts -> + Syn_Alts +wrap_Alts (T_Alts sem ) (Inh_Alts _lhsIallConstructors _lhsIallNonterminals _lhsInts ) = + (let ( _lhsOcollectedConstructorNames,_lhsOcollectedFields) = sem _lhsIallConstructors _lhsIallNonterminals _lhsInts + in (Syn_Alts _lhsOcollectedConstructorNames _lhsOcollectedFields )) +sem_Alts_Cons :: T_Alt -> + T_Alts -> + T_Alts +sem_Alts_Cons (T_Alt hd_ ) (T_Alts tl_ ) = + (T_Alts (\ _lhsIallConstructors + _lhsIallNonterminals + _lhsInts -> + (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) + _hdOallNonterminals :: (Set NontermIdent) + _hdOnts :: (Set NontermIdent) + _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) + _tlOallNonterminals :: (Set NontermIdent) + _tlOnts :: (Set NontermIdent) + _hdIcollectedConstructorNames :: (Set ConstructorIdent) + _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _tlIcollectedConstructorNames :: (Set ConstructorIdent) + _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + -- use rule "Transform.ag"(line 94, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 94 "Transform.ag" #-} + _hdIcollectedConstructorNames `Set.union` _tlIcollectedConstructorNames + {-# LINE 1068 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + _hdIcollectedFields ++ _tlIcollectedFields + {-# LINE 1074 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallConstructors = + ({-# LINE 97 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 1080 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1086 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOnts = + ({-# LINE 168 "Transform.ag" #-} + _lhsInts + {-# LINE 1092 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallConstructors = + ({-# LINE 97 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 1098 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1104 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOnts = + ({-# LINE 168 "Transform.ag" #-} + _lhsInts + {-# LINE 1110 "Transform.hs" #-} + ) + ( _hdIcollectedConstructorNames,_hdIcollectedFields) = + hd_ _hdOallConstructors _hdOallNonterminals _hdOnts + ( _tlIcollectedConstructorNames,_tlIcollectedFields) = + tl_ _tlOallConstructors _tlOallNonterminals _tlOnts + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) +sem_Alts_Nil :: T_Alts +sem_Alts_Nil = + (T_Alts (\ _lhsIallConstructors + _lhsIallNonterminals + _lhsInts -> + (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + -- use rule "Transform.ag"(line 94, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 94 "Transform.ag" #-} + Set.empty + {-# LINE 1128 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 1134 "Transform.hs" #-} + ) + in ( _lhsOcollectedConstructorNames,_lhsOcollectedFields))) ) +-- Attrs ------------------------------------------------------- +{- + visit 0: + inherited attributes: + allFields : DataTypes + allNonterminals : Set NontermIdent + nts : Set NontermIdent + options : Options + chained attribute: + attrDecls : Map NontermIdent (Attributes, Attributes) + synthesized attributes: + errors : Seq Error + useMap : Map NontermIdent (Map Identifier (String,String,String)) + alternatives: + alternative Attrs: + child pos : {Pos} + child inh : {AttrNames} + child chn : {AttrNames} + child syn : {AttrNames} + visit 0: + local _tup1 : _ + local attrDecls : _ + local errors : _ + local _tup2 : _ + local inherited : _ + local synthesized : _ + local useMap : _ + local errors1 : _ +-} +-- cata +sem_Attrs :: Attrs -> + T_Attrs +sem_Attrs (Attrs _pos _inh _chn _syn ) = + (sem_Attrs_Attrs _pos _inh _chn _syn ) +-- semantic domain +newtype T_Attrs = T_Attrs (DataTypes -> + (Set NontermIdent) -> + (Map NontermIdent (Attributes, Attributes)) -> + (Set NontermIdent) -> + Options -> + ( (Map NontermIdent (Attributes, Attributes)),(Seq Error),(Map NontermIdent (Map Identifier (String,String,String))))) +data Inh_Attrs = Inh_Attrs {allFields_Inh_Attrs :: !(DataTypes),allNonterminals_Inh_Attrs :: !((Set NontermIdent)),attrDecls_Inh_Attrs :: !((Map NontermIdent (Attributes, Attributes))),nts_Inh_Attrs :: !((Set NontermIdent)),options_Inh_Attrs :: !(Options)} +data Syn_Attrs = Syn_Attrs {attrDecls_Syn_Attrs :: !((Map NontermIdent (Attributes, Attributes))),errors_Syn_Attrs :: !((Seq Error)),useMap_Syn_Attrs :: !((Map NontermIdent (Map Identifier (String,String,String))))} +wrap_Attrs :: T_Attrs -> + Inh_Attrs -> + Syn_Attrs +wrap_Attrs (T_Attrs sem ) (Inh_Attrs _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions ) = + (let ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap) = sem _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsInts _lhsIoptions + in (Syn_Attrs _lhsOattrDecls _lhsOerrors _lhsOuseMap )) +sem_Attrs_Attrs :: Pos -> + AttrNames -> + AttrNames -> + AttrNames -> + T_Attrs +sem_Attrs_Attrs pos_ inh_ chn_ syn_ = + (T_Attrs (\ _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsInts + _lhsIoptions -> + (let _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOerrors :: (Seq Error) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + -- "Transform.ag"(line 945, column 15) + __tup1 = + ({-# LINE 945 "Transform.ag" #-} + checkAttrs _lhsIallFields (Set.toList _lhsInts) _inherited _synthesized _lhsIattrDecls + {-# LINE 1204 "Transform.hs" #-} + ) + -- "Transform.ag"(line 945, column 15) + (_attrDecls,_) = + ({-# LINE 945 "Transform.ag" #-} + __tup1 + {-# LINE 1210 "Transform.hs" #-} + ) + -- "Transform.ag"(line 945, column 15) + (_,_errors) = + ({-# LINE 945 "Transform.ag" #-} + __tup1 + {-# LINE 1216 "Transform.hs" #-} + ) + -- "Transform.ag"(line 947, column 15) + __tup2 = + ({-# LINE 947 "Transform.ag" #-} + let splitAttrs xs = unzip [ ((n,makeType _lhsIallNonterminals t),(n,ud)) + | (n,t,ud) <- xs + ] + (inh,_) = splitAttrs inh_ + (chn,uses1) = splitAttrs chn_ + (syn,uses2) = splitAttrs syn_ + isUse (n,(e1,e2,_)) = not (null e1 || null e2) + in (inh++chn,chn++syn, Map.fromList (Prelude.filter isUse (uses1++uses2))) + {-# LINE 1229 "Transform.hs" #-} + ) + -- "Transform.ag"(line 947, column 15) + (_inherited,_,_) = + ({-# LINE 947 "Transform.ag" #-} + __tup2 + {-# LINE 1235 "Transform.hs" #-} + ) + -- "Transform.ag"(line 947, column 15) + (_,_synthesized,_) = + ({-# LINE 947 "Transform.ag" #-} + __tup2 + {-# LINE 1241 "Transform.hs" #-} + ) + -- "Transform.ag"(line 947, column 15) + (_,_,_useMap) = + ({-# LINE 947 "Transform.ag" #-} + __tup2 + {-# LINE 1247 "Transform.hs" #-} + ) + -- "Transform.ag"(line 955, column 11) + _lhsOuseMap = + ({-# LINE 955 "Transform.ag" #-} + Map.fromList (zip (Set.toList _lhsInts) (repeat _useMap)) + {-# LINE 1253 "Transform.hs" #-} + ) + -- "Transform.ag"(line 957, column 11) + _errors1 = + ({-# LINE 957 "Transform.ag" #-} + if checkParseTy _lhsIoptions + then let attrs = inh_ ++ syn_ ++ chn_ + items = map (\(ident,tp,_) -> (getPos ident, tp)) attrs + errs = map check items + check (pos,Haskell s) = + let exp = Expression pos tks + tks = [tk] + tk = HsToken s pos + in Seq.fromList $ checkTy exp + check _ = Seq.empty + in foldr (Seq.><) Seq.empty errs + else Seq.empty + {-# LINE 1270 "Transform.hs" #-} + ) + -- "Transform.ag"(line 969, column 11) + _lhsOerrors = + ({-# LINE 969 "Transform.ag" #-} + _errors Seq.>< _errors1 + {-# LINE 1276 "Transform.hs" #-} + ) + -- copy rule (from local) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _attrDecls + {-# LINE 1282 "Transform.hs" #-} + ) + in ( _lhsOattrDecls,_lhsOerrors,_lhsOuseMap))) ) +-- ConstructorSet ---------------------------------------------- +{- + visit 0: + synthesized attributes: + collectedConstructorNames : Set ConstructorIdent + constructors : (Set ConstructorIdent->Set ConstructorIdent) + errors : Seq Error + alternatives: + alternative CAll: + alternative CDifference: + child set1 : ConstructorSet + child set2 : ConstructorSet + alternative CName: + child name : {ConstructorIdent} + alternative CUnion: + child set1 : ConstructorSet + child set2 : ConstructorSet +-} +-- cata +sem_ConstructorSet :: ConstructorSet -> + T_ConstructorSet +sem_ConstructorSet (CAll ) = + (sem_ConstructorSet_CAll ) +sem_ConstructorSet (CDifference _set1 _set2 ) = + (sem_ConstructorSet_CDifference (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) ) +sem_ConstructorSet (CName _name ) = + (sem_ConstructorSet_CName _name ) +sem_ConstructorSet (CUnion _set1 _set2 ) = + (sem_ConstructorSet_CUnion (sem_ConstructorSet _set1 ) (sem_ConstructorSet _set2 ) ) +-- semantic domain +newtype T_ConstructorSet = T_ConstructorSet (( (Set ConstructorIdent),((Set ConstructorIdent->Set ConstructorIdent)),(Seq Error))) +data Inh_ConstructorSet = Inh_ConstructorSet {} +data Syn_ConstructorSet = Syn_ConstructorSet {collectedConstructorNames_Syn_ConstructorSet :: !((Set ConstructorIdent)),constructors_Syn_ConstructorSet :: !(((Set ConstructorIdent->Set ConstructorIdent))),errors_Syn_ConstructorSet :: !((Seq Error))} +wrap_ConstructorSet :: T_ConstructorSet -> + Inh_ConstructorSet -> + Syn_ConstructorSet +wrap_ConstructorSet (T_ConstructorSet sem ) (Inh_ConstructorSet ) = + (let ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors) = sem + in (Syn_ConstructorSet _lhsOcollectedConstructorNames _lhsOconstructors _lhsOerrors )) +sem_ConstructorSet_CAll :: T_ConstructorSet +sem_ConstructorSet_CAll = + (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _lhsOcollectedConstructorNames :: (Set ConstructorIdent) + _lhsOerrors :: (Seq Error) + -- "Transform.ag"(line 725, column 17) + _lhsOconstructors = + ({-# LINE 725 "Transform.ag" #-} + \ds -> ds + {-# LINE 1333 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 94, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 94 "Transform.ag" #-} + Set.empty + {-# LINE 1339 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 1345 "Transform.hs" #-} + ) + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) +sem_ConstructorSet_CDifference :: T_ConstructorSet -> + T_ConstructorSet -> + T_ConstructorSet +sem_ConstructorSet_CDifference (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) = + (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _lhsOcollectedConstructorNames :: (Set ConstructorIdent) + _lhsOerrors :: (Seq Error) + _set1IcollectedConstructorNames :: (Set ConstructorIdent) + _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _set1Ierrors :: (Seq Error) + _set2IcollectedConstructorNames :: (Set ConstructorIdent) + _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _set2Ierrors :: (Seq Error) + -- "Transform.ag"(line 724, column 17) + _lhsOconstructors = + ({-# LINE 724 "Transform.ag" #-} + \ds -> _set1Iconstructors ds `Set.difference` _set2Iconstructors ds + {-# LINE 1365 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 94, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 94 "Transform.ag" #-} + _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames + {-# LINE 1371 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 1377 "Transform.hs" #-} + ) + ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) = + set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) = + set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) +sem_ConstructorSet_CName :: ConstructorIdent -> + T_ConstructorSet +sem_ConstructorSet_CName name_ = + (T_ConstructorSet (let _lhsOcollectedConstructorNames :: (Set ConstructorIdent) + _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _lhsOerrors :: (Seq Error) + -- "Transform.ag"(line 569, column 11) + _lhsOcollectedConstructorNames = + ({-# LINE 569 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 1394 "Transform.hs" #-} + ) + -- "Transform.ag"(line 722, column 17) + _lhsOconstructors = + ({-# LINE 722 "Transform.ag" #-} + \ds -> Set.singleton name_ + {-# LINE 1400 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 1406 "Transform.hs" #-} + ) + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) +sem_ConstructorSet_CUnion :: T_ConstructorSet -> + T_ConstructorSet -> + T_ConstructorSet +sem_ConstructorSet_CUnion (T_ConstructorSet set1_ ) (T_ConstructorSet set2_ ) = + (T_ConstructorSet (let _lhsOconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _lhsOcollectedConstructorNames :: (Set ConstructorIdent) + _lhsOerrors :: (Seq Error) + _set1IcollectedConstructorNames :: (Set ConstructorIdent) + _set1Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _set1Ierrors :: (Seq Error) + _set2IcollectedConstructorNames :: (Set ConstructorIdent) + _set2Iconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _set2Ierrors :: (Seq Error) + -- "Transform.ag"(line 723, column 17) + _lhsOconstructors = + ({-# LINE 723 "Transform.ag" #-} + \ds -> _set1Iconstructors ds `Set.union` _set2Iconstructors ds + {-# LINE 1426 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 94, column 62) + _lhsOcollectedConstructorNames = + ({-# LINE 94 "Transform.ag" #-} + _set1IcollectedConstructorNames `Set.union` _set2IcollectedConstructorNames + {-# LINE 1432 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 1438 "Transform.hs" #-} + ) + ( _set1IcollectedConstructorNames,_set1Iconstructors,_set1Ierrors) = + set1_ + ( _set2IcollectedConstructorNames,_set2Iconstructors,_set2Ierrors) = + set2_ + in ( _lhsOcollectedConstructorNames,_lhsOconstructors,_lhsOerrors)) ) +-- Elem -------------------------------------------------------- +{- + visit 0: + inherited attributes: + allAttrDecls : Map NontermIdent (Attributes, Attributes) + allConstructors : Map NontermIdent (Set ConstructorIdent) + allFields : DataTypes + allNonterminals : Set NontermIdent + definedSets : DefinedSets + options : Options + chained attributes: + attrDecls : Map NontermIdent (Attributes, Attributes) + defSets : Map Identifier (Set NontermIdent,Set Identifier) + synthesized attributes: + attrOrderCollect : AttrOrderMap + blocks : Blocks + collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] + collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] + collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent) + collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] + collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] + collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] + collectedNames : Set Identifier + collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] + collectedSetNames : Set Identifier + collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] + collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] + ctxCollect : ContextMap + derivings : Derivings + errors : Seq Error + moduleDecl : Maybe (String,String,String) + paramsCollect : ParamMap + pragmas : Options -> Options + quantCollect : QuantMap + semPragmasCollect : PragmaMap + typeSyns : TypeSyns + useMap : Map NontermIdent (Map Identifier (String,String,String)) + wrappers : Set NontermIdent + alternatives: + alternative Attr: + child pos : {Pos} + child ctx : {ClassContext} + child names : NontSet + child quants : {[String]} + child attrs : Attrs + alternative Data: + child pos : {Pos} + child ctx : {ClassContext} + child names : NontSet + child params : {[Identifier]} + child attrs : Attrs + child alts : Alts + child ext : {Bool} + alternative Deriving: + child pos : {Pos} + child set : NontSet + child classes : {[NontermIdent]} + alternative Module: + child pos : {Pos} + child name : {String} + child exports : {String} + child imports : {String} + alternative Nocatas: + child pos : {Pos} + child set : NontSet + alternative Pragma: + child pos : {Pos} + child names : {[NontermIdent]} + alternative Sem: + child pos : {Pos} + child ctx : {ClassContext} + child names : NontSet + child attrs : Attrs + child quants : {[String]} + child alts : SemAlts + alternative Set: + child pos : {Pos} + child name : {NontermIdent} + child merge : {Bool} + child set : NontSet + visit 0: + local _tup3 : _ + local defSets2 : _ + local errs : _ + alternative Txt: + child pos : {Pos} + child name : {Identifier} + child mbNt : {Maybe NontermIdent} + child lines : {[String]} + visit 0: + local blockInfo : _ + local blockValue : _ + alternative Type: + child pos : {Pos} + child ctx : {ClassContext} + child name : {NontermIdent} + child params : {[Identifier]} + child type : {ComplexType} + visit 0: + local expanded : _ + local argType : _ + alternative Wrapper: + child pos : {Pos} + child set : NontSet +-} +-- cata +sem_Elem :: Elem -> + T_Elem +sem_Elem (Attr _pos _ctx _names _quants _attrs ) = + (sem_Elem_Attr _pos _ctx (sem_NontSet _names ) _quants (sem_Attrs _attrs ) ) +sem_Elem (Data _pos _ctx _names _params _attrs _alts _ext ) = + (sem_Elem_Data _pos _ctx (sem_NontSet _names ) _params (sem_Attrs _attrs ) (sem_Alts _alts ) _ext ) +sem_Elem (Deriving _pos _set _classes ) = + (sem_Elem_Deriving _pos (sem_NontSet _set ) _classes ) +sem_Elem (Module _pos _name _exports _imports ) = + (sem_Elem_Module _pos _name _exports _imports ) +sem_Elem (Nocatas _pos _set ) = + (sem_Elem_Nocatas _pos (sem_NontSet _set ) ) +sem_Elem (Pragma _pos _names ) = + (sem_Elem_Pragma _pos _names ) +sem_Elem (Sem _pos _ctx _names _attrs _quants _alts ) = + (sem_Elem_Sem _pos _ctx (sem_NontSet _names ) (sem_Attrs _attrs ) _quants (sem_SemAlts _alts ) ) +sem_Elem (Set _pos _name _merge _set ) = + (sem_Elem_Set _pos _name _merge (sem_NontSet _set ) ) +sem_Elem (Txt _pos _name _mbNt _lines ) = + (sem_Elem_Txt _pos _name _mbNt _lines ) +sem_Elem (Type _pos _ctx _name _params _type ) = + (sem_Elem_Type _pos _ctx _name _params _type ) +sem_Elem (Wrapper _pos _set ) = + (sem_Elem_Wrapper _pos (sem_NontSet _set ) ) +-- semantic domain +newtype T_Elem = T_Elem ((Map NontermIdent (Attributes, Attributes)) -> + (Map NontermIdent (Set ConstructorIdent)) -> + DataTypes -> + (Set NontermIdent) -> + (Map NontermIdent (Attributes, Attributes)) -> + (Map Identifier (Set NontermIdent,Set Identifier)) -> + DefinedSets -> + Options -> + ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),QuantMap,PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent))) +data Inh_Elem = Inh_Elem {allAttrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elem :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elem :: !(DataTypes),allNonterminals_Inh_Elem :: !((Set NontermIdent)),attrDecls_Inh_Elem :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elem :: !(DefinedSets),options_Inh_Elem :: !(Options)} +data Syn_Elem = Syn_Elem {attrDecls_Syn_Elem :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elem :: !(AttrOrderMap),blocks_Syn_Elem :: !(Blocks),collectedArounds_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elem :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elem :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elem :: !((Set Identifier)),collectedRules_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elem :: !((Set Identifier)),collectedSigs_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elem :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elem :: !(ContextMap),defSets_Syn_Elem :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elem :: !(Derivings),errors_Syn_Elem :: !((Seq Error)),moduleDecl_Syn_Elem :: !((Maybe (String,String,String))),paramsCollect_Syn_Elem :: !(ParamMap),pragmas_Syn_Elem :: !((Options -> Options)),quantCollect_Syn_Elem :: !(QuantMap),semPragmasCollect_Syn_Elem :: !(PragmaMap),typeSyns_Syn_Elem :: !(TypeSyns),useMap_Syn_Elem :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elem :: !((Set NontermIdent))} +wrap_Elem :: T_Elem -> + Inh_Elem -> + Syn_Elem +wrap_Elem (T_Elem sem ) (Inh_Elem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) = + (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elem _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers )) +sem_Elem_Attr :: Pos -> + ClassContext -> + T_NontSet -> + ([String]) -> + T_Attrs -> + T_Elem +sem_Elem_Attr pos_ ctx_ (T_NontSet names_ ) quants_ (T_Attrs attrs_ ) = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOctxCollect :: ContextMap + _lhsOquantCollect :: QuantMap + _attrsOnts :: (Set NontermIdent) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _namesOallFields :: DataTypes + _namesOallNonterminals :: (Set NontermIdent) + _namesOdefinedSets :: DefinedSets + _attrsOallFields :: DataTypes + _attrsOallNonterminals :: (Set NontermIdent) + _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _attrsOoptions :: Options + _namesIcollectedNames :: (Set Identifier) + _namesIerrors :: (Seq Error) + _namesInontSet :: (Set NontermIdent) + _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _attrsIerrors :: (Seq Error) + _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + -- "Transform.ag"(line 880, column 7) + _lhsOctxCollect = + ({-# LINE 880 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] + {-# LINE 1654 "Transform.hs" #-} + ) + -- "Transform.ag"(line 905, column 7) + _lhsOquantCollect = + ({-# LINE 905 "Transform.ag" #-} + if null quants_ + then Map.empty + else Map.fromList [(nt, quants_) | nt <- Set.toList _namesInontSet] + {-# LINE 1662 "Transform.hs" #-} + ) + -- "Transform.ag"(line 941, column 10) + _attrsOnts = + ({-# LINE 941 "Transform.ag" #-} + _namesInontSet + {-# LINE 1668 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 1674 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 1680 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 1686 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 1692 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 1698 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 1704 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 1710 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 1716 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 1722 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 1728 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 1734 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 1740 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 1746 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 1752 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors + {-# LINE 1758 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 1764 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 1770 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 1776 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 1782 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 1788 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 1794 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 1800 "Transform.hs" #-} + ) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 1806 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 1812 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1818 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1824 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 1830 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 1836 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 1842 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 1848 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 1854 "Transform.hs" #-} + ) + ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = + names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = + attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Data :: Pos -> + ClassContext -> + T_NontSet -> + ([Identifier]) -> + T_Attrs -> + T_Alts -> + Bool -> + T_Elem +sem_Elem_Data pos_ ctx_ (T_NontSet names_ ) params_ (T_Attrs attrs_ ) (T_Alts alts_ ) ext_ = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _altsOnts :: (Set NontermIdent) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOparamsCollect :: ParamMap + _lhsOctxCollect :: ContextMap + _attrsOnts :: (Set NontermIdent) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _namesOallFields :: DataTypes + _namesOallNonterminals :: (Set NontermIdent) + _namesOdefinedSets :: DefinedSets + _attrsOallFields :: DataTypes + _attrsOallNonterminals :: (Set NontermIdent) + _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _attrsOoptions :: Options + _altsOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) + _altsOallNonterminals :: (Set NontermIdent) + _namesIcollectedNames :: (Set Identifier) + _namesIerrors :: (Seq Error) + _namesInontSet :: (Set NontermIdent) + _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _attrsIerrors :: (Seq Error) + _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _altsIcollectedConstructorNames :: (Set ConstructorIdent) + _altsIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + -- "Transform.ag"(line 171, column 10) + _altsOnts = + ({-# LINE 171 "Transform.ag" #-} + _namesInontSet + {-# LINE 1927 "Transform.hs" #-} + ) + -- "Transform.ag"(line 575, column 11) + _lhsOcollectedConstructorsMap = + ({-# LINE 575 "Transform.ag" #-} + Map.fromList + [ (n, _altsIcollectedConstructorNames) + | n <- Set.toList _namesInontSet + ] + {-# LINE 1936 "Transform.hs" #-} + ) + -- "Transform.ag"(line 857, column 7) + _lhsOparamsCollect = + ({-# LINE 857 "Transform.ag" #-} + if null params_ + then Map.empty + else Map.fromList [(nt, params_) | nt <- Set.toList _namesInontSet] + {-# LINE 1944 "Transform.hs" #-} + ) + -- "Transform.ag"(line 880, column 7) + _lhsOctxCollect = + ({-# LINE 880 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] + {-# LINE 1952 "Transform.hs" #-} + ) + -- "Transform.ag"(line 940, column 10) + _attrsOnts = + ({-# LINE 940 "Transform.ag" #-} + _namesInontSet + {-# LINE 1958 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 1964 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 1970 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 1976 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 1982 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + _altsIcollectedFields + {-# LINE 1988 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 1994 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 2000 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 2006 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2012 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 2018 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2024 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 2030 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 2036 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors + {-# LINE 2042 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 2048 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 2054 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 2060 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 2066 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 2072 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 2078 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 2084 "Transform.hs" #-} + ) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 2090 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2096 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2102 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2108 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2114 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2120 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2126 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2132 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 2138 "Transform.hs" #-} + ) + -- copy rule (down) + _altsOallConstructors = + ({-# LINE 97 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 2144 "Transform.hs" #-} + ) + -- copy rule (down) + _altsOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2150 "Transform.hs" #-} + ) + ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = + names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = + attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIcollectedConstructorNames,_altsIcollectedFields) = + alts_ _altsOallConstructors _altsOallNonterminals _altsOnts + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Deriving :: Pos -> + T_NontSet -> + ([NontermIdent]) -> + T_Elem +sem_Elem_Deriving pos_ (T_NontSet set_ ) classes_ = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOderivings :: Derivings + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _setOallFields :: DataTypes + _setOallNonterminals :: (Set NontermIdent) + _setOdefinedSets :: DefinedSets + _setIcollectedNames :: (Set Identifier) + _setIerrors :: (Seq Error) + _setInontSet :: (Set NontermIdent) + -- "Transform.ag"(line 925, column 14) + _lhsOderivings = + ({-# LINE 925 "Transform.ag" #-} + Map.fromList [(nt,Set.fromList classes_) | nt <- Set.toList _setInontSet] + {-# LINE 2208 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 2214 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 2220 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 2226 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 2232 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 2238 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 2244 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 2250 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 2256 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 2262 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2268 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 2274 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2280 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 2286 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 2292 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _setIerrors + {-# LINE 2298 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 2304 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 2310 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 2316 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 2322 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 2328 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 2334 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 2340 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 2346 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2352 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2358 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2364 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2370 "Transform.hs" #-} + ) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2376 "Transform.hs" #-} + ) + ( _setIcollectedNames,_setIerrors,_setInontSet) = + set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Module :: Pos -> + String -> + String -> + String -> + T_Elem +sem_Elem_Module pos_ name_ exports_ imports_ = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + -- "Transform.ag"(line 1118, column 7) + _lhsOmoduleDecl = + ({-# LINE 1118 "Transform.ag" #-} + Just (name_, exports_, imports_) + {-# LINE 2425 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 2431 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 2437 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 2443 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 2449 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 2455 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 2461 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 2467 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 2473 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + Set.empty + {-# LINE 2479 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2485 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 2491 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2497 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 2503 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 2509 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 2515 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 2521 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 2527 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 2533 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 2539 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 2545 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 2551 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 2557 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 2563 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2569 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2575 "Transform.hs" #-} + ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Nocatas :: Pos -> + T_NontSet -> + T_Elem +sem_Elem_Nocatas pos_ (T_NontSet set_ ) = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOpragmas :: (Options -> Options) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _setOallFields :: DataTypes + _setOallNonterminals :: (Set NontermIdent) + _setOdefinedSets :: DefinedSets + _setIcollectedNames :: (Set Identifier) + _setIerrors :: (Seq Error) + _setInontSet :: (Set NontermIdent) + -- "Transform.ag"(line 741, column 14) + _lhsOpragmas = + ({-# LINE 741 "Transform.ag" #-} + \o -> o { nocatas = _setInontSet `Set.union` nocatas o } + {-# LINE 2626 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 2632 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 2638 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 2644 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 2650 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 2656 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 2662 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 2668 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 2674 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 2680 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2686 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 2692 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2698 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 2704 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 2710 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 2716 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _setIerrors + {-# LINE 2722 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 2728 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 2734 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 2740 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 2746 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 2752 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 2758 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 2764 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 2770 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 2776 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 2782 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 2788 "Transform.hs" #-} + ) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 2794 "Transform.hs" #-} + ) + ( _setIcollectedNames,_setIerrors,_setInontSet) = + set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Pragma :: Pos -> + ([NontermIdent]) -> + T_Elem +sem_Elem_Pragma pos_ names_ = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOpragmas :: (Options -> Options) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + -- "Transform.ag"(line 750, column 13) + _lhsOpragmas = + ({-# LINE 750 "Transform.ag" #-} + let mk n o = case getName n of + "gencatas" -> o { folds = True } + "nogencatas" -> o { folds = False } + "gendatas" -> o { dataTypes = True } + "nogendatas" -> o { dataTypes = False } + "gensems" -> o { semfuns = True } + "nogensems" -> o { semfuns = False } + "gentypesigs" -> o { typeSigs = True } + "nogentypesigs"-> o { typeSigs = False } + "nocycle" -> o { withCycle = False } + "cycle" -> o { withCycle = True } + "nostrictdata" -> o { strictData = False } + "strictdata" -> o { strictData = True } + "nostrictcase" -> o { strictCases = False } + "strictcase" -> o { strictCases = True } + "strictercase" -> o { strictCases = True, stricterCases = True } + "nostrictwrap" -> o { strictWrap = False } + "strictwrap" -> o { strictWrap = True } + "novisit" -> o { visit = False } + "visit" -> o { visit = True } + "nocase" -> o { cases = False } + "case" -> o { cases = True } + "noseq" -> o { withSeq = False } + "seq" -> o { withSeq = True } + "nounbox" -> o { unbox = False } + "unbox" -> o { unbox = True } + "bangpats" -> o { bangpats = True } + "breadthfirst" -> o { breadthFirst = True } + "breadthfirstStrict" -> o { breadthFirstStrict = True } + "nooptimize" -> o { cases = False , visit = False } + "optimize" -> o { cases = True , visit = True } + "strictsem" -> o { strictSems = True } + "gentraces" -> o { genTraces = True } + "genusetraces" -> o { genUseTraces = True } + "splitsems" -> o { splitSems = True } + "gencostcentres" -> o { genCostCentres = True } + "sepsemmods" -> o { sepSemMods = True } + "genlinepragmas" -> o { genLinePragmas = True } + "newtypes" -> o { newtypes = True } + "nonewtypes" -> o { newtypes = False } + _ -> o + in \o -> foldr mk o names_ + {-# LINE 2882 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 2888 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 2894 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 2900 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 2906 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 2912 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 2918 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 2924 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 2930 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + Set.empty + {-# LINE 2936 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 2942 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 2948 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 2954 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 2960 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 2966 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 2972 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 2978 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 2984 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 2990 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 2996 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 3002 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 3008 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 3014 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 3020 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3026 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3032 "Transform.hs" #-} + ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Sem :: Pos -> + ClassContext -> + T_NontSet -> + T_Attrs -> + ([String]) -> + T_SemAlts -> + T_Elem +sem_Elem_Sem pos_ ctx_ (T_NontSet names_ ) (T_Attrs attrs_ ) quants_ (T_SemAlts alts_ ) = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _altsOnts :: (Set NontermIdent) + _lhsOctxCollect :: ContextMap + _lhsOquantCollect :: QuantMap + _attrsOnts :: (Set NontermIdent) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _namesOallFields :: DataTypes + _namesOallNonterminals :: (Set NontermIdent) + _namesOdefinedSets :: DefinedSets + _attrsOallFields :: DataTypes + _attrsOallNonterminals :: (Set NontermIdent) + _attrsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _attrsOoptions :: Options + _altsOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _altsOallFields :: DataTypes + _altsOoptions :: Options + _namesIcollectedNames :: (Set Identifier) + _namesIerrors :: (Seq Error) + _namesInontSet :: (Set NontermIdent) + _attrsIattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _attrsIerrors :: (Seq Error) + _attrsIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _altsIattrOrderCollect :: AttrOrderMap + _altsIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _altsIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _altsIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _altsIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _altsIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _altsIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _altsIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _altsIerrors :: (Seq Error) + _altsIsemPragmasCollect :: PragmaMap + -- "Transform.ag"(line 172, column 10) + _altsOnts = + ({-# LINE 172 "Transform.ag" #-} + _namesInontSet + {-# LINE 3109 "Transform.hs" #-} + ) + -- "Transform.ag"(line 880, column 7) + _lhsOctxCollect = + ({-# LINE 880 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.fromList [(nt, ctx_) | nt <- Set.toList _namesInontSet] + {-# LINE 3117 "Transform.hs" #-} + ) + -- "Transform.ag"(line 905, column 7) + _lhsOquantCollect = + ({-# LINE 905 "Transform.ag" #-} + if null quants_ + then Map.empty + else Map.fromList [(nt, quants_) | nt <- Set.toList _namesInontSet] + {-# LINE 3125 "Transform.hs" #-} + ) + -- "Transform.ag"(line 942, column 10) + _attrsOnts = + ({-# LINE 942 "Transform.ag" #-} + _namesInontSet + {-# LINE 3131 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + _altsIattrOrderCollect + {-# LINE 3137 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 3143 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + _altsIcollectedArounds + {-# LINE 3149 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + _altsIcollectedAugments + {-# LINE 3155 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 3161 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 3167 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + _altsIcollectedInsts + {-# LINE 3173 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + _altsIcollectedMerges + {-# LINE 3179 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _namesIcollectedNames + {-# LINE 3185 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + _altsIcollectedRules + {-# LINE 3191 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 3197 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + _altsIcollectedSigs + {-# LINE 3203 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + _altsIcollectedUniques + {-# LINE 3209 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 3215 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _namesIerrors Seq.>< _attrsIerrors Seq.>< _altsIerrors + {-# LINE 3221 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 3227 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 3233 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 3239 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + _altsIsemPragmasCollect + {-# LINE 3245 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 3251 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + _attrsIuseMap + {-# LINE 3257 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 3263 "Transform.hs" #-} + ) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _attrsIattrDecls + {-# LINE 3269 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3275 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3281 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3287 "Transform.hs" #-} + ) + -- copy rule (down) + _namesOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3293 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3299 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3305 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3311 "Transform.hs" #-} + ) + -- copy rule (down) + _attrsOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 3317 "Transform.hs" #-} + ) + -- copy rule (down) + _altsOallAttrDecls = + ({-# LINE 822 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 3323 "Transform.hs" #-} + ) + -- copy rule (down) + _altsOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3329 "Transform.hs" #-} + ) + -- copy rule (down) + _altsOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 3335 "Transform.hs" #-} + ) + ( _namesIcollectedNames,_namesIerrors,_namesInontSet) = + names_ _namesOallFields _namesOallNonterminals _namesOdefinedSets + ( _attrsIattrDecls,_attrsIerrors,_attrsIuseMap) = + attrs_ _attrsOallFields _attrsOallNonterminals _attrsOattrDecls _attrsOnts _attrsOoptions + ( _altsIattrOrderCollect,_altsIcollectedArounds,_altsIcollectedAugments,_altsIcollectedInsts,_altsIcollectedMerges,_altsIcollectedRules,_altsIcollectedSigs,_altsIcollectedUniques,_altsIerrors,_altsIsemPragmasCollect) = + alts_ _altsOallAttrDecls _altsOallFields _altsOnts _altsOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Set :: Pos -> + NontermIdent -> + Bool -> + T_NontSet -> + T_Elem +sem_Elem_Set pos_ name_ merge_ (T_NontSet set_ ) = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOcollectedSetNames :: (Set Identifier) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _lhsOerrors :: (Seq Error) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _setOallFields :: DataTypes + _setOallNonterminals :: (Set NontermIdent) + _setOdefinedSets :: DefinedSets + _setIcollectedNames :: (Set Identifier) + _setIerrors :: (Seq Error) + _setInontSet :: (Set NontermIdent) + -- "Transform.ag"(line 552, column 10) + _lhsOcollectedSetNames = + ({-# LINE 552 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 3394 "Transform.hs" #-} + ) + -- "Transform.ag"(line 659, column 13) + __tup3 = + ({-# LINE 659 "Transform.ag" #-} + let allUsedNames = Set.unions [ maybe (Set.singleton n) + snd + (Map.lookup n _lhsIdefSets) + | n <- Set.toList _setIcollectedNames + ] + (nontSet,e1) | Set.member name_ allUsedNames + = (Set.empty, Seq.singleton(CyclicSet name_)) + | otherwise = (_setInontSet, Seq.empty) + (res, e2) = let toAdd = (nontSet,Set.insert name_ allUsedNames) + union (a,b) (c,d) = (a `Set.union` c, b `Set.union` d) + in if Set.member name_ _lhsIallNonterminals || not merge_ + then checkDuplicate DupSet name_ toAdd _lhsIdefSets + else (Map.insertWith union name_ toAdd _lhsIdefSets, Seq.empty) + in (res, e1 Seq.>< e2) + {-# LINE 3413 "Transform.hs" #-} + ) + -- "Transform.ag"(line 659, column 13) + (_defSets2,_) = + ({-# LINE 659 "Transform.ag" #-} + __tup3 + {-# LINE 3419 "Transform.hs" #-} + ) + -- "Transform.ag"(line 659, column 13) + (_,_errs) = + ({-# LINE 659 "Transform.ag" #-} + __tup3 + {-# LINE 3425 "Transform.hs" #-} + ) + -- "Transform.ag"(line 673, column 9) + _lhsOdefSets = + ({-# LINE 673 "Transform.ag" #-} + _defSets2 + {-# LINE 3431 "Transform.hs" #-} + ) + -- "Transform.ag"(line 673, column 9) + _lhsOerrors = + ({-# LINE 674 "Transform.ag" #-} + _errs >< _setIerrors + {-# LINE 3437 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 3443 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 3449 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 3455 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 3461 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 3467 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 3473 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 3479 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 3485 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 3491 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3497 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3503 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 3509 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 3515 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 3521 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 3527 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 3533 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 3539 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 3545 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 3551 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 3557 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 3563 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 3569 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3575 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 3581 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 3587 "Transform.hs" #-} + ) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 3593 "Transform.hs" #-} + ) + ( _setIcollectedNames,_setIerrors,_setInontSet) = + set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Txt :: Pos -> + Identifier -> + (Maybe NontermIdent) -> + ([String]) -> + T_Elem +sem_Elem_Txt pos_ name_ mbNt_ lines_ = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOblocks :: Blocks + _lhsOerrors :: (Seq Error) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + -- "Transform.ag"(line 181, column 10) + _blockInfo = + ({-# LINE 181 "Transform.ag" #-} + ( let nm = getName name_ + in if nm == "imports" + then BlockImport + else if nm == "optpragmas" + then BlockPragma + else BlockOther + , mbNt_ + ) + {-# LINE 3649 "Transform.hs" #-} + ) + -- "Transform.ag"(line 189, column 10) + _blockValue = + ({-# LINE 189 "Transform.ag" #-} + [(lines_, pos_)] + {-# LINE 3655 "Transform.hs" #-} + ) + -- "Transform.ag"(line 190, column 10) + _lhsOblocks = + ({-# LINE 190 "Transform.ag" #-} + Map.singleton _blockInfo _blockValue + {-# LINE 3661 "Transform.hs" #-} + ) + -- "Transform.ag"(line 191, column 10) + _lhsOerrors = + ({-# LINE 191 "Transform.ag" #-} + if checkParseBlock _lhsIoptions + then let exp = Expression pos_ tks + tks = [tk] + tk = HsToken (unlines lines_) pos_ + in Seq.fromList $ checkBlock $ exp + else Seq.empty + {-# LINE 3672 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 3678 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 3684 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 3690 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 3696 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 3702 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 3708 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 3714 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + Set.empty + {-# LINE 3720 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3726 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 3732 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3738 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 3744 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 3750 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 3756 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 3762 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 3768 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 3774 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 3780 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 3786 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 3792 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 3798 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 3804 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 3810 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 3816 "Transform.hs" #-} + ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Type :: Pos -> + ClassContext -> + NontermIdent -> + ([Identifier]) -> + ComplexType -> + T_Elem +sem_Elem_Type pos_ ctx_ name_ params_ type_ = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOtypeSyns :: TypeSyns + _lhsOparamsCollect :: ParamMap + _lhsOctxCollect :: ContextMap + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + -- "Transform.ag"(line 249, column 10) + _lhsOcollectedFields = + ({-# LINE 249 "Transform.ag" #-} + map (\(x,y)->(name_, x, y)) _expanded + {-# LINE 3864 "Transform.hs" #-} + ) + -- "Transform.ag"(line 555, column 11) + _lhsOcollectedNames = + ({-# LINE 555 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 3870 "Transform.hs" #-} + ) + -- "Transform.ag"(line 609, column 11) + _expanded = + ({-# LINE 609 "Transform.ag" #-} + case _argType of + List tp -> [(Ident "Cons" pos_, [(Ident "hd" pos_, tp) + ,(Ident "tl" pos_, NT name_ (map getName params_)) + ] + ) + ,(Ident "Nil" pos_, []) + ] + Maybe tp -> [(Ident "Just" pos_, [(Ident "just" pos_, tp) + ] + ) + ,(Ident "Nothing" pos_, []) + ] + Either tp1 tp2 -> [ + (Ident "Left" pos_, [(Ident "left" pos_, tp1) ]) + , (Ident "Right" pos_, [(Ident "right" pos_, tp2) ]) + ] + Map tp1 tp2 -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, tp1) + , (Ident "val" pos_, tp2) + , (Ident "tl" pos_, NT name_ (map getName params_)) + ]) + , (Ident "Nil" pos_, []) + ] + IntMap tp -> [ (Ident "Entry" pos_, [ (Ident "key" pos_, Haskell "Int") + , (Ident "val" pos_, tp) + , (Ident "tl" pos_, NT name_ (map getName params_)) + ]) + , (Ident "Nil" pos_, []) + ] + Tuple xs -> [(Ident "Tuple" pos_, xs)] + {-# LINE 3904 "Transform.hs" #-} + ) + -- "Transform.ag"(line 638, column 11) + _argType = + ({-# LINE 638 "Transform.ag" #-} + case type_ of + Maybe tp -> Maybe ( makeType _lhsIallNonterminals tp) + Either tp1 tp2 -> Either ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2) + List tp -> List ( makeType _lhsIallNonterminals tp) + Tuple xs -> Tuple [(f,makeType _lhsIallNonterminals tp) | (f,tp) <- xs] + Map tp1 tp2 -> Map ( makeType _lhsIallNonterminals tp1) (makeType _lhsIallNonterminals tp2) + IntMap tp -> IntMap ( makeType _lhsIallNonterminals tp) + {-# LINE 3916 "Transform.hs" #-} + ) + -- "Transform.ag"(line 645, column 11) + _lhsOtypeSyns = + ({-# LINE 645 "Transform.ag" #-} + [(name_,_argType)] + {-# LINE 3922 "Transform.hs" #-} + ) + -- "Transform.ag"(line 863, column 7) + _lhsOparamsCollect = + ({-# LINE 863 "Transform.ag" #-} + if null params_ + then Map.empty + else Map.singleton name_ params_ + {-# LINE 3930 "Transform.hs" #-} + ) + -- "Transform.ag"(line 886, column 7) + _lhsOctxCollect = + ({-# LINE 886 "Transform.ag" #-} + if null ctx_ + then Map.empty + else Map.singleton name_ ctx_ + {-# LINE 3938 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 3944 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 3950 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 3956 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 3962 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 3968 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 3974 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 3980 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 3986 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 3992 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 3998 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 4004 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 4010 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 4016 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 4022 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 4028 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 4034 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 4040 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 4046 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 4052 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 4058 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 4064 "Transform.hs" #-} + ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elem_Wrapper :: Pos -> + T_NontSet -> + T_Elem +sem_Elem_Wrapper pos_ (T_NontSet set_ ) = + (T_Elem (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOwrappers :: (Set NontermIdent) + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _setOallFields :: DataTypes + _setOallNonterminals :: (Set NontermIdent) + _setOdefinedSets :: DefinedSets + _setIcollectedNames :: (Set Identifier) + _setIerrors :: (Seq Error) + _setInontSet :: (Set NontermIdent) + -- "Transform.ag"(line 734, column 13) + _lhsOwrappers = + ({-# LINE 734 "Transform.ag" #-} + _setInontSet + {-# LINE 4115 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 4121 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 4127 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 4133 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 4139 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 4145 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 4151 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 4157 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 4163 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _setIcollectedNames + {-# LINE 4169 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 4175 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 4181 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 4187 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 4193 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 4199 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 4205 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _setIerrors + {-# LINE 4211 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 4217 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 4223 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 4229 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 4235 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 4241 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 4247 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 4253 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 4259 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 4265 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4271 "Transform.hs" #-} + ) + -- copy rule (down) + _setOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4277 "Transform.hs" #-} + ) + -- copy rule (down) + _setOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4283 "Transform.hs" #-} + ) + ( _setIcollectedNames,_setIerrors,_setInontSet) = + set_ _setOallFields _setOallNonterminals _setOdefinedSets + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +-- Elems ------------------------------------------------------- +{- + visit 0: + inherited attributes: + allAttrDecls : Map NontermIdent (Attributes, Attributes) + allConstructors : Map NontermIdent (Set ConstructorIdent) + allFields : DataTypes + allNonterminals : Set NontermIdent + definedSets : DefinedSets + options : Options + chained attributes: + attrDecls : Map NontermIdent (Attributes, Attributes) + defSets : Map Identifier (Set NontermIdent,Set Identifier) + synthesized attributes: + attrOrderCollect : AttrOrderMap + blocks : Blocks + collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] + collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] + collectedConstructorsMap : Map NontermIdent (Set ConstructorIdent) + collectedFields : [(NontermIdent, ConstructorIdent, FieldMap)] + collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] + collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] + collectedNames : Set Identifier + collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] + collectedSetNames : Set Identifier + collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] + collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] + ctxCollect : ContextMap + derivings : Derivings + errors : Seq Error + moduleDecl : Maybe (String,String,String) + paramsCollect : ParamMap + pragmas : Options -> Options + quantCollect : QuantMap + semPragmasCollect : PragmaMap + typeSyns : TypeSyns + useMap : Map NontermIdent (Map Identifier (String,String,String)) + wrappers : Set NontermIdent + alternatives: + alternative Cons: + child hd : Elem + child tl : Elems + alternative Nil: +-} +-- cata +sem_Elems :: Elems -> + T_Elems +sem_Elems list = + (Prelude.foldr sem_Elems_Cons sem_Elems_Nil (Prelude.map sem_Elem list) ) +-- semantic domain +newtype T_Elems = T_Elems ((Map NontermIdent (Attributes, Attributes)) -> + (Map NontermIdent (Set ConstructorIdent)) -> + DataTypes -> + (Set NontermIdent) -> + (Map NontermIdent (Attributes, Attributes)) -> + (Map Identifier (Set NontermIdent,Set Identifier)) -> + DefinedSets -> + Options -> + ( (Map NontermIdent (Attributes, Attributes)),AttrOrderMap,Blocks,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),(Map NontermIdent (Set ConstructorIdent)),([(NontermIdent, ConstructorIdent, FieldMap)]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),(Set Identifier),([ (NontermIdent, ConstructorIdent, RuleInfo)]),(Set Identifier),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),ContextMap,(Map Identifier (Set NontermIdent,Set Identifier)),Derivings,(Seq Error),(Maybe (String,String,String)),ParamMap,(Options -> Options),QuantMap,PragmaMap,TypeSyns,(Map NontermIdent (Map Identifier (String,String,String))),(Set NontermIdent))) +data Inh_Elems = Inh_Elems {allAttrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),allConstructors_Inh_Elems :: !((Map NontermIdent (Set ConstructorIdent))),allFields_Inh_Elems :: !(DataTypes),allNonterminals_Inh_Elems :: !((Set NontermIdent)),attrDecls_Inh_Elems :: !((Map NontermIdent (Attributes, Attributes))),defSets_Inh_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),definedSets_Inh_Elems :: !(DefinedSets),options_Inh_Elems :: !(Options)} +data Syn_Elems = Syn_Elems {attrDecls_Syn_Elems :: !((Map NontermIdent (Attributes, Attributes))),attrOrderCollect_Syn_Elems :: !(AttrOrderMap),blocks_Syn_Elems :: !(Blocks),collectedArounds_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedConstructorsMap_Syn_Elems :: !((Map NontermIdent (Set ConstructorIdent))),collectedFields_Syn_Elems :: !(([(NontermIdent, ConstructorIdent, FieldMap)])),collectedInsts_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedNames_Syn_Elems :: !((Set Identifier)),collectedRules_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSetNames_Syn_Elems :: !((Set Identifier)),collectedSigs_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_Elems :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),ctxCollect_Syn_Elems :: !(ContextMap),defSets_Syn_Elems :: !((Map Identifier (Set NontermIdent,Set Identifier))),derivings_Syn_Elems :: !(Derivings),errors_Syn_Elems :: !((Seq Error)),moduleDecl_Syn_Elems :: !((Maybe (String,String,String))),paramsCollect_Syn_Elems :: !(ParamMap),pragmas_Syn_Elems :: !((Options -> Options)),quantCollect_Syn_Elems :: !(QuantMap),semPragmasCollect_Syn_Elems :: !(PragmaMap),typeSyns_Syn_Elems :: !(TypeSyns),useMap_Syn_Elems :: !((Map NontermIdent (Map Identifier (String,String,String)))),wrappers_Syn_Elems :: !((Set NontermIdent))} +wrap_Elems :: T_Elems -> + Inh_Elems -> + Syn_Elems +wrap_Elems (T_Elems sem ) (Inh_Elems _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions ) = + (let ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers) = sem _lhsIallAttrDecls _lhsIallConstructors _lhsIallFields _lhsIallNonterminals _lhsIattrDecls _lhsIdefSets _lhsIdefinedSets _lhsIoptions + in (Syn_Elems _lhsOattrDecls _lhsOattrOrderCollect _lhsOblocks _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedConstructorsMap _lhsOcollectedFields _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedNames _lhsOcollectedRules _lhsOcollectedSetNames _lhsOcollectedSigs _lhsOcollectedUniques _lhsOctxCollect _lhsOdefSets _lhsOderivings _lhsOerrors _lhsOmoduleDecl _lhsOparamsCollect _lhsOpragmas _lhsOquantCollect _lhsOsemPragmasCollect _lhsOtypeSyns _lhsOuseMap _lhsOwrappers )) +sem_Elems_Cons :: T_Elem -> + T_Elems -> + T_Elems +sem_Elems_Cons (T_Elem hd_ ) (T_Elems tl_ ) = + (T_Elems (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _hdOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) + _hdOallFields :: DataTypes + _hdOallNonterminals :: (Set NontermIdent) + _hdOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _hdOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _hdOdefinedSets :: DefinedSets + _hdOoptions :: Options + _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _tlOallConstructors :: (Map NontermIdent (Set ConstructorIdent)) + _tlOallFields :: DataTypes + _tlOallNonterminals :: (Set NontermIdent) + _tlOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _tlOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _tlOdefinedSets :: DefinedSets + _tlOoptions :: Options + _hdIattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _hdIattrOrderCollect :: AttrOrderMap + _hdIblocks :: Blocks + _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _hdIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _hdIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _hdIcollectedNames :: (Set Identifier) + _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _hdIcollectedSetNames :: (Set Identifier) + _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _hdIctxCollect :: ContextMap + _hdIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _hdIderivings :: Derivings + _hdIerrors :: (Seq Error) + _hdImoduleDecl :: (Maybe (String,String,String)) + _hdIparamsCollect :: ParamMap + _hdIpragmas :: (Options -> Options) + _hdIquantCollect :: QuantMap + _hdIsemPragmasCollect :: PragmaMap + _hdItypeSyns :: TypeSyns + _hdIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _hdIwrappers :: (Set NontermIdent) + _tlIattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _tlIattrOrderCollect :: AttrOrderMap + _tlIblocks :: Blocks + _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _tlIcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _tlIcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _tlIcollectedNames :: (Set Identifier) + _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _tlIcollectedSetNames :: (Set Identifier) + _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _tlIctxCollect :: ContextMap + _tlIdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + _tlIderivings :: Derivings + _tlIerrors :: (Seq Error) + _tlImoduleDecl :: (Maybe (String,String,String)) + _tlIparamsCollect :: ParamMap + _tlIpragmas :: (Options -> Options) + _tlIquantCollect :: QuantMap + _tlIsemPragmasCollect :: PragmaMap + _tlItypeSyns :: TypeSyns + _tlIuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _tlIwrappers :: (Set NontermIdent) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect + {-# LINE 4465 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + _hdIblocks `mapUnionWithPlusPlus` _tlIblocks + {-# LINE 4471 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + _hdIcollectedArounds ++ _tlIcollectedArounds + {-# LINE 4477 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + _hdIcollectedAugments ++ _tlIcollectedAugments + {-# LINE 4483 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + _hdIcollectedConstructorsMap `mapUnionWithSetUnion` _tlIcollectedConstructorsMap + {-# LINE 4489 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + _hdIcollectedFields ++ _tlIcollectedFields + {-# LINE 4495 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + _hdIcollectedInsts ++ _tlIcollectedInsts + {-# LINE 4501 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + _hdIcollectedMerges ++ _tlIcollectedMerges + {-# LINE 4507 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _hdIcollectedNames `Set.union` _tlIcollectedNames + {-# LINE 4513 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + _hdIcollectedRules ++ _tlIcollectedRules + {-# LINE 4519 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + _hdIcollectedSetNames `Set.union` _tlIcollectedSetNames + {-# LINE 4525 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + _hdIcollectedSigs ++ _tlIcollectedSigs + {-# LINE 4531 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + _hdIcollectedUniques ++ _tlIcollectedUniques + {-# LINE 4537 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + _hdIctxCollect `mergeCtx` _tlIctxCollect + {-# LINE 4543 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + _hdIderivings `mergeDerivings` _tlIderivings + {-# LINE 4549 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 4555 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + _hdImoduleDecl `mplus` _tlImoduleDecl + {-# LINE 4561 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + _hdIparamsCollect `mergeParams` _tlIparamsCollect + {-# LINE 4567 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + _hdIpragmas . _tlIpragmas + {-# LINE 4573 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + _hdIquantCollect `mergeQuant` _tlIquantCollect + {-# LINE 4579 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect + {-# LINE 4585 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + _hdItypeSyns ++ _tlItypeSyns + {-# LINE 4591 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + _hdIuseMap `merge` _tlIuseMap + {-# LINE 4597 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + _hdIwrappers `Set.union` _tlIwrappers + {-# LINE 4603 "Transform.hs" #-} + ) + -- copy rule (up) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _tlIattrDecls + {-# LINE 4609 "Transform.hs" #-} + ) + -- copy rule (up) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _tlIdefSets + {-# LINE 4615 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallAttrDecls = + ({-# LINE 822 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 4621 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallConstructors = + ({-# LINE 97 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 4627 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4633 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4639 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 4645 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 4651 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4657 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 4663 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallAttrDecls = + ({-# LINE 822 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 4669 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallConstructors = + ({-# LINE 97 "Transform.ag" #-} + _lhsIallConstructors + {-# LINE 4675 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 4681 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4687 "Transform.hs" #-} + ) + -- copy rule (chain) + _tlOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _hdIattrDecls + {-# LINE 4693 "Transform.hs" #-} + ) + -- copy rule (chain) + _tlOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _hdIdefSets + {-# LINE 4699 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 4705 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 4711 "Transform.hs" #-} + ) + ( _hdIattrDecls,_hdIattrOrderCollect,_hdIblocks,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedConstructorsMap,_hdIcollectedFields,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedNames,_hdIcollectedRules,_hdIcollectedSetNames,_hdIcollectedSigs,_hdIcollectedUniques,_hdIctxCollect,_hdIdefSets,_hdIderivings,_hdIerrors,_hdImoduleDecl,_hdIparamsCollect,_hdIpragmas,_hdIquantCollect,_hdIsemPragmasCollect,_hdItypeSyns,_hdIuseMap,_hdIwrappers) = + hd_ _hdOallAttrDecls _hdOallConstructors _hdOallFields _hdOallNonterminals _hdOattrDecls _hdOdefSets _hdOdefinedSets _hdOoptions + ( _tlIattrDecls,_tlIattrOrderCollect,_tlIblocks,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedConstructorsMap,_tlIcollectedFields,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedNames,_tlIcollectedRules,_tlIcollectedSetNames,_tlIcollectedSigs,_tlIcollectedUniques,_tlIctxCollect,_tlIdefSets,_tlIderivings,_tlIerrors,_tlImoduleDecl,_tlIparamsCollect,_tlIpragmas,_tlIquantCollect,_tlIsemPragmasCollect,_tlItypeSyns,_tlIuseMap,_tlIwrappers) = + tl_ _tlOallAttrDecls _tlOallConstructors _tlOallFields _tlOallNonterminals _tlOattrDecls _tlOdefSets _tlOdefinedSets _tlOoptions + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +sem_Elems_Nil :: T_Elems +sem_Elems_Nil = + (T_Elems (\ _lhsIallAttrDecls + _lhsIallConstructors + _lhsIallFields + _lhsIallNonterminals + _lhsIattrDecls + _lhsIdefSets + _lhsIdefinedSets + _lhsIoptions -> + (let _lhsOattrOrderCollect :: AttrOrderMap + _lhsOblocks :: Blocks + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedConstructorsMap :: (Map NontermIdent (Set ConstructorIdent)) + _lhsOcollectedFields :: ([(NontermIdent, ConstructorIdent, FieldMap)]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedNames :: (Set Identifier) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSetNames :: (Set Identifier) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOctxCollect :: ContextMap + _lhsOderivings :: Derivings + _lhsOerrors :: (Seq Error) + _lhsOmoduleDecl :: (Maybe (String,String,String)) + _lhsOparamsCollect :: ParamMap + _lhsOpragmas :: (Options -> Options) + _lhsOquantCollect :: QuantMap + _lhsOsemPragmasCollect :: PragmaMap + _lhsOtypeSyns :: TypeSyns + _lhsOuseMap :: (Map NontermIdent (Map Identifier (String,String,String))) + _lhsOwrappers :: (Set NontermIdent) + _lhsOattrDecls :: (Map NontermIdent (Attributes, Attributes)) + _lhsOdefSets :: (Map Identifier (Set NontermIdent,Set Identifier)) + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 4758 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 45, column 19) + _lhsOblocks = + ({-# LINE 45 "Transform.ag" #-} + Map.empty + {-# LINE 4764 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 4770 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 4776 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 95, column 48) + _lhsOcollectedConstructorsMap = + ({-# LINE 95 "Transform.ag" #-} + Map.empty + {-# LINE 4782 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 126, column 28) + _lhsOcollectedFields = + ({-# LINE 126 "Transform.ag" #-} + [] + {-# LINE 4788 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 4794 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 4800 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + Set.empty + {-# LINE 4806 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 4812 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 86, column 50) + _lhsOcollectedSetNames = + ({-# LINE 86 "Transform.ag" #-} + Set.empty + {-# LINE 4818 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 4824 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 4830 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 876, column 34) + _lhsOctxCollect = + ({-# LINE 876 "Transform.ag" #-} + Map.empty + {-# LINE 4836 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 918, column 33) + _lhsOderivings = + ({-# LINE 918 "Transform.ag" #-} + Map.empty + {-# LINE 4842 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 4848 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1114, column 37) + _lhsOmoduleDecl = + ({-# LINE 1114 "Transform.ag" #-} + mzero + {-# LINE 4854 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 853, column 37) + _lhsOparamsCollect = + ({-# LINE 853 "Transform.ag" #-} + Map.empty + {-# LINE 4860 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 747, column 34) + _lhsOpragmas = + ({-# LINE 747 "Transform.ag" #-} + id + {-# LINE 4866 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 901, column 36) + _lhsOquantCollect = + ({-# LINE 901 "Transform.ag" #-} + Map.empty + {-# LINE 4872 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 4878 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 596, column 32) + _lhsOtypeSyns = + ({-# LINE 596 "Transform.ag" #-} + [] + {-# LINE 4884 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 138, column 15) + _lhsOuseMap = + ({-# LINE 138 "Transform.ag" #-} + Map.empty + {-# LINE 4890 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 731, column 32) + _lhsOwrappers = + ({-# LINE 731 "Transform.ag" #-} + Set.empty + {-# LINE 4896 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOattrDecls = + ({-# LINE 137 "Transform.ag" #-} + _lhsIattrDecls + {-# LINE 4902 "Transform.hs" #-} + ) + -- copy rule (chain) + _lhsOdefSets = + ({-# LINE 105 "Transform.ag" #-} + _lhsIdefSets + {-# LINE 4908 "Transform.hs" #-} + ) + in ( _lhsOattrDecls,_lhsOattrOrderCollect,_lhsOblocks,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedConstructorsMap,_lhsOcollectedFields,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedNames,_lhsOcollectedRules,_lhsOcollectedSetNames,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOctxCollect,_lhsOdefSets,_lhsOderivings,_lhsOerrors,_lhsOmoduleDecl,_lhsOparamsCollect,_lhsOpragmas,_lhsOquantCollect,_lhsOsemPragmasCollect,_lhsOtypeSyns,_lhsOuseMap,_lhsOwrappers))) ) +-- NontSet ----------------------------------------------------- +{- + visit 0: + inherited attributes: + allFields : DataTypes + allNonterminals : Set NontermIdent + definedSets : DefinedSets + synthesized attributes: + collectedNames : Set Identifier + errors : Seq Error + nontSet : Set NontermIdent + alternatives: + alternative All: + alternative Difference: + child set1 : NontSet + child set2 : NontSet + alternative Intersect: + child set1 : NontSet + child set2 : NontSet + alternative NamedSet: + child name : {NontermIdent} + visit 0: + local _tup4 : _ + local nontSet : _ + local errors : _ + alternative Path: + child from : {NontermIdent} + child to : {NontermIdent} + alternative Union: + child set1 : NontSet + child set2 : NontSet +-} +-- cata +sem_NontSet :: NontSet -> + T_NontSet +sem_NontSet (All ) = + (sem_NontSet_All ) +sem_NontSet (Difference _set1 _set2 ) = + (sem_NontSet_Difference (sem_NontSet _set1 ) (sem_NontSet _set2 ) ) +sem_NontSet (Intersect _set1 _set2 ) = + (sem_NontSet_Intersect (sem_NontSet _set1 ) (sem_NontSet _set2 ) ) +sem_NontSet (NamedSet _name ) = + (sem_NontSet_NamedSet _name ) +sem_NontSet (Path _from _to ) = + (sem_NontSet_Path _from _to ) +sem_NontSet (Union _set1 _set2 ) = + (sem_NontSet_Union (sem_NontSet _set1 ) (sem_NontSet _set2 ) ) +-- semantic domain +newtype T_NontSet = T_NontSet (DataTypes -> + (Set NontermIdent) -> + DefinedSets -> + ( (Set Identifier),(Seq Error),(Set NontermIdent))) +data Inh_NontSet = Inh_NontSet {allFields_Inh_NontSet :: !(DataTypes),allNonterminals_Inh_NontSet :: !((Set NontermIdent)),definedSets_Inh_NontSet :: !(DefinedSets)} +data Syn_NontSet = Syn_NontSet {collectedNames_Syn_NontSet :: !((Set Identifier)),errors_Syn_NontSet :: !((Seq Error)),nontSet_Syn_NontSet :: !((Set NontermIdent))} +wrap_NontSet :: T_NontSet -> + Inh_NontSet -> + Syn_NontSet +wrap_NontSet (T_NontSet sem ) (Inh_NontSet _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets ) = + (let ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet) = sem _lhsIallFields _lhsIallNonterminals _lhsIdefinedSets + in (Syn_NontSet _lhsOcollectedNames _lhsOerrors _lhsOnontSet )) +sem_NontSet_All :: T_NontSet +sem_NontSet_All = + (T_NontSet (\ _lhsIallFields + _lhsIallNonterminals + _lhsIdefinedSets -> + (let _lhsOnontSet :: (Set NontermIdent) + _lhsOcollectedNames :: (Set Identifier) + _lhsOerrors :: (Seq Error) + -- "Transform.ag"(line 677, column 16) + _lhsOnontSet = + ({-# LINE 677 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 4983 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + Set.empty + {-# LINE 4989 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 4995 "Transform.hs" #-} + ) + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) +sem_NontSet_Difference :: T_NontSet -> + T_NontSet -> + T_NontSet +sem_NontSet_Difference (T_NontSet set1_ ) (T_NontSet set2_ ) = + (T_NontSet (\ _lhsIallFields + _lhsIallNonterminals + _lhsIdefinedSets -> + (let _lhsOnontSet :: (Set NontermIdent) + _lhsOcollectedNames :: (Set Identifier) + _lhsOerrors :: (Seq Error) + _set1OallFields :: DataTypes + _set1OallNonterminals :: (Set NontermIdent) + _set1OdefinedSets :: DefinedSets + _set2OallFields :: DataTypes + _set2OallNonterminals :: (Set NontermIdent) + _set2OdefinedSets :: DefinedSets + _set1IcollectedNames :: (Set Identifier) + _set1Ierrors :: (Seq Error) + _set1InontSet :: (Set NontermIdent) + _set2IcollectedNames :: (Set Identifier) + _set2Ierrors :: (Seq Error) + _set2InontSet :: (Set NontermIdent) + -- "Transform.ag"(line 683, column 16) + _lhsOnontSet = + ({-# LINE 683 "Transform.ag" #-} + Set.difference _set1InontSet _set2InontSet + {-# LINE 5024 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 5030 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 5036 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5042 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 5048 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 5054 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5060 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 5066 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 5072 "Transform.hs" #-} + ) + ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) = + set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) = + set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) +sem_NontSet_Intersect :: T_NontSet -> + T_NontSet -> + T_NontSet +sem_NontSet_Intersect (T_NontSet set1_ ) (T_NontSet set2_ ) = + (T_NontSet (\ _lhsIallFields + _lhsIallNonterminals + _lhsIdefinedSets -> + (let _lhsOnontSet :: (Set NontermIdent) + _lhsOcollectedNames :: (Set Identifier) + _lhsOerrors :: (Seq Error) + _set1OallFields :: DataTypes + _set1OallNonterminals :: (Set NontermIdent) + _set1OdefinedSets :: DefinedSets + _set2OallFields :: DataTypes + _set2OallNonterminals :: (Set NontermIdent) + _set2OdefinedSets :: DefinedSets + _set1IcollectedNames :: (Set Identifier) + _set1Ierrors :: (Seq Error) + _set1InontSet :: (Set NontermIdent) + _set2IcollectedNames :: (Set Identifier) + _set2Ierrors :: (Seq Error) + _set2InontSet :: (Set NontermIdent) + -- "Transform.ag"(line 682, column 16) + _lhsOnontSet = + ({-# LINE 682 "Transform.ag" #-} + Set.intersection _set1InontSet _set2InontSet + {-# LINE 5105 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 5111 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 5117 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5123 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 5129 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 5135 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5141 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 5147 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 5153 "Transform.hs" #-} + ) + ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) = + set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) = + set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) +sem_NontSet_NamedSet :: NontermIdent -> + T_NontSet +sem_NontSet_NamedSet name_ = + (T_NontSet (\ _lhsIallFields + _lhsIallNonterminals + _lhsIdefinedSets -> + (let _lhsOcollectedNames :: (Set Identifier) + _lhsOerrors :: (Seq Error) + _lhsOnontSet :: (Set NontermIdent) + -- "Transform.ag"(line 558, column 14) + _lhsOcollectedNames = + ({-# LINE 558 "Transform.ag" #-} + Set.singleton name_ + {-# LINE 5173 "Transform.hs" #-} + ) + -- "Transform.ag"(line 678, column 20) + __tup4 = + ({-# LINE 678 "Transform.ag" #-} + case Map.lookup name_ _lhsIdefinedSets of + Nothing -> (Set.empty, Seq.singleton (UndefNont name_)) + Just set -> (set, Seq.empty) + {-# LINE 5181 "Transform.hs" #-} + ) + -- "Transform.ag"(line 678, column 20) + (_nontSet,_) = + ({-# LINE 678 "Transform.ag" #-} + __tup4 + {-# LINE 5187 "Transform.hs" #-} + ) + -- "Transform.ag"(line 678, column 20) + (_,_errors) = + ({-# LINE 678 "Transform.ag" #-} + __tup4 + {-# LINE 5193 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _errors + {-# LINE 5199 "Transform.hs" #-} + ) + -- copy rule (from local) + _lhsOnontSet = + ({-# LINE 113 "Transform.ag" #-} + _nontSet + {-# LINE 5205 "Transform.hs" #-} + ) + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) +sem_NontSet_Path :: NontermIdent -> + NontermIdent -> + T_NontSet +sem_NontSet_Path from_ to_ = + (T_NontSet (\ _lhsIallFields + _lhsIallNonterminals + _lhsIdefinedSets -> + (let _lhsOnontSet :: (Set NontermIdent) + _lhsOerrors :: (Seq Error) + _lhsOcollectedNames :: (Set Identifier) + -- "Transform.ag"(line 684, column 16) + _lhsOnontSet = + ({-# LINE 684 "Transform.ag" #-} + let table = flattenDatas _lhsIallFields + in path table from_ to_ + {-# LINE 5223 "Transform.hs" #-} + ) + -- "Transform.ag"(line 686, column 16) + _lhsOerrors = + ({-# LINE 686 "Transform.ag" #-} + let check name | Set.member name _lhsIallNonterminals + = Seq.empty + | otherwise = Seq.singleton (UndefNont name) + in check from_ >< check to_ + {-# LINE 5232 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + Set.empty + {-# LINE 5238 "Transform.hs" #-} + ) + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) +sem_NontSet_Union :: T_NontSet -> + T_NontSet -> + T_NontSet +sem_NontSet_Union (T_NontSet set1_ ) (T_NontSet set2_ ) = + (T_NontSet (\ _lhsIallFields + _lhsIallNonterminals + _lhsIdefinedSets -> + (let _lhsOnontSet :: (Set NontermIdent) + _lhsOcollectedNames :: (Set Identifier) + _lhsOerrors :: (Seq Error) + _set1OallFields :: DataTypes + _set1OallNonterminals :: (Set NontermIdent) + _set1OdefinedSets :: DefinedSets + _set2OallFields :: DataTypes + _set2OallNonterminals :: (Set NontermIdent) + _set2OdefinedSets :: DefinedSets + _set1IcollectedNames :: (Set Identifier) + _set1Ierrors :: (Seq Error) + _set1InontSet :: (Set NontermIdent) + _set2IcollectedNames :: (Set Identifier) + _set2Ierrors :: (Seq Error) + _set2InontSet :: (Set NontermIdent) + -- "Transform.ag"(line 681, column 16) + _lhsOnontSet = + ({-# LINE 681 "Transform.ag" #-} + Set.union _set1InontSet _set2InontSet + {-# LINE 5267 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 87, column 50) + _lhsOcollectedNames = + ({-# LINE 87 "Transform.ag" #-} + _set1IcollectedNames `Set.union` _set2IcollectedNames + {-# LINE 5273 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _set1Ierrors Seq.>< _set2Ierrors + {-# LINE 5279 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5285 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 5291 "Transform.hs" #-} + ) + -- copy rule (down) + _set1OdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 5297 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 5303 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OallNonterminals = + ({-# LINE 89 "Transform.ag" #-} + _lhsIallNonterminals + {-# LINE 5309 "Transform.hs" #-} + ) + -- copy rule (down) + _set2OdefinedSets = + ({-# LINE 108 "Transform.ag" #-} + _lhsIdefinedSets + {-# LINE 5315 "Transform.hs" #-} + ) + ( _set1IcollectedNames,_set1Ierrors,_set1InontSet) = + set1_ _set1OallFields _set1OallNonterminals _set1OdefinedSets + ( _set2IcollectedNames,_set2Ierrors,_set2InontSet) = + set2_ _set2OallFields _set2OallNonterminals _set2OdefinedSets + in ( _lhsOcollectedNames,_lhsOerrors,_lhsOnontSet))) ) +-- Pattern ----------------------------------------------------- +{- + visit 0: + synthesized attributes: + copy : SELF + definedAttrs : [AttrName] + definedInsts : [Identifier] + patunder : [AttrName]->Pattern + stpos : Pos + alternatives: + alternative Alias: + child field : {Identifier} + child attr : {Identifier} + child pat : Pattern + child parts : Patterns + visit 0: + local copy : _ + alternative Constr: + child name : {ConstructorIdent} + child pats : Patterns + visit 0: + local copy : _ + alternative Irrefutable: + child pat : Pattern + visit 0: + local copy : _ + alternative Product: + child pos : {Pos} + child pats : Patterns + visit 0: + local copy : _ + alternative Underscore: + child pos : {Pos} + visit 0: + local copy : _ +-} +-- cata +sem_Pattern :: Pattern -> + T_Pattern +sem_Pattern (Alias _field _attr _pat _parts ) = + (sem_Pattern_Alias _field _attr (sem_Pattern _pat ) (sem_Patterns _parts ) ) +sem_Pattern (Constr _name _pats ) = + (sem_Pattern_Constr _name (sem_Patterns _pats ) ) +sem_Pattern (Irrefutable _pat ) = + (sem_Pattern_Irrefutable (sem_Pattern _pat ) ) +sem_Pattern (Product _pos _pats ) = + (sem_Pattern_Product _pos (sem_Patterns _pats ) ) +sem_Pattern (Underscore _pos ) = + (sem_Pattern_Underscore _pos ) +-- semantic domain +newtype T_Pattern = T_Pattern (( Pattern ,([AttrName]),([Identifier]),([AttrName]->Pattern),Pos)) +data Inh_Pattern = Inh_Pattern {} +data Syn_Pattern = Syn_Pattern {copy_Syn_Pattern :: !(Pattern ),definedAttrs_Syn_Pattern :: !(([AttrName])),definedInsts_Syn_Pattern :: !(([Identifier])),patunder_Syn_Pattern :: !(([AttrName]->Pattern)),stpos_Syn_Pattern :: !(Pos)} +wrap_Pattern :: T_Pattern -> + Inh_Pattern -> + Syn_Pattern +wrap_Pattern (T_Pattern sem ) (Inh_Pattern ) = + (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos) = sem + in (Syn_Pattern _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder _lhsOstpos )) +sem_Pattern_Alias :: Identifier -> + Identifier -> + T_Pattern -> + T_Patterns -> + T_Pattern +sem_Pattern_Alias field_ attr_ (T_Pattern pat_ ) (T_Patterns parts_ ) = + (T_Pattern (let _lhsOdefinedAttrs :: ([AttrName]) + _lhsOpatunder :: ([AttrName]->Pattern) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOstpos :: Pos + _lhsOcopy :: Pattern + _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName]) + _patIdefinedInsts :: ([Identifier]) + _patIpatunder :: ([AttrName]->Pattern) + _patIstpos :: Pos + _partsIcopy :: Patterns + _partsIdefinedAttrs :: ([AttrName]) + _partsIdefinedInsts :: ([Identifier]) + _partsIpatunder :: ([AttrName]->Patterns) + -- "Transform.ag"(line 1090, column 11) + _lhsOdefinedAttrs = + ({-# LINE 1090 "Transform.ag" #-} + (field_, attr_) : _patIdefinedAttrs + {-# LINE 5405 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1091, column 11) + _lhsOpatunder = + ({-# LINE 1091 "Transform.ag" #-} + \us -> if ((field_,attr_) `elem` us) then Underscore noPos else _copy + {-# LINE 5411 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1092, column 11) + _lhsOdefinedInsts = + ({-# LINE 1092 "Transform.ag" #-} + (if field_ == _INST then [attr_] else []) ++ _patIdefinedInsts + {-# LINE 5417 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1107, column 16) + _lhsOstpos = + ({-# LINE 1107 "Transform.ag" #-} + getPos field_ + {-# LINE 5423 "Transform.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Alias field_ attr_ _patIcopy _partsIcopy + {-# LINE 5429 "Transform.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5435 "Transform.hs" #-} + ) + ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) = + pat_ + ( _partsIcopy,_partsIdefinedAttrs,_partsIdefinedInsts,_partsIpatunder) = + parts_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) +sem_Pattern_Constr :: ConstructorIdent -> + T_Patterns -> + T_Pattern +sem_Pattern_Constr name_ (T_Patterns pats_ ) = + (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) + _lhsOstpos :: Pos + _lhsOdefinedAttrs :: ([AttrName]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName]) + _patsIdefinedInsts :: ([Identifier]) + _patsIpatunder :: ([AttrName]->Patterns) + -- "Transform.ag"(line 1094, column 12) + _lhsOpatunder = + ({-# LINE 1094 "Transform.ag" #-} + \us -> Constr name_ (_patsIpatunder us) + {-# LINE 5459 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1105, column 16) + _lhsOstpos = + ({-# LINE 1105 "Transform.ag" #-} + getPos name_ + {-# LINE 5465 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1085, column 42) + _lhsOdefinedAttrs = + ({-# LINE 1085 "Transform.ag" #-} + _patsIdefinedAttrs + {-# LINE 5471 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + _patsIdefinedInsts + {-# LINE 5477 "Transform.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Constr name_ _patsIcopy + {-# LINE 5483 "Transform.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5489 "Transform.hs" #-} + ) + ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) = + pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) +sem_Pattern_Irrefutable :: T_Pattern -> + T_Pattern +sem_Pattern_Irrefutable (T_Pattern pat_ ) = + (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) + _lhsOdefinedAttrs :: ([AttrName]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOcopy :: Pattern + _lhsOstpos :: Pos + _patIcopy :: Pattern + _patIdefinedAttrs :: ([AttrName]) + _patIdefinedInsts :: ([Identifier]) + _patIpatunder :: ([AttrName]->Pattern) + _patIstpos :: Pos + -- "Transform.ag"(line 1096, column 17) + _lhsOpatunder = + ({-# LINE 1096 "Transform.ag" #-} + \us -> Irrefutable (_patIpatunder us) + {-# LINE 5511 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1085, column 42) + _lhsOdefinedAttrs = + ({-# LINE 1085 "Transform.ag" #-} + _patIdefinedAttrs + {-# LINE 5517 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + _patIdefinedInsts + {-# LINE 5523 "Transform.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Irrefutable _patIcopy + {-# LINE 5529 "Transform.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5535 "Transform.hs" #-} + ) + -- copy rule (up) + _lhsOstpos = + ({-# LINE 1102 "Transform.ag" #-} + _patIstpos + {-# LINE 5541 "Transform.hs" #-} + ) + ( _patIcopy,_patIdefinedAttrs,_patIdefinedInsts,_patIpatunder,_patIstpos) = + pat_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) +sem_Pattern_Product :: Pos -> + T_Patterns -> + T_Pattern +sem_Pattern_Product pos_ (T_Patterns pats_ ) = + (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) + _lhsOstpos :: Pos + _lhsOdefinedAttrs :: ([AttrName]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOcopy :: Pattern + _patsIcopy :: Patterns + _patsIdefinedAttrs :: ([AttrName]) + _patsIdefinedInsts :: ([Identifier]) + _patsIpatunder :: ([AttrName]->Patterns) + -- "Transform.ag"(line 1095, column 13) + _lhsOpatunder = + ({-# LINE 1095 "Transform.ag" #-} + \us -> Product pos_ (_patsIpatunder us) + {-# LINE 5563 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1106, column 16) + _lhsOstpos = + ({-# LINE 1106 "Transform.ag" #-} + pos_ + {-# LINE 5569 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1085, column 42) + _lhsOdefinedAttrs = + ({-# LINE 1085 "Transform.ag" #-} + _patsIdefinedAttrs + {-# LINE 5575 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + _patsIdefinedInsts + {-# LINE 5581 "Transform.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Product pos_ _patsIcopy + {-# LINE 5587 "Transform.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5593 "Transform.hs" #-} + ) + ( _patsIcopy,_patsIdefinedAttrs,_patsIdefinedInsts,_patsIpatunder) = + pats_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) +sem_Pattern_Underscore :: Pos -> + T_Pattern +sem_Pattern_Underscore pos_ = + (T_Pattern (let _lhsOpatunder :: ([AttrName]->Pattern) + _lhsOstpos :: Pos + _lhsOdefinedAttrs :: ([AttrName]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOcopy :: Pattern + -- "Transform.ag"(line 1093, column 16) + _lhsOpatunder = + ({-# LINE 1093 "Transform.ag" #-} + \us -> _copy + {-# LINE 5610 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1108, column 16) + _lhsOstpos = + ({-# LINE 1108 "Transform.ag" #-} + pos_ + {-# LINE 5616 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1085, column 42) + _lhsOdefinedAttrs = + ({-# LINE 1085 "Transform.ag" #-} + [] + {-# LINE 5622 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 5628 "Transform.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + Underscore pos_ + {-# LINE 5634 "Transform.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5640 "Transform.hs" #-} + ) + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder,_lhsOstpos)) ) +-- Patterns ---------------------------------------------------- +{- + visit 0: + synthesized attributes: + copy : SELF + definedAttrs : [AttrName] + definedInsts : [Identifier] + patunder : [AttrName]->Patterns + alternatives: + alternative Cons: + child hd : Pattern + child tl : Patterns + visit 0: + local copy : _ + alternative Nil: + visit 0: + local copy : _ +-} +-- cata +sem_Patterns :: Patterns -> + T_Patterns +sem_Patterns list = + (Prelude.foldr sem_Patterns_Cons sem_Patterns_Nil (Prelude.map sem_Pattern list) ) +-- semantic domain +newtype T_Patterns = T_Patterns (( Patterns ,([AttrName]),([Identifier]),([AttrName]->Patterns))) +data Inh_Patterns = Inh_Patterns {} +data Syn_Patterns = Syn_Patterns {copy_Syn_Patterns :: !(Patterns ),definedAttrs_Syn_Patterns :: !(([AttrName])),definedInsts_Syn_Patterns :: !(([Identifier])),patunder_Syn_Patterns :: !(([AttrName]->Patterns))} +wrap_Patterns :: T_Patterns -> + Inh_Patterns -> + Syn_Patterns +wrap_Patterns (T_Patterns sem ) (Inh_Patterns ) = + (let ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder) = sem + in (Syn_Patterns _lhsOcopy _lhsOdefinedAttrs _lhsOdefinedInsts _lhsOpatunder )) +sem_Patterns_Cons :: T_Pattern -> + T_Patterns -> + T_Patterns +sem_Patterns_Cons (T_Pattern hd_ ) (T_Patterns tl_ ) = + (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns) + _lhsOdefinedAttrs :: ([AttrName]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOcopy :: Patterns + _hdIcopy :: Pattern + _hdIdefinedAttrs :: ([AttrName]) + _hdIdefinedInsts :: ([Identifier]) + _hdIpatunder :: ([AttrName]->Pattern) + _hdIstpos :: Pos + _tlIcopy :: Patterns + _tlIdefinedAttrs :: ([AttrName]) + _tlIdefinedInsts :: ([Identifier]) + _tlIpatunder :: ([AttrName]->Patterns) + -- "Transform.ag"(line 1100, column 10) + _lhsOpatunder = + ({-# LINE 1100 "Transform.ag" #-} + \us -> (_hdIpatunder us) : (_tlIpatunder us) + {-# LINE 5697 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1085, column 42) + _lhsOdefinedAttrs = + ({-# LINE 1085 "Transform.ag" #-} + _hdIdefinedAttrs ++ _tlIdefinedAttrs + {-# LINE 5703 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 5709 "Transform.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + (:) _hdIcopy _tlIcopy + {-# LINE 5715 "Transform.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5721 "Transform.hs" #-} + ) + ( _hdIcopy,_hdIdefinedAttrs,_hdIdefinedInsts,_hdIpatunder,_hdIstpos) = + hd_ + ( _tlIcopy,_tlIdefinedAttrs,_tlIdefinedInsts,_tlIpatunder) = + tl_ + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) ) +sem_Patterns_Nil :: T_Patterns +sem_Patterns_Nil = + (T_Patterns (let _lhsOpatunder :: ([AttrName]->Patterns) + _lhsOdefinedAttrs :: ([AttrName]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOcopy :: Patterns + -- "Transform.ag"(line 1099, column 9) + _lhsOpatunder = + ({-# LINE 1099 "Transform.ag" #-} + \us -> [] + {-# LINE 5738 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1085, column 42) + _lhsOdefinedAttrs = + ({-# LINE 1085 "Transform.ag" #-} + [] + {-# LINE 5744 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 5750 "Transform.hs" #-} + ) + -- self rule + _copy = + ({-# LINE 23 "./Patterns.ag" #-} + [] + {-# LINE 5756 "Transform.hs" #-} + ) + -- self rule + _lhsOcopy = + ({-# LINE 23 "./Patterns.ag" #-} + _copy + {-# LINE 5762 "Transform.hs" #-} + ) + in ( _lhsOcopy,_lhsOdefinedAttrs,_lhsOdefinedInsts,_lhsOpatunder)) ) +-- SemAlt ------------------------------------------------------ +{- + visit 0: + inherited attributes: + allAttrDecls : Map NontermIdent (Attributes, Attributes) + allFields : DataTypes + nts : Set NontermIdent + options : Options + synthesized attributes: + attrOrderCollect : AttrOrderMap + collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] + collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] + collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] + collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] + collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] + collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] + collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] + errors : Seq Error + semPragmasCollect : PragmaMap + alternatives: + alternative SemAlt: + child pos : {Pos} + child constructorSet : ConstructorSet + child rules : SemDefs + visit 0: + local pragmaNames : _ + local attrOrders : _ + local coninfo : _ +-} +-- cata +sem_SemAlt :: SemAlt -> + T_SemAlt +sem_SemAlt (SemAlt _pos _constructorSet _rules ) = + (sem_SemAlt_SemAlt _pos (sem_ConstructorSet _constructorSet ) (sem_SemDefs _rules ) ) +-- semantic domain +newtype T_SemAlt = T_SemAlt ((Map NontermIdent (Attributes, Attributes)) -> + DataTypes -> + (Set NontermIdent) -> + Options -> + ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap)) +data Inh_SemAlt = Inh_SemAlt {allAttrDecls_Inh_SemAlt :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlt :: !(DataTypes),nts_Inh_SemAlt :: !((Set NontermIdent)),options_Inh_SemAlt :: !(Options)} +data Syn_SemAlt = Syn_SemAlt {attrOrderCollect_Syn_SemAlt :: !(AttrOrderMap),collectedArounds_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlt :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlt :: !((Seq Error)),semPragmasCollect_Syn_SemAlt :: !(PragmaMap)} +wrap_SemAlt :: T_SemAlt -> + Inh_SemAlt -> + Syn_SemAlt +wrap_SemAlt (T_SemAlt sem ) (Inh_SemAlt _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) = + (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlt _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect )) +sem_SemAlt_SemAlt :: Pos -> + T_ConstructorSet -> + T_SemDefs -> + T_SemAlt +sem_SemAlt_SemAlt pos_ (T_ConstructorSet constructorSet_ ) (T_SemDefs rules_ ) = + (T_SemAlt (\ _lhsIallAttrDecls + _lhsIallFields + _lhsInts + _lhsIoptions -> + (let _lhsOsemPragmasCollect :: PragmaMap + _lhsOattrOrderCollect :: AttrOrderMap + _lhsOerrors :: (Seq Error) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _rulesOoptions :: Options + _constructorSetIcollectedConstructorNames :: (Set ConstructorIdent) + _constructorSetIconstructors :: ((Set ConstructorIdent->Set ConstructorIdent)) + _constructorSetIerrors :: (Seq Error) + _rulesIaroundInfos :: ([AroundInfo]) + _rulesIaugmentInfos :: ([AugmentInfo]) + _rulesIdefinedInsts :: ([Identifier]) + _rulesIerrors :: (Seq Error) + _rulesImergeInfos :: ([MergeInfo]) + _rulesIorderDepsCollect :: (Set Dependency) + _rulesIpragmaNamesCollect :: ([Identifier]) + _rulesIruleInfos :: ([RuleInfo]) + _rulesIsigInfos :: ([SigInfo]) + _rulesIuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 797, column 7) + _pragmaNames = + ({-# LINE 797 "Transform.ag" #-} + Set.fromList _rulesIpragmaNamesCollect + {-# LINE 5850 "Transform.hs" #-} + ) + -- "Transform.ag"(line 798, column 7) + _lhsOsemPragmasCollect = + ({-# LINE 798 "Transform.ag" #-} + foldr pragmaMapUnion Map.empty [ pragmaMapSingle nt con _pragmaNames + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 5859 "Transform.hs" #-} + ) + -- "Transform.ag"(line 826, column 7) + _attrOrders = + ({-# LINE 826 "Transform.ag" #-} + [ orderMapSingle nt con _rulesIorderDepsCollect + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 5868 "Transform.hs" #-} + ) + -- "Transform.ag"(line 832, column 7) + _lhsOattrOrderCollect = + ({-# LINE 832 "Transform.ag" #-} + foldr orderMapUnion Map.empty _attrOrders + {-# LINE 5874 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1009, column 12) + _coninfo = + ({-# LINE 1009 "Transform.ag" #-} + [ (nt, conset, conkeys) + | nt <- Set.toList _lhsInts + , let conmap = Map.findWithDefault Map.empty nt _lhsIallFields + , let conkeys = Set.fromList (Map.keys conmap) + , let conset = _constructorSetIconstructors conkeys + ] + {-# LINE 5885 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1016, column 12) + _lhsOerrors = + ({-# LINE 1016 "Transform.ag" #-} + Seq.fromList + [ UndefAlt nt con + | (nt, conset, conkeys) <- _coninfo + , con <- Set.toList (Set.difference conset conkeys) + ] + Seq.>< _rulesIerrors + {-# LINE 5896 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1022, column 12) + _lhsOcollectedRules = + ({-# LINE 1022 "Transform.ag" #-} + [ (nt,con,r) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + , r <- _rulesIruleInfos + ] + {-# LINE 5906 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1028, column 12) + _lhsOcollectedSigs = + ({-# LINE 1028 "Transform.ag" #-} + [ (nt,con,ts) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + , ts <- _rulesIsigInfos + ] + {-# LINE 5916 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1035, column 12) + _lhsOcollectedInsts = + ({-# LINE 1035 "Transform.ag" #-} + [ (nt,con,_rulesIdefinedInsts) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 5925 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1041, column 12) + _lhsOcollectedUniques = + ({-# LINE 1041 "Transform.ag" #-} + [ (nt,con,_rulesIuniqueInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 5934 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1047, column 12) + _lhsOcollectedAugments = + ({-# LINE 1047 "Transform.ag" #-} + [ (nt, con, _rulesIaugmentInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 5943 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1053, column 12) + _lhsOcollectedArounds = + ({-# LINE 1053 "Transform.ag" #-} + [ (nt, con, _rulesIaroundInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 5952 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1059, column 12) + _lhsOcollectedMerges = + ({-# LINE 1059 "Transform.ag" #-} + [ (nt, con, _rulesImergeInfos) + | (nt, conset, _) <- _coninfo + , con <- Set.toList conset + ] + {-# LINE 5961 "Transform.hs" #-} + ) + -- copy rule (down) + _rulesOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 5967 "Transform.hs" #-} + ) + ( _constructorSetIcollectedConstructorNames,_constructorSetIconstructors,_constructorSetIerrors) = + constructorSet_ + ( _rulesIaroundInfos,_rulesIaugmentInfos,_rulesIdefinedInsts,_rulesIerrors,_rulesImergeInfos,_rulesIorderDepsCollect,_rulesIpragmaNamesCollect,_rulesIruleInfos,_rulesIsigInfos,_rulesIuniqueInfos) = + rules_ _rulesOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) +-- SemAlts ----------------------------------------------------- +{- + visit 0: + inherited attributes: + allAttrDecls : Map NontermIdent (Attributes, Attributes) + allFields : DataTypes + nts : Set NontermIdent + options : Options + synthesized attributes: + attrOrderCollect : AttrOrderMap + collectedArounds : [ (NontermIdent, ConstructorIdent, [AroundInfo]) ] + collectedAugments : [ (NontermIdent, ConstructorIdent, [AugmentInfo]) ] + collectedInsts : [ (NontermIdent, ConstructorIdent, [Identifier]) ] + collectedMerges : [ (NontermIdent, ConstructorIdent, [MergeInfo]) ] + collectedRules : [ (NontermIdent, ConstructorIdent, RuleInfo)] + collectedSigs : [ (NontermIdent, ConstructorIdent, SigInfo) ] + collectedUniques : [ (NontermIdent, ConstructorIdent, [UniqueInfo]) ] + errors : Seq Error + semPragmasCollect : PragmaMap + alternatives: + alternative Cons: + child hd : SemAlt + child tl : SemAlts + alternative Nil: +-} +-- cata +sem_SemAlts :: SemAlts -> + T_SemAlts +sem_SemAlts list = + (Prelude.foldr sem_SemAlts_Cons sem_SemAlts_Nil (Prelude.map sem_SemAlt list) ) +-- semantic domain +newtype T_SemAlts = T_SemAlts ((Map NontermIdent (Attributes, Attributes)) -> + DataTypes -> + (Set NontermIdent) -> + Options -> + ( AttrOrderMap,([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]),([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]),([ (NontermIdent, ConstructorIdent, [Identifier]) ]),([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]),([ (NontermIdent, ConstructorIdent, RuleInfo)]),([ (NontermIdent, ConstructorIdent, SigInfo) ]),([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]),(Seq Error),PragmaMap)) +data Inh_SemAlts = Inh_SemAlts {allAttrDecls_Inh_SemAlts :: !((Map NontermIdent (Attributes, Attributes))),allFields_Inh_SemAlts :: !(DataTypes),nts_Inh_SemAlts :: !((Set NontermIdent)),options_Inh_SemAlts :: !(Options)} +data Syn_SemAlts = Syn_SemAlts {attrOrderCollect_Syn_SemAlts :: !(AttrOrderMap),collectedArounds_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AroundInfo]) ])),collectedAugments_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ])),collectedInsts_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [Identifier]) ])),collectedMerges_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [MergeInfo]) ])),collectedRules_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, RuleInfo)])),collectedSigs_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, SigInfo) ])),collectedUniques_Syn_SemAlts :: !(([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ])),errors_Syn_SemAlts :: !((Seq Error)),semPragmasCollect_Syn_SemAlts :: !(PragmaMap)} +wrap_SemAlts :: T_SemAlts -> + Inh_SemAlts -> + Syn_SemAlts +wrap_SemAlts (T_SemAlts sem ) (Inh_SemAlts _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions ) = + (let ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect) = sem _lhsIallAttrDecls _lhsIallFields _lhsInts _lhsIoptions + in (Syn_SemAlts _lhsOattrOrderCollect _lhsOcollectedArounds _lhsOcollectedAugments _lhsOcollectedInsts _lhsOcollectedMerges _lhsOcollectedRules _lhsOcollectedSigs _lhsOcollectedUniques _lhsOerrors _lhsOsemPragmasCollect )) +sem_SemAlts_Cons :: T_SemAlt -> + T_SemAlts -> + T_SemAlts +sem_SemAlts_Cons (T_SemAlt hd_ ) (T_SemAlts tl_ ) = + (T_SemAlts (\ _lhsIallAttrDecls + _lhsIallFields + _lhsInts + _lhsIoptions -> + (let _lhsOattrOrderCollect :: AttrOrderMap + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOerrors :: (Seq Error) + _lhsOsemPragmasCollect :: PragmaMap + _hdOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _hdOallFields :: DataTypes + _hdOnts :: (Set NontermIdent) + _hdOoptions :: Options + _tlOallAttrDecls :: (Map NontermIdent (Attributes, Attributes)) + _tlOallFields :: DataTypes + _tlOnts :: (Set NontermIdent) + _tlOoptions :: Options + _hdIattrOrderCollect :: AttrOrderMap + _hdIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _hdIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _hdIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _hdIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _hdIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _hdIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _hdIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _hdIerrors :: (Seq Error) + _hdIsemPragmasCollect :: PragmaMap + _tlIattrOrderCollect :: AttrOrderMap + _tlIcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _tlIcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _tlIcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _tlIcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _tlIcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _tlIcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _tlIcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _tlIerrors :: (Seq Error) + _tlIsemPragmasCollect :: PragmaMap + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + _hdIattrOrderCollect `orderMapUnion` _tlIattrOrderCollect + {-# LINE 6068 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + _hdIcollectedArounds ++ _tlIcollectedArounds + {-# LINE 6074 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + _hdIcollectedAugments ++ _tlIcollectedAugments + {-# LINE 6080 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + _hdIcollectedInsts ++ _tlIcollectedInsts + {-# LINE 6086 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + _hdIcollectedMerges ++ _tlIcollectedMerges + {-# LINE 6092 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + _hdIcollectedRules ++ _tlIcollectedRules + {-# LINE 6098 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + _hdIcollectedSigs ++ _tlIcollectedSigs + {-# LINE 6104 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + _hdIcollectedUniques ++ _tlIcollectedUniques + {-# LINE 6110 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 6116 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + _hdIsemPragmasCollect `pragmaMapUnion` _tlIsemPragmasCollect + {-# LINE 6122 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallAttrDecls = + ({-# LINE 822 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 6128 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 6134 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOnts = + ({-# LINE 168 "Transform.ag" #-} + _lhsInts + {-# LINE 6140 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 6146 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallAttrDecls = + ({-# LINE 822 "Transform.ag" #-} + _lhsIallAttrDecls + {-# LINE 6152 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOallFields = + ({-# LINE 129 "Transform.ag" #-} + _lhsIallFields + {-# LINE 6158 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOnts = + ({-# LINE 168 "Transform.ag" #-} + _lhsInts + {-# LINE 6164 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 6170 "Transform.hs" #-} + ) + ( _hdIattrOrderCollect,_hdIcollectedArounds,_hdIcollectedAugments,_hdIcollectedInsts,_hdIcollectedMerges,_hdIcollectedRules,_hdIcollectedSigs,_hdIcollectedUniques,_hdIerrors,_hdIsemPragmasCollect) = + hd_ _hdOallAttrDecls _hdOallFields _hdOnts _hdOoptions + ( _tlIattrOrderCollect,_tlIcollectedArounds,_tlIcollectedAugments,_tlIcollectedInsts,_tlIcollectedMerges,_tlIcollectedRules,_tlIcollectedSigs,_tlIcollectedUniques,_tlIerrors,_tlIsemPragmasCollect) = + tl_ _tlOallAttrDecls _tlOallFields _tlOnts _tlOoptions + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) +sem_SemAlts_Nil :: T_SemAlts +sem_SemAlts_Nil = + (T_SemAlts (\ _lhsIallAttrDecls + _lhsIallFields + _lhsInts + _lhsIoptions -> + (let _lhsOattrOrderCollect :: AttrOrderMap + _lhsOcollectedArounds :: ([ (NontermIdent, ConstructorIdent, [AroundInfo]) ]) + _lhsOcollectedAugments :: ([ (NontermIdent, ConstructorIdent, [AugmentInfo]) ]) + _lhsOcollectedInsts :: ([ (NontermIdent, ConstructorIdent, [Identifier]) ]) + _lhsOcollectedMerges :: ([ (NontermIdent, ConstructorIdent, [MergeInfo]) ]) + _lhsOcollectedRules :: ([ (NontermIdent, ConstructorIdent, RuleInfo)]) + _lhsOcollectedSigs :: ([ (NontermIdent, ConstructorIdent, SigInfo) ]) + _lhsOcollectedUniques :: ([ (NontermIdent, ConstructorIdent, [UniqueInfo]) ]) + _lhsOerrors :: (Seq Error) + _lhsOsemPragmasCollect :: PragmaMap + -- use rule "Transform.ag"(line 821, column 55) + _lhsOattrOrderCollect = + ({-# LINE 821 "Transform.ag" #-} + Map.empty + {-# LINE 6197 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 157, column 32) + _lhsOcollectedArounds = + ({-# LINE 157 "Transform.ag" #-} + [] + {-# LINE 6203 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 156, column 32) + _lhsOcollectedAugments = + ({-# LINE 156 "Transform.ag" #-} + [] + {-# LINE 6209 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 154, column 32) + _lhsOcollectedInsts = + ({-# LINE 154 "Transform.ag" #-} + [] + {-# LINE 6215 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 158, column 32) + _lhsOcollectedMerges = + ({-# LINE 158 "Transform.ag" #-} + [] + {-# LINE 6221 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 152, column 32) + _lhsOcollectedRules = + ({-# LINE 152 "Transform.ag" #-} + [] + {-# LINE 6227 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 153, column 32) + _lhsOcollectedSigs = + ({-# LINE 153 "Transform.ag" #-} + [] + {-# LINE 6233 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 155, column 32) + _lhsOcollectedUniques = + ({-# LINE 155 "Transform.ag" #-} + [] + {-# LINE 6239 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 6245 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 793, column 56) + _lhsOsemPragmasCollect = + ({-# LINE 793 "Transform.ag" #-} + Map.empty + {-# LINE 6251 "Transform.hs" #-} + ) + in ( _lhsOattrOrderCollect,_lhsOcollectedArounds,_lhsOcollectedAugments,_lhsOcollectedInsts,_lhsOcollectedMerges,_lhsOcollectedRules,_lhsOcollectedSigs,_lhsOcollectedUniques,_lhsOerrors,_lhsOsemPragmasCollect))) ) +-- SemDef ------------------------------------------------------ +{- + visit 0: + inherited attribute: + options : Options + synthesized attributes: + aroundInfos : [AroundInfo] + augmentInfos : [AugmentInfo] + definedInsts : [Identifier] + errors : Seq Error + mergeInfos : [MergeInfo] + orderDepsCollect : Set Dependency + pragmaNamesCollect : [Identifier] + ruleInfos : [RuleInfo] + sigInfos : [SigInfo] + uniqueInfos : [UniqueInfo] + alternatives: + alternative AroundDef: + child ident : {Identifier} + child rhs : {Expression} + alternative AttrOrderBefore: + child before : {[Occurrence]} + child after : {[Occurrence]} + visit 0: + local dependency : _ + alternative AugmentDef: + child ident : {Identifier} + child rhs : {Expression} + alternative Def: + child pos : {Pos} + child mbName : {Maybe Identifier} + child pattern : Pattern + child rhs : {Expression} + child owrt : {Bool} + alternative MergeDef: + child target : {Identifier} + child nt : {Identifier} + child sources : {[Identifier]} + child rhs : {Expression} + alternative SemPragma: + child names : {[NontermIdent]} + alternative TypeDef: + child pos : {Pos} + child ident : {Identifier} + child tp : {Type} + alternative UniqueDef: + child ident : {Identifier} + child ref : {Identifier} +-} +-- cata +sem_SemDef :: SemDef -> + T_SemDef +sem_SemDef (AroundDef _ident _rhs ) = + (sem_SemDef_AroundDef _ident _rhs ) +sem_SemDef (AttrOrderBefore _before _after ) = + (sem_SemDef_AttrOrderBefore _before _after ) +sem_SemDef (AugmentDef _ident _rhs ) = + (sem_SemDef_AugmentDef _ident _rhs ) +sem_SemDef (Def _pos _mbName _pattern _rhs _owrt ) = + (sem_SemDef_Def _pos _mbName (sem_Pattern _pattern ) _rhs _owrt ) +sem_SemDef (MergeDef _target _nt _sources _rhs ) = + (sem_SemDef_MergeDef _target _nt _sources _rhs ) +sem_SemDef (SemPragma _names ) = + (sem_SemDef_SemPragma _names ) +sem_SemDef (TypeDef _pos _ident _tp ) = + (sem_SemDef_TypeDef _pos _ident _tp ) +sem_SemDef (UniqueDef _ident _ref ) = + (sem_SemDef_UniqueDef _ident _ref ) +-- semantic domain +newtype T_SemDef = T_SemDef (Options -> + ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) +data Inh_SemDef = Inh_SemDef {options_Inh_SemDef :: !(Options)} +data Syn_SemDef = Syn_SemDef {aroundInfos_Syn_SemDef :: !(([AroundInfo])),augmentInfos_Syn_SemDef :: !(([AugmentInfo])),definedInsts_Syn_SemDef :: !(([Identifier])),errors_Syn_SemDef :: !((Seq Error)),mergeInfos_Syn_SemDef :: !(([MergeInfo])),orderDepsCollect_Syn_SemDef :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDef :: !(([Identifier])),ruleInfos_Syn_SemDef :: !(([RuleInfo])),sigInfos_Syn_SemDef :: !(([SigInfo])),uniqueInfos_Syn_SemDef :: !(([UniqueInfo]))} +wrap_SemDef :: T_SemDef -> + Inh_SemDef -> + Syn_SemDef +wrap_SemDef (T_SemDef sem ) (Inh_SemDef _lhsIoptions ) = + (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDef _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos )) +sem_SemDef_AroundDef :: Identifier -> + Expression -> + T_SemDef +sem_SemDef_AroundDef ident_ rhs_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 1078, column 17) + _lhsOaroundInfos = + ({-# LINE 1078 "Transform.ag" #-} + [ (ident_, rhs_) ] + {-# LINE 6352 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 6358 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 6364 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 6370 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 6376 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 6382 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 6388 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 6394 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 6400 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 6406 "Transform.hs" #-} + ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDef_AttrOrderBefore :: ([Occurrence]) -> + ([Occurrence]) -> + T_SemDef +sem_SemDef_AttrOrderBefore before_ after_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOorderDepsCollect :: (Set Dependency) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 838, column 7) + _dependency = + ({-# LINE 838 "Transform.ag" #-} + [ Dependency b a | b <- before_, a <- after_ ] + {-# LINE 6428 "Transform.hs" #-} + ) + -- "Transform.ag"(line 839, column 7) + _lhsOorderDepsCollect = + ({-# LINE 839 "Transform.ag" #-} + Set.fromList _dependency + {-# LINE 6434 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 6440 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 6446 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 6452 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 6458 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 6464 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 6470 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 6476 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 6482 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 6488 "Transform.hs" #-} + ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDef_AugmentDef :: Identifier -> + Expression -> + T_SemDef +sem_SemDef_AugmentDef ident_ rhs_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 1075, column 17) + _lhsOaugmentInfos = + ({-# LINE 1075 "Transform.ag" #-} + [ (ident_, rhs_) ] + {-# LINE 6510 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 6516 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 6522 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 6528 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 6534 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 6540 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 6546 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 6552 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 6558 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 6564 "Transform.hs" #-} + ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDef_Def :: Pos -> + (Maybe Identifier) -> + T_Pattern -> + Expression -> + Bool -> + T_SemDef +sem_SemDef_Def pos_ mbName_ (T_Pattern pattern_ ) rhs_ owrt_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOerrors :: (Seq Error) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + _patternIcopy :: Pattern + _patternIdefinedAttrs :: ([AttrName]) + _patternIdefinedInsts :: ([Identifier]) + _patternIpatunder :: ([AttrName]->Pattern) + _patternIstpos :: Pos + -- "Transform.ag"(line 528, column 3) + _lhsOerrors = + ({-# LINE 528 "Transform.ag" #-} + if checkParseRhs _lhsIoptions + then Seq.fromList $ checkRhs rhs_ + else Seq.empty + {-# LINE 6596 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1066, column 10) + _lhsOruleInfos = + ({-# LINE 1066 "Transform.ag" #-} + [ (mbName_, _patternIpatunder, rhs_, _patternIdefinedAttrs, owrt_, show _patternIstpos) ] + {-# LINE 6602 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 6608 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 6614 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + _patternIdefinedInsts + {-# LINE 6620 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 6626 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 6632 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 6638 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 6644 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 6650 "Transform.hs" #-} + ) + ( _patternIcopy,_patternIdefinedAttrs,_patternIdefinedInsts,_patternIpatunder,_patternIstpos) = + pattern_ + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDef_MergeDef :: Identifier -> + Identifier -> + ([Identifier]) -> + Expression -> + T_SemDef +sem_SemDef_MergeDef target_ nt_ sources_ rhs_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 528, column 3) + _lhsOerrors = + ({-# LINE 528 "Transform.ag" #-} + if checkParseRhs _lhsIoptions + then Seq.fromList $ checkRhs rhs_ + else Seq.empty + {-# LINE 6678 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1081, column 17) + _lhsOmergeInfos = + ({-# LINE 1081 "Transform.ag" #-} + [ (target_, nt_, sources_, rhs_) ] + {-# LINE 6684 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 6690 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 6696 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 6702 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 6708 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 6714 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 6720 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 6726 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 6732 "Transform.hs" #-} + ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDef_SemPragma :: ([NontermIdent]) -> + T_SemDef +sem_SemDef_SemPragma names_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 807, column 7) + _lhsOpragmaNamesCollect = + ({-# LINE 807 "Transform.ag" #-} + names_ + {-# LINE 6753 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 6759 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 6765 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 6771 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 6777 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 6783 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 6789 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 6795 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 6801 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 6807 "Transform.hs" #-} + ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDef_TypeDef :: Pos -> + Identifier -> + Type -> + T_SemDef +sem_SemDef_TypeDef pos_ ident_ tp_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOerrors :: (Seq Error) + _lhsOsigInfos :: ([SigInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- "Transform.ag"(line 535, column 3) + _lhsOerrors = + ({-# LINE 535 "Transform.ag" #-} + if checkParseTy _lhsIoptions + then case tp_ of + Haskell s -> let exp = Expression pos_ tks + tks = [tk] + tk = HsToken s pos_ + in Seq.fromList $ checkTy exp + _ -> Seq.empty + else Seq.empty + {-# LINE 6837 "Transform.hs" #-} + ) + -- "Transform.ag"(line 1069, column 14) + _lhsOsigInfos = + ({-# LINE 1069 "Transform.ag" #-} + [ (ident_, tp_) ] + {-# LINE 6843 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 6849 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 6855 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 6861 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 6867 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 6873 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 6879 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 6885 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 6891 "Transform.hs" #-} + ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDef_UniqueDef :: Identifier -> + Identifier -> + T_SemDef +sem_SemDef_UniqueDef ident_ ref_ = + (T_SemDef (\ _lhsIoptions -> + (let _lhsOuniqueInfos :: ([UniqueInfo]) + _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + -- "Transform.ag"(line 1072, column 16) + _lhsOuniqueInfos = + ({-# LINE 1072 "Transform.ag" #-} + [ (ident_, ref_) ] + {-# LINE 6913 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 6919 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 6925 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 6931 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 6937 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 6943 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 6949 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 6955 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 6961 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 6967 "Transform.hs" #-} + ) + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +-- SemDefs ----------------------------------------------------- +{- + visit 0: + inherited attribute: + options : Options + synthesized attributes: + aroundInfos : [AroundInfo] + augmentInfos : [AugmentInfo] + definedInsts : [Identifier] + errors : Seq Error + mergeInfos : [MergeInfo] + orderDepsCollect : Set Dependency + pragmaNamesCollect : [Identifier] + ruleInfos : [RuleInfo] + sigInfos : [SigInfo] + uniqueInfos : [UniqueInfo] + alternatives: + alternative Cons: + child hd : SemDef + child tl : SemDefs + alternative Nil: +-} +-- cata +sem_SemDefs :: SemDefs -> + T_SemDefs +sem_SemDefs list = + (Prelude.foldr sem_SemDefs_Cons sem_SemDefs_Nil (Prelude.map sem_SemDef list) ) +-- semantic domain +newtype T_SemDefs = T_SemDefs (Options -> + ( ([AroundInfo]),([AugmentInfo]),([Identifier]),(Seq Error),([MergeInfo]),(Set Dependency),([Identifier]),([RuleInfo]),([SigInfo]),([UniqueInfo]))) +data Inh_SemDefs = Inh_SemDefs {options_Inh_SemDefs :: !(Options)} +data Syn_SemDefs = Syn_SemDefs {aroundInfos_Syn_SemDefs :: !(([AroundInfo])),augmentInfos_Syn_SemDefs :: !(([AugmentInfo])),definedInsts_Syn_SemDefs :: !(([Identifier])),errors_Syn_SemDefs :: !((Seq Error)),mergeInfos_Syn_SemDefs :: !(([MergeInfo])),orderDepsCollect_Syn_SemDefs :: !((Set Dependency)),pragmaNamesCollect_Syn_SemDefs :: !(([Identifier])),ruleInfos_Syn_SemDefs :: !(([RuleInfo])),sigInfos_Syn_SemDefs :: !(([SigInfo])),uniqueInfos_Syn_SemDefs :: !(([UniqueInfo]))} +wrap_SemDefs :: T_SemDefs -> + Inh_SemDefs -> + Syn_SemDefs +wrap_SemDefs (T_SemDefs sem ) (Inh_SemDefs _lhsIoptions ) = + (let ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos) = sem _lhsIoptions + in (Syn_SemDefs _lhsOaroundInfos _lhsOaugmentInfos _lhsOdefinedInsts _lhsOerrors _lhsOmergeInfos _lhsOorderDepsCollect _lhsOpragmaNamesCollect _lhsOruleInfos _lhsOsigInfos _lhsOuniqueInfos )) +sem_SemDefs_Cons :: T_SemDef -> + T_SemDefs -> + T_SemDefs +sem_SemDefs_Cons (T_SemDef hd_ ) (T_SemDefs tl_ ) = + (T_SemDefs (\ _lhsIoptions -> + (let _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + _hdOoptions :: Options + _tlOoptions :: Options + _hdIaroundInfos :: ([AroundInfo]) + _hdIaugmentInfos :: ([AugmentInfo]) + _hdIdefinedInsts :: ([Identifier]) + _hdIerrors :: (Seq Error) + _hdImergeInfos :: ([MergeInfo]) + _hdIorderDepsCollect :: (Set Dependency) + _hdIpragmaNamesCollect :: ([Identifier]) + _hdIruleInfos :: ([RuleInfo]) + _hdIsigInfos :: ([SigInfo]) + _hdIuniqueInfos :: ([UniqueInfo]) + _tlIaroundInfos :: ([AroundInfo]) + _tlIaugmentInfos :: ([AugmentInfo]) + _tlIdefinedInsts :: ([Identifier]) + _tlIerrors :: (Seq Error) + _tlImergeInfos :: ([MergeInfo]) + _tlIorderDepsCollect :: (Set Dependency) + _tlIpragmaNamesCollect :: ([Identifier]) + _tlIruleInfos :: ([RuleInfo]) + _tlIsigInfos :: ([SigInfo]) + _tlIuniqueInfos :: ([UniqueInfo]) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + _hdIaroundInfos ++ _tlIaroundInfos + {-# LINE 7049 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + _hdIaugmentInfos ++ _tlIaugmentInfos + {-# LINE 7055 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + _hdIdefinedInsts ++ _tlIdefinedInsts + {-# LINE 7061 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + _hdIerrors Seq.>< _tlIerrors + {-# LINE 7067 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + _hdImergeInfos ++ _tlImergeInfos + {-# LINE 7073 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + _hdIorderDepsCollect `Set.union` _tlIorderDepsCollect + {-# LINE 7079 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + _hdIpragmaNamesCollect ++ _tlIpragmaNamesCollect + {-# LINE 7085 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + _hdIruleInfos ++ _tlIruleInfos + {-# LINE 7091 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + _hdIsigInfos ++ _tlIsigInfos + {-# LINE 7097 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + _hdIuniqueInfos ++ _tlIuniqueInfos + {-# LINE 7103 "Transform.hs" #-} + ) + -- copy rule (down) + _hdOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 7109 "Transform.hs" #-} + ) + -- copy rule (down) + _tlOoptions = + ({-# LINE 39 "Transform.ag" #-} + _lhsIoptions + {-# LINE 7115 "Transform.hs" #-} + ) + ( _hdIaroundInfos,_hdIaugmentInfos,_hdIdefinedInsts,_hdIerrors,_hdImergeInfos,_hdIorderDepsCollect,_hdIpragmaNamesCollect,_hdIruleInfos,_hdIsigInfos,_hdIuniqueInfos) = + hd_ _hdOoptions + ( _tlIaroundInfos,_tlIaugmentInfos,_tlIdefinedInsts,_tlIerrors,_tlImergeInfos,_tlIorderDepsCollect,_tlIpragmaNamesCollect,_tlIruleInfos,_tlIsigInfos,_tlIuniqueInfos) = + tl_ _tlOoptions + in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) +sem_SemDefs_Nil :: T_SemDefs +sem_SemDefs_Nil = + (T_SemDefs (\ _lhsIoptions -> + (let _lhsOaroundInfos :: ([AroundInfo]) + _lhsOaugmentInfos :: ([AugmentInfo]) + _lhsOdefinedInsts :: ([Identifier]) + _lhsOerrors :: (Seq Error) + _lhsOmergeInfos :: ([MergeInfo]) + _lhsOorderDepsCollect :: (Set Dependency) + _lhsOpragmaNamesCollect :: ([Identifier]) + _lhsOruleInfos :: ([RuleInfo]) + _lhsOsigInfos :: ([SigInfo]) + _lhsOuniqueInfos :: ([UniqueInfo]) + -- use rule "Transform.ag"(line 1003, column 40) + _lhsOaroundInfos = + ({-# LINE 1003 "Transform.ag" #-} + [] + {-# LINE 7139 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1002, column 40) + _lhsOaugmentInfos = + ({-# LINE 1002 "Transform.ag" #-} + [] + {-# LINE 7145 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1084, column 55) + _lhsOdefinedInsts = + ({-# LINE 1084 "Transform.ag" #-} + [] + {-# LINE 7151 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 43, column 19) + _lhsOerrors = + ({-# LINE 43 "Transform.ag" #-} + Seq.empty + {-# LINE 7157 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1004, column 40) + _lhsOmergeInfos = + ({-# LINE 1004 "Transform.ag" #-} + [] + {-# LINE 7163 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 834, column 44) + _lhsOorderDepsCollect = + ({-# LINE 834 "Transform.ag" #-} + Set.empty + {-# LINE 7169 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 803, column 46) + _lhsOpragmaNamesCollect = + ({-# LINE 803 "Transform.ag" #-} + [] + {-# LINE 7175 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 999, column 40) + _lhsOruleInfos = + ({-# LINE 999 "Transform.ag" #-} + [] + {-# LINE 7181 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1000, column 40) + _lhsOsigInfos = + ({-# LINE 1000 "Transform.ag" #-} + [] + {-# LINE 7187 "Transform.hs" #-} + ) + -- use rule "Transform.ag"(line 1001, column 40) + _lhsOuniqueInfos = + ({-# LINE 1001 "Transform.ag" #-} + [] + {-# LINE 7193 "Transform.hs" #-} ) in ( _lhsOaroundInfos,_lhsOaugmentInfos,_lhsOdefinedInsts,_lhsOerrors,_lhsOmergeInfos,_lhsOorderDepsCollect,_lhsOpragmaNamesCollect,_lhsOruleInfos,_lhsOsigInfos,_lhsOuniqueInfos))) ) diff --git a/src-derived/Visage.hs b/src-derived/Visage.hs --- a/src-derived/Visage.hs +++ b/src-derived/Visage.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (Visage.ag) +-- UUAGC 0.9.38.1 (Visage.ag) module Visage where {-# LINE 6 "Visage.ag" #-} diff --git a/src-derived/VisagePatterns.hs b/src-derived/VisagePatterns.hs --- a/src-derived/VisagePatterns.hs +++ b/src-derived/VisagePatterns.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (VisagePatterns.ag) +-- UUAGC 0.9.38.1 (VisagePatterns.ag) module VisagePatterns where {-# LINE 2 "VisagePatterns.ag" #-} diff --git a/src-derived/VisageSyntax.hs b/src-derived/VisageSyntax.hs --- a/src-derived/VisageSyntax.hs +++ b/src-derived/VisageSyntax.hs @@ -1,6 +1,6 @@ --- UUAGC 0.9.37.1 (VisageSyntax.ag) +-- UUAGC 0.9.38.1 (VisageSyntax.ag) module VisageSyntax where {-# LINE 2 "VisageSyntax.ag" #-} diff --git a/src/Ag.hs b/src/Ag.hs --- a/src/Ag.hs +++ b/src/Ag.hs @@ -20,6 +20,7 @@ import qualified Desugar as Pass1a (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) import qualified DefaultRules as Pass2 (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) import qualified Order as Pass3 (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) +import qualified KWOrder as Pass3a (sem_Grammar, wrap_Grammar, Syn_Grammar (..), Inh_Grammar (..)) import qualified GenerateCode as Pass4 (sem_CGrammar, wrap_CGrammar, Syn_CGrammar(..), Inh_CGrammar(..)) import qualified PrintVisitCode as Pass4a (sem_CGrammar, wrap_CGrammar, Syn_CGrammar(..), Inh_CGrammar(..)) import qualified PrintCode as Pass5 (sem_Program, wrap_Program, Syn_Program (..), Inh_Program (..)) @@ -73,6 +74,8 @@ grammarV = PassV.visage_Syn_Grammar outputV output3 = Pass3.wrap_Grammar (Pass3.sem_Grammar grammar2 ) Pass3.Inh_Grammar {Pass3.options_Inh_Grammar = flags'} grammar3 = Pass3.output_Syn_Grammar output3 + output3a = Pass3a.wrap_Grammar (Pass3a.sem_Grammar grammar2 ) Pass3a.Inh_Grammar {Pass3a.options_Inh_Grammar = flags'} + debug3a = Pass3a.debugoutput_Syn_Grammar output3a output4 = Pass4.wrap_CGrammar (Pass4.sem_CGrammar(Pass3.output_Syn_Grammar output3)) Pass4.Inh_CGrammar {Pass4.options_Inh_CGrammar = flags'} output4a = Pass4a.wrap_CGrammar (Pass4a.sem_CGrammar(Pass3.output_Syn_Grammar output3)) Pass4a.Inh_CGrammar {Pass4a.options_Inh_CGrammar = flags'} output5 = Pass5.wrap_Program (Pass5.sem_Program (Pass4.output_Syn_CGrammar output4)) Pass5.Inh_Program {Pass5.options_Inh_Program = flags', Pass5.pragmaBlocks_Inh_Program = pragmaBlocksTxt, Pass5.importBlocks_Inh_Program = importBlocksTxt, Pass5.textBlocks_Inh_Program = textBlocksDoc, Pass5.textBlockMap_Inh_Program = textBlockMap, Pass5.optionsLine_Inh_Program = optionsLine, Pass5.mainFile_Inh_Program = mainFile, Pass5.moduleHeader_Inh_Program = mkModuleHeader $ Pass1.moduleDecl_Syn_AG output1, Pass5.mainName_Inh_Program = mkMainName mainName $ Pass1.moduleDecl_Syn_AG output1} @@ -92,8 +95,9 @@ mainErrors = toList ( Pass1.errors_Syn_AG output1 Seq.>< Pass1a.errors_Syn_Grammar output1a Seq.>< Pass2.errors_Syn_Grammar output2 ) - furtherErrors = toList ( Pass3.errors_Syn_Grammar output3 - Seq.>< Pass4.errors_Syn_CGrammar output4) + furtherErrors = if kennedyWarren flags' then [] + else toList ( Pass3.errors_Syn_Grammar output3 + Seq.>< Pass4.errors_Syn_CGrammar output4) errorList = if null parseErrorList then mainErrors @@ -201,6 +205,14 @@ , AspectAGDump.pp_Syn_Grammar aspectAG ] + | kennedyWarren flags' + = vlist [debug3a, + if dumpgrammar flags' + then vlist [ pp "{- Dump of grammar with default rules" + , GrammarDump.pp_Syn_Grammar dump2 + , pp "-}" + ] + else empty] | otherwise = vlist [ vlist ( if not (ocaml flags') then [ pp optionsLine diff --git a/src/CommonTypes.hs b/src/CommonTypes.hs --- a/src/CommonTypes.hs +++ b/src/CommonTypes.hs @@ -21,7 +21,7 @@ instance Eq Identifier where Ident x _ == Ident y _ = x == y -instance Ord Identifier where +instance Ord Identifier where compare (Ident x _) (Ident y _) = compare x y instance Show Identifier where @@ -63,6 +63,7 @@ type Derivings = Map NontermIdent (Set Identifier) type ClassContext = [(Identifier, [String])] type ContextMap = Map NontermIdent ClassContext +type QuantMap = Map NontermIdent [String] type Strings = [String] type NontermIdent = Identifier type ConstructorIdent = Identifier @@ -77,11 +78,11 @@ , [(Identifier,Identifier)] ) -identifier x = Ident x noPos +identifier x = Ident x noPos nullIdent = identifier "" -_LHS = identifier "lhs" -_SELF = identifier "SELF" -_LOC = identifier "loc" +_LHS = identifier "lhs" +_SELF = identifier "SELF" +_LOC = identifier "loc" _INST = identifier "inst" _INST' = identifier "inst'" _FIELD = identifier "field" @@ -105,14 +106,14 @@ lhsname isIn = attrname isIn _LHS attrname :: Bool -> Identifier -> Identifier -> String -attrname isIn field attr | field == _LOC = locname attr +attrname isIn field attr | field == _LOC = locname attr | field == _INST = instname attr | field == _INST' = inst'name attr | field == _FIELD = fieldname attr - | otherwise = let direction | isIn = "I" + | otherwise = let direction | isIn = "I" | otherwise = "O" in '_' : getName field ++ direction ++ getName attr - + locname v = '_' : getName v instname v = getName v ++ "_val_" inst'name v = getName v ++ "_inst_" @@ -144,7 +145,7 @@ hasPragma :: PragmaMap -> NontermIdent -> ConstructorIdent -> Identifier -> Bool hasPragma mp nt con nm = nm `Set.member` Map.findWithDefault Set.empty con (Map.findWithDefault Map.empty nt mp) - + isNonterminal :: Type -> Bool isNonterminal (NT _ _) = True isNonterminal _ = False @@ -161,7 +162,7 @@ nontermArgs tp = case tp of NT _ args -> args - _ -> [] + _ -> [] deforestedNt :: Identifier -> Maybe Identifier deforestedNt nm diff --git a/src/Options.hs b/src/Options.hs --- a/src/Options.hs +++ b/src/Options.hs @@ -65,6 +65,7 @@ , Option [] ["breadthfirst"] (NoArg breadthfirstOpt) "Experimental: generate breadth-first code" , Option [] ["breadthfirst-strict"] (NoArg breadthfirstStrictOpt) "Experimental: outermost breadth-first evaluator is strict instead of lazy" , Option [] ["visitcode"] (NoArg visitorsOutputOpt) "Experimental: generate visitors code" + , Option [] ["kennedywarren"] (NoArg kennedyWarrenOpt) "Experimental: use Kennedy-Warren's algorithm for ordering" , Option [] ["statistics"] (ReqArg statisticsOpt "FILE to append to") "Append statistics to FILE" , Option [] ["checkParseRhs"] (NoArg parseHsRhsOpt) "Parse RHS of rules with Haskell parser" , Option [] ["checkParseTys"] (NoArg parseHsTpOpt) "Parse types of attrs with Haskell parser" @@ -135,6 +136,7 @@ , checkParseTy :: Bool , checkParseBlock :: Bool , nocatas :: Set NontermIdent + , kennedyWarren :: Bool } deriving Show noOptions = Options { moduleName = NoName , dataTypes = False @@ -196,6 +198,7 @@ , checkParseTy = False , checkParseBlock = False , nocatas = Set.empty + , kennedyWarren = False } moduleOpt nm opts = opts{moduleName = maybe Default Name nm} @@ -257,6 +260,7 @@ parseHsTpOpt opts = opts { checkParseTy = True } parseHsBlockOpt opts = opts { checkParseBlock = True } parseHsOpt = parseHsRhsOpt . parseHsTpOpt . parseHsBlockOpt +kennedyWarrenOpt opts = opts { kennedyWarren = True } nocatasOpt str opts = opts { nocatas = set `Set.union` nocatas opts } where set = Set.fromList ids ids = map identifier lst diff --git a/src/Parser.hs b/src/Parser.hs --- a/src/Parser.hs +++ b/src/Parser.hs @@ -33,7 +33,7 @@ parseAG :: Options -> [FilePath] -> String -> IO (AG,[Message Token Pos]) -parseAG opts searchPath file +parseAG opts searchPath file = do (es,_,_,mesg) <- parseFile opts searchPath file return (AG es, mesg) @@ -43,7 +43,7 @@ return (fs, mesgs) parseFile :: Options -> [FilePath] -> String -> IO ([Elem],[String],[String],[Message Token Pos ]) -parseFile opts searchPath file +parseFile opts searchPath file = do txt <- readFile file let litMode = ".lag" `isSuffixOf` file (files,text) = if litMode then scanLit txt @@ -61,13 +61,13 @@ let allfs = files ++ fls loopp stop cont (es,allfs,allfs,mesg) where - + -- -- Option dependent AG Parsers inlined here -- to have access to the opts -- while retaining sharing -- - + pElemsFiles :: AGParser ([Elem],[String]) pElemsFiles = pFoldr (($),([],[])) pElem' where pElem' = addElem <$> pElem @@ -93,14 +93,14 @@ pElems :: AGParser Elems pElems = pList_ng pElem - pComplexType = List <$> pBracks pTypeEncapsulated + pComplexType = List <$> pBracks pTypeEncapsulated <|> Maybe <$ pMAYBE <*> pType <|> Either <$ pEITHER <*> pType <*> pType <|> Map <$ pMAP <*> pTypePrimitive <*> pType <|> IntMap <$ pINTMAP <*> pType <|> tuple <$> pParens (pListSep pComma field) where field = (,) <$> ((Just <$> pIdentifier <* pTypeColon) `opt` Nothing) <*> pTypeEncapsulated - tuple xs = Tuple [(fromMaybe (Ident ("x"++show n) noPos) f, t) + tuple xs = Tuple [(fromMaybe (Ident ("x"++show n) noPos) f, t) | (n,(f,t)) <- zip [1..] xs ] @@ -116,6 +116,7 @@ <|> Attr <$> pATTR <*> pOptClassContext <*> pNontSet + <*> pOptQuantifiers <*> pAttrs <|> Type <$> pTYPE <*> pOptClassContext @@ -127,6 +128,7 @@ <*> pOptClassContext <*> pNontSet <*> pOptAttrs + <*> pOptQuantifiers <*> pSemAlts <|> Set <$> pSET <*> pIdentifierU @@ -178,7 +180,7 @@ pSingleSynAttrDef :: AGParser (Identifier,Type,(String,String,String)) pSingleSynAttrDef = (\v u tp -> (v,tp,u)) <$> pIdentifier <*> pUse <* pTypeColon <*> pType "syn attribute declaration" - + pSingleChnAttrDef :: AGParser (Identifier,Type,(String,String,String)) pSingleChnAttrDef = (\v tp -> (v,tp,("","",""))) <$> pIdentifier <* pTypeColon <*> pType "chn attribute declaration" @@ -267,13 +269,13 @@ -- resolveFile :: [FilePath] -> FilePath -> IO FilePath -resolveFile path fname = search (path ++ ["."]) +resolveFile path fname = search (path ++ ["."]) where search (p:ps) = do let filename = joinPath [p, fname] fExists <- doesFileExist filename if fExists then return filename else search ps - search [] = error ("File: " ++ show fname ++ " not found in search path: " ++ show (concat (intersperse ";" (path ++ ["."]))) ) + search [] = error ("File: " ++ show fname ++ " not found in search path: " ++ show (concat (intersperse ";" (path ++ ["."]))) ) pathSeparator = "/" @@ -309,7 +311,7 @@ where set0 = pChainr (Intersect <$ pIntersect) set1 set1 = pChainl (Difference <$ pMinus) set2 set2 = pChainr (pSucceed Union) set3 - set3 = pIdentifierU <**> opt (flip Path <$ pArrow <*> pIdentifierU) NamedSet + set3 = pIdentifierU <**> opt (flip Path <$ pArrow <*> pIdentifierU) NamedSet <|> All <$ pStar <|> pParens set0 @@ -332,6 +334,9 @@ pClassContext = pListSep pComma ((,) <$> pIdentifierU <*> pList pTypeHaskellAnyAsString) +pOptQuantifiers :: AGParser [String] +pOptQuantifiers = (return <$ pDoubleColon <*> pCodescrap') `opt` [] + pTypeNt :: AGParser Type pTypeNt = ((\nt -> NT nt []) <$> pIdentifierU "nonterminal name (no brackets)") @@ -363,7 +368,7 @@ pIdentifiers = pList1Sep pComma pIdentifier "lowercase identifiers" pUse :: AGParser (String,String,String) -pUse = ( (\u x y->(x,y,show u)) <$> pUSE <*> pCodescrap' <*> pCodescrap')` opt` ("","","") "USE declaration" +pUse = ( (\u x y->(x,y,show u)) <$> pUSE <*> pCodescrap' <*> pCodescrap') `opt` ("","","") "USE declaration" mklower :: String -> String mklower (x:xs) = toLower x : xs @@ -422,8 +427,8 @@ <|> pPattern1 "a pattern" pPattern1 = pvariable <|> pPattern2 - pvariable = (\ir var pat a -> case var a of (fld,att) -> ir $ Alias fld att (pat a) []) - <$> ((Irrefutable <$ pTilde) `opt` id) <*> pvar <*> ((pAt *> pPattern1) `opt` const (Underscore noPos)) + pvariable = (\ir var pat a -> case var a of (fld,att) -> ir $ Alias fld att (pat a) []) + <$> ((Irrefutable <$ pTilde) `opt` id) <*> pvar <*> ((pAt *> pPattern1) `opt` const (Underscore noPos)) pPattern2 = (mkTuple <$> pOParenPos <*> pListSep pComma pPattern0 <* pCParen ) <|> (const . Underscore) <$> pUScore "a pattern" where mkTuple _ [x] a = x a diff --git a/src/Scanner.hs b/src/Scanner.hs --- a/src/Scanner.hs +++ b/src/Scanner.hs @@ -12,25 +12,25 @@ import UU.Scanner.GenToken import Options -data Input = Input !Pos String (Maybe (Token, Input)) +data Input = Input !Pos String (Maybe (Token, Input)) instance InputState Input Token Pos where - splitStateE input@(Input _ _ next) = + splitStateE input@(Input _ _ next) = case next of Nothing -> Right' input Just (s, rest) -> Left' s rest - splitState (Input _ _ next) = + splitState (Input _ _ next) = case next of Nothing -> error "splitState on empty input" Just (s, rest) -> (# s, rest #) - getPosition (Input pos _ next) = case next of + getPosition (Input pos _ next) = case next of Just (s,_) -> position s Nothing -> pos -- end of file input :: Options -> Pos -> String -> Input -input opts pos inp = Input pos - inp +input opts pos inp = Input pos + inp (case scan opts pos inp of Nothing -> Nothing Just (s,p,r) -> Just (s, input opts p r) @@ -47,10 +47,10 @@ else keywords mkKeyword s | s `elem` lowercaseKeywords = s | otherwise = map toUpper s - + scan :: Lexer Token scan p [] = Nothing - scan p ('-':'-':xs) | null xs || not (head xs `elem` "<>!?#@:%$^&") + scan p ('-':'-':xs) | null xs || not (head xs `elem` "<>!?#@:%$^&") = let (com,rest) = span (/= '\n') xs in advc' (2+length com) p scan rest scan p ('{':'-':xs) = advc' 2 p (ncomment scan) xs @@ -74,27 +74,27 @@ scan' (')' :rs) = (reserved ")" p, advc 1 p, rs) -- scan' ('{' :rs) = (OBrace p, advc 1 p, rs) -- scan' ('}' :rs) = (CBrace p, advc 1 p, rs) - + scan' ('\"' :rs) = let isOk c = c /= '"' && c /= '\n' (str,rest) = span isOk rs in if null rest || head rest /= '"' then (errToken "unterminated string literal" p , advc (1+length str) p,rest) else (valueToken TkString str p, advc (2+length str) p, tail rest) - + scan' ('=' : '>' : rs) = (reserved "=>" p, advc 2 p, rs) scan' ('=' :rs) = (reserved "=" p, advc 1 p, rs) scan' (':':'=':rs) = (reserved ":=" p, advc 2 p, rs) - - scan' (':':':':rs) | doubleColons opts = (reserved "::" p, advc 1 p, rs) + + scan' (':':':':rs) {- | doubleColons opts -} = (reserved "::" p, advc 1 p, rs) -- recognize double colons too scan' (':' :rs) = (reserved ":" p, advc 1 p, rs) scan' ('|' :rs) = (reserved "|" p, advc 1 p, rs) - + scan' ('/':'\\':rs) = (reserved "/\\" p, advc 2 p, rs) scan' ('-':'>' :rs) = (reserved "->" p, advc 2 p, rs) scan' ('-' :rs) = (reserved "-" p, advc 1 p, rs) scan' ('*' :rs) = (reserved "*" p, advc 1 p, rs) - + scan' (x:rs) | isLower x = let (var,rest) = ident rs str = (x:var) tok | str `elem` keywords' = reserved (mkKeyword str) @@ -106,7 +106,7 @@ | otherwise = valueToken TkConid str in (tok p, advc (length var+1) p,rest) | otherwise = (errToken ("unexpected character " ++ show x) p, advc 1 p, rs) - + scanBeginOfLine :: Lexer Token scanBeginOfLine p ('{' : '-' : ' ' : 'L' : 'I' : 'N' : 'E' : ' ' : xs) | isOkBegin rs && isOkEnd rs' @@ -117,16 +117,16 @@ (r,rs) = span isDigit xs (s, rs') = span (/= '"') (drop 2 rs) p' = Pos (read r - 1) (column p) s -- LINE pragma indicates the line number of the /next/ line! - + isOkBegin (' ' : '"' : _) = True isOkBegin _ = False - + isOkEnd ('"' : ' ' : '-' : '}' : _) = True isOkEnd _ = False scanBeginOfLine p xs = scan p xs - + ident = span isValid where isValid x = isAlphaNum x || x =='_' || x == '\'' lowercaseKeywords = ["loc","lhs", "inst"] @@ -154,7 +154,7 @@ in (p2,xs2,'{':' ':sc) codescrap' d p ('}':'}':xs) = let (p2,xs2,sc) = advc' 2 p (codescrap' d) xs in (p2,xs2,'}':' ':sc) --} +-} codescrap' d p ('{':xs) = let (p2,xs2,sc) = advc' 1 p (codescrap' (d+1)) xs in (p2,xs2,'{' : sc) codescrap' d p ('}':xs) | d == 1 = (p,'}':xs,[]) @@ -190,13 +190,13 @@ in l : toLines s' breakLine xs = case xs of '\CR' : ys -> case ys of - '\LF' : zs -> ([],zs) + '\LF' : zs -> ([],zs) _ -> ([],ys) '\LF' : ys -> ([], ys) x : ys -> let (l,s) = breakLine ys in (x:l,s) [] -> ([],[]) - + codelines [] = error "Unterminated literate code block" codelines ((n,l):ls) | "\\end{code}" `isPrefixOf` l = ([],ls) | otherwise = let (lns,r) = codelines ls diff --git a/src/Version.hs b/src/Version.hs --- a/src/Version.hs +++ b/src/Version.hs @@ -1,4 +1,4 @@ module Version where banner :: String -banner = "Attribute Grammar compiler / HUT project. Version 0.9.38.1" +banner = "Attribute Grammar compiler / HUT project. Version 0.9.38.3" diff --git a/uuagc.cabal b/uuagc.cabal --- a/uuagc.cabal +++ b/uuagc.cabal @@ -1,7 +1,7 @@ cabal-version: >=1.2 build-type: Simple name: uuagc -version: 0.9.38.1 +version: 0.9.38.3 license: GPL license-file: LICENSE maintainer: Arie Middelkoop @@ -29,7 +29,7 @@ build-depends: base < 3 build-depends: haskell98, uulib>=0.9.12, mtl>=1.1.1.1 - build-depends: haskell-src-exts + build-depends: haskell-src-exts>=1.11.1 main-is: Ag.hs other-modules: Ag , CommonTypes diff --git a/uuagc.cabal-for-ghc-6.6 b/uuagc.cabal-for-ghc-6.6 --- a/uuagc.cabal-for-ghc-6.6 +++ b/uuagc.cabal-for-ghc-6.6 @@ -1,5 +1,5 @@ name: uuagc -version: 0.9.38.1 +version: 0.9.38.3 license: GPL license-file: LICENSE maintainer: Arie Middelkoop