gpcp/GPCPcopyright.cp

   1 MODULE GPCPcopyright;
   2   IMPORT Console;
   3
   4   CONST
   5      (* VERSION    = "0.1 of 26 December 1999"; *)
   6      (* VERSION    = "0.2 of 01 March 2000"; *)
   7      (* VERSION    = "0.3 of 22 April 2000"; *)
   8      (* VERSION    = "0.4 of 01 May 2000"; *)
   9      (* VERSION    = "0.5 of 10 June 2000"; *)
  10      (* VERSION    = "0.6 of 17 June 2000"; *)
  11      (* VERSION    = "0.7 of 18 June 2000"; *)
  12      (* VERSION    = "0.8 of 18 July 2000"; *)
  13      (* VERSION    = "0.9 of 27 August 2000"; *)
  14      (* VERSION    = "0.95 of 26 October 2000"; *)
  15      (* VERSION    = "0.96 of 18 November 2000"; *)
  16      (* VERSION    = "1-d of 22 January 2001"; *)
  17      (* VERSION    = "1.0 of 01 June 2001"; *)
  18      (* VERSION    = "1.06 of 25 August 2001"; *)
  19      (* VERSION    = "1.10 of 10 September 2001"; *)
  20      (* VERSION    = "1.1.3 of 26 November 2001"; *)
  21      (* VERSION    = "1.1.4 of 16 January 2002"; *)
  22      (* VERSION    = "1.1.5x of 23 January 2002"; *)
  23      (* VERSION    = "1.1.6 of 28 March 2002"; *)
  24      (* VERSION    = "1.1.6a of 10 May 2002"; *)
  25      (* VERSION    = "1.1.7e of 23 May 2002"; *)
  26      (* VERSION    = "1.2.0 of 12 September 2002"; *)
  27      (* VERSION    = "1.2.1 of 07 October 2002"; *)
  28      (* VERSION    = "1.2.2 of 07 January 2003"; *)
  29      (* VERSION    = "1.2.3 of 01 April 2003"; *)
  30      (* VERSION    = "1.2.3.1 of 16 April 2003"; *)
  31      (* VERSION    = "1.2.3.2 of 20 July 2003"; *)
  32      (* VERSION    = "1.2.3.3 of 16 September 2003"; *)
  33      (* VERSION    = "1.2.4   of 26 February 2004"; *)
  34      (* VERSION    = "1.2.x   of June+ 2004"; *)
  35      (* VERSION    = "1.3.0 of 16 September 2004"; *)
  36      (* VERSION    = "1.3.1 of 12 November 2004"; *)
  37      (* VERSION    = "1.3.1.1 of 1 April 2005"; *)
  38      (* VERSION    = "1.3.1.2 of 10 April 2005"; *)
  39      (* VERSION    = "1.3.2.0 of 1 May 2005"; *)
  40      (* VERSION    = "1.3.4 of 20 August 2006"; *)
  41      (* VERSION    = "1.3.4e of 7 November 2006"; *)
  42      (* VERSION    = "1.3.6 of 1 September 2007"; *)
  43      (* VERSION    = "1.3.8 of 18 November 2007"; *)
  44      (* VERSION    = "1.3.9 of 15 January 2008"; *)
  45      (* VERSION    = "1.3.10 of 15 November 2010"; *)
  46      (* VERSION    = "1.3.12 of 17 November 2011"; *)
  47      (* VERSION    = "1.3.13 of 24 July 2012"; *)
  48      (* VERSION    = "1.3.14 of 05 September 2012"; *)
  49      (* VERSION    = "1.3.15 of 04 October 2012"; *)
  50      (* VERSION    = "1.3.16 of 01 January 2013"; *)
  51      (* VERSION    = "1.3.17 of 01 June 2013"; *)
  52         VERSION    = "1.3.18 of 26 August 2013";
  53         verStr*    = " version " + VERSION;
  54
  55   CONST prefix     = "#gpcp: ";
  56         millis     = "mSec";
  57
  58 (* ==================================================================== *)
  59
  60   PROCEDURE V*() : POINTER TO ARRAY OF CHAR;
  61   BEGIN
  62     RETURN BOX(VERSION)
  63   END V;
  64
  65   PROCEDURE W(IN s : ARRAY OF CHAR);
  66   BEGIN Console.WriteString(s); Console.WriteLn END W;
  67
  68   PROCEDURE Write*();
  69   BEGIN
  70     W("GARDENS POINT COMPONENT PASCAL");
  71     W("The files which import this module constitute a compiler");
  72     W("for the programming language Component Pascal.");
  73     W("Copyright (c) 1998 -- 2013 K John Gough.");
  74     W("Copyright (c) 2000 -- 2013 Queensland University of Technology.");
  75     Console.WriteLn;
  76
  77     W("This program is free software; you can redistribute it and/or modify");
  78     W("it under the terms of the GPCP Copyright as included with this");
  79     W("distribution in the root directory.");
  80     W("See the file GPCPcopyright.rtf in the 'gpcp' directory for details.");
  81     Console.WriteLn;
  82
  83     W("This program is distributed in the hope that it will be useful,");
  84     W("but WITHOUT ANY WARRANTY as is explained in the copyright notice.");
  85     Console.WriteLn;
  86
  87     W("The authoritative version for this program, and all future upgrades");
  88     W("is at http://gpcp.codeplex.com. The project page on CodePlex allows");
  89     W("discussions, an issue tracker and source code repository");
  90     W("The program's news group is GPCP@yahoogroups.com.");
  91   END Write;
  92
  93 END GPCPcopyright.