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
f73a0d88
Commit
f73a0d88
authored
Oct 18, 2013
by
Jurrien Stutterheim
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
CPM is expected to be placed in $CLEAN_HOME/bin and it will look for an IDEEnvs
file in $CLEAN_HOME/etc
parent
86f5c80e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
4 deletions
+5
-4
cpm/Cpm.icl
cpm/Cpm.icl
+4
-3
cpm/CpmLogic.icl
cpm/CpmLogic.icl
+1
-1
No files found.
cpm/Cpm.icl
View file @
f73a0d88
...
...
@@ -20,7 +20,7 @@ import UtilIO
/**
* Clean Platform imports
*/
import
System
.
CommandLine
,
System
.
Environment
,
System
.
Directory
import
System
.
CommandLine
,
System
.
Environment
,
System
.
Directory
,
System
.
FilePath
import
Data
.
Error
,
Data
.
Func
,
Data
.
List
import
Text
...
...
@@ -38,10 +38,11 @@ Start world
#
(
cmd
,
world
)
=
getCommandLine
world
(
mpwd
,
world
)
=
getCurrentDirectory
world
(
cpmd
,
world
)
=
accFiles
GetFullApplicationPath
world
cleandir
=
if
(
endsWith
"bin"
cpmd
)
(
takeDirectory
cpmd
)
cpmd
(
ch
,
world
)
=
case
getEnvironmentVariable
"CLEAN_HOME"
world
of
(
Just
ch
,
world
)
->
(
ch
,
world
)
(_,
world
)
->
(
c
pmd
,
world
)
(_,
world
)
->
(
c
leandir
,
world
)
=
case
mpwd
of
Ok
pwd
->
doCpmAction
c
h
pwd
(
startParse
(
fromString
$
mkCl
cmd
))
world
Ok
pwd
->
doCpmAction
c
leandir
pwd
(
startParse
(
fromString
$
mkCl
cmd
))
world
Error
e
->
abort
"Failed to read current directory"
where
mkCl
cmd
=
concat
(
intersperse
" "
(
tl
[
fromString
arg
\\
arg
<-
cmd
]))
cpm/CpmLogic.icl
View file @
f73a0d88
...
...
@@ -111,7 +111,7 @@ doProjectAction cleanhome pwd pn ShowProject world
]
world
doProjectAction
cleanhome
pwd
pn
(
BuildProject
force
ideenvs
)
world
#
(
envs
,
world
)
=
openEnvironments
cleanhome
(
cleanhome
</>
ideenvs
)
world
#
(
envs
,
world
)
=
openEnvironments
cleanhome
(
cleanhome
</>
"etc"
</>
ideenvs
)
world
#
((
proj
,
ok
,
err
),
world
)
=
accFiles
(
ReadProjectFile
proj_path
cleanhome
)
world
|
not
ok
||
err
<>
""
=
error
(
"CPM failed while opening project: "
+++
err
+++
"
\n
"
)
world
#
(
console
,
world
)
=
stdio
world
...
...
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