Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
060efa78
Commit
060efa78
authored
Feb 14, 2018
by
John van Groningen
Browse files
add compiling of selected modules in the project window for hierarchical modules
parent
97f855bc
Changes
1
Hide whitespace changes
Inline
Side-by-side
Ide/projwin.icl
View file @
060efa78
...
...
@@ -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
path
name
ps
find
Icl
Module
::
!
Modulename
!*(
PSt
General
)
->
(!
Maybe
Pathname
,!*
PSt
General
)
find
Icl
Module
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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment