Changeset 2502 for src/Pugs/Help.hs
- Timestamp:
- 04/30/05 04:02:02 (4 years ago)
- svk:copy_cache_prev:
- 4052
- Files:
-
- 1 modified
-
src/Pugs/Help.hs (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Help.hs
r2498 r2502 49 49 putStrLn "-l -d and -w are ignored for compatability with perl 5" 50 50 51 name :: String 51 52 name = "Perl6 User's Golfing System" 53 versnum :: String 52 54 versnum = PUGS_VERSION 55 date :: String 53 56 date = PUGS_DATE 57 version :: String 54 58 version = name ++ ", version " ++ versnum ++ ", " ++ date ++ revision 59 copyright :: String 55 60 copyright = "Copyright 2005 by Autrijus Tang" 61 revnum :: String 56 62 revnum = show(PUGS_SVN_REVISION :: Integer) 63 revision :: String 57 64 revision 58 65 | rev <- revnum … … 61 68 | otherwise 62 69 = "" 70 disclaimer :: String 63 71 disclaimer = 64 72 "This software is distributed under the terms of the " ++ … … 67 75 "See the details in the documentation." 68 76 77 versionFill :: Int -> String 69 78 versionFill n = fill ++ vstr 70 79 where
