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
# (lbId,ps) = getPWI ps
# ((hassel,sel),ps) = getExtListBoxSelection lbId ps
| hassel && notEmpty sel
# sel = map (MakeImpPathname o fst) sel
# (sel,ps) = seqList (map findModule sel) ps
# sel = [fromJust m \\ m <- sel | isJust m]
# sel = [findIclModule s \\ (s,_) <- sel]
# (sel,ps) = seqList sel ps
# sel = [m \\ Just m <- sel]
= (sel,ps)
= ([],ps)
# winpath = fromJust winpath
......@@ -847,13 +847,10 @@ getActiveModules ps
= ([MakeImpPathname winpath],ps)
= ([],ps)
findModule :: !.Modulename !*(PSt General) -> (!Maybe Pathname,!*PSt General)
findModule pathname ps
findIclModule :: !Modulename !*(PSt General) -> (!Maybe Pathname,!*PSt General)
findIclModule module_name ps
# (srcpaths,ps) = get_project_and_environment_paths ps
# srcpaths = if (IsABCPathname pathname)
(Map MakeSystemPathname srcpaths)
srcpaths
# ((ok,fullpath),ps) = accFiles (SearchDisk pathname srcpaths) ps
# ((ok,fullpath),ps) = accFiles (FindHModule module_name ".icl" srcpaths) ps
| not ok
= (Nothing, 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