mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
4a42658f6a
* libguile/stime.h (SCM_TIME_UNITS_PER_SECOND): Redefine to point to a C variable instead of being a pure preprocessor thing. This has the possibility to break existing compiled C extensions' interpretation of the internal-time-units-per-second, but hopefully there's no too much of that code out there, and in the worst case they can just recompile. Scheme code will get it right without the need to recompile. * libguile/stime.c (TIME_UNITS_PER_SECOND): New local define, and increase to nanosecond resolution if we are on a system in which this is useful and practical. (time_from_seconds_and_nanoseconds): New helper. (get_internal_real_time, get_internal_run_time): New global vars: function pointers. (get_internal_real_time_posix_timer): (get_internal_run_time_posix_timer): (get_internal_real_time_gettimeofday): (get_internal_run_time_times): (get_internal_real_time_fallback): Various implementations. (scm_get_internal_real_time): Return the get_internal_real_time() result. (scm_c_get_internal_run_time): Likewise. (scm_gettimeofday): No need for a critical section, and remove obsolete ftime block. (scm_init_stime): Init all of the new time bases, and decide on implementations of real time and run time accessors.
54 lines
1.6 KiB
C
54 lines
1.6 KiB
C
/* classes: h_files */
|
||
|
||
#ifndef SCM_STIME_H
|
||
#define SCM_STIME_H
|
||
|
||
/* 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 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
|
||
* 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
|
||
*/
|
||
|
||
|
||
|
||
#include "libguile/__scm.h"
|
||
|
||
|
||
|
||
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);
|
||
SCM_API SCM scm_get_internal_real_time (void);
|
||
SCM_API SCM scm_get_internal_run_time (void);
|
||
SCM_API SCM scm_current_time (void);
|
||
SCM_API SCM scm_gettimeofday (void);
|
||
SCM_API SCM scm_localtime (SCM time, SCM zone);
|
||
SCM_API SCM scm_gmtime (SCM time);
|
||
SCM_API SCM scm_mktime (SCM sbd_time, SCM zone);
|
||
SCM_API SCM scm_tzset (void);
|
||
SCM_API SCM scm_times (void);
|
||
SCM_API SCM scm_strftime (SCM format, SCM stime);
|
||
SCM_API SCM scm_strptime (SCM format, SCM string);
|
||
SCM_INTERNAL void scm_init_stime (void);
|
||
|
||
#endif /* SCM_STIME_H */
|
||
|
||
/*
|
||
Local Variables:
|
||
c-file-style: "gnu"
|
||
End:
|
||
*/
|