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,14 +157,19 @@ 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
......
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