/* --------------------------------------------------------------------------
 * 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 1

/* 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 "<month> <year>"
 * 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"

#ifndef MONTH_YEAR
   /* was: <snapshot> ... */
#define VERSION_STRING "FatHugs-20040105"
#else
#if MAJOR_RELEASE
#define VERSION_STRING "November 2003"
#else
#define VERSION_STRING "20031127"
#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