Subversion Repositories Kolibri OS

; Run with OpenDialog ;

; this source can be compiled ;

   ; with FASM or NASM ;

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:

        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 2

.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 " 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_: