annotate lib-src/=wakeup.c @ 25685:fc2bfab28ed7

Don't define-widget-keywords. (multimedia): New group. (custom-last): Function removed. (custom-quote): Add vectorp case, comment out characterp case. (custom-buffer-done-function, custom-raised-buttons): New option. (Custom-buffer-done): New function. (custom-buffer-create-internal): Obey custom-raised-buttons, Custom-buffer-done. (custom-button-face): Make it `released-button'. (custom-button-pressed-face): Make it `pressed-button' (custom-mode-map): Bind "q" to Custom-buffer-done. (custom-mode): Deal with raised/pressed buttons. Changes from Didier Verna: (custom-prompt-variable): Optional third arg makes prompt for a comment string. (customize-set-value, customize-set-variable, customize-save-variable): Optional prefix makes function handle variable comments. (customize-customized, customize-saved, custom-variable-state-set) (custom-variable-set, custom-variable-save, custom-face-state-set) (custom-variable-reset-saved, custom-variable-reset-standard) (custom-face-set, custom-face-save, custom-face-reset-saved) (custom-face-reset-standard, customize-save-customized): Handle custom comments. (custom-comment-face, custom-comment-tag-face): New face. (custom-comment): New widget. (custom-comment-create, custom-comment-delete) (custom-comment-value-set, custom-comment-show) ()custom-comment-invisible-p): New functions. (custom-variable-value-create, custom-face-value-create): Create a comment field widget. (custom-variable-menu, custom-face-menu): New entry for custom comment. (custom-face-value-create): Remove compatibility code. (custom-save-variables, custom-save-faces): Possibly save custom comments.
author Dave Love <fx@gnu.org>
date Mon, 13 Sep 1999 13:44:41 +0000
parents f41d9619ffc4
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
77
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
1 /* Program to produce output at regular intervals. */
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
2
15104
f41d9619ffc4 [HAVE_CONFIG_H]: Only include config.h when defined.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
3 #ifdef HAVE_CONFIG_H
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4127
diff changeset
4 #include <config.h>
15104
f41d9619ffc4 [HAVE_CONFIG_H]: Only include config.h when defined.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
5 #endif
4127
d253c8a4b7e5 * wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents: 3572
diff changeset
6
77
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
7 #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
8 #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
9
d253c8a4b7e5 * wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents: 3572
diff changeset
10 #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
11 #include <sys/time.h>
77
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
12 #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
13 #else
d253c8a4b7e5 * wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents: 3572
diff changeset
14 #ifdef HAVE_SYS_TIME_H
3437
274570106c6a Include sys/time.h.
Richard M. Stallman <rms@gnu.org>
parents: 3336
diff changeset
15 #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
16 #else
d253c8a4b7e5 * wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents: 3572
diff changeset
17 #include <time.h>
d253c8a4b7e5 * wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents: 3572
diff changeset
18 #endif
d253c8a4b7e5 * wakeup.c: Use CPP tangle from autoconf manual to #include the
Jim Blandy <jimb@redhat.com>
parents: 3572
diff changeset
19 #endif
77
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
20
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
21 struct tm *localtime ();
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
22
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 4696
diff changeset
23 void
77
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
24 main (argc, argv)
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
25 int argc;
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
26 char **argv;
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
27 {
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
28 int period = 60;
3336
44df7395bed8 (main): Make when a time_t.
Richard M. Stallman <rms@gnu.org>
parents: 366
diff changeset
29 time_t when;
77
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
30 struct tm *tp;
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
31
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
32 if (argc > 1)
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
33 period = atoi (argv[1]);
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
34
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
35 while (1)
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
36 {
366
f756ede77561 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 77
diff changeset
37 /* Make sure wakeup stops when Emacs goes away. */
f756ede77561 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 77
diff changeset
38 if (getppid () == 1)
f756ede77561 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 77
diff changeset
39 exit (0);
77
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
40 printf ("Wake up!\n");
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
41 fflush (stdout);
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
42 /* If using a period of 60, produce the output when the minute
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
43 changes. */
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
44 if (period == 60)
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
45 {
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
46 time (&when);
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
47 tp = localtime (&when);
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
48 sleep (60 - tp->tm_sec);
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
49 }
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
50 else
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
51 sleep (period);
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
52 }
f2a4b896fcf4 Initial revision
David J. MacKenzie <djm@gnu.org>
parents:
diff changeset
53 }