Commit 02df0ce5 authored by John van Groningen's avatar John van Groningen

extend postlink: expand {Project} and {Application}, add ""s, pass project

path
parent 5460f63f
......@@ -157,17 +157,22 @@ where
# ps = showInfo (Level1 "Precompile...") ps
# (ok,ec,ps) = Execute` (fromJust precompile) ps
// error handling???
= trace_n ("PRE",ok,ec) ps
= trace_n "NO-PRE" ps
= ps
= ps
PostlinkFase project ps
# (postlink,project) = PR_GetPostlink project
| 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
# (ok,ec,ps) = Execute` (fromJust postlink) ps
# (ok,ec,ps) = Execute` ("\""+++post_link+++"\" \""+++prj_path+++"\"") ps
= ps
= ps
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)
| newpaths && not intr // if paths have changed -> try again
......
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