home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / src / version.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-07-17  |  2.6 KB  |  78 lines
  1. /*
  2.  * This file is part of the portable Forth environment written in ANSI C.
  3.  * Copyright (C) 1995  Dirk Uwe Zoller
  4.  *
  5.  * This library is free software; you can redistribute it and/or
  6.  * modify it under the terms of the GNU Library General Public
  7.  * License as published by the Free Software Foundation; either
  8.  * version 2 of the License, or (at your option) any later version.
  9.  *
  10.  * This library is distributed in the hope that it will be useful,
  11.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13.  * See the GNU Library General Public License for more details.
  14.  *
  15.  * You should have received a copy of the GNU Library General Public
  16.  * License along with this library; if not, write to the Free
  17.  * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  *
  19.  * This file is version 0.9.13 of 17-July-95
  20.  * Check for the latest version of this package via anonymous ftp at
  21.  *    roxi.rz.fht-mannheim.de:/pub/languages/forth/pfe-VERSION.tar.gz
  22.  * or    sunsite.unc.edu:/pub/languages/forth/pfe-VERSION.tar.gz
  23.  * or    ftp.cygnus.com:/pub/forth/pfe-VERSION.tar.gz
  24.  *
  25.  * Please direct any comments via internet to
  26.  *    duz@roxi.rz.fht-mannheim.de.
  27.  * Thank You.
  28.  */
  29. /*
  30.  * version.c --- this file is touched everytime pfe is compiled.
  31.  * (duz 19Feb94)
  32.  */
  33.  
  34. #include "support.h"
  35.  
  36. char version_string [] =
  37.     "A portable Forth environment written in C. "
  38.     "Version "VERSION" of "DATE"";
  39.  
  40. char copyright_string [] =
  41.     "\nCopyright Dirk Uwe Zoller 1995.";
  42.  
  43. char license_string [] =
  44.     "\n"
  45.     "\nThis program is free software; you can redistribute it and/or"
  46.     "\nmodify it under the terms of the GNU Library General Public"
  47.     "\nLicense as published by the Free Software Foundation; either"
  48.     "\nversion 2 of the License, or (at your option) any later version. ";
  49.  
  50. char warranty_string [] =
  51.     "\n"
  52.     "\nThis program is distributed in the hope that it will be useful,"
  53.     "\nbut WITHOUT ANY WARRANTY; without even the implied warranty of"
  54.     "\nMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU"
  55.     "\nLibrary General Public License for more details."
  56.     "\n"
  57.     "\nYou should have received a copy of the GNU Library General Public"
  58.     "\nLicense along with this program; if not, write to the Free Software"
  59.     "\nFoundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ";
  60.  
  61. char compile_date [] = __DATE__;
  62. char compile_time [] = __TIME__;
  63.  
  64. uCell
  65. pfe_version_code (void)
  66. /* return a magic-number identifiing the exact version */
  67. {
  68.   static char *str [] = { version_string, compile_date, compile_time };
  69.   uCell n = 0;
  70.   int i;
  71.   char *p;
  72.  
  73.   for (i = 0; i < DIM (str); i++)
  74.     for (p = str [i]; *p; p++)
  75.       n = n * 7 + *p - '@';
  76.   return n;
  77. }
  78.