projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Extract entities from the session and return them in the design file.
[matthijs/master-project/cλash.git]
/
TranslatorTypes.hs
diff --git
a/TranslatorTypes.hs
b/TranslatorTypes.hs
index 75967c2d4c94e1672feed90ea6d1b715cc056c4d..99784409cc5bba03904df86098c719f4c81e5257 100644
(file)
--- a/
TranslatorTypes.hs
+++ b/
TranslatorTypes.hs
@@
-43,6
+43,12
@@
getFunc hsfunc = do
fs <- State.gets funcs -- Get the funcs element from the session
return $ Map.lookup hsfunc fs
fs <- State.gets funcs -- Get the funcs element from the session
return $ Map.lookup hsfunc fs
+-- | Gets all functions from the current session
+getFuncs :: VHDLState [(HsFunction, FuncData)]
+getFuncs = do
+ fs <- State.gets funcs -- Get the funcs element from the session
+ return $ Map.toList fs
+
-- | Sets the FlatFunction for the given HsFunction in the given setting.
setFlatFunc :: HsFunction -> FlatFunction -> VHDLState ()
setFlatFunc hsfunc flatfunc = do
-- | Sets the FlatFunction for the given HsFunction in the given setting.
setFlatFunc :: HsFunction -> FlatFunction -> VHDLState ()
setFlatFunc hsfunc flatfunc = do