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
1654e9d3
Commit
1654e9d3
authored
Apr 25, 2008
by
John van Groningen
Browse files
support {Project} and {Application} in postlink
parent
02df0ce5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Pm/PmProject.icl
View file @
1654e9d3
...
...
@@ -201,7 +201,6 @@ where
|
importermn
<>
mn
=
TryInsertImporter
rest
list
=
list
//--
...
...
@@ -604,6 +603,9 @@ SetProject applicationDir projectDir
// # project = PR_SetExpDLL pg_exportedDLL project
// default of used appopts in exe are ok isn't right :-(
#
pg_static
=
FixStatic
applicationDir
projectDir
pg_static
#
pg_postlink
=
case
pg_postlink
of
Just
post_link
->
Just
(
ExpandPath
applicationDir
projectDir
post_link
)
Nothing
->
Nothing
#
project
=
{
project
&
static_info
=
pg_static
,
dynamic_info
=
pg_dynamic
}
#
project
=
{
project
&
prec
=
pg_precompile
,
posl
=
pg_postlink
}
=
project
...
...
@@ -624,6 +626,9 @@ where
GetProject
::
!{#
Char
}
!{#
Char
}
!
Project
->
ProjectGlobalOptions
GetProject
applicationDir
projectDir
project
#
post_link
=
case
project
.
posl
of
Just
post_link
->
Just
(
SubstitutePath
applicationDir
projectDir
post_link
)
Nothing
->
Nothing
=
{
pg_built
=
PR_Built
project
,
pg_codegen
=
PR_GetCodeGenOptions
project
,
pg_application
=
PR_GetApplicationOptions
project
...
...
@@ -637,7 +642,7 @@ GetProject applicationDir projectDir project
,
pg_static
=
substitite_paths_in_static
applicationDir
projectDir
project
.
static_info
,
pg_dynamic
=
project
.
dynamic_info
,
pg_precompile
=
project
.
prec
,
pg_postlink
=
p
roject
.
posl
,
pg_postlink
=
p
ost_link
}
where
exepath
...
...
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