Add a project option to set RTS options

cpm/AbsSyn.dcl

@@ -43,6 +43,8 @@ from PmTypes import ::Pathname,::Output
 	| DynamicsOff
 	| GenericFusionOn
 	| GenericFusionOff
+	| RTSFlagsOn
+	| RTSFlagsOff
 	| DescExLOn
 	| DescExLOff
 	| HeapSize !Int

cpm/CpmLogic.icl

@@ -176,6 +176,10 @@ where
 		= PR_SetApplicationOptions {PR_GetApplicationOptions project & ss = ss} project
 	set_project_option (Output output) project
 		= PR_SetApplicationOptions {PR_GetApplicationOptions project & o = output} project
+	set_project_option RTSFlagsOff project
+		= PR_SetApplicationOptions {PR_GetApplicationOptions project & disable_rts_flags=True} project
+	set_project_option RTSFlagsOn project
+		= PR_SetApplicationOptions {PR_GetApplicationOptions project & disable_rts_flags=False} project
 	set_project_option LinkerGenerateSymbolsOn project
 		= PR_SetLinkOptions project {PR_GetLinkOptions project & generate_symbol_table=True}
 	set_project_option LinkerGenerateSymbolsOff project
@@ -203,6 +207,8 @@ doProjectAction _          _  _   _    world             =
     ,  "                                    : -descexl,-descexl"
     ,  "                                    :     Enable or disable descriptor generation and label exporting"
     ,  "                                    :     This translates to passing -desc and -exl to cocl"
+    ,  "                                    : -rtsopts,-nrtsopts"
+    ,  "                                    :     Enable or disable the default rts arguments (-h, -s, etc.)"
     ,  "                                    : -b,-nr,-nc,-sc"
     ,  "                                    :     Set the output option to BasicValuesOnly, NoReturnType,"
     ,  "                                    :     NoConsole or ShowConstructors respectively"

cpm/Parser.icl

@@ -123,6 +123,12 @@ parse_Project_options ["-nstrip":project_option_args]
 parse_Project_options ["-strip":project_option_args]
 	# (ok,project_options) = parse_Project_options project_option_args;
 	= (ok, [LinkerGenerateSymbolsOff:project_options]);
+parse_Project_options ["-nrtsopts":project_option_args]
+	# (ok,project_options) = parse_Project_options project_option_args;
+	= (ok, [RTSFlagsOff:project_options]);
+parse_Project_options ["-rtsopts":project_option_args]
+	# (ok,project_options) = parse_Project_options project_option_args;
+	= (ok, [RTSFlagsOn:project_options]);
 parse_Project_options []
 	= (True,[]);
 parse_Project_options _