MODULE CopyText;
(* =========================================================================  
   Clone a text file
   
   Author : Chris Burrows
   Created: Aug 2007
   (c) 2007-2008 CFB Software                                                               
   http://www.cfbsoftware.com/gpcp                                            
                                                                              
   ========================================================================= *)

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

VAR 
  sr: IO.StreamReader;
  sw: IO.StreamWriter;
  s, fileName: Sys.String;

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

BEGIN
  fileName := 'CopyText.cp';
  IF IO.File.Exists(fileName) THEN 
    sr := IO.StreamReader.init(fileName);
    sw := IO.StreamWriter.init('Copy of ' + fileName);
    s := sr.ReadToEnd();
    sw.Write(s);
    sr.Close();
    sw.Close()
  END 
END CopyText.