libguile/version.c

   1 /*      Copyright (C) 1995,1996, 1999, 2000, 2001, 2006 Free Software Foundation, Inc.
   2  *
   3  * This library is free software; you can redistribute it and/or
   4  * modify it under the terms of the GNU Lesser General Public
   5  * License as published by the Free Software Foundation; either
   6  * version 2.1 of the License, or (at your option) any later version.
   7  *
   8  * This library is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11  * Lesser General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU Lesser General Public
  14  * License along with this library; if not, write to the Free Software
  15  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  16  */
  17
  18
  19 \f
  20
  21 #include <stdio.h>
  22 #include "libguile/_scm.h"
  23 #include "libguile/strings.h"
  24
  25 #include "libguile/version.h"
  26 \f
  27
  28 #define SCM_TMP_MACRO_MKSTR(x) #x
  29
  30 /* Return a Scheme string containing Guile's major version number.  */
  31
  32 SCM_DEFINE (scm_major_version, "major-version", 0, 0, 0,
  33             (),
  34             "Return a string containing Guile's major version number.\n"
  35             "E.g., the 1 in \"1.6.5\".")
  36 #define FUNC_NAME s_scm_major_version
  37 {
  38   return scm_number_to_string (scm_from_int (SCM_MAJOR_VERSION),
  39                                scm_from_int (10));
  40 }
  41 #undef FUNC_NAME
  42
  43 /* Return a Scheme string containing Guile's minor version number.  */
  44
  45 SCM_DEFINE (scm_minor_version, "minor-version", 0, 0, 0,
  46             (),
  47             "Return a string containing Guile's minor version number.\n"
  48             "E.g., the 6 in \"1.6.5\".")
  49 #define FUNC_NAME s_scm_minor_version
  50 {
  51   return scm_number_to_string (scm_from_int (SCM_MINOR_VERSION),
  52                                scm_from_int (10));
  53 }
  54 #undef FUNC_NAME
  55
  56 /* Return a Scheme string containing Guile's micro version number.  */
  57
  58 SCM_DEFINE (scm_micro_version, "micro-version", 0, 0, 0,
  59             (),
  60             "Return a string containing Guile's micro version number.\n"
  61             "E.g., the 5 in \"1.6.5\".")
  62 #define FUNC_NAME s_scm_micro_version
  63 {
  64   return scm_number_to_string (scm_from_int (SCM_MICRO_VERSION),
  65                                scm_from_int (10));
  66 }
  67 #undef FUNC_NAME
  68
  69 /* Return a Scheme string containing Guile's complete version.  */
  70
  71 SCM_DEFINE (scm_version, "version", 0, 0, 0,
  72             (),
  73             "@deffnx {Scheme Procedure} major-version\n"
  74             "@deffnx {Scheme Procedure} minor-version\n"
  75             "@deffnx {Scheme Procedure} micro-version\n"
  76             "Return a string describing Guile's version number, or its major, minor\n"
  77             "or micro version number, respectively.\n\n"
  78             "@lisp\n"
  79             "(version) @result{} \"1.6.0\"\n"
  80             "(major-version) @result{} \"1\"\n"
  81             "(minor-version) @result{} \"6\"\n"
  82             "(micro-version) @result{} \"0\"\n"
  83             "@end lisp")
  84 #define FUNC_NAME s_scm_version
  85 {
  86
  87   char version_str[3 * 4 + 3];
  88
  89 #if SCM_MAJOR_VERSION > 9999 \
  90     || SCM_MINOR_VERSION > 9999 \
  91     || SCM_MICRO_VERSION > 9999
  92 # error version string may overflow buffer
  93 #endif
  94   sprintf (version_str, "%d.%d.%d",
  95            SCM_MAJOR_VERSION,
  96            SCM_MINOR_VERSION,
  97            SCM_MICRO_VERSION);
  98   return scm_from_locale_string (version_str);
  99 }
 100 #undef FUNC_NAME
 101
 102 /* Return a Scheme string containing Guile's effective version.  */
 103
 104 SCM_DEFINE (scm_effective_version, "effective-version", 0, 0, 0,
 105             (),
 106             "Return a string describing Guile's effective version number.\n"
 107             "@lisp\n"
 108             "(version) @result{} \"1.6.0\"\n"
 109             "(effective-version) @result{} \"1.6\"\n"
 110             "(major-version) @result{} \"1\"\n"
 111             "(minor-version) @result{} \"6\"\n"
 112             "(micro-version) @result{} \"0\"\n"
 113             "@end lisp")
 114 #define FUNC_NAME s_scm_effective_version
 115 {
 116
 117   char version_str[2 * 4 + 3];
 118
 119 #if (SCM_MAJOR_VERSION > 9999 || SCM_MINOR_VERSION > 9999)
 120 # error version string may overflow buffer
 121 #endif
 122   sprintf (version_str, "%d.%d", SCM_MAJOR_VERSION, SCM_MINOR_VERSION);
 123   return scm_from_locale_string (version_str);
 124 }
 125 #undef FUNC_NAME
 126
 127 \f
 128
 129
 130 void
 131 scm_init_version ()
 132 {
 133 #include "libguile/version.x"
 134 }
 135
 136 /*
 137   Local Variables:
 138   c-file-style: "gnu"
 139   End:
 140 */