mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

version.h has SCM_EFFECTIVE_VERSION; effective-version uses that

Browse source 
* libguile/version.c (scm_effective_version): Use SCM_EFFECTIVE_VERSION.
* libguile/version.h.in (SCM_EFFECTIVE_VERSION): Define from
  GUILE_EFFECTIVE_VERSION.

* libguile/Makefile.am (version.h): Subst in GUILE_EFFECTIVE_VERSION.

* test-suite/tests/version.test ("version reporting works"): The
  effective version is not necessarily MAJOR.MINOR. Remove check.
This commit is contained in:
Andy Wingo 2010-03-16 20:58:24 +01:00
parent 462bcfd038
commit 89607fab50
4 changed files with 8 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/Makefile.am
View file

@ -604,7 +604,8 @@ version.h: version.h.in $(top_builddir)/config.status
sed < $(srcdir)/version.h.in > $@.tmp \
-e s:@-GUILE_MAJOR_VERSION-@:${GUILE_MAJOR_VERSION}: \
-e s:@-GUILE_MINOR_VERSION-@:${GUILE_MINOR_VERSION}: \
-e s:@-GUILE_MICRO_VERSION-@:${GUILE_MICRO_VERSION}:
-e s:@-GUILE_MICRO_VERSION-@:${GUILE_MICRO_VERSION}: \
-e s:@-GUILE_EFFECTIVE_VERSION-@:${GUILE_EFFECTIVE_VERSION}:
mv $@.tmp $@
## FIXME: Consider using timestamp file, to avoid unnecessary rebuilds.

11
libguile/version.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996, 1999, 2000, 2001, 2006, 2008 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996, 1999, 2000, 2001, 2006, 2008, 2010 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -105,14 +105,7 @@ SCM_DEFINE (scm_effective_version, "effective-version", 0, 0, 0,
"@end lisp")
#define FUNC_NAME s_scm_effective_version
{
char version_str[2 * 4 + 3];
#if (SCM_MAJOR_VERSION > 9999 || SCM_MINOR_VERSION > 9999)
# error version string may overflow buffer
#endif
sprintf (version_str, "%d.%d", SCM_MAJOR_VERSION, SCM_MINOR_VERSION);
return scm_from_locale_string (version_str);
return scm_from_locale_string (SCM_EFFECTIVE_VERSION);
}
#undef FUNC_NAME

3
libguile/version.h.in
View file

@ -3,7 +3,7 @@
#ifndef SCM_VERSION_H
#define SCM_VERSION_H
/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2006, 2008 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2006, 2008, 2010 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -30,6 +30,7 @@
#define SCM_MAJOR_VERSION @-GUILE_MAJOR_VERSION-@
#define SCM_MINOR_VERSION @-GUILE_MINOR_VERSION-@
#define SCM_MICRO_VERSION @-GUILE_MICRO_VERSION-@
#define SCM_EFFECTIVE_VERSION "@-GUILE_EFFECTIVE_VERSION-@"
SCM_API SCM scm_major_version (void);
SCM_API SCM scm_minor_version (void);

7
test-suite/tests/version.test
View file

@ -1,7 +1,7 @@
;;;; versions.test --- test suite for Guile's version functions -*- scheme -*-
;;;; Greg J. Badros <gjb@cs.washington.edu>
;;;;
;;;; Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; Copyright (C) 2000, 2001, 2006, 2010 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@ -26,7 +26,4 @@
(string=? (version)
(string-append (major-version) "."
(minor-version) "."
(micro-version)))
(string=? (effective-version)
(string-append (major-version) "."
(minor-version)))))
(micro-version)))))