Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
e1c2ce36
Commit
e1c2ce36
authored
Feb 27, 2013
by
Jurrien Stutterheim
Browse files
Rename envsdir to envsfile; more accurate
parent
18b9c60d
Changes
1
Show whitespace changes
Inline
Side-by-side
BatchBuild/BatchBuild.icl
View file @
e1c2ce36
...
...
@@ -50,21 +50,21 @@ Start world
showUsage
::
!*
World
->
*
World
showUsage
world
=
show
[
"BatchBuild"
,
"Usage: BatchBuild [--force] filename [--action=ARG] [--envs
dir
=ARG]"
,
"Usage: BatchBuild [--force] filename [--action=ARG] [--envs
file
=ARG]"
,
" --action : Execute a specific action. Possible actions:"
,
" build : Build a project (default)."
,
" create : Create a basic project file for a module."
,
" show : Summarize the contents of a project file."
,
" --envs
dir
: Specify a
directory where
environment file
s can be found
(defaults to 'IDEEnvs')"
,
" --envs
file
: Specify a
n
environment
s
file (defaults to 'IDEEnvs')"
]
world
buildProject
::
*
World
BBArgs
->
*
World
buildProject
world
{
force_rebuild
=
force_rebuild
,
filename
=
filename
,
args
=
args
}
#
(
startup
,
world
)
=
accFiles
GetFullApplicationPath
world
#
envs
dir
=
case
getStringArg
"envs
dir
"
args
of
#
envs
file
=
case
getStringArg
"envs
file
"
args
of
(
Just
p
)
->
application_path
p
_
->
application_path
EnvsFileName
#
(
envs
,
world
)
=
openEnvironments
startup
envs
dir
world
#
(
envs
,
world
)
=
openEnvironments
startup
envs
file
world
#
((
proj
,
ok
,
err
),
world
)
=
accFiles
(
ReadProjectFile
(
fromJust
filename
)
startup
)
world
|
not
ok
||
err
<>
""
=
wAbort
(
"BatchBuild failed while opening project: "
+++.
err
+++.
"
\n
"
)
world
#
(
ok
,
logfile
,
world
)
=
openLogfile
(
fromJust
filename
)
world
...
...
@@ -159,7 +159,7 @@ pFilename :: CParser Char (Maybe String) BBArgs
pFilename
=
(
pNotSpace
<@
Just
o
toString
)
<!>
yield
Nothing
pArgs
::
CParser
Char
BBArg
BBArgs
pArgs
=
pStringLongOpt
"envs
dir
"
<|>
pBoolLongOpt
"force"
<|>
pStringLongOpt
"action"
pArgs
=
pStringLongOpt
"envs
file
"
<|>
pBoolLongOpt
"force"
<|>
pStringLongOpt
"action"
...
...
Write
Preview
Supports
Markdown
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