5c1163fa52a1ae3e308c7d4c9c8f6085eaa87ac6
[dragonfly.git] / games / larn / nap.c
1 /* nap.c                 Larn is copyrighted 1986 by Noah Morgan. */
2 /* $FreeBSD: src/games/larn/nap.c,v 1.4 1999/11/16 02:57:23 billf Exp $ */
3 /* $DragonFly: src/games/larn/nap.c,v 1.2 2003/06/17 04:25:24 dillon Exp $ */
4 #include <signal.h>
5 #include <sys/types.h>
6 #ifdef SYSV
7 #include <sys/times.h>
8 #else
9 #ifdef BSD
10 #include <sys/timeb.h>
11 #endif BSD
12 #endif SYSV
13
14 /*
15  *      routine to take a nap for n milliseconds
16  */
17 nap(x)
18         int x;
19         {
20         if (x<=0) return; /* eliminate chance for infinite loop */
21         lflush();
22 #if 0
23         if (x > 999) sleep(x/1000); else napms(x);
24 #else
25         usleep(x*1000);
26 #endif
27         }
28
29 #ifdef NONAP
30 napms(x)        /* do nothing */
31         int x;
32         {
33         }
34 #else NONAP
35 #ifdef SYSV
36 /*      napms - sleep for time milliseconds - uses times() */
37 /* this assumes that times returns a relative time in 60ths of a second */
38 /* this will do horrible things if your times() returns seconds! */
39 napms(time)
40         int time;
41         {
42         long matchclock, times();
43         struct tms stats;
44
45         if (time<=0) time=1; /* eliminate chance for infinite loop */
46         if ((matchclock = times(&stats)) == -1 || matchclock == 0)
47                 return; /* error, or BSD style times() */
48         matchclock += (time / 17);              /*17 ms/tic is 1000 ms/sec / 60 tics/sec */
49
50         while(matchclock < times(&stats))
51                 ;
52         }
53
54 #else not SYSV
55 #ifdef BSD
56 #ifdef SIGVTALRM
57 /* This must be BSD 4.2!  */
58 #include <sys/time.h>
59 #define bit(_a) (1<<((_a)-1))
60
61 static  nullf()
62     {
63     }
64
65 /*      napms - sleep for time milliseconds - uses setitimer() */
66 napms(time)
67         int time;
68     {
69     struct itimerval    timeout;
70     int     (*oldhandler) ();
71     int     oldsig;
72
73         if (time <= 0) return;
74
75     timerclear(&timeout.it_interval);
76     timeout.it_value.tv_sec = time / 1000;
77     timeout.it_value.tv_usec = (time % 1000) * 1000;
78
79     oldsig = sigblock(bit(SIGALRM));
80     setitimer(ITIMER_REAL, &timeout, (struct itimerval *)0);
81     oldhandler = signal(SIGALRM, nullf);
82     sigpause(oldsig);
83     signal(SIGALRM, oldhandler);
84     sigsetmask(oldsig);
85     }
86
87 #else
88 /*      napms - sleep for time milliseconds - uses ftime() */
89
90 static napms(time)
91         int time;
92         {
93         /* assumed to be BSD UNIX */
94         struct timeb _gtime;
95         time_t matchtime;
96         unsigned short matchmilli;
97         struct timeb *tp = & _gtime;
98
99         if (time <= 0) return;
100         ftime(tp);
101         matchmilli = tp->millitm + time;
102         matchtime  = tp->time;
103         while (matchmilli >= 1000)
104                 {
105                 ++matchtime;
106                 matchmilli -= 1000;
107                 }
108
109         while(1)
110                 {
111                 ftime(tp);
112                 if ((tp->time > matchtime) ||
113                         ((tp->time == matchtime) && (tp->millitm >= matchmilli)))
114                         break;
115                 }
116         }
117 #endif
118 #else not BSD
119 static napms(time) int time; {} /* do nothing, forget it */
120 #endif BSD
121 #endif SYSV
122 #endif NONAP