Mercurial > hg > octave-jordi > gnulib-hg

annotate lib/gethrxtime.c @ 18029:e4a13d95b503

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mgetgroups: port to strict OS X * doc/glibc-functions/getgrouplist.texi (getgrouplist): Document the getgrouplist problem. * lib/mgetgroups.c (getgrouplist_gids) [HAVE_GETGROUPLIST]: New macro. (mgetgroups): Use it. * m4/mgetgroups.m4 (gl_MGETGROUPS): Check for OS X signature for getgrouplist.
author Paul Eggert <eggert@cs.ucla.edu>
date Sun, 28 Jun 2015 23:43:35 -0700
parents ab58d4870664
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
1 /* gethrxtime -- get high resolution real time
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
2
17848
ab58d4870664 version-etc: new year
Paul Eggert <eggert@cs.ucla.edu>
parents: 17587
diff changeset
3 Copyright (C) 2005-2007, 2009-2015 Free Software Foundation, Inc.
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
4
9309
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 7897
diff changeset
5 This program is free software: you can redistribute it and/or modify
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
6 it under the terms of the GNU General Public License as published by
9309
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 7897
diff changeset
7 the Free Software Foundation; either version 3 of the License, or
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 7897
diff changeset
8 (at your option) any later version.
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
9
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
10 This program is distributed in the hope that it will be useful,
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
13 GNU General Public License for more details.
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
14
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
15 You should have received a copy of the GNU General Public License
9309
bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents: 7897
diff changeset
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
17
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
18 /* Written by Paul Eggert. */
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
19
7302
8a1a9361108c * _fpending.c: Include <config.h> unconditionally, since we no
Paul Eggert <eggert@cs.ucla.edu>
parents: 6449
diff changeset
20 #include <config.h>
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
21
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
22 #define GETHRXTIME_INLINE _GL_EXTERN_INLINE
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
23 #include "gethrxtime.h"
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
24
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
25 #if ! (HAVE_ARITHMETIC_HRTIME_T && HAVE_DECL_GETHRTIME)
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
26
7897
b7a83a69ac23 * MODULES.html.sh (Support for systems lacking POSIX:2001): New
Paul Eggert <eggert@cs.ucla.edu>
parents: 7302
diff changeset
27 #include <sys/time.h>
6449
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
28 #include "timespec.h"
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
29
6449
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
30 /* Get the current time, as a count of the number of nanoseconds since
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
31 an arbitrary epoch (e.g., the system boot time). Prefer a
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
32 high-resolution clock that is not subject to resetting or
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
33 drifting. */
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
34
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
35 xtime_t
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
36 gethrxtime (void)
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
37 {
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
38 # if HAVE_NANOUPTIME
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
39 {
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
40 struct timespec ts;
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
41 nanouptime (&ts);
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
42 return xtime_make (ts.tv_sec, ts.tv_nsec);
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
43 }
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
44 # else
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
45
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
46 # if defined CLOCK_MONOTONIC && HAVE_CLOCK_GETTIME
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
47 {
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
48 struct timespec ts;
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
49 if (clock_gettime (CLOCK_MONOTONIC, &ts) == 0)
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
50 return xtime_make (ts.tv_sec, ts.tv_nsec);
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
51 }
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
52 # endif
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
53
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
54 # if HAVE_MICROUPTIME
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
55 {
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
56 struct timeval tv;
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
57 microuptime (&tv);
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
58 return xtime_make (tv.tv_sec, 1000 * tv.tv_usec);
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
59 }
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
60
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
61 # else
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
62 /* No monotonically increasing clocks are available; fall back on a
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
63 clock that might jump backwards, since it's the best we can do. */
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
64 {
6449
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
65 struct timespec ts;
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
66 gettime (&ts);
232d8dc8525f * modules/gethrxtime (Depends-on): Add gettime.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5851
diff changeset
67 return xtime_make (ts.tv_sec, ts.tv_nsec);
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
68 }
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
69 # endif
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
70 # endif
17176
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
71 }
fe213f3f2c57 gethrxtime: better 'inline'
Paul Eggert <eggert@cs.ucla.edu>
parents: 16201
diff changeset
72
5662
42df9db003cc * modules/gethrxtime: New file.
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
73 #endif