forked from KolibriOS/kolibrios
create /programs/testing folder, upload GenFiles by 0CodErr
git-svn-id: svn://kolibrios.org@6573 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency)
parent
fab76bf2c2
commit
e8ffe59ea7
441
programs/testing/genfiles/GenFiles.asm
Normal file
441
programs/testing/genfiles/GenFiles.asm
Normal file
@ -0,0 +1,441 @@
|
||||
; program to generate files ;
|
||||
; path to folder in edit1 ;
|
||||
; count of files in edit2 ;
|
||||
; to compile: nasm -f bin GenFiles.asm -o GenFiles ;
|
||||
ORG 0
|
||||
BITS 32
|
||||
; ------------------------------------- ;
|
||||
STACK_SIZE equ 256
|
||||
; ------------------------------------- ;
|
||||
EM_REDRAW equ 0b1
|
||||
EM_KEY equ 0b10
|
||||
EM_BUTTON equ 0b100
|
||||
EM_MOUSE equ 0b100000
|
||||
; ------------------------------------- ;
|
||||
BUTTON_START equ 2
|
||||
; ------------------------------------- ;
|
||||
ED_DISABLED equ 0b100000000000
|
||||
; ------------------------------------- ;
|
||||
EDIT1_MAX_LENGTH equ 1024
|
||||
EDIT2_MAX_LENGTH equ 10
|
||||
FILE_NAME_LENGTH equ 256
|
||||
; ------------------------------------- ;
|
||||
text_buffer1 equ END + STACK_SIZE
|
||||
text_buffer2 equ END + STACK_SIZE + (EDIT1_MAX_LENGTH + 2)
|
||||
file_name equ END + STACK_SIZE + (EDIT1_MAX_LENGTH + 2) + (EDIT2_MAX_LENGTH + 2)
|
||||
; ------------------------------------- ;
|
||||
MENUET01 db 'MENUET01'
|
||||
version dd 1
|
||||
program.start dd START
|
||||
program.end dd END
|
||||
program.memory dd END + STACK_SIZE + (EDIT1_MAX_LENGTH + 2) + (EDIT2_MAX_LENGTH + 2) + FILE_NAME_LENGTH
|
||||
program.stack dd END + STACK_SIZE
|
||||
program.params dd 0
|
||||
program.path dd 0
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
Events:
|
||||
.0: dd On_Idle
|
||||
.1: dd On_Redraw
|
||||
.2: dd On_Key
|
||||
.3: dd On_Button
|
||||
.4: dd 0
|
||||
.5: dd 0
|
||||
.6: dd On_Mouse
|
||||
; ------------------------------------- ;
|
||||
ButtonEvents:
|
||||
.0: dd 0
|
||||
.1: dd On_ButtonClose
|
||||
.2: dd On_ButtonStart
|
||||
; ------------------------------------- ;
|
||||
count dd 0
|
||||
; ------------------------------------- ;
|
||||
pb:
|
||||
.value dd 0
|
||||
.left dd 8
|
||||
.top dd 25
|
||||
.width dd 269
|
||||
.height dd 10
|
||||
.style dd 0
|
||||
.min dd 0
|
||||
.max dd 0
|
||||
.back_color dd 0x00C8D0D4
|
||||
.progress_color dd 0x8072B7EB
|
||||
.frame_color dd 0x00406175
|
||||
; ------------------------------------- ;
|
||||
edit1:
|
||||
.width dd 100
|
||||
.left dd 48
|
||||
.top dd 8
|
||||
.color dd 0X00FFFFFF
|
||||
.shift_color dd 0
|
||||
.focus_border_color dd 0
|
||||
.blur_border_color dd 0
|
||||
.text_color dd 0
|
||||
.max dd EDIT1_MAX_LENGTH
|
||||
.text dd text_buffer1
|
||||
.mouse_variable dd 0
|
||||
.flags dd 10b ; active
|
||||
.size dd 0
|
||||
.pos dd 0
|
||||
.offset dd 0
|
||||
.cl_curs_x dd 0
|
||||
.cl_curs_y dd 0
|
||||
.shift dd 0
|
||||
.shift_old dd 0
|
||||
; ------------------------------------- ;
|
||||
edit2:
|
||||
.width dd 60
|
||||
.left dd 216
|
||||
.top dd 8
|
||||
.color dd 0X00FFFFFF
|
||||
.shift_color dd 0
|
||||
.focus_border_color dd 0
|
||||
.blur_border_color dd 0
|
||||
.text_color dd 0
|
||||
.max dd EDIT2_MAX_LENGTH
|
||||
.text dd text_buffer2
|
||||
.mouse_variable dd 0
|
||||
.flags dd 1000000000000000b ; only numbers
|
||||
.size dd 0
|
||||
.pos dd 0
|
||||
.offset dd 0
|
||||
.cl_curs_x dd 0
|
||||
.cl_curs_y dd 0
|
||||
.shift dd 0
|
||||
.shift_old dd 0
|
||||
; ------------------------------------- ;
|
||||
progressbar_progress dd 0
|
||||
progressbar_draw dd 0
|
||||
; ------------------------------------- ;
|
||||
edit_box_draw dd 0
|
||||
edit_box_key dd 0
|
||||
edit_box_mouse dd 0
|
||||
edit_box_set_text dd 0
|
||||
; ------------------------------------- ;
|
||||
status_string dd sz_empty
|
||||
; ------------------------------------- ;
|
||||
box_lib dd 0
|
||||
; ------------------------------------- ;
|
||||
sz_box_lib db "/sys/lib/box_lib.obj",0
|
||||
; ------------------------------------- ;
|
||||
sz_progressbar_draw db 'progressbar_draw', 0
|
||||
sz_progressbar_progress db 'progressbar_progress', 0
|
||||
; ------------------------------------- ;
|
||||
sz_edit_box db "edit_box",0
|
||||
sz_edit_box_key db "edit_box_key",0
|
||||
sz_edit_box_mouse db "edit_box_mouse",0
|
||||
sz_edit_box_set_text db "edit_box_set_text",0
|
||||
; ------------------------------------- ;
|
||||
sz_path db "Path:",0
|
||||
sz_count db "Count:",0
|
||||
sz_start db "Start",0
|
||||
sz_caption db "Generate files",0
|
||||
; ------------------------------------- ;
|
||||
sz_empty db "",0
|
||||
sz_doing db "doing",0
|
||||
sz_done db "done ",0
|
||||
sz_error db "error",0
|
||||
; ------------------------------------- ;
|
||||
digits db "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||||
; ------------------------------------- ;
|
||||
START:
|
||||
; LoadLibrary:
|
||||
mov eax, 68
|
||||
mov ebx, 19
|
||||
mov ecx, sz_box_lib
|
||||
int 64
|
||||
mov [box_lib], eax
|
||||
|
||||
push dword[box_lib]
|
||||
push sz_edit_box
|
||||
call GetProcAddress
|
||||
mov [edit_box_draw], eax
|
||||
|
||||
push dword[box_lib]
|
||||
push sz_edit_box_key
|
||||
call GetProcAddress
|
||||
mov [edit_box_key], eax
|
||||
|
||||
push dword[box_lib]
|
||||
push sz_edit_box_mouse
|
||||
call GetProcAddress
|
||||
mov [edit_box_mouse], eax
|
||||
|
||||
push dword[box_lib]
|
||||
push sz_edit_box_set_text
|
||||
call GetProcAddress
|
||||
mov [edit_box_set_text], eax
|
||||
|
||||
push dword[box_lib]
|
||||
push sz_progressbar_draw
|
||||
call GetProcAddress
|
||||
mov [progressbar_draw], eax
|
||||
|
||||
push dword[box_lib]
|
||||
push sz_progressbar_progress
|
||||
call GetProcAddress
|
||||
mov [progressbar_progress], eax
|
||||
; ------------------------------------- ;
|
||||
; SetEventMask
|
||||
mov eax, 40
|
||||
mov ebx, EM_REDRAW | EM_KEY | EM_BUTTON | EM_MOUSE
|
||||
int 64
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
WaitEvent:
|
||||
mov eax, 10
|
||||
int 64
|
||||
call [eax * 4 + Events]
|
||||
jmp WaitEvent
|
||||
; ------------------------------------- ;
|
||||
%macro CreateNextFile 0
|
||||
; Base36(count)
|
||||
mov eax, [count]
|
||||
mov ecx, 36 ; because our base is 36
|
||||
mov esi, file_name
|
||||
mov edi, esi
|
||||
add esi, 7 ; base36(0xFFFFFFFF) = 1Z141Z3 : 7 simbols
|
||||
mov [esi], byte 0
|
||||
%%next:
|
||||
xor edx, edx
|
||||
div ecx
|
||||
dec esi
|
||||
mov dl, [edx + digits]
|
||||
mov [esi], dl
|
||||
test eax, eax
|
||||
jnz %%next
|
||||
mov eax, esi
|
||||
sub eax, edi
|
||||
mov ecx, 7 + 1
|
||||
sub ecx, eax
|
||||
rep movsb
|
||||
; ------------------------------------- ;
|
||||
push dword file_name
|
||||
dec esp
|
||||
mov [esp], byte 0
|
||||
push dword 0
|
||||
push dword 0
|
||||
push dword 0
|
||||
push dword 0
|
||||
push dword 2 ; SubFunction #2 Create/Rewrite file
|
||||
mov ebx, esp
|
||||
mov eax, 70 ; Function #70
|
||||
int 64
|
||||
add esp, 25 ; restore stack
|
||||
%endmacro
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
DoAction:
|
||||
; convert text in edit2 to number
|
||||
mov edx, [edit2.text]
|
||||
xor eax, eax
|
||||
xor ecx, ecx
|
||||
.convert:
|
||||
mov al, [edx]
|
||||
test al, al
|
||||
jz .converted
|
||||
lea ecx, [ecx + ecx * 4]
|
||||
lea ecx, [eax + ecx * 2 - 48]
|
||||
inc edx
|
||||
jmp .convert
|
||||
.converted:
|
||||
mov [count], ecx
|
||||
; ------------------------------------- ;
|
||||
mov [pb.max], ecx
|
||||
mov [pb.value], dword 0
|
||||
; draw progressbar
|
||||
push pb
|
||||
call [progressbar_draw]
|
||||
; ------------------------------------- ;
|
||||
cmp [count], dword 0
|
||||
jz .done
|
||||
; SetCurrentDirectory
|
||||
mov eax, 30
|
||||
mov ebx, 1
|
||||
mov ecx, [edit1.text]
|
||||
int 64
|
||||
;
|
||||
mov [status_string], dword sz_doing
|
||||
call DrawStatus
|
||||
.do:
|
||||
CreateNextFile
|
||||
test eax, eax
|
||||
jnz .error
|
||||
; increase progress
|
||||
push pb
|
||||
call [progressbar_progress]
|
||||
; CheckEvent
|
||||
mov eax, 11
|
||||
int 64
|
||||
call [eax * 4 + Events]
|
||||
dec dword [count]
|
||||
jnz .do
|
||||
.done:
|
||||
mov [status_string], dword sz_done
|
||||
call DrawStatus
|
||||
ret
|
||||
.error:
|
||||
mov [status_string], dword sz_error
|
||||
call DrawStatus
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
DrawStatus:
|
||||
mov eax, 4
|
||||
mov ecx, 0xC0000000
|
||||
mov ebx, (168 << 16) | 38
|
||||
mov edx, [status_string]
|
||||
mov edi, 0x00FFFFFF
|
||||
int 64
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
On_Idle:
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
On_Redraw:
|
||||
; RedrawStart
|
||||
mov eax, 12
|
||||
mov ebx, 1
|
||||
int 64
|
||||
; DrawWindow
|
||||
xor eax, eax
|
||||
mov ebx, 360
|
||||
mov ecx, 74
|
||||
mov edx, 0x34FFFFFF
|
||||
mov edi, sz_caption
|
||||
xor esi, esi
|
||||
int 64
|
||||
; draw progressbar
|
||||
push pb
|
||||
call [progressbar_draw]
|
||||
; draw edit1
|
||||
push edit1
|
||||
call [edit_box_draw]
|
||||
; draw edit2
|
||||
push edit2
|
||||
call [edit_box_draw]
|
||||
; DrawButton
|
||||
mov eax, 8
|
||||
mov ecx, (8 << 16) | 26
|
||||
mov ebx, (288 << 16) | 53
|
||||
mov edx, BUTTON_START
|
||||
mov esi, 0x00DDDDDD
|
||||
int 64
|
||||
; DrawTexts
|
||||
mov eax, 4
|
||||
mov ecx, 0x80000000
|
||||
; Path:
|
||||
mov ebx, (8 << 16) | 11
|
||||
mov edx, sz_path
|
||||
int 64
|
||||
; Count:
|
||||
mov ebx, (176 << 16) | 11
|
||||
mov edx, sz_count
|
||||
int 64
|
||||
; Start:
|
||||
mov ebx, (302 << 16) | 18
|
||||
mov edx, sz_start
|
||||
int 64
|
||||
; draw status
|
||||
mov ebx, (168 << 16) | 38
|
||||
mov edx, [status_string]
|
||||
int 64
|
||||
; RedrawFinish
|
||||
mov eax, 12
|
||||
mov ebx, 2
|
||||
int 64
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
On_Key:
|
||||
; GetKeyCode
|
||||
mov eax, 2
|
||||
int 64
|
||||
; notify edit1 about key event
|
||||
push edit1
|
||||
call [edit_box_key]
|
||||
; notify edit2 about key event
|
||||
push edit2
|
||||
call [edit_box_key]
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
On_Button:
|
||||
; GetButtonNumber
|
||||
mov eax, 17
|
||||
int 64
|
||||
movzx eax, ah
|
||||
call [eax * 4 + ButtonEvents]
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
On_ButtonClose:
|
||||
; Terminate
|
||||
or eax, -1
|
||||
int 64
|
||||
; ret is not needed here because we are not back after terminate
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
On_ButtonStart:
|
||||
mov [ButtonEvents.2], dword On_Idle ; disable ButtonStart | because
|
||||
or [edit1.flags], dword ED_DISABLED ; disable edit1 | we will
|
||||
or [edit2.flags], dword ED_DISABLED ; disable edit2 | in Action
|
||||
; redraw edit1 after change flag
|
||||
push edit1
|
||||
call [edit_box_draw]
|
||||
; redraw edit2 after change flag
|
||||
push edit2
|
||||
call [edit_box_draw]
|
||||
call DoAction
|
||||
mov [ButtonEvents.2], dword On_ButtonStart ; enable ButtonStart
|
||||
and [edit1.flags], dword ~ED_DISABLED ; enable edit1
|
||||
and [edit2.flags], dword ~ED_DISABLED ; enable edit2
|
||||
; redraw edit1 after change flag
|
||||
push edit1
|
||||
call [edit_box_draw]
|
||||
; redraw edit2 after change flag
|
||||
push edit2
|
||||
call [edit_box_draw]
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
On_Mouse:
|
||||
; notify edit1 about mouse event
|
||||
push edit1
|
||||
call [edit_box_mouse]
|
||||
; notify edit2 about mouse event
|
||||
push edit2
|
||||
call [edit_box_mouse]
|
||||
ret
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
GetProcAddress:
|
||||
mov edx, [esp + 8]
|
||||
xor eax, eax
|
||||
test edx, edx
|
||||
jz .end
|
||||
.next:
|
||||
xor eax, eax
|
||||
cmp [edx], dword 0
|
||||
jz .end
|
||||
mov esi, [edx]
|
||||
mov edi, [esp + 4]
|
||||
.next_:
|
||||
lodsb
|
||||
scasb
|
||||
jne .fail
|
||||
test al, al
|
||||
jnz .next_
|
||||
jmp .ok
|
||||
.fail:
|
||||
add edx, 8
|
||||
jmp .next
|
||||
.ok:
|
||||
mov eax, [edx + 4]
|
||||
.end:
|
||||
ret 8
|
||||
; ------------------------------------- ;
|
||||
align 4
|
||||
END:
|
||||
2
programs/testing/genfiles/Tupfile.lua
Normal file
2
programs/testing/genfiles/Tupfile.lua
Normal file
@ -0,0 +1,2 @@
|
||||
if tup.getconfig("NO_NASM") ~= "" then return end
|
||||
tup.rule("GenFiles.asm", "nasm -f bin -o %o %f " .. tup.getconfig("KPACK_CMD"), "GenFiles")
|
||||
2
programs/testing/genfiles/make.bat
Normal file
2
programs/testing/genfiles/make.bat
Normal file
@ -0,0 +1,2 @@
|
||||
nasm -f bin GenFiles.asm -o GenFiles
|
||||
pause
|
||||
Loading…
Reference in New Issue
Block a user