Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
898fabe4
Commit
898fabe4
authored
Mar 01, 2013
by
Jurrien Stutterheim
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
String renaming
parent
78fea1f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
6 deletions
+6
-6
cpm/Cpm.icl
cpm/Cpm.icl
+6
-6
No files found.
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
Markdown
is supported
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