Skip to content
GitLab
Menu
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
898fabe4
Commit
898fabe4
authored
Mar 01, 2013
by
Jurrien Stutterheim
Browse files
String renaming
parent
78fea1f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
cpm/Cpm.icl
View file @
898fabe4
...
...
@@ -92,12 +92,12 @@ doCpmAction world cleanhome pwd (Module mn ma) = doModuleAction world cleanh
doCpmAction
world
_
_
_
=
help
[
"CPM: Clean Project Management"
,
""
,
"Usage: cpm <
action
>"
,
"Where <
action
> is one of the following:"
,
"Usage: cpm <
target
>"
,
"Where <
target
> is one of the following:"
,
" project : project actions"
,
" module : module action"
,
""
,
"Execute `cpm <
action
> help` to get help for specific actions."
]
world
,
"Execute `cpm <
target
> help` to get help for specific actions."
]
world
doProjectAction
::
*
World
.
String
.
String
.
String
.
ProjectAction
->
.
World
doProjectAction
world
cleanhome
pwd
pn
CreateProject
...
...
@@ -134,9 +134,9 @@ doProjectAction world cleanhome pwd pn (BuildProject force ideenvs)
#
envsfile
=
application_path
ideenvs
#
(
envs
,
world
)
=
openEnvironments
cleanhome
envsfile
world
#
((
proj
,
ok
,
err
),
world
)
=
accFiles
(
ReadProjectFile
pn
cleanhome
)
world
|
not
ok
||
err
<>
""
=
error
(
"
BatchBuild
failed while opening project: "
+++.
err
+++.
"
\n
"
)
world
|
not
ok
||
err
<>
""
=
error
(
"
CPM
failed while opening project: "
+++.
err
+++.
"
\n
"
)
world
#
(
ok
,
logfile
,
world
)
=
openLogfile
pn
world
|
not
ok
=
error
(
"
BatchBuild
failed while opening logfile.
\n
"
)
world
|
not
ok
=
error
(
"
CPM
failed while opening logfile.
\n
"
)
world
#
default_compiler_options
=
DefaultCompilerOptions
#
iniGeneral
=
initGeneral
True
default_compiler_options
cleanhome
pn
proj
envs
logfile
#
ps
=
{
ls
=
iniGeneral
,
gst_world
=
world
,
gst_continue_or_stop
=
False
}
...
...
@@ -144,7 +144,7 @@ doProjectAction world cleanhome pwd pn (BuildProject force ideenvs)
=
gst_world
doProjectAction
world
cleanhome
_
pn
(
ProjectPath
pa
)
=
doProjectPathAction
world
cleanhome
pn
pa
doProjectAction
world
_
_
_
_
=
doProjectAction
world
_
_
_
_
=
help
[
"create : create a new project"
,
"show : show project information"
,
"build [--force] : build the project. Optionally force build (default: 'false')"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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