MODULE EnvironmentVars;
(* =========================================================================  
   Example GPCP .NET Console Program 
 
   Display the contents of the system's PATH and CPSYM environment variables 
   
   Author : Chris Burrows  
   Created: Apr 2007   
   (c) 2007-2008 CFB Software   
   http://www.cfbsoftware.com/gpcp  
   
   ========================================================================= *)

IMPORT
  Out,
  Sys := "[mscorlib]System",
  CPmain;

(* ==================================================================== *)

PROCEDURE GetEnvPaths(envName: Sys.String; OUT paths: POINTER TO ARRAY OF Sys.String);
VAR
  s: Sys.String;
  delimiter: POINTER TO ARRAY OF CHAR;
BEGIN
  NEW(delimiter, 1); 
  delimiter[0] := ';';
  s := Sys.Environment.GetEnvironmentVariable(envName);
  paths := s.Split(delimiter)
END GetEnvPaths;

(* ==================================================================== *)

PROCEDURE OutEnvPaths(envName: Sys.String);
VAR
  pathNames: POINTER TO ARRAY OF Sys.String;
  i: INTEGER;
BEGIN
  Out.String(envName + ':'); 
  Out.Ln();
  GetEnvPaths(envName, pathNames);
  FOR i := 0 TO LEN(pathNames) - 1 DO
    Out.String('  ' + pathNames[i]);
    Out.Ln()
  END;
  Out.Ln()
END OutEnvPaths;

(* ==================================================================== *)

BEGIN
  OutEnvPaths('PATH');
  OutEnvPaths('CPSYM')
END EnvironmentVars.