Changeset 7 for src/Help.hs

Timestamp:

02/09/05 06:00:26 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* This be 6.0.2

Files:

• src/Help.hs (modified) (3 diffs)

src/Help.hs

@@ -1 +1 @@
 {-# OPTIONS -cpp #-}
+#define VERSION ""
+#define DATE ""
+#include "config.h"
 
 {-
@@ -26 +29 @@
 
 name       = "Perl6 User's Golfing System"
-versnum    = "6.0.0"
-date       = "04 Feb 2005"
+versnum    = VERSION
+date       = DATE
 version    = name ++ ", version " ++ versnum ++ ", " ++ date
-copyright  = "Copyright (c) 2005 by Autrijus Tang"
+copyright  = "Copyright 2005 by Autrijus Tang"
 disclaimer =
     "This software is distributed under the terms of the " ++
@@ -45 +48 @@
     [ ".=====. __  __  ____   ___    _________________________________________"
     , "||   || ||  || ||  || ||__'   Pugs 6: Based on the Perl 6 Synopses     "
-    , "||====' ||__|| ||__||  __||   Copyright (c) 2005 Autrijus Tang         "
+    , "||====' ||__|| ||__||  __||   " ++ copyright
     , "||      `===='  ___|| `==='   World Wide Web: http://autrijus.org/pugs "
     , "||             `===='         Report bugs to: autrijus@autrijus.org    "
     , "==" ++ versionFill 27    ++ " ========================================="
     , ""
-    , "Welcome to Pugs -- Perl6 User's Golfing System"
+    , "Welcome to Pugs -- " ++ name
     , "Type :h for help"
     ]