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
76d6e1e9
Commit
76d6e1e9
authored
Mar 08, 2013
by
Jurrien Stutterheim
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Clean up imports
parent
30d97304
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
4 deletions
+2
-4
cpm/Cpm.icl
cpm/Cpm.icl
+2
-4
No files found.
cpm/Cpm.icl
View file @
76d6e1e9
...
...
@@ -19,7 +19,6 @@ import StdBool, StdEnum, StdFile, StdFunc, StdMisc
import
Text
import
UtilIO
import
UtilStrictLists
import
Reader
,
State
::
CpmAction
=
Project
FilePath
ProjectAction
...
...
@@ -158,8 +157,8 @@ doProjectAction cleanhome pwd pn (BuildProject force ideenvs) world
#
iniGeneral
=
initGeneral
True
compilerOptions
pwd
proj_path
proj
envs
logfile
#
{
ls
,
gst_world
}
=
pinit
force
{
ls
=
iniGeneral
,
gst_world
=
world
,
gst_continue_or_stop
=
False
}
=
gst_world
where
envsfile
=
cleanhome
</>
ideenvs
proj_path
=
GetLongPathName
pn
where
envsfile
=
cleanhome
</>
ideenvs
proj_path
=
GetLongPathName
pn
doProjectAction
cleanhome
_
pn
(
ProjectPath
pa
)
world
#
projectfile
=
addExtension
(
dropExtension
pn
)
"prj"
...
...
@@ -214,7 +213,6 @@ openProject cleanhome projectfile world
saveProject
::
!
FilePath
!
Project
!
FilePath
!*
World
->
(
Bool
,
!*
World
)
saveProject
cleanhome
prj
projectfile
world
=
accFiles
(
SaveProjectFile
projectfile
prj
cleanhome
)
world
rmStrictListIdx
::
!
Int
!(
List
String
)
->
List
String
rmStrictListIdx
0
(_
:!
t
)
=
t
rmStrictListIdx
n
(
h
:!
t
)
|
n
>
0
=
h
:!
(
rmStrictListIdx
(
n
-
1
)
t
)
...
...
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