Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5891 → Rev 5892

/programs/notify.inc
0,0 → 1,11
NTCTRL_READY = 0
NTCTRL_APPLY_TEXT = 1
NTCTRL_APPLY_ICON = 2
NTCTRL_APPLY_TITLE = 3
 
NTCTRL_CLOSE = 32
 
NTCTRL_ICON = 64
NTCTRL_TITLE = 65
 
NTCTRL_TEXT = 128
/programs/system/notify3/notify.asm
1,171 → 1,122
use32
org 0
db 'MENUET01'
dd 1, @entry, @end, @memory, @stack, @params, 0
dd 1, @ENTRY, @end, @memory, @stack, @params, 0
 
include "../../macros.inc"
include "../../cmp.inc"
include "../../proc32.inc"
include "../../dll.inc"
; include "../../debug.inc"
include "../../notify.inc"
include "../../string.inc"
 
macro cmpe a, b, c {
cmp a, b
je c }
 
macro cmpl a, b, c {
cmp a, b
jl c }
 
macro cmpne a, b, c {
cmp a, b
jne c }
 
macro cmple a, b, c {
cmp a, b
jle c }
 
macro cmpge a, b, c {
cmp a, b
jge c }
 
LINEH equ 12
MARGIN equ 12
ICONS equ 11
 
;=====================================================================
;-------------------------------------------------------------------------------
 
@entry:
@ENTRY:
;; INIT HEAP
mcall 68, 11
 
;; GET PID OF ACTIVE
 
;; SAVE FOCUSED WINDOW
mcall 18, 7
 
mov ecx, eax
mcall 9, buffer
 
m2m dword[prev_pid], dword[buffer + 30]
 
;; ALWAYS TOP
 
;; MAKE IT ALWAYS ON TOP
mcall 18, 25, 2, -1, 1
 
;; CHECK FOR PARAMS
 
;; SET STD PARAMS, IF IT NEEDS
mov eax, @params
cmpne [@params], byte 0, @f
cmpne byte [@params], 0, @f
mov eax, sz_std
@@:
mov [params.source], eax
 
;; TEXT
 
parse:
;; PARSE ARGUMENTS
mov esi, 0
call parse_text
call parse_flags
movzx ebx, [params.icon]
 
;; PARAMS
;; GET PID
mcall 9, buffer, -1
mov eax, dword [buffer + 30]
 
.params:
mov dl, [eax]
;; CONVERT PID TO STR
mov ebx, 10
mov ecx, 0
@@:
mov edx, 0
div ebx
push edx
inc ecx
cmpne eax, 0, @b
 
cmpe dl, 0, .params.end
cmpe dl, "d", .set_atcl
cmpe dl, "t", .set_title
cmpe dl, "c", .set_ctrl
 
mov ebx, 1
mov ecx, sz_icons
mov ebx, ctrl.name
@@:
cmpe dl, [ecx], .set_icon
pop eax
add al, "0"
mov [ebx], al
inc ebx
inc ecx
cmpne [ecx], byte 0, @b
loop @b
 
jmp .next_char
mov dword [ebx + 0], "-NOT"
mov dword [ebx + 4], "IFY"
 
.set_atcl:
mov [params.atcl], byte 1
jmp .next_char
 
.set_title:
mov [params.title], byte 1
jmp .next_char
 
.set_ctrl:
mov [params.ctrl], byte 1
jmp .next_char
 
.set_icon:
mov [params.icon], ebx
 
.next_char:
inc eax
jmp .params
 
.params.end:
 
;----------------------------
 
mcall 68, 11
;; LOAD LIBRARIES
stdcall dll.Load, @imports
 
mov dword [fi + 00], 5
mov dword [fi + 16], buffer
mov dword [fi + 21], sz_ifile
;; GET SIZE OF ICONS
mcall 70, fi
 
mov edx, dword [buffer + 32]
shl edx, 2
 
;; ALLOCATE MEMORY FOR THIS
stdcall mem.Alloc, edx
mov [img_data.rgb_obj], eax
 
;; READ ICONS
mov dword [fi + 00], 0
mov dword [fi + 12], edx
m2m dword [fi + 16], [img_data.rgb_obj]
mov dword [fi + 21], sz_ifile
mov dword [fi + 16], eax
mcall 70, fi
 
;; DECODE ICONS
stdcall dword [img.decode], dword [img_data.rgb_obj], ebx, 0
mov dword [img_data.obj], eax
 
;; alpha
add eax, 24
mov eax, [eax] ;; eax - data [argb]
 
mov ecx, 24 * 24 * ICONS
alpha:
mov ebx, [eax]
shr ebx, 24
cmpne bl, 0x00, @f
mov [eax], dword 0x222222
 
@@:
add eax, 4
loop alpha
 
;; end alpha
 
stdcall dword [img.to_rgb], dword [img_data.obj], dword [img_data.rgb_obj]
stdcall dword [img.destroy], dword [img_data.obj]
 
;----------------------------
 
mov [text.offset], LINEH
 
;; CALC HEIGHT
mov eax, [text.lines]
add eax, 2
imul eax, LINEH
mov [window.height], eax
 
;; CALC OFFSET OF TEXT
mov dword [text.offset], MARGIN
cmpe byte [params.icon], 0, @f
add dword [text.offset], MARGIN + 24
@@:
 
;; CALC WIDTH
mov eax, [text.max_len]
dec eax
imul eax, 6
add eax, LINEH * 2
cmpe [params.icon], dword 0, @f
add eax, 24 + LINEH
add [text.offset], 24 + LINEH
@@:
add eax, MARGIN
add eax, [text.offset]
mov [window.width], eax
 
mcall 14
mov ebx, eax
and ebx, 0xFFFF
movzx ebx, bx
mov [scr.height], ebx
shr eax, 16
mov [scr.width], eax
173,9 → 124,8
sub eax, LINEH
mov [window.x], eax
 
;; CALC WINDOW.Y
 
mcall 68, 22, sz_shname, 256 + 512, 4 + 1 ;OPEN_ALWAYS and WRITE
;; CALC Y
mcall 68, 22, sz_shname, 256 + 512, 4 + 1 ;OPEN_ALWAYS AND WRITE
add eax, 512
mov [shm], eax
 
241,19 → 191,22
 
;----------------------------
 
;; SET EVENT MASK
mcall 40, 101b
 
;; INIT TIMER
mov eax, 60
imul eax, [text.lines]
mov [timer], eax
 
mov [timer.step], dword 1
cmpne [params.atcl], byte 1, @f
mov [timer.step], dword 0
mov dword [timer.step], 1
cmpne byte [params.atcl], 1, @f
mov dword [timer.step], 0
@@:
 
;----------------------------
 
;; INIT WINDOW
call init_window
 
;; RESTORE FOCUS
mcall 18, 21, [prev_pid]
mov ecx, eax
mcall 18, 3
265,12 → 218,97
update:
mcall 23, 10
cmpe al, EV_REDRAW, redraw
cmpe al, EV_KEY, key
cmpe al, EV_BUTTON, exit
cmpe al, EV_BUTTON, button
 
mov edi, update
 
;; TRY OPEN CONTROLLER
cmpe byte [params.ctrl], 1, .fail_controller_open
mcall 68, 22, ctrl.name, , 0x01
cmpe eax, 0, .fail_controller_open
mov byte [params.ctrl], 1
mov [ctrl.addr], eax
 
;; COPY TEXT TO CTRL
add eax, NTCTRL_TEXT
mov ebx, text.buffer
mov ecx, [text.lines]
.copy_start:
cmpe ecx, 0, .copy_end
mov dl, [ebx]
cmpne dl, 0, @f
mov dl, "|"
dec ecx
@@:
mov [eax], dl
inc eax
inc ebx
jmp .copy_start
.copy_end:
mov byte [eax - 1], 0
 
;; COPY FLAGS TO CTRL
mov eax, [ctrl.addr]
add eax, NTCTRL_ICON
mov dl, [params.icon]
mov [eax], dl
 
mov eax, [ctrl.addr]
add eax, NTCTRL_TITLE
mov dl, [params.title]
mov [eax], dl
 
;; SET CONTROLLER READY
mov eax, [ctrl.addr]
add eax, NTCTRL_READY
mov byte [eax], 1
.fail_controller_open:
 
 
cmpe [params.ctrl], 0, .no_ctrl
;; TEST TEXT
mov eax, [ctrl.addr]
add eax, NTCTRL_APPLY_TEXT
cmpne byte [eax], 1, @f
mov byte [eax], 0
mov eax, [ctrl.addr]
add eax, NTCTRL_TEXT
mov esi, 1
call parse_text
mov edi, redraw
@@:
 
;; TEST ICON
mov eax, [ctrl.addr]
add eax, NTCTRL_APPLY_ICON
cmpne byte [eax], 1, @f
mov eax, [ctrl.addr]
add eax, NTCTRL_ICON
mov dl, [eax]
mov [params.icon], dl
@@:
 
;; TEST TITLE
mov eax, [ctrl.addr]
add eax, NTCTRL_APPLY_TITLE
cmpne byte [eax], 1, @f
mov eax, [ctrl.addr]
add eax, NTCTRL_TITLE
mov dl, [eax]
mov [params.title], dl
@@:
 
;; TEST CLOSE
mov eax, [ctrl.addr]
add eax, NTCTRL_CLOSE
cmpe byte [eax], 1, exit
 
.no_ctrl:
 
mov eax, [timer.step]
sub [timer], eax
cmpne [timer], dword 0, update
cmpe [timer], dword 0, exit
jmp edi
 
;----------------------------
 
289,10 → 327,10
 
;----------------------------
 
key:
mcall 2
cmpne ah, 27, update
jmp exit
button:
mcall 17
cmpe byte [params.clcl], 0, exit
jmp update
 
;----------------------------
 
307,8 → 345,8
draw_window:
call init_window
 
and ebx, 0xFFFF
and ecx, 0xFFFF
movzx ebx, bx
movzx ecx, cx
inc ebx
inc ecx
mcall 8, , , 0x61000001
415,9 → 453,8
 
;-----
 
cmpe [params.icon], dword 0, @f
 
mov ebx, [params.icon]
cmpe byte [params.icon], 0, @f
movzx ebx, byte [params.icon]
dec ebx
imul ebx, 24 * 24 * 3
add ebx, [img_data.rgb_obj]
428,7 → 465,6
add edx, LINEH shl 16
 
mcall 7, , <24, 24>
 
@@:
 
ret
476,7 → 512,7
 
.draw_lines.end:
 
cmpne [params.title], byte 1, @f
cmpne byte [params.title], 1, @f
mov edx, text.buffer
mov ecx, 0x80111111
and ebx, 0xFFFF0000
511,6 → 547,7
mov dl, 0
mov dh, 0
 
cmpe esi, 1, .parse_loop
cmpne byte [eax], "'", @f
mov dl, "'"
mov dh, 1
526,14 → 563,21
.parse_loop:
cmpe byte [eax], 0, .parse_loop.end
cmpe byte [eax], dl, .parse_loop.end
mov dh, [eax]
 
cmpe byte [eax], 10, .newline
cmpe esi, 1, .next_set_char
cmpne byte [eax], "\", @f
cmpe byte [eax + 1], dl, .quote
cmpe byte [eax + 1], "n", .newline_esc
jmp @f
 
cmpne byte [eax + 0], "\", @f
cmpne byte [eax + 1], "n", @f
.quote:
inc eax
jmp .next_set_char
 
.newline_esc:
inc eax
 
.newline:
mov byte [ebx], 0
cmple ecx, dword [text.max_len], .skip_max_len
544,6 → 588,8
jmp .next
@@:
 
.next_set_char:
mov dh, [eax]
mov [ebx], dh
 
.next:
567,10 → 613,55
 
;----------------------------
 
parse_flags:
mov byte [params.atcl], 0
mov byte [params.title], 0
mov byte [params.icon], 0
 
.loop:
mov dl, [eax]
 
cmpe dl, 0, .exit
cmpe dl, "d", .set_atcl
cmpe dl, "c", .set_clcl
cmpe dl, "t", .set_title
 
mov bl, 1
mov ecx, sz_icons
@@:
cmpe dl, [ecx], .set_icon
inc bl
inc ecx
cmpne [ecx], byte 0, @b
jmp .next_char
 
.set_atcl:
mov byte [params.atcl], 1
jmp .next_char
 
.set_clcl:
mov byte [params.clcl], 1
jmp .next_char
 
.set_title:
mov byte [params.title], 1
jmp .next_char
 
.set_icon:
mov [params.icon], bl
 
.next_char:
inc eax
jmp .loop
 
.exit:
ret
 
;----------------------------
 
@imports:
library img, "libimg.obj"
import img, img.init, "lib_init", \
img.to_rgb, "img_to_rgb2", \
import img, img.to_rgb, "img_to_rgb2", \
img.decode, "img_decode", \
img.destroy, "img_destroy"
 
581,6 → 672,7
sz_shname db "notify-mem-v01", 0
sz_std db "'NOTIFY 3\n", \
"d - disable auto-closing\n", \
"c - disable click-closing\n", \
"t - title\n", \
" \n", \
"ICONS:\n", \
597,6 → 689,13
"S - audio player", \
"' -td", 0
 
fi:
dd 5
dd 0, 0, 0
dd buffer
db 0
dd sz_ifile
 
;----------------------------
 
@end:
620,9 → 719,11
.offset rd 1
 
params:
.source rd 1
.atcl rb 1
.clcl rb 1
.title rb 1
.icon rd 1
.icon rb 1
.ctrl rb 1
 
img_data:
637,7 → 738,10
.addr rd 1
.our rd 1
 
fi rb 26
ctrl:
.name rb 31
.addr rd 1
 
buffer rb 1024
first_draw rb 1
prev_pid rd 1
/programs/system/notify3/readme.txt
13,6 → 13,7
 
2.3 <KEYS>
d - disable auto-closing
c - disable closing by click
t - title
 
2.3.1 ICONS:
/programs/system/notify3/test_ctrl.asm
0,0 → 1,177
use32
org 0
db 'MENUET01'
dd 1, @entry, @end, @memory, @stack, 0, 0
 
include "../../macros.inc"
include "../../proc32.inc"
; include "../../debug.inc"
include "../../notify.inc"
include "../../string.inc"
include "../../cmp.inc"
 
@entry:
mcall 68, 11
 
;; RUN NOTIFY
call make_param
mcall 70, fi_launch
 
;; CONVERT PID TO STR
mov ebx, 10
mov ecx, 0
@@:
mov edx, 0
div ebx
push edx
inc ecx
cmpne eax, 0, @b
 
mov ebx, ctrl.name
@@:
pop eax
add al, "0"
mov [ebx], al
inc ebx
loop @b
 
;; ADD POSTFIX TO STR
mov dword [ebx + 0], "-NOT"
mov dword [ebx + 4], "IFY"
 
;; OPEN CONTROLLER (0x08 + 0x01 -- CREATE AND READ/WRITE)
mcall 68, 22, ctrl.name, 2048, 0x09
mov [ctrl.addr], eax
 
;; WAIT UNTIL CONTROLLER BECOMES READY TO USE
add eax, NTCTRL_READY
@@:
mcall 5, 1
cmpe byte [eax], 0, @b
 
;; LOOP OF NOTIFIES CHANGES
@@:
;; SHIFT TEXT
call shift
;; ADD UNSHIFTABLE TEXT
mov byte [params], 0
call make_text
 
;; SEND TEXT TO NOTIFY
mov eax, [ctrl.addr]
add eax, NTCTRL_TEXT
stdcall string.copy, params, eax
 
;; APPLY NEW TEXT
mov eax, [ctrl.addr]
add eax, NTCTRL_APPLY_TEXT
mov byte [eax], 1
 
;; CLOSE NOTIFY IF TIME IS END
cmpe byte [sz_time], "0" - 1, .exit
 
;; WAIT AND DO NEXT ITERATION
mcall 5, 10
jmp @b
 
.exit:
;; CLOSE NOTIFY
mov eax, [ctrl.addr]
add eax, NTCTRL_CLOSE
mov byte [eax], 1
 
mcall -1
 
;-------------------------------------------------------------------------------
shift:
;; SHIFT TEXT
mov eax, sz_text
mov dh, [eax]
@@:
mov dl, [eax + 1]
mov [eax], dl
inc eax
cmpne byte [eax + 1], 0, @b
mov [eax], dh
 
inc byte [timer]
cmpne byte [timer], 10, .skip_changes
sub byte [timer], 10
 
;; CHANGE TIMER TEXT
dec byte [sz_time]
 
;; CHANGE ICON
mov eax, [ctrl.addr]
add eax, NTCTRL_ICON
inc byte [eax]
cmpne byte [eax], 12, @f
sub byte [eax], 11
@@:
 
;; APPLY NEW ICON
mov eax, [ctrl.addr]
add eax, NTCTRL_APPLY_ICON
mov byte [eax], 1
 
;; CHANGE TITLE
mov eax, [ctrl.addr]
add eax, NTCTRL_TITLE
mov dl, 1
sub dl, [eax]
mov [eax], dl
 
;; APPLY NEW TITLE
mov eax, [ctrl.addr]
add eax, NTCTRL_APPLY_TITLE
mov byte [eax], 1
 
.skip_changes:
 
ret
;-------------------------------------------------------------------------------
make_text:
stdcall string.concatenate, sz_text, params
stdcall string.concatenate, sz_sec_line_start, params
stdcall string.concatenate, sz_time, params
stdcall string.concatenate, sz_sec_line_end, params
 
ret
;-------------------------------------------------------------------------------
make_param:
stdcall string.copy, sz_quote, params
call make_text
stdcall string.concatenate, sz_quote, params
stdcall string.concatenate, sz_flags, params
 
ret
;-------------------------------------------------------------------------------
 
sz_time:
db "5", 0
sz_text:
db "Hello, World!!! It is a marquee! ", 0
sz_quote:
db "'", 0
sz_sec_line_start:
db 10, "Will close after ", 0
sz_sec_line_end:
db " seconds", 0
sz_flags:
db "Idc", 0
 
fi_launch:
dd 7, 0, params, 0, 0
db "@notify", 0
 
@end:
;=====================================================================
timer rb 1
params rb 256
ctrl:
.name rb 32
.addr rd 1
rb 2048
@stack:
 
@memory: