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

* version.c (scm_effective_version): new function, also add

Browse source 
effective-version.
This commit is contained in:
Rob Browning 2002-12-09 00:46:24 +00:00
parent 020bc83889
commit ccf01e3eaf
1 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
libguile/version.c
View file

@ -123,6 +123,31 @@ SCM_DEFINE (scm_version, "version", 0, 0, 0,
}
#undef FUNC_NAME
/* Return a Scheme string containing Guile's effective version. */
SCM_DEFINE (scm_effective_version, "effective-version", 0, 0, 0,
(),
"Return a string describing Guile's effective version number.\n"
"@lisp\n"
"(version) @result{} \"1.6.0\"\n"
"(effective-version) @result{} \"1.6\"\n"
"(major-version) @result{} \"1\"\n"
"(minor-version) @result{} \"6\"\n"
"(micro-version) @result{} \"0\"\n"
"@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_makfrom0str (version_str);
}
#undef FUNC_NAME