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
7678faca
Verified
Commit
7678faca
authored
May 16, 2019
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add new settings to set command of cpm CLI
parent
a956a116
Pipeline
#23190
passed with stage
in 3 minutes and 7 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
51 additions
and
0 deletions
+51
-0
cpm/AbsSyn.dcl
cpm/AbsSyn.dcl
+6
-0
cpm/CpmLogic.icl
cpm/CpmLogic.icl
+12
-0
cpm/Parser.icl
cpm/Parser.icl
+33
-0
No files found.
cpm/AbsSyn.dcl
View file @
7678faca
...
...
@@ -59,6 +59,12 @@ from StdMaybe import :: Maybe
|
Output
!
Output
|
LinkerGenerateSymbolsOn
|
LinkerGenerateSymbolsOff
|
ByteCodePath
!
FilePath
|
PO_OptimiseABC
!
Bool
|
PO_GenerateByteCode
!
Bool
|
PO_StripByteCode
!
Bool
|
PO_KeepByteCodeSymbols
!
Bool
|
PO_PreLinkByteCode
!
Bool
::
ModuleAction
=
CreateModule
ModuleType
...
...
cpm/CpmLogic.icl
View file @
7678faca
...
...
@@ -200,6 +200,18 @@ where
=
PR_SetLinkOptions
project
{
PR_GetLinkOptions
project
&
generate_symbol_table
=
True
}
set_project_option
LinkerGenerateSymbolsOff
project
=
PR_SetLinkOptions
project
{
PR_GetLinkOptions
project
&
generate_symbol_table
=
False
}
set_project_option
(
ByteCodePath
path
)
project
=
PR_SetByteCodePath
path
project
set_project_option
(
PO_OptimiseABC
val
)
project
=
PR_SetCodeGenOptions
{
PR_GetCodeGenOptions
project
&
optimise_abc
=
val
}
project
set_project_option
(
PO_GenerateByteCode
val
)
project
=
PR_SetCodeGenOptions
{
PR_GetCodeGenOptions
project
&
generate_bytecode
=
val
}
project
set_project_option
(
PO_StripByteCode
val
)
project
=
PR_SetLinkOptions
project
{
PR_GetLinkOptions
project
&
strip_bytecode
=
val
}
set_project_option
(
PO_KeepByteCodeSymbols
val
)
project
=
PR_SetLinkOptions
project
{
PR_GetLinkOptions
project
&
keep_bytecode_symbols
=
val
}
set_project_option
(
PO_PreLinkByteCode
val
)
project
=
PR_SetLinkOptions
project
{
PR_GetLinkOptions
project
&
prelink_bytecode
=
val
}
doProjectAction
_
_
_
_
world
=
help
"cpm project <projectfile> <action>"
...
...
cpm/Parser.icl
View file @
7678faca
...
...
@@ -149,6 +149,39 @@ parse_Project_options ["-mp":project_option_args]
parse_Project_options
[
"-nmp"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
MemoryProfileOff
:
project_options
]);
parse_Project_options
[
"-bytecode"
:
path
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
ByteCodePath
path
:
project_options
]);
parse_Project_options
[
"-optimiseabc"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_OptimiseABC
True
:
project_options
]);
parse_Project_options
[
"-noptimiseabc"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_OptimiseABC
False
:
project_options
]);
parse_Project_options
[
"-genbytecode"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_GenerateByteCode
True
:
project_options
]);
parse_Project_options
[
"-ngenbytecode"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_GenerateByteCode
False
:
project_options
]);
parse_Project_options
[
"-stripbytecode"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_StripByteCode
True
:
project_options
]);
parse_Project_options
[
"-nstripbytecode"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_StripByteCode
False
:
project_options
]);
parse_Project_options
[
"-keepbytecodesymbols"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_KeepByteCodeSymbols
True
:
project_options
]);
parse_Project_options
[
"-nkeepbytecodesymbols"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_KeepByteCodeSymbols
False
:
project_options
]);
parse_Project_options
[
"-prelinkbytecode"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_PreLinkByteCode
True
:
project_options
]);
parse_Project_options
[
"-nprelinkbytecode"
:
project_option_args
]
#
(
ok
,
project_options
)
=
parse_Project_options
project_option_args
;
=
(
ok
,
[
PO_PreLinkByteCode
False
:
project_options
]);
parse_Project_options
[]
=
(
True
,[]);
parse_Project_options
_
...
...
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