Commit 97f855bc authored by John van Groningen's avatar John van Groningen

add generic_fusion project options (-generic_fusion and -ngeneric_fusion)

parent c5ee04d0
......@@ -39,6 +39,8 @@ from System.FilePath import :: FilePath
:: ProjectOption
= DynamicsOn
| DynamicsOff
| GenericFusionOn
| GenericFusionOff
:: ModuleAction
= CreateModule ModuleType
......
......@@ -151,6 +151,10 @@ where
= PR_SetApplicationOptions {PR_GetApplicationOptions project & dynamics = True} project
set_project_option DynamicsOff project
= PR_SetApplicationOptions {PR_GetApplicationOptions project & dynamics = False} project
set_project_option GenericFusionOn project
= PR_SetApplicationOptions {PR_GetApplicationOptions project & generic_fusion = True} project
set_project_option GenericFusionOff project
= PR_SetApplicationOptions {PR_GetApplicationOptions project & generic_fusion = False} project
doProjectAction _ _ _ _ world =
help "cpm project <projectname> <action>"
......
......@@ -79,6 +79,12 @@ parse_Project_options ["-dynamics":project_option_args]
parse_Project_options ["-ndynamics":project_option_args]
# (ok,project_options) = parse_Project_options project_option_args;
= (ok,[DynamicsOff:project_options]);
parse_Project_options ["-generic_fusion":project_option_args]
# (ok,project_options) = parse_Project_options project_option_args;
= (ok,[GenericFusionOn:project_options]);
parse_Project_options ["-ngeneric_fusion":project_option_args]
# (ok,project_options) = parse_Project_options project_option_args;
= (ok,[GenericFusionOff:project_options]);
parse_Project_options []
= (True,[]);
parse_Project_options _
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment