annotate src/atimer.h @ 94951:7fed06569abe

("Japanese"): Set `iso639-language' property to `ja'.
author Kenichi Handa <handa@m17n.org>
date Wed, 14 May 2008 01:54:09 +0000
parents fc2bcd2a8aad
children 606f2d163a64 29adfc9354e7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 /* Asynchronous timers.
75227
e90d04cd455a Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 68651
diff changeset
2 Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
3 2006, 2007, 2008 Free Software Foundation, Inc.
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
4
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
78260
922696f363b0 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75227
diff changeset
9 the Free Software Foundation; either version 3, or (at your option)
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10 any later version.
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
15 GNU General Public License for more details.
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 56135
diff changeset
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 56135
diff changeset
20 Boston, MA 02110-1301, USA. */
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21
29927
cc1255965fcc Protect against multiple inclusion. Include
Dave Love <fx@gnu.org>
parents: 27671
diff changeset
22 #ifndef EMACS_ATIMER_H
cc1255965fcc Protect against multiple inclusion. Include
Dave Love <fx@gnu.org>
parents: 27671
diff changeset
23 #define EMACS_ATIMER_H
cc1255965fcc Protect against multiple inclusion. Include
Dave Love <fx@gnu.org>
parents: 27671
diff changeset
24
52539
70b6f248b802 Don't include lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
25 /* Declare the prototype for a general external function. */
70b6f248b802 Don't include lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
26 #if defined (PROTOTYPES) || defined (WINDOWSNT)
70b6f248b802 Don't include lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
27 #define P_(proto) proto
70b6f248b802 Don't include lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
28 #else
70b6f248b802 Don't include lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
29 #define P_(proto) ()
70b6f248b802 Don't include lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
30 #endif
70b6f248b802 Don't include lisp.h.
Richard M. Stallman <rms@gnu.org>
parents: 52401
diff changeset
31
29927
cc1255965fcc Protect against multiple inclusion. Include
Dave Love <fx@gnu.org>
parents: 27671
diff changeset
32 #include "systime.h" /* for EMACS_TIME */
cc1255965fcc Protect against multiple inclusion. Include
Dave Love <fx@gnu.org>
parents: 27671
diff changeset
33
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 /* Forward declaration. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 struct atimer;
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
37
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
38 /* Types of timers. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 enum atimer_type
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
41 {
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 /* Timer is ripe at some absolute time. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 ATIMER_ABSOLUTE,
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 /* Timer is ripe at now plus an offset. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46 ATIMER_RELATIVE,
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 /* Timer runs continously. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 ATIMER_CONTINUOUS
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 };
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 /* Type of timer callback functions. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 typedef void (* atimer_callback) P_ ((struct atimer *timer));
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 /* Structure describing an asynchronous timer. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 struct atimer
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 {
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 /* The type of this timer. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 enum atimer_type type;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 39667
diff changeset
62
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 /* Time when this timer is ripe. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
64 EMACS_TIME expiration;
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 /* Interval of this timer. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 EMACS_TIME interval;
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
68
39667
7ca787d18982 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 29927
diff changeset
69 /* Function to call when timer is ripe. Interrupt input is
7ca787d18982 *** empty log message ***
Pavel Janík <Pavel@Janik.cz>
parents: 29927
diff changeset
70 guaranteed to not be blocked when this function is called. */
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 atimer_callback fn;
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 /* Additional user-specified data to pass to FN. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 void *client_data;
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76 /* Next in list of active or free atimers. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 struct atimer *next;
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78 };
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80 /* Function prototypes. */
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
82 struct atimer *start_atimer P_ ((enum atimer_type, EMACS_TIME,
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 atimer_callback, void *));
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84 void cancel_atimer P_ ((struct atimer *));
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 void do_pending_atimers P_ ((void));
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86 void init_atimer P_ ((void));
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
87 void turn_on_atimers P_ ((int));
27671
466a99bee7fd (stop_other_atimers, run_all_atimers)
Gerd Moellmann <gerd@gnu.org>
parents: 27433
diff changeset
88 void stop_other_atimers P_ ((struct atimer *));
466a99bee7fd (stop_other_atimers, run_all_atimers)
Gerd Moellmann <gerd@gnu.org>
parents: 27433
diff changeset
89 void run_all_atimers P_ ((void));
466a99bee7fd (stop_other_atimers, run_all_atimers)
Gerd Moellmann <gerd@gnu.org>
parents: 27433
diff changeset
90 Lisp_Object unwind_stop_other_atimers P_ ((Lisp_Object));
27433
87dcc6a2c31b *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91
29927
cc1255965fcc Protect against multiple inclusion. Include
Dave Love <fx@gnu.org>
parents: 27671
diff changeset
92 #endif /* EMACS_ATIMER_H */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52275
diff changeset
93
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52275
diff changeset
94 /* arch-tag: 02c7c1c8-45bd-4222-b874-4ca44662f60b
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52275
diff changeset
95 (do not change this comment) */