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

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

path
parent 5460f63f
...@@ -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
......
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