blob: d1e0042f7eb439c6ddd826cc84cbce252becdead (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
/***********************************************************************/
/* */
/* Objective Caml */
/* */
/* Damien Doligez, projet Para, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
/* $Id$ */
#include <CursorCtl.h>
#include <MacTypes.h>
#include <stdlib.h>
#include <Timer.h>
#include "rotatecursor.h"
typedef struct {
TMTask t;
int volatile *p1;
int volatile *p2;
} Xtmtask;
int volatile rotatecursor_flag = 1;
static int rotatecursor_inited = 0;
static int rotatecursor_period = 50;
static Xtmtask rotatecursor_tmtask;
#if GENERATINGCFM
static void rotatecursor_timerproc (Xtmtask *p)
{
if (p->p1 != NULL && *(p->p1) == 0) *(p->p1) = 1;
if (p->p2 != NULL && *(p->p2) == 0) *(p->p2) = 1;
}
#else
extern Xtmtask *getparam() ONEWORDINLINE(0x2009); /* MOVE.L A1, D0 */
static void rotatecursor_timerproc (void)
{
register Xtmtask *p = getparam ();
if (p->p1 != NULL && *(p->p1) == 0) *(p->p1) = 1;
if (p->p2 != NULL && *(p->p2) == 0) *(p->p2) = 1;
}
#endif /* GENERATINGCFM */
static void rotatecursor_remove_task (void)
{
RmvTime ((QElemPtr) &rotatecursor_tmtask);
}
static void rotatecursor_init (void)
{
if (rotatecursor_inited) return;
InitCursorCtl (NULL);
rotatecursor_tmtask.t.tmAddr = NewTimerProc (rotatecursor_timerproc);
rotatecursor_tmtask.t.tmWakeUp = 0;
rotatecursor_tmtask.t.tmReserved = 0;
rotatecursor_tmtask.p1 = NULL;
rotatecursor_tmtask.p2 = &rotatecursor_flag;
InsTime ((QElemPtr) &rotatecursor_tmtask);
PrimeTime ((QElemPtr) &rotatecursor_tmtask, 1);
atexit (rotatecursor_remove_task);
rotatecursor_inited = 1;
}
void rotatecursor_options (int volatile *p1, int period)
{
if (!rotatecursor_inited) rotatecursor_init ();
rotatecursor_tmtask.p1 = p1;
rotatecursor_period = period;
}
int rotatecursor_action (int reverse)
{
if (!rotatecursor_inited) rotatecursor_init ();
rotatecursor_flag = 0;
PrimeTime ((QElemPtr) &rotatecursor_tmtask, rotatecursor_period);
RotateCursor (reverse ? -32 : 32);
return 0;
}
|
