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
02df0ce5
Commit
02df0ce5
authored
Apr 25, 2008
by
John van Groningen
Browse files
extend postlink: expand {Project} and {Application}, add ""s, pass project
path
parent
5460f63f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Pm/PmDriver.icl
View file @
02df0ce5
...
@@ -157,17 +157,22 @@ where
...
@@ -157,17 +157,22 @@ where
#
ps
=
showInfo
(
Level1
"Precompile..."
)
ps
#
ps
=
showInfo
(
Level1
"Precompile..."
)
ps
#
(
ok
,
ec
,
ps
)
=
Execute`
(
fromJust
precompile
)
ps
#
(
ok
,
ec
,
ps
)
=
Execute`
(
fromJust
precompile
)
ps
// error handling???
// error handling???
=
trace_n
(
"PRE"
,
ok
,
ec
)
ps
=
ps
=
trace_n
"NO-PRE"
ps
=
ps
PostlinkFase
project
ps
PostlinkFase
project
ps
#
(
postlink
,
project
)
=
PR_GetPostlink
project
#
(
postlink
,
project
)
=
PR_GetPostlink
project
|
isJust
postlink
|
isJust
postlink
#
(
Just
post_link
)
=
postlink
#
(
prj_path
,
ps
)
=
getPath
ps
#
prj_dir_path
=
RemoveFilename
prj_path
#
(
app_path
,
ps
)
=
getStup
ps
#
post_link
=
fulPath
app_path
prj_dir_path
post_link
#
ps
=
showInfo
(
Level1
"Postlink..."
)
ps
#
ps
=
showInfo
(
Level1
"Postlink..."
)
ps
#
(
ok
,
ec
,
ps
)
=
Execute`
(
fromJust
postlink
)
ps
#
(
ok
,
ec
,
ps
)
=
Execute`
(
"
\"
"
+++
post
_
link
+++
"
\"
\"
"
+++
prj_path
+++
"
\"
"
)
ps
=
ps
=
ps
=
ps
=
ps
cleanup
::
!
Bool
!
Bool
!
Bool
!
FileInfoCache
!
StaticLibInfo
!(
List
Modulename
)
!
Project
!
Bool
(!*
ABCCache
,!(
PSt
*
General
))
->
*(!*
DriverState
,!
PSt
*
General
)
cleanup
::
!
Bool
!
Bool
!
Bool
!
FileInfoCache
!
StaticLibInfo
!(
List
Modulename
)
!
Project
!
Bool
(!*
ABCCache
,!(
PSt
*
General
))
->
*(!*
DriverState
,!
PSt
*
General
)
cleanup
ok
newpaths
linked
fileinfo
libsinfo
modpaths
project
intr
(
abccache
,
ps
)
cleanup
ok
newpaths
linked
fileinfo
libsinfo
modpaths
project
intr
(
abccache
,
ps
)
|
newpaths
&&
not
intr
// if paths have changed -> try again
|
newpaths
&&
not
intr
// if paths have changed -> try again
...
...
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