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
5c03b98e
Commit
5c03b98e
authored
Mar 29, 2018
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix cpm <project> project root command,
(written by Mart Lubbers)
parent
d821782c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
5 deletions
+8
-5
cpm/CpmLogic.icl
cpm/CpmLogic.icl
+5
-4
cpm/Parser.icl
cpm/Parser.icl
+3
-1
No files found.
cpm/CpmLogic.icl
View file @
5c03b98e
...
...
@@ -20,7 +20,7 @@ import System.Directory, System.File, System.FilePath
/**
* Clean libraries imports
*/
import
StdBool
,
StdEnum
,
StdMisc
,
StdTuple
,
StdArray
import
StdBool
,
StdEnum
,
StdMisc
,
StdTuple
,
StdArray
,
StdFunc
/**
* Execute a general CPM action
...
...
@@ -129,8 +129,8 @@ doProjectAction cleanhome pwd pn (ProjectPath pa) world
=
world
=
doProjectPathAction
cleanhome
pwd
pn
project
pa
world
doProjectAction
cleanhome
pwd
pn
(
SetRelativeRoot
targe
t
)
world
=
withProject
pwd
pn
cleanhome
(
PR_SetRelativeRootDir
target
)
world
doProjectAction
cleanhome
pwd
pn
(
SetRelativeRoot
relroo
t
)
world
=
withProject
pwd
pn
cleanhome
(
uncurry
(
change_root_directory_of_project
relroot
)
o
PR_GetRootPathName
)
world
doProjectAction
cleanhome
pwd
pn
(
SetTarget
target
)
world
=
withProject
pwd
pn
cleanhome
(
PR_SetTarget
target
)
world
...
...
@@ -178,7 +178,8 @@ doProjectAction _ _ _ _ world =
,
" build [--force] [--envs=filename] : build the project. Optionally force build (default: 'false')"
,
" Optionally specify the environments file (default: 'IDEEnvs')"
,
" path : manage project paths"
,
" root : set the project root"
,
" root .[.] : set the project root relative to the project file."
,
" : . is the same dir, .. the parent, ... the grandparent, etc."
,
" target <env> : set target environment to <env>"
,
" exec <execname> : set executable name to <execname>"
,
" set option [option] : Set one or more of the following options:"
...
...
cpm/Parser.icl
View file @
5c03b98e
...
...
@@ -23,7 +23,9 @@ parse_Project ["show"] project_name = Project project_name ShowProject;
parse_Project
[
"build"
:
project_build_args
]
project_name
=
parse_Project_build_args
project_build_args
False
EnvsFileName
project_name
(
Project
""
ProjectHelp
);
parse_Project
[
"path"
:
project_path_args
]
project_name
=
parse_Project_path_args
project_path_args
project_name
;
parse_Project
[
"root"
,
s
]
project_name
=
Project
project_name
(
SetRelativeRoot
s
);
parse_Project
[
"root"
,
s
]
project_name
|
size
s
>
0
&&
and
[
c
==
'.'
\\
c
<-:
s
]
=
Project
project_name
(
SetRelativeRoot
s
);
parse_Project
[
"target"
,
s
]
project_name
=
Project
project_name
(
SetTarget
s
);
parse_Project
[
"exec"
,
s
]
project_name
=
Project
project_name
(
SetExec
s
);
parse_Project
[
"set"
:
project_option_args
]
project_name
...
...
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