Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-ide
Commits
437bb1e7
Commit
437bb1e7
authored
Nov 18, 2015
by
Jurrien Stutterheim
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Use full path name to locate .prj file
parent
194eb7d4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
3 deletions
+4
-3
cpm/CpmLogic.icl
cpm/CpmLogic.icl
+4
-3
No files found.
cpm/CpmLogic.icl
View file @
437bb1e7
...
...
@@ -69,7 +69,7 @@ getLine world
#
(_,
world
)
=
fclose
console
world
=
(
line
,
world
)
import
StdDebug
/**
* Execute project-specific actions
*/
...
...
@@ -80,7 +80,8 @@ doProjectAction cleanhome pwd pn CreateProject world
|
not
exists
// = error ("Main module " +++ mainmodule +++ " does not exist.") world
#
world
=
showLines
[
"Main module "
+++
mainmodule
+++
" does not exist. Create it? [y/n]"
]
world
#
(
line
,
world
)
=
getLine
world
=
if
(
line
.[
0
]
==
'y'
)
(
mkMainAndProject
world
)
(
error
(
"Failed to create project. Need "
+++
mainmodule
)
world
)
|
line
.[
0
]
==
'y'
=
mkMainAndProject
world
|
otherwise
=
error
(
"Failed to create project. Need "
+++
mainmodule
)
world
|
otherwise
=
mkProject
world
where
basefilename
=
dropExtension
pn
...
...
@@ -113,7 +114,7 @@ doProjectAction cleanhome pwd pn ShowProject world
doProjectAction
cleanhome
pwd
pn
(
BuildProject
force
ideenvs
)
world
#
(
envs
,
world
)
=
readIDEEnvs
cleanhome
ideenvs
world
#
proj_path
=
GetLongPathName
pn
#
proj_path
=
GetLongPathName
(
pwd
</>
pn
)
#
((
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