Improve error handling in tramp-adb.el
[emacs.git] / lib-src / profile.c
blobffaa2256567dfe2dc9e6f9cd85e12677aa8da94d
1 /* profile.c --- generate periodic events for profiling of Emacs Lisp code.
2 Copyright (C) 1992, 1994, 1999, 2001-2015 Free Software Foundation,
3 Inc.
5 Author: Boaz Ben-Zvi <boaz@lcs.mit.edu>
7 This file is part of GNU Emacs.
9 GNU Emacs is free software: you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation, either version 3 of the License, or
12 (at your option) any later version.
14 GNU Emacs is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
23 /**
24 ** To be run as an emacs subprocess. Input string that starts with:
25 ** 'z' -- resets the watch (to zero).
26 ** 'p' -- return time (on stdout) as string with format <sec>.<micro-sec>
27 ** 'q' -- exit.
29 ** abstraction : a stopwatch
30 ** operations: reset_watch, get_time
33 #define INLINE EXTERN_INLINE
34 #include <config.h>
36 #include <inttypes.h>
37 #include <stdio.h>
39 #include <intprops.h>
40 #include <systime.h>
42 static struct timespec TV1;
43 static int watch_not_started = 1; /* flag */
44 static char time_string[INT_STRLEN_BOUND (uintmax_t) + sizeof "."
45 + LOG10_TIMESPEC_RESOLUTION];
47 /* Reset the stopwatch to zero. */
49 static void
50 reset_watch (void)
52 TV1 = current_timespec ();
53 watch_not_started = 0;
56 /* This call returns the time since the last reset_watch call. The time
57 is returned as a string with the format <seconds>.<nanoseconds>
58 If reset_watch was not called yet, exit. */
60 static char *
61 get_time (void)
63 struct timespec TV2 = timespec_sub (current_timespec (), TV1);
64 uintmax_t s = TV2.tv_sec;
65 int ns = TV2.tv_nsec;
66 if (watch_not_started)
67 exit (EXIT_FAILURE); /* call reset_watch first ! */
68 sprintf (time_string, "%"PRIuMAX".%0*d", s, LOG10_TIMESPEC_RESOLUTION, ns);
69 return time_string;
72 int
73 main (void)
75 int c;
76 while ((c = getchar ()) != EOF)
78 switch (c)
80 case 'z':
81 reset_watch ();
82 break;
83 case 'p':
84 puts (get_time ());
85 break;
86 case 'q':
87 exit (EXIT_SUCCESS);
89 /* Anything remaining on the line is ignored. */
90 while (c != '\n' && c != EOF)
91 c = getchar ();
93 exit (EXIT_FAILURE);
97 /* profile.c ends here */