1 /* $Header: /src/pub/tcsh/tc.sched.c,v 3.19 2002/03/08 17:36:47 christos Exp $ */
3 * tc.sched.c: Scheduled command execution
5 * Karl Kleinpaste: Computer Consoles Inc. 1984
8 * Copyright (c) 1980, 1991 The Regents of the University of California.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37 RCSID("$Id: tc.sched.c,v 3.19 2002/03/08 17:36:47 christos Exp $")
43 extern int just_signaled
;
46 struct sched_event
*t_next
;
50 static struct sched_event
*sched_ptr
= NULL
;
57 return (sched_ptr
->t_when
);
58 return ((time_t) - 1);
67 register struct sched_event
*tp
, *tp1
, *tp2
;
69 int count
, hours
, minutes
, dif_hour
, dif_min
;
71 bool relative
; /* time specified as +hh:mm */
75 /* This is a major kludge because of a gcc linker */
76 /* Problem. It may or may not be needed for you */
77 #if defined(_MINIX) && !defined(_MINIX_VMD)
79 extern char *sprintf();
80 sprintf(kludge
, CGETS(24, 1, "kludge"));
81 #endif /* _MINIX && !_MINIX_VMD */
87 if ((fmt
= varval(STRsched
)) == STRNULL
)
88 fmt
= str2short("%h\t%T\t%R\n");
89 /* print list of scheduled events */
90 for (count
= 1, tp
= sched_ptr
; tp
; count
++, tp
= tp
->t_next
) {
91 Char buf
[BUFSIZE
], sbuf
[BUFSIZE
];
92 blkexpand(tp
->t_lex
, buf
);
93 tprintf(FMT_SCHED
, sbuf
, fmt
, sizeof(sbuf
),
94 short2str(buf
), tp
->t_when
, (ptr_t
) &count
);
102 /* remove item from list */
104 stderror(ERR_NOSCHED
);
106 stderror(ERR_SCHEDUSAGE
);
107 count
= atoi(short2str(++cp
));
109 stderror(ERR_SCHEDUSAGE
);
121 stderror(ERR_SCHEDEV
);
123 sched_ptr
= tp
->t_next
;
125 tp1
->t_next
= tp
->t_next
;
131 /* else, add an item to the list */
133 stderror(ERR_SCHEDCOM
);
135 if (!Isdigit(*cp
)) { /* not abs. time */
137 stderror(ERR_SCHEDUSAGE
);
141 hours
= atoi(short2str(cp
));
142 while (*cp
&& *cp
!= ':' && *cp
!= 'a' && *cp
!= 'p')
144 if (*cp
&& *cp
== ':')
145 minutes
= atoi(short2str(++cp
));
146 if ((hours
< 0) || (minutes
< 0) ||
147 (hours
> 23) || (minutes
> 59))
148 stderror(ERR_SCHEDTIME
);
149 while (*cp
&& *cp
!= 'p' && *cp
!= 'a')
152 stderror(ERR_SCHEDREL
);
155 (void) time(&cur_time
);
156 ltp
= localtime(&cur_time
);
162 if ((dif_hour
= hours
- ltp
->tm_hour
) < 0)
164 if ((dif_min
= minutes
- ltp
->tm_min
) < 0) {
166 if ((--dif_hour
) < 0)
170 tp
= (struct sched_event
*) xcalloc(1, sizeof *tp
);
172 tp
->t_when
= cur_time
- ltp
->tm_sec
+ dif_hour
* 3600 + dif_min
* 60;
174 tp
->t_when
= cur_time
- ltp
->tm_sec
+ dif_hour
* 3600L + dif_min
* 60L;
176 /* use of tm_sec: get to beginning of minute. */
177 if (!sched_ptr
|| tp
->t_when
< sched_ptr
->t_when
) {
178 tp
->t_next
= sched_ptr
;
182 tp1
= sched_ptr
->t_next
;
184 while (tp1
&& tp
->t_when
>= tp1
->t_when
) {
191 tp
->t_lex
= saveblk(v
);
195 * Execute scheduled events
203 register struct sched_event
*tp
, *tp1
;
204 struct wordent cmd
, *nextword
, *lastword
;
207 extern Char GettingInput
;
211 omask
= sigblock(sigmask(SIGINT
)) & ~sigmask(SIGINT
);
213 (void) sighold(SIGINT
);
218 (void) time(&cur_time
);
221 /* bugfix by: Justin Bur at Universite de Montreal */
223 * this test wouldn't be necessary if this routine were not called before
224 * each prompt (in sh.c). But it is, to catch missed alarms. Someone
225 * ought to fix it all up. -jbb
227 if (!(tp
&& tp
->t_when
< cur_time
)) {
229 (void) sigsetmask(omask
);
231 (void) sigrelse(SIGINT
);
239 while (tp
&& tp
->t_when
< cur_time
) {
241 xfree((ptr_t
) seterr
);
247 for (cp
= *v
; cp
; cp
= *++v
) {
248 nextword
= (struct wordent
*) xcalloc(1, sizeof cmd
);
249 nextword
->word
= Strsave(cp
);
250 lastword
->next
= nextword
;
251 nextword
->prev
= lastword
;
254 lastword
->next
= &cmd
;
257 sched_ptr
= tp
= tp1
->t_next
; /* looping termination cond: */
258 blkfree(tp1
->t_lex
); /* straighten out in case of */
259 xfree((ptr_t
) tp1
); /* command blow-up. */
261 /* expand aliases like process() does. */
263 /* build a syntax tree for the command. */
264 t
= syntax(cmd
.next
, &cmd
, 0);
267 /* execute the parse tree. */
268 execute(t
, -1, NULL
, NULL
, TRUE
);
269 /* done. free the lex list and parse tree. */
270 freelex(&cmd
), freesyn(t
);
272 if (GettingInput
&& !just_signaled
) { /* PWP */
274 ClearLines(); /* do a real refresh since something may */
275 ClearDisp(); /* have printed to the screen */
281 (void) sigsetmask(omask
);
283 (void) sigrelse(SIGINT
);