suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed my old cgmap function, in favour of the identical library function mapM_

Browse Source
This commit is contained in:
Neil Brown 2007-10-14 00:14:19 +00:00
parent d4dabfd3bb
commit 3c101bae19
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
backends/GenerateCPPCSP.hs
View File

@ -599,11 +599,6 @@ cppremoveSpec _ _ = return ()
cppgenArrayStoreName :: GenOps -> A.Name -> CGen()
cppgenArrayStoreName ops n = genName n >> tell ["_actual"]
-- FIXME: This could be used elsewhere (and work in any monad)
-- | A helper function that maps a function and calls sequence on the resulting [CGen()]
cgmap :: (t -> CGen()) -> [t] -> CGen()
cgmap func list = sequence_ $ map func list
--Changed from GenerateC because we don't need the extra code for array sizes
cppabbrevExpression :: GenOps -> A.AbbrevMode -> A.Type -> A.Expression -> CGen ()
cppabbrevExpression ops am t@(A.Array _ _) e
@ -668,7 +663,7 @@ cppgenForwardDeclaration ops (A.Specification _ n (A.Proc _ sm fs _))
--Generates the given list of class variables
genClassVars :: [A.Formal] -> CGen ()
genClassVars fs = cgmap genClassVar fs
genClassVars fs = mapM_ genClassVar fs
--A helper function for generating the initialiser list in a process wrapper constructor
genConsItem :: A.Formal -> CGen()
@ -681,7 +676,7 @@ cppgenForwardDeclaration ops (A.Specification _ n (A.Proc _ sm fs _))
--A function for generating the initialiser list in a process wrapper constructor
genConstructorList :: [A.Formal] -> CGen ()
genConstructorList fs = cgmap genConsItem fs
genConstructorList fs = mapM_ genConsItem fs
cppgenForwardDeclaration _ _ = return ()