Skip to content
GitLab
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
1dc036d5
Commit
1dc036d5
authored
Mar 13, 2018
by
John van Groningen
Browse files
add setting project option -descexl (-ndescexl), update help text
parent
d0b56c76
Changes
3
Hide whitespace changes
Inline
Side-by-side
cpm/AbsSyn.dcl
View file @
1dc036d5
...
...
@@ -20,7 +20,7 @@ from System.FilePath import :: FilePath
|
SetRelativeRoot
String
|
SetTarget
String
|
SetExec
String
|
SetProjectOptions
[
ProjectOption
]
|
SetProjectOptions
[
ProjectOption
]
|
ProjectHelp
::
PathAction
...
...
@@ -41,6 +41,8 @@ from System.FilePath import :: FilePath
|
DynamicsOff
|
GenericFusionOn
|
GenericFusionOff
|
DescExLOn
|
DescExLOff
::
ModuleAction
=
CreateModule
ModuleType
...
...
cpm/CpmLogic.icl
View file @
1dc036d5
...
...
@@ -33,13 +33,13 @@ doCpmAction cleanhome pwd (Environment ea) world = doEnvironmentAction cleanh
doCpmAction
_
_
_
world
=
help
"cpm <target>"
[
"Where <target> is one of the following:"
,
" <projectname> [--force] [--envs=filename]
: build project <projectname>."
,
"
Optionally force build (default: 'false')"
,
"
Optionally specify the environments file (default: 'IDEEnvs')"
,
" project <project
nam
e>
: project actions"
,
" module <modulename>
: module actions"
//, " environment
: environment actions"
,
" make
: build all projects in the current directory"
,
" <projectname> [--force] [--envs=filename] : build project <projectname>."
,
" Optionally force build (default: 'false')"
,
" Optionally specify the environments file (default: 'IDEEnvs')"
,
" project <project
fil
e> : project actions"
,
" module <modulename> : module actions"
//, " environment : environment actions"
,
" make : build all projects in the current directory"
,
""
,
"Execute `cpm <target> help` to get help for specific actions."
]
world
...
...
@@ -155,18 +155,29 @@ where
=
PR_SetApplicationOptions
{
PR_GetApplicationOptions
project
&
generic_fusion
=
True
}
project
set_project_option
GenericFusionOff
project
=
PR_SetApplicationOptions
{
PR_GetApplicationOptions
project
&
generic_fusion
=
False
}
project
set_project_option
DescExLOn
project
=
PR_SetApplicationOptions
{
PR_GetApplicationOptions
project
&
desc_exl
=
True
}
project
set_project_option
DescExLOff
project
=
PR_SetApplicationOptions
{
PR_GetApplicationOptions
project
&
desc_exl
=
False
}
project
doProjectAction
_
_
_
_
world
=
help
"cpm project <project
nam
e> <action>"
help
"cpm project <project
fil
e> <action>"
[
"Where <action> is one of the following"
,
" create : create a new project"
,
" show : show project information"
,
" build [--force] [--envs=filename] : build the project. Optionally force build (default: 'false')"
,
" Optionally specify the environments file (default: 'IDEEnvs')"
,
" path : manage project paths"
,
" target <env> : set target environment to <env>"
,
" exec <execname> : set executable name to <execname>"
,
" set options : set options"
,
" create : create a new project"
,
" show : show project information"
,
" build [--force] [--envs=filename] : build the project. Optionally force build (default: 'false')"
,
" Optionally specify the environments file (default: 'IDEEnvs')"
,
" path : manage project paths"
,
" target <env> : set target environment to <env>"
,
" exec <execname> : set executable name to <execname>"
,
" set option [option] : Set one or more of the following options:"
,
" : -generic_fusion,-ngeneric_fusion"
,
" : Enable or disable generic fusion"
,
" : -dynamics,-ndynamics"
,
" : Enable or disable dynamics"
,
" : -descexl,-descexl"
,
" : Enable or disable descriptor generation and label exporting"
,
" : This translates to passing -desc and -exl to cocl"
]
world
/**
...
...
cpm/Parser.icl
View file @
1dc036d5
...
...
@@ -85,6 +85,12 @@ parse_Project_options ["-generic_fusion":project_option_args]
parse_Project_options
[
"-ngeneric_fusion"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,[
GenericFusionOff
:
project_options
]);
parse_Project_options
[
"-descexl"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,[
DescExLOn
:
project_options
]);
parse_Project_options
[
"-ndescexl"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,[
DescExLOff
:
project_options
]);
parse_Project_options
[]
=
(
True
,[]);
parse_Project_options
_
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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