kolibrios-gitea/programs/fs/lod/lod.asm
Kirill Lipatov (Leency) 5fa6045a2a upload LOD app (Launch any program with OpenDialog) by 0CodErr
git-svn-id: svn://kolibrios.org@6951 a494cfbc-eb01-0410-851d-a64ba20cac60
2017-09-06 11:57:03 +00:00

245 lines
7.3 KiB
NASM
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

; Программа запускает OpenDialog с указанным фильтром и после выбора файла
; запускает указанную программу, передавая в качестве параметра выбранный путь.
; Например:
; LOD *pdf,xps*/hd0/1/mupdf
; LOD *mp3*/hd0/1/minimp3
; LOD *asm,inc,mac*/sys/tinypad
; Author 0CodErr
; http://board.kolibrios.org/viewtopic.php?f=9&t=2486
ORG 0
BITS 32
; ---------------------------------------------------------------------------- ;
PARAMS_SIZE equ 256
STACK_SIZE equ 256
; ---------------------------------------------------------------------------- ;
PROCINFO_SIZE equ 1024
FILENAME_AREA_SIZE equ 256
OPENDIR_PATH_SIZE equ 4096
OPENFILE_PATH_SIZE equ 4096
FILTER_AREA_SIZE equ 256
FILTER_BRACKET equ "*" ; and for example: LOD *bmp,png,jpeg*/sys/media/kiv
; ---------------------------------------------------------------------------- ;
MENUET01 db 'MENUET01'
version dd 1
program.start dd START
program.end dd END
program.memory dd END + PARAMS_SIZE + STACK_SIZE
program.stack dd END + PARAMS_SIZE + STACK_SIZE
program.params dd END
program.path dd 0
; ---------------------------------------------------------------------------- ;
START:
mov edi,[program.params]
cmp [edi],dword 0
je terminate
call FakeDrawWindow
call OpenDialogInit
call OpenDialogSetFilter
call OpenDialogOpen
cmp [od.status], dword 0
je terminate
mov [file_info.params], eax
launch_program:
mov eax, 70
mov ebx, file_info
int 64
terminate:
or eax, -1
int 64
; ---------------------------------------------------------------------------- ;
OpenDialogInit:
; load.library
mov eax, 68
mov ebx, 19
mov ecx, sz_proc_lib
int 64
mov [proclib], eax
push dword[proclib]
push sz_OpenDialog_init
call GetProcAddress
mov [opendialog_init], eax
push dword[proclib]
push sz_OpenDialog_start
call GetProcAddress
mov [opendialog_start], eax
; memory.allocate
mov eax, 68
mov ebx, 12
mov ecx, PROCINFO_SIZE + FILENAME_AREA_SIZE + OPENDIR_PATH_SIZE + OPENFILE_PATH_SIZE
int 64
mov [od.procinfo], eax
add eax, PROCINFO_SIZE
mov [od.filename_area], eax
add eax, FILENAME_AREA_SIZE
mov [od.opendir_path], eax
add eax, OPENDIR_PATH_SIZE
mov [od.openfile_path], eax
push od
call [opendialog_init]
ret
; ---------------------------------------------------------------------------- ;
OpenDialogOpen:
mov eax, [od.openfile_path]
mov [eax], byte 0
push od
call [opendialog_start]
mov eax, [od.openfile_path]
ret
; ---------------------------------------------------------------------------- ;
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
or al, al
jnz .next_
jmp .ok
.fail:
add edx, 8
jmp .next
.ok:
mov eax, [edx + 4]
.end:
ret 8
; ---------------------------------------------------------------------------- ;
FakeDrawWindow:
; redraw.start
mov eax, 12
mov ebx, 1
int 64
; get.screen.size
mov eax, 61
mov ebx, 1
int 64
shr eax, 1
and eax, 0x7FFF7FFF
; draw.window
movzx ecx, ax
shl ecx, 16
shr eax, 16
movzx ebx, ax
shl ebx, 16
mov edx, 0x01000000
xor eax, eax
int 64
; redraw.finish
mov eax, 12
mov ebx, 2
int 64
ret
; ---------------------------------------------------------------------------- ;
OpenDialogSetFilter:
mov edi, [program.params]
mov esi, filefilter + 4
; skip spaces
or ecx, -1
mov al, " "
repe scasb
dec edi
cmp [edi], byte FILTER_BRACKET
xchg esi, edi
jne .no_filter
inc esi
mov ecx, FILTER_AREA_SIZE
; copy filter string to filter area
; and replace commas with zeroes
.next:
lodsb
test al, al
jnz .bracket?
stosb
jmp .done
.bracket?:
cmp al, FILTER_BRACKET
jne .comma?
xor al, al
stosb
jmp .done
.comma?:
cmp al, ","
jne .not_comma
xor al, al
.not_comma:
stosb
loop .next
.done:
sub edi, filefilter
mov [filefilter], edi
.no_filter:
mov edi, esi
; skip spaces
or ecx, -1
mov al, " "
repe scasb
dec edi
mov [file_info.file_path], edi
ret 4
; ---------------------------------------------------------------------------- ;
LaunchProgram:
mov eax, [od.openfile_path]
mov [file_info.params], eax
mov eax, 70
mov ebx, file_info
int 64
ret
; ---------------------------------------------------------------------------- ;
file_info:
dd 7
dd 0
.params dd 0
dd 0
dd 0
db 0
.file_path dd 0
; ---------------------------------------------------------------------------- ;
filefilter dd 0
resb FILTER_AREA_SIZE
.end db 0
; ---------------------------------------------------------------------------- ;
od:
.mode dd 0
.procinfo dd 0
.com_area_name dd sz_com_area_name
.com_area dd 0
.opendir_path dd 0
.dir_default_path dd sz_dir_default_path
.start_path dd sz_start_path
.draw_window dd FakeDrawWindow
.status dd 0
.openfile_path dd 0
.filename_area dd 0
.filter_area dd filefilter
.x_size dw 444
.x_start dw 0
.y_size dw 444
.y_start dw 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_com_area_name db "FFFFFFFF_open_dialog",0
sz_dir_default_path db "/sys",0
sz_start_path db "/sys/File managers/opendial",0
; ---------------------------------------------------------------------------- ;
proclib dd 0
opendialog_init dd 0
opendialog_start dd 0
; ---------------------------------------------------------------------------- ;
END: