| Rev 1 | Rev 2 | |
|---|---|---|
| Line 29... | Line 29... | |
| guiStatements ast filterD = let l = statements ast | guiStatements ast filterD = let l = statements ast | |
| res = [(a,b,c,d)|(a,b,c,d)<-l,guiFilter (slicen (concat b) "HsIdent") filterD] | res = [(a,b,c,d)|(a,b,c,d)<-l,guiFilter (slicen (concat b) "HsIdent") filterD] | |
| in res | in res | |
| guiStatementsIf ast = [("HsIf1",[(b!!0)] ++ [(b!!1)],c+(length $ b!!0),c+(length $ b!!0)+(length $ b!!1))|(a,b,c,d)<-sliceParam ast "HsIf" 1 2 3] ++ [("HsIf2",[(b!!0)] ++ [(b!!2)],c+(length $ b!!0),c+(length $ b!!0)+(length $ b!!1))|(a,b,c,d)<-sliceParam ast "HsIf" 1 2 3] | ||
| guiStatementsWithoutListeners ast filterD = let l = statements ast | guiStatementsWithoutListeners ast filterD = let l = statements ast | |
| res = [(a,b,c,d)|(a,b,c,d)<-l,guiFilter (slicen (concat b) "HsIdent") filterD] | res = [(a,b,c,d)|(a,b,c,d)<-l,guiFilter (slicen (concat b) "HsIdent") filterD] | |
| jbn1 = [(a,[b!!0,b!!1,take 25 (b!!2)],c,d) |(a,b,c,d)<-res,elem "\"button\"" (slicen (concat b) "HsIdent")] | jbn1 = [(a,[b!!0,b!!1,take 25 (b!!2)],c,d) |(a,b,c,d)<-res,elem "\"button\"" (slicen (concat b) "HsIdent")] | |
| jbn2 = [(a,b,c,d) |(a,b,c,d)<-res,not (elem "\"button\"" (slicen (concat b) "HsIdent"))] | jbn2 = [(a,b,c,d) |(a,b,c,d)<-res,not (elem "\"button\"" (slicen (concat b) "HsIdent"))] | |
| in jbn1 ++ jbn2 | in jbn1 ++ jbn2 | |
| Line 67... | Line 71... | |
| idfunctionsDefinition ast = let l = functions ast | idfunctionsDefinition ast = let l = functions ast | |
| res = [(head (slice1 (concat b) "HsIdent"),a,b,c,d) |(a,b,c,d)<-l] | res = [(head (slice1 (concat b) "HsIdent"),a,b,c,d) |(a,b,c,d)<-l] | |
| in res | in res | |
| allGui ast filterD = guiVariablesDeclaration ast filterD++ guiStatementsWithoutListeners ast filterD ++ externalFunction ast | allGui ast filterD = guiVariablesDeclaration ast filterD++ guiStatementsWithoutListeners ast filterD ++ externalFunction ast ++ guiStatementsIf ast | |
| allGuiWithListener ast filterD = guiVariablesDeclaration ast filterD++ guiStatements ast filterD ++ externalAllFunction ast ++ qualifiers ast | allGuiWithListener ast filterD = guiVariablesDeclaration ast filterD++ guiStatements ast filterD ++ externalAllFunction ast ++ qualifiers ast ++ guiStatementsIf ast | |
| -- código executado pelo metodo name excluindo listener (considerando filtro) | -- código executado pelo metodo name excluindo listener (considerando filtro) | |
| initState ast name filterD = let (a,b,c,d) = function ast name | initState ast name filterD = let (a,b,c,d) = function ast name | |
| s = executedCode (a,b,c,d) ast [(c,d)] filterD | s = executedCode (a,b,c,d) ast [(c,d)] filterD | |