Mercurial > emacs
annotate lib-src/=wakeup.c @ 15013:aad88afa6a0c libc-960413 libc-960414 libc-960415 libc-960416 libc-960417 libc-960418 libc-960419 libc-960420 libc-960421 libc-960422 libc-960423 libc-960424 libc-960425 libc-960426 libc-960427 libc-960428 libc-960429 libc-960430 libc-960501 libc-960502 libc-960503 libc-960504 libc-960505 libc-960506 libc-960507 libc-960508 libc-960509 libc-960510 libc-960511 libc-960512 libc-960513 libc-960514 libc-960515 libc-960516 libc-960517 libc-960518 libc-960519 libc-960520
* config.guess: Combine two OSF1 rules.
Also recognize field test versions. From mjr@zk3.dec.com.
* config.guess (dgux): Use /usr/bin/uname rather than uname,
because GNU uname does not support -p. From pmr@pajato.com.
author | Per Bothner <bothner@cygnus.com> |
---|---|
date | Sat, 13 Apr 1996 00:06:54 +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 } |