73 lines
1.8 KiB
C
73 lines
1.8 KiB
C
|
/*
|
||
|
|
O_TIMER
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <hwimman.g>
|
||
|
|
#include <timer.g>
|
||
|
|
#include <timer.rsg>
|
||
|
|
#include <hwim.h>
|
||
|
|
|
||
|
|
GLREF_D WSERV_SPEC *wserv_channel;
|
||
|
|
GLREF_D VOID *w_am;
|
||
|
|
|
||
|
|
GLDEF_C VOID main(VOID)
|
||
|
|
{
|
||
|
|
IN_HWIMMAN app;
|
||
|
|
IN_WSERV ws;
|
||
|
|
|
||
|
|
p_linklib(0);
|
||
|
|
app.flags=FLG_APPMAN_RSCFILE|FLG_APPMAN_CLEAN|FLG_APPMAN_SRSCFILE;
|
||
|
|
app.wserv_cat=p_getlibh(CAT_TIMER_TIMER);
|
||
|
|
ws.com_cat=p_getlibh(CAT_TIMER_HWIM);
|
||
|
|
app.wserv_class=C_TIMERWS;
|
||
|
|
ws.com_class=C_COMMAN;
|
||
|
|
p_send4(p_new(CAT_TIMER_HWIM,C_HWIMMAN),O_AM_INIT,&app,&ws);
|
||
|
|
}
|
||
|
|
|
||
|
|
#pragma METHOD_CALL
|
||
|
|
|
||
|
|
METHOD VOID timerws_ws_dyn_init(PR_TIMERWS *self)
|
||
|
|
{
|
||
|
|
self->wserv.cli=f_new(CAT_TIMER_TIMER,C_TIMERBW);
|
||
|
|
p_send2(self->wserv.cli,O_WN_INIT);
|
||
|
|
f_newsend(CAT_TIMER_TIMER,C_MYTIMER,O_AO_INIT,"TIM:",-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
METHOD VOID timerbw_wn_init(PR_TIMERBW *self)
|
||
|
|
{
|
||
|
|
W_WINDATA wd;
|
||
|
|
|
||
|
|
wd.extent.tl.x=0;
|
||
|
|
wd.extent.tl.y=0;
|
||
|
|
wd.extent.width=wserv_channel->conn.info.pixels.x;
|
||
|
|
wd.extent.height=wserv_channel->conn.info.pixels.y;
|
||
|
|
p_send5(self,O_WN_CONNECT,NULL,W_WIN_EXTENT,&wd);
|
||
|
|
p_send3(self,O_WN_VISIBLE,WV_INITVIS);
|
||
|
|
p_send3(self,O_WN_EMPHASISE,TRUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
METHOD VOID mytimer_ao_init(PR_MYTIMER *self,TEXT *devname,INT mode)
|
||
|
|
{
|
||
|
|
p_supersend4(self,O_AO_INIT,devname,mode);
|
||
|
|
self->active.priority=PRIORITY_ACTIVE_REPEATER;
|
||
|
|
p_send3(w_am,O_AM_ADD_TASK,self);
|
||
|
|
p_send2(self,O_AO_QUEUE);
|
||
|
|
}
|
||
|
|
|
||
|
|
METHOD VOID mytimer_ao_queue(PR_MYTIMER *self)
|
||
|
|
{
|
||
|
|
LONG delay;
|
||
|
|
|
||
|
|
delay=20;
|
||
|
|
p_ioc4(self->active.pcb,P_FREAD,&self->active.stat,&delay);
|
||
|
|
self->active.isactive=TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
METHOD INT mytimer_ao_run(PR_MYTIMER *self)
|
||
|
|
{
|
||
|
|
self->mytimer.count+=1;
|
||
|
|
hInfoPrint(TIMER_INFO,self->mytimer.count);
|
||
|
|
p_send2(self,O_AO_QUEUE);
|
||
|
|
return(RUN_ACTIVE_USED);
|
||
|
|
}
|