Commit 060efa78 authored by John van Groningen's avatar John van Groningen
Browse files

add compiling of selected modules in the project window for hierarchical modules

parent 97f855bc
...@@ -835,9 +835,9 @@ getActiveModules ps ...@@ -835,9 +835,9 @@ getActiveModules ps
# (lbId,ps) = getPWI ps # (lbId,ps) = getPWI ps
# ((hassel,sel),ps) = getExtListBoxSelection lbId ps # ((hassel,sel),ps) = getExtListBoxSelection lbId ps
| hassel && notEmpty sel | hassel && notEmpty sel
# sel = map (MakeImpPathname o fst) sel # sel = [findIclModule s \\ (s,_) <- sel]
# (sel,ps) = seqList (map findModule sel) ps # (sel,ps) = seqList sel ps
# sel = [fromJust m \\ m <- sel | isJust m] # sel = [m \\ Just m <- sel]
= (sel,ps) = (sel,ps)
= ([],ps) = ([],ps)
# winpath = fromJust winpath # winpath = fromJust winpath
...@@ -847,13 +847,10 @@ getActiveModules ps ...@@ -847,13 +847,10 @@ getActiveModules ps
= ([MakeImpPathname winpath],ps) = ([MakeImpPathname winpath],ps)
= ([],ps) = ([],ps)
findModule :: !.Modulename !*(PSt General) -> (!Maybe Pathname,!*PSt General) findIclModule :: !Modulename !*(PSt General) -> (!Maybe Pathname,!*PSt General)
findModule pathname ps findIclModule module_name ps
# (srcpaths,ps) = get_project_and_environment_paths ps # (srcpaths,ps) = get_project_and_environment_paths ps
# srcpaths = if (IsABCPathname pathname) # ((ok,fullpath),ps) = accFiles (FindHModule module_name ".icl" srcpaths) ps
(Map MakeSystemPathname srcpaths)
srcpaths
# ((ok,fullpath),ps) = accFiles (SearchDisk pathname srcpaths) ps
| not ok | not ok
= (Nothing, ps) = (Nothing, ps)
= (Just (GetLongPathName fullpath), ps) = (Just (GetLongPathName fullpath), ps)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment