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

 ;; Copyright (C) KolibriOS team 2004-2012. All rights reserved. ;;
 ;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
 ;; Distributed under terms of the GNU General Public License    ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-$Revision: 2508 $
+$Revision: 2513 $
 WINDOW_MOVE_AND_RESIZE_FLAGS = \
   mouse.WINDOW_RESIZE_N_FLAG + \
   event_uid     dd 0
 endg
 EV_SPACE   = 512
 FreeEvents = event_start-EVENT.fd    ; "âèðòóàëüíûé" event, èñïîëüçóþòñÿ òîëüêî ïîëÿ:
                                      ;  FreeEvents.fd=event_start è FreeEvents.bk=event_end
+;-----------------------------------------------------------------------------
 align 4
 init_events:                                       ;; used from kernel.asm
         stdcall kernel_alloc, EV_SPACE*sizeof.EVENT
         or      eax, eax
         jz      .fail
       ; eax - current event, ebx - previos event below
         mov     ecx, EV_SPACE        ; current - in allocated space
         mov     ebx, FreeEvents      ; previos - íà÷àëî ñïèñêà
         push    ebx                  ; îíî æå è êîíåö ïîòîì áóäåò
+;--------------------------------------
+align 4
-  @@:
+@@:
         mov     [ebx+EVENT.fd], eax
         mov     [eax+EVENT.bk], ebx
         mov     ebx, eax             ; previos <- current
         add     eax, sizeof.EVENT    ; new current
         loop    @b
         pop     eax                  ; âîò îíî êîíöîì è ñòàëî
         mov     [ebx+EVENT.fd], eax
         mov     [eax+EVENT.bk], ebx
+;--------------------------------------
+align 4
 .fail:
         ret
+;-----------------------------------------------------------------------------
 EVENT_WATCHED    equ 0x10000000 ;áèò 28
 EVENT_SIGNALED   equ 0x20000000 ;áèò 29
 MANUAL_RESET     equ 0x40000000 ;áèò 30
 MANUAL_DESTROY   equ 0x80000000 ;áèò 31
+;-----------------------------------------------------------------------------
 align 4
 create_event:                                      ;; EXPORT use
 ;info:
 ;   Ïåðåíîñèì EVENT èç ñïèñêà FreeEvents â ñïèñîê ObjList òåêóùåãî ñëîòà
 ;   EVENT.state óñòàíàâëèâàåì èç ecx, EVENT.code êîñâåííî èç esi (åñëè esi<>0)
         add     ebx, APP_OBJ_OFFSET
         mov     edx, [TASK_BASE]
         mov     edx, [edx+TASKDATA.pid]
         pushfd
         cli
+;--------------------------------------
+align 4
 set_event:                                         ;; INTERNAL use !!! don't use for Call
 ;info:
 ;   Áåðåì íîâûé event èç FreeEvents, çàïîëíÿåì åãî ïîëÿ, êàê óêàçàíî â ecx,edx,esi
 ;   è óñòàíàâëèâàåì â ñïèñîê, óêàçàííûé â ebx.
 ;   Âîçâðàùàåì ñàì event (â eax), è åãî uid (â edx)
         jne     @f  ; not empty ???
         pushad
         call    init_events
         popad
         jz      RemoveEventTo.break ; POPF+RET
+;--------------------------------------
+align 4
-  @@:
+@@:
         mov     eax, [eax+EVENT.fd]
         mov     [eax+EVENT.magic], 'EVNT'
         mov     [eax+EVENT.destroy], destroy_event.internal
         mov     [eax+EVENT.state], ecx
         jz      RemoveEventTo
         lea     edi, [eax+EVENT.code]
         mov     ecx, (sizeof.EVENT -EVENT.code)/4
         cld
         rep movsd
+;--------------------------------------
+align 4
 RemoveEventTo:                                     ;; INTERNAL use !!! don't use for Call
 ;param:
 ;   eax - óêàçàòåëü íà event, ÊÎÒÎÐÛÉ âñòàâëÿåì
 ;   ebx - óêàçàòåëü íà event, ÏÎÑËÅ êîòîðîãî âñòàâëÿåì
 ;scratched: ebx,ecx
         mov     [ecx+EVENT.bk], eax  ; NewRight.bk=Self
         xchg    ebx, [eax+EVENT.bk]  ; Self.bk=NewLeft,   ebx=OldLeft
         xchg    ecx, [eax+EVENT.fd]  ; Self.fd=NewRight,  ecx=OldRight
         mov     [ebx+EVENT.fd], ecx  ; OldLeft.fd=OldRight
         mov     [ecx+EVENT.bk], ebx  ; OldRight.bk=OldLeft
+;--------------------------------------
+align 4
 .break:
         popfd
         ret
+;-----------------------------------------------------------------------------
 align 4
 NotDummyTest:                                      ;; INTERNAL use (not returned for fail !!!)
         pop     edi
         call    DummyTest ; not returned for fail !!!
         mov     ebx, eax
         mov     eax, [ebx+EVENT.pid]
         push    edi
+;--------------------------------------
+align 4
 .small: ; êðèâî êàê-òî...
         pop     edi
         pushfd
         cli
         call    pid_to_slot ; saved all registers (eax - retval)
         shl     eax, 8
         jz      RemoveEventTo.break ; POPF+RET
         jmp     edi ; øòàòíûé âîçâðàò
+;-----------------------------------------------------------------------------
 align 4
 raise_event:                                       ;; EXPORT use
 ;info:
 ;   Óñòàíàâëèâàåì äàííûå EVENT.code
 ;   Åñëè òàì ôëàã EVENT_SIGNALED óæå àêòèâåí - áîëüøå íè÷åãî
         jz      @f
         lea     edi, [ebx+EVENT.code]
         mov     ecx, (sizeof.EVENT -EVENT.code)/4
         cld
         rep movsd
+;--------------------------------------
+align 4
-  @@:
+@@:
         test    byte[ebx+EVENT.state+3], EVENT_SIGNALED shr 24
         jnz     RemoveEventTo.break  ; POPF+RET
         bt      edx, 28 ;EVENT_WATCHED
         jnc     @f
         test    byte[ebx+EVENT.state+3], EVENT_WATCHED shr 24
         jz      RemoveEventTo.break  ; POPF+RET
+;--------------------------------------
+align 4
-  @@:
+@@:
         or      byte[ebx+EVENT.state+3], EVENT_SIGNALED shr 24
         add     eax, SLOT_BASE+APP_EV_OFFSET
         xchg    eax, ebx
         jmp     RemoveEventTo
+;-----------------------------------------------------------------------------
 align 4
 clear_event:                                       ;; EXPORT use
 ;info:
+;
 ;param:
         call    NotDummyTest ; not returned for fail !!!
         add     eax, SLOT_BASE+APP_OBJ_OFFSET
         and     byte[ebx+EVENT.state+3], not((EVENT_SIGNALED+EVENT_WATCHED)shr 24)
         xchg    eax, ebx
         jmp     RemoveEventTo
+;-----------------------------------------------------------------------------
 align 4
 send_event:                                        ;; EXPORT use
 ;info:
 ;   Ñîçäàåò íîâûé EVENT (âûòàñêèâàåò èç ñïèñêà FreeEvents) â ñïèñêå EventList
 ;   öåëåâîãî ñëîòà (eax=pid), ñ äàííûìè èç esi êîñâåííî, è state=EVENT_SIGNALED
         mov     edx, eax
         call    NotDummyTest.small ; not returned for fail !!!
         lea     ebx, [eax+SLOT_BASE+APP_EV_OFFSET]
         mov     ecx, EVENT_SIGNALED
         jmp     set_event
+;-----------------------------------------------------------------------------
 align 4
 DummyTest:                                         ;; INTERNAL use (not returned for fail !!!)
 ;param:
 ;   eax - event
 ;   ebx - uid (for Dummy testing)
         cmp     [eax+EVENT.magic], 'EVNT'
         jne     @f
         cmp     [eax+EVENT.id], ebx
         je      .ret
+;--------------------------------------
+align 4
-  @@:
+@@:
         pop     eax
         xor     eax, eax
+;--------------------------------------
+align 4
 .ret:
         ret
+;-----------------------------------------------------------------------------
 align 4
 Wait_events:
         or      ebx, -1; infinite timeout
+;--------------------------------------
+align 4
 Wait_events_ex:
 ;info:
 ;   Îæèäàíèå "àáñòðàêòíîãî" ñîáûòèÿ ÷åðåç ïåðåâîä ñëîòà â 5-þ ïîçèöèþ.
 ;   Àáñòðàêòíîñòü çàêëþ÷åíà â òîì, ÷òî ôàêò ñîáûòèÿ îïðåäåëÿåòñÿ ôóíêöèåé APPDATA.wait_test,
 ;   êîòîðàÿ çàäàåòñÿ êëèåíòîì è ìîæåò áûòü ôàêòè÷åñêè ëþáîé.
         Mov     [esi+APPDATA.wait_begin],eax,[timer_ticks]
         mov     eax, [TASK_BASE]
         mov     [eax+TASKDATA.state], 5
         call    change_task
         mov     eax, [esi+APPDATA.wait_param]
+;--------------------------------------
+align 4
-  @@:
+@@:
         ret
+;-----------------------------------------------------------------------------
 align 4
 wait_event:                                        ;; EXPORT use
 ;info:
 ;   Îæèäàíèå ôëàãà EVENT_SIGNALED â ñîâåðøåííî êîíêðåòíîì Event
 ;   (óñòàíàâëèâàåìîãî, íàäî ïîëàãàòü, ÷åðåç raise_event)
         call    DummyTest
         mov     ecx, eax             ; wait_param
         mov     edx, get_event_alone ; wait_test
         call    Wait_events          ; timeout ignored
         jmp     wait_finish
+;-----------------------------------------------------------------------------
 align 4
 get_event_ex:                                      ;; f68:14
 ;info:
 ;   Îæèäàíèå ëþáîãî ñîáûòèÿ â î÷åðåäè EventList òåêóùåãî ñëîòà
 ;   Äàííûå ñîáûòèÿ code - êîïèðóþòñÿ â ïàìÿòü ïðèëîæåíèÿ (êîñâåííî ïî edi)
         lea     esi, [eax+EVENT.code]
         mov     ecx, (sizeof.EVENT-EVENT.code)/4
         cld
         rep movsd
         mov     byte[edi-(sizeof.EVENT-EVENT.code)+2], cl;clear priority field
+;--------------------------------------
+align 4
 wait_finish:
         test    byte[eax+EVENT.state+3], MANUAL_RESET shr 24
         jnz     get_event_queue.ret  ; RET
         and     byte[eax+EVENT.state+3], not((EVENT_SIGNALED+EVENT_WATCHED)shr 24)
         test    byte[eax+EVENT.state+3], MANUAL_DESTROY shr 24
         mov     ebx, [current_slot]
         add     ebx, APP_OBJ_OFFSET
         pushfd
         cli
         jmp     RemoveEventTo
+;-----------------------------------------------------------------------------
 align 4
 destroy_event:                                     ;; EXPORT use
 ;info:
 ;   Ïåðåíîñèì EVENT â ñïèñîê FreeEvents, ÷èñòèì ïîëÿ magic,destroy,pid,id
 ;param:
 ;   ebx - uid (for Dummy testing)
 ;retval:
 ;   eax - àäðåñ îáúåêòà EVENT (=0 => fail)
 ;scratched: ebx,ecx
         call    DummyTest ; not returned for fail !!!
+;--------------------------------------
+align 4
 .internal:
         xor     ecx, ecx  ; clear common header
         pushfd
         cli
         mov     [eax+EVENT.magic], ecx
         mov     [eax+EVENT.destroy], ecx
         mov     [eax+EVENT.pid], ecx
         mov     [eax+EVENT.id], ecx
         mov     ebx, FreeEvents
         jmp     RemoveEventTo
+;-----------------------------------------------------------------------------
 align 4
 get_event_queue:
 ;info:
 ;   êëèåíòñêàÿ ô-ÿ òåñòèðîâàíèÿ äëÿ get_event_ex
 ;warning:
 ;   eax - àäðåñ îáúåêòà EVENT (=0 => fail)
         add     ebx, APP_EV_OFFSET
         mov     eax, [ebx+APPOBJ.bk] ; âûáèðàåì ñ êîíöà, ïî ïðèíöèïó FIFO
         cmp     eax, ebx ; empty ???
         je      get_event_alone.ret0
+;--------------------------------------
+align 4
 .ret:
         ret
+;-----------------------------------------------------------------------------
 align 4
 get_event_alone:
 ;info:
 ;   êëèåíòñêàÿ ô-ÿ òåñòèðîâàíèÿ äëÿ wait_event
 ;warning:
 ;   eax - àäðåñ îáúåêòà EVENT (=0 => fail)
         mov     eax, [ebx+APPDATA.wait_param]
         test    byte[eax+EVENT.state+3], EVENT_SIGNALED shr 24
         jnz     .ret
         or      byte[eax+EVENT.state+3], EVENT_WATCHED shr 24
+;--------------------------------------
+align 4
 .ret0:
         xor     eax, eax; NO event!!!
+;--------------------------------------
+align 4
 .ret:
         ret
+;-----------------------------------------------------------------------------
 align 4
 sys_sendwindowmsg:                                 ;; f72
         dec     ebx
         jnz     .ret ;subfunction==1 ?
         pushfd
         cli
         sub     ecx, 2
         je      .sendkey
         dec     ecx
         jnz     .retf
+;--------------------------------------
+align 4
 .sendbtn:
         cmp     byte[BTN_COUNT], 1
         jae     .result ;overflow
         inc     byte[BTN_COUNT]
         shl     edx, 8
         mov     [BTN_BUFF], edx
         jmp     .result
+;--------------------------------------
+align 4
 .sendkey:
         movzx   eax, byte[KEY_COUNT]
         cmp     al, 120
         jae     .result ;overflow
         inc     byte[KEY_COUNT]
         mov     [KEY_COUNT+1+eax], dl
+;--------------------------------------
+align 4
 .result:
         setae   byte[esp+32] ;ñ÷èòàåì, ÷òî èñõîäíî: dword[esp+32]==72
+;--------------------------------------
+align 4
 .retf:
         popfd
+;--------------------------------------
+align 4
 .ret:
         ret
+;-----------------------------------------------------------------------------
 align 4
 sys_getevent:                                      ;; f11
         mov     ebx, [current_slot];ïîêà ýòî âîïðîñ, ÷åãî êóäû ñóâàòü..........
         pushfd  ; ýòî ñëåäñòâèå îáùåé êîíöåïöèè: ïóñòü ô-ÿ òåñòèðîâàíèÿ èìååò
         cli     ; ïðàâî ðàññ÷èòûâàòü íà çàêðûòûå ïðåðûâàíèÿ, êàê ïðè âûçîâå èç shed
         call    get_event_for_app
         popfd
         mov     [esp+32], eax
         ret
+;-----------------------------------------------------------------------------
 align 4
 sys_waitforevent:                                  ;; f10
         or      ebx, -1; infinite timeout
+;--------------------------------------
+align 4
 sys_wait_event_timeout:                            ;; f23
         mov     edx, get_event_for_app; wait_test
         call    Wait_events_ex        ; ebx - timeout
         mov     [esp+32], eax
         ret
+;-----------------------------------------------------------------------------
 align 4
 get_event_for_app:                                 ;; used from f10,f11,f23
 ;info:
 ;   êëèåíòñêàÿ ô-ÿ òåñòèðîâàíèÿ äëÿ ïðèëîæåíèé (f10,f23)
 ;warning:
         movzx   edi, bh               ; bh  is assumed as [CURRENT_TASK]
         shl     edi, 5
         add     edi, CURRENT_TASK     ; edi is assumed as [TASK_BASE]
         mov     ecx, [edi+TASKDATA.event_mask]
         and     ecx, 0x7FFFFFFF
+;--------------------------------------
+align 4
 .loop: ; ïîêà íå èñ÷åðïàåì âñå áèòû ìàñêè
         bsr     eax, ecx       ; íàõîäèì íåíóëåâîé áèò ìàñêè (31 -> 0)
         jz      .no_events     ; èñ÷åðïàëè âñå áèòû ìàñêè, íî íè÷åãî íå íàøëè ???
         btr     ecx, eax       ; ñáðàñûâàåì ïðîâåðÿåìûé áèò ìàñêè
        ; ïåðåõîäèì íà îáðàáîò÷èê ýòîãî (eax) áèòà
         cmp     eax, 3
         je      .loop          ; eax=3, ignored
         ja      .FlagAutoReset ; eax=[4..8], retvals=eax+1
         cmp     eax, 1
         jae     .BtKy          ; eax=[1,2],  retvals=eax+1
+;--------------------------------------
+align 4
 .WndRedraw:                    ; eax=0, retval WndRedraw=1
         cmp     [edi-twdw+WDATA.fl_redraw], al;al==0
         jne     .result
         jmp     .loop
+;--------------------------------------
+align 4
-  .no_events:
+.no_events:
         xor     eax, eax
         ret
+;--------------------------------------
+align 4
 .FlagAutoReset: ; retvals: BgrRedraw=5, Mouse=6, IPC=7, Stack=8, Debug=9
         cmp     eax, 5; Mouse 5+1=6
         jne     .no_mouse_check
         push    eax
         mov     eax, [TASK_BASE]
         mov     eax, [eax + TASKDATA.event_mask]
         test    eax, 0x80000000 ; bit 31: active/inactive filter f.40
         jz      @f
         pop     eax
         jmp     .no_mouse_check
+;--------------------------------------
+align 4
 @@:
 ; If the window is captured and moved by the user, then no mouse events!!!
         mov     al, [mouse.active_sys_window.action]
         and     al, WINDOW_MOVE_AND_RESIZE_FLAGS
         test    al, al
         pop     eax
         jnz     .loop
+;--------------------------------------
+align 4
 .no_mouse_check:
         btr     [ebx+APPDATA.event_mask], eax
         jnc     .loop
+;--------------------------------------
+align 4
-  .result:      ; retval = eax+1
+.result:      ; retval = eax+1
         inc     eax
         ret
+;--------------------------------------
+align 4
-  .BtKy:
+.BtKy:
         movzx   edx, bh
         movzx   edx, word[WIN_STACK+edx*2]
         je      .Keys          ; eax=1, retval Keys=2
+;--------------------------------------
+align 4
 .Buttons:                      ; eax=2, retval Buttons=3
         cmp     byte[BTN_COUNT], 0
         je      .loop          ; empty ???
         cmp     edx, [TASK_COUNT]
         jne     .loop          ; not Top ???
         cmp     edx, 0xFFFF    ;-ID for Minimize-Button of Form
         jne     .result
         mov     [window_minimize], 1
         dec     byte[BTN_COUNT]
         jmp     .loop
+;--------------------------------------
+align 4
 .Keys:    ; eax==1
         cmp     edx, [TASK_COUNT]
         jne     @f             ; not Top ???
         cmp     [KEY_COUNT], al; al==1
         jae     .result        ; not empty ???
+;--------------------------------------
+align 4
-  @@:
+@@:
         mov     edx, hotkey_buffer
+;--------------------------------------
+align 4
-  @@:
+@@:
         cmp     [edx], bh      ; bh - slot for testing
         je      .result
         add     edx, 8
         cmp     edx, hotkey_buffer+120*8
         jb      @b
         jmp     .loop
 ;end.
+;-----------------------------------------------------------------------------

Subversion Repositories Kolibri OS

(root)/kernel/trunk/gui/event.inc – Rev 2508 → 2513