X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/102dbb6f6ccf69badcb2215259d755136b19fe89..a50eda40dfca0461d7ad6f013fa55d2c14f1d2c6:/libguile/stime.h diff --git a/libguile/stime.h b/libguile/stime.h index c64c60ea9..e41f79730 100644 --- a/libguile/stime.h +++ b/libguile/stime.h @@ -3,53 +3,32 @@ #ifndef SCM_STIME_H #define SCM_STIME_H -/* Copyright (C) 1995,1996,1997,1998,2000, 2003, 2006, 2008 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,2000, 2003, 2006, 2008, 2011 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 as published by the Free Software Foundation; either - * version 2.1 of the License, or (at your option) any later version. + * modify it under the terms of the GNU Lesser General Public License + * as published by the Free Software Foundation; either version 3 of + * the License, or (at your option) any later version. * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of + * This library is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software - * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA + * 02110-1301 USA */ #include "libguile/__scm.h" -#include /* for sysconf */ - -/* This should be figured out by autoconf. - - sysconf(_SC_CLK_TCK) is best, since it's the actual running kernel, not - some compile-time CLK_TCK. On glibc 2.3.2 CLK_TCK (when defined) is in - fact sysconf(_SC_CLK_TCK) anyway. - - CLK_TCK is obsolete in POSIX. In glibc 2.3.2 it's defined by default, - but if you define _GNU_SOURCE or _POSIX_C_SOURCE to get other features - then it goes away. */ - -#if ! defined(SCM_TIME_UNITS_PER_SECOND) && defined(_SC_CLK_TCK) -# define SCM_TIME_UNITS_PER_SECOND ((int) sysconf (_SC_CLK_TCK)) -#endif -#if ! defined(SCM_TIME_UNITS_PER_SECOND) && defined(CLK_TCK) -# define SCM_TIME_UNITS_PER_SECOND ((int) CLK_TCK) -#endif -#if ! defined(SCM_TIME_UNITS_PER_SECOND) && defined(CLOCKS_PER_SEC) -# define SCM_TIME_UNITS_PER_SECOND ((int) CLOCKS_PER_SEC) -#endif -#if ! defined(SCM_TIME_UNITS_PER_SECOND) -# define SCM_TIME_UNITS_PER_SECOND 60 -#endif +SCM_API long scm_c_time_units_per_second; +#define SCM_TIME_UNITS_PER_SECOND scm_c_time_units_per_second SCM_API long scm_c_get_internal_run_time (void);