;unz - распаковщик, использующий archiver.obj. Поддерживает 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 ;НЕ РЕАЛИЗОВАННО ;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' version equ '0.65' version_dword equ 0*10000h + 65 SIZE_COPY_BUF = 1024*1024*2 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 include 'parse.inc' include 'fs.inc' ;-- CODE ------------------------------------------------------------------- start: mcall 68, 11 mcall 40, 100111b + 0C0000000h stdcall dll.Load, IMPORTS test eax, eax jnz exit mov [pathOut],0 ;stdcall SayErr,strErrorExc ;mcall -1 ;---------------------------- ;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 getParam2 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: dps 'errorParsing' mcall -1 ;--- functions ------------------------------------------------------------------ proc winRedraw mcall 12, 1 mcall 48, 3, sc, sizeof.system_colors mov edx, [sc.work] or edx, 0x33000000 mcall 0, <200,320>, <200,130>, , , title mcall 8, <113,100>,<65,25>,2,[sc.work_button] mcall 8, <280,15>,<11,14>,3,[sc.work_button] mcall 8, <280,15>,<33,14>,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,11>, , strInp mov ecx,[sc.work_text] or ecx,90000000h mcall 4, <15,32>, , strPath mov ecx,[sc.work_button_text] or ecx,90000000h mcall 4, <140,70>, , strGo 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 [aReadFolder], [hPlugin] ; pop ebp ; push ebp ; stdcall [aOpen], [hPlugin], .str1, O_READ ; pop ebp ; ; push ebp ; stdcall [aSetpos],[hPlugin],0,POSEND ; pop ebp ; add [numbytes],eax ;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 ;@@: ;HANDLE __stdcall open(HANDLE hPlugin, const char* filename, int mode); ;Открыть файл filename. Параметр 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 'Паника!!!!!!!!!!!!!!!!!!!!!!!!!' dnl int3 ret endp proc calcSizeArch hPlugin:dword locals bdwk rb 560 endl ;int __stdcall ReadFolder(HANDLE hPlugin, unsigned dirinfo_start, ; unsigned dirinfo_size, void* dirdata); int3 push ebp lea eax,[bdwk] stdcall [aReadFolder], [hPlugin],1,560,eax pop ebp ret endp ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ;SayErr int num_strings, const char* strings[], ; int num_buttons, const char* buttons[]); proc SayErr num_strings:dword, strings:dword,num_buttons:dword, buttons:dword pushad cmp [num_strings],1 je @f m2m [errmess0], strErrorExc jmp .l1 @@: mov ebx,[strings] m2m [errmess0], dword [ebx] .l1: mcall 51,1,threadSayErr,stackDlg popad mov eax,1 ret endp proc SimpleSayErr str:dword pushad m2m [errmess0],[str] mcall 51,1,threadSayErr,stackDlg popad ret endp proc threadSayErr mcall 40, 111b+0C000000h .wm_redraw: mcall 12, 1 mcall 48, 3, sc, sizeof.system_colors mov edx, [sc.work] or edx, 0x33000000 mcall 0, <220,420>, <220,110>, , , title mov ecx,[sc.work_text] or ecx,90000000h mov edx,[errmess0] mcall 4, <15,11> mcall 8, <105,100>,<45,25>,1,[sc.work_button] mov ecx,[sc.work_button_text] or ecx,90000000h mcall 4, <147,51>, , strOk mcall 12, 2 .still: mcall 10 cmp eax, 1 je .wm_redraw cmp eax, 2 je .wm_key cmp eax, 3 je .wm_button jmp .still .wm_button: mcall 17 cmp ah, 1 je .exit jmp .still .wm_key: mcall 2 jmp .still .exit: mcall -1 endp ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ;------------------------------------------------------------------------------- ; "enter password" dialog for KFar ;password_dlg: ; dd 1 ; use standard dialog colors ; dd -1 ; center window by x ; dd -1 ; center window by y ;.width dd ? ; width (will be filled according to current console width) ; dd 2 ; height ; dd 4, 2 ; border size ; dd aEnterPasswordTitle ; title ; dd ? ; colors (will be set by KFar) ; dd 0 ; used internally by dialog manager, ignored ; dd 0, 0 ; reserved for DlgProc ; dd 2 ; 2 controls ;; the string "enter password" ; dd 1 ; type: static ; dd 1,0 ; upper-left position ;.width1 dd ?,0 ; bottom-right position ; dd aEnterPassword ; data ; dd 0 ; flags ;; editbox for password ; dd 3 ; type: edit ; dd 1,1 ; upper-left position ;.width2 dd ?,0 ; bottom-right position ; dd password_data ; data ; dd 2Ch ; flags proc DialogBox dlgInfo:dword pushad mov ebx,[dlgInfo] mov eax,[ebx+19*4] mov [forpassword],eax mov byte[eax], 0 mov [stateDlg], 0 mcall 51,1,threadDialogBox,stackDlg ;wait thread... @@: cmp [stateDlg],0 jne @f mcall 5,1 jmp @b @@: popad cmp [stateDlg], 1 jne @f xor eax, eax ret @@: or eax, -1 ret endp proc threadDialogBox mcall 40, 100111b+0C000000h mov eax,[forpassword] mov [edtPassword+4*9],eax xor eax,eax mov dword[edtPassword.size], eax mov dword[edtPassword.pos], eax .wm_redraw: mcall 12, 1 mcall 48, 3, sc, sizeof.system_colors mov edx, [sc.work] or edx, 0x33000000 mcall 0, <200,320>, <200,140>, , , title edit_boxes_set_sys_color edtPack,endEdits,sc stdcall [edit_box_draw],edtPassword mov ecx,[sc.work_text] or ecx,90000000h mcall 4, <56,12>, , strGetPass mcall 8, <70,80>,<74,22>,2,[sc.work_button] mov ecx,[sc.work_button_text] or ecx,90000000h mcall 4, <103,79>, , strOk mcall 8, <165,80>,<74,22>,1,[sc.work_button] mov ecx,[sc.work_button_text] or ecx,90000000h mcall 4, <182,79>, , strCancel mcall 12, 2 .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 stdcall [edit_box_key],edtPassword jmp .still .wm_button: mcall 17 cmp ah, 2 ;OK jne @f mov [stateDlg],1 jmp .exit @@: cmp ah, 1 ;Close window or Cancel jne .still mov [stateDlg],2 jmp .exit .wm_mouse: stdcall [edit_box_mouse],edtPassword jmp .still .exit: mcall -1 endp ;-- DATA ------------------------------------------------------------------- sc system_colors title db 'uNZ v0.1 alpha',0 bWinChild db 0 ;1 - дочернее окно есть, главное окно не должно реагировать redInput db 0 ;1 - подсветить красным надпись if lang eq ru strGo db 'Распаковать',0 strInp db 'Архив',0 strPath db 'Куда',0 else strGo db 'Unpack',0 strInp db 'Pack',0 strPath db 'Wohin',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',0 strUnpackFault db 'Unpacked fault',0 strNotSupport db 'Format not support',0 strNotFound db 'File not found',0 strNull db 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 200,70,11 ,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,255,\ fInp, mouse_dd,0,0,0 edtUnpPath edit_box 200,70,33,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,255, \ pathOut, mouse_dd,0,0,0 edtPassword edit_box 200,56,40,0FFFFFFh,06F9480h,0FFh,0h,0x90000000,255, \ password, mouse_dd,0,0,0 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 ;-- UDATA ----------------------------------------------------------------------------- init_end: align 16 IncludeUGlobals ;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 ;params db '/hd0/1/unz/xboot-1-0-build-14-en-win.zip',0 ;rb 4096 fInp rb 1024 pathOut rb 1024 files rd 256 password rb 256 fZipInfo rb 40 mouse_dd rd 1 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 ;-------- buffer rb 4096 ;for string of file name or extract params rb 4096 rb 1024 stackUnpack: rb 1024 stackDlg: rb 1024 stack_top: end_mem: