implement environment show <environment> for cpm

cpm/CpmLogic.icl

@@ -245,11 +245,41 @@ doProjectAction _          _  _   _    world             =
  */
 doEnvironmentAction :: String String EnvironmentAction *World -> *World
 doEnvironmentAction cleanhome  pwd  ListEnvironments                world
-	# (envs, world) = readIDEEnvs cleanhome "IDEEnvs" world
+	# (envs, world) = readIDEEnvs cleanhome EnvsFileName world
 	= showLines [t.target_name\\t<-envs] world
-doEnvironmentAction cleanhome  pwd  (ImportEnvironment ef)          world = error ("Not implemented") world
+doEnvironmentAction cleanhome  pwd  (ImportEnvironment ef) world
+	= error ("Not implemented") world
 doEnvironmentAction cleanhome  pwd  (RemoveEnvironment en)          world = error ("Not implemented") world
-doEnvironmentAction cleanhome  pwd  (ShowEnvironment en)            world = error ("Not implemented") world
+doEnvironmentAction cleanhome  pwd  (ShowEnvironment en) world 
+	# (envs, world) = readIDEEnvs cleanhome EnvsFileName world
+	# match = filter (\s->s.target_name == en) envs
+	| isEmpty match = error ("Environment " +++ en +++ " not found") world
+	= showLines (printEnvironment (hd match)) world
+where
+	printEnvironment e =
+		[ "Name: " +++ e.target_name
+		, "Paths: " +++ foldr (+++) "" ["\t" +++ t +++ "\n"\\t<|-e.target_path]
+		, "Dynamics libraries: \n" +++ foldr (+++) "" ["\t" +++ t +++ "\n"\\t<|-e.target_libs]
+		, "Object files: \n" +++ foldr (+++) "" ["\t" +++ t +++ "\n"\\t<|-e.target_objs]
+		, "Static libraries: \n" +++ foldr (+++) "" ["\t" +++ t +++ "\n"\\t<|-e.target_stat]
+		, "Compiler: " +++ e.target_comp
+		, "Code generator: " +++ e.target_cgen
+		, "ABC optimizer: " +++ e.target_abcopt
+		, "Bytecode generator: " +++ e.target_bcgen
+		, "Bytecode linker: " +++ e.target_bclink
+		, "Bytecode stripper: " +++ e.target_bcstrip
+		, "Bytecode prelink: " +++ e.target_bcprelink
+		, "Linker: " +++ e.target_link
+		, "Dynamic linker: " +++ e.target_dynl
+		, "ABC version: " +++ toString e.target_vers
+		, "64 bit processor: " +++ toString e.env_64_bit_processor
+		, "Redirect console: " +++ toString e.target_redc
+		, "Compile method: " +++ case e.target_meth of
+			CompileSync = "sync"
+			CompileAsync i = "async " +++ toString i
+			CompilePers = "pers"
+		, "Processor: " +++ toString e.target_proc
+		]
 doEnvironmentAction cleanhome  pwd  (ExportEnvironment en)          world = error ("Not implemented") world
 doEnvironmentAction cleanhome  pwd  (CreateEnvironment en)          world = error ("Not implemented") world
 doEnvironmentAction cleanhome  pwd  (RenameEnvironment en en`)      world = error ("Not implemented") world