/* -------------------------------------------------------------------------- * Version string * * The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the * Yale Haskell Group, and the OGI School of Science & Engineering at OHSU, * 1994-2003, All rights reserved. It is distributed as free software under * the license in the file "License", which is included in the distribution. * ------------------------------------------------------------------------*/ /* Is this a major release or not? */ #define MAJOR_RELEASE 0 /* Define this as a string (of _max_ 14 characters) uniquely identifying the * current version. Upper limit of 14 chars is there to make the banner * come out nice and aligned. * * Major releases are of the form " " * Minor releases are of the form "Version YYYYMMDD" * Anyone else should use a different format to avoid confusion. * * On standard unix platforms, the Makefile will automatically fill in * the date for both major and minor releases. Only modify this file * if you need to override the automatically generated date. * * However, if your system doesn't have GNU date, then the version strings * will be empty, and you'll want to manually specify the version strings. */ #include "prelude.h" #if defined(_MSC_VER) /* When compiling via MSVC (by using {msc,winhugs}/Makefile), * echodate.h contains the generated define for YYYYMMDD */ #include "echodate.h" #endif #ifndef MONTH_YEAR #define VERSION_STRING "" #else #if MAJOR_RELEASE #define VERSION_STRING MONTH_YEAR #else #define VERSION_STRING YYYYMMDD #endif #endif String versionString = VERSION_STRING; #if USE_REGISTRY #if HUGS_FOR_WINDOWS #define HUGSROOT ("SOFTWARE\\Haskell\\Hugs\\Winhugs" VERSION_STRING "\\") #else #define HUGSROOT ("SOFTWARE\\Haskell\\Hugs\\" VERSION_STRING "\\") #endif String hugsRegRoot = HUGSROOT; #endif