xalarm-3.06/ 755 164 12 0 6003737544 5676 xalarm-3.06/fullpath 755 164 12 2256 6000761305 7522 #!/bin/sh PATH="$PATH:/bin:/usr/bin:/usr/local/bin:/usr/ucb:/usr/local:/usr/lbin:/etc:/usr/new:/usr/new/bin:/usr/nbin:/usr/games:/usr/local/lib/emacs/etc:/usr/local/emacs/etc." export PATH case "$1" in -quick) mode=-quick shift;; *) mode=;; esac which=$1 shift case "$which" in WHICH) loc=`which $1 2>/dev/null`;; LOCATE) loc=`locate "*/$1" 2>/dev/null`;; FIND) path=`echo $PATH | sed 's/:/ /g'` for i in $path; do loc=`find $i/ -name $1 -type f -print 2>/dev/null \ | head -1` if test "$loc"; then break fi done;; *) echo "fullpath: Cannot find command location with \"$which\"." exit;; esac case "$loc" in # For a Tek: "command is /"*) loc=`echo $loc | sed 's/command is //'`;; # For normal whiches: "$1"*|"no $1"*|"command is "*) loc=;; esac if test ! "$loc" = "" -a "$mode" = "-quick"; then echo Assuming $1 is $loc. >&2 else echo -n "Where is your \"$1\"? [$loc] " >&2 read ans if test ! "$ans" = ""; then loc=$ans fi if test "$loc" = ""; then loc=$1 fi if test -d "$loc"; then case "$loc" in *"/") loc=$loc$1;; *) loc=$loc/$1;; esac fi if test ! -f "$loc"; then echo Warning: \"$loc\" does not exist. >&2 fi fi echo $loc xalarm-3.06/COPYRIGHT 644 164 12 1443 6000762146 7251 Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. = "" -a "$mode" = "-quick"; then echo Assuming $1 is $loc. >&2 else echo -n "Where is your \"$1\"? [$loc] " >&2 read ans if test ! "$ans" = ""; then loc=$ans fi if test "$loc" = ""; then loc=$1 fi if test -dxalarm-3.06/file.c 644 164 12 20426 6000764446 7070 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * Deal with the appointments alarm file. */ #include "xalarm.h" #include "dates.h" #include /* * We use fcntl() to lock files, or we can use flock() or lockf(): */ #if defined (USEFLOCK) #include #elif defined (USELOCKF) #include #elif not defined (SEEK_SET) #define SEEK_SET 0 #endif #define ALARMFILEFORMAT "\n%s %s %2d - %s\t%s\n" #define DIALOGVALUE(str, widget) (str = \ XawDialogGetValueString (widget), \ str = XtNewString (str)) #define UPCASE(ch) (((ch) >= 'a') and ((ch) <= 'z') ? \ ((ch) - 'a' + 'A') : (ch)) void SaveAlarmSettings(), AlarmDying(), RestartDiedAlarms(); int ParseAlarmFile(); static Boolean SaveAlarm(); static void RenameFile(); extern Boolean AppointmentWithin(); extern long TimeToMilliSeconds(); extern unsigned long DateToMilliSeconds(); extern String ReplaceNewlines(), HomeDirectory(), DisplayName(), getenv(); extern void DoAlarm(), EditedText(), MakeConfirmMessage(), EnsureNotGrownOffScreen(); extern FORKRET fork(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Parse each line of the alarm file, if it's around. If the * appointment is within that given, fork and do the alarm. Returns * number forked. */ int ParseAlarmFile (days, argv, argc) String *argv; int days, argc; { FILE *file; String timestr, datestr, alarmfilepath = getenv ("XALARMFILEPATH"), home = HomeDirectory (); Boolean failed = True; char alarmpath[TEXT], filename[TEXT], line[TEXT]; int newargc, endofdate, start, finish = 0, kids = 0; (void) sprintf (alarmpath, "%s/.xalarms", HomeDirectory ()); if (NONNIL (String, alarmfilepath)) (void) sprintf (ENDOF (alarmpath), ":%s", alarmfilepath); do { /* * Try each file in the path list. */ start = finish; while ((alarmpath[finish] != '\0') and (alarmpath[finish] != ':')) finish++; if (alarmpath[start] == '/') { (void) strncpy (filename, alarmpath+start, finish-start); filename[finish-start] = '\0'; } else { (void) sprintf (filename, "%s/", home); (void) strncpy (ENDOF (filename), alarmpath+start, finish-start); filename[finish-start + strlen (home)+1] = '\0'; } if (NONNIL (FILE *, (file = fopen (filename, "r")))) { /* * Deal with this file. */ failed = False; while (NONNIL (String, fgets (line, TEXT, file))) { endofdate = 0; if (AppointmentWithin (days, line, ×tr, &datestr, &endofdate)) { while (isspace (line[endofdate])) endofdate++; newargc = argc; argv[newargc++] = XtNewString ("-time"); argv[newargc++] = timestr; argv[newargc++] = XtNewString ("-date"); argv[newargc++] = datestr; if (line[endofdate] != '\0') { line[strlen (line) - 1] = '\0'; argv[newargc++] = line+endofdate; } switch ((int) fork ()) { case -1: perror ("xalarm"); exit (-1); case 0: DoAlarm (argv, newargc); default: kids++; } } } } while (alarmpath[finish] == ':') finish++; } while (alarmpath[finish] != '\0'); if (failed) fprintf (stderr, "Failed to open any of these alarm files:\n%s\n", alarmpath); return (kids); } /* * Save the alarm settings in the alarm file. */ void SaveAlarmSettings (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { String message; char buf[TEXT], filename[TEXT]; DIALOGVALUE (message, xalarm.confirmwidget); if (*message != '\0') XtVaSetValues (xalarm.messagewidget, XtNlabel, (XtArgVal) (xalarm.messagestr = message), NULL); MakeConfirmMessage (buf); (void) sprintf (filename, "%s/%s", HomeDirectory (), XALARMFILE); if (not SaveAlarm (filename)) (void) sprintf (ENDOF (buf), "\nCouldn't open %s", filename); else { (void) sprintf (ENDOF (buf), "\nSaved in %s", filename); EditedText ((Widget) NULL, (XtPointer) NULL, (XtPointer) False); } XtVaSetValues (xalarm.confirmwidget, XtNlabel, (XtArgVal) buf, NULL); EnsureNotGrownOffScreen (XtParent (XtParent (xalarm.confirmwidget))); } /* * Save the alarm in the alarm-died file. Can be resurrected later. */ void AlarmDying (display) Display *display; { char filename[TEXT]; if (xalarm.saveonshutdown) { (void) sprintf (filename, "%s/%s.died", HomeDirectory (), XALARMFILE); if (not SaveAlarm (filename)) (void) fprintf (stderr, "xalarm: Couldn't open %s\n", filename); } exit (0); } /* * Save the current alarm. */ static Boolean SaveAlarm (filename) String filename; { FILE *file; static char days[][4] = {WEEKDAYS}, months[][4] = {MONTHS}; #if not (defined (USEFLOCK) or defined (USELOCKF)) struct flock lock; #endif time_t now; struct tm *alarmtime; (void) umask (63); if (NONNIL (FILE *, (file = fopen (filename, "a")))) { #if defined (USEFLOCK) flock (fileno (file), LOCK_EX); #elif defined (USELOCKF) lockf (fileno (file), F_LOCK, (long) 0); #else lock.l_type = F_WRLCK; lock.l_whence = SEEK_SET; lock.l_start = lock.l_len = (long) 0; fcntl (fileno (file), F_SETFL, O_SYNC); fcntl (fileno (file), F_SETLKW, &lock); #endif (void) time (&now); now += ((TimeToMilliSeconds (xalarm.timestr) + DateToMilliSeconds (xalarm.datestr)) / MSECSIN1SEC); alarmtime = localtime (&now); days[alarmtime->tm_wday][0] = UPCASE (days[alarmtime->tm_wday][0]); months[alarmtime->tm_mon][0] = UPCASE (months[alarmtime->tm_mon][0]); #if defined (USELSEEK) lseek (fileno (file), (off_t) 0, L_XTND); #else fseek (file, (long) 0, 2); #endif (void) fprintf (file, ALARMFILEFORMAT, days[alarmtime->tm_wday], months[alarmtime->tm_mon], alarmtime->tm_mday, xalarm.timestr, ReplaceNewlines (xalarm.messagestr)); fflush (file); #if defined (USEFLOCK) flock (fileno (file), LOCK_UN); #elif defined (USELOCKF) lockf (fileno (file), F_ULOCK, (long) 0); #else lock.l_type = F_UNLCK; fcntl (fileno (file), F_SETLK, &lock); #endif fclose (file); } return (NONNIL (FILE *, file)); } /* * Check to see if there are any old alarms, then restart them. */ void RestartDiedAlarms (argv, argc) String *argv; int argc; { Display *display; char diedfilename[TEXT], livefilename[TEXT], tmp[TEXT]; int kids; (void) sprintf (diedfilename, "%s/%s.died", HomeDirectory (), XALARMFILE); if (access (diedfilename, R_OK) == 0) if (NIL (Display *, (display = XOpenDisplay (DisplayName (argv, argc))))) (void) fprintf (stderr, "xalarm: Can't open display to restart alarms.\n"); else { /* Save the current alarm file. */ (void) sprintf (livefilename, "%s/%s", HomeDirectory (), XALARMFILE); (void) sprintf (tmp, "%s/%s.%05d", HomeDirectory (), XALARMFILE, getpid ()); if (access (livefilename, R_OK) == 0) RenameFile (livefilename, tmp); RenameFile (diedfilename, livefilename); /* Parse this file as if it were the alarm file. */ xalarm.saveonshutdown = True; kids = ParseAlarmFile (MAXDAYS, argv, argc); while (kids-- > 0) (void) wait ((int *) NULL); (void) unlink (livefilename); /* Restore the alarm file. */ if (access (tmp, R_OK) == 0) RenameFile (tmp, livefilename); XCloseDisplay (display); } } /* * Rename the file. */ static void RenameFile (from, to) String from, to; { #if defined (USERENAME) (void) rename (from, to); #else (void) unlink (to); (void) link (from, to); (void) unlink (from); #endif } xalarm-3.06/xalarm.man 644 164 12 103240 6000764432 7775 .TH XALARM 1 "Release 5" "X Version 11" .SH "NAME" xalarm - alarm clock for .I X .LP xmemo - memo for .I X .LP xfortune - fortune for .I X .LP xyow - yow for .I X .SH "SYNOPSIS" .B xalarm [-\fItoolkitoption\fP ...] [-option ...] [message_text] .LP .B xmemo [-\fItoolkitoption\fP ...] [-option ...] message_text .LP .B xfortune [-\fItoolkitoption\fP ...] [-option ...] .LP .B xyow [-\fItoolkitoption\fP ...] [-option ...] .SH "DESCRIPTION" .I xalarm is an interactive alarm clock for the .I X(1) Window System, and is analogous to a combination of .I leave(1) and .I calendar(1), but much more powerful. You can set the alarm either on the command line or by using the popup window. At the appropriate time and date, .I xalarm pops up a window to tell you that your time is up. The time the alarm is to trigger may be a specific time or a time for .I xalarm to wait before triggering. The date may be a specific date or a number of days in the future. You can tell .I xalarm to pop up warning windows at specified times before the alarm is to trigger, in order to warn you of the impending triggering of the alarm, and specify what message you want the alarm to display. You can also make .I xalarm read alarm times and dates, along with the message to display in the alarm, from alarm files. This can be done once by .I xalarm, or you can make it read from the file periodically, as an .I xalarm daemon. This enables you to forget your regular or important appointments, but .I xalarm will tell you by popping up at the appropriate time. In the event that the current .I X session is terminated before .I xalarm has finished, .I xalarm saves its alarm (if it is not already in the alarm file) so that it will automatically be restarted the next time .I xalarm is invoked. Any daemons connected to the display will go away. This means that you can set an alarm even if you are likely to terminate the .I X session underwhich you are currently running before it triggers, and the alarm will still trigger on whatever display you are then connected to at the time. The alarm window itself consists of a box of buttons and an area containing the alarm message. To give you an opportunity to carry on after the alarm has triggered and be late anyway, .I xalarm allows you to snooze the alarm. For the completely absent-minded, .I xalarm can also repeatedly re-trigger after a specified interval. To help with setting the alarm, each popup displays the current time, and the alarm itself also displays the time since the alarm last triggered. .SH "USING XALARM TO SET AN ALARM" If no alarm time is specified, .I xalarm will pop up a window in order for an alarm time to be entered. This form is suitable for inclusion as a menu option under a window manager. The window is also popped up if an invalid alarm or warning time is given (see below for date and time syntax), or if you specify that confirmation should be sought before setting the alarm. The window gives you an opportunity to change the alarm setting, warning times, and the message .I xalarm will display when the alarm is triggered. The popup resizes itself to edit any message larger than the space given by default. The keymap used by the Athena Dialog widget is modelled on the text buffer keymap of the editor/environment .I emacs(1). Text may be entered when the pointer is anywhere within the popup. This popup window comprises of four separate windows, dealing with the alarm time, date, the warning time(s) and confirmation of all the settings (where you can also re-edit the alarm message). If the confirmation window is popped up, then you can re-edit the alarm time, date, or warning time(s) by switching through the windows using the .I edit buttons. Confirmation of a window's settings is made using the .I enter buttons, and the translations resource is set so that the .I return key will do the same thing. From the confirmation window you can also save the alarm settings in your own alarm file. You can make .I xalarm read alarms from this alarm file. If confirmation is not enabled, then the window for confirmation of all settings will not be popped up even if the other windows are. Also see the examples section. .SH "USING XALARM TO READ AN ALARM FILE" You can put alarms in alarm files. .I xalarm looks in .I ~/.xalarms and all the files in the colon separated list of files in the environment variable .I XALARMFILEPATH. This form is suitable for inclusion in your .I X start up or initialisation script. It is suited to those who start up .I X on a regular (eg. daily) basis. Each line in the file should consist of an optional date on which the alarm is to trigger, optionally followed the by time and/or message. If the time and/or date are/is specified, then they must be separated from the date by a `-' on its own. If both the time and message are given, the time must come first. If no date is specified, it is assumed to be today. If no time is specified, the alarm will trigger at the current time on whatever date is given. The format for entries in an alarm file is therefore: .PP .nf \fIdate [- [time] [message]]\fP or \fI - [time] [message]\fP .fi To make it easier to put entries into the alarm file, .I xalarm can create them for you. You can save settings by pressing the .I save button in the confirmation window when you have set the alarm that you want. The settings are saved in the alarm file .I ~/.xalarms. You can use .I XALARMFILEPATH to include alarms shared among a number of people. If a path in the list is not absolute, then it is assumed to be relative to your home directory. Blank lines and any line with `#' or `!' as the first character are ignored. This can be used to structure and comment the alarm file. All other command line options and resources still apply. See below for the date and time formats. Also see the examples section. .SH "USING A DAEMON TO READ AN ALARM FILE" An alternative to using the file option to search for alarms within a certain date, is to use an .I xalarm daemon. This form is suitable for inclusion in your .I X start up or initialisation script. It is suited to those whose .I X sessions typically span days. The daemon behaves in the same way as invoking .I xalarm with the file option, except that it periodically attempts to scan the alarm file(s). The interval between scanning may be a date in the form of .I +days, or one of the special symbols .I daily (equivalent to .I +1) or .I weekly. See below for more on date formats. Once started, the daemon immediately reads the alarm file(s), starting those alarms which are within the date given. It then sleeps until the number of days given ahead (on the following Sunday if given as .I weekly) at just passed midnight before trying again, ad infinitum. The daemon dies when the connection to the display is lost. Note that any .I xalarm processes that the daemon invokes will try to connect to the same display each time. If you move displays, .I xalarm cannot know. Also see the examples section. .SH "TIMES" The definition is that for times given with 3 or 4 digits, the last 2 digits are always assumed to be minutes. Absolute times may be suffixed with `am' or `pm', and are assumed to be in hours if given with 1 or 2 digits. Times relative to the present time must be prefixed by `+', and are assumed to be in minutes if given with 1 or 2 digits. The special symbols .I now and .I noon may also be used, and are equivalent to .I +0 and .I 12:00, respectively. Hours and minutes may be separated with `:', `.' or `-'. To prevent ambiguities, hours and minutes must be in their usual ranges. If a time of an hour or more is wanted, you must state it in hours and minutes. It is not possible to specify days in the time. The format is a super-set (by far) of the format recognised by .I leave(1). Also see the examples section. .SH "DATES" The date may be in the form of that given by .I date(1) (day of week, day of month, month, year), but can be in any order, need not be completely specified, and case is not significant. .I xalarm attempts to find the nearest real date which matches the date given. Alternatively, the date may be specified as the number of whole days into the future, by prefixing the number with `+'. The special symbols .I today, tomorrow and .I week may also be used, and these symbols may be combined. They are equivalent to .I +0, +1 and .I +7, respectively. Note that if there is more than one word in the date, then the date must be quoted to stop the shell treating them as separate arguments. When given as an argument to the .I -date option, .I week means ``seven days into the future''. However, when it is used as an argument to the .I -file or .I -daemon options, it means ``until the end of the current week'' (up to and including the coming Sunday), as in .I weekly. This is to make it easier to get .I xalarm to set all the alarms for the current week. Because the alarm is set in milliseconds, you cannot set an alarm for more than 49 days into the future (on the assumption that your machine has 32-bit unsigned longs). All symbols must consist of at least the first 3 characters of the name. Unlike .I calendar(1), tomorrow always means tomorrow. Also see the examples section. .SH "WARNINGS" When given, warnings are popped up at specified times before the alarm. You can also specify that a number of words from the alarm message should be displayed with any warnings, in case you've forgotten what you set it for. If none are to be used, the warning will only indicate when the alarm is due. Also see the examples section. .SH "RINGING" You can specify how .I xalarm announces itself, when either a warning or the alarm is popped up. Each of these events has a separate resource, which can be one of the special symbols .I bell, beep and .I quiet, or a shell script. The first two cause the terminal bell to be rung, and .I quiet does nothing. Otherwise it is assumed to be a shell script and is executed under a Bourne shell .I (sh(1)). You can also control the volume at which the terminal bell is rung. Note that if the script contains more than one word then the whole script must be quoted to stop the shell treating them as separate arguments. Also see the examples section. .SH "SNOOZING AND PESTERING" You can snooze the alarm and make it pester you, after the alarm has triggered. Snoozing is done by selecting a time to snooze using the .I +mins buttons (they can be pressed as often as necessary) and pressing the .I snooze button. The snooze time may be zeroed by clicking on the .I snoozetime button (it has these two functions; display and zero). For the really lazy, the initial value of .I snoozetime can be set either by the relevant command line option or by its resource. Pestering is done either by the relevant command line option or by its resource. The alarm will then re-popup after the specified interval, a bit like .I snooze on autopilot. Note that if you snooze the alarm, pestering is temporarily disabled and you will have to rely on the snoozed alarm. Also see the examples section. .SH "MORE ON XALARM" Even after you have set the alarm and confirmed it, you can reset the alarm as long as you know the .I xalarm process number. This can be found by using the command line option to list process numbers, or .I ps(1). .I xalarm makes maximum use of resources, as well as having a number of command line options, and these can be used to control most of the appearance of .I xalarm and (just about) all of its behaviour. Both command line options and useful resources are listed below. When .I xalarm is invoked it immediately attempts to fork off a child and exit itself, leaving the child to continue with the alarm. The child disappears when the .I X session on which display .I xalarm is using is terminated. You can exit from .I xalarm at any time by pressing the available .I quit button. .SH "XMEMO, XFORTUNE & XYOW" In reality, .I xmemo is just a front end to .I xalarm (implemented as .I xalarm -time now -date today), while .I xfortune and .I xyow are front ends to .I xmemo (implemented as .I xmemo \fI"\fP`fortune`\fI"\fP etc.). Options supplied to them on the command line still override these defaults, however. .PP Note that .I xfortune and .I xyow require .I fortune(6) and .I yow(6) respectively - .I yow(6) comes with .I emacs(1). Also note that since they are front ends to .I xmemo, you can actually give extra message text to include on the command line. If you specify a time in the future, you can edit the message text when asked to confirm (if enabled). .SH "OPTIONS" .I xalarm accepts all of the standard .I X Toolkit command line options along with the additional options listed below: .TP 8 .B \-help Print a (possibly) helpful usage message. .TP 8 .B \-version Print out the version number of .I xalarm in the form .I version.patchlevel. .TP 8 .B -restart[only] This option makes .I xalarm attempt only to restart those alarms which had not finished when a previous .I X session was terminated. .TP 8 .B \-kill \fIpid|all\fP This option sends a signal to the process number .I pid, or to all .I xalarm processes, on the current host. If the process is an .I xalarm, owned by you, it will exit. Note these are what .I ps(1) thinks are .I xalarm processes, and only on the current host. .TP 8 .B \-d[a]emon \fI+days|daily|weekly\fP This option starts a new .I xalarm daemon on the current host connected to the current display. See the above description for more on alarm files, dates and daemons. .TP 8 .B \-f[ile] \fI+days|date|today|tomorrow|weekly\fP This option makes .I xalarm read alarms from the alarm file(s). See the above description for more on the alarm file and dates. .TP 8 .B \-date \fI+days|date|today|tomorrow|week\fP This option indicates the date on which the alarm is to be triggered. See the above description for more on dates. .TP 8 .B \-t[ime] \fI+time|time|now|noon\fP This option indicates at what time the alarm is to be triggered. See the above description for more on times. .TP 8 .B \-w[arn] \fItime[,time...]\fP Indicate the time(s) before the alarm is due to trigger when a warning should be given. They need not be in any particular order, and should be in the same format as relative times, but without the preceding `+'. Note that multiple times must be separated by commas but without spaces. .TP 8 .B \-c[onfirm] This option overrides the resource value and forces .I xalarm to ask for confirmation, unless the alarm is due to trigger immediately. .TP 8 .B \-warnwords [\-ww] \fInumber_of_words\fP Indicate the number of words from the alarm message you wish to display with the warning. .TP 8 .B \-l[ist] List the process numbers of any .I xalarm processes running on the current host. Note that this lists what .I ps(1) thinks are .I xalarm processes, and only on the current host. .TP 8 .B \-r[eset] \fIpid|all\fP This option sends a signal to the process number .I pid, or to all .I xalarm processes, on the current host. If the process is an .I xalarm, owned by you, it will pop up the confirmation window to allow you to re-edit the alarm settings. If the process is an .I xalarm daemon, it will have no effect. Note these are what .I ps(1) thinks are .I xalarm processes, and only on the current host. .TP 8 .B \-p[ester] \fItime\fP Indicate the time that .I xalarm should wait before re-triggering. It should be in the same format as relative times, but without the preceding `+'. .TP 8 .B \-s[nooze] \fItime\fP Indicate the time that .I snoozetime should initially have when the alarm triggers. It should be in the same format as relative times, but without the preceding `+'. .TP 8 .B \-alarmaudio [\-aa] \fIbell|beep|quiet|shell script\fP The method by which .I xalarm should announce the fact that the alarm has been triggered. See above for a description on the different options. .TP 8 .B \-warningaudio [\-wa] \fIbell|beep|quiet|shell script\fP As above, but for when any warning windows are popped up. .TP 8 .B \-q[uiet] This is equivalent to specifying .I -alarmaudio quiet -warningaudio quiet, or setting the relevant resources to .I quiet. .TP 8 .B \-v[olume] \fIpercentage\fP The percentage of full volume at which the terminal bell should ring, if it is rung. This currently applies to the terminal bell only. .TP 8 .B \-nowarn [\-nw] This option overrides the resource value and forces .I xalarm not to give any warnings. This is the same as setting the warning times resource to the empty string. .TP 8 .B \-noconfirm [\-nc] This option overrides the resource value and forces .I xalarm not to ask for confirmation. .TP 8 .B \-nowarnwords [\-nww] This option overrides the resource value and forces .I xalarm not to display any of the alarm text with any warnings. This is the same as setting the warningwords resource to zero. .TP 8 .B \-nopester [\-np] This option overrides the resource value and forces .I xalarm not to re-trigger the alarm once it has popped up. This is the same as setting the pester resource to zero. .TP 8 .B \-noalarmaudio [\-naa] \-nowarningaudio [\-nwa] These options make the relevant resource values .I quiet, and are equivalent to setting the audio method to .I quiet. .TP 8 .B \fImessage_text\fP The remaining unrecognised text is used as the message displayed with the triggering of the alarm. Note that each separate argument is assumed to be a single line, so words must be quoted if they are to appear on the same line. For example: .TP 8 % \fBxalarm "On one line" Secondline "Third line"\fP It is a good idea always to use quotes, even when a line is only one word. Newlines within arguments are recognised, so that input from other tools can be used: .TP 8 % \fBxalarm -time now "`fortune -l`"\fP Also note that .I xalarm deletes its copy of any arguments, including any message, given on the command line, so your boss can't see them by looking at the .I xalarm process. .SH "EXAMPLES" An entry in an .I X initialisation file, invoked along with all the other utilities, before the window manager is executed, making .I xalarm check the alarm file for today's appointments, asking for confirmation before each of the alarms are set, and using up to three words from the alarm message in any warning message: .PP .nf xclock & xbiff & xalarm -file today -confirm -warnwords 3 exec twm .fi If you do not want to know about the alarms that remain from the previous .I X session, you could first restart them silently. Here they are restarted with warnings set at 15 and 30 minutes prior to each alarm's triggering. To check the week's appointments, including some shared alarm files, warning 1 hour, and 30 and 15 minutes before each alarm (if you set the variable in your .I X initialisation script, rather than your login script, you may need to export it): .PP .nf XALARMFILEPATH=\\ /usr/local/lib/seminars.xlm:/usr/local/lib/meetings.xlm export XALARMFILEPATH xalarm -restartonly -noconfirm -warn 15,30 xalarm -file weekly -confirm -warn 1:00,30,15 .fi Or to start an .I xalarm daemon, which is to scan the alarm file on a daily basis. Each alarm should not ask for confirmation, but should give warnings 30 and 15 minutes before triggering, and pester every 5 minutes thereafter: .PP .nf xalarm -daemon daily -noconfirm -warn 15,30 -pester 5 .fi The alarm file might contain, for example, the lines: .nf # This is just a comment. ! So is this. Format is: \fIdate [- [time] [message]]\fP ! or: \fI - [time] [message]\fP Wednesday - 12:30pm Football !!! Sun 29 september - 9pm Drag yourself home. Oct 4 - Contrib sometime today... .fi So that every Wednesday I have an alarm set for 12:30pm; on Sunday September 29 there is an alarm to be set for 9pm; on October 4 the alarm is to trigger straight away. .PP A .I twm(1) window manger entry which forces .I xalarm to ask for confirmation, and have the triggered alarm re-trigger every 5 minutes: .PP .nf Menu "Utilities" { ... "alarm": f.exec "xalarm -confirm -pester 5 &" ... } .fi .PP The following examples show how to set the alarm from the command line. It is often more convenient to invoke .I xalarm without specifying the time and, where necessary, the date and/or message as arguments (using a window manager, say, as above), using the popup window to enter these options. If this was the method of entry, the option arguments would be entered in the relevant Dialog box instead, just as they appear below (except that there is no need to quote multi-word arguments). To only restart those .I xalarm processes that were set before a previous .I X session was terminated, not including those in the alarm file: .TP 8 % \fBxalarm -restartonly\fR .PP To set an alarm for tomorrow at noon, so as to avoid missing yet another meeting: .TP 8 % \fBxalarm -date tomorrow -time noon "MEETING!!!"\fR .PP To set an alarm on Tuesday week (that is one week on from the next Tuesday) at 3:30 in the afternoon: .TP 8 % \fBxalarm -date "Tues week" -time 3-30pm\fR .PP To set an alarm for March 10th (my very own personal public holiday), first thing in the morning, just in case I have forgotten: .TP 8 % \fBxalarm -date "10 march" -time 9am "Birthday boy!"\fR .PP To set an alarm for 5 o'clock in the evening without confirmation, with the snooze time initially 10 minutes, but with the default alarm message: .TP 8 % \fBxalarm -time 5pm -snooze 10 -noconfirm\fR .PP To set an alarm for 2 hours in advance, warning 1 minute and 5 minutes before it, with a message other than the default: .TP 8 % \fBxalarm -time +2.00 -warn 5,1 "Get off your bottom"\fR .PP To set a completely silent alarm for 4.30 (not specifying am/pm, so it is whichever is first), with the default warnings and a message other than the default: .TP 8 % \fBxalarm -quiet -time 4:30 "Time to sneak off home!"\fR .PP To reset a running .I xalarm we first find out its process number, and then we can reset it: .nf % \fBxalarm -list\fR xalarms: 12345 12321 % \fBxalarm -reset 12345\fR .fi To put a 2 line message on the display .I foo immediately (this will only work if the display .I foo can be opened): .TP 8 % \fBxmemo -display foo:0.0 "Bob!" "The bar for lunch?"\fR .PP To display a fortune (a random adage from hell) at a specific geometry in 5 minutes: .TP 8 % \fBxfortune -geometry +10+300 -time +5\fR .PP To display a Zippy quote (yow!!!), characteristically harassing you every minute and making some noise each time it triggers by executing a shell script: .TP 8 % \fBxyow -pester 1 -alarmaudio "play -v30 yow.au"\fR .PP In this example, .I -v30 is the option to make .I play play the audio data in the file .I yow.au at maximum volume. .SH "WIDGET HIERARCHY" .PP .I xalarm uses the Athena Widget set, and the widget hierarchy is as follows: .PP .nf XAlarm (applicationShell) Alarm! (transientShell) alarm (form) buttons (form) quit (command) snooze (command) snooze1 (command) snooze5 (command) snooze15 (command) snoozetime (command) message (label) When? (transientShell) when (form) time (dialog) label (label) value (asciiText) ok (command) editdate (command) editwarnings (command) quit (command) date (dialog) label (label) value (asciiText) ok (command) edittime (command) editwarnings (command) quit (command) warnings (dialog) label (label) value (asciiText) ok (command) edittime (command) editdate (command) quit (command) confirm (dialog) label (label) value (asciiText) ok (command) cancel (command) save (command) quit (command) Warning! (transientShell) warning (form) dismiss (command) message (label) reset (command) quit (command) .fi .SH "EXAMPLE RESOURCES" .PP Some example resources. These are the most common resources, and the ones most likely needed changed in order to alter the (default) behaviour of .I xalarm: .PP .nf ! For some nice colours... If you have X11R5: *customization: -color ! Otherwise: XAlarm*background: LightYellow XAlarm*foreground: IndianRed XAlarm*Command.background: IndianRed XAlarm*Command.foreground: LightYellow XAlarm.When?.when.Dialog.background: MidnightBlue XAlarm.Warning!.warning.background: HotPink XAlarm.Alarm!.alarm.background: DarkGreen ! This is what you normally get... XAlarm*background: White XAlarm*foreground: Black XAlarm*Command.background: Black XAlarm*Command.foreground: White ! Perhaps the most commonly used resources... XAlarm.confirm: True XAlarm.warnings: 5,15 XAlarm.warningwords: 0 XAlarm.pester: 0 XAlarm.snooze: 0 XAlarm.volume: 50 XAlarm.alarmaudio: bell XAlarm.warningaudio: bell ! If the fonts are not to your taste, try "-new century schoolbook-" ! instead of "-times-". XAlarm*font: -*-times-bold-r-*-*-14-*-*-*-p-*-iso8859-1 XAlarm.When?.when.confirm.value*font: -*-times-bold-i-*-*-14-*-*-*-p-*-iso8859-1 XAlarm.Alarm!.alarm.message.font: -*-times-bold-i-*-*-34-*-*-*-p-*-iso8859-1 ! If you want a more compact alarm window, try these... XAlarm.Alarm!.alarm.buttons.snooze1.fromVert: quit ! This will vary depending on button labels & font... XAlarm.Alarm!.alarm.buttons.snooze1.horizDistance: -93 XAlarm.Alarm!.alarm.buttons.snooze5.fromVert: quit XAlarm.Alarm!.alarm.buttons.snooze15.fromVert: quit XAlarm.Alarm!.alarm.buttons.snoozetime.fromHoriz: snooze ! Plus, if you want... XAlarm.Alarm!.alarm.message.fromHoriz: buttons ! This will vary depending on button labels & font... XAlarm.Alarm!.alarm.message.vertDistance: -33 ! Some other defaults... XAlarm.Alarm!.alarm.background: Black XAlarm.Alarm!.alarm.message.label: Alarm Call!!! XAlarm.Alarm!.alarm.buttons.quit.label: Quit XAlarm.Alarm!.alarm.buttons.snooze.label: Snooze XAlarm.Alarm!.alarm.buttons.snooze1.label: +1 min XAlarm.Alarm!.alarm.buttons.snooze5.label: +5 mins XAlarm.Alarm!.alarm.buttons.snooze15.label: +15 mins .fi .SH "TOOLKIT OPTIONS" The following standard .I X Toolkit command line arguments are commonly used with .I xalarm: .TP 8 .B \-display \fIdisplay\fP This option specifies the .I X server to contact. .TP 8 .B \-geometry \fIgeometry\fP This option specifies the preferred size and position of .I xalarm. It is a little meaningless to specify a size; it is as large as need be. .TP 8 .B \-xrm \fIresourcestring\fP This option specifies a resource string to be used. This is especially useful for setting resources that do not have separate command line options. .SH "ENVIRONMENT" .TP 8 .B DISPLAY to get the default host and display number. .TP 8 .B XENVIRONMENT to get the name of a resource file that overrides the global resources stored in the RESOURCE_MANAGER property. .TP 8 .B XALARMFILEPATH a colon separated list of file names to be used in conjunction with .I ~/.xalarms for .I xalarm to look for alarms to set. .TP 8 .B USER The user's login name. This may be used by .I xalarm when looking for the user's name for the alarm title, or the user's .I xalarm processes. .TP 8 .B HOME The user's home directory. This may be used by .I xalarm when looking for the user's alarm file. .SH "FILES" .TP 8 .B ~/.xalarms The name of the alarm file looked at by .I xalarm for alarms to set and where alarms are saved. See also the environment variable .I XALARMFILEPATH. .TP 8 .B ~/.xalarms.died The name of the alarm file where .I xalarm stores its alarm which had not finished when the .I X session under which it was running was terminated. .SH "SEE ALSO" X(1), leave(1), calendar(1), date(1), emacs(1), twm(1), ps(1), sh(1), fortune(6), yow(6) .SH "BUGS" .TP 8 .B Preamble: Because of the way .I xalarm has evolved (it started as a 24-hour period one-off alarm clock), its dealing with dates, alarm files and the interface to these is not ideal. Nobody said evolution was perfect. If you want to report a bug, or anything else, please first give as much information as you can. See .I COMMENTS at the end of the manual. .TP 8 .B General: Each alarm is a separate, forked, .I xalarm process, each with its own connection to the display. There is no way to get .I xalarm to set more than one alarm or to display on several displays at once. Because .I xalarm is one of those clients you tend to start from a window manager or from an .I X initialisation script, you may not see error messages that these .I xalarm processes write to standard error. You will only see them if this output also goes to, or is redirected to, your display. If your shell initialisation script does any output, .I xalarm may get confused when trying to list other .I xalarm processes (and therefore also when killing or resetting all .I xalarm processes). .TP 8 .B Daemons: If you terminate the session which an .I xalarm daemon is running under, the daemon does not exit until just before it re-tries to start new alarms from the alarm file. It is possible, but unlikely, that someone else may have got your particular display connection (not physical display) in the meantime. .I xalarm cannot know when this happens. It would be nice to be able to tell daemon and normal .I xalarm processes apart when listing them. .TP 8 .B Saving to file: The date saved in the alarm file is the exact date the alarm would trigger, not the date specified in the date input popup window. Both types of behaviour have their advantages, but only this behaviour is implemented. The same happens with those alarms that are saved when the .I X session under which they are running is terminated. This type of behaviour does seem more useful than the alternative. Currently does not satisfactorily save alarms with multi-line messages. .TP 8 .B Restarting: Because uncompleted alarms are saved in the same format as the alarm file format, the resource environment of restarted alarms is inherited from the .I xalarm which restarted them. This is not necessarily the same as the original resource environments of these alarms. .TP 8 .B Times & Dates: .I xalarm is at the mercy of the system clock. The message informing at what time .I xalarm is to trigger may appear to be wrong if the clocks go forwards or backwards between the present and the time it is due to trigger. If the time is relative to the present and confirmation is sought, the alarm and warnings are set from when the time is confirmed, not from when .I xalarm was invoked. Date and symbol names are recognised by the first three characters only, the rest are ignored. This is why .I week and .I weekly are equivalent, and .I midday and .I midnight are not implemented. There is no real wild carding within dates. You can only set an alarm that will trigger within the next 49 days (on the assumption that your machine has 32-bit unsigned longs). .TP 8 .B Editing: The dialog box uses a subset of the .I emacs(1) editor/environment keymap for text buffers (which is certainly not a bug!). However, the .I return key event is translated by default into the .I confirm button event, as it is translated similarly in the alarm time and warning dialog boxes. To insert a newline, use .I ctrl-m (since under .I emacs(1) the .I return key is a synonym for .I ctrl-m, under .I X they generate different events), or just change the relevant resource(s) so that .I return produces the desired effect. The resources, followed by the necessary value, are: .TP 8 XAlarm.When?.time.value.translations XAlarm.When?.date.value.translations XAlarm.When?.warnings.value.translations XAlarm.When?.confirm.value.translations #override Return: newline() .TP 8 .B Resetting & Killing: Signalling is implemented very simply, and if the process signalled is not an .I xalarm, strange things may occur. Usually, nothing will happen. However, killing does not use the .I KILL signal, and is therefore relatively safe to use even though your .I ps(1) can never be 100% reliable. Still, this can mean that when you reset or kill all .I xalarm processes, not all will have been signalled. .TP 8 .B Input: Doesn't take input from a pipe etc. .TP 8 .B Audio: Doesn't parse the alarm or warning message to produce voice output(!) .SH "COPYRIGHT" Copyright 1991, 1992, 1995 Simon Marshall. .SH "AUTHOR" Simon Marshall, Formally of the Ph.D. Self Defense Group, Dept. of Computer Science, University Of Hull, UK. Currently at the European Space Agency's Research Institute (ESRIN), Frascati, Italy. Use simon@gnu.ai.mit.edu as a mail address. .SH "CONTRIBERS" A lot of people have put in effort for .I xalarm since it was first released in the summer of 1991; testing, suggesting, commenting, cajoling and even fixing, in all the areas that software development entails. Not all will have been mentioned below, but thanks for your input. Big thanks yet again have to go to Gisle Hannemyr, Norsk Regnsesentral (NCC), J Braham Levy, UDSP Lab, University of Keele and Ex-Tek Associates (UK), and Stefan Haenssgen, Informatik Rechnerabteilung, University of Karlsruhe, for their help with ideas, comments and code, in the making of .I xalarm version 3.03. Thanks also to Paul Moore and Kirk Morgan for their help in porting .I xalarm for versions 3.04 and 3.05. For version 3.06, look no further than Charles Durst. For getting version 3 from version 2 in the first place, thanks have to go to Bill Leonard, Harris Computer Systems Division, Florida, for harassing me with suggestions for improvements to make .I xalarm version 3 a useful tool and this manual page easier to understand, and Andreas Stolcke, International Computer Science Institute, Berkeley, for his help fixing code. Without both, xalarm would still be pretty much as version 2. Thanks also to J Braham Levy, Stefan Haenssgen, Jamie Zawinski, Jason Venner and Kimmo Suominen for their help with version 3. For their help and suggestions with .I xalarm "over the years", I would also like to thank (in no real order) Steve Aronson, Dave Brooks, Reiner Hammer, Jay Lawlor, Janet Anstett, Gordon Freedman, Francois-Regis Colin and Jeffrey Mast. If I've missed anyone, sorry. .SH "COMMENTS" I'd welcome any; comments, suggestions, code, bug reports and fixes, etc. Don't forget to include which version of .I xalarm you are using (from .I xalarm -version), machine/OS, .I X release & patch number, window manager etc. \fIdisplay\fP This option specifies the .I X server to contact. .TP 8 .B \-geometry \fIgeometry\fP This option specifies the preferred size and position of .I xalarm. It is a little meaningless to specify a size; it is as large as need be. .TP 8 .B \-xrm \fIresourcestring\fP This option specifies a resource string to be used. This is especially usexalarm-3.06/PROBLEMS 644 164 12 16370 6003735522 7152 COMPILATION ~~~~~~~~~~~ 1. Make dies a death. Some vendor's "make" are brain dead. One solution is to use GNU make, the other is to do some of it by hand. Try "make MADE=test" or "make config" (or both), then "make xalarm" if necessary. Then shout at your vendor. 2. Make says something like "xrdb: Can't open display" or "Command failed for target `config'". When you first make, make attempts to merge the resources necessary to use xalarm for the current session, without the resources properly installed. What has happened is that the DISPLAY variable is not set to be your display, so xrdb cannot know which display the resources are for. To fix, set the DISPLAY variable. It should be set to the name of the host that the display is running on. If you are compiling on the same machine as the display is on, it should probably be something like "`hostname`:0.0", where hostname returns the name of the host. 3. Both 3 and 4 may be caused by you using the supplied Makefile, rather than generating your own by "xmkmf". When using the Makefile generated from the Imakefile, compiler says things like, "Don't know how to make target `lib/Xaw/libXaw.a'". You are not building in the contrib directory, so try removing $(DEPLIBS) from the xalarm target in the Makefile. 4. When using the Makefile generated from the Imakefile, the loader says things like, "ld: ./lib/Xaw/libXaw.a: No such file or directory". You are not building in the contrib directory, so try re-defining LOCAL_LIBRARIES to be "-lXaw -lXmu -lXt -lXext -lX11" in the Makefile. 5. Compiler complains about non-existent fns.h. Try "make config" first. If this does not work, hack config.1st to put the correct definitions for GETXALARMPIDS and KILLPATH in fns.h, and create the xfortune & xyow shell scripts (if you can be bothered). None of this is essential for xalarm, but something has to be defined in fns.h. If you don't have "kill", "ps", "grep" or "colrm", you can compile xalarm, but you won't be able to use -kill, -reset or -list options. The command ps(1) lists processes. The command grep(1) is a pattern matcher. The command colrm(1) removes everything from its input after the sixth column. Look at the file config.1st. 6. Compiler complains about gethostname(2), uname(2), getpwuid(3), getuid(2), pwd.h, getlogin(3) or cuserid(3). These are the different ways in which xalarm gets the host name, and the user's name and home directory. See the Imakefile or Makefile.alt on how to control which of these calls are used using compiler symbol defines. 7. Compiler complains about flock(2), lockf(3) or fcntl(2). This is how xalarm locks an alarm file before writing to it. See the Imakefile or Makefile.alt on how to control which of these calls are used using compiler symbol defines. 8. Compiler complains about fseek(3). See the Imakefile or Makefile.alt on how to xalarm use lseek(2) instead, using compiler symbol defines. 9. Compiler complains about rename(2). See the Imakefile or Makefile.alt on how to make xalarm use link(2)/unlink(2) instead, using compiler symbol defines. 10. Compiler complains about the type declaration of fork(2). See the Imakefile or Makefile.alt on how to control how it is defined, using compiler symbol defines. For example, with X11R6 on Solaris 2.3 and SPARCompiler C Version 2.01, I had to define FORKRETURNSPID_T. But I had to use GNU cc (gcc) to tell me where to look for the system declaration, because the SPARCompiler doesn't tell you. 11. Make, config.1st or fullpath complain about "which" not being found. You can either answer the questions anyway, or change the definition of WHICH in the Imakefile or Makefile.alt to LOCATE or FIND. Using FIND to find the location of commands is slow. 12. Other problems may be the result of you not building from a Bourne Shell (sh). You might not even be able to run "xmkmf" without first invoking sh. You may also need to run make with the `-C' option. Your system is rubbish. 13. If you don't have "fortune" or "yow", you can't have "xfortune" or "xyow". What about other programs, along with xyow and xfortune, can I make these too? To make the executable shell script "xyourprogram" in the current directory, do: % config.1st [-quick] WHICH yourprogram (See 11 under COMPILATION if you get complaints about "which".) You will be asked about "ps" etc. again, but persevere. You will have to install both the executable and manual page yourself. The manual page would be an exact copy of xmemo.man. If xmemo.man is not made: % make xmemo.man RUNNING ~~~~~~~ 1. The alarm comes up with buttons overlayed etc., it's a mess. The resources aren't around and xalarm is almost completely controlled by them. Either install the resources (so others can also use xalarm), or include them in your ~/.Xdefaults file. When xalarm is first made, the resources are merged automatically so that you need not do this, at least for that current session. 2. Xalarm does not use your user name as the alarm popup name, and complains about not being able to open your alarm file, on some systems. This may be because xalarm is using getpwuid() et al to get the user name and home directory, but no /etc/passwd file exists on the local host. You could compile xalarm so that it uses a different method; see 6 under COMPILATION. 3. You want to layout the alarm buttons differently, don't you? Mine not good enough? The buttons are within a Form widget, so have a look at the Xaw man page for this. Each button has the placement resources fromHoriz, fromVert, horizDistance & vertDistance. There are some suggestions in the xalarm man page too. The button box and message label are also in a (higher level) Form widget, so you can also change the relationship of button box to message text. See the man page too. Note that the ordering of resources are important; you can't refer to a widget in a resource before it's created by xalarm. The order of creation is: Parent Widget(s) --------------------- alarm buttons buttons quit snooze snooze1 snooze5 snooze15 snoozetime alarm message 4. A good font alternative to the "-times-" family (for something slightly more readable) is "-new century schoolbook-". See the EXAMPLE RESOURCE section of the man page. 5. When using the -kill, -reset or -list options, weird text appears and the command fails. This may be due to your ~/.cshrc file, or equivalent, doing some output. It shouldn't be. 6. Occasionally, an xalarm process appears not to save its alarm when the X session is terminated. This may actually be due to the fact that other xalarm processes over-wrote the information. You may need to specify that xalarm use a different method of locking files (see 7 under COMPILATION) and/or moving to the end of the file (see 8 under COMPILATION), using compiler symbol defines. You must then rebuild xalarm. BUGS ~~~~ If you have any bugs, comments, suggestions, code, fixes, please let me know and I will make an attempt to include them. A few ``things'' are mentioned in the bugs section of the manual. Don't forget to include the xalarm version number ("xalarm -version" gives it you), machine/OS, X11 release & patch, WM used, etc. geometry\fP This option specifies the preferred size and position of .I xalarm. It is a little meaningless to specify a size; it is as large as need be. .TP 8 .B \-xrm \fIresourcestring\fP This option specifies a resource string to be used. This is especially usexalarm-3.06/when.c 644 164 12 30254 6000764430 7103 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * Stuff for getting the time the alarm is due to go off, and * confirmation if needed. */ #include "xalarm.h" #include "dates.h" #include #include #define TIMEINSTRUCTIONS "Enter time (as [+]time[am/pm]):" #define DATEINSTRUCTIONS "Enter date (as +days|date):" #define WARNINGINSTRUCTIONS "Enter warnings (as time[,time...]):" #define CONFIRMFORMAT "%s %s %d, %02d:%02d (in %d+%d:%02d), " #define WHENFORMAT "When? (%d:%02d)" #define EDITTIME (0) #define EDITDATE (1) #define EDITWARNINGS (2) #define EDITED(str, widget) (strcmp (str, XawDialogGetValueString (widget))) #define DIALOGVALUE(str, widget) (str = \ XawDialogGetValueString (widget), \ str = XtNewString (str)) #define UPCASE(ch) (((ch) >= 'a') and ((ch) <= 'z') ? \ ((ch) - 'a' + 'A') : (ch)) void PopupAndAsk(), EnteredTime(), EnteredDate(), EnteredWarnings(), Confirmed(), MakeConfirmMessage(), EditedText(); static void PopupAndConfirm(), Popup(), PopupNext(), Edit(), Cancel(), TimeTracker(); extern XtIntervalId ResetTracker(); extern String HomeDirectory(); extern void Quit(), AddTimeOuts(), SetWarningTimes(), SetGeometry(), SaveAlarmSettings(), SetWMName(), EnsureNotGrownOffScreen(); extern long TimeToMilliSeconds(); extern unsigned long DateToMilliSeconds(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * just pop up a dialog widget to get an at/in time. won't pop down * until a valid time is given. EnteredTime() does this. */ void PopupAndAsk () { static Widget popup = NONWIDGET; Widget when, gettime, getdate, getwtime, confirm; if (ISNONWIDGET (popup)) { popup = XtVaCreatePopupShell ("When?", transientShellWidgetClass, xalarm.toplevel, NULL); when = XtVaCreateManagedWidget ("when", formWidgetClass, popup, NULL); /* * Widget for time input. */ gettime = XtVaCreateManagedWidget ("time", dialogWidgetClass, when, XtNvalue, (XtArgVal) xalarm.timestr, NULL); XawDialogAddButton (gettime, "ok", EnteredTime, (XtPointer) NULL); XawDialogAddButton (gettime, "editdate", Edit, (XtPointer) EDITDATE); XawDialogAddButton (gettime, "editwarnings", Edit, (XtPointer) EDITWARNINGS); XawDialogAddButton (gettime, "quit", Quit, (XtPointer) NULL); /* * Widget for date input. */ getdate = XtVaCreateWidget ("date", dialogWidgetClass, when, XtNvalue, (XtArgVal) xalarm.datestr, NULL); XawDialogAddButton (getdate, "ok", EnteredDate, (XtPointer) NULL); XawDialogAddButton (getdate, "edittime", Edit, (XtPointer) EDITTIME); XawDialogAddButton (getdate, "editwarnings", Edit, (XtPointer) EDITWARNINGS); XawDialogAddButton (getdate, "quit", Quit, (XtPointer) NULL); /* * Widget for warning times input. */ getwtime = XtVaCreateWidget ("warnings", dialogWidgetClass, when, XtNvalue, (XtArgVal) xalarm.warningsstr, NULL); XawDialogAddButton (getwtime, "ok", EnteredWarnings, (XtPointer) NULL); XawDialogAddButton (getwtime, "edittime", Edit, (XtPointer) EDITTIME); XawDialogAddButton (getwtime, "editdate", Edit, (XtPointer) EDITDATE); XawDialogAddButton (getwtime, "quit", Quit, (XtPointer) NULL); /* * Widget for confirmation. */ confirm = XtVaCreateWidget ("confirm", dialogWidgetClass, when, XtNvalue, (XtArgVal) xalarm.messagestr, NULL); XawDialogAddButton (confirm, "ok", Confirmed, (XtPointer) popup); XawDialogAddButton (confirm, "cancel", Cancel, (XtPointer) NULL); XawDialogAddButton (confirm, "save", SaveAlarmSettings, (XtPointer) NULL); XawDialogAddButton (confirm, "quit", Quit, (XtPointer) NULL); /* * Set the callback for the value widget in each Dialog. */ AddValueCallback (xalarm.gettimewidget = gettime, EditedText, True); AddValueCallback (xalarm.getdatewidget = getdate, EditedText, True); AddValueCallback (xalarm.getwtimewidget = getwtime, EditedText, True); AddValueCallback (xalarm.confirmwidget = confirm, EditedText, True); xalarm.dialog = gettime; xalarm.savebutton = XtNameToWidget (confirm, "save"); } if (ISNONID (xalarm.whenid)) TimeTracker ((XtPointer) popup, (XtIntervalId) NULL); SetGeometry (popup); XtPopup (popup, XtGrabExclusive); XRaiseWindow (XtDisplay (popup), XtWindow (popup)); PopupNext (); XFlush (XtDisplay (popup)); } /* * Track the time for this widget. Puts a clock in the WM name, and * keeps the confirmation time message upto date. */ static void TimeTracker (clientdata, id) XtPointer clientdata; XtIntervalId id; { char wmname[TEXT], buf[TEXT]; time_t now; struct tm *clock; (void) time (&now); clock = localtime (&now); (void) sprintf (wmname, WHENFORMAT, clock->tm_hour, clock->tm_min); SetWMName ((Widget) clientdata, wmname); if (xalarm.dialog == xalarm.confirmwidget) { /* * Make sure that the alarm is not now out of date. */ xalarm.dateout = DateToMilliSeconds (xalarm.datestr); xalarm.timeout = TimeToMilliSeconds (xalarm.timestr); if ((xalarm.timeout == 0) and (xalarm.dateout == 0) and (xalarm.timestr[0] != '+')) Popup (xalarm.gettimewidget, TIMEINSTRUCTIONS); else { MakeConfirmMessage (buf); if (not XtIsSensitive (xalarm.savebutton)) (void) sprintf (ENDOF (buf), "\nSaved in %s/%s", HomeDirectory (), XALARMFILE); XtVaSetValues (xalarm.confirmwidget, XtNlabel, (XtArgVal) buf, NULL); } } xalarm.whenid = ResetTracker (TimeTracker, clientdata, 0); } /* * Popup the next dialog, if more needs to be entered. */ static void PopupNext () { if (ISINVALID (xalarm.timeout) or EDITED (xalarm.timestr, xalarm.gettimewidget)) Popup (xalarm.gettimewidget, TIMEINSTRUCTIONS); else if (ISINVALID (xalarm.dateout) or EDITED (xalarm.datestr, xalarm.getdatewidget)) Popup (xalarm.getdatewidget, DATEINSTRUCTIONS); else if (ISINVALID (xalarm.numwarnings) or EDITED (xalarm.warningsstr, xalarm.getwtimewidget)) Popup (xalarm.getwtimewidget, WARNINGINSTRUCTIONS); else if (xalarm.confirm) PopupAndConfirm (); else Confirmed ((Widget) NULL, (XtPointer) NULL, (XtPointer) NULL); } /* * If invalid, stay. Otherwise, get the rest, if any. */ void EnteredTime (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { char message[TEXT]; xalarm.timeout = TimeToMilliSeconds (DIALOGVALUE (xalarm.timestr, xalarm.gettimewidget)); if (ISVALID (xalarm.timeout)) PopupNext (); else { (void) sprintf (message, "%s%s", xalarm.errormessage, TIMEINSTRUCTIONS); XtVaSetValues (xalarm.gettimewidget, XtNlabel, (XtArgVal) message, NULL); } } /* * If invalid, stay. Otherwise, get the rest, if any. */ void EnteredDate (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { char message[TEXT]; xalarm.dateout = DateToMilliSeconds (DIALOGVALUE (xalarm.datestr, xalarm.getdatewidget)); if (ISVALID (xalarm.dateout)) PopupNext (); else { (void) sprintf (message, "%s%s", xalarm.errormessage, DATEINSTRUCTIONS); XtVaSetValues (xalarm.getdatewidget, XtNlabel, (XtArgVal) message, NULL); } } /* * If invalid, stay. Otherwise, get the rest, if any. */ void EnteredWarnings (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { char message[TEXT]; SetWarningTimes (DIALOGVALUE (xalarm.warningsstr, xalarm.getwtimewidget)); if (ISVALID (xalarm.numwarnings)) PopupNext (); else { (void) sprintf (message, "%s%s", xalarm.errormessage, WARNINGINSTRUCTIONS); XtVaSetValues (xalarm.getwtimewidget, XtNlabel, (XtArgVal) message, NULL); } } /* * Just toggle whether i/t concerns alarm time/date/warning time(s). */ static void Edit (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { switch ((int) clientdata) { case EDITTIME: Popup (xalarm.gettimewidget, TIMEINSTRUCTIONS); break; case EDITDATE: Popup (xalarm.getdatewidget, DATEINSTRUCTIONS); break; case EDITWARNINGS: Popup (xalarm.getwtimewidget, WARNINGINSTRUCTIONS); break; } } /* * Set the sensitivity of the save button. */ void EditedText (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { static Boolean edited = True; if (not clientdata) XtSetSensitive (xalarm.savebutton, edited = False); else if (not edited) XtSetSensitive (xalarm.savebutton, edited = True); } /* * Popup to confirm, showing the time which the alarm will trigger. */ static void PopupAndConfirm () { char message[TEXT]; MakeConfirmMessage (message); Popup (xalarm.confirmwidget, message); } /* * Make the message that should be displayed as the label in the * confirmation window. */ void MakeConfirmMessage (message) String message; { static char strings[][4] = {WEEKDAYS, MONTHS}; time_t now; struct tm *alarmtime; unsigned long msecsout; int count = 0, i; msecsout = SUMTIMEOUTS (DateToMilliSeconds (xalarm.datestr), TimeToMilliSeconds (xalarm.timestr)); (void) time (&now); now += (time_t) (msecsout / MSECSIN1SEC); alarmtime = localtime (&now); strings[alarmtime->tm_wday][0] = UPCASE (strings[alarmtime->tm_wday][0]); strings[alarmtime->tm_mon+7][0] = UPCASE (strings[alarmtime->tm_mon+7][0]); msecsout += (59 * MSECSIN1SEC); (void) sprintf (message, CONFIRMFORMAT, strings[alarmtime->tm_wday], strings[alarmtime->tm_mon+7], alarmtime->tm_mday, alarmtime->tm_hour, alarmtime->tm_min, msecsout / MSECSIN1DAY, (msecsout / MSECSIN1HR) % 24, (msecsout / MSECSIN1MIN) % 60); msecsout -= (59 * MSECSIN1SEC); for (i=0; i xalarm.warnings[i]) count++; if (count == 0) (void) sprintf (ENDOF (message), "no warnings:"); else (void) sprintf (ENDOF (message), "warning%s: ", PLURAL (count)); for (i=0; i xalarm.warnings[i]) { MAKETIME (ENDOF (message), xalarm.warnings[i] / MSECSIN1MIN); if (--count > 0) (void) strcat (message, ","); } } /* * Yow! Let's go! */ void Confirmed (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { String message; DIALOGVALUE (message, xalarm.confirmwidget); if (*message != '\0') XtVaSetValues (xalarm.messagewidget, XtNlabel, (XtArgVal) (xalarm.messagestr = message), NULL); /* * Reset the timeout, since the gap between entering * and confirming may be significant. */ xalarm.timeout = TimeToMilliSeconds (xalarm.timestr); XtRemoveTimeOut (xalarm.whenid); xalarm.whenid = NONID; AddTimeOuts (); XtPopdown (XtParent (XtParent (xalarm.confirmwidget))); } /* * Swap back to gettime widget & remove kbd focus. */ static void Cancel (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { Popup (xalarm.gettimewidget, TIMEINSTRUCTIONS); } /* * Show this widget, and set its label. * If there's not enough room for the new widget, move it. */ static void Popup (widget, label) Widget widget; String label; { Widget form = XtParent (widget); XtVaSetValues (widget, XtNlabel, (XtArgVal) label, NULL); XawFormDoLayout (form, False); if (xalarm.dialog != widget) { XtManageChild (widget); XtUnmanageChild (xalarm.dialog); xalarm.dialog = widget; } XawFormDoLayout (form, True); EnsureNotGrownOffScreen (XtParent (form)); } "cancel", Cancel, (XtPointer) NULL); XawDialogAddButton (confirm, "save", SaveAlarmSettings, (XtPointer) NULL); XawDialogAddButton (confirm, "quit", Quit, (XtPointer) NULL); /* * Set the callback for the value widget in each Dialog. */ AddValueCallback (xalarm.gettimewidget = gettime, EditedText, True); AddValueCallback (xalarmxalarm-3.06/xalarm.c 644 164 12 24574 6000764435 7443 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * Main bit of prog, just deal with parsing command line options etc * (well, letting XtAppInitialize() do it) & setting up stuff by * calling out to other fns. */ #include "xalarm.h" int main(); void DoAlarm(); static void SetAlarm(); extern Instance PreParseArgList(); extern String Concat(); extern SIGRET ResetAlarm(), KillAlarm(); extern void Initialise(), StartDaemon(), CreateAlarmWidget(), PopupAndAsk(), AddTimeOuts(), SetWarningTimes(), AlarmDying(), RestartDiedAlarms(), EnteredTime(), EnteredDate(), EnteredWarnings(), Confirmed(), ShowSnoozeValue(), ShowClickToZero(), Quit(); extern int ParseAlarmFile(); extern long TimeToMilliSeconds(); extern unsigned long DateToMilliSeconds(); static XtResource resources[] = { {XtNtime, XtCTime, XtRString, sizeof (String), XtOffsetOf (ApplData, time), XtRString, (XtPointer) ""}, {XtNdate, XtCDate, XtRString, sizeof (String), XtOffsetOf (ApplData, date), XtRString, (XtPointer) ""}, {XtNwarnings, XtCWarnings, XtRString, sizeof (String), XtOffsetOf (ApplData, warnings), XtRString, (XtPointer) ""}, {XtNwarningwords, XtCWarningwords,XtRInt, sizeof (int), XtOffsetOf (ApplData,warningwords),XtRImmediate, (XtPointer) 0}, {XtNpester, XtCPester, XtRString, sizeof (String), XtOffsetOf (ApplData, pester), XtRString, (XtPointer) "0"}, {XtNsnooze, XtCSnooze, XtRString, sizeof (String), XtOffsetOf (ApplData, snooze), XtRString, (XtPointer) "0"}, {XtNconfirm, XtCConfirm, XtRBoolean, sizeof (Boolean), XtOffsetOf (ApplData, confirm), XtRImmediate, (XtPointer) True}, {XtNkill, XtCKill, XtRString, sizeof (String), XtOffsetOf (ApplData, kill), XtRString, (XtPointer) NULL}, {XtNreset, XtCReset, XtRString, sizeof (String), XtOffsetOf (ApplData, reset), XtRString, (XtPointer) NULL}, {XtNlist, XtCList, XtRBoolean, sizeof (Boolean), XtOffsetOf (ApplData, list), XtRImmediate, (XtPointer) False}, {XtNvolume, XtCVolume, XtRInt, sizeof (int), XtOffsetOf (ApplData, volume), XtRImmediate, (XtPointer) 50}, {XtNversion, XtCVersion, XtRBoolean, sizeof (Boolean), XtOffsetOf (ApplData, version), XtRImmediate, (XtPointer) False}, {XtNhelp, XtCHelp, XtRBoolean, sizeof (Boolean), XtOffsetOf (ApplData, help), XtRImmediate, (XtPointer) False}, {XtNname, XtCName, XtRString, sizeof (String), XtOffsetOf (ApplData, proggie), XtRString, (XtPointer) "xalarm"}, {XtNgeometry, XtCGeometry, XtRString, sizeof (String), XtOffsetOf (ApplData, geometry), XtRString, (XtPointer) NOGEOMETRY}, {XtNalarmaudio, XtCAlarmaudio, XtRString, sizeof (String), XtOffsetOf (ApplData, alarmaudio), XtRString, (XtPointer) ""}, {XtNwarnaudio, XtCWarnaudio, XtRString, sizeof (String), XtOffsetOf (ApplData, warnaudio), XtRString, (XtPointer) ""}, {XtNquiet, XtCQuiet, XtRBoolean, sizeof (Boolean), XtOffsetOf (ApplData, quiet), XtRImmediate, (XtPointer) False}, }; static XrmOptionDescRec options[] = { {"-time", ".time", XrmoptionSepArg, (XtPointer) ""}, {"-t", ".time", XrmoptionSepArg, (XtPointer) ""}, {"-date", ".date", XrmoptionSepArg, (XtPointer) ""}, {"-warn", ".warnings", XrmoptionSepArg, (XtPointer) NULL}, {"-w", ".warnings", XrmoptionSepArg, (XtPointer) NULL}, {"-nowarn", ".warnings", XrmoptionNoArg, (XtPointer) ""}, {"-nw", ".warnings", XrmoptionNoArg, (XtPointer) ""}, {"-warnwords", ".warningwords",XrmoptionSepArg, (XtPointer) NULL}, {"-ww", ".warningwords",XrmoptionSepArg, (XtPointer) NULL}, {"-nowarnwords", ".warningwords",XrmoptionNoArg, (XtPointer) "0"}, {"-nww", ".warningwords",XrmoptionNoArg, (XtPointer) "0"}, {"-confirm", ".confirm", XrmoptionNoArg, (XtPointer) "True"}, {"-c", ".confirm", XrmoptionNoArg, (XtPointer) "True"}, {"-noconfirm", ".confirm", XrmoptionNoArg, (XtPointer) "False"}, {"-nc", ".confirm", XrmoptionNoArg, (XtPointer) "False"}, {"-pester", ".pester", XrmoptionSepArg, (XtPointer) NULL}, {"-p", ".pester", XrmoptionSepArg, (XtPointer) NULL}, {"-nopester", ".pester", XrmoptionNoArg, (XtPointer) "0"}, {"-np", ".pester", XrmoptionNoArg, (XtPointer) "0"}, {"-snooze", ".snooze", XrmoptionSepArg, (XtPointer) NULL}, {"-s", ".snooze", XrmoptionSepArg, (XtPointer) NULL}, {"-list", ".list", XrmoptionNoArg, (XtPointer) "True"}, {"-l", ".list", XrmoptionNoArg, (XtPointer) "True"}, {"-kill", ".kill", XrmoptionSepArg, (XtPointer) NULL}, {"-reset", ".reset", XrmoptionSepArg, (XtPointer) NULL}, {"-r", ".reset", XrmoptionSepArg, (XtPointer) NULL}, {"-alarmaudio", ".alarmaudio", XrmoptionSepArg, (XtPointer) NULL}, {"-aa", ".alarmaudio", XrmoptionSepArg, (XtPointer) NULL}, {"-noalarmaudio", ".alarmaudio", XrmoptionNoArg, (XtPointer) QUIET}, {"-naa", ".alarmaudio", XrmoptionNoArg, (XtPointer) QUIET}, {"-warningaudio", ".warningaudio",XrmoptionSepArg, (XtPointer) NULL}, {"-warnaudio", ".warningaudio",XrmoptionSepArg, (XtPointer) NULL}, {"-wa", ".warningaudio",XrmoptionSepArg, (XtPointer) NULL}, {"-nowarningaudio", ".warningaudio",XrmoptionNoArg, (XtPointer) QUIET}, {"-nowarnaudio", ".warningaudio",XrmoptionNoArg, (XtPointer) QUIET}, {"-nwa", ".warningaudio",XrmoptionNoArg, (XtPointer) QUIET}, {"-quiet", ".quiet", XrmoptionNoArg, (XtPointer) "True"}, {"-q", ".quiet", XrmoptionNoArg, (XtPointer) "True"}, {"-volume", ".volume", XrmoptionSepArg, (XtPointer) NULL}, {"-v", ".volume", XrmoptionSepArg, (XtPointer) NULL}, {"-version", ".version", XrmoptionNoArg, (XtPointer) "True"}, {"-help", ".help", XrmoptionNoArg, (XtPointer) "True"}, {"-geometry", ".geometry", XrmoptionSepArg, (XtPointer) NULL}, {"-geom", ".geometry", XrmoptionSepArg, (XtPointer) NULL}, {"-g", ".geometry", XrmoptionSepArg, (XtPointer) NULL}, {"-d", ".display", XrmoptionSepArg, (XtPointer) NULL}, }; static XtActionsRec actions[] = { {"Quit", (XtActionProc) Quit}, {"EnteredTime", (XtActionProc) EnteredTime}, {"EnteredDate", (XtActionProc) EnteredDate}, {"EnteredWarnings", (XtActionProc) EnteredWarnings}, {"Confirmed", (XtActionProc) Confirmed}, {"ShowClickToZero", (XtActionProc) ShowClickToZero}, {"ShowSnoozeValue", (XtActionProc) ShowSnoozeValue} }; AlarmData xalarm; /* * The main entry. DoAlarm() and StartDaemon() never return. */ int main (argc, argv) int argc; String *argv; { Instance instance; String *args; int days; instance = PreParseArgList (argv, &argc, &days, &args); RestartDiedAlarms (args, argc); switch (instance) { case RestartOnly: break; case Alarm: xalarm.saveonshutdown = True; DoAlarm (args, argc); case Daemon: xalarm.saveonshutdown = False; StartDaemon (days, args, argc); case File: xalarm.saveonshutdown = False; (void) ParseAlarmFile (days, args, argc); } return (0); } /* * Do the actual alarm as given. */ void DoAlarm (argv, argc) String *argv; int argc; { ApplData data; xalarm.toplevel = XtVaAppInitialize (&xalarm.appcon, "XAlarm", options, XtNumber (options), &argc, argv, (String *) NULL, NULL); XtGetApplicationResources (xalarm.toplevel, &data, resources, XtNumber (resources), (ArgList) NULL, 0); XtAppAddActions (xalarm.appcon, actions, XtNumber (actions)); /* * First initialise; exit or fork. * We have to make the alarm widget first, as SetAlarm() may popup * a dialog box which may need to know the alarm widget's label. */ Initialise (*argv, &data); CreateAlarmWidget (Concat (argv, argc)); SetAlarm (&data); XtAppMainLoop (xalarm.appcon); } /* * If the time is not given, pop up and ask for it, otherwise add the * time outs. Get the warnings first, tho. */ static void SetAlarm (data) ApplData *data; { char time[TEXT]; (void) sprintf (time, "+%s", data->pester); xalarm.pester = (int) (TimeToMilliSeconds (time) / MSECSIN1MIN); (void) sprintf (time, "+%s", data->snooze); xalarm.snooze = (int) (TimeToMilliSeconds (time) / MSECSIN1MIN); xalarm.warningwords = data->warningwords; xalarm.confirm = data->confirm; xalarm.proggie = data->proggie; xalarm.geometry = data->geometry; xalarm.volume = (data->volume - 50) * 2; if (data->quiet) xalarm.alarmaudio = xalarm.warningaudio = QUIET; else { xalarm.alarmaudio = data->alarmaudio; xalarm.warningaudio = data->warnaudio; } xalarm.warningwidget = NONWIDGET; xalarm.whenid = xalarm.warningid = xalarm.alarmid = xalarm.pesterid = NONID; /* * Get the date & time from the date & time string, * and the warnings from the warnings string... */ xalarm.dateout = DateToMilliSeconds (xalarm.datestr = data->date); xalarm.timeout = TimeToMilliSeconds (xalarm.timestr = data->time); SetWarningTimes (xalarm.warningsstr = data->warnings); /* * If ``invalid'' (may not have been given anyway), popup. * If ok, but we want confirmation, popup to check. (this is cheating!) * There is no waiting for confirmation if the timeout is 0 - the user * will soon realise that there was something wrong... */ if ((ISINVALID (xalarm.dateout)) or (ISINVALID (xalarm.timeout)) or (ISINVALID (xalarm.numwarnings)) or (xalarm.confirm and ((xalarm.timeout != 0) or (xalarm.dateout != 0)))) PopupAndAsk (); else AddTimeOuts (); (void) XSetIOErrorHandler ((void *) AlarmDying); (void) signal (SIGUSR1, (SIGRET (*)()) ResetAlarm); (void) signal (SIGUSR2, (SIGRET (*)()) KillAlarm); } EnteredDate (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { char message[TEXT]; xalarm-3.06/Makefile.alt 644 164 12 7406 6000761303 10174 # Remove -lXext if you don't have it; it's only used for button shapes which # default to rectangle anyway. CC = cc CFLAGS = -O LDFLAGS = -lXaw -lXmu -lXt -lX11 -lXext # o Define SIGNALRETURNSINT if your signal(3) returns int not void. # o Define FORKRETURNSSHORT/FORKRETURNSLONG/FORKRETURNSPID_T if your fork(2) # returns short/long/pid_t not int. # o Define USEFLOCK or USELOCKF to use flock(2) or lockf(3) to lock files, # rather than fcntl(2). # o Define USELSEEK to use lseek(2) to move to the end of the file, rather than # fseek(3). # o Define USERENAME to use rename(2) to rename file names (otherwise # un/link(2)). # o Define USEGETHOSTNAME or USEUNAME (or neither if you don't have # gethostname(2) or uname(2)) to get the name of your system. # o Define USEGETPWUID to use getpwuid(2) and getuid(2) to get the user name # and home directory on your system. Note that if you want to use this # method to get the user's home directory, but another method to get the user # name, this symbol must still be defined. # o Define USEGETLOGIN to use getlogin(3) to get the user name (note that this # may not work if xalarm is invoked from a pseudo terminal). # o Define USECUSERID to use cuserid(3) to get the user name. DEFINES = -DUSERENAME -DUSEGETHOSTNAME -DUSEGETPWUID # My, is this complex! These are the usual places for installation. PREFIX = MANSUFX = n X11BIN = $(PREFIX)/usr/bin/X11 X11MAN = $(PREFIX)/usr/man/man$(MANSUFX) X11AD = $(PREFIX)/usr/lib/X11/app-defaults # Bits and bobs. # How we find commands. Use WHICH, LOCATE or FIND. WHICH = WHICH MADE = test -f STRIP = /bin/strip CP = /bin/cp RM = /bin/rm -f TAGS = etags -t LINT = lint -hbxca OBJS = alarm.o when.o warnings.o times.o dates.o file.o fns.o xalarm.o SRCS = alarm.c when.c warnings.c times.c dates.c file.c fns.c xalarm.c # If your make complains about the && conditional sequences, you may have to do # them by hand or go hacking below... The executables and man pages go in the # same directories as xalarm do. # The & variable tells a Sequent to do a parallel make, forking compilation # processes. Set this variable to whatever value you need for your parallel # machine. Or you could just use GNU make with "-j". # If your make will not except this (ie. it is brain dead), try "make # MADE=test" or "make config" (or both), then "make xalarm" if necessary. The # other solution is to use GNU make. all: .config xalarm xalarm: $& $(OBJS) $(CC) $(CFLAGS) -o xalarm $(OBJS) $(LDFLAGS) .c.o: $(CC) -c $(CFLAGS) $(DEFINES) $< install: all $(STRIP) xalarm $(CP) xalarm xmemo $(X11BIN) $(MADE) xfortune && $(CP) xfortune $(X11BIN) $(MADE) xyow && $(CP) xyow $(X11BIN) $(CP) XAlarm.ad $(X11AD)/XAlarm $(CP) XAlarm-color.ad $(X11AD)/XAlarm-color install.man: $(CP) xalarm.man $(X11MAN)/xalarm.$(MANSUFX) $(MAKE) xmemo.man && $(CP) xmemo.man $(X11MAN)/xmemo.$(MANSUFX) $(MADE) xfortune && $(MAKE) xfortune.man && \ $(CP) xfortune.man $(X11MAN)/xfortune.$(MANSUFX) $(MADE) xyow && $(MAKE) xyow.man && $(CP) xyow.man $(X11MAN)/xyow.$(MANSUFX) xmemo.man xyow.man xfortune.man: echo ".so man$(MANSUFX)/xalarm.$(MANSUFX)" > $@ fns.h: @./config.1st -quick $(WHICH) fortune yow tags: $(TAGS) $(SRCS) clean: $(RM) $(OBJS) xalarm xfortune xyow fns.h .config core *~ #* lint: $(LINT) $(SRCS) # Make sure the resources are loaded so xalarm can be used before installed etc. config: @./config.1st -quick $(WHICH) fortune yow @xrdb -merge XAlarm.ad @xrdb -merge XAlarm.ad+ .config:: @-$(MADE) .config || make config alarm.o: xalarm.h patchlevel.h when.o: xalarm.h patchlevel.h dates.h warnings.o: xalarm.h patchlevel.h times.o: xalarm.h patchlevel.h dates.h dates.o: xalarm.h patchlevel.h dates.h file.o: xalarm.h patchlevel.h dates.h fns.o: xalarm.h patchlevel.h fns.h xalarm.o: xalarm.h patchlevel.h edTime", (XtActionProc) EnteredTime}, {"EnteredDate", (XtActionProc) EnteredDate}, {"EnteredWarnings", (XtActionProc) EnteredWarnings}, {"Confirmed", (XtActionProc) Confirmed}, {"ShowClickToZero", (XtActionProc) ShowClickToZero}, xalarm-3.06/config.1st 755 164 12 5465 6000761305 7663 #!/bin/sh # Just try to find out the full path names for kill, ps, grep & colrm which # are used within fns.c to do process listing. echo -n ' I need to find the path of a few things on your system. If I guess wrongly, say so at the end, and I will try again. If I do not know where they reside, I will ask you. Default answers are in brackets. If you do not know where they are on your system, first try "which " (or equivalent) in a shell, or ask your local System Guru or Manager. + If you do not have "kill", "ps", "grep" or "colrm" (or equivalent), do not panic, xalarm only uses them when it is attempting to list the process ids of other xalarms. If you do not have these commands, just hit RETURN. You can make xalarm, but you will not be able to use the -reset, -kill or -list options. I need to know because xalarm should use full path names. + If you do not have "fortune" or "yow", you cannot have the X equivalent since they are just front ends to them! But do not panic, they are not necessary for xalarm, so if you do not have them just hit RETURN when asked for their whereabouts. Hit RETURN when ready...' read dummy echo " " if test "$1" = "-quick"; then mode=-quick shift else mode= fi which=$1 shift kill=`./fullpath $mode $which kill` ps=`./fullpath $mode $which ps` grep=`./fullpath $mode $which grep` colrm=`./fullpath $mode $which colrm` # Try to guess the flags... if ($grep -w guess $0 > /dev/null 2>&1); then grep="$grep -w" fi if ($ps -cx > /dev/null 2>&1); then ps="$ps -cx" else ps="$ps -u"'$USER' fi if test -f "$colrm"; then colrm="$colrm 7" else echo "Alternatively:" sed=`./fullpath $mode $which sed` colrm="$sed 's/[^ 0-9].*$//'" fi echo '/* * Get xalarm pids: * list user processes | filter for xalarm | pid #s only | filter us out * * Where "us" is where the xalarm pid# running this will go. * * Normally we use ps(1), grep(1), colrm(1) and grep(1) again, respectively. * Typically for BSD: * "/bin/ps -cx | /bin/grep -w xalarm | /usr/ucb/colrm 7 | /bin/grep -v %d" */ #define GETXALARMPIDS \ "'$ps' | '$grep' xalarm | '$colrm' | '$grep' -v %d" /* * Full path of kill(1), typically "/bin/kill". */ #define KILLPATH "'$kill'" ' > fns.h echo "+ Created fns.h using these." echo " " for program in $*; do progpath=`./fullpath $mode $which $program` if test -f "$progpath"; then echo '#!/bin/sh exec xmemo -name x'$program' ${1+"$@"} "`'$progpath'`"' > x$program echo "+ Created x$program using this." else echo '#!/bin/sh exec xmemo -name x'$program' "Sorry, x'$program' is unavailable - no '$program'!"' > x$program echo "+ Created x$program with an apologetic message." fi chmod +x x$program done echo -n " Are these OK? [y] " read ans case $ans in ""|"y"*|"Y"*) touch .config echo " Thank you. ";; *) ./config.1st $which $*;; esac man $(X11MAN)/xmemo.$(MANSUFX) $(MADE) xfortune && $(MAKE) xfortune.man && \ $(CP) xfortune.man $(X11MAN)/xfortune.$(MANSUFX) $(MADE) xyow && $(MAKE) xyow.man && $(CP) xyow.man $(X11MAN)/xyow.$(MANSUxalarm-3.06/xmemo 755 164 12 237 6000761307 7007 #!/bin/sh if test $# -eq 0; then echo "What's the message?" else exec xalarm -time now -date today -noconfirm -nowarn -nopester \ -name xmemo ${1+"$@"} fi \ä ImakefileSTlåalarm.c|æfns.carŒçdates.cœètimes.c¬édates.hÀê warnings.cÔë XAlarm.ad+eí patchlevel.hu do not know where they are on your system, first try "which " (or equivalent) in a shell, or ask your local System Guru or Manager. + If you do xalarm-3.06/XAlarm.ad 644 164 12 6671 6000761304 7453 ! If you have X11R5, put this in your ~/.Xdefaults file: ! ! *customization: -color ! ! Otherwise put this in your ~/.Xdefaults file: ! ! #ifdef COLOR ! XAlarm*background: LightYellow ! XAlarm*foreground: IndianRed ! XAlarm*Command.background: IndianRed ! XAlarm*Command.foreground: LightYellow ! XAlarm.When?.when.Dialog.background: MidnightBlue ! XAlarm.Warning!.warning.background: HotPink ! XAlarm.Alarm!.alarm.background: DarkGreen ! #endif XAlarm.confirm: True XAlarm.warnings: 5,15 XAlarm.warningwords: 0 XAlarm.pester: 0 XAlarm.snooze: 0 XAlarm.volume: 50 XAlarm.alarmaudio: bell XAlarm.warningaudio: bell XAlarm.When?.when.Dialog.background: Black XAlarm.Alarm!.alarm.background: Black XAlarm.Warning!.warning.background: Black XAlarm*background: White XAlarm*foreground: Black XAlarm*font: -*-times-bold-r-*-*-14-*-*-*-p-*-iso8859-1 XAlarm*allowShellResize: True XAlarm*resizable: True XAlarm*top: ChainTop XAlarm*bottom: ChainTop XAlarm*left: ChainLeft XAlarm*right: ChainLeft XAlarm*Command.background: Black XAlarm*Command.foreground: White XAlarm*Command.ShapeStyle: rectangle XAlarm*Command.cursor: hand2 XAlarm*Label.justify: left XAlarm*Label.cursor: question_arrow XAlarm*Text.cursor: pencil XAlarm*quit.label: Quit XAlarm*reset.label: Reset XAlarm.Alarm!.alarm.message.cursor: gumby XAlarm.Alarm!.alarm.message.label: Alarm Call!!! XAlarm.Alarm!.alarm.message.font: -*-times-bold-i-*-*-34-*-*-*-p-*-iso8859-1 XAlarm.Alarm!.alarm.message.internalWidth: 10 XAlarm.Alarm!.alarm.message.internalHeight: 5 XAlarm.Alarm!.alarm.message.bottom: ChainBottom XAlarm.Alarm!.alarm.buttons.snooze.label: Snooze XAlarm.Alarm!.alarm.buttons.snooze1.label: +1 min XAlarm.Alarm!.alarm.buttons.snooze5.label: +5 mins XAlarm.Alarm!.alarm.buttons.snooze15.label: +15 mins XAlarm.Alarm!.alarm.buttons.snooze.fromHoriz: quit XAlarm.Alarm!.alarm.buttons.snooze1.fromHoriz: snooze XAlarm.Alarm!.alarm.buttons.snooze5.fromHoriz: snooze1 XAlarm.Alarm!.alarm.buttons.snooze15.fromHoriz: snooze5 XAlarm.Alarm!.alarm.buttons.snoozetime.fromHoriz: snooze15 XAlarm.Alarm!.alarm.message.fromVert: buttons XAlarm.When?.when.background: Black XAlarm.When?.when.defaultDistance: 0 XAlarm.When?.when.time.ok.label: Enter time XAlarm.When?.when.time.value.translations: #override Return: EnteredTime() XAlarm.When?.when.date.ok.label: Enter date XAlarm.When?.when.date.value.translations: #override Return: EnteredDate() XAlarm.When?.when.warnings.ok.label: Enter warnings XAlarm.When?.when.warnings.value.translations: #override Return: EnteredWarnings() XAlarm.When?.when.confirm.value*font: -*-times-bold-i-*-*-14-*-*-*-p-*-iso8859-1 XAlarm.When?.when.confirm.ok.label: Confirm time XAlarm.When?.when.confirm.cancel.label: Re-edit XAlarm.When?.when.confirm.save.label: Save XAlarm.When?.when.confirm.value.translations: #override Return: Confirmed() XAlarm.When?*edittime.label: Time XAlarm.When?*editdate.label: Date XAlarm.When?*editwarnings.label: Warnings XAlarm.When?*value*font: 9x15bold XAlarm.When?*value.bottom: ChainBottom XAlarm.When?*value.right: ChainRight XAlarm.When?*Command.top: ChainBottom XAlarm.When?*Command.bottom: ChainBottom XAlarm.Warning!.warning.dismiss.label: Dismiss XAlarm.Warning!.warning.message.fromHoriz: dismiss XAlarm.Warning!.warning.message.cursor: clock XAlarm.Warning!.warning.reset.fromHoriz: message XAlarm.Warning!.warning.quit.fromHoriz: reset config:: @-$(MADE) .config || make config alarm.o: xalarm.h patchlevexalarm-3.06/ChangeLog 644 164 12 37572 6003736755 7576 Fri Jul 21 16:45:17 1995 Simon Marshall * Released xalarm-3.06. Wed Jul 12 17:12:21 1995 Simon Marshall * Fix DIALOGVALUE from Charles Durst . Tue Aug 11 12:59:51 1992 Simon Marshall (sm at olympus) * Released xalarm-3.05. Fri Jul 31 14:04:03 1992 Simon Marshall (sm at olympus) * xalarm ignored the confirmation resource when the alarm is reset. From a bug report of sorts by Kirk Morgan. Wed Jul 22 20:51:43 1992 Simon Marshall (sm at dahlia) * More colours, easier to set. Due to pester from Diab Jerius. Sat Jul 18 14:02:58 1992 Simon Marshall (sm at olympus) * More chance of config.1st working for SYSV machines. With the help of Kirk Morgan. Tue Jul 14 11:12:12 1992 Simon Marshall (sm at olympus) * Added resource file for X11R5 colour customisation. * xmemo expects a message. Fri Jul 10 14:31:28 1992 Simon Marshall (sm at olympus) * Can use find (plus GNU find's locate) to get the location of commands, once again. Thu Jun 25 14:28:25 1992 Simon Marshall (sm at olympus) * Removed spaces after `,'s in Imakefile. Post by Andreas Stolcke. Mon Jun 15 12:57:31 1992 Simon Marshall (sm at olympus) * Released xalarm-3.04. Tue May 26 20:49:31 1992 Simon Marshall (sm at olympus) * Daemon extracts display info from command line args. From a bug report of sorts by Jay Hersh. Ditto for restarting. Fri May 22 20:07:53 1992 Simon Marshall (sm at olympus) * Warnings not updated as the alarm triggers. * Fullpath accepts path directory as well as full path. Idea from Ned Danieley. Fri May 15 19:59:20 1992 Simon Marshall (sm at olympus) * Explicitly moves to the end of the file before saving; solves the occasional losing of information when many xalarms write to the same file. Tue May 12 13:41:19 1992 Simon Marshall (sm at olympus) * Uses fcntl() rather than flock(), and can use lockf() too. * Can use un/link() method as an alternative to rename(). Wed May 6 09:52:43 1992 Simon Marshall (sm at olympus) * Certain servers seem to require all parts of the XLFD explicitly, and the iso number specified in case PostScript fonts are around. From Andreas Stolcke. Sat May 2 15:24:10 1992 Simon Marshall (sm at olympus) * Does not remove "saved" information from confirmation popup on minute change. Wed Apr 29 18:53:28 1992 Simon Marshall (sm at olympus) * Correctly detects absolute alarm time passing in confirmation on minute change, only switches dialog to time entry if the dialog is the confirm. * Only complains about no display when restarting alarms if there are alarms to restart. Tue Apr 28 10:13:10 1992 Simon Marshall (sm at olympus) * Released xalarm-3.03. Wed Apr 22 12:06:14 1992 Simon Marshall (sm at olympus) * Properly solved the hanging children; wait() only waits for one child. Fri Apr 17 12:11:24 1992 Simon Marshall (sm at olympus) * Correctly adds, not replaces, callbacks on AsciiText widget. From Donna Converse. Mon Apr 13 22:16:07 1992 Simon Marshall (sm at olympus) * Save button has sensitivity. Wed Apr 8 19:46:43 1992 Simon Marshall (sm at olympus) * Correctly saves multi-line messages when xalarm dies. Tue Apr 7 10:41:46 1992 Simon Marshall (sm at olympus) * Added all as an option to -reset; -kill is the same as -reset, except deadly. * Added getlogin() as a way of getting the login name, from Bob Primmer, and also cuserid(). Mon Apr 6 18:21:53 1992 Simon Marshall (sm at olympus) * Does not attempt to restart alarms if it cannot open a connection to the display. Fri Mar 27 19:11:22 1992 Simon Marshall (sm at olympus) * Solved the intermittent resize problem - the behaviour of the Shell is undefined for multiple children, even if only one is managed. Added an intermediate (Form) widget to solve this. Fri Mar 20 20:07:01 1992 Simon Marshall (sm at olympus) * Corrected bug whereby a 2 or 4 digit absolute time with leading zero was not treated as in 24 hour format. Mon Mar 16 20:38:17 1992 Simon Marshall (sm at olympus) * Added -restart, along with the ability for xalarm to save alarms when the session closes. * Solved the hanging children, thanks to comp.unix.programmer and a cast of thousands. Tue Mar 10 11:55:13 1992 Simon Marshall (sm at olympus) * Added -daemon option, like -file but never returns, and -kill. Sat Mar 7 18:46:38 1992 Simon Marshall (sm at olympus) * Added XALARMFILEPATH so you can have a list of alarm files to check. * Can save alarm settings in ~/.xalarms. * Put a clock up on each popup. Also keeps track of any other time dependent information. From an idea by Gisle Hannemyr. Fri Mar 6 18:19:10 1992 Simon Marshall (sm at olympus) * Changed the way the alarm and warnings make a noise. Can now specify a shell script to run instead. Volume control. Tue Mar 3 10:54:02 1992 Simon Marshall (sm at olympus) * Added -pester (or should that be -persecute?), kind of auto-snooze, and time information in popups. Idea from Gisle Hannemyr. * Made a temporary hack-fix for a R5 manifestation of the Shell's ChangeManaged bug: added field padding for confirmation widget label. Yes, I could give a XXXX. Unfortunately, the bug then shows up under R4. Can't win them all. * Fixed "-file" without-following-arg bug, and Makefiles for brain-dead makes. From Stefan Haenssgen and Braham Levy. Sun Mar 1 13:19:08 1992 Simon Marshall (sm at olympus) * Made it get the user's home directory via the passwd file too. Fri Feb 28 10:25:31 1992 Simon Marshall (sm at olympus) * Corrected declaration of XtResources defaults which caused a silent crash if application defaults were not properly installed. From Gisle Hannemyr. Thu Feb 27 17:52:59 1992 Simon Marshall (sm at olympus) * Can combine time symbols & dates. Added noon. Wed Feb 26 19:49:54 1992 Simon Marshall (sm at olympus) * Made the config guess all & only query at the end. Mon Feb 24 13:03:39 1992 Simon Marshall (sm at olympus) * "make config" is now included when necessary by make & corrected CentreWidgetUnderPointer() to include widget's width. Thanks to Braham Levy. Added EnsureAllOnScreen() for resizing popups; only shifts left. Sun Feb 23 15:27:08 1992 Simon Marshall (sm at olympus) * Changed the alarm file to ~/.xalarms always and removed environment variable XALARM. * Added uname() as a way of getting the machine name. From Rich $alz's shar program. Sun Feb 16 13:46:26 1992 Simon Marshall (sm at olympus) * Added date parsing to appointments too. Added -file option, moved into file.c. Fri Feb 14 19:55:24 1992 Simon Marshall (sm at olympus) * Added date parsing to popup, with some error parsing. Moved dates into dates.c. Mon Feb 10 12:53:47 1992 Simon Marshall (sm at olympus) * Made it get the user name from the passwd file rather than $USER. From Paul Vixie's cron program. Thu Feb 6 18:52:25 1992 Simon Marshall (sm at olympus) * Time parsing now gives more informative error messages. Tue Feb 4 10:00:36 1992 Simon Marshall (sm at olympus) * Added reset button to warning popup. Don't think it's appropriate for alarm itself. Corrected timeout casting. * Change to Imakefile to make sure dependencies are made, and config.1st invoked, properly. George Lindholm & Jonathan I. Kamens. Sat Feb 1 15:40:29 1992 Simon Marshall (sm at olympus) * Released patch 2. Thu Jan 30 11:11:01 1992 Simon Marshall (sm at olympus) * Behaves properly during leap years. * Fixed bug whereby dates are parsed wrongly if the number of days in the current month is more than the number of days in the month given. * Better error messages with unrecognised dates. Tue Jan 21 11:10:34 1992 Simon Marshall (sm at olympus) * Made config.1st try to find locations, instead of assuming a Sun. Forgot to include times.o as dependent on xalarm.h. Non-existent function was declared. * Fixed bug whereby changes in the dialog was silently accepted while changing other values. * Resources properly label all quit buttons. Mon Jan 20 10:08:55 1992 Simon Marshall (sm at olympus) * Released patch 1. Wed Jan 15 14:58:08 1992 Simon Marshall (sm at olympus) * Input in the dialog popup properly is directed to the visible widget. * Cleaned resources, man page & xmemo doesn't ask for confirmation. Fri Jan 3 13:51:52 1992 Simon Marshall (sm at olympus) * Fixed Imakefile where blanks after ManSuffix were not stripped, from Jonathan I. Kamens. Thu Dec 19 15:23:46 1991 Simon Marshall (sm at olympus) * Solved the auto-resize; just took the width resource out. * Casted everything properly to shut up picky compilers. Wed Dec 18 19:29:08 1991 Simon Marshall (sm at olympus) * Made all the windows proper transient shells as they should be. If no geometry is given, the windows popup under the mouse pointer. * Can no longer kill xalarm via the WM_DELETE_WINDOW protocol. It has no effect with shells widgets. Fri Dec 6 13:36:08 1991 Simon Marshall (sm at olympus) * Fixed bug in AppointmentIsToday() which under certain circumstances would parse times in files wrong or core dump. Forgot to XtMalloc() in a couple of places. Thu Dec 5 18:29:45 1991 Simon Marshall (sm at olympus) * Words from the alarm message can be incorporated in the warning popup. From an idea by Evan Bigall. Sun Dec 1 14:20:46 1991 Simon Marshall (sm at olympus) * Made resources control the cursor shapes; took gumby out of alarm.c. Thu Oct 17 14:46:01 1991 Simon Marshall (sm at olympus) * Added justification for the Dialog widget label. Still makes a widget bigger than need be though. Sun Oct 13 17:40:00 1991 Simon Marshall (sm at olympus) * For the confirmation window, sorts the warning times into descending order, and takes the day of the week from WEEKDAYS rather than ctime(), in case a different language is being used. Sat Oct 5 15:37:59 1991 Simon Marshall (sm at olympus) * Released xalarm-3. Wed Oct 2 14:35:15 1991 Simon Marshall (sm at olympus) * Taken out the makeX and put that stuff in with config.1st, let the user sort it out. Mon Sep 30 19:12:40 1991 Simon Marshall (sm at olympus) * Added -list so xalarm shows what ps thinks are the user's xalarm pids are. Had to alter the makefiles so that you could set where ps & the rest where; added a config.1st to do this. Sun Sep 29 22:16:09 1991 Simon Marshall (sm at olympus) * Made xalarm capable of parsing a file for alarms, so for regular times, it will set alarms automatically. Fri Sep 27 10:43:41 1991 Simon Marshall (sm at olympus) * Fed up with ``Is it only BSD that uses bzero, or only SYSV that uses memset? Or is it a bit of both?'' Wrote my own. Wed Sep 25 22:17:05 1991 Simon Marshall (sm at olympus) * Split README into README and INSTALL. Made it all a touch more portable? Thanks to Andreas Stolcke. Made the manual more readable, thanks to suggestions by Bill Leonard. Tue Sep 24 21:54:30 1991 Simon Marshall (sm at olympus) * Added a -snooze & resource on suggestion by Bill Leonard, so you can have a default snoozetime already set for you. Corrected bits & bobs in man page too. Sun Sep 15 21:41:52 1991 Simon Marshall (sm at olympus) * Cleaned up for release in contrib for R5; re-named xalarm-3 for good measure. * Added a -reset kill & signal trapper code so that you can wake up an alarm and change the times. Thu Sep 5 12:24:56 1991 Simon Marshall (sm at olympus) * Added a make flag & fix for the X crash-on-zero-timeout (bug report from Jamie Zawinsk). Cleaned up Makefile & README. Mon Sep 2 11:54:20 1991 Simon Marshall (sm at olympus) * Fixed the little problem with the clear button, although the resource still isn't changeable by the user. Tue Aug 27 17:08:47 1991 Simon Marshall (sm at olympus) * The timeout is now recalculated on confirmation so that if the time is absolute, messing around during confirmation won't result in a late alarm. Wed Aug 21 18:00:00 1991 Simon Marshall (sm at olympus) * Released xalarm-2.00. Tue Aug 20 10:25:58 1991 Simon Marshall (sm at olympus) * Fixed a little bug as a result of yesterday; if an invalid time is given with the noconfirm option, the alarm message text is "". * Finally made the popups get their geometry from the alarm, by intercepting it from the command line... Mon Aug 19 13:56:53 1991 Simon Marshall (sm at olympus) * Added xmemo (thanks to an unconnected posting by Dan Jacobson, I think) & found a bug in the manual - used -beep instead of -bell!!! Added -beep & -nobeep to options... Sun Aug 18 11:17:45 1991 Simon Marshall (sm at olympus) * Put the toggling back (!) so you can fiddle with warning times too. * Changed -at and -in to -time, -in times preceded by a `+' (but warning times aren't). None of that silly toggling etc. Also made some options have shorter aliases. * Made xalarm overwrite any given message, so ps etc can't show what it is. From a comment by Reiner Hammer. Fri Aug 16 12:25:08 1991 Simon Marshall (sm at olympus) * Cleaned up here & there. * Incorporated a hacked version of the time parser from xcal-3.2, Peter Collinson et al. * Changed the way warnings are given. No longer within quotes, they must be separated by commas (only). Wed Aug 14 12:58:29 1991 Simon Marshall (sm at olympus) * Corrected bug whereby time wasn't always correctly calculated when given as 12 hour clock but >12 hours ahead. Tue Aug 13 12:41:32 1991 Simon Marshall (sm at olympus) * Added forking - so must easier than I had assumed. No closing to do after all. Thanks to Gordon Freedman & Janet Anstett. Fri Aug 9 13:38:35 1991 Simon Marshall (sm at olympus) * Added -h[elp]. Thu Aug 8 15:04:56 1991 Simon Marshall (sm at olympus) * Added -v[ersion]; I'm fed up with getting bug reports without it. * Added a config to Makefile so as to make sure stuff is ready for making & running/playing with. Mon Aug 5 15:46:00 1991 Simon Marshall (sm at olympus) * It appears that stuff in .../lib/X11/app-defaults is not pre-processed with cpp, so we can't have "#ifdef" etc in there. Moved colour stuff to separate file. From Scott Blachovicz & a multitude of others. Sun Aug 4 15:12:06 1991 Simon Marshall (sm at olympus) * Corrected bug whereby When?.when.label was for "at" time when it should be "in", when user gave invalid "in" time on the command line. * If enabled, confirmation is now always sort, unless alarm is to trigger immediately. * Made warnings only accept times in the [[[h]h]m]m format a` la -in. Invalid times result in an error message on stderr only. Also added -nowarn. (Implemented as "-warn 0" :-) Fri Aug 2 09:46:42 1991 Simon Marshall (sm at olympus) * Added confirmation stuff to xalarm. Does not confirm if using relative time given on the command line. Also added -confirm, -noconfirm and -nobell. * Split up xalarm into more meaningful pieces. Preparation for xalarm-2.00? Wed Jul 31 13:20:29 1991 Simon Marshall (sm at olympus) * Released xalarm-1.01. * Made MakeX which looks for the absolute path of an executable. Need it for yow, as it is often not is a person's path. * Fixed bug/mistake. I had sometimes declared warg as an Arg, but XtSetValues expects an ArgList. Changed to declare as warg[1]. From comments made by Dave Brooks, Bill Leonard & Braham Levy (plus more once our mailer came up). * Added 2 options; -bell and -warn "...". By default the bell no longer sounds, and the warning times can be specified. Both have resources of course. From comments by Bill Leonard. * Updated the manual & made it clearer. Tue Jul 30 10:29:22 1991 Simon Marshall (sm at olympus) * Changed the way the time is calculated. No more fiddling with strings & it's much more compact. * Added Imakefile, sent by Andreas Stolcke (stolcke@edu.Berkeley.ICSI). I don't know how useful it is, our imake isn't installed. * Changed default font for value entry to 9x15bold in XAlarm.ad; it is a little more readable. bug whereby changes in the dialog was silently accepted while changing other values. * Resources properly label all quit buttons. xalarm-3.06/README 644 164 12 10303 6003737536 6661 Welcome to XAlarm-3 for X11R4/5/6 Ideal for the permanently late, like me. Copyright (c) 1991, 1992, 1995 Simon Marshall WOULD XALARM BE USEFUL TO ME? ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ For those who need to be reminded that they have to be somewhere, or have to do something, on a one-off basis. "Gotta finish work on time, can't be late, going out!", "Meeting in half an hour!" etc. For those who have to be reminded that they have to be somewhere, or have to do something, on a regular basis. "Project discussion at 2.30pm Wednesday!", "Lunch at 1pm!" etc. DESCRIPTION ~~~~~~~~~~~ xalarm is an interactive alarm clock analogous to a combination of leave(1) and calendar(1), only much more powerful. You can set the alarm either by command line options, or by entering the time using the popup window. The time and date formats are quite flexible and natural. At the appropriate time, xalarm pops up a window to tell you that your time is up. You can tell xalarm to pop up warning windows at specified times before the alarm is to trigger in order to warn you of the impending alarm. If a time is not given or recognised, or a date or warning time is not recognised, or confirmation is required, xalarm prompts for one by popping up a window. This gives you an opportunity to change the alarm setting, warnings times, and the message xalarm will display when the alarm is triggered. This form is suitable for inclusion as a menu option under a window manager. You can make xalarm read alarm times, dates, and the messages to display from a file, either as a one-off or periodically using an xalarm daemon. The alarms will only be set on the dates specified in the file. This way you can have an appointments file. This form is suitable for inclusion in an X start up or initialisation script. To help you, xalarm shows the current time, and the alarm also displays the time since the alarm triggered. Even if you end an X session before xalarm has finished, xalarm will save its alarm. It will then be re-started (if the time has not passed) next time you invoke xalarm. xalarm allows you to snooze the alarm after it is triggered, to give you an opportunity to carry on and be late anyway. It can also pester you after it has triggered. Even after you have set the alarm and confirmed it, you can reset the alarm as long as you know the xalarm process number; xalarm can list other xalarm pids. xalarm makes maximum use of resources, as well as having a number of command line options, and these can be used to control most of the appearance of xalarm and (just about) all of its behaviour. The current xalarm options include: -daemon +days|daily|weekly -file +days|date|today|tomorrow|weekly -date +days|date|today|tomorrow|week -time +time|time|now|noon -warn time[,time...] -nowarn -confirm -noconfirm -warnwords number -nowarnwords -list -reset pid|all -kill pid|all -pester time -nopester -snooze time -alarmaudio bell|beep|quiet|shell_script -warningaudio bell|beep|quiet|shell_script -quiet -volume percent -help -version Also supplied is xmemo, a front end to xalarm. By default, make tries to create xfortune and xyow (front ends to xmemo). Note that they require the fortune and yow programs respectively, they don't come with this. xalarm can use X11R5's app-defaults file colour extension. To get the benefit, put: *customization: -color in your ~/.Xdefaults file. See the file INSTALL for instructions on how to build xalarm, and PROBLEMS for help with installation and running. THE END ~~~~~~~ Xalarm uses Xt & Xaw stuff only, and may well be a useful aid to someone trying to learn X, as I was/am. You may have problems with X function names if using R3 or earlier; application contexts are used, but this should not take much changing - using #defines may do most of the job. Written in an attempt to learn X Windows in as short a time as possible; it may be written badly, but makes as much use of resources as possible. I don't think it is (but I wouldn't, would I?) and I have found it is very useful for me now I'm to be responsible for giving lectures... Simon. in the file. This way you can have an appointments file. This form is suitable for inclusion in an X start up or initialisation script. To help you, xalarm shows the current time, and the alarm also displays the time since the alarm triggered. Even if you end an X session before xalarm has finished,xalarm-3.06/Makefile 644 164 12 33422 6003736030 7434 # Makefile generated by imake - do not edit! # $XConsortium: imake.c,v 1.65 91/07/25 17:50:17 rws Exp $ # # The cpp used on this machine replaces all newlines and multiple tabs and # spaces in a macro expansion with a single space. Imake tries to compensate # for this, but is not always successful. # # ------------------------------------------------------------------------- # Makefile generated from "Imake.tmpl" and # $XConsortium: Imake.tmpl,v 1.139 91/09/16 08:52:48 rws Exp $ # # Platform-specific parameters may be set in the appropriate .cf # configuration files. Site-specific parameters should be set in the file # site.def. Full rebuilds are recommended if any parameters are changed. # # If your C preprocessor does not define any unique symbols, you will need # to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing # "make World" the first time). # # ------------------------------------------------------------------------- # site-specific configuration parameters that need to come before # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $ # ------------------------------------------------------------------------- # platform-specific configuration parameters - edit sun.cf to change # platform: $XConsortium: sun.cf,v 1.68 91/07/30 11:34:39 rws Exp $ # operating system: SunOS 4.1.3 # $XConsortium: sunLib.rules,v 1.7 91/12/20 11:19:47 rws Exp $ # ------------------------------------------------------------------------- # site-specific configuration parameters that go after # the platform-specific parameters - edit site.def to change # site: $XConsortium: site.def,v 1.2 91/07/30 20:26:44 rws Exp $ SHELL = /bin/sh TOP = . CURRENT_DIR = . AR = ar clq BOOTSTRAPCFLAGS = CC = cc AS = as COMPRESS = compress CPP = /lib/cpp $(STD_CPP_DEFINES) PREPROCESSCMD = cc -E $(STD_CPP_DEFINES) INSTALL = install LD = ld LINT = lint LINTLIBFLAG = -C LINTOPTS = -axz LN = ln -s MAKE = make MV = mv CP = cp RANLIB = ranlib RANLIBINSTFLAGS = RM = rm -f TROFF = psroff MSMACROS = -ms TBL = tbl EQN = eqn STD_INCLUDES = STD_CPP_DEFINES = STD_DEFINES = EXTRA_LOAD_FLAGS = EXTRA_LIBRARIES = TAGS = ctags SHAREDCODEDEF = -DSHAREDCODE SHLIBDEF = -DSUNSHLIB PROTO_DEFINES = INSTPGMFLAGS = INSTBINFLAGS = -m 0755 INSTUIDFLAGS = -m 4755 INSTLIBFLAGS = -m 0644 INSTINCFLAGS = -m 0444 INSTMANFLAGS = -m 0444 INSTDATFLAGS = -m 0444 INSTKMEMFLAGS = -g kmem -m 2755 PROJECTROOT = /usr/share/X11/X11R5-Solaris1 TOP_INCLUDES = -I$(INCROOT) CDEBUGFLAGS = -O CCOPTIONS = -pipe ALLINCLUDES = $(INCLUDES) $(EXTRA_INCLUDES) $(TOP_INCLUDES) $(STD_INCLUDES) ALLDEFINES = $(ALLINCLUDES) $(STD_DEFINES) $(EXTRA_DEFINES) $(PROTO_DEFINES) $(DEFINES) CFLAGS = $(CDEBUGFLAGS) $(CCOPTIONS) $(ALLDEFINES) LINTFLAGS = $(LINTOPTS) -DLINT $(ALLDEFINES) LDLIBS = $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) LDOPTIONS = $(CDEBUGFLAGS) $(CCOPTIONS) $(LOCAL_LDFLAGS) -L$(USRLIBDIR) LDCOMBINEFLAGS = -X -r DEPENDFLAGS = MACROFILE = sun.cf RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a .emacs_* tags TAGS make.log MakeOut IMAKE_DEFINES = IRULESRC = $(CONFIGDIR) IMAKE_CMD = $(IMAKE) -DUseInstalled -I$(IRULESRC) $(IMAKE_DEFINES) ICONFIGFILES = $(IRULESRC)/Imake.tmpl $(IRULESRC)/Imake.rules \ $(IRULESRC)/Project.tmpl $(IRULESRC)/site.def \ $(IRULESRC)/$(MACROFILE) $(EXTRA_ICONFIGFILES) # ------------------------------------------------------------------------- # X Window System Build Parameters # $XConsortium: Project.tmpl,v 1.138.1.1 92/11/11 09:49:19 rws Exp $ # ------------------------------------------------------------------------- # X Window System make variables; this need to be coordinated with rules PATHSEP = / USRLIBDIR = /usr/share/X11/X11R5-Solaris1/lib BINDIR = /usr/share/X11/X11R5-Solaris1/bin INCROOT = /usr/share/X11/X11R5-Solaris1/include BUILDINCROOT = $(TOP) BUILDINCDIR = $(BUILDINCROOT)/X11 BUILDINCTOP = .. INCDIR = $(INCROOT)/X11 ADMDIR = /usr/adm LIBDIR = $(USRLIBDIR)/X11 CONFIGDIR = $(LIBDIR)/config LINTLIBDIR = $(USRLIBDIR)/lint FONTDIR = $(LIBDIR)/fonts XINITDIR = $(LIBDIR)/xinit XDMDIR = $(LIBDIR)/xdm TWMDIR = $(LIBDIR)/twm MANPATH = /usr/share/X11/X11R5-Solaris1/man MANSOURCEPATH = $(MANPATH)/man MANSUFFIX = n LIBMANSUFFIX = 3 MANDIR = $(MANSOURCEPATH)$(MANSUFFIX) LIBMANDIR = $(MANSOURCEPATH)$(LIBMANSUFFIX) NLSDIR = $(LIBDIR)/nls PEXAPIDIR = $(LIBDIR)/PEX XAPPLOADDIR = $(LIBDIR)/app-defaults FONTCFLAGS = -t INSTAPPFLAGS = $(INSTDATFLAGS) IMAKE = imake DEPEND = makedepend RGB = rgb FONTC = bdftopcf MKFONTDIR = mkfontdir MKDIRHIER = /bin/sh $(BINDIR)/mkdirhier CONFIGSRC = $(TOP)/config DOCUTILSRC = $(TOP)/doc/util CLIENTSRC = $(TOP)/clients DEMOSRC = $(TOP)/demos LIBSRC = $(TOP)/lib FONTSRC = $(TOP)/fonts INCLUDESRC = $(TOP)/X11 SERVERSRC = $(TOP)/server UTILSRC = $(TOP)/util SCRIPTSRC = $(UTILSRC)/scripts EXAMPLESRC = $(TOP)/examples CONTRIBSRC = $(TOP)/../contrib DOCSRC = $(TOP)/doc RGBSRC = $(TOP)/rgb DEPENDSRC = $(UTILSRC)/makedepend IMAKESRC = $(CONFIGSRC) XAUTHSRC = $(LIBSRC)/Xau XLIBSRC = $(LIBSRC)/X XMUSRC = $(LIBSRC)/Xmu TOOLKITSRC = $(LIBSRC)/Xt AWIDGETSRC = $(LIBSRC)/Xaw OLDXLIBSRC = $(LIBSRC)/oldX XDMCPLIBSRC = $(LIBSRC)/Xdmcp BDFTOSNFSRC = $(FONTSRC)/bdftosnf BDFTOSNFSRC = $(FONTSRC)/clients/bdftosnf BDFTOPCFSRC = $(FONTSRC)/clients/bdftopcf MKFONTDIRSRC = $(FONTSRC)/clients/mkfontdir FSLIBSRC = $(FONTSRC)/lib/fs FONTSERVERSRC = $(FONTSRC)/server EXTENSIONSRC = $(TOP)/extensions XILIBSRC = $(EXTENSIONSRC)/lib/xinput PEXLIBSRC = $(EXTENSIONSRC)/lib/PEXlib PHIGSLIBSRC = $(EXTENSIONSRC)/lib/PEX # $XConsortium: sunLib.tmpl,v 1.14.1.2 92/11/11 09:55:02 rws Exp $ SHLIBLDFLAGS = -assert pure-text PICFLAGS = -pic DEPEXTENSIONLIB = EXTENSIONLIB = -lXext DEPXLIB = $(DEPEXTENSIONLIB) XLIB = $(EXTENSIONLIB) -lX11 DEPXMULIB = $(USRLIBDIR)/libXmu.sa.$(SOXMUREV) XMULIBONLY = -lXmu XMULIB = -lXmu DEPOLDXLIB = OLDXLIB = -loldX DEPXTOOLLIB = $(USRLIBDIR)/libXt.sa.$(SOXTREV) XTOOLLIB = -lXt DEPXAWLIB = $(USRLIBDIR)/libXaw.sa.$(SOXAWREV) XAWLIB = -lXaw DEPXILIB = XILIB = -lXi DEPPEXLIB = PEXLIB = -lPEX5 SOXLIBREV = 4.10 SOXTREV = 4.10 SOXAWREV = 5.0 SOOLDXREV = 4.10 SOXMUREV = 4.10 SOXEXTREV = 4.10 SOXINPUTREV = 4.10 SOPEXREV = 1.0 DEPXAUTHLIB = $(USRLIBDIR)/libXau.a XAUTHLIB = -lXau DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a XDMCPLIB = -lXdmcp DEPPHIGSLIB = $(USRLIBDIR)/libphigs.a PHIGSLIB = -lphigs DEPXBSDLIB = $(USRLIBDIR)/libXbsd.a XBSDLIB = -lXbsd LINTEXTENSIONLIB = $(LINTLIBDIR)/llib-lXext.ln LINTXLIB = $(LINTLIBDIR)/llib-lX11.ln LINTXMU = $(LINTLIBDIR)/llib-lXmu.ln LINTXTOOL = $(LINTLIBDIR)/llib-lXt.ln LINTXAW = $(LINTLIBDIR)/llib-lXaw.ln LINTXI = $(LINTLIBDIR)/llib-lXi.ln LINTPEX = $(LINTLIBDIR)/llib-lPEX5.ln LINTPHIGS = $(LINTLIBDIR)/llib-lphigs.ln DEPLIBS = $(DEPXAWLIB) $(DEPXMULIB) $(DEPXTOOLLIB) $(DEPXLIB) DEPLIBS1 = $(DEPLIBS) DEPLIBS2 = $(DEPLIBS) DEPLIBS3 = $(DEPLIBS) # ------------------------------------------------------------------------- # Imake rules for building libraries, programs, scripts, and data files # rules: $XConsortium: Imake.rules,v 1.123 91/09/16 20:12:16 rws Exp $ # ------------------------------------------------------------------------- # start of Imakefile # Based on an Imakefile from: # Andreas Stolcke # International Computer Science Institute, Berkeley. # With help from: # George Lindholm, Jonathan I. Kamens, Braham Levy. # o Define FORKRETURNSSHORT/FORKRETURNSLONG/FORKRETURNSPID_T if your # fork(2) returns short/long/pid_t not int. # o Define USEFLOCK or USELOCKF to use flock(2) or lockf(3) to lock files, # rather than fcntl(2). # o Define USELSEEK to use lseek(2) to move to the end of the file, rather # than fseek(3). # o Define USERENAME to use rename(2) to rename file names (otherwise # un/link(2)). # o Define USEGETHOSTNAME or USEUNAME (or neither if you don't have # gethostname(2) or uname(2)) to get the name of your system. # o Define USEGETPWUID to use getpwuid(3) and getuid(2) to get the user # name and home directory on your system. Note that if you want to use # this method to get the user's home directory, but another method to get # the user name, this symbol must still be defined. # o Define USEGETLOGIN to use getlogin(3) to get the user name (note that # this may not work if xalarm is invoked from a pseudo terminal). # o Define USECUSERID to use cuserid(3) to get the user name. DEFINES = $(SIGNAL_DEFINES) -DUSERENAME -DUSEGETHOSTNAME -DUSEGETPWUID OBJS = alarm.o when.o warnings.o times.o dates.o file.o fns.o xalarm.o SRCS = alarm.c when.c warnings.c times.c dates.c file.c fns.c xalarm.c # How we find commands. Use WHICH, LOCATE or FIND. WHICH= WHICH MADE = test -f LOCAL_LIBRARIES = $(XAWLIB) $(XMULIB) $(XTOOLLIB) $(XLIB) all:: .config PROGRAM = xalarm all:: xalarm xalarm: $(OBJS) $(DEPLIBS) $(RM) $@ $(CC) -o $@ $(OBJS) $(LDOPTIONS) $(LOCAL_LIBRARIES) $(LDLIBS) $(EXTRA_LOAD_FLAGS) saber_xalarm:: $(SRCS) # load $(ALLDEFINES) $(SRCS) $(LOCAL_LIBRARIES) $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) osaber_xalarm:: $(OBJS) # load $(ALLDEFINES) $(OBJS) $(LOCAL_LIBRARIES) $(SYS_LIBRARIES) $(EXTRA_LIBRARIES) install:: xalarm @if [ -d $(DESTDIR)$(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(BINDIR)); fi $(INSTALL) -c $(INSTPGMFLAGS) xalarm $(DESTDIR)$(BINDIR) install.man:: xalarm.man @if [ -d $(DESTDIR)$(MANDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(MANDIR)); fi $(INSTALL) -c $(INSTMANFLAGS) xalarm.man $(DESTDIR)$(MANDIR)/xalarm.$(MANSUFFIX) depend:: $(DEPEND) $(DEPENDFLAGS) -s "# DO NOT DELETE" -- $(ALLDEFINES) -- $(SRCS) lint: $(LINT) $(LINTFLAGS) $(SRCS) $(LINTLIBS) lint1: $(LINT) $(LINTFLAGS) $(FILE) $(LINTLIBS) clean:: $(RM) $(PROGRAM) install:: XAlarm.ad @if [ -d $(DESTDIR)$(XAPPLOADDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(XAPPLOADDIR)); fi $(INSTALL) -c $(INSTAPPFLAGS) XAlarm.ad $(DESTDIR)$(XAPPLOADDIR)/XAlarm install:: XAlarm-color.ad @if [ -d $(DESTDIR)$(XAPPLOADDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(XAPPLOADDIR)); fi $(INSTALL) -c $(INSTAPPFLAGS) XAlarm-color.ad $(DESTDIR)$(XAPPLOADDIR)/XAlarm-color install:: xmemo xfortune xyow @if [ -d $(DESTDIR)$(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(BINDIR)); fi @case '${MFLAGS}' in *[i]*) set +e;; esac; \ for i in xmemo xfortune xyow; do \ (set -x; $(INSTALL) -c $(INSTBINFLAGS) $$i $(DESTDIR)$(BINDIR)); \ done install.man:: xmemo.man @if [ -d $(DESTDIR)$(MANDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(MANDIR)); fi $(INSTALL) -c $(INSTMANFLAGS) xmemo.man $(DESTDIR)$(MANDIR)/xmemo.$(MANSUFFIX) install.man:: xfortune.man @if [ -d $(DESTDIR)$(MANDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(MANDIR)); fi $(INSTALL) -c $(INSTMANFLAGS) xfortune.man $(DESTDIR)$(MANDIR)/xfortune.$(MANSUFFIX) install.man:: xyow.man @if [ -d $(DESTDIR)$(MANDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(MANDIR)); fi $(INSTALL) -c $(INSTMANFLAGS) xyow.man $(DESTDIR)$(MANDIR)/xyow.$(MANSUFFIX) includes:: fns.h fns.h: @./config.1st -quick $(WHICH) fortune yow xmemo.man xyow.man xfortune.man: echo ".so man"`echo n`"/xalarm."`echo n` > $@ xfortune:: xyow:: clean:: $(RM) xfortune xyow xmemo.man xyow.man xfortune.man fns.h .config config:: @./config.1st -quick $(WHICH) fortune yow @xrdb -merge XAlarm.ad @xrdb -merge XAlarm.ad+ .config:: @-$(MADE) .config || make config alarm.o: xalarm.h patchlevel.h when.o: xalarm.h patchlevel.h dates.h warnings.o: xalarm.h patchlevel.h times.o: xalarm.h patchlevel.h dates.h dates.o: xalarm.h patchlevel.h dates.h file.o: xalarm.h patchlevel.h dates.h fns.o: xalarm.h patchlevel.h fns.h xalarm.o: xalarm.h patchlevel.h # ------------------------------------------------------------------------- # common rules for all Makefiles - do not edit emptyrule:: clean:: $(RM_CMD) "#"* Makefile:: -@if [ -f Makefile ]; then set -x; \ $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ else exit 0; fi $(IMAKE_CMD) -DTOPDIR=$(TOP) -DCURDIR=$(CURRENT_DIR) tags:: $(TAGS) -w *.[ch] $(TAGS) -xw *.[ch] > TAGS saber: # load $(ALLDEFINES) $(SRCS) osaber: # load $(ALLDEFINES) $(OBJS) # ------------------------------------------------------------------------- # empty rules for directories that do not have SUBDIRS - do not edit install:: @echo "install in $(CURRENT_DIR) done" install.man:: @echo "install.man in $(CURRENT_DIR) done" Makefiles:: includes:: # ------------------------------------------------------------------------- # dependencies generated by makedepend BSRC = $(TOP)/rgb DEPENDSRC = $(UTILSRC)/makedepend IMAKESRC = $(CONFIGSRC) XAUTHSRC = $(LIBSRC)/Xau XLIBSRC = $(LIBSRC)/X XMUSRC = $(LIBSRC)/Xmu TOOLKITSRC = $(LIBSRC)/Xt AWIDGxalarm-3.06/INSTALL 644 164 12 3051 6000761302 6775 MAKING ~~~~~~ First get any relevant patch files so as to make the latest patch version. You can find out which patch level your xalarm is at by looking at the file patchlevel.h in the source directory, or, if you have xalarm built, by: % xalarm -version See the man page for more. Apply any patches, see the patch files themselves for more information. If you have problems with compilation or use, look at the PROBLEMS file. 1. If you don't want to use the Imakefile, try using Makefile.alt. Do not use the Makefile supplied, unless you are in the Department of Computer Science, University of Hull, UK, and using a Sun called olympus... Check the flag settings in the makefile of your choice. If you are using the Imakefile, generate a Makefile by "xmkmf". If you want to use a different notation or language for dates etc., see WEEKDAYS and related definitions in dates.h. 2. Try making with "make". Answer the questions. Have a play. 3. If you aren't installing (you selfish get), put the contents of XAlarm.ad and XAlarm.ad+ in your ~/.Xdefaults file. Otherwise, try "make install install.man". Look at the manual for anything else & enjoy. BUGS ~~~~ See the PROBLEMS file first. If you have any bugs, comments, suggestions, code, fixes, please let me know and I will make an attempt to include them. A few ``things'' are mentioned in the bugs section of the manual. Don't forget to include the xalarm version number ("xalarm -version" gives it you), machine/OS, X11 release & patch, WM used, etc. EV) XAWLIB = -lXaw DEPXILIB = XILIB = -lXi DEPPEXLIB = PEXLIB = -lPEX5 SOXLIBREV = 4.10 SOXTREV = 4.10 SOXAWREV = 5.0 SOOLDXREV = 4.10 SOXMUREV = 4.10 SOXEXTREV = 4.10 SOXINPUTREV = 4.10 SOPEXREV = 1.0 DEPXAUTHLIB = $(USRLIBDIR)/libXau.a XAUTHLIB = -lXau DEPXDMCPLIB = $(USRLIBDIR)/libXdmcp.a XDMCPLIB = -lXdmcp xalarm-3.06/xalarm.h 644 164 12 15547 6000764433 7446 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ #ifndef xalarm_h #define xalarm_h /* * Bits & bobs #defines, needed by most/all bits & bobs files. */ #include #include #include #include #include #include #include #include "patchlevel.h" /* * Type of instantiation of xalarm. */ typedef enum { Alarm, File, Daemon, RestartOnly } Instance; /* * Application data - from the parsing of the command line args. */ typedef struct { String kill, reset, snooze, proggie, geometry, time, date, warnings, pester, warnaudio, alarmaudio; Boolean confirm, list, quiet, version, help; int warningwords, volume; } ApplData; /* * Global xalarm data, stuffed under one structure. */ typedef struct { XtAppContext appcon; XtIntervalId timeoutid[100], whenid, warningid, alarmid, pesterid; Widget toplevel, alarmwidget, messagewidget, snoozetimebutton, dialog, gettimewidget, getdatewidget, getwtimewidget, confirmwidget, warningwidget, savebutton; Boolean confirm, saveonshutdown; String proggie, geometry, messagestr, timestr, datestr, warningsstr, warningaudio, alarmaudio; char errormessage[1024]; unsigned long dateout, warnings[100], settime, offtime; long timeout; int snooze, numwarnings, warningwords, pester, volume; } AlarmData; /* * macro names... */ #define XtNtime "time" #define XtCTime "Time" #define XtNdate "date" #define XtCDate "Date" #define XtNwarnings "warnings" #define XtCWarnings "Warnings" #define XtNwarningwords "warningwords" #define XtCWarningwords "Warningwords" #define XtNpester "pester" #define XtCPester "Pester" #define XtNsnooze "snooze" #define XtCSnooze "Snooze" #define XtNconfirm "confirm" #define XtCConfirm "Confirm" #define XtNreset "reset" #define XtCReset "Reset" #define XtNlist "list" #define XtCList "List" #define XtNkill "kill" #define XtCKill "Kill" #define XtNalarmaudio "alarmaudio" #define XtCAlarmaudio "Alarmaudio" #define XtNwarnaudio "warningaudio" #define XtCWarnaudio "Warningaudio" #define XtNquiet "quiet" #define XtCQuiet "Quiet" #define XtNvolume "volume" #define XtCVolume "Volume" #define XtNversion "version" #define XtCVersion "Version" #define XtNhelp "help" #define XtCHelp "Help" /* * A R4 problem, I think, not apparent in R5. */ #ifndef XtNname #define XtNname "name" #endif #ifndef XtCName #define XtCName "Name" #endif /* * This is cos of a bug of some sort spotted on a Sparc 2 (SunOS 4.1.1), X11r4, * whereby X crashes if given a zero timeout. Just woof it up a bit. */ #if defined (SparcArchitecture) #define TIMEOUT(t) ((unsigned long) ((t) < 100 ? 100 : (t))) #else #define TIMEOUT(t) ((unsigned long) (t)) #endif /* * And the rest... */ #define CreateManagedButton(widget, name, parent, callback, clientdata) \ widget = XtVaCreateManagedWidget (name, commandWidgetClass, parent, NULL); \ XtAddCallback (widget, XtNcallback, (XtCallbackProc) callback, \ (XtPointer) clientdata) #define AddValueCallback(widget, callback, clientdata) { \ Widget source; \ XtVaGetValues (XtNameToWidget (widget, "value"), XtNtextSource, &source, NULL); \ XtAddCallback (source, XtNcallback, (XtCallbackProc) callback, \ (XtPointer) clientdata); \ } #if defined (SIGNALRETURNSINT) #define SIGRET int #else #define SIGRET void #endif #if defined (FORKRETURNSSHORT) #define FORKRET short #elif defined (FORKRETURNSLONG) #define FORKRET long #elif defined (FORKRETURNSPID_T) #define FORKRET pid_t #else #define FORKRET int #endif #define or || #define and && #define not ! #define XALARMFILE ".xalarms" #define NOTKNOWN "UNKNOWN" #define NOGEOMETRY "NOGEOM" #define ALL "all" #define BELL "bell" #define BEEP "beep" #define QUIET "quiet" #define INVALID (-1) #define NONWIDGET ((Widget) -1) #define NONID ((XtIntervalId) -1) #define DAEMONWEEKLY (INVALID-1) #define TEXT 1024 #define LEAPYEAR(y) (((y) % 400 == 0) or \ (((y) % 4 == 0) and ((y) % 100 != 0))) #define DAYSINFEB(y) ((LEAPYEAR ((y))) ? 29 : 28) #define DAYSINYEAR(y) ((LEAPYEAR ((y))) ? 366 : 365) #define SECSIN1MIN (60) #define SECSIN1HR (60*SECSIN1MIN) #define SECSIN1DAY (24*SECSIN1HR) #define MSECSIN1SEC (1000) #define MSECSIN1MIN (60*MSECSIN1SEC) #define MSECSIN1HR (60*MSECSIN1MIN) #define MSECSIN1DAY (24*MSECSIN1HR) #define ISVALID(x) ((x) != (INVALID)) #define ISINVALID(x) ((x) == (INVALID)) #define ISWIDGET(x) ((x) != (NONWIDGET)) #define ISNONWIDGET(x) ((x) == (NONWIDGET)) #define ISID(x) ((x) != (NONID)) #define ISNONID(x) ((x) == (NONID)) #define ISWEEKLYD(x) ((x) == (DAEMONWEEKLY)) #define PLURAL(x) ((((int) (x)) == 1) ? "" : "s") #define ENDOF(str) ((str) + strlen (str)) #define SUMTIMEOUTS(a, b) \ (unsigned long) (((b) < 0) ? (a) - (unsigned long) (-b) : (a) + (unsigned long) (b)) #if not defined (MAX) #define MAX(x, y) ((x) > (y) ? (x) : (y)) #endif #if not defined (MIN) #define MIN(x, y) ((x) < (y) ? (x) : (y)) #endif #define STREQUAL(a, b) (strncmp ((a), (b), strlen (b)) == 0) #define ERRORIS(error) (STREQUAL (xalarm.errormessage, error)) #define NIL(type, x) ((x) == (type) NULL) #define NONNIL(type, x) ((x) != (type) NULL) #define MAKETIMESTRING(buf, mins) \ if ((mins) >= 60) \ (void) sprintf (buf, "%d:%02d hr%s", (int) (mins)/60, (int) (mins)%60, \ PLURAL ((mins)/60)); \ else \ (void) sprintf (buf, "%d min%s", (int) (mins), PLURAL (mins)) #define MAKETIME(buf, mins) \ if ((mins) >= 60) \ (void) sprintf (buf, "%d:%02d", (int) (mins)/60, (int) (mins)%60); \ else \ (void) sprintf (buf, "%d", (int) (mins)) #define RESETERROR() xalarm.errormessage[0] = '\0' #define ADDERROR(message, madeto) \ if (NIL (String, madeto)) \ (void) sprintf (xalarm.errormessage, "%s\n", message); \ else if (*madeto == '\0') \ (void) sprintf (xalarm.errormessage, "%s (at end)\n", message); \ else \ (void) sprintf (xalarm.errormessage, "%s (at `%s')\n", message, madeto) /* * DON'T PUT ANYTHING AFTER THIS!!! */ #endif rnings" #define XtNwarningwords "warningwords" #define XtCWarningwords "Warningwords" #define XtNpester "pester" #define XtCPester "Pester" #define xalarm-3.06/Imakefile 644 164 12 5030 6003735147 7567 /**/# Based on an Imakefile from: /**/# Andreas Stolcke /**/# International Computer Science Institute, Berkeley. /**/# With help from: /**/# George Lindholm, Jonathan I. Kamens, Braham Levy. /**/# o Define FORKRETURNSSHORT/FORKRETURNSLONG/FORKRETURNSPID_T if your /**/# fork(2) returns short/long/pid_t not int. /**/# o Define USEFLOCK or USELOCKF to use flock(2) or lockf(3) to lock files, /**/# rather than fcntl(2). /**/# o Define USELSEEK to use lseek(2) to move to the end of the file, rather /**/# than fseek(3). /**/# o Define USERENAME to use rename(2) to rename file names (otherwise /**/# un/link(2)). /**/# o Define USEGETHOSTNAME or USEUNAME (or neither if you don't have /**/# gethostname(2) or uname(2)) to get the name of your system. /**/# o Define USEGETPWUID to use getpwuid(3) and getuid(2) to get the user /**/# name and home directory on your system. Note that if you want to use /**/# this method to get the user's home directory, but another method to get /**/# the user name, this symbol must still be defined. /**/# o Define USEGETLOGIN to use getlogin(3) to get the user name (note that /**/# this may not work if xalarm is invoked from a pseudo terminal). /**/# o Define USECUSERID to use cuserid(3) to get the user name. DEFINES = $(SIGNAL_DEFINES) -DUSERENAME -DUSEGETHOSTNAME -DUSEGETPWUID OBJS = alarm.o when.o warnings.o times.o dates.o file.o fns.o xalarm.o SRCS = alarm.c when.c warnings.c times.c dates.c file.c fns.c xalarm.c # How we find commands. Use WHICH, LOCATE or FIND. WHICH= WHICH MADE = test -f LOCAL_LIBRARIES = XawClientLibs AllTarget (.config) ComplexProgramTarget (xalarm) InstallAppDefaults (XAlarm) InstallAppDefaults (XAlarm-color) InstallMultipleFlags (xmemo xfortune xyow,$(BINDIR),$(INSTBINFLAGS)) InstallManPage (xmemo,$(MANDIR)) InstallManPage (xfortune,$(MANDIR)) InstallManPage (xyow,$(MANDIR)) includes:: fns.h fns.h: @./config.1st -quick $(WHICH) fortune yow xmemo.man xyow.man xfortune.man: echo ".so man"`echo ManSuffix`"/xalarm."`echo ManSuffix` > $@ xfortune:: xyow:: clean:: $(RM) xfortune xyow xmemo.man xyow.man xfortune.man fns.h .config config:: @./config.1st -quick $(WHICH) fortune yow @xrdb -merge XAlarm.ad @xrdb -merge XAlarm.ad+ .config:: @-$(MADE) .config || make config alarm.o: xalarm.h patchlevel.h when.o: xalarm.h patchlevel.h dates.h warnings.o: xalarm.h patchlevel.h times.o: xalarm.h patchlevel.h dates.h dates.o: xalarm.h patchlevel.h dates.h file.o: xalarm.h patchlevel.h dates.h fns.o: xalarm.h patchlevel.h fns.h xalarm.o: xalarm.h patchlevel.h ne XtCSnooze "Snooze" #define XtNconfirm "confirm" #define XtCConfirm "Confirm" #define XtNreset "reset" #define XtCReset "Reset" #define XtNlist "list" #define XtCList "List" #define XtNkill "kill" #define XtCKill "Kill" #define XtNalarmaudio "alarmaudio" #define XtCAlarmaudio "Alarmaudio" #define XtNwarnaudio "warningaudio" #define XtCWarnaudio "Warningaudio" #define XtNquiet "quiet" #define XtCQuiet "Quiet" #define XtNvolume "volume" #define XtCVolume "Volume"xalarm-3.06/alarm.c 644 164 12 16260 6000764445 7245 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * The stuff needed for the alarm call widget to appear on the screen, * and the stuff for snoozing it. */ #include "xalarm.h" #include #include #include #define NAMEFORMAT "%s: %s@%s" #define REALNAMEFORMAT " <%s>" #define TIMEFORMAT " (%d:%02d)" void CreateAlarmWidget(), WakeUp(), ShowClickToZero(), ShowSnoozeValue(); SIGRET ResetAlarm(); static void SnoozeAmount(), Snooze(), TimeTracker(); extern void PopupAndAsk(), AddTimeOuts(), SetWMName(), SetGeometry(), EnsureNotGrownOffScreen(), Audio(), QuitWarning(), Quit(); extern unsigned long DateToMilliSeconds(); extern long TimeToMilliSeconds(); extern XtIntervalId ResetTracker(); extern String getenv(), UserName(), MachineName(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Create the widget that holds the alarm itself. */ void CreateAlarmWidget (alarmmessage) String alarmmessage; { Widget alarm, alarmbox, message, buttonbox, quit, snooze, snooze1, snooze5, snooze15, snoozetime; static char snoozetimetranslations [] = ": highlight() ShowClickToZero() \n\ : ShowSnoozeValue() unhighlight()"; alarm = XtVaCreatePopupShell ("Alarm!", transientShellWidgetClass, xalarm.toplevel, NULL); alarmbox = XtVaCreateManagedWidget ("alarm", formWidgetClass, alarm, NULL); buttonbox = XtVaCreateManagedWidget ("buttons", formWidgetClass, alarmbox, NULL); CreateManagedButton (quit, "quit", buttonbox, Quit, NULL); CreateManagedButton (snooze, "snooze", buttonbox, Snooze, NULL); CreateManagedButton (snooze1, "snooze1", buttonbox, SnoozeAmount, 1); CreateManagedButton (snooze5, "snooze5", buttonbox, SnoozeAmount, 5); CreateManagedButton (snooze15, "snooze15" ,buttonbox, SnoozeAmount, 15); CreateManagedButton (snoozetime, "snoozetime", buttonbox, SnoozeAmount, 0); if (NONNIL (String, alarmmessage)) message = XtVaCreateManagedWidget ("message", labelWidgetClass, alarmbox, XtNlabel, (XtArgVal) (xalarm.messagestr = alarmmessage), NULL); else { message = XtVaCreateManagedWidget ("message", labelWidgetClass, alarmbox, NULL); XtVaGetValues (message, XtNlabel, &xalarm.messagestr, NULL); } XtOverrideTranslations (snoozetime, XtParseTranslationTable (snoozetimetranslations)); xalarm.alarmwidget = alarm; xalarm.snoozetimebutton = snoozetime; xalarm.messagewidget = message; } /* * This is for the snoozetime button which doubles as the label showing how * much time the snooze is selected for. */ void ShowClickToZero () { XtVaSetValues (xalarm.snoozetimebutton, XtNlabel, (XtArgVal) "Zero time", NULL); EnsureNotGrownOffScreen (xalarm.alarmwidget); } void ShowSnoozeValue () { char buf[TEXT]; MAKETIMESTRING (buf, (int) (xalarm.timeout / MSECSIN1MIN)); XtVaSetValues (xalarm.snoozetimebutton, XtNlabel, (XtArgVal) buf, NULL); EnsureNotGrownOffScreen (xalarm.alarmwidget); } /* * Add to the amount that is currently the amount to snooze by. */ static void SnoozeAmount (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { int mins = (int) clientdata; if (mins == 0) { xalarm.timeout = xalarm.dateout = 0; ShowClickToZero (); } else { xalarm.timeout += (mins*MSECSIN1MIN); ShowSnoozeValue (); } } /* * Time to sleep. Add the time outs & disappear. */ static void Snooze (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { AddTimeOuts (); if (ISVALID (xalarm.pesterid)) { XtRemoveTimeOut (xalarm.pesterid); xalarm.pesterid = INVALID; } if (ISVALID (xalarm.alarmid)) { XtRemoveTimeOut (xalarm.alarmid); xalarm.alarmid = INVALID; } XtPopdown (xalarm.alarmwidget); } /* * Time to wake up. */ void WakeUp (clientdata, id) XtPointer clientdata; XtIntervalId id; { xalarm.timeout = xalarm.dateout = 0; xalarm.saveonshutdown = False; SnoozeAmount ((Widget) NULL, (XtPointer) xalarm.snooze, (XtPointer) NULL); if (ISNONID (xalarm.alarmid)) TimeTracker ((XtPointer) xalarm.alarmwidget, (XtIntervalId) NULL); SetGeometry (xalarm.alarmwidget); XtPopup (xalarm.alarmwidget, XtGrabNone); XFlush (XtDisplay (xalarm.alarmwidget)); Audio (xalarm.alarmaudio); if (xalarm.pester > 0) { XRaiseWindow (XtDisplay (xalarm.alarmwidget), XtWindow (xalarm.alarmwidget)); xalarm.pesterid = XtAppAddTimeOut (xalarm.appcon, TIMEOUT (xalarm.pester * MSECSIN1MIN), (XtTimerCallbackProc) WakeUp, (XtPointer) NULL); } if (ISWIDGET (xalarm.warningwidget)) QuitWarning ((Widget) NULL, (XtPointer) (XtParent (XtParent (xalarm.warningwidget))), (XtPointer) NULL); } /* * Track the time for this widget. Puts a clock in the WM name, * along with the user's name etc. */ static void TimeTracker (clientdata, id) XtPointer clientdata; XtIntervalId id; { String user = UserName(), host = MachineName(), name = getenv ("NAME"); char wmname[TEXT]; time_t now; struct tm *clock; (void) time (&now); clock = localtime (&now); now -= (time_t) xalarm.offtime; (void) sprintf (wmname, NAMEFORMAT, xalarm.proggie, user, host); if (NONNIL (String, name)) (void) sprintf (ENDOF (wmname), REALNAMEFORMAT, name); if (now >= 60) { (void) strcat (wmname, " +"); MAKETIMESTRING (ENDOF (wmname), now / SECSIN1MIN); } (void) sprintf (ENDOF (wmname), TIMEFORMAT, clock->tm_hour, clock->tm_min); SetWMName ((Widget) clientdata, wmname); xalarm.alarmid = ResetTracker (TimeTracker, clientdata, (int) (xalarm.offtime % 60)); } /* * Let's popup to reset our alarm. */ SIGRET ResetAlarm (sig, code, scp, addr) int sig, code; struct sigcontext *scp; char *addr; { unsigned long timeout = SUMTIMEOUTS (xalarm.dateout, xalarm.timeout); time_t now; int i; now = time ((time_t *) NULL); timeout -= (now - xalarm.settime); for (i=0; i xalarm.warnings[i]) XtRemoveTimeOut (xalarm.timeoutid[i]); XtRemoveTimeOut (xalarm.timeoutid[xalarm.numwarnings]); if (ISVALID (xalarm.pesterid)) { XtRemoveTimeOut (xalarm.pesterid); xalarm.pesterid = INVALID; } xalarm.dateout = DateToMilliSeconds (xalarm.datestr); xalarm.timeout = INVALID; PopupAndAsk (); } ad @if [ -d $(DESTDIR)$(XAPPLOADDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(XAPPLOADDIR)); fi $(INSTALL) -c $(INSTAPPFLAGS) XAlarm-color.ad $(DESTDIR)$(XAPPLOADDIR)/XAlarm-color install:: xmemo xfortune xyow @if [ -d $(DESTDIR)$(BINDIR) ]; then set +x; \ else (set -x; $(MKDIRHIER) $(DESTDIR)$(BINDIR)); fi @casxalarm-3.06/fns.c 644 164 12 43265 6000764442 6741 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * Just a few bits and bobs. */ #include "xalarm.h" #include "fns.h" #if defined (USEGETPWUID) #include #else extern String getenv(); #endif #if defined (USEUNAME) #include #endif #define FILEOPTION1 "-file" #define FILEOPTION2 "-f" #define DAEMONOPTION1 "-daemon" #define DAEMONOPTION2 "-demon" #define RESTARTONLY1 "-restartonly" #define RESTARTONLY2 "-restart" #define COMMANDLIST "echo xalarms: `%s`" #define COMMANDRESET "%s -USR1 `%s`" #define COMMANDKILL "%s -USR2 `%s`" #define DOWNCASE(ch) (((ch) >= 'A') and ((ch) <= 'Z') ? \ ((ch) - 'A' + 'a') : (ch)) String Concat(), ReplaceNewlines(), NextWord(), DisplayName(), UserName(), HomeDirectory(), MachineName(); Boolean IsInteger(); Instance PreParseArgList(); XtIntervalId ResetTracker(); SIGRET KillAlarm(); void Initialise(), AddTimeOuts(), SetWMName(), StartDaemon(), SetGeometry(), EnsureNotGrownOffScreen(), Audio(), Quit(); static void CentreWidgetUnderPointer(), ParseGeometry(); static SIGRET KillDaemon(); extern void DoAlarm(), Warning(), WakeUp(), PopupAndAsk(); extern FORKRET fork(); extern int ParseAlarmFile(), DaysTo(); extern long TimeToMilliSeconds(); extern unsigned long DateToMilliSeconds(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Just give a bit of help etc. * Fork off a child otherwise. */ void Initialise (proggie, data) String proggie; ApplData *data; { char getpids[TEXT], command[TEXT]; if (NIL (String, data->proggie)) data->proggie = proggie; if (data->version) (void) printf ("%s: using xalarm version %s\n", data->proggie, XALARMVERSION); if (data->help) { (void) printf ("Usage: %s [options] [text]\n\n", data->proggie); (void) printf ("Default values for these resources/options are used by %s,\n\t", data->proggie); (void) printf ("but may be over-ruled.\n"); (void) printf ("Usual X options, plus:\n\t"); (void) printf ("-file +days|date\tSet alarms up to date from alarm file(s).\n\t"); (void) printf ("-daemon +days|date\tStart a daemon to look at alarm file(s).\n\t"); (void) printf ("-date +days|date\tDate at which to trigger %s.\n\t", data->proggie+1); (void) printf ("-time +time|time\tTime at which to trigger %s.\n\t", data->proggie+1); (void) printf ("-[no]confirm\t\t[Don't] ask for confirmation.\n\t"); (void) printf ("-warn time[,time...]\tTimes before %s for warnings.\n\t", data->proggie+1); (void) printf ("-warnwords number\tWords from %s message in warning.\n\t", data->proggie+1); (void) printf ("-list\t\t\tList xalarm process numbers (pids).\n\t"); (void) printf ("-reset pid|all\t\tReset xalarm process number pid/all xalarms.\n\t"); (void) printf ("-kill pid|all\t\tKill xalarm process number pid/all xalarms.\n\t"); (void) printf ("-restart\t\tOnly try to restart previous alarms.\n\t"); (void) printf ("-alarmaudio method\tWhat noise to make on the alarm.\n\t"); (void) printf ("-warningaudio method\tWhat noise to make on warnings.\n\t"); (void) printf ("-volume percentage\tPercentage volume for the terminal bell.\n\t"); (void) printf ("-quiet\t\t\tDon't make a sound.\n\t"); (void) printf ("-pester time\t\tTime after which %s re-triggers.\n\t", data->proggie+1); (void) printf ("-snooze time\t\tSet initial alarm snooze time value.\n\t"); (void) printf ("-nowarn\t\t\tNo warnings.\n\t"); (void) printf ("-nowarnwords\t\tNo words from %s message in warning.\n\t", data->proggie+1); (void) printf ("-nopester\t\tDon't persecute after %s triggers.\n", data->proggie+1); } if (data->list) { (void) sprintf (getpids, GETXALARMPIDS, getpid ()); (void) sprintf (command, COMMANDLIST, getpids); if (system (command) != 0) perror (data->proggie); } if (NONNIL (String, data->reset)) if (not STREQUAL (data->reset, ALL)) { if (kill (atoi (data->reset), SIGUSR1) == -1) perror (data->proggie); } else { (void) sprintf (getpids, GETXALARMPIDS, getpid ()); (void) sprintf (command, COMMANDRESET, KILLPATH, getpids); if (system (command) != 0) perror (data->proggie); } if (NONNIL (String, data->kill)) if (not STREQUAL (data->kill, ALL)) { if (kill (atoi (data->kill), SIGUSR2) == -1) perror (data->proggie); } else { (void) sprintf (getpids, GETXALARMPIDS, getpid ()); (void) sprintf (command, COMMANDKILL, KILLPATH, getpids); if (system (command) != 0) perror (data->proggie); } if ((data->list) or (data->version) or (data->help) or (NONNIL (String, data->kill)) or (NONNIL (String, data->reset))) exit (0); /* * Fork & exit the parent. If the fork fails, carry on anyway. * Is this OK? Should we sleep a bit first? */ switch ((int) fork ()) { case -1: perror (data->proggie); case 0: break; default: exit (0); } } /* * Check to see if we're to do the appointments thing, and copy out * the arg list, then clear the original to prevent others snooping. */ Instance PreParseArgList (argv, argc, days, args) String *argv, **args; int *argc, *days; { String ch; Instance instance = Alarm; int last = *argc, i; *args = (String *) XtCalloc (*argc+4, sizeof (String *)); (*args)[0] = XtNewString (argv[0]); *argc = 1; for (i=1; itm_wday, argv, argc); else kids = ParseAlarmFile (days - 1, argv, argc); while (kids-- > 0) (void) wait ((int *) NULL); /* * Sleep until the next time, then test the connection. */ (void) time (&abstime); now = localtime (&abstime); (void) sleep ((unsigned) (30 + ((ISWEEKLYD (days) ? (days = 7) - now->tm_wday + 1 : days) * SECSIN1DAY) - (now->tm_hour * SECSIN1HR) - (now->tm_min * SECSIN1MIN) - now->tm_sec)); XSync (display, False); } } } /* * Signal handler for a daemon - it just kills the process. */ static SIGRET KillDaemon (sig, code, scp, addr) int sig, code; struct sigcontext *scp; char *addr; { (void) fprintf (stderr, "xalarm: Daemon killed (%d).\n", getpid ()); exit (0); } /* * Signal handler for a normal alarm - it just kills the process. */ SIGRET KillAlarm (sig, code, scp, addr) int sig, code; struct sigcontext *scp; char *addr; { Quit ((Widget) NULL, (XtPointer) NULL, (XtPointer) NULL); } /* * We add the time outs for the alarm & warnings. * The warnings are added only if there is time enuf to go. * ie. if "-time +10 -warn 15" you will get nowt. * "-time +10 -warn 9" will, however, give you a warning in 1 min. */ void AddTimeOuts () { unsigned long timeout = SUMTIMEOUTS (xalarm.dateout, xalarm.timeout); int i; xalarm.settime = (unsigned long) time ((time_t *) NULL); xalarm.offtime = xalarm.settime + (timeout / MSECSIN1SEC); for (i=0; i xalarm.warnings[i]) xalarm.timeoutid[i] = XtAppAddTimeOut (xalarm.appcon, TIMEOUT (timeout - xalarm.warnings[i]), (XtTimerCallbackProc) Warning, (XtPointer) (xalarm.warnings[i] / MSECSIN1MIN)); xalarm.timeoutid[xalarm.numwarnings] = XtAppAddTimeOut (xalarm.appcon, TIMEOUT (timeout), (XtTimerCallbackProc) WakeUp, (XtPointer) NULL); } /* * Set the window manager name of the given widget. */ void SetWMName (widget, name) Widget widget; String name; { Display *display = XtDisplay (xalarm.toplevel); String wmname[1]; XTextProperty property; if (not XtIsRealized (widget)) XtRealizeWidget (widget); wmname[0] = name; if (XStringListToTextProperty (wmname, 1, &property)) { XSetWMName (display, XtWindow (widget), &property); XSetWMIconName (display, XtWindow (widget), &property); XtFree (property.value); } } /* * Reset the tracker so it calls itself. */ XtIntervalId ResetTracker (tracker, clientdata, triggered) XtTimerCallbackProc tracker; XtPointer clientdata; int triggered; { time_t now; struct tm *clock; (void) time (&now); clock = localtime (&now); /* * 60 seconds from when it triggered. */ return (XtAppAddTimeOut (xalarm.appcon, TIMEOUT (MSECSIN1SEC * (60 - clock->tm_sec + triggered)), tracker, clientdata)); } /* * Set the geometry of the given widget. */ void SetGeometry (widget) Widget widget; { Dimension width, height, borderwidth; if (not XtIsRealized (widget)) XtRealizeWidget (widget); XtVaGetValues (widget, XtNwidth, &width, XtNheight, &height, XtNborderWidth, &borderwidth, NULL); if (STREQUAL (xalarm.geometry, NOGEOMETRY)) CentreWidgetUnderPointer (widget, width, height, borderwidth); else ParseGeometry (widget, width, height, borderwidth, xalarm.geometry); } /* * Move the given widget so that it is directly underneath the pointer. */ static void CentreWidgetUnderPointer (widget, width, height, borderwidth) Widget widget; Dimension width, height, borderwidth; { Window root, child; int x, y, dummy; unsigned int mask; width += (borderwidth * 2); height += (borderwidth * 2); if (XQueryPointer (XtDisplay (widget), XtWindow (widget), &root, &child, &x, &y, &dummy, &dummy, &mask)) { x = MAX (0, MIN (x - ((int) width / 2), XWidthOfScreen (XtScreen (widget)) - (int) width)); y = MAX (0, MIN (y - ((int) height / 2), XHeightOfScreen (XtScreen (widget)) - (int) height)); XtVaSetValues (widget, XtNx, (XtArgVal) x, XtNy, (XtArgVal) y, NULL); } } /* * Move +/ resize the given widget so that it has the given geometry. */ static void ParseGeometry (widget, currentwidth, currentheight, borderwidth, geometry) Widget widget; Dimension currentwidth, currentheight, borderwidth; String geometry; { unsigned int width = (unsigned int) currentwidth, height = (unsigned int) currentheight; int x = 0, y = 0, mask; mask = XParseGeometry (geometry, &x, &y, &width, &height); if (mask & WidthValue) XtVaSetValues (widget, XtNwidth, (XtArgVal) width, NULL); if (mask & HeightValue) XtVaSetValues (widget, XtNheight, (XtArgVal) height, NULL); if (mask & (WidthValue | HeightValue)) XtVaSetValues (widget, XtNallowShellResize, (XtArgVal) False, NULL); if (not (mask & (XValue | YValue))) CentreWidgetUnderPointer (widget, width, height, borderwidth); else { if (mask & XNegative) x = x + XWidthOfScreen (XtScreen (widget)) - (int) width; if (mask & YNegative) y = y + XHeightOfScreen (XtScreen (widget)) - (int) height; XtVaSetValues (widget, XtNx, (XtArgVal) x, XtNy, (XtArgVal) y, NULL); } } /* * Make sure that the widget's right side is visible. * For resizing popups. */ void EnsureNotGrownOffScreen (widget) Widget widget; { Position x; Dimension width, borderwidth, screenwidth = XWidthOfScreen (XtScreen (widget)); XtVaGetValues (widget, XtNx, &x, XtNwidth, &width, XtNborderWidth, &borderwidth, NULL); width += (borderwidth * 2); if (screenwidth > width) XtVaSetValues (widget, XtNx, (XtArgVal) MIN (x, screenwidth - width), NULL); } /* * Pull out any display arg. */ String DisplayName (argv, argc) String *argv; int argc; { String displayname = (String) NULL; int i; for (i=1; i 1) (void) strcat (buffer, "\n"); (void) strcat (buffer, strings[i]); } return (buffer); } /* * Replace each newline by a space. Returns the new string. */ String ReplaceNewlines (str) String str; { String s, newstr = XtNewString (str); if (NONNIL (String, s = newstr)) do if (*s == '\n') *s = ' '; while (*(s++) != '\0'); return (newstr); } /* * Return the next word in str, starting at position chpos in the * string. The returned word is in lower case. */ String NextWord (str, chpos) String str; int *chpos; { String word; int start, i; while (isspace (str[*chpos])) (*chpos)++; start = *chpos; while ((not isspace (str[*chpos])) and (str[*chpos] != '\0')) (*chpos)++; if ((str[*chpos] == '\0') and (start == *chpos)) return (""); else { word = XtMalloc (*chpos - start + 1); for (i=0; i<(*chpos-start); i++) word[i] = DOWNCASE (str[start+i]); word[*chpos-start] = '\0'; return (word); } } /* * Returns true iff the string contains a valid integer. */ Boolean IsInteger (str) String str; { if (*str == '+') str++; while (*str != '\0') if (not isdigit (*str++)) return (False); return (True); } /* * Return the user, users' home directory & host names. */ String UserName () { static String name = (String) NULL; if (NIL (String, name)) #if defined (USEGETLOGIN) name = (String) getlogin (); #elif defined (USECUSERID) (void) cuserid (name = XtMalloc ((Cardinal) L_cuserid + 1)); #elif defined (USEGETPWUID) name = getpwuid (getuid ())->pw_name; name = XtNewString (name); #else name = getenv ("USER"); #endif return ((NIL (String, name)) ? NOTKNOWN : name); } String HomeDirectory () { static String name = (String) NULL; if (NIL (String, name)) #if defined (USEGETPWUID) name = getpwuid (getuid ())->pw_dir; name = XtNewString (name); #else name = getenv ("HOME"); #endif return ((NIL (String, name)) ? NOTKNOWN : name); } String MachineName () { #if defined (USEGETHOSTNAME) static char name[TEXT]; return ((gethostname (name, TEXT) < 0) ? NOTKNOWN : name); #elif defined (USEUNAME) static struct utsname name; return ((uname (&name) < 0) ? NOTKNOWN : name.nodename); #else return (NOTKNOWN); #endif } /* * This function generates a random number and stuffs it down the pipe. */ void Quit (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { XtDestroyApplicationContext (xalarm.appcon); exit (0); } offtime = xalarm.settime + (timeout / MSECSIN1SEC); for (i=0; i xalarm.warnings[i]) xalarm.timeoutid[i] = XtAppAddTimeOut (xalarm.appcon, TIMEOUT (timeout - xalarm.warnings[i]), (XtTimerCallbackProc) Warning, (XtPointer) (xalarm.warnings[i] / MSECSIN1MIN)); xaxalarm-3.06/dates.c 644 164 12 23576 6000764452 7257 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * Parse dates. */ #include "xalarm.h" #include "dates.h" Boolean AppointmentWithin(); unsigned long DateToMilliSeconds(); int DaysTo(); static int DaysBetween(), DaysBeforeDate(); static Boolean ParseDateString(); extern Boolean ParseTimeString(), IsInteger(); extern String NextWord(); extern long TimeToMilliSeconds(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Is the number of days before the date within the number of days given. */ Boolean AppointmentWithin (withindays, line, timestr, datestr, chpos) String line, *timestr, *datestr; int withindays, *chpos; { String date, word; Boolean dummy; unsigned long dateout; long timeout; int days, dayofweek, dayofmonth, month, year, hrs, mins; if ((*line == '\n') or (*line == '#') or (*line == '!') or (*line == '\0')) return (False); /* * Get the date. */ date = XtMalloc (TEXT); date[0] = '\0'; while (strcmp (word = NextWord (line, chpos), "-")) if (*word == '\0') break; else if (date[0] == '\0') (void) strcpy (date, word); else (void) sprintf (ENDOF (date), " %s", word); if (date[0] == '\0') *datestr = XtNewString ("today"); else *datestr = XtNewString (date); if (not ParseDateString (*datestr, &days, &dayofweek, &dayofmonth, &month, &year)) { (void) fprintf (stderr, "%s%s", xalarm.errormessage, line); return (False); } /* * Get the time. * There might not be a time there, so we ignore any errors. */ if (*word == '\0') *timestr = XtNewString ("+0"); else { *timestr = NextWord (line, chpos); if (not ParseTimeString (*timestr, &hrs, &mins, &dummy)) { if (*timestr[0] != '\0') do (*chpos)--; while (line[*chpos] != ' '); *timestr = XtNewString ("+0"); } } dateout = DateToMilliSeconds (*datestr); timeout = TimeToMilliSeconds (*timestr); if (ISVALID (dateout)) { /* * We can't just see if the sum is positive 'cos dateout is unsigned... */ days = (int) (dateout / MSECSIN1DAY); return (((days > 0) and (days <= withindays)) or ((days == 0) and (timeout >= 0))); } else { /* * We don't report errors if the alarm is just too far ahead or gone... */ (void) DateToMilliSeconds (*datestr); if (not (ERRORIS (TOOFARAHEAD) or ERRORIS (DATEPASSED) or ERRORIS (TIMEPASSED))) (void) fprintf (stderr, "%s%s", xalarm.errormessage, line); return (False); } } /* * Returns the number of milliseconds to the date given in datestr. */ unsigned long DateToMilliSeconds (datestr) String datestr; { char baddate[TEXT]; int days, dayofweek, dayofmonth, month, year; if (*datestr == '\0') return ((unsigned long) 0); else if (not ParseDateString (datestr, &days, &dayofweek, &dayofmonth, &month, &year)) return ((unsigned long) INVALID); if (ISINVALID (days)) days = DaysBeforeDate (dayofweek, dayofmonth, month, year); if (((days > 0) and (days <= MAXDAYS)) or ((days == 0) and (ISINVALID (xalarm.timeout) or (xalarm.timeout >= 0)))) return ((unsigned long) days * MSECSIN1DAY); else { if ((days == 0) and (ISVALID (xalarm.timeout)) and (xalarm.timeout < 0)) { ADDERROR (TIMEPASSED, (String) NULL); } else if (days < 0) { (void) sprintf (baddate, "%d days", days); ADDERROR (DATEPASSED, baddate); } else { (void) sprintf (baddate, "+%d days", days); ADDERROR (TOOFARAHEAD, baddate); } return ((unsigned long) INVALID); } } /* * Parse that string. I did this one myself! * Works in whole days only. */ static Boolean ParseDateString (str, days, dayofweek, dayofmonth, month, year) String str; int *days, *dayofweek, *dayofmonth, *month, *year; { static int daysin[] = {DAYSINMONTHS}; static char strings[][4] = {WEEKDAYS, MONTHS, TODAY, DAILY, TOMORROW, WEEK, WEEKLY, "!!!", "!!!"}; String word, monthstr = (String) NULL; time_t now; struct tm *today; int thisyear, num, i, chpos = 0; RESETERROR (); *days = *dayofweek = *dayofmonth = *month = *year = -1; (void) time (&now); today = localtime (&now); if ((*str == '+') and (IsInteger (str))) *days = atoi (str); else while (strcmp (word = NextWord (str, &chpos), "")) { i = 0; while ((not (STREQUAL (word, strings[i]))) and (i < XtNumber (strings))) i++; if (i == 19) /* TODAY. */ *days = 0; else if (i == 20) /* DAILY. */ *days = 1; else if (i == 21) /* TOMORROW. */ if (*days < 0) *days = 1; else (*days)++; else if ((i == 22) or (i == 23)) /* WEEK or WEEKLY. */ if (*days < 0) *days = 7; else (*days) += 7; else if (i < 7) /* Weekday. */ if (*dayofweek < 0) *dayofweek = i; else { ADDERROR (ANOTHERWEEKDAY, word); return (False); } else if (i < 19) /* Month. */ if (*month < 0) { *month = i-7; monthstr = word; } else { ADDERROR (ANOTHERMONTH, word); return (False); } else if (((num = atoi (word)) <= 0) or (not IsInteger (word))) { ADDERROR (UNRECOGNISED, word); return (False); } /* * Otherwise assume it's a year or a month day. */ else if (num > 90) if (*year < 0) *year = num; else { ADDERROR (ANOTHERYEAR, word); return (False); } else if (*dayofmonth < 0) *dayofmonth = num; else { ADDERROR (ANOTHERMONTH, word); return (False); } } /* * Have we been given a day + day of week, like "week tues"? */ if ((*days > 0) and (*dayofweek >= 0)) (*days) += ((*dayofweek + 7) - today->tm_wday) % 7; /* * Check that the day of month is OK for this month. */ if ((*month >= 0) and (*dayofmonth > 0)) { if ((thisyear = *year) < 0) thisyear = today->tm_year + 1900; daysin[1] = DAYSINFEB (thisyear); if (*dayofmonth > daysin[*month]) { ADDERROR (WRONGDAYSMONTH, monthstr); return (False); } } return (True); } /* * Calculates the number of *whole* days before the date given by the args. */ static int DaysBeforeDate (dayofweek, dayofmonth, month, year) int dayofweek, dayofmonth, month, year; { static int daysin[] = {DAYSINMONTHS}; struct tm today, *date; time_t now; (void) time (&now); date = localtime (&now); today.tm_yday = date->tm_yday; today.tm_year = date->tm_year; if (year > 99) year = year - 1900; if (dayofweek < 0) { /* * If no day of week is given, just use the day/month/year date. * Cycle through the month/year. */ if (dayofmonth >= 0) date->tm_mday = dayofmonth; if (month >= 0) date->tm_mon = month; if (year >= 0) date->tm_year = year; while ((year < 0) and (date->tm_year < (2500-1900)) and (DaysBetween (&today, date) < 0)) if (month < 0) date->tm_mon = (date->tm_mon + 1) % 12; else date->tm_year++; } else /* * We assume Buck Rodgers will have something better than xalarm... * Cycle through dates until we find it. */ while ((date->tm_year < (2500-1900)) and (((dayofweek >= 0) and (dayofweek != date->tm_wday)) or ((dayofmonth >= 0) and (dayofmonth != date->tm_mday)) or ((month >= 0) and (month != date->tm_mon)) or ((year >= 0) and (year != date->tm_year)))) { /* * Just add one to the week day & month day... */ date->tm_wday = (date->tm_wday + 1) % 7; date->tm_mday++; daysin[1] = DAYSINFEB (date->tm_year + 1900); if (date->tm_mday > daysin[date->tm_mon]) { date->tm_mday = 1; date->tm_mon++; if (date->tm_mon > 11) { date->tm_mon = 0; date->tm_year++; } } } return (DaysBetween (&today, date)); } /* * Why oh why don't all systems have timelocal()? */ static int DaysBetween (today, date) struct tm *today, *date; { static int daysin[] = {DAYSINMONTHS}; int i, dayofyear = date->tm_mday-1, daysbetween = 0; for (i=0; itm_mon; i++) if (i == 1) dayofyear += DAYSINFEB (date->tm_year + 1900); else dayofyear += daysin[i]; if (date->tm_year == today->tm_year) return (dayofyear - today->tm_yday); else { for (i = 1 + MIN (date->tm_year, today->tm_year); i < MAX (date->tm_year, today->tm_year); i++) daysbetween += DAYSINYEAR (i + 1900); daysbetween += (date->tm_year > today->tm_year) ? dayofyear + (DAYSINYEAR (today->tm_year+1900) - today->tm_yday) : today->tm_yday + (DAYSINYEAR (date->tm_year+1900) - dayofyear); return ((date->tm_year > today->tm_year) ? daysbetween : -daysbetween); } } /* * Returns the number of days before the date given. WEEK is special. * WEEK means until the end of the current week. */ int DaysTo (datestr, inst) String datestr; Instance inst; { time_t abstime; struct tm *now; unsigned long millisecs; (void) time (&abstime); now = localtime (&abstime); if (STREQUAL (datestr, WEEK)) if (inst == Daemon) return (DAEMONWEEKLY); else return (7 - now->tm_wday); else if (ISVALID (millisecs = DateToMilliSeconds (datestr))) return ((int) (millisecs / MSECSIN1DAY)); else return (INVALID); } ) and (days <= withindays)) or ((days == 0) and (timeout >= 0))); } else { /* * We don't report errors if the alarm is jxalarm-3.06/times.c 644 164 12 11716 6000764440 7266 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * Parse times. */ #include "xalarm.h" #include "dates.h" #define VALUE(ch) ((int) (ch) - (int) '0') #define INSTRING(ch, s) (((ch) != '\0') and (index ((s), (ch)))) long TimeToMilliSeconds(); Boolean ParseTimeString(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Convert the string into milliseconds, or INVALID if * not recognised. * Recognises quite a lot, really, but doesn't like non absolute times * having "am" or "pm" etc. */ long TimeToMilliSeconds (timestr) String timestr; { Boolean in24hrformat; int hours, minutes, seconds; time_t abstime; struct tm *now; if (not ParseTimeString (timestr, &hours, &minutes, &in24hrformat)) return ((long) INVALID); if ((*timestr == '+') or (STREQUAL (timestr, NOW))) seconds = (hours * SECSIN1HR) + (minutes * SECSIN1MIN); else { (void) time (&abstime); now = localtime (&abstime); seconds = ((hours - now->tm_hour) * SECSIN1HR) + ((minutes - now->tm_min) * SECSIN1MIN) - now->tm_sec; if ((seconds < 0) and (not in24hrformat)) seconds += (12 * SECSIN1HR); } if ((xalarm.dateout > 0) or ((xalarm.dateout == 0) and (seconds >= 0))) return ((long) seconds * MSECSIN1SEC); else { ADDERROR (TIMEPASSED, (String) NULL); return ((long) INVALID); } } /* * Parse that string. Robbed and hacked from xcal (3.2) by Peter * Collinson et al. */ Boolean ParseTimeString (str, hrs, mins, in24hrf) String str; int *hrs, *mins; Boolean *in24hrf; { enum {Hhmm, hHmm, hh_mm, hhMm, hhmM, AmPm, aMpM} state; Boolean relative, finished = False; int numdigits = 0; char *s = str, badtime[TEXT]; RESETERROR (); if (relative = (*str == '+')) str++; else if (STREQUAL (str, NOW)) { *hrs = *mins = 0; return (True); } else if (STREQUAL (str, NOON)) { *hrs = 12; *mins = 0; return (*in24hrf = True); } while (*s != '\0') if (isdigit (*s++)) numdigits++; if (relative) switch (numdigits) { case 1: state = hhmM; break; case 2: state = hhMm; break; case 3: state = hHmm; break; case 4: state = Hhmm; break; default: (void) sprintf (badtime, "just %d", numdigits); ADDERROR (WRONGNUMDIGITS, badtime); return (False); } else switch (numdigits) { case 1: case 2: case 4: state = Hhmm; break; case 3: state = hHmm; break; default: (void) sprintf (badtime, "just %d", numdigits); ADDERROR (WRONGNUMDIGITS, badtime); return (False); } *hrs = *mins = 0; *in24hrf = False; while (not finished) switch (state) { case Hhmm: if (isdigit (*str)) { *hrs = VALUE (*str++); state = hHmm; continue; } else { ADDERROR (UNRECOGNISED, str); return (False); } case hHmm: if (isdigit (*str)) { *hrs = *hrs*10 + VALUE (*str++); state = hh_mm; continue; } case hh_mm: if (INSTRING (*str, ".:-")) { state = hhMm; str++; continue; } case hhMm: if (isdigit (*str)) { *mins = VALUE (*str++); state = hhmM; continue; } case hhmM: if (isdigit (*str)) { *mins = *mins*10 + VALUE (*str++); state = AmPm; continue; } case AmPm: if (*str == '\0') { *in24hrf = (*hrs > 12) or ((*hrs < 10) and (numdigits % 2 == 0)); finished = True; continue; } else if (relative) { ADDERROR (UNRECOGNISED, str); return (False); } if (INSTRING (*str, "Aa")) { if (*hrs == 12) *hrs = 0; state = aMpM; continue; } else if (INSTRING (*str, "Pp")) { if (*hrs < 12) *hrs = *hrs + 12; state = aMpM; continue; } ADDERROR (EXPECTEDAMPM, str); return (False); case aMpM: str++; if (INSTRING (*str, "Mm")) { *in24hrf = finished = True; str++; } else { ADDERROR (EXPECTEDAMPM, str); return (False); } } if ((*hrs < 24) and (*mins < 60) and (*str == '\0')) return (True); else { if (*hrs >= 24) { (void) sprintf (badtime, "%d", *hrs); ADDERROR (BADHOURS, badtime); } else if (*mins >= 60) { (void) sprintf (badtime, "%d", *mins); ADDERROR (BADMINUTES, badtime); } else { ADDERROR (UNRECOGNISED, str); } return (False); } } is provided AS IS with no warranties of any kind. xalarm-3.06/dates.h 644 164 12 3770 6000764450 7234 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * Various stuff to do with dates & times. * * Maximum allowed days based on a 32-bit unsigned long, ie. 2^32 / 24*60*60*1000. */ #define MAXDAYS (49) /* * Change these if you want a different notation/language. Keep it to * 3 chars each, lower case only. */ #define WEEKDAYS "sun", "mon", "tue", "wed", "thu", "fri", "sat" #define MONTHS "jan", "feb", "mar", "apr", "may", "jun", \ "jul", "aug", "sep", "oct", "nov", "dec" #define DAYSINMONTHS 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 #define TODAY "tod" #define DAILY "dai" #define TOMORROW "tom" #define WEEK "wee" #define WEEKLY "wee" #define NOW "now" #define NOON "noo" /* * Error messages. */ #define DATEPASSED "The date has passed." #define TOOFARAHEAD "Too far ahead, I'm afraid." #define ANOTHERWEEKDAY "Another weekday?" #define ANOTHERMONTH "Another month?" #define ANOTHERYEAR "Another year?" #define WRONGDAYSMONTH "Wrong days in month?" #define WRONGNUMDIGITS "Wrong number of digits." #define TIMEPASSED "The time has passed today." #define EXPECTEDAMPM "Expected am/pm." #define BADHOURS "Bad number of hours." #define BADMINUTES "Bad number of minutes." #define UNRECOGNISED "Don't recognise this." nds * MSxalarm-3.06/warnings.c 644 164 12 13100 6000764437 7770 /* Copyright (c) 1991, 1992, 1995 Simon Marshall If you still end up late, don't blame me! Permission to use, copy, modify, distribute, and sell this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that copyright notice and this permission notice appear in supporting documentation. This software is provided AS IS with no warranties of any kind. The author shall have no liability with respect to the infringement of copyrights, trade secrets or any patents by this file or any part thereof. In no event will the author be liable for any lost revenue or profits or other special, indirect and consequential damages. */ /* * The stuff for dealing with warnings; processing to get the times & * the fns for popping up the warnings themselves. */ #include "xalarm.h" #include #include #define WARNINGFORMAT "Warning! (%d:%02d)" #define WARNING "Warning: %s due in " void SetWarningTimes(), Warning(), QuitWarning(); static void TimeTracker(), Reset(); extern XtIntervalId ResetTracker(); extern SIGRET ResetAlarm(); extern long TimeToMilliSeconds(); extern void SetGeometry(), SetWMName(), Audio(), Quit(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Process the string to extract warning times. Currently just gives * a message if a warning time is invalid. */ void SetWarningTimes (warnings) String warnings; { String warnstr = warnings; char warning[TEXT]; unsigned long biggest; int i, j, bigindex; xalarm.numwarnings = 0; while ((*warnstr != '\0') and (ISVALID (xalarm.numwarnings))) { warning[i=0] = '+'; while ((*warnstr != ',') and (*warnstr != '\0')) warning[++i] = *warnstr++; warning[++i] = '\0'; switch (xalarm.warnings[xalarm.numwarnings] = (unsigned long) TimeToMilliSeconds (warning)) { case 0: break; case INVALID: xalarm.numwarnings = INVALID; break; default: xalarm.numwarnings++; break; } while (*warnstr == ',') warnstr++; } if ((warnstr != warnings) and (*(warnstr-1) == ',')) xalarm.numwarnings = INVALID; /* * Sort it, why not? */ for (i=0; i biggest) biggest = xalarm.warnings[bigindex = j]; xalarm.warnings[bigindex] = xalarm.warnings[i]; xalarm.warnings[i] = biggest; } } /* * pop up a warning. includes a dismiss & quit button. */ void Warning (clientdata, id) XtPointer clientdata; XtIntervalId id; { static Widget popup = NONWIDGET; Widget warningbox, dismiss, reset, quit; if (ISNONWIDGET (popup)) { popup = XtVaCreatePopupShell ("Warning!", transientShellWidgetClass, xalarm.toplevel, NULL); warningbox = XtVaCreateManagedWidget ("warning", formWidgetClass, popup, NULL); CreateManagedButton (dismiss, "dismiss", warningbox, QuitWarning, popup); xalarm.warningwidget = XtVaCreateManagedWidget ("message", labelWidgetClass, warningbox, NULL); CreateManagedButton (reset, "reset", warningbox, Reset, popup); CreateManagedButton (quit, "quit", warningbox, Quit, NULL); } if (ISNONID (xalarm.warningid)) TimeTracker ((XtPointer) popup, (XtIntervalId) NULL); SetGeometry (popup); Audio (xalarm.warningaudio); XtPopup (popup, XtGrabNone); XRaiseWindow (XtDisplay (popup), XtWindow (popup)); XFlush (XtDisplay (popup)); } /* * Track the time for this widget. Puts a clock in the WM name, and * keeps the warning message upto date. */ static void TimeTracker (clientdata, id) XtPointer clientdata; XtIntervalId id; { char buf[TEXT], wmname[TEXT], warnmessage[TEXT], *wm = warnmessage; int mins, count; time_t now; struct tm *clock; (void) time (&now); clock = localtime (&now); if ((mins = (int) (((unsigned long) 59 + xalarm.offtime - (unsigned long) now) / SECSIN1MIN)) == 0) xalarm.warningid = NONID; else { (void) sprintf (wmname, WARNINGFORMAT, clock->tm_hour, clock->tm_min); SetWMName ((Widget) clientdata, wmname); if (xalarm.warningwords == 0) (void) sprintf (buf, WARNING, xalarm.proggie+1); else { (void) sprintf (warnmessage, "`%s", xalarm.messagestr); count = xalarm.warningwords; while ((count-- > 0) and (*wm != '\0')) { while (isspace (*wm)) *wm++ = ' '; while (not isspace (*wm) and (*wm != '\0')) wm++; } (void) sprintf (wm, "%s", (*wm == '\0') ? "' " : "...' "); (void) sprintf (buf, WARNING, warnmessage); } MAKETIMESTRING (ENDOF (buf), mins); XtVaSetValues (xalarm.warningwidget, XtNlabel, (XtArgVal) buf, NULL); xalarm.warningid = ResetTracker (TimeTracker, clientdata, (int) (xalarm.offtime % 60)); } } /* * Popdown the warning window & popup to reset the alarm. */ static void Reset (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { QuitWarning (widget, clientdata, calldata); (void) ResetAlarm ((int) NULL, (int) NULL, (struct sigcontext *) NULL, (char *) NULL); } /* * Popdown the warning window. */ void QuitWarning (widget, clientdata, calldata) Widget widget; XtPointer clientdata, calldata; { if (ISID (xalarm.warningid)) { XtRemoveTimeOut (xalarm.warningid); xalarm.warningid = NONID; } XtPopdown ((Widget) clientdata); } ning: %s due in " void SetWarningTimes(), Warning(), QuitWarning(); static void TimeTracker(), Reset(); extern XtIntervalId ResetTracker(); extern SIGRET ResetAlarm(); extern long TimeToMilliSeconds(); extern void SetGeometry(), SetWMName(), Audio(), Quit(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Process the string to extract warning times. Currently just gives * a message if a warning txalarm-3.06/XAlarm.ad+ 644 164 12 2155 6000761304 7517 ! If you have X11R5, put this in your ~/.Xdefaults file: *customization: -color ! Otherwise put this in your ~/.Xdefaults file: ! ! #ifdef COLOR ! XAlarm*background: LightYellow ! XAlarm*foreground: IndianRed ! XAlarm*Command.background: IndianRed ! XAlarm*Command.foreground: LightYellow ! XAlarm.When?.when.Dialog.background: MidnightBlue ! XAlarm.Warning!.warning.background: HotPink ! XAlarm.Alarm!.alarm.background: DarkGreen ! #endif ! If you want a smaller button box in the alarm window, uncomment & try these ! for size in your ~/.Xdefaults file: !XAlarm.Alarm!.alarm.buttons.snooze1.fromVert: quit ! This will vary depending on the button labels & font... !XAlarm.Alarm!.alarm.buttons.snooze1.horizDistance: -93 !XAlarm.Alarm!.alarm.buttons.snooze5.fromVert: quit !XAlarm.Alarm!.alarm.buttons.snooze15.fromVert: quit !XAlarm.Alarm!.alarm.buttons.snoozetime.fromHoriz: snooze ! If you want the button box next to the alarm window, uncomment & try this: !XAlarm.Alarm!.alarm.message.fromHoriz: buttons ! This will vary depending on the button labels & font... !XAlarm.Alarm!.alarm.message.vertDistance: -33 Warning(), QuitWarning(); static void TimeTracker(), Reset(); extern XtIntervalId ResetTracker(); extern SIGRET ResetAlarm(); extern long TimeToMilliSeconds(); extern void SetGeometry(), SetWMName(), Audio(), Quit(); extern time_t time(); extern struct tm *localtime(); extern AlarmData xalarm; /* * Process the string to extract warning times. Currently just gives * a message if a warning txalarm-3.06/patchlevel.h 644 164 12 36 6002757614 10221 #define XALARMVERSION "3.06" in your ~/.Xdefaults file: *customization: -color ! Otherwise put this in your ~/.Xdefaults file: ! ! #ifdef COLOR ! XAlarm*background: LightYellow ! XAlarm*foreground: IndianRed ! XAlarm*Command.background: IndianRed ! XAlarm*Command.foreground: LightYellow ! XAlarm.When?.when.Dialog.background: MidnightBlue ! XAlarm.Warning!.warning.background: HotPink ! XAlarm.Alarm!.alarm.background: DarkGreen ! #endif ! If you want a smaller button box in the alarm window, uncommeeconds (warning)) { case 0: break; case INVALID: xalarm.numwarnings = INVALID; break; default: xalarm.numwarnings++; break; } while (*warnstr == ',') warnstr++; } if ((warnstr != warnings) and (*(warnstr-1) == ',')) xalarm.numwarnings = INVALID; /* * Sort it, why not? */ for (i=0; i biggest) biggest = xalarm.warnings[bigindex = j]; xalarm.warnings[bigindex] = xalarm.warnings[i]; xalarm.warnings[i] = biggest; } } /* * pop up a warning. includes a dismiss & quit button. */ void Warning (clientdata, id) XtPointer clientdata; XtIntervalId id; { static Widget popup = NONWIDGET; Widget warningbox, dismiss, reset, quit; if (ISNONWIDGET (popup)) { popup = XtVaCreatePopupShell ("Warning!", transientShellWidgetClass, xalarm.toplevel, NULL); warningbox = XtVaCreateManagedWidget ("warning", formWidgetClass, popup, NULL); CreateManagedButton (dismiss, "dismiss", warningbox, QuitWarning, popup); xalarm.warningwidget = XtVaCreateManagedWidget ("message", labelWidgetClass, warningbox, NULL); CreateManagedButton (reset, "reset", warningbox, Reset, popup); CreateManagedButton (quit, "quit", warningbox, Quit, NULL); } if (ISNONID (xalarm.warningid)) TimeTracker ((XtPointer) popup, (XtIntervalId) NULL); SetGeometry (popup); Audio (xalarm.warningaudio); XtPopup (popup, XtGrabNone); XRaiseWindow (XtDisplay (popup), XtWindow (popup)); XFlush (XtDisplay (popup)); } /* * Track the time for this widget. Puts a clock in the WM name, and * keeps the warning message upto date. */ static void TimeTracker (clientdata, id) XtPointer clientdata; XtIntervalId id; { char buf[TEXT], wmname[TEXT], warnmessage[TEXT], *wm = warnmessage; int mins, count; time_t now; struct tm *clock; (void) time (&now); clock = localtime (&now); if ((mins = (int) (((unsigned long) 59 + xalarm.offtime - (unsigned long) now) / SECSIN1MIN)) == 0) xalarm.warningid = NONID; else { (void) sprintf (wmname, WARNINGFORMAT, clock->tm_hour, clock->tm_min); SetWMName ((Widget) clientdata, wmname); if (xalarm.warningwords == 0) (void) sprintf (buf, WARNING, xalarm.proggie+1); else { (void) sprintf (warnmessage, "`%s", xalarm.messagestr); count = xalarm.warningwords; while ((count--