WebSVN – Kolibri OS – Blame – /kernel/trunk/gui/event.inc

Rev	Author	Line No.	Line
425	victor	1	$Revision: 431 $
431	serge	2	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		3	;; ;;
		4	;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
		5	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
		6	;; Distributed under terms of the GNU General Public License ;;
		7	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
227	serge	8
		9	align 4
		10	init_events:
354	serge	11	stdcall kernel_alloc, 512*EVENT_SIZE
227	serge	12	mov [events], eax
		13	xor eax, eax
354	serge	14	mov [event_uid], eax
227	serge	15	not eax
		16	mov edi, event_map
		17	mov [event_start], edi
354	serge	18	mov ecx, 64/4
227	serge	19	cld
		20	rep stosd
		21	mov [event_end], edi
		22	ret
		23
		24	align 4
		25	proc alloc_event
		26
		27	pushfd
		28	cli
		29	mov ebx, [event_start]
		30	mov ecx, [event_end]
		31	.l1:
		32	bsf eax,[ebx]
		33	jnz .found
		34	add ebx,4
		35	cmp ebx, ecx
		36	jb .l1
		37	popfd
		38	xor eax,eax
		39	ret
		40	.found:
		41	btr [ebx], eax
		42	mov [event_start],ebx
354	serge	43	inc [event_uid]
		44
227	serge	45	sub ebx, event_map
254	serge	46	lea eax,[eax+ebx*8]
354	serge	47
		48	lea ebx, [eax+eax*4]
227	serge	49	shl eax,5
354	serge	50	lea eax,[eax+ebx4] ;eax=52 (EVENT_SIZE)
227	serge	51	add eax, [events]
354	serge	52	mov ebx, [event_uid]
227	serge	53	popfd
		54	ret
		55	endp
		56
		57	align 4
		58	free_event:
354	serge	59	sub eax, [events]
		60	mov ecx, EVENT_SIZE
		61	mov ebx, event_map
		62	cdq
		63	div ecx
		64
227	serge	65	pushfd
		66	cli
		67	bts [ebx], eax
		68	shr eax, 3
		69	and eax, not 3
		70	add eax, ebx
		71	cmp [event_start], eax
		72	ja @f
		73	popfd
		74	ret
		75	@@:
		76	mov [event_start], eax
		77	popfd
		78	ret
		79
354	serge	80	EVENT_WATCHED equ 0x10000000
		81	EVENT_SIGNALED equ 0x20000000
		82	MANUAL_RESET equ 0x40000000
		83	MANUAL_DESTROY equ 0x80000000
		84
		85
		86	; param
		87	; eax= event data
		88	; ebx= flags
		89	;
		90	; retval
		91	; eax= event
		92	; edx= id
		93
		94	create_event:
		95	.flags equ esp+4
		96	.data equ esp
		97
		98	push ebx
		99	push eax
		100
		101	call alloc_event
		102	test eax, eax
		103	jz .fail
		104
		105	mov [eax+APPOBJ.magic], 'EVNT'
363	serge	106	mov [eax+APPOBJ.destroy], destroy_event.internal
354	serge	107	mov [eax+EVENT.id], ebx
		108
		109	mov ebx, [CURRENT_TASK]
		110	shl ebx, 5
379	serge	111	mov ebx, [CURRENT_TASK+ebx+4]
354	serge	112	mov [eax+APPOBJ.pid], ebx
		113	mov edx, [.flags]
		114	mov [eax+EVENT.state], edx
		115
		116	mov esi, [.data]
		117	test esi, esi
		118	jz @F
		119	lea edi, [eax+EVENT.code]
		120	mov ecx, 6
		121	cld
		122	rep movsd
		123	@@:
		124	mov ecx, [CURRENT_TASK]
		125	shl ecx,8
380	serge	126	add ecx, SLOT_BASE+APP_OBJ_OFFSET
354	serge	127
		128	pushfd
		129	cli
		130	mov edx, [ecx+APPOBJ.fd]
		131	mov [eax+APPOBJ.fd], edx
		132	mov [eax+APPOBJ.bk], ecx
		133	mov [ecx+APPOBJ.fd], eax
		134	mov [edx+APPOBJ.bk], eax
		135	popfd
		136	mov edx, [eax+EVENT.id]
		137	.fail:
		138	add esp, 8
		139	ret
		140
		141	restore .flags
		142	restore .data
		143
		144	; param
		145	; eax= event
		146	; ebx= id
		147
		148	destroy_event:
		149
		150	cmp [eax+APPOBJ.magic], 'EVNT'
		151	jne .fail
		152	cmp [eax+EVENT.id], ebx
		153	jne .fail
363	serge	154	.internal:
354	serge	155	mov ebx, [eax+APPOBJ.fd]
		156	mov ecx, [eax+APPOBJ.bk]
		157	mov [ebx+APPOBJ.bk], ecx
		158	mov [ecx+APPOBJ.fd], ebx
363	serge	159	.force:
354	serge	160	xor edx, edx ;clear common header
		161	mov [eax], edx
		162	mov [eax+4], edx
		163	mov [eax+8], edx
		164	mov [eax+12], edx
		165	mov [eax+16], edx
		166
		167	call free_event ;release object memory
		168	.fail:
		169	ret
		170
227	serge	171	align 4
		172	proc send_event stdcall pid:dword, event:dword
		173	locals
		174	slot dd ?
		175	endl
		176
		177	mov eax, [pid]
		178	call pid_to_slot
		179	test eax, eax
		180	jz .fail
		181
		182	shl eax, 8
380	serge	183	cmp [SLOT_BASE+eax+APPDATA.ev_count], 32
227	serge	184	ja .fail
		185
		186	mov [slot], eax
354	serge	187
227	serge	188	call alloc_event
		189	test eax, eax
		190	jz .fail
		191
354	serge	192	lea edi, [eax+EVENT.code]
227	serge	193	mov ecx, 6
		194	mov esi, [event]
		195	cld
		196	rep movsd
		197
354	serge	198	mov ecx, [slot]
380	serge	199	add ecx, SLOT_BASE+APP_EV_OFFSET
354	serge	200
		201	mov [eax+APPOBJ.magic], 'EVNT'
		202	mov [eax+APPOBJ.destroy], destroy_event
		203	mov ebx, [pid]
		204	mov [eax+APPOBJ.pid], ebx
		205	mov [eax+EVENT.state], EVENT_SIGNALED
		206
		207	pushfd
		208	cli ;insert event into
		209	mov edx, [ecx+APPOBJ.fd] ;events list
		210	mov [eax+APPOBJ.fd], edx ;and set events flag
		211	mov [eax+APPOBJ.bk], ecx
		212	mov [ecx+APPOBJ.fd], eax
		213	mov [edx+APPOBJ.bk], eax
		214	inc [ecx+APPDATA.ev_count-APP_EV_OFFSET]
		215	or [ecx+APPDATA.event_mask-APP_EV_OFFSET], EVENT_EXTENDED
		216	popfd
227	serge	217	.fail:
		218	ret
		219	endp
		220
354	serge	221	; timeout ignored
		222
227	serge	223	align 4
		224	proc get_event_ex stdcall, p_ev:dword, timeout:dword
		225
		226	.wait:
354	serge	227	mov edx,[CURRENT_TASK]
		228	shl edx,8
380	serge	229	; cmp [SLOT_BASE+edx+APPDATA.ev_count], 0
377	serge	230	; je .switch
227	serge	231
380	serge	232	add edx, SLOT_BASE+APP_EV_OFFSET
227	serge	233
377	serge	234	mov eax, [edx+APPOBJ.fd]
354	serge	235	cmp eax, edx
		236	je .switch
		237
		238	lea esi, [eax+EVENT.code]
		239	mov edi, [p_ev] ;copy event data
227	serge	240	mov ecx, 6
		241	cld
		242	rep movsd
354	serge	243
		244	and dword [edi-24], 0xFF00FFFF ;clear priority field
377	serge	245	;
354	serge	246	test [eax+EVENT.state], MANUAL_RESET
		247	jnz .done
		248
		249	pushfd
		250	cli ;remove event from events
		251	mov ebx, [eax+APPOBJ.fd] ;list (reset event)
		252	mov ecx, [eax+APPOBJ.bk] ;and clear events flag
		253	mov [ebx+APPOBJ.bk], ecx ;if no active events
		254	mov [ecx+APPOBJ.fd], ebx
377	serge	255
		256	and [eax+EVENT.state], not (EVENT_SIGNALED+EVENT_WATCHED)
		257
354	serge	258	dec [edx+APPDATA.ev_count-APP_EV_OFFSET]
		259	jnz @F
		260	and [edx+APPDATA.event_mask-APP_EV_OFFSET], not EVENT_EXTENDED
377	serge	261	@@:
354	serge	262	popfd
		263
		264	test [eax+EVENT.state], MANUAL_DESTROY
		265	jz .destroy
		266
		267	add edx, (APP_OBJ_OFFSET-APP_EV_OFFSET)
		268
		269	pushfd
		270	cli
377	serge	271	mov ebx, [edx+APPOBJ.fd] ;insert event into
		272	mov [eax+APPOBJ.fd], ebx ;objects list
		273	mov [eax+APPOBJ.bk], edx
		274	mov [edx+APPOBJ.fd], eax
		275	mov [ebx+APPOBJ.bk], eax
354	serge	276	popfd
		277	.done:
227	serge	278	ret
354	serge	279
		280	.destroy:
363	serge	281	call destroy_event.force
354	serge	282	ret
227	serge	283	.switch:
379	serge	284	mov eax, [TASK_BASE]
227	serge	285	mov [eax+TASKDATA.state], byte 5
		286	call change_task
		287	jmp .wait
		288	endp
		289
354	serge	290	; param
		291	; eax= event
		292	; ebx= id
		293
		294	align 4
		295	wait_event:
		296	.event equ esp
		297	push eax
		298	.wait:
		299	cmp [eax+APPOBJ.magic], 'EVNT'
		300	jne .done
		301	cmp [eax+EVENT.id], ebx
		302	jne .done
		303
		304	test [eax+EVENT.state], EVENT_SIGNALED
		305	jz .switch
		306
		307	test [eax+EVENT.state], MANUAL_RESET
		308	jnz .done
		309
		310	mov edx,[CURRENT_TASK]
		311	shl edx,8
380	serge	312	add edx, SLOT_BASE
354	serge	313
		314	pushfd
		315	cli ;remove event from events
		316	mov ebx, [eax+APPOBJ.fd] ;list (reset event)
		317	mov ecx, [eax+APPOBJ.bk] ;and clear events flag
		318	mov [ebx+APPOBJ.bk], ecx ;if no active events
		319	mov [ecx+APPOBJ.fd], ebx
		320	dec [edx+APPDATA.ev_count]
		321	jnz @F
		322	and [edx+APPDATA.event_mask], not EVENT_EXTENDED
		323	@@:
		324	and [eax+EVENT.state], not (EVENT_SIGNALED+EVENT_WATCHED)
		325	popfd
		326
		327	test [eax+EVENT.state], MANUAL_DESTROY
		328	jz .destroy
		329
		330	add edx, APP_OBJ_OFFSET
		331
		332	pushfd
		333	cli
		334	mov ecx, [edx+APPOBJ.fd] ;insert event into
		335	mov [eax+APPOBJ.fd], ecx ;objects list
		336	mov [eax+APPOBJ.bk], edx
		337	mov [edx+APPOBJ.fd], eax
		338	mov [ecx+APPOBJ.bk], eax
		339	popfd
		340	.done:
		341	add esp, 4
		342	ret
		343	.destroy:
363	serge	344	call destroy_event.force
354	serge	345	add esp, 4
		346	ret
		347	.switch:
		348	or [eax+EVENT.state], EVENT_WATCHED
379	serge	349	mov eax, [TASK_BASE]
354	serge	350	mov [eax+TASKDATA.state], byte 5
		351	call change_task
		352	mov eax, [.event]
		353	jmp .wait
		354	restore .event
		355
		356	; param
		357	; eax= event
		358	; ebx= id
		359	; ecx= flags
377	serge	360	; edx= event data
354	serge	361
		362	raise_event:
		363	.event equ esp
		364	push eax
		365
		366	cmp [eax+APPOBJ.magic], 'EVNT'
		367	jne .fail
		368	cmp [eax+EVENT.id], ebx
		369	jne .fail
		370
		371	mov eax, [eax+APPOBJ.pid]
		372	call pid_to_slot
		373	test eax, eax
		374	jz .fail
		375
377	serge	376	mov esi, edx
		377	test esi, esi
354	serge	378	mov edx, [.event]
377	serge	379	jz @F
		380
		381	push ecx
		382	lea edi, [edx+EVENT.code]
		383	mov ecx, 6
		384	cld
		385	rep movsd
		386	pop ecx
		387	@@:
354	serge	388	test [edx+EVENT.state], EVENT_SIGNALED
		389	jnz .done
		390
		391	test ecx, EVENT_WATCHED
		392	jz @F
		393	test [edx+EVENT.state], EVENT_WATCHED
		394	jz .done
		395	@@:
		396	shl eax, 8
380	serge	397	add eax, SLOT_BASE+APP_EV_OFFSET
354	serge	398
		399	pushfd
		400	cli
		401	mov ebx, [edx+APPOBJ.fd]
		402	mov ecx, [edx+APPOBJ.bk]
		403	mov [ebx+APPOBJ.bk], ecx
		404	mov [ecx+APPOBJ.fd], ebx
		405
		406	mov ecx, [eax+APPOBJ.fd]
		407	mov [edx+APPOBJ.fd], ecx
		408	mov [edx+APPOBJ.bk], eax
		409	mov [eax+APPOBJ.fd], edx
		410	mov [ecx+APPOBJ.bk], edx
		411	or [edx+EVENT.state], EVENT_SIGNALED
		412
		413	inc [eax+APPDATA.ev_count-APP_EV_OFFSET]
		414	or [eax+APPDATA.event_mask-APP_EV_OFFSET], EVENT_EXTENDED
		415	popfd
		416	.fail:
		417	.done:
		418	add esp, 4
		419	ret
		420	restore .event
		421
377	serge	422	; param
		423	; eax= event
		424	; ebx= id
		425	align 4
		426	clear_event:
		427	.event equ esp
		428	push eax
		429
		430	cmp [eax+APPOBJ.magic], 'EVNT'
		431	jne .fail
		432	cmp [eax+EVENT.id], ebx
		433	jne .fail
		434
		435	mov eax, [eax+APPOBJ.pid]
		436	call pid_to_slot
		437	test eax, eax
		438	jz .fail
		439
		440	shl eax, 8
380	serge	441	add eax, SLOT_BASE+APP_EV_OFFSET
377	serge	442	mov edx, [.event]
		443	pushfd
		444	cli ;remove event from events
		445	mov ebx, [edx+APPOBJ.fd] ;list (reset event)
		446	mov ecx, [edx+APPOBJ.bk] ;and clear events flag
		447	mov [ebx+APPOBJ.bk], ecx ;if no active events
		448	mov [ecx+APPOBJ.fd], ebx
		449
		450	and [edx+EVENT.state], not (EVENT_SIGNALED+EVENT_WATCHED)
		451
		452	dec [eax+APPDATA.ev_count-APP_EV_OFFSET]
		453	jnz @F
		454	and [eax+APPDATA.event_mask-APP_EV_OFFSET], not EVENT_EXTENDED
		455	@@:
		456	add eax, (APP_OBJ_OFFSET-APP_EV_OFFSET)
		457
		458	mov ecx, [eax+APPOBJ.fd] ;insert event into
		459	mov [edx+APPOBJ.fd], ecx ;objects list
		460	mov [edx+APPOBJ.bk], eax
		461	mov [eax+APPOBJ.fd], edx
		462	mov [ecx+APPOBJ.bk], edx
		463	popfd
		464	.fail:
		465	.done:
		466	add esp, 4
		467	ret
		468	restore .event
		469
1	ha	470	sys_getevent:
		471
		472	call get_event_for_app
		473	mov [esp+36],eax
		474	ret
		475
		476
		477	align 4
		478	sys_wait_event_timeout:
		479
21	poddubny	480	mov ebx,[timer_ticks]
1	ha	481	add ebx,eax
21	poddubny	482	cmp ebx,[timer_ticks]
1	ha	483	jna .swfet2
227	serge	484	.swfet1:
1	ha	485	call get_event_for_app
		486	test eax,eax
		487	jne .eventoccur_time
		488	call change_task
21	poddubny	489	cmp ebx,[timer_ticks]
1	ha	490	jg .swfet1
227	serge	491	.swfet2:
1	ha	492	xor eax,eax
227	serge	493	.eventoccur_time:
1	ha	494	mov [esp+36],eax
		495	ret
		496
		497
		498	align 4
		499
		500	sys_waitforevent:
		501
		502	call get_event_for_app
		503	test eax,eax
		504	jne eventoccur
		505	newwait:
		506
379	serge	507	mov eax, [TASK_BASE]
115	poddubny	508	mov [eax+TASKDATA.state], byte 5
1	ha	509	call change_task
		510
21	poddubny	511	mov eax, [event_sched]
		512
1	ha	513	eventoccur:
		514	mov [esp+36],eax
		515	ret
		516
		517	get_event_for_app:
		518
		519	pushad
		520
379	serge	521	mov edi,[TASK_BASE] ; WINDOW REDRAW
115	poddubny	522	test [edi+TASKDATA.event_mask],dword 1
1	ha	523	jz no_eventoccur1
379	serge	524	;mov edi,[TASK_BASE]
115	poddubny	525	cmp [edi-twdw+WDATA.fl_redraw],byte 0
1	ha	526	je no_eventoccur1
		527	popad
		528	mov eax,1
		529	ret
		530	no_eventoccur1:
		531
379	serge	532	;mov edi,[TASK_BASE] ; KEY IN BUFFER
115	poddubny	533	test [edi+TASKDATA.event_mask],dword 2
1	ha	534	jz no_eventoccur2
379	serge	535	mov ecx, [CURRENT_TASK]
380	serge	536	movzx edx,word [WIN_STACK+ecx*2]
379	serge	537	mov eax, [TASK_COUNT]
1	ha	538	cmp eax,edx
92	diamond	539	jne no_eventoccur2x
381	serge	540	cmp [KEY_COUNT],byte 0
92	diamond	541	je no_eventoccur2x
		542	eventoccur2:
1	ha	543	popad
		544	mov eax,2
		545	ret
92	diamond	546	no_eventoccur2x:
		547	mov eax, hotkey_buffer
		548	@@:
		549	cmp [eax], ecx
		550	jz eventoccur2
		551	add eax, 8
		552	cmp eax, hotkey_buffer+120*8
		553	jb @b
1	ha	554	no_eventoccur2:
		555
379	serge	556	;mov edi,[TASK_BASE] ; BUTTON IN BUFFER
115	poddubny	557	test [edi+TASKDATA.event_mask],dword 4
1	ha	558	jz no_eventoccur3
381	serge	559	cmp [BTN_COUNT],byte 0
21	poddubny	560	je no_eventoccur3
379	serge	561	mov ecx, [CURRENT_TASK]
380	serge	562	movzx edx, word [WIN_STACK+ecx*2]
379	serge	563	mov eax, [TASK_COUNT]
1	ha	564	cmp eax,edx
		565	jnz no_eventoccur3
		566	popad
381	serge	567	mov eax,[BTN_BUFF]
1	ha	568	cmp eax,65535
		569	je no_event_1
		570	mov eax,3
		571	ret
		572
		573	no_event_1:
		574	mov [window_minimize],1
381	serge	575	mov [BTN_COUNT],byte 0
1	ha	576	xor eax, eax
		577	ret
		578
		579	no_eventoccur3:
227	serge	580
		581
379	serge	582	;mov edi,[TASK_BASE] ; mouse event
115	poddubny	583	test [edi+TASKDATA.event_mask],dword 00100000b
21	poddubny	584	jz no_mouse_event
379	serge	585	mov eax,[CURRENT_TASK]
21	poddubny	586	shl eax,8
380	serge	587	test [eax+SLOT_BASE+APPDATA.event_mask],dword 00100000b
21	poddubny	588	jz no_mouse_event
380	serge	589	and [eax+SLOT_BASE+APPDATA.event_mask],dword 0xffffffff-00100000b
21	poddubny	590	popad
		591	mov eax,6
		592	ret
		593	no_mouse_event:
1	ha	594
227	serge	595
379	serge	596	;mov edi,[TASK_BASE] ; DESKTOP BACKGROUND REDRAW
115	poddubny	597	test [edi+TASKDATA.event_mask],dword 16
1	ha	598	jz no_eventoccur5
381	serge	599	cmp [REDRAW_BACKGROUND],byte 2
1	ha	600	jnz no_eventoccur5
		601	popad
		602	mov eax,5
		603	ret
		604	no_eventoccur5:
		605
379	serge	606	;mov edi,[TASK_BASE] ; IPC
115	poddubny	607	test [edi+TASKDATA.event_mask],dword 01000000b
1	ha	608	jz no_ipc
379	serge	609	mov eax,[CURRENT_TASK]
21	poddubny	610	shl eax,8
380	serge	611	test [eax+SLOT_BASE+APPDATA.event_mask],dword 01000000b
1	ha	612	jz no_ipc
380	serge	613	and [eax+SLOT_BASE+APPDATA.event_mask],dword 0xffffffff-01000000b
1	ha	614	popad
		615	mov eax,7
		616	ret
		617	no_ipc:
		618
		619
379	serge	620	;mov edi,[TASK_BASE] ; STACK
115	poddubny	621	test [edi+TASKDATA.event_mask],dword 10000000b
1	ha	622	jz no_stack_event
379	serge	623	mov eax,[CURRENT_TASK]
21	poddubny	624	shl eax,8
380	serge	625	test [eax+SLOT_BASE+APPDATA.event_mask],dword 10000000b
1	ha	626	jz no_stack_event
380	serge	627	and [eax+SLOT_BASE+APPDATA.event_mask],dword 0xffffffff-10000000b
1	ha	628	popad
21	poddubny	629	mov eax,8
1	ha	630	ret
		631	no_stack_event:
		632
115	poddubny	633	test byte [edi+TASKDATA.event_mask+1], 1 ; DEBUG
354	serge	634	jz .test_IRQ
379	serge	635	mov eax, [CURRENT_TASK]
40	halyavin	636	shl eax, 8
380	serge	637	test byte [eax+SLOT_BASE+APPDATA.event_mask+1], byte 1
354	serge	638	jz .test_IRQ
380	serge	639	and byte [eax+SLOT_BASE+APPDATA.event_mask+1], not 1
40	halyavin	640	popad
		641	mov eax, 9
		642	ret
		643
354	serge	644	;.test_ext:
379	serge	645	; mov eax, [CURRENT_TASK]
354	serge	646	; shl eax, 8
380	serge	647	; test dword [eax+SLOT_BASE+APPDATA.event_mask], EVENT_EXTENDED
354	serge	648	; jz .test_IRQ
		649	; popad
		650	; mov eax, 10
		651	; ret
227	serge	652
		653	.test_IRQ:
115	poddubny	654	cmp dword [edi+TASKDATA.event_mask], 0xFFFF
21	poddubny	655	jbe no_events
1	ha	656
381	serge	657	mov esi,IRQ_SAVE ; IRQ'S AND DATA
1	ha	658	mov ebx,0x00010000
		659	xor ecx, ecx
		660	irq_event_test:
379	serge	661	mov edi,[TASK_BASE]
115	poddubny	662	test [edi+TASKDATA.event_mask],ebx
1	ha	663	jz no_irq_event
		664	mov edi,ecx
		665	shl edi,2
		666	add edi,irq_owner
		667	mov edx,[edi]
379	serge	668	mov eax,[TASK_BASE]
115	poddubny	669	mov eax,[eax+TASKDATA.pid]
1	ha	670	cmp edx,eax
		671	jne no_irq_event
		672	cmp [esi],dword 0
		673	jz no_irq_event
		674	mov eax,ecx
		675	add eax,16
		676	mov [esp+28],eax
		677	popad
		678	ret
		679	no_irq_event:
		680	add esi,0x1000
		681	shl ebx,1
		682	inc ecx
		683	cmp ecx,16
		684	jb irq_event_test
		685
21	poddubny	686	no_events:
1	ha	687	popad
		688	xor eax, eax
		689	ret
		690

Subversion Repositories Kolibri OS

(root)/kernel/trunk/gui/event.inc – Rev 431