forked from KolibriOS/kolibrios
917 lines
19 KiB
NASM
917 lines
19 KiB
NASM
;unz - à ᯠª®¢é¨ª, ¨á¯®«ì§ãî騩 archiver.obj. <20>®¤¤¥à¦¨¢ ¥â zip ¨ 7z.
|
||
|
||
;unz [-o output path] [-f file for unpack] [-f ...] [-h] file.zip
|
||
;-h - hide GUI. If params is empty - do exit.
|
||
|
||
;unz -o /hd0/1/arci -f text1.txt file.zip -unpack in folder only file text1.txt
|
||
;or
|
||
;unz -o "/hd0/1/arci" -f "text1.txt" text2.txt "file.zip" -unpack in folder only file text1.txt and text2.txt
|
||
|
||
|
||
;<3B>… <20>…€‹ˆ‡Ž‚€<E2809A><E282AC>Ž
|
||
;unz -n "namezone" "file.zip" - open packed file, write list files of main folder in namezone
|
||
;namezone:
|
||
;dd 0 - ¥á«¨ ¨¬¥®¢ ï §® § ïâ , â® 1
|
||
;dd cmd - 0 ¥â ª®¬ ¤ë
|
||
; 1 ¯®«ãç¨âì ᯨ᮪ ä ©«®¢
|
||
; 2 ¯®«ãç¨âì ä ©«
|
||
; 3 ãáâ ®¢¨âì ⥪ã訩 ª â «®£ ¢ à娢¥
|
||
; 4 § ¢¥àè¨âì à ¡®âã
|
||
;data - ¤ ë¥, § ¢¨á¨â ®â ª®¬¬ ¤ë
|
||
; 1 ¯®«ãç¨âì ᯨ᮪ ä ©«®¢
|
||
; input
|
||
; none
|
||
; output
|
||
; dd numfiles - ª®«¨ç¥á⢮ ä ©«®¢ ¨ ¯ ¯®ª ¢ ⥪ã饬 ª â «®£¥
|
||
; strz file1...fileN - ᯨ᮪ áâப, à §¤¥«ñëå 0
|
||
; 2 ¯®«ãç¨âì ä ©«
|
||
; input
|
||
; dd num bytes
|
||
; strz filename (file1.txt of /fold1/file1.txt)
|
||
; output
|
||
; dd num bytes
|
||
; data
|
||
|
||
use32
|
||
org 0
|
||
db 'MENUET01'
|
||
dd 1, start, init_end, end_mem, stack_top, params, 0
|
||
|
||
|
||
include 'lang.inc'
|
||
include '../../macros.inc'
|
||
include '../../proc32.inc'
|
||
include '../../develop/libraries/box_lib/trunk/box_lib.mac'
|
||
include '../../dll.inc'
|
||
;include '../../debug.inc'
|
||
include 'debug.inc'
|
||
|
||
version equ '0.70'
|
||
version_dword equ 0*10000h + 70
|
||
|
||
WIN_W = 400
|
||
SIZE_COPY_BUF = 1024*1024*2
|
||
MM_MAX_BLOCKS equ 1024
|
||
|
||
|
||
virtual at 0
|
||
kfar_info_struc:
|
||
.lStructSize dd ?
|
||
.kfar_ver dd ?
|
||
.open dd ?
|
||
.open2 dd ?
|
||
.read dd ?
|
||
.write dd ?
|
||
.seek dd ?
|
||
.tell dd ?
|
||
.flush dd ?
|
||
.filesize dd ?
|
||
.close dd ?
|
||
.pgalloc dd ?
|
||
.pgrealloc dd ?
|
||
.pgfree dd ?
|
||
.getfreemem dd ?
|
||
.pgalloc2 dd ?
|
||
.pgrealloc2 dd ?
|
||
.pgfree2 dd ?
|
||
.menu dd ?
|
||
.menu_centered_in dd ?
|
||
.DialogBox dd ?
|
||
.SayErr dd ?
|
||
.Message dd ?
|
||
.cur_console_size dd ?
|
||
end virtual
|
||
|
||
|
||
|
||
;-- CODE -------------------------------------------------------------------
|
||
|
||
include 'parse.inc'
|
||
include 'fs.inc'
|
||
include 'file_tree.inc'
|
||
include 'memory_manager.inc'
|
||
include 'dialogs.inc'
|
||
|
||
|
||
start:
|
||
;dnl
|
||
;dpsP params
|
||
;dnl
|
||
mcall 68, 11
|
||
mcall 40, 100111b + 0C0000000h
|
||
stdcall dll.Load, IMPORTS
|
||
test eax, eax
|
||
jnz exit
|
||
mov [pathOut],0
|
||
|
||
;----------------------------
|
||
;1. find input file, clear
|
||
;2. find -o, copy data, clear
|
||
;3. find -f, add pointer, copy data, clear
|
||
;4. find -c, check variable, clear
|
||
;1.
|
||
call getLastParam
|
||
test eax, eax
|
||
je wm_redraw
|
||
dec eax
|
||
je .arbeit
|
||
jmp errorParsing
|
||
|
||
.arbeit:
|
||
;2.
|
||
call getParamOutPath
|
||
cmp eax, 2
|
||
je errorParsing
|
||
|
||
;3.
|
||
|
||
@@:
|
||
mov eax, [iFiles]
|
||
shl eax, 2
|
||
add eax, files
|
||
m2m dword[eax], dword[endPointer]
|
||
stdcall getParam, '-f'
|
||
cmp eax, 2
|
||
je errorParsing
|
||
inc [iFiles]
|
||
cmp eax, 1
|
||
je @b
|
||
|
||
;4.
|
||
mov edi, params
|
||
mov ax,'-h'
|
||
@@: cmp word [edi], ax
|
||
je .check
|
||
inc edi
|
||
cmp edi, params+1024
|
||
je @f
|
||
cmp byte[edi],0
|
||
je @f
|
||
jmp @b
|
||
.check:
|
||
call startUnpack
|
||
mcall -1
|
||
@@:
|
||
|
||
stdcall [OpenDialog_Init],OpenDialog_data
|
||
|
||
;init edit fields --------------
|
||
xor al,al
|
||
mov edi,fInp
|
||
mov ecx,1024
|
||
repne scasb
|
||
inc ecx
|
||
mov eax,1024
|
||
sub eax,ecx
|
||
mov dword[edtPack.size],eax
|
||
mov dword[edtPack.pos],eax
|
||
|
||
xor al, al
|
||
mov edi, pathOut
|
||
mov ecx, 1024
|
||
repne scasb
|
||
inc ecx
|
||
mov eax, 1024
|
||
sub eax, ecx
|
||
mov dword[edtUnpPath.size], eax
|
||
mov dword[edtUnpPath.pos], eax
|
||
|
||
;main loop --------------------
|
||
wm_redraw:
|
||
call winRedraw
|
||
|
||
still:
|
||
mcall 10
|
||
cmp eax, 1
|
||
je wm_redraw
|
||
cmp eax, 2
|
||
je wm_key
|
||
cmp eax, 3
|
||
je wm_button
|
||
cmp eax, 6
|
||
je wm_mouse
|
||
|
||
jmp still
|
||
|
||
wm_key:
|
||
mcall 2
|
||
cmp [bWinChild],0
|
||
jne still
|
||
|
||
stdcall [edit_box_key],edtPack
|
||
stdcall [edit_box_key],edtUnpPath
|
||
|
||
jmp still
|
||
|
||
|
||
wm_button:
|
||
mcall 17
|
||
cmp [bWinChild],0
|
||
jne still
|
||
|
||
cmp ah, 3
|
||
jne @f
|
||
call selectInput
|
||
jmp wm_redraw
|
||
@@:
|
||
cmp ah, 4
|
||
jne @f
|
||
call selectOutFold
|
||
jmp wm_redraw
|
||
@@:
|
||
|
||
cmp ah, 2
|
||
jne @f
|
||
mcall 51,1,startUnpack,stackUnpack
|
||
mov [bWinChild],1
|
||
;call startUnpack
|
||
jmp wm_redraw
|
||
@@:
|
||
|
||
cmp ah, 1
|
||
je exit
|
||
jmp still
|
||
|
||
wm_mouse:
|
||
cmp [bWinChild],0
|
||
jne still
|
||
stdcall [edit_box_mouse],edtPack
|
||
stdcall [edit_box_mouse],edtUnpPath
|
||
jmp still
|
||
|
||
exit:
|
||
mcall -1
|
||
|
||
errorParsing:
|
||
dph edx
|
||
|
||
dps ' errorParsing'
|
||
mcall -1
|
||
|
||
;--- functions ------------------------------------------------------------------
|
||
|
||
proc winRedraw
|
||
mcall 12, 1
|
||
mcall 48, 3, sc, sizeof.system_colors
|
||
mov edx, [sc.work]
|
||
or edx, 0x34000000
|
||
mcall 0, <200,WIN_W>, <200,130>, , , title
|
||
mcall 8, <100,100>,<65,25>,2,[sc.work_button]
|
||
mcall 8, <(WIN_W-52),33>,<10,20>,3,[sc.work_button]
|
||
mcall 8, <(WIN_W-52),33>,<35,20>,4,[sc.work_button]
|
||
|
||
edit_boxes_set_sys_color edtPack,endEdits,sc
|
||
stdcall [edit_box_draw],edtPack
|
||
stdcall [edit_box_draw],edtUnpPath
|
||
|
||
|
||
cmp [redInput],0
|
||
jne @f
|
||
mov ecx,[sc.work_text]
|
||
or ecx,90000000h
|
||
jmp .l1
|
||
@@:
|
||
mov ecx,90FF0000h
|
||
.l1:
|
||
mcall 4, <15,16>, , strInp
|
||
mov ecx,[sc.work_text]
|
||
or ecx,90000000h
|
||
mcall 4, <15,37>, , strPath
|
||
mov ecx,[sc.work_button_text]
|
||
or ecx,90000000h
|
||
if lang eq ru
|
||
mcall 4, <107,70>, , strGo
|
||
else
|
||
mcall 4, <127,70>, , strGo
|
||
end if
|
||
mcall 4, <(WIN_W-47),12>, , strDots
|
||
mcall 4, <(WIN_W-47),37>, , strDots
|
||
|
||
mcall 12, 2
|
||
ret
|
||
endp
|
||
|
||
;region
|
||
selectInput:
|
||
mov [OpenDialog_data.type],0
|
||
stdcall [OpenDialog_Start],OpenDialog_data
|
||
mov edi,ODAreaPath
|
||
xor al,al
|
||
or ecx,-1
|
||
repne scasb
|
||
sub edi,ODAreaPath
|
||
dec edi
|
||
mov dword[edtPack+12*4],edi
|
||
mov ecx,edi
|
||
inc ecx
|
||
mov edi,fInp
|
||
mov esi,ODAreaPath
|
||
rep movsb
|
||
mov [redInput],0
|
||
ret
|
||
;endregion
|
||
|
||
;region
|
||
selectOutFold:
|
||
mov [OpenDialog_data.type],2
|
||
stdcall [OpenDialog_Start],OpenDialog_data
|
||
mov edi,ODAreaPath
|
||
xor al,al
|
||
or ecx,-1
|
||
repne scasb
|
||
sub edi,ODAreaPath
|
||
dec edi
|
||
mov dword[edtUnpPath+12*4],edi
|
||
mov ecx,edi
|
||
inc ecx
|
||
mov edi,pathOut
|
||
mov esi,ODAreaPath
|
||
rep movsb
|
||
ret
|
||
;endregion
|
||
|
||
|
||
;-------------------------------------------------------------------------------
|
||
|
||
allfiles dd 0
|
||
succfiles dd 0
|
||
numbytes dd 0
|
||
|
||
proc startUnpack
|
||
locals
|
||
paramUnp rd 1
|
||
sizeUnpack rd 1
|
||
hFile rd 1
|
||
hFileZip rd 1
|
||
hPlugin rd 1
|
||
pathFold rb 256
|
||
endl
|
||
;if input not corrected
|
||
cmp [fInp],byte 0
|
||
je .errNullInp
|
||
|
||
; mcall 68, 24, Exception, 0FFFFFFFFh ;??
|
||
;init plugin
|
||
push ebp
|
||
stdcall [aPluginLoad],kfar_info
|
||
pop ebp
|
||
|
||
|
||
;set current directory, create folder
|
||
cmp [pathOut],0
|
||
jne @f
|
||
lea eax,[pathFold]
|
||
stdcall cpLastName, fInp, eax
|
||
lea eax,[pathFold]
|
||
mov [fsNewDir.path],eax
|
||
mcall 70, fsNewDir
|
||
mov ecx, [fsNewDir.path]
|
||
|
||
mcall 30,4,,1
|
||
jmp .n
|
||
@@:
|
||
mcall 30,4,pathOut,1
|
||
.n:
|
||
|
||
;open and read first 1KB
|
||
stdcall open, fInp, O_READ
|
||
mov [hFileZip], eax
|
||
mcall 70,fsZip
|
||
test eax,eax
|
||
jnz .errNotFound
|
||
mcall 70,fsZipRead
|
||
|
||
|
||
;open pack
|
||
push ebp
|
||
stdcall [aOpenFilePlugin],[hFileZip],bdvkPack,filedata_buffer,filedata_buffer_size ,0 ,0 , fInp
|
||
pop ebp
|
||
|
||
test eax,eax
|
||
jnz @f
|
||
cmp ebx,0 ;;/ ŠŽ‘’›‹œ!!!!
|
||
je .errNotFound ;;§ 票¥ ebx ¯®«ã祮 ®¯ëâë¬ ¯ãâñ¬.
|
||
cmp ebx,400h
|
||
je .errNotSupp
|
||
@@:
|
||
mov [hPlugin],eax
|
||
|
||
;get num of all files
|
||
; stdcall calcSizeArch,[hPlugin]
|
||
push ebp
|
||
stdcall [aSetFolder],[hPlugin], .strRoot,0
|
||
pop ebp
|
||
;unpack
|
||
; void __stdcall GetFiles(HANDLE hPlugin, int NumItems, void* items[], void* addfile, void* adddir);
|
||
push ebp
|
||
stdcall [aGetFiles], [hPlugin], -1, 0, myAddFile, myAddDir
|
||
pop ebp
|
||
|
||
jmp @f
|
||
.str1 db '/LICENSE.txt',0
|
||
.strRoot db '.svn',0
|
||
@@:
|
||
|
||
;HANDLE __stdcall open(HANDLE hPlugin, const char* filename, int mode);
|
||
;Žâªàëâì ä ©« filename. <20> à ¬¥âà mode § १¥à¢¨à®¢ ¨ ¢ ⥪ã饩 ¢¥àᨨ kfar ¢á¥£¤ à ¢¥ 1.
|
||
; push ebp
|
||
; stdcall [aOpen], [hPlugin], .str1, O_READ
|
||
; pop ebp
|
||
|
||
; mov [hFile],eax
|
||
;unsigned __stdcall read(HANDLE hFile, void* buf, unsigned size);
|
||
;—⥨¥ size ¡ ©â ¢ ¡ãä¥à buf ¨§ ä ©« hFile, à ¥¥ ®âªàë⮣® ç¥à¥§ open.
|
||
;size ªà ⥠512 ¡ ©â
|
||
;‚®§¢à é ¥¬®¥ § 票¥: ç¨á«® ¯à®ç¨â ëå ¡ ©â, -1 ¯à¨ ®è¨¡ª¥.
|
||
; push ebp
|
||
; stdcall [aRead], [hFile], copy_buf, SIZE_COPY_BUF
|
||
; pop ebp
|
||
;
|
||
; mcall 70, fsWrite
|
||
;void __stdcall close(HANDLE hFile);
|
||
push ebp
|
||
stdcall [aClose], [hFile]
|
||
mov [bWinChild],0
|
||
pop ebp
|
||
|
||
push ebp
|
||
stdcall [aClosePlugin], [hPlugin]
|
||
mov [bWinChild],0
|
||
|
||
mov [fsRunNotifyOK.param],strUnpackOk
|
||
mcall 70,fsRunNotifyOK
|
||
pop ebp
|
||
ret ;SUCCESS
|
||
|
||
|
||
.errNotFound:
|
||
; stdcall SimpleSayErr,strNotFound
|
||
mov [bWinChild],0
|
||
mov [fsRunNotifyOK.param],strUnpackFault
|
||
mcall 70,fsRunNotifyOK
|
||
ret
|
||
|
||
.errNotSupp:
|
||
mov eax,[fsNewDir.path]
|
||
mov [fsDelDir.path],eax
|
||
mcall 70, fsDelDir
|
||
|
||
mov [bWinChild],0
|
||
mov [fsRunNotifyOK.param],strUnpackFault
|
||
mcall 70,fsRunNotifyOK
|
||
ret
|
||
|
||
.errNullInp:
|
||
mov [redInput],1
|
||
mov [bWinChild],0
|
||
ret
|
||
endp
|
||
|
||
|
||
proc Exception param1:dword
|
||
stdcall SimpleSayErr,strErrorExc
|
||
ret
|
||
endp
|
||
|
||
proc debugInt3
|
||
dps '<27> ¨ª !!!!!!!!!!!!!!!!!!!!!!!!!'
|
||
dnl
|
||
int3
|
||
ret
|
||
endp
|
||
|
||
|
||
allnumbytes dd 0
|
||
strBackFold db '../',0
|
||
|
||
proc calcSizeArch hPlugin:dword
|
||
locals
|
||
bdwk rb 560
|
||
num rd 1
|
||
endl
|
||
;int __stdcall ReadFolder(HANDLE hPlugin, unsigned dirinfo_start,
|
||
; unsigned dirinfo_size, void* dirdata);
|
||
mov [num],0
|
||
; int3
|
||
.mainloop:
|
||
push ebp
|
||
lea eax, [bdwk]
|
||
stdcall [aReadFolder], [hPlugin],[num],1,eax
|
||
pop ebp
|
||
|
||
cmp eax,6
|
||
je .lastFile
|
||
;??????????????????????????????????????????????????????????????????????????????????????????????????
|
||
lea ebx,[bdwk+0x20] ;¯®ç¥¬ã «¨¡ ¯¨è¥â ¢ ᬥ饨¥ +0x20 - ¥¨§¥áâ®
|
||
test [ebx],dword 10h
|
||
jz @f
|
||
;bool __stdcall SetFolder(HANDLE hPlugin, const char* relative_path,
|
||
; const char* absolute_path);
|
||
|
||
push ebp
|
||
lea eax,[ebx+40]
|
||
dps 'Folder: '
|
||
dpsP eax
|
||
dnl
|
||
stdcall [aSetFolder],[hPlugin], eax,0
|
||
|
||
pop ebp
|
||
stdcall calcSizeArch, [hPlugin]
|
||
inc [num]
|
||
jmp .mainloop
|
||
@@:
|
||
|
||
lea ebx,[bdwk+0x20]
|
||
lea eax,[ebx+40]
|
||
dps 'File: '
|
||
dpsP eax
|
||
dnl
|
||
mov eax,[ebx+32]
|
||
add [allnumbytes],eax
|
||
inc [num]
|
||
jmp .mainloop
|
||
|
||
.lastFile:
|
||
; lea ebx,[bdwk+0x20]
|
||
; test [ebx],dword 10h
|
||
; jz @f
|
||
;
|
||
; push ebp
|
||
; lea eax,[ebx+40]
|
||
; stdcall [aSetFolder],[hPlugin], eax,0
|
||
; pop ebp
|
||
; stdcall calcSizeArch, [hPlugin]
|
||
; @@:
|
||
|
||
|
||
push ebp
|
||
stdcall [aSetFolder],[hPlugin], strBackFold,0
|
||
pop ebp
|
||
ret
|
||
endp
|
||
|
||
|
||
proc rec_calcSize hPlugin:dword
|
||
locals
|
||
bdwk rb 560
|
||
endl
|
||
;int __stdcall ReadFolder(HANDLE hPlugin, unsigned dirinfo_start,
|
||
; unsigned dirinfo_size, void* dirdata);
|
||
;bool __stdcall SetFolder(HANDLE hPlugin, const char* relative_path, const char* absolute_path);
|
||
push ebp
|
||
lea eax,[bdwk]
|
||
stdcall [aReadFolder], [hPlugin],1,560,eax
|
||
pop ebp
|
||
|
||
ret
|
||
endp
|
||
;-------------------------------------------------------------------------------
|
||
;-------------------------------------------------------------------------------
|
||
;-------------------------------------------------------------------------------
|
||
|
||
hTrPlugin dd 0
|
||
|
||
;eax - file struct for sys70
|
||
|
||
proc rdFoldforTree
|
||
locals
|
||
fi rd 0
|
||
endl
|
||
cmp [hTrPlugin],0
|
||
je .exit
|
||
push ebx edi esi
|
||
|
||
mov [fi],eax
|
||
push ebp
|
||
stdcall [aSetFolder],[hTrPlugin], [eax+20],0
|
||
mov ebp,[esp]
|
||
;hPlug,startBlock,numBlocks,buffer
|
||
stdcall [aReadFolder], [hTrPlugin],dword[eax+4],\
|
||
dword[eax+12],dword[eax+16]
|
||
pop ebp
|
||
|
||
;cmp eax,6
|
||
;je .lastFile
|
||
|
||
;lea ebx,[bdwk+0x20] ;¯®ç¥¬ã «¨¡ ¯¨è¥â ¢ ᬥ饨¥ +0x20 - ¥¨§¥áâ®
|
||
|
||
pop esi edi ebx
|
||
.exit:
|
||
ret
|
||
endp
|
||
|
||
;-- DATA -------------------------------------------------------------------
|
||
|
||
|
||
|
||
sc system_colors
|
||
|
||
|
||
bWinChild db 0 ;1 - ¤®ç¥à¥¥ ®ª® ¥áâì, £« ¢®¥ ®ª® ¥ ¤®«¦® ॠ£¨à®¢ âì
|
||
redInput db 0 ;1 - ¯®¤á¢¥â¨âì ªà áë¬ ¤¯¨áì
|
||
|
||
if lang eq ru
|
||
title db 'uNZ v0.2 - <20> ᯠª®¢é¨ª Zip ¨ 7z',0
|
||
strGo db '<27> ᯠª®¢ âì',0
|
||
strInp db ' €à娢',0
|
||
strPath db 'ˆ§¢«¥çì ¢',0
|
||
strError db 'Žè¨¡ª ',0
|
||
strErrorExc db '<27>¥®¯®§ ï ®è¨¡ª ',0
|
||
strOk db 'OK',0
|
||
strGetPass db '<27> ஫ì',0
|
||
strCancel db 'Žâ¬¥ ',0
|
||
strUnpackOk db "'“á¯¥è® à ᯠª®¢ ®' -O",0
|
||
strUnpackFault db "'Žè¨¡ª à ᯠª®¢ª¨' -E",0
|
||
strNotSupport db "'<27>¥¯®¤¤¥à¦¨¢ ¥¬ë© ä®à¬ â à娢 ' -E",0
|
||
strNotFound db "'” ©« ¥ ©¤¥' -E",0
|
||
else if lang eq es
|
||
title db 'uNZ v0.2 - Desarchivador para Zip y 7z',0
|
||
strGo db 'Desarchivar',0
|
||
strInp db 'Archivar',0
|
||
strPath db 'Extraer en',0
|
||
strError db 'Error',0
|
||
strErrorExc db 'Error desconocido',0
|
||
strOk db 'OK',0
|
||
strGetPass db 'Contrasena',0
|
||
strCancel db 'Cancelar',0
|
||
strUnpackOk db "'Extracion exitosa' -O",0
|
||
strUnpackFault db "'Fallo al extraer' -E",0
|
||
strNotSupport db "'El formato del archivo no es soportado' -E",0
|
||
strNotFound db "'Archivo no encontrado' -E",0
|
||
else
|
||
title db 'uNZ v0.2 - Unarchiver of Zip and 7z',0
|
||
strGo db 'Unpack',0
|
||
strInp db 'Archive',0
|
||
strPath db 'Extract to',0
|
||
strError db 'Error',0
|
||
strErrorExc db 'Unrecognized error',0
|
||
strOk db 'OK',0
|
||
strGetPass db 'Password',0
|
||
strCancel db 'Cancel',0
|
||
strUnpackOk db "'Unpacked successfuly' -O",0
|
||
strUnpackFault db "'Unprack failed' -E",0
|
||
strNotSupport db "'Archive format is not supported' -E",0
|
||
strNotFound db "'File not found' -E",0
|
||
end if
|
||
|
||
|
||
|
||
strDots db '...', 0
|
||
|
||
;--------
|
||
; int __stdcall SayErr(int num_strings, const char* strings[],
|
||
; int num_buttons, const char* buttons[]);
|
||
; int __stdcall DialogBox(DLGDATA* dlg);
|
||
|
||
forpassword rd 1
|
||
stateDlg dd 0 ;0 - in process, 1 - button ok, 2 - button cancel
|
||
errmess0 dd strErrorExc
|
||
|
||
|
||
kfar_info:
|
||
dd .size
|
||
dd version_dword
|
||
dd open
|
||
dd open2
|
||
dd read
|
||
dd -1 ; write: to be implemented
|
||
dd seek
|
||
dd tell
|
||
dd -1 ; flush: to be implemented
|
||
dd filesize
|
||
dd close
|
||
dd xpgalloc
|
||
dd xpgrealloc
|
||
dd pgfree
|
||
dd getfreemem
|
||
dd debugInt3;libini_alloc
|
||
dd debugInt3;libini_realloc
|
||
dd debugInt3;libini_free
|
||
dd debugInt3;menu
|
||
dd debugInt3;menu_centered_in
|
||
dd DialogBox;DialogBox
|
||
dd SayErr ;SayErr
|
||
dd debugInt3;Message
|
||
dd 0 ;cur_width
|
||
.size = $ - kfar_info
|
||
;--------
|
||
|
||
|
||
iFiles dd 0 ;ª®«¨ç¥á⢮ à ᯠª®¢ë¢ ¥¬ëå ä ©«®¢
|
||
endPointer dd buffer
|
||
|
||
|
||
fsZip:
|
||
.cmd dd 5
|
||
dd 0
|
||
dd 0
|
||
.size dd 0
|
||
.buf dd bdvkPack
|
||
db 0
|
||
dd fInp
|
||
|
||
fsZipRead:
|
||
.cmd dd 0
|
||
dd 0
|
||
dd 0
|
||
.size dd 1024
|
||
.buf dd filedata_buffer
|
||
db 0
|
||
dd fInp
|
||
|
||
|
||
fsWrite:
|
||
.cmd dd 2 ;2 rewrite, 3 - write
|
||
.pos dd 0
|
||
.hpos dd 0
|
||
.size dd SIZE_COPY_BUF
|
||
.buf dd copy_buf
|
||
db 0
|
||
.path dd 0
|
||
|
||
|
||
fsNewDir:
|
||
.cmd dd 9
|
||
dd 0
|
||
dd 0
|
||
dd 0
|
||
dd 0
|
||
db 0
|
||
.path dd 0
|
||
|
||
fsDelDir:
|
||
.cmd dd 8
|
||
dd 0
|
||
dd 0
|
||
dd 0
|
||
dd 0
|
||
db 0
|
||
.path dd 0
|
||
|
||
|
||
|
||
fsRunNotifyOK:
|
||
.cmd dd 7
|
||
dd 0
|
||
.param dd strUnpackOk
|
||
.size dd 0
|
||
.buf dd 0
|
||
db '/sys/@notify',0
|
||
|
||
|
||
|
||
edtPack edit_box (WIN_W-100-60),100,10,0FFFFFFh,0xff,0x80ff,0h,0x90000000,\
|
||
1024, fInp, 0,0,0,0
|
||
edtUnpPath edit_box (WIN_W-100-60),100,35,0FFFFFFh,0xff,0x80ff,0h,0x90000000,\
|
||
1024, pathOut, 0,0,0,0
|
||
edtPassword edit_box 200, 56, 40, 0FFFFFFh,0xff,0x80ff,0h,0x90000000,\
|
||
255, password, 0, ed_focus+ed_always_focus ;+ed_pass
|
||
|
||
endEdits:
|
||
|
||
|
||
|
||
;-------------------------------------------------------------------------------
|
||
OpenDialog_data:
|
||
.type dd 0 ;0-open, 1-save, 2-select folder
|
||
.procinfo dd RBProcInfo ;+4
|
||
.com_area_name dd communication_area_name ;+8
|
||
.com_area dd 0 ;+12
|
||
.opendir_pach dd temp_dir_pach ;+16
|
||
.dir_default_pach dd communication_area_default_pach ;+20
|
||
.start_path dd open_dialog_path ;+24
|
||
.draw_window dd winRedraw ;+28
|
||
.status dd 0 ;+32
|
||
.openfile_pach dd ODAreaPath; ;+36
|
||
.filename_area dd 0; ;+40
|
||
.filter_area dd Filter
|
||
.x:
|
||
.x_size dw 420 ;+48 ; Window X size
|
||
.x_start dw 100 ;+50 ; Window X position
|
||
.y:
|
||
.y_size dw 320 ;+52 ; Window y size
|
||
.y_start dw 100 ;+54 ; Window Y position
|
||
|
||
communication_area_name:
|
||
db 'FFFFFFFF_open_dialog',0
|
||
open_dialog_path:
|
||
db '/sys/File managers/opendial',0
|
||
|
||
communication_area_default_pach:
|
||
db '/sys',0
|
||
|
||
Filter dd 0
|
||
|
||
|
||
; int __stdcall ReadFolder(HANDLE hPlugin,
|
||
; unsigned dirinfo_start, unsigned dirinfo_size, void* dirdata);
|
||
; void __stdcall ClosePlugin(HANDLE hPlugin);
|
||
; bool __stdcall SetFolder(HANDLE hPlugin,
|
||
; const char* relative_path, const char* absolute_path);
|
||
; void __stdcall GetOpenPluginInfo(HANDLE hPlugin, OpenPluginInfo* info);
|
||
; void __stdcall GetFiles(HANDLE hPlugin, int NumItems, void* items[],
|
||
; void* addfile, void* adddir);
|
||
; bool __stdcall addfile(const char* name, void* bdfe_info, HANDLE hFile);
|
||
; bool __stdcall adddir(const char* name, void* bdfe_info);
|
||
; int __stdcall getattr(HANDLE hPlugin, const char* filename, void* info);
|
||
; HANDLE __stdcall open(HANDLE hPlugin, const char* filename, int mode);
|
||
; void __stdcall setpos(HANDLE hFile, __int64 pos);
|
||
; unsigned __stdcall read(HANDLE hFile, void* buf, unsigned size);
|
||
; void __stdcall close(HANDLE hFile);
|
||
IMPORTS:
|
||
library archiver, 'archiver.obj',\
|
||
box_lib ,'box_lib.obj',\
|
||
proc_lib,'proc_lib.obj'
|
||
|
||
import archiver,\
|
||
aPluginLoad , 'plugin_load',\
|
||
aOpenFilePlugin , 'OpenFilePlugin',\
|
||
aClosePlugin , 'ClosePlugin',\
|
||
aReadFolder , 'ReadFolder',\
|
||
aSetFolder , 'SetFolder',\
|
||
aGetFiles , 'GetFiles',\
|
||
aGetOpenPluginInfo , 'GetOpenPluginInfo',\
|
||
aGetattr , 'getattr',\
|
||
aOpen , 'open',\
|
||
aRead , 'read',\
|
||
aSetpos , 'setpos',\
|
||
aClose , 'close',\
|
||
aDeflateUnpack , 'deflate_unpack',\
|
||
aDeflateUnpack2 , 'deflate_unpack2'
|
||
|
||
import proc_lib,\
|
||
OpenDialog_Init ,'OpenDialog_init',\
|
||
OpenDialog_Start ,'OpenDialog_start'
|
||
import box_lib,\
|
||
edit_box_draw ,'edit_box',\
|
||
edit_box_key ,'edit_box_key',\
|
||
edit_box_mouse ,'edit_box_mouse'
|
||
|
||
|
||
IncludeIGlobals
|
||
|
||
params1 db '-o "/hd0/1/unz/pig" -h "/hd0/1/unz/abc1"',0
|
||
;-- UDATA -----------------------------------------------------------------------------
|
||
init_end:
|
||
align 16
|
||
IncludeUGlobals
|
||
|
||
path rb 512
|
||
|
||
;params db 'unz -o "fil epar1" -f "arch1.txt" -f "ar ch2.txt" file1',0
|
||
;params db 'unz -o "fil epar1" -f arch1.txt -f "ar ch2.txt" file1',0
|
||
|
||
fInp rb 1024
|
||
pathOut rb 1024 ;¯ãâì, ªã¤ à ᯠªã¥âáï ¢áñ
|
||
files rd 256
|
||
password rb 256
|
||
|
||
fZipInfo rb 40
|
||
|
||
RBProcInfo rb 1024
|
||
temp_dir_pach rb 1024
|
||
ODAreaPath rb 1024
|
||
|
||
|
||
|
||
;--------
|
||
|
||
copy_buf rb SIZE_COPY_BUF
|
||
|
||
execdata rb 1024
|
||
execdataend:
|
||
|
||
filedata_buffer_size = 1024
|
||
filedata_buffer rb filedata_buffer_size
|
||
|
||
CopyDestEditBuf rb 12+512+1
|
||
.length = $ - CopyDestEditBuf - 13
|
||
|
||
bdvkPack rb 560
|
||
|
||
|
||
|
||
;------------ memory_manager.inc
|
||
align 4
|
||
MM_NBlocks rd 1 ;ª®«¨ç¥á⢮ ¢ë¤¥«¥ëå ¡«®ª®¢ ¯ ¬ïâ¨
|
||
MM_BlocksInfo rd 2*MM_MAX_BLOCKS ;begin,size
|
||
|
||
|
||
;--------
|
||
|
||
buffer rb 4096 ;for string of file name for extract
|
||
params rb 4096
|
||
|
||
rb 1024
|
||
stackUnpack:
|
||
|
||
rb 1024
|
||
stackDlg:
|
||
|
||
rb 1024
|
||
stack_top:
|
||
|
||
end_mem:
|
||
|
||
|