Add NUL-termination to some uses of strncpy.
[emacs.git] / lib-src / profile.c
blob8ed4f3189748e6e119bfc9143e88a0f84e1e27c4
1 /* profile.c --- generate periodic events for profiling of Emacs Lisp code.
2 Copyright (C) 1992, 1994, 1999, 2001-2012 Free Software Foundation, Inc.
4 Author: Boaz Ben-Zvi <boaz@lcs.mit.edu>
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
22 /**
23 ** To be run as an emacs process. Input string that starts with:
24 ** 'z' -- resets the watch (to zero).
25 ** 'p' -- return time (on stdout) as string with format <sec>.<micro-sec>
26 ** 'q' -- exit.
28 ** abstraction : a stopwatch
29 ** operations: reset_watch, get_time
31 #include <config.h>
32 #include <stdio.h>
33 #include <systime.h>
35 static EMACS_TIME TV1, TV2;
36 static int watch_not_started = 1; /* flag */
37 static char time_string[30];
39 /* Reset the stopwatch to zero. */
41 static void
42 reset_watch (void)
44 EMACS_GET_TIME (TV1);
45 watch_not_started = 0;
48 /* This call returns the time since the last reset_watch call. The time
49 is returned as a string with the format <seconds>.<micro-seconds>
50 If reset_watch was not called yet, exit. */
52 static char *
53 get_time (void)
55 if (watch_not_started)
56 exit (EXIT_FAILURE); /* call reset_watch first ! */
57 EMACS_GET_TIME (TV2);
58 EMACS_SUB_TIME (TV2, TV2, TV1);
59 sprintf (time_string, "%lu.%06lu", (unsigned long)EMACS_SECS (TV2), (unsigned long)EMACS_USECS (TV2));
60 return time_string;
63 #if ! defined (HAVE_GETTIMEOFDAY) && defined (HAVE_TIMEVAL)
65 /* ARGSUSED */
66 gettimeofday (tp, tzp)
67 struct timeval *tp;
68 struct timezone *tzp;
70 extern long time ();
72 tp->tv_sec = time ((long *)0);
73 tp->tv_usec = 0;
74 if (tzp != 0)
75 tzp->tz_minuteswest = -1;
78 #endif
80 int
81 main (void)
83 int c;
84 while ((c = getchar ()) != EOF)
86 switch (c)
88 case 'z':
89 reset_watch ();
90 break;
91 case 'p':
92 puts (get_time ());
93 break;
94 case 'q':
95 exit (EXIT_SUCCESS);
97 /* Anything remaining on the line is ignored. */
98 while (c != '\n' && c != EOF)
99 c = getchar ();
101 exit (EXIT_FAILURE);
105 /* profile.c ends here */