Handbook
Glossary
deploy-main ( -- )
Vocabulary
tools
.
deploy
Inputs
None
Outputs
None
Definition
USING:
command-line.parser
kernel
math
namespaces
sequences
tools.deploy.config
vocabs
;
IN:
tools.deploy
:
deploy-main
( -- )
"All boolean options above can be inverted by prefixing no- to..."
program-epilog
set-global
{
T{
option
{
name
"--console"
}
{
help
"If specified, enables the creation of a console application a..."
}
{
variable
deploy-console?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--ui"
}
{
help
"If specified, enables the inclusion of the ui framework"
}
{
variable
deploy-ui?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--unicode"
}
{
help
"If specified, enables the inclusion of full support for CHAR: "
}
{
variable
deploy-unicode?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--strip-word-props"
}
{
help
"If specified, enables the stripping of word properties the co..."
}
{
variable
deploy-word-props?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--keep-c-type-info"
}
{
help
"If specified, disables the stripping of metadata for c types"
}
{
variable
deploy-c-types?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--reflection"
}
{
type
integer
}
{
help
"Sets the level of reflection that is required for the deploye..."
}
{
variable
deploy-reflection
}
{
validate
[
[
6
<=
]
[
0
>
]
bi
and
]
}
{
meta
"LEVEL"
}
{
#args 1
}
}
T{
option
{
name
"--include-help"
}
{
help
"If specified, enables the inclusion of documentation for all ..."
}
{
variable
deploy-help?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--include-math"
}
{
help
"If specified, enables the inclusion of ratio and complex numb..."
}
{
variable
deploy-math?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--include-threads"
}
{
help
"If specified, enables the inclusion of thread support. This o..."
}
{
variable
deploy-threads?
}
{
const
t
}
{
#args 0
}
}
T{
option
{
name
"--io"
}
{
type
integer
}
{
help
"Sets the level of io support required. Must be an integer bet..."
}
{
variable
deploy-io
}
{
validate
[
[
3
<=
]
[
0
>
]
bi
and
]
}
{
meta
"LEVEL"
}
{
#args 1
}
}
T{
option
{
name
"vocabs"
}
{
help
"The vocabulary or vocabularies to be deployed"
}
{
variable
"vocabs-to-deploy"
}
{
required?
t
}
{
#args
"+"
}
}
}
[
"vocabs-to-deploy"
get
[
[
require
]
[
deploy
]
bi
]
each
]
with-options
f
program-epilog
set-global
;