WebSVN – Kolibri OS – Diff – /kernel/branches/Kolibri-acpi/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: 3500 $
+$Revision: 3555 $
 WINDOW_MOVE_AND_RESIZE_FLAGS = \
   mouse.WINDOW_RESIZE_N_FLAG + \
   event_start   dd ?
   event_end     dd ?
   event_uid     dd 0
 endg
 EV_SPACE   = 512
-FreeEvents = event_start-EVENT.fd    ; "âèðòóàëüíûé" event, èñïîëüçóþòñÿ òîëüêî ïîëÿ:
+FreeEvents = event_start-EVENT.fd    ; "виртуальный" event, используются только поля:
-                                     ;  FreeEvents.fd=event_start è FreeEvents.bk=event_end
+                                     ;  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 - íà÷àëî ñïèñêà
+        mov     ebx, FreeEvents      ; previos - начало списка
-        push    ebx                  ; îíî æå è êîíåö ïîòîì áóäåò
+        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                  ; âîò îíî êîíöîì è ñòàëî
+        pop     eax                  ; вот оно концом и стало
         mov     [ebx+EVENT.fd], eax
         mov     [eax+EVENT.bk], ebx
 ;--------------------------------------
 align 4
 .fail:
         ret
 ;-----------------------------------------------------------------------------
-EVENT_WATCHED    equ 0x10000000 ;áèò 28
+EVENT_WATCHED    equ 0x10000000 ;бит 28
-EVENT_SIGNALED   equ 0x20000000 ;áèò 29
+EVENT_SIGNALED   equ 0x20000000 ;бит 29
-MANUAL_RESET     equ 0x40000000 ;áèò 30
+MANUAL_RESET     equ 0x40000000 ;бит 30
-MANUAL_DESTROY   equ 0x80000000 ;áèò 31
+MANUAL_DESTROY   equ 0x80000000 ;бит 31
 ;-----------------------------------------------------------------------------
 align 4
 create_event:                                      ;; EXPORT use
 ;info:
-;   Ïåðåíîñèì EVENT èç ñïèñêà FreeEvents â ñïèñîê ObjList òåêóùåãî ñëîòà
+;   Переносим EVENT из списка FreeEvents в список ObjList текущего слота
-;   EVENT.state óñòàíàâëèâàåì èç ecx, EVENT.code êîñâåííî èç esi (åñëè esi<>0)
+;   EVENT.state устанавливаем из ecx, EVENT.code косвенно из esi (если esi<>0)
 ;param:
 ;   esi - event data
 ;   ecx - flags
 ;retval:
 ;   eax - event (=0 => fail)
         cli
 ;--------------------------------------
 align 4
 set_event:                                         ;; INTERNAL use !!! don't use for Call
 ;info:
-;   Áåðåì íîâûé event èç FreeEvents, çàïîëíÿåì åãî ïîëÿ, êàê óêàçàíî â ecx,edx,esi
+;   Берем новый event из FreeEvents, заполняем его поля, как указано в ecx,edx,esi
-;   è óñòàíàâëèâàåì â ñïèñîê, óêàçàííûé â ebx.
+;   и устанавливаем в список, указанный в ebx.
-;   Âîçâðàùàåì ñàì event (â eax), è åãî uid (â edx)
+;   Возвращаем сам event (в eax), и его uid (в edx)
 ;param:
 ;   ebx - start-chain "virtual" event for entry new event Right of him
 ;   ecx - flags      (copied to EVENT.state)
 ;   edx - pid        (copied to EVENT.pid)
 ;   esi - event data (copied to EVENT.code indirect, =0 => skip)
         rep movsd
 ;--------------------------------------
 align 4
 RemoveEventTo:                                     ;; INTERNAL use !!! don't use for Call
 ;param:
-;   eax - óêàçàòåëü íà event, ÊÎÒÎÐÛÉ âñòàâëÿåì
+;   eax - указатель на event, КОТОРЫЙ вставляем
-;   ebx - óêàçàòåëü íà event, ÏÎÑËÅ êîòîðîãî âñòàâëÿåì
+;   ebx - указатель на event, ПОСЛЕ которого вставляем
 ;scratched: ebx,ecx
         mov     ecx, eax             ; ecx=eax=Self,      ebx=NewLeft
         xchg    ecx, [ebx+EVENT.fd]  ; NewLeft.fd=Self,   ecx=NewRight
-        cmp     eax, ecx             ; ñòîï, ñåáå äóìàþ...
+        cmp     eax, ecx             ; стоп, себе думаю...
-        je      .break               ; - à íå äóðàê ëè ÿ?
+        je      .break               ; - а не дурак ли я?
         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
         mov     ebx, eax
         mov     eax, [ebx+EVENT.pid]
         push    edi
 ;--------------------------------------
 align 4
-.small: ; êðèâî êàê-òî...
+.small: ; криво как-то...
         pop     edi
         pushfd
         cli
         call    pid_to_slot ; saved all registers (eax - retval)
         shl     eax, 8
         jz      RemoveEventTo.break ; POPF+RET
-        jmp     edi ; øòàòíûé âîçâðàò
+        jmp     edi ; штатный возврат
 ;-----------------------------------------------------------------------------
 align 4
 raise_event:                                       ;; EXPORT use
 ;info:
-;   Óñòàíàâëèâàåì äàííûå EVENT.code
+;   Устанавливаем данные EVENT.code
-;   Åñëè òàì ôëàã EVENT_SIGNALED óæå àêòèâåí - áîëüøå íè÷åãî
+;   Если там флаг EVENT_SIGNALED уже активен - больше ничего
-;   Èíà÷å: ýòîò ôëàã âçâîäèòñÿ, çà èñêëþ÷åíèåì ñëó÷àÿ íàëè÷èÿ ôëàãà EVENT_WATCHED â edx
+;   Иначе: этот флаг взводится, за исключением случая наличия флага EVENT_WATCHED в edx
-;   Â ýòîì ñëó÷àå EVENT_SIGNALED âçâîäèòñÿ ëèøü ïðè íàëè÷èå EVENT_WATCHED â ñàìîì ñîáûòèè
+;   В этом случае EVENT_SIGNALED взводится лишь при наличие EVENT_WATCHED в самом событии
 ;param:
 ;   eax - event
 ;   ebx - uid (for Dummy testing)
 ;   edx - flags
 ;   esi - event data (=0 => skip)
 ;scratched: ebx,ecx,esi,edi
         call    NotDummyTest ; not returned for fail !!!
-        mov     [check_idle_semaphore], 5
         or      esi, esi
         jz      @f
         lea     edi, [ebx+EVENT.code]
         mov     ecx, (sizeof.EVENT -EVENT.code)/4
         cld
         jmp     RemoveEventTo
 ;-----------------------------------------------------------------------------
 align 4
 send_event:                                        ;; EXPORT use
 ;info:
-;   Ñîçäàåò íîâûé EVENT (âûòàñêèâàåò èç ñïèñêà FreeEvents) â ñïèñêå EventList
+;   Создает новый EVENT (вытаскивает из списка FreeEvents) в списке EventList
-;   öåëåâîãî ñëîòà (eax=pid), ñ äàííûìè èç esi êîñâåííî, è state=EVENT_SIGNALED
+;   целевого слота (eax=pid), с данными из esi косвенно, и state=EVENT_SIGNALED
 ;param:
 ;   eax - slots pid, to sending new event
 ;   esi - pointer to sending data (in code field of new event)
 ;retval:
 ;   eax - event (=0 => fail)
         or      ebx, -1; infinite timeout
 ;--------------------------------------
 align 4
 Wait_events_ex:
 ;info:
-;   Îæèäàíèå "àáñòðàêòíîãî" ñîáûòèÿ ÷åðåç ïåðåâîä ñëîòà â 5-þ ïîçèöèþ.
+;   Ожидание "абстрактного" события через перевод слота в 5-ю позицию.
-;   Àáñòðàêòíîñòü çàêëþ÷åíà â òîì, ÷òî ôàêò ñîáûòèÿ îïðåäåëÿåòñÿ ôóíêöèåé APPDATA.wait_test,
+;   Абстрактность заключена в том, что факт события определяется функцией APPDATA.wait_test,
-;   êîòîðàÿ çàäàåòñÿ êëèåíòîì è ìîæåò áûòü ôàêòè÷åñêè ëþáîé.
+;   которая задается клиентом и может быть фактически любой.
-;   Ýòî ïîçâîëÿåò shed-ó íàäåæíî îïðåäåëèòü ôàêò ñîáûòèÿ, è íå ñîâåðøàòü "õîëîñòûõ" ïåðåêëþ÷åíèé,
+;   Это позволяет shed-у надежно определить факт события, и не совершать "холостых" переключений,
-;   ïðåäíàçíà÷åííûõ äëÿ ðàçáîðîê òèïà "ñâîé/÷óæîé" âíóòðè çàäà÷è.
+;   предназначенных для разборок типа "свой/чужой" внутри задачи.
 ;param:
-;   edx - wait_test, êëèåíòñêàÿ ô-ÿ òåñòèðîâàíèÿ (àäðåñ êîäà)
+;   edx - wait_test, клиентская ф-я тестирования (адрес кода)
-;   ecx - wait_param, äîïîëíèòåëüíûé ïàðàìåòð, âîçìîæíî íåîáõîäèìûé äëÿ [wait_test]
+;   ecx - wait_param, дополнительный параметр, возможно необходимый для [wait_test]
 ;   ebx - wait_timeout
 ;retval:
-;   eax - ðåçóëüòàò âûçîâà [wait_test] (=0 => timeout)
+;   eax - результат вызова [wait_test] (=0 => timeout)
 ;scratched: esi
         mov     esi, [current_slot]
         mov     [esi+APPDATA.wait_param], ecx
         pushad
-        mov     ebx, esi;ïîêà ýòî âîïðîñ, ÷åãî êóäû ñóâàòü..........
+        mov     ebx, esi;пока это вопрос, чего куды сувать..........
-        pushfd  ; ýòî ñëåäñòâèå îáùåé êîíöåïöèè: ïóñòü ô-ÿ òåñòèðîâàíèÿ èìååò
+        pushfd  ; это следствие общей концепции: пусть ф-я тестирования имеет
-        cli     ; ïðàâî ðàññ÷èòûâàòü íà çàêðûòûå ïðåðûâàíèÿ, êàê ïðè âûçîâå èç shed
+        cli     ; право рассчитывать на закрытые прерывания, как при вызове из shed
         call    edx
         popfd
         mov     [esp+28], eax
         popad
         or      eax, eax
         ret
 ;-----------------------------------------------------------------------------
 align 4
 wait_event:                                        ;; EXPORT use
 ;info:
-;   Îæèäàíèå ôëàãà EVENT_SIGNALED â ñîâåðøåííî êîíêðåòíîì Event
+;   Ожидание флага EVENT_SIGNALED в совершенно конкретном Event
-;   (óñòàíàâëèâàåìîãî, íàäî ïîëàãàòü, ÷åðåç raise_event)
+;   (устанавливаемого, надо полагать, через raise_event)
-;   Ïðè àêòèâíîì ôëàãå MANUAL_RESET - áîëüøå íè÷åãî
+;   При активном флаге MANUAL_RESET - больше ничего
-;   Èíà÷å: ôëàãè EVENT_SIGNALED è EVENT_WATCHED ó ïîëó÷åííîãî ñîáûòèÿ ñáðàñûâàþòñÿ,
+;   Иначе: флаги EVENT_SIGNALED и EVENT_WATCHED у полученного события сбрасываются,
-;   è, ïðè àêòèâíîì MANUAL_DESTROY - ïåðåìåùàåòñÿ â ñïèñîê ObjList òåêóùåãî ñëîòà,
+;   и, при активном MANUAL_DESTROY - перемещается в список ObjList текущего слота,
-;   à ïðè íå àêòèâíîì - óíè÷òîæàåòñÿ øòàòíî (destroy_event.internal)
+;   а при не активном - уничтожается штатно (destroy_event.internal)
 ;param:
 ;   eax - event
 ;   ebx - uid (for Dummy testing)
 ;scratched: ecx,edx,esi
         call    DummyTest
         ret
 ;-----------------------------------------------------------------------------
 align 4
 get_event_ex:                                      ;; f68:14
 ;info:
-;   Îæèäàíèå ëþáîãî ñîáûòèÿ â î÷åðåäè EventList òåêóùåãî ñëîòà
+;   Ожидание любого события в очереди EventList текущего слота
-;   Äàííûå ñîáûòèÿ code - êîïèðóþòñÿ â ïàìÿòü ïðèëîæåíèÿ (êîñâåííî ïî edi)
+;   Данные события code - копируются в память приложения (косвенно по edi)
-;   Ïðè àêòèâíîì ôëàãå MANUAL_RESET - áîëüøå íè÷åãî
+;   При активном флаге MANUAL_RESET - больше ничего
-;   Èíà÷å: ôëàãè EVENT_SIGNALED è EVENT_WATCHED ó ïîëó÷åííîãî ñîáûòèÿ ñáðàñûâàþòñÿ,
+;   Иначе: флаги EVENT_SIGNALED и EVENT_WATCHED у полученного события сбрасываются,
-;   è, ïðè àêòèâíîì MANUAL_DESTROY - ïåðåìåùàåòñÿ â ñïèñîê ObjList òåêóùåãî ñëîòà,
+;   и, при активном MANUAL_DESTROY - перемещается в список ObjList текущего слота,
-;   à ïðè íå àêòèâíîì - óíè÷òîæàåòñÿ øòàòíî (destroy_event.internal)
+;   а при не активном - уничтожается штатно (destroy_event.internal)
 ;param:
-;   edi - àäðåñ â êîäå ïðèëîæåíèÿ äëÿ êîïèðîâàíèÿ äàííûõ èç EVENT.code
+;   edi - адрес в коде приложения для копирования данных из EVENT.code
 ;retval:
-;   eax - ñîáñòâåííî EVENT (áóäåì íàçûâàòü ýòî åãî õýíäëîì)
+;   eax - собственно EVENT (будем называть это его хэндлом)
 ;scratched: ebx,ecx,edx,esi,edi
         mov     edx, get_event_queue ; wait_test
         call    Wait_events          ; timeout ignored
         lea     esi, [eax+EVENT.code]
         mov     ecx, (sizeof.EVENT-EVENT.code)/4
         jmp     RemoveEventTo
 ;-----------------------------------------------------------------------------
 align 4
 destroy_event:                                     ;; EXPORT use
 ;info:
-;   Ïåðåíîñèì EVENT â ñïèñîê FreeEvents, ÷èñòèì ïîëÿ magic,destroy,pid,id
+;   Переносим EVENT в список FreeEvents, чистим поля magic,destroy,pid,id
 ;param:
 ;   eax - event
 ;   ebx - uid (for Dummy testing)
 ;retval:
-;   eax - àäðåñ îáúåêòà EVENT (=0 => fail)
+;   eax - адрес объекта EVENT (=0 => fail)
 ;scratched: ebx,ecx
         call    DummyTest ; not returned for fail !!!
 ;--------------------------------------
 align 4
 .internal:
         jmp     RemoveEventTo
 ;-----------------------------------------------------------------------------
 align 4
 get_event_queue:
 ;info:
-;   êëèåíòñêàÿ ô-ÿ òåñòèðîâàíèÿ äëÿ get_event_ex
+;   клиентская ф-я тестирования для get_event_ex
 ;warning:
 ;  -don't use [TASK_BASE],[current_slot],[CURRENT_TASK] - it is not for your slot
 ;  -may be assumed, that interrupt are disabled
 ;  -it is not restriction for scratched registers
 ;param:
-;   ebx - àäðåñ APPDATA ñëîòà òåñòèðîâàíèÿ
+;   ebx - адрес APPDATA слота тестирования
 ;retval:
-;   eax - àäðåñ îáúåêòà EVENT (=0 => fail)
+;   eax - адрес объекта EVENT (=0 => fail)
         add     ebx, APP_EV_OFFSET
-        mov     eax, [ebx+APPOBJ.bk] ; âûáèðàåì ñ êîíöà, ïî ïðèíöèïó FIFO
+        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
+;   клиентская ф-я тестирования для wait_event
 ;warning:
 ;  -don't use [TASK_BASE],[current_slot],[CURRENT_TASK] - it is not for your slot
 ;  -may be assumed, that interrupt are disabled
 ;  -it is not restriction for scratched registers
 ;param:
-;   ebx - àäðåñ APPDATA ñëîòà òåñòèðîâàíèÿ
+;   ebx - адрес APPDATA слота тестирования
 ;retval:
-;   eax - àäðåñ îáúåêòà EVENT (=0 => fail)
+;   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
 ;--------------------------------------
         inc     byte[KEY_COUNT]
         mov     [KEY_COUNT+1+eax], dl
 ;--------------------------------------
 align 4
 .result:
-        setae   byte[esp+32+4] ;ñ÷èòàåì, ÷òî èñõîäíî: dword[esp+32+4]==72
+        setae   byte[esp+32+4] ;считаем, что исходно: dword[esp+32+4]==72
 ;--------------------------------------
 align 4
 .retf:
         popfd
 ;--------------------------------------
 .ret:
         ret
 ;-----------------------------------------------------------------------------
 align 4
 sys_getevent:                                      ;; f11
-        mov     ebx, [current_slot];ïîêà ýòî âîïðîñ, ÷åãî êóäû ñóâàòü..........
+        mov     ebx, [current_slot];пока это вопрос, чего куды сувать..........
-        pushfd  ; ýòî ñëåäñòâèå îáùåé êîíöåïöèè: ïóñòü ô-ÿ òåñòèðîâàíèÿ èìååò
+        pushfd  ; это следствие общей концепции: пусть ф-я тестирования имеет
-        cli     ; ïðàâî ðàññ÷èòûâàòü íà çàêðûòûå ïðåðûâàíèÿ, êàê ïðè âûçîâå èç shed
+        cli     ; право рассчитывать на закрытые прерывания, как при вызове из shed
         call    get_event_for_app
         popfd
         mov     [esp+32], eax
         ret
 ;-----------------------------------------------------------------------------
         ret
 ;-----------------------------------------------------------------------------
 align 4
 get_event_for_app:                                 ;; used from f10,f11,f23
 ;info:
-;   êëèåíòñêàÿ ô-ÿ òåñòèðîâàíèÿ äëÿ ïðèëîæåíèé (f10,f23)
+;   клиентская ф-я тестирования для приложений (f10,f23)
 ;warning:
 ;  -don't use [TASK_BASE],[current_slot],[CURRENT_TASK] - it is not for your slot
 ;  -may be assumed, that interrupt are disabled
 ;  -it is not restriction for scratched registers
 ;param:
-;   ebx - àäðåñ APPDATA ñëîòà òåñòèðîâàíèÿ
+;   ebx - адрес APPDATA слота тестирования
 ;retval:
-;   eax - íîìåð ñîáûòèÿ (=0 => no events)
+;   eax - номер события (=0 => no events)
         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: ; ïîêà íå èñ÷åðïàåì âñå áèòû ìàñêè
+.loop: ; пока не исчерпаем все биты маски
-        bsr     eax, ecx       ; íàõîäèì íåíóëåâîé áèò ìàñêè (31 -> 0)
+        bsr     eax, ecx       ; находим ненулевой бит маски (31 -> 0)
-        jz      .no_events     ; èñ÷åðïàëè âñå áèòû ìàñêè, íî íè÷åãî íå íàøëè ???
+        jz      .no_events     ; исчерпали все биты маски, но ничего не нашли ???
-        btr     ecx, eax       ; ñáðàñûâàåì ïðîâåðÿåìûé áèò ìàñêè
+        btr     ecx, eax       ; сбрасываем проверяемый бит маски
-       ; ïåðåõîäèì íà îáðàáîò÷èê ýòîãî (eax) áèòà
+       ; переходим на обработчик этого (eax) бита
-        cmp     eax, 9
+        cmp     eax, 10
-        jae     .loop          ; eax=[9..31], ignored (event 10...32)
+        jae     .loop          ; eax=[10..31], ignored (event 10...32)
         cmp     eax, 3
         je      .loop          ; eax=3, ignored (event 4)
         cmp     eax, 4
         je      .FlagAutoReset  ; eax=4, retvals=eax+1 (event 5)
         cmp     eax, 5
         je      .mouse_check  ; eax=5, retvals=eax+1 (event 6)
-        ja      .FlagAutoReset ; eax=[6..8], retvals=eax+1 (event 7...9)
+        ja      .FlagAutoReset ; eax=[6..9], retvals=eax+1 (event 7...10)
         mov     edx, [BTN_BUFF]
         shr     edx, 8
         cmp     edx, 0xFFFF    ;-ID for Minimize-Button of Form
         jne     .result
         mov     [window_minimize], 1
+        call    wakeup_osloop
         dec     byte[BTN_COUNT]
         jmp     .loop
 ;--------------------------------------
 align 4
 .Keys:    ; eax==1

Subversion Repositories Kolibri OS

(root)/kernel/branches/Kolibri-acpi/gui/event.inc – Rev 3500 → 3555