Mercurial > emacs
annotate lib-src/=wakeup.c @ 12076:ee38e93ccf7e
(Fkill_buffer): When killing indirect buffer,
unchain that buffer's markers (only) from the common chain.
Don't rekill this buffer's indirect buffers that are dead.
Do nothing if this buffer is already dead.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 05 Jun 1995 17:32:51 +0000 |
parents | dd3b83e4ceb0 |
children | f41d9619ffc4 |
rev | line source |
---|---|
77 | 1 /* Program to produce output at regular intervals. */ |
2 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4127
diff
changeset
|
3 #include <config.h> |
4127
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
4 |
77 | 5 #include <stdio.h> |
4127
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
6 #include <sys/types.h> |
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
7 |
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
8 #ifdef TIME_WITH_SYS_TIME |
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
9 #include <sys/time.h> |
77 | 10 #include <time.h> |
4127
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
11 #else |
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
12 #ifdef HAVE_SYS_TIME_H |
3437 | 13 #include <sys/time.h> |
4127
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
14 #else |
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
15 #include <time.h> |
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
16 #endif |
d253c8a4b7e5
* wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents:
3572
diff
changeset
|
17 #endif |
77 | 18 |
19 struct tm *localtime (); | |
20 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
4696
diff
changeset
|
21 void |
77 | 22 main (argc, argv) |
23 int argc; | |
24 char **argv; | |
25 { | |
26 int period = 60; | |
3336
44df7395bed8
(main): Make when a time_t.
Richard M. Stallman <rms@gnu.org>
parents:
366
diff
changeset
|
27 time_t when; |
77 | 28 struct tm *tp; |
29 | |
30 if (argc > 1) | |
31 period = atoi (argv[1]); | |
32 | |
33 while (1) | |
34 { | |
366 | 35 /* Make sure wakeup stops when Emacs goes away. */ |
36 if (getppid () == 1) | |
37 exit (0); | |
77 | 38 printf ("Wake up!\n"); |
39 fflush (stdout); | |
40 /* If using a period of 60, produce the output when the minute | |
41 changes. */ | |
42 if (period == 60) | |
43 { | |
44 time (&when); | |
45 tp = localtime (&when); | |
46 sleep (60 - tp->tm_sec); | |
47 } | |
48 else | |
49 sleep (period); | |
50 } | |
51 } |