From ce0f47388b4f81ca0a1888e38e4daf8376a1ad0a Mon Sep 17 00:00:00 2001 From: "Kirill Lipatov (Leency)" Date: Mon, 7 Nov 2016 22:45:32 +0000 Subject: [PATCH] runOD: upload new version from punk_joker (24 Nov 2014) git-svn-id: svn://kolibrios.org@6688 a494cfbc-eb01-0410-851d-a64ba20cac60 --- programs/system/RunOD/RunOD.asm | 722 +---------------------------- programs/system/RunOD/build_en.bat | 5 + programs/system/RunOD/build_ru.bat | 5 + programs/system/RunOD/makefile | 20 +- 4 files changed, 12 insertions(+), 740 deletions(-) create mode 100644 programs/system/RunOD/build_en.bat create mode 100644 programs/system/RunOD/build_ru.bat diff --git a/programs/system/RunOD/RunOD.asm b/programs/system/RunOD/RunOD.asm index 26855343b5..1edef0a7b0 100644 --- a/programs/system/RunOD/RunOD.asm +++ b/programs/system/RunOD/RunOD.asm @@ -1,721 +1 @@ - ; Run with OpenDialog ; - - - -org 0 -use32 - -STACK_SIZE equ 256 -REDRAW_EVENT equ 1 -KEY_EVENT equ 2 -BUTTON_EVENT equ 3 -MOUSE_EVENT equ 6 - -BUTTON_RUN equ 10 -BUTTON_BROWSE equ 20 - -MENUET01 db 'MENUET01' -version dd 1 -program.start dd start_ -program.end dd end_ -program.memory dd end_ + STACK_SIZE -program.stack dd end_ + STACK_SIZE -program.params dd 0 -program.path dd 0 - -include 'lang.inc' - -; ======================================================================= ; -start_: -; set.event - mov eax, 40 - mov ebx, 39 - int 64 - - push sz_box_lib - call load.library - 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 sz_proc_lib - call load.library - mov [proc_lib], eax - - push dword[proc_lib] - push sz_OpenDialog_init - call getprocaddress - mov [opendialog_init], eax - - push dword[proc_lib] - push sz_OpenDialog_start - call getprocaddress - mov [opendialog_start], eax - - -; memory.allocate: - mov eax, 68 - mov ebx, 12 - mov ecx, 4096 + 4096 + 4096 - int 64 - - mov [od.procinfo], eax - - add eax, 1024 - mov [od.filename_area], eax - - add eax, 4096 - 1024 - mov [od.opendir_path], eax - - add eax, 4096 - mov [od.openfile_path], eax - - push od - call [opendialog_init] - - -; get.screen.size - mov eax, 61 - mov ebx, 1 - int 64 - - mov [screen], eax - movzx eax, word[screen.width] - shr eax, 3 - lea eax, [eax*2 + eax] - add eax, 72 - mov [window.width], eax - -; skin.height - mov eax, 48 - mov ebx, 4 - int 64 - - add eax, 64 - mov [window.height], eax - - movzx eax, word[screen.width] - sub eax, [window.width] - shr eax, 1 - mov [window.left], eax - - movzx eax, word[screen.height] - sub eax, [window.height] - sub eax, 24 - mov [window.top], eax - - mov eax, [window.width] - sub eax, 20 - mov [edit1.width], eax - - mov eax, [od.openfile_path] - mov [edit1.text], eax - - - call on_redraw -; ----------------------- ; -.loop: -; wait.event - mov eax, 10 - int 64 - cmp eax, REDRAW_EVENT - jne .check_key - call on_redraw - jmp .loop -; ----------------------- ; -.check_key: - cmp eax, KEY_EVENT - jne .check_button - mov eax, 2 - int 64 - cmp ah, 13 - jne .no_key_enter - call on_button_run - jmp .loop -; ----------------------- ; -.no_key_enter: - cmp ah, 185 - jne .no_key_insert - call on_button_browse - jmp .loop -.no_key_insert: - push edit1 - call [edit_box_key] - jmp .loop -; ----------------------- ; -.check_button: - cmp eax, BUTTON_EVENT - jne .check_mouse -; get.button.number - mov eax, 17 - int 64 - cmp ah, 1 - jne .check_button_run -; program.terminate - or eax, -1 - int 64 -; ----------------------- ; -.check_button_run: - cmp ah, BUTTON_RUN - jne .check_button_browse - call on_button_run - jmp .loop -; ----------------------- ; -.check_button_browse: - cmp ah, BUTTON_BROWSE - jne .loop - call on_button_browse - jmp .loop -; ----------------------- ; -.check_mouse: - cmp eax, MOUSE_EVENT - jne .loop - push edit1 - call [edit_box_mouse] - jmp .loop - - -; ======================================================================= ; -on_button_run: - push dword[edit1.text] - call extractrunpathandparams - -;file.run: - mov eax, 70 - mov ebx, file_info - int 64 - - mov dl, byte[lastendpath] - mov ecx, [ptrlastendpath] - mov [ecx], dl - - test eax, eax - jnge .error - mov [runresult], dword sz_Program_run_successfully - jmp .exit - -.error: -; ----------------------- ; -.5: - cmp al, -5 - jne .31 - mov [runresult], dword sz_File_not_found - jmp .exit -; ----------------------- ; -.31: - cmp al, -31 - jne .32 - mov [runresult], dword sz_File_is_not_executable - jmp .exit -; ----------------------- ; -.32: - cmp al, -32 - jne .10 - mov [runresult], dword sz_Too_many_processes - jmp .exit -; ----------------------- ; -.10: - cmp al, -10 - jne .30 - mov [runresult], dword sz_Access_denied - jmp .exit -; ----------------------- ; -.30: - cmp al, -30 - jne .unknown - mov [runresult], dword sz_Out_of_memory - jmp .exit -; ----------------------- ; -.unknown: - mov [runresult], dword sz_Unknown_error -; ----------------------- ; -.exit: - call on_redraw - ret - -; ======================================================================= ; -on_button_browse: - push od - call [opendialog_start] - - mov eax, [od.status] - test eax, eax - je .exit - -;======== if space exist in filepath, then quote filepath - mov eax, [od.openfile_path] -; ----------------------- ; -.check_space: - cmp [eax], byte 0 - je .no_space - cmp [eax], byte 32 ;space - je .space - inc eax - jmp .check_space -.space: -; ----------------------- ; -.find_end_zero: - inc eax - cmp [eax], byte 0 - jne .find_end_zero - mov [eax + 2], byte 0 - mov [eax + 1], byte 34 ; quote -; ----------------------- ; -.shift_path: - dec eax - - mov dl, byte [eax ] - mov [eax + 1], dl - - cmp eax, [od.openfile_path] - jne .shift_path - mov [eax ], byte 34 ; quote - -.no_space: -;================================= - - push dword[od.openfile_path] - push edit1 - call [edit_box_set_text] -; ----------------------- ; -.exit: - ret - - -; ======================================================================= ; -on_redraw: -; redraw.start - mov eax, 12 - mov ebx, 1 - int 64 -; get.standart.colors - mov eax, 48 - mov ebx, 3 - mov ecx, sc - mov edx, 40 - int 64 - - mov eax, [sc.work_graph] - mov [edit1.shift_color], eax - - mov eax, [sc.work_graph] - mov [edit1.focus_border_color], eax - - mov eax, [sc.frames] - mov [edit1.blur_border_color], eax - - mov eax, [sc.work_text] - mov [edit1.text_color], eax - -; draw.window - xor eax, eax - mov ebx, [window.left] - shl ebx, 16 - add ebx, [window.width] - mov ecx, [window.top] - shl ecx, 16 - add ecx, [window.height] - mov edx, [sc.work] - or edx, 34000000h - mov edi, sz_run - int 64 - - mov eax, [window.width] - sub eax, 318 - shr eax, 1 - sub eax, 5 - push eax - push 5 - push sz_Type_name_of_program - push dword [sc.work_text] - call draw.text - -; ====================| browse button |==================== - push 20 - push 5 - push 38 - push 42 - push 17 - call draw.button - - push 3 - push 42 - push sz_browse - push dword [sc.work_button_text] - call draw.text - -; ====================| run button |==================== - push 10 - mov eax, [window.width] - sub eax, 57 - push eax - push 38 - push 42 - push 17 - call draw.button - - mov eax, [window.width] - sub eax, 56 - push eax - push 42 - push sz_run - push dword [sc.work_button_text] - call draw.text - ; ===================================================== - - mov eax, 57 - push eax - mov eax, [window.height] - sub eax, 44 - push eax - push dword[runresult] - push dword [sc.work_text] - call draw.text - - push edit1 - call [edit_box_draw] - -; redraw.finish - mov eax, 12 - mov ebx, 2 - int 64 - - ret - - -; ======================================================================= ; -extractrunpathandparams: - xor ecx, ecx - - mov eax, [esp + 4] - mov [runpath], eax - - movzx eax, byte [eax] - cmp eax, 34 - jne .start_without_quote - - inc ecx -; ----------------------- ; -.loop1: - mov eax, [runpath] - movzx eax, byte [eax + ecx] - cmp eax, 34 - jne .not_quote - - mov eax, [runpath] - mov [eax + ecx], byte 0 - - mov eax, [runpath] - add eax, ecx - mov [ptrlastendpath], eax - mov [lastendpath], byte 34 - inc ecx -; ----------------------- ; -.skip_space1: - mov eax, [runpath] - movzx eax, byte [eax + ecx] - cmp al, 32 - jne .skipped1 - inc ecx - jmp .skip_space1 -; ----------------------- ; -.skipped1: - mov eax, [runpath] - add eax, ecx - mov [runparams], eax - inc dword [runpath] - jmp .exit -; ----------------------- ; -.not_quote: - mov eax, [runpath] - movzx eax, byte [eax + ecx] - - test eax, eax - jne .not_zero1 - mov eax, [runpath] - add eax, ecx - mov [runparams], eax - mov eax, [runpath] - add eax, ecx - mov [ptrlastendpath], eax - mov [lastendpath], byte 0 - jmp .exit -; ----------------------- ; -.not_zero1: - inc ecx - jmp .loop1 -; ----------------------- ; -.start_without_quote: -; ----------------------- ; -.loop2: - mov eax, [runpath] - movzx eax, byte [eax + ecx] - cmp eax, 32 - jne .not_space - - mov eax, [runpath] - mov [eax + ecx], byte 0 - - mov eax, [runpath] - add eax, ecx - mov [ptrlastendpath], eax - mov [lastendpath], byte 32 - inc ecx -; ----------------------- ; -.skip_space2: - mov eax, [runpath] - movzx eax, byte [eax + ecx] - cmp al, 32 - jne .skipped2 - inc ecx - jmp .skip_space2 -; ----------------------- ; -.skipped2: - mov eax, [runpath] - add eax, ecx - mov [runparams], eax - jmp .exit -; ----------------------- ; -.not_space: - mov eax, [runpath] - movzx eax, byte [eax + ecx] - - test eax, eax - jne .not_zero2 - mov eax, [runpath] - add eax, ecx - mov [runparams], eax - mov eax, [runpath] - add eax, ecx - mov [ptrlastendpath], eax - mov [lastendpath], byte 0 - jmp .exit -; ----------------------- ; -.not_zero2: - inc ecx - jmp .loop2 -; ----------------------- ; -.exit: - ret 4 - -; ======================================================================= ; -draw.button: - mov eax, 8 - mov ebx, [esp + 16] - shl ebx, 16 - add ebx, [esp + 8] - mov ecx, [esp + 12] - shl ecx, 16 - add ecx, [esp + 4] - mov edx, [esp + 20] - mov esi, [sc.work_button] - int 64 - ret 20 -; ======================================================================= ; -draw.text: - mov eax, 4 - mov ebx, [esp + 16] - shl ebx, 16 - add ebx, [esp + 12] - mov ecx, 2147483648 - or ecx, [esp + 4] - mov edx, [esp + 8] - int 64 - ret 16 -; ======================================================================= ; -load.library: - mov eax, 68 - mov ebx, 19 - mov ecx, [esp + 4] - int 64 - ret 4 -; ======================================================================= ; -getprocaddress: - mov edx, [esp + 8] ; hlib - xor eax, eax - test edx, edx ; If hlib = 0 then goto .end - jz .end -; ----------------------- ; -.next: - cmp [edx], dword 0 ; If end of export table then goto .end - jz .end - - xor eax, eax - mov esi, [edx] - mov edi, [esp + 4] ; name -; ----------------------- ; -.next_: - lodsb - scasb - jne .fail - or al, al - jnz .next_ - jmp .ok -; ----------------------- ; -.fail: - add edx, 8 - jmp .next -; ----------------------- ; -.ok: ; return address - mov eax, [edx + 4] -; ----------------------- ; -.end: - ret 8 - - - -file_info: - dd 7 - dd 0 -runparams: - dd 0 - dd 0 - dd 0 - db 0 -runpath: - dd 0 - - -screen: -.height dw 0 -.width dw 0 - -window: -.left dd 0 -.top dd 0 -.width dd 0 -.height dd 0 - -box_lib dd 0 - -edit1: -.width dd 0 -.left dd 5 -.top dd 19 -.color dd 0ffffffffh -.shift_color dd 0 -.focus_border_color dd 0 -.blur_border_color dd 0 -.text_color dd 0 -.max dd 4096 -.text dd 0 -.mouse_variable dd 0 -.flags dd 0x4002 ; always focus -.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 - -edit_box_draw dd 0 -edit_box_key dd 0 -edit_box_mouse dd 0 -edit_box_set_text dd 0 - -sc: -.frames dd 0 -.grab dd 0 -.work_3d_dark dd 0 -.work_3d_light dd 0 -.grab_text dd 0 -.work dd 0 -.work_button dd 0 -.work_button_text dd 0 -.work_text dd 0 -.work_graph dd 0 - -proc_lib dd 0 - -od: -.mode dd 0 -.procinfo dd 0 -.com_area_name dd sz_FFFFFFFF_open_dialog -.com_area dd 0 -.opendir_path dd 0 -.dir_default_path dd sz_SYS -.start_path dd sz_opendial_path -.draw_window dd on_redraw -.status dd 0 -.openfile_path dd 0 -.filename_area dd 0 -.filter_area dd filefilter -.x_size dw 414 -.x_start dw 0 -.y_size dw 414 -.y_start dw 0 - -opendialog_init dd 0 -opendialog_start dd 0 - -filefilter dd 0 -runresult dd sz_empty - -lastendpath db 0 -ptrlastendpath dd 0 - -sz_empty db 0 - -sz_box_lib db "/sys/lib/box_lib.obj",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_proc_lib db "/sys/lib/proc_lib.obj",0 -sz_OpenDialog_init db "OpenDialog_init",0 -sz_OpenDialog_start db "OpenDialog_start",0 -sz_FFFFFFFF_open_dialog db "FFFFFFFF_open_dialog",0 -sz_SYS db "/sys",0 -sz_opendial_path db "/sys/File managers/opendial",0 - -if lang eq it - sz_Program_run_successfully db "Programma eseguito correttamente",0 - sz_File_not_found db "File non trovato",0 - sz_File_is_not_executable db "File non eseguibile",0 - sz_Too_many_processes db "Troppi processi",0 - sz_Access_denied db "Accesso negato",0 - sz_Out_of_memory db "Out of memory",0 - sz_Unknown_error db "Errore sconosciuto",0 - - sz_Type_name_of_program db "Digita il nome del programma per eseguirlo",0 - - sz_run db "Esegui ",0 - sz_browse db " Naviga",0 - -else - sz_Program_run_successfully db "Program run successfully",0 - sz_File_not_found db "File not found",0 - sz_File_is_not_executable db "File is not executable",0 - sz_Too_many_processes db "Too many processes",0 - sz_Access_denied db "Access denied",0 - sz_Out_of_memory db "Out of memory",0 - sz_Unknown_error db "Unknown error",0 - - sz_Type_name_of_program db "Type name of program, and Kolibri will run it for you",0 - - sz_run db " Run ",0 - sz_browse db " Browse ",0 -end if -; ======================================================================= ; -end_: - + ; Run with OpenDialog ; org 0 use32 STACK_SIZE equ 256 REDRAW_EVENT equ 1 KEY_EVENT equ 2 BUTTON_EVENT equ 3 MOUSE_EVENT equ 6 BUTTON_RUN equ 10 BUTTON_BROWSE equ 20 MENUET01 db 'MENUET01' version dd 1 program.start dd start_ program.end dd end_ program.memory dd end_ + STACK_SIZE program.stack dd end_ + STACK_SIZE program.params dd 0 program.path dd 0 include 'lang.inc' ; ======================================================================= ; start_: ; set.event mov eax, 40 mov ebx, 39 int 64 push sz_box_lib call load.library 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 sz_proc_lib call load.library mov [proc_lib], eax push dword[proc_lib] push sz_OpenDialog_init call getprocaddress mov [opendialog_init], eax push dword[proc_lib] push sz_OpenDialog_start call getprocaddress mov [opendialog_start], eax ; memory.allocate: mov eax, 68 mov ebx, 12 mov ecx, 4096 + 4096 + 4096 int 64 mov [od.procinfo], eax add eax, 1024 mov [od.filename_area], eax add eax, 4096 - 1024 mov [od.opendir_path], eax add eax, 4096 mov [od.openfile_path], eax push od call [opendialog_init] ; get.screen.size mov eax, 61 mov ebx, 1 int 64 mov [screen], eax movzx eax, word[screen.width] shr eax, 3 lea eax, [eax*2 + eax] add eax, 8 mov [window.width], eax ; skin.height mov eax, 48 mov ebx, 4 int 64 add eax, 80 mov [window.height], eax movzx eax, word[screen.width] sub eax, [window.width] shr eax, 1 mov [window.left], eax movzx eax, word[screen.height] sub eax, [window.height] sub eax, 24 mov [window.top], eax mov eax, [window.width] sub eax, 46 mov [edit1.width], eax mov eax, [od.openfile_path] mov [edit1.text], eax call on_redraw ; ----------------------- ; .loop: ; wait.event mov eax, 10 int 64 cmp eax, REDRAW_EVENT jne .check_key call on_redraw jmp .loop ; ----------------------- ; .check_key: cmp eax, KEY_EVENT jne .check_button mov eax, 2 int 64 cmp ah, 13 jne .no_key_enter call on_button_run jmp .loop ; ----------------------- ; .no_key_enter: cmp ah, 185 jne .no_key_insert call on_button_browse jmp .loop .no_key_insert: push edit1 call [edit_box_key] jmp .loop ; ----------------------- ; .check_button: cmp eax, BUTTON_EVENT jne .check_mouse ; get.button.number mov eax, 17 int 64 cmp ah, 1 jne .check_button_run ; program.terminate or eax, -1 int 64 ; ----------------------- ; .check_button_run: cmp ah, BUTTON_RUN jne .check_button_browse call on_button_run jmp .loop ; ----------------------- ; .check_button_browse: cmp ah, BUTTON_BROWSE jne .loop call on_button_browse jmp .loop ; ----------------------- ; .check_mouse: cmp eax, MOUSE_EVENT jne .loop push edit1 call [edit_box_mouse] jmp .loop ; ======================================================================= ; on_button_run: push dword[edit1.text] call extractrunpathandparams ;file.run: mov eax, 70 mov ebx, file_info int 64 mov dl, byte[lastendpath] mov ecx, [ptrlastendpath] mov [ecx], dl test eax, eax jnge .error mov [runresult], dword sz_Program_run_successfully jmp .exit .error: ; ----------------------- ; .5: cmp al, -5 jne .31 mov [runresult], dword sz_File_not_found jmp .exit ; ----------------------- ; .31: cmp al, -31 jne .32 mov [runresult], dword sz_File_is_not_executable jmp .exit ; ----------------------- ; .32: cmp al, -32 jne .10 mov [runresult], dword sz_Too_many_processes jmp .exit ; ----------------------- ; .10: cmp al, -10 jne .30 mov [runresult], dword sz_Access_denied jmp .exit ; ----------------------- ; .30: cmp al, -30 jne .unknown mov [runresult], dword sz_Out_of_memory jmp .exit ; ----------------------- ; .unknown: mov [runresult], dword sz_Unknown_error ; ----------------------- ; .exit: call on_redraw ret ; ======================================================================= ; on_button_browse: push od call [opendialog_start] mov eax, [od.status] test eax, eax je .exit ;======== if space exist in filepath, then quote filepath mov eax, [od.openfile_path] ; ----------------------- ; .check_space: cmp [eax], byte 0 je .no_space cmp [eax], byte 32 ;space je .space inc eax jmp .check_space .space: ; ----------------------- ; .find_end_zero: inc eax cmp [eax], byte 0 jne .find_end_zero mov [eax + 2], byte 0 mov [eax + 1], byte 34 ; quote ; ----------------------- ; .shift_path: dec eax mov dl, byte [eax ] mov [eax + 1], dl cmp eax, [od.openfile_path] jne .shift_path mov [eax ], byte 34 ; quote .no_space: ;================================= push dword[od.openfile_path] push edit1 call [edit_box_set_text] ; ----------------------- ; .exit: ret ; ======================================================================= ; on_redraw: ; redraw.start mov eax, 12 mov ebx, 1 int 64 ; get.standart.colors mov eax, 48 mov ebx, 3 mov ecx, sc mov edx, 40 int 64 mov eax, [sc.work_graph] mov [edit1.shift_color], eax mov eax, [sc.work_graph] mov [edit1.focus_border_color], eax mov eax, [sc.frames] mov [edit1.blur_border_color], eax mov eax, [sc.work_text] mov [edit1.text_color], eax ; draw.window xor eax, eax mov ebx, [window.left] shl ebx, 16 add ebx, [window.width] mov ecx, [window.top] shl ecx, 16 add ecx, [window.height] mov edx, [sc.work] or edx, 34000000h mov edi, title int 64 mov eax, [window.width] sub eax, 318 shr eax, 1 sub eax, 5 push 5;eax push 5 push sz_Type_name_of_program push dword [sc.work_text] call draw.text ; ====================| browse button |==================== push 20 mov eax, [window.width] sub eax, 36 push eax push 19 push 19 push 14 call draw.button mov eax, [window.width] sub eax, 46 push eax push 22 push sz_browse push dword [sc.work_button_text] call draw.text ; ====================| run button |==================== push 10 push 5 push 38 mov eax, [window.width] sub eax, 22 push eax push 17 call draw.button mov eax, [window.width] sub eax, 31 push edx xor edx, edx mov ebx, 2 div ebx pop edx push eax push 42 push sz_run push dword [sc.work_button_text] call draw.text ; ===================================================== mov eax, 5 push eax mov eax, [window.height] sub eax, 40 push eax push dword[runresult] push dword [sc.work_text] call draw.text push edit1 call [edit_box_draw] ; redraw.finish mov eax, 12 mov ebx, 2 int 64 ret ; ======================================================================= ; extractrunpathandparams: xor ecx, ecx mov eax, [esp + 4] mov [runpath], eax movzx eax, byte [eax] cmp eax, 34 jne .start_without_quote inc ecx ; ----------------------- ; .loop1: mov eax, [runpath] movzx eax, byte [eax + ecx] cmp eax, 34 jne .not_quote mov eax, [runpath] mov [eax + ecx], byte 0 mov eax, [runpath] add eax, ecx mov [ptrlastendpath], eax mov [lastendpath], byte 34 inc ecx ; ----------------------- ; .skip_space1: mov eax, [runpath] movzx eax, byte [eax + ecx] cmp al, 32 jne .skipped1 inc ecx jmp .skip_space1 ; ----------------------- ; .skipped1: mov eax, [runpath] add eax, ecx mov [runparams], eax inc dword [runpath] jmp .exit ; ----------------------- ; .not_quote: mov eax, [runpath] movzx eax, byte [eax + ecx] test eax, eax jne .not_zero1 mov eax, [runpath] add eax, ecx mov [runparams], eax mov eax, [runpath] add eax, ecx mov [ptrlastendpath], eax mov [lastendpath], byte 0 jmp .exit ; ----------------------- ; .not_zero1: inc ecx jmp .loop1 ; ----------------------- ; .start_without_quote: ; ----------------------- ; .loop2: mov eax, [runpath] movzx eax, byte [eax + ecx] cmp eax, 32 jne .not_space mov eax, [runpath] mov [eax + ecx], byte 0 mov eax, [runpath] add eax, ecx mov [ptrlastendpath], eax mov [lastendpath], byte 32 inc ecx ; ----------------------- ; .skip_space2: mov eax, [runpath] movzx eax, byte [eax + ecx] cmp al, 32 jne .skipped2 inc ecx jmp .skip_space2 ; ----------------------- ; .skipped2: mov eax, [runpath] add eax, ecx mov [runparams], eax jmp .exit ; ----------------------- ; .not_space: mov eax, [runpath] movzx eax, byte [eax + ecx] test eax, eax jne .not_zero2 mov eax, [runpath] add eax, ecx mov [runparams], eax mov eax, [runpath] add eax, ecx mov [ptrlastendpath], eax mov [lastendpath], byte 0 jmp .exit ; ----------------------- ; .not_zero2: inc ecx jmp .loop2 ; ----------------------- ; .exit: ret 4 ; ======================================================================= ; draw.button: mov eax, 8 mov ebx, [esp + 16] shl ebx, 16 add ebx, [esp + 8] mov ecx, [esp + 12] shl ecx, 16 add ecx, [esp + 4] mov edx, [esp + 20] mov esi, [sc.work_button] int 64 ret 20 ; ======================================================================= ; draw.text: mov eax, 4 mov ebx, [esp + 16] shl ebx, 16 add ebx, [esp + 12] mov ecx, 2147483648 or ecx, [esp + 4] mov edx, [esp + 8] int 64 ret 16 ; ======================================================================= ; load.library: mov eax, 68 mov ebx, 19 mov ecx, [esp + 4] int 64 ret 4 ; ======================================================================= ; getprocaddress: mov edx, [esp + 8] ; hlib xor eax, eax test edx, edx ; If hlib = 0 then goto .end jz .end ; ----------------------- ; .next: cmp [edx], dword 0 ; If end of export table then goto .end jz .end xor eax, eax mov esi, [edx] mov edi, [esp + 4] ; name ; ----------------------- ; .next_: lodsb scasb jne .fail or al, al jnz .next_ jmp .ok ; ----------------------- ; .fail: add edx, 8 jmp .next ; ----------------------- ; .ok: ; return address mov eax, [edx + 4] ; ----------------------- ; .end: ret 8 file_info: dd 7 dd 0 runparams: dd 0 dd 0 dd 0 db 0 runpath: dd 0 screen: .height dw 0 .width dw 0 window: .left dd 0 .top dd 0 .width dd 0 .height dd 0 box_lib dd 0 edit1: .width dd 0 .left dd 5 .top dd 19 .color dd 0ffffffffh .shift_color dd 0 .focus_border_color dd 0 .blur_border_color dd 0 .text_color dd 0x90000000 .max dd 4096 .text dd 0 .mouse_variable dd 0 .flags dd 0x4002 ; always focus .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 edit_box_draw dd 0 edit_box_key dd 0 edit_box_mouse dd 0 edit_box_set_text dd 0 sc: .frames dd 0 .grab dd 0 .grab_button dd 0 .grab_button_text dd 0 .grab_text dd 0 .work dd 0 .work_button dd 0 .work_button_text dd 0 .work_text dd 0 .work_graph dd 0 proc_lib dd 0 od: .mode dd 0 .procinfo dd 0 .com_area_name dd sz_FFFFFFFF_open_dialog .com_area dd 0 .opendir_path dd 0 .dir_default_path dd sz_SYS .start_path dd sz_opendial_path .draw_window dd on_redraw .status dd 0 .openfile_path dd 0 .filename_area dd 0 .filter_area dd filefilter .x_size dw 414 .x_start dw 0 .y_size dw 414 .y_start dw 0 opendialog_init dd 0 opendialog_start dd 0 filefilter dd 0 runresult dd sz_empty lastendpath db 0 ptrlastendpath dd 0 sz_empty db 0 sz_box_lib db "/sys/lib/box_lib.obj",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_proc_lib db "/sys/lib/proc_lib.obj",0 sz_OpenDialog_init db "OpenDialog_init",0 sz_OpenDialog_start db "OpenDialog_start",0 sz_FFFFFFFF_open_dialog db "FFFFFFFF_open_dialog",0 sz_SYS db "/sys",0 sz_opendial_path db "/sys/File managers/opendial",0 if lang eq it sz_Program_run_successfully db "Programma eseguito correttamente",0 sz_File_not_found db "File non trovato",0 sz_File_is_not_executable db "File non eseguibile",0 sz_Too_many_processes db "Troppi processi",0 sz_Access_denied db "Accesso negato",0 sz_Out_of_memory db "Out of memory",0 sz_Unknown_error db "Errore sconosciuto",0 sz_Type_name_of_program db "Digita il nome del programma per eseguirlo",0 sz_run db "Esegui ",0 sz_browse db " ...",0 title db "Esegui ",0 else if lang eq ru sz_Program_run_successfully db "Программа запущена успешно",0 sz_File_not_found db "Файл не найден",0 sz_File_is_not_executable db "Файл не является исполняемым",0 sz_Too_many_processes db "Слишком много процессов",0 sz_Access_denied db "Доступ запрещен",0 sz_Out_of_memory db "Недостаточно памяти",0 sz_Unknown_error db "Неизвестная ошибка",0 sz_Type_name_of_program db "Введите название программы",0 sz_run db "Запустить",0 sz_browse db " ...",0 title db "Запуск программы" else sz_Program_run_successfully db "Program run successfully",0 sz_File_not_found db "File not found",0 sz_File_is_not_executable db "File is not executable",0 sz_Too_many_processes db "Too many processes",0 sz_Access_denied db "Access denied",0 sz_Out_of_memory db "Out of memory",0 sz_Unknown_error db "Unknown error",0 sz_Type_name_of_program db "Type name of program, and Kolibri will run it for you",0 sz_run db " Run ",0 sz_browse db " ...",0 title db " Run ",0 end if end_: \ No newline at end of file diff --git a/programs/system/RunOD/build_en.bat b/programs/system/RunOD/build_en.bat new file mode 100644 index 0000000000..47edf6bd87 --- /dev/null +++ b/programs/system/RunOD/build_en.bat @@ -0,0 +1,5 @@ +@erase lang.inc +@echo lang fix en >lang.inc +@fasm runOD.asm run +@erase lang.inc +@pause \ No newline at end of file diff --git a/programs/system/RunOD/build_ru.bat b/programs/system/RunOD/build_ru.bat new file mode 100644 index 0000000000..9e41f0a887 --- /dev/null +++ b/programs/system/RunOD/build_ru.bat @@ -0,0 +1,5 @@ +@erase lang.inc +@echo lang fix ru >lang.inc +@fasm runOD.asm run +@erase lang.inc +@pause \ No newline at end of file diff --git a/programs/system/RunOD/makefile b/programs/system/RunOD/makefile index a2e6d7c7f3..d6a448a378 100644 --- a/programs/system/RunOD/makefile +++ b/programs/system/RunOD/makefile @@ -1,19 +1 @@ -#!gmake - -# Macro -FASM=/opt/bin/fasm -KPACK=/opt/bin/kpack -LANG=lang.inc -FILE=RunOD -SOURCE=${FILE}.asm -OUT=${FILE}.bin - -en: - echo "lang fix en" > ${LANG} - ${FASM} ${SOURCE} ${OUT} -it: - echo "lang fix it" > ${LANG} - ${FASM} ${SOURCE} ${OUT} - -clean: - rm -f ${LANG} ${OUT} +#!gmake # Macro FASM=/opt/bin/fasm KPACK=/opt/bin/kpack LANG=lang.inc FILE=RunOD SOURCE=${FILE}.asm OUT=${FILE}.bin en: echo "lang fix en" > ${LANG} ${FASM} ${SOURCE} ${OUT} ru: echo "lang fix ru" > ${LANG} ${FASM} ${SOURCE} ${OUT} it: echo "lang fix it" > ${LANG} ${FASM} ${SOURCE} ${OUT} clean: rm -f ${LANG} ${OUT} \ No newline at end of file