Rev 9568 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9568 | Rev 9587 | ||
---|---|---|---|
1 | ;--------------------------------------------------------------------- |
1 | ;--------------------------------------------------------------------- |
2 | aQuestion db '?',0 |
2 | aQuestion db '?',0 |
3 | caption_str db 'KPack - Kolibri Packer',0 |
3 | caption_str db 'KPack - Kolibri Packer',0 |
4 | buttons1names db ' InFile:' |
4 | buttons1names db ' InFile:' |
5 | db 'OutFile:' |
5 | db 'OutFile:' |
6 | db ' Path:' |
6 | db ' Path:' |
7 | aCompress db ' Compress',0 |
7 | aCompress db ' Compress',0 |
8 | aDecompress db 'Decompress',0 |
8 | aDecompress db 'Decompress',0 |
9 | definoutname db 0 |
9 | definoutname db 0 |
10 | defpath db '/rd/1',0 |
10 | defpath db '/sys',0 |
11 | kernel_name db 'kernel.mnt',0 |
11 | kernel_name db 'kernel.mnt',0 |
12 | ;curedit dd 0 |
12 | ;curedit dd 0 |
13 | 13 | ||
14 | info_str db 'KPack - Kolibri Packer, version 0.22',10 |
14 | info_str db 'KPack - Kolibri Packer, version 0.22',10 |
15 | db 'Uses LZMA v4.32 compression library',10,10 |
15 | db 'Uses LZMA v4.32 compression library',10,10 |
16 | info_len = $ - info_str |
16 | info_len = $ - info_str |
17 | usage_str db 'Written by diamond in 2006-2009 specially for KolibriOS',10 |
17 | usage_str db 'Written by diamond in 2006-2009 specially for KolibriOS',10 |
18 | db 'Disassembled code, using Box_Lib, Proc_Lib and OpenDialog',10 |
18 | db 'Disassembled code, using Box_Lib, Proc_Lib and OpenDialog',10 |
19 | db 'by Mario79, 2010',10 |
19 | db 'by Mario79, 2010',10 |
20 | db 'LZMA is copyright (c) 1999-2005 by Igor Pavlov',10 |
20 | db 'LZMA is copyright (c) 1999-2005 by Igor Pavlov',10 |
21 | db 10 |
21 | db 10 |
22 | db 'Command-line usage:',10 |
22 | db 'Command-line usage:',10 |
23 | db ' path_to_infile with zero',10 |
23 | db ' path_to_infile with zero',10 |
24 | db ' use <-ker> key to pack kernel',10 |
24 | db ' use <-ker> key to pack kernel',10 |
25 | db 10 |
25 | db 10 |
26 | db 'Window usage:',10 |
26 | db 'Window usage:',10 |
27 | db ' Select file with PATH-button or set all data in the',10 |
27 | db ' Select file with PATH-button or set all data in the',10 |
28 | db ' text fields manually, then press an appropriate button',10 |
28 | db ' text fields manually, then press an appropriate button',10 |
29 | usage_len = $ - usage_str |
29 | usage_len = $ - usage_str |
30 | already_str db 'Already packed kernel.mnt file',10 |
30 | already_str db 'Already packed kernel.mnt file',10 |
31 | already_len = $ - already_str |
31 | already_len = $ - already_str |
32 | notkernel_str db 'This is not kernel.mnt file',10 |
32 | notkernel_str db 'This is not kernel.mnt file',10 |
33 | notkernel_len = $ - notkernel_str |
33 | notkernel_len = $ - notkernel_str |
34 | errload_str db 'Cannot load input file',10 |
34 | errload_str db 'Cannot load input file',10 |
35 | errload_len = $ - errload_str |
35 | errload_len = $ - errload_str |
36 | outfileerr_str db 'Cannot save output file',10 |
36 | outfileerr_str db 'Cannot save output file',10 |
37 | outfileerr_len = $ - outfileerr_str |
37 | outfileerr_len = $ - outfileerr_str |
38 | nomem_str db 'No memory',10 |
38 | nomem_str db 'No memory',10 |
39 | nomem_len = $ - nomem_str |
39 | nomem_len = $ - nomem_str |
40 | too_big_str db 'failed, output is greater than input.',10 |
40 | too_big_str db 'failed, output is greater than input.',10 |
41 | too_big_len = $ - too_big_str |
41 | too_big_len = $ - too_big_str |
42 | compressing_str db 'Compressing ... ' |
42 | compressing_str db 'Compressing ... ' |
43 | compressing_len = $ - compressing_str |
43 | compressing_len = $ - compressing_str |
44 | lzma_memsmall_str db 'Warning: not enough memory for default LZMA settings,',10 |
44 | lzma_memsmall_str db 'Warning: not enough memory for default LZMA settings,',10 |
45 | db ' will use less dictionary size',10 |
45 | db ' will use less dictionary size',10 |
46 | lzma_memsmall_len = $ - lzma_memsmall_str |
46 | lzma_memsmall_len = $ - lzma_memsmall_str |
47 | notpacked_str db 'Input file is not packed with KPack!',10 |
47 | notpacked_str db 'Input file is not packed with KPack!',10 |
48 | notpacked_len = $ - notpacked_str |
48 | notpacked_len = $ - notpacked_str |
49 | unpacked_ok db 'Unpacked successful',10 |
49 | unpacked_ok db 'Unpacked successful',10 |
50 | unpacked_len = $ - unpacked_ok |
50 | unpacked_len = $ - unpacked_ok |
51 | 51 | ||
52 | done_str db 'OK! Compression ratio: ' |
52 | done_str db 'OK! Compression ratio: ' |
53 | ratio dw '00' |
53 | ratio dw '00' |
54 | db '%',10 |
54 | db '%',10 |
55 | done_len = $ - done_str |
55 | done_len = $ - done_str |
56 | ;--------------------------------------------------------------------- |
56 | ;--------------------------------------------------------------------- |
57 | align 4 |
57 | align 4 |
58 | LiteralNextStates: |
58 | LiteralNextStates: |
59 | db 0,0,0,0,1,2,3,4,5,6,4,5 |
59 | db 0,0,0,0,1,2,3,4,5,6,4,5 |
60 | MatchNextStates: |
60 | MatchNextStates: |
61 | db 7,7,7,7,7,7,7,10,10,10,10,10 |
61 | db 7,7,7,7,7,7,7,10,10,10,10,10 |
62 | RepNextStates: |
62 | RepNextStates: |
63 | db 8,8,8,8,8,8,8,11,11,11,11,11 |
63 | db 8,8,8,8,8,8,8,11,11,11,11,11 |
64 | ShortRepNextStates: |
64 | ShortRepNextStates: |
65 | db 9,9,9,9,9,9,9,11,11,11,11,11 |
65 | db 9,9,9,9,9,9,9,11,11,11,11,11 |
66 | ;--------------------------------------------------------------------- |
66 | ;--------------------------------------------------------------------- |
67 | align 4 |
67 | align 4 |
68 | ProcLib_import: |
68 | ProcLib_import: |
69 | OpenDialog_Init dd aOpenDialog_Init |
69 | OpenDialog_Init dd aOpenDialog_Init |
70 | OpenDialog_Start dd aOpenDialog_Start |
70 | OpenDialog_Start dd aOpenDialog_Start |
71 | ;OpenDialog__Version dd aOpenDialog_Version |
71 | ;OpenDialog__Version dd aOpenDialog_Version |
72 | dd 0,0 |
72 | dd 0,0 |
73 | aOpenDialog_Init db 'OpenDialog_init',0 |
73 | aOpenDialog_Init db 'OpenDialog_init',0 |
74 | aOpenDialog_Start db 'OpenDialog_start',0 |
74 | aOpenDialog_Start db 'OpenDialog_start',0 |
75 | ;aOpenDialog_Version db 'Version_OpenDialog',0 |
75 | ;aOpenDialog_Version db 'Version_OpenDialog',0 |
76 | ;--------------------------------------------------------------------- |
76 | ;--------------------------------------------------------------------- |
77 | align 4 |
77 | align 4 |
78 | Box_lib_import: |
78 | Box_lib_import: |
79 | edit_box_draw dd aEdit_box_draw |
79 | edit_box_draw dd aEdit_box_draw |
80 | edit_box_key dd aEdit_box_key |
80 | edit_box_key dd aEdit_box_key |
81 | edit_box_mouse dd aEdit_box_mouse |
81 | edit_box_mouse dd aEdit_box_mouse |
82 | 82 | ||
83 | init_checkbox dd aInit_checkbox |
83 | init_checkbox dd aInit_checkbox |
84 | check_box_draw dd aCheck_box_draw |
84 | check_box_draw dd aCheck_box_draw |
85 | check_box_mouse dd aCheck_box_mouse |
85 | check_box_mouse dd aCheck_box_mouse |
86 | 86 | ||
87 | dd 0,0 |
87 | dd 0,0 |
88 | 88 | ||
89 | aEdit_box_draw db 'edit_box_draw',0 |
89 | aEdit_box_draw db 'edit_box_draw',0 |
90 | aEdit_box_key db 'edit_box_key',0 |
90 | aEdit_box_key db 'edit_box_key',0 |
91 | aEdit_box_mouse db 'edit_box_mouse',0 |
91 | aEdit_box_mouse db 'edit_box_mouse',0 |
92 | 92 | ||
93 | aInit_checkbox db 'init_checkbox2',0 |
93 | aInit_checkbox db 'init_checkbox2',0 |
94 | aCheck_box_draw db 'check_box_draw2',0 |
94 | aCheck_box_draw db 'check_box_draw2',0 |
95 | aCheck_box_mouse db 'check_box_mouse2',0 |
95 | aCheck_box_mouse db 'check_box_mouse2',0 |
96 | 96 | ||
97 | ;--------------------------------------------------------------------- |
97 | ;--------------------------------------------------------------------- |
98 | system_dir_Boxlib db '/sys/lib/box_lib.obj',0 |
98 | system_dir_Boxlib db '/sys/lib/box_lib.obj',0 |
99 | system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 |
99 | system_dir_ProcLib db '/sys/lib/proc_lib.obj',0 |
100 | ;--------------------------------------------------------------------- |
100 | ;--------------------------------------------------------------------- |
101 | align 4 |
101 | align 4 |
102 | l_libs_start: |
102 | l_libs_start: |
103 | 103 | ||
104 | library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, Box_lib_import |
104 | library01 l_libs system_dir_Boxlib+9, library_path, system_dir_Boxlib, Box_lib_import |
105 | 105 | ||
106 | library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, ProcLib_import |
106 | library02 l_libs system_dir_ProcLib+9, library_path, system_dir_ProcLib, ProcLib_import |
107 | 107 | ||
108 | load_lib_end: |
108 | load_lib_end: |
109 | ;--------------------------------------------------------------------- |
109 | ;--------------------------------------------------------------------- |
110 | align 4 |
110 | align 4 |
111 | OpenDialog_data: |
111 | OpenDialog_data: |
112 | .type dd 0 |
112 | .type dd 0 |
113 | .procinfo dd procinfo ;+4 |
113 | .procinfo dd procinfo ;+4 |
114 | .com_area_name dd communication_area_name ;+8 |
114 | .com_area_name dd communication_area_name ;+8 |
115 | .com_area dd 0 ;+12 |
115 | .com_area dd 0 ;+12 |
116 | .opendir_pach dd temp_dir_pach ;+16 |
116 | .opendir_pach dd temp_dir_pach ;+16 |
117 | .dir_default_pach dd communication_area_default_pach ;+20 |
117 | .dir_default_pach dd communication_area_default_pach ;+20 |
118 | .start_path dd open_dialog_path ;+24 |
118 | .start_path dd open_dialog_path ;+24 |
119 | .draw_window dd draw_window ;+28 |
119 | .draw_window dd draw_window ;+28 |
120 | .status dd 0 ;+32 |
120 | .status dd 0 ;+32 |
121 | .openfile_pach dd fname_buf ;+36 |
121 | .openfile_pach dd fname_buf ;+36 |
122 | .filename_area dd filename_area ;+40 |
122 | .filename_area dd filename_area ;+40 |
123 | .filter_area dd Filter |
123 | .filter_area dd Filter |
124 | .x: |
124 | .x: |
125 | .x_size dw 420 ;+48 ; Window X size |
125 | .x_size dw 420 ;+48 ; Window X size |
126 | .x_start dw 10 ;+50 ; Window X position |
126 | .x_start dw 10 ;+50 ; Window X position |
127 | .y: |
127 | .y: |
128 | .y_size dw 320 ;+52 ; Window y size |
128 | .y_size dw 320 ;+52 ; Window y size |
129 | .y_start dw 10 ;+54 ; Window Y position |
129 | .y_start dw 10 ;+54 ; Window Y position |
130 | 130 | ||
131 | communication_area_name: |
131 | communication_area_name: |
132 | db 'FFFFFFFF_open_dialog',0 |
132 | db 'FFFFFFFF_open_dialog',0 |
133 | open_dialog_path: |
133 | open_dialog_path: |
134 | if __nightbuild eq yes |
134 | if __nightbuild eq yes |
135 | db '/sys/MANAGERS/opendial',0 |
135 | db '/sys/MANAGERS/opendial',0 |
136 | else |
136 | else |
137 | db '/sys/File Managers/opendial',0 |
137 | db '/sys/File Managers/opendial',0 |
138 | end if |
138 | end if |
139 | communication_area_default_pach: |
139 | communication_area_default_pach: |
140 | db '/rd/1',0 |
140 | db '/sys',0 |
141 | 141 | ||
142 | path4 db '/rd/1/temp',0 |
142 | path4 db '/sys/temp',0 |
143 | 143 | ||
144 | Filter: |
144 | Filter: |
145 | dd Filter.end - Filter.1 |
145 | dd Filter.end - Filter.1 |
146 | .1: |
146 | .1: |
147 | ;db 'BIN',0 |
147 | ;db 'BIN',0 |
148 | ;db 'DAT',0 |
148 | ;db 'DAT',0 |
149 | .end: |
149 | .end: |
150 | db 0 |
150 | db 0 |
151 | 151 | ||
152 | WIN_W = 490 |
152 | WIN_W = 490 |
153 | WIN_H = 350 |
153 | WIN_H = 350 |
154 | LINE_H = 25 |
154 | LINE_H = 25 |
155 | RIGHT_BTN_W = 103 |
155 | RIGHT_BTN_W = 103 |
156 | EDIT_X = 76 |
156 | EDIT_X = 76 |
157 | LOG_Y = LINE_H*3+5 |
157 | LOG_Y = LINE_H*3+5 |
158 | LOG_H = WIN_H-LOG_Y-9 |
158 | LOG_H = WIN_H-LOG_Y-9 |
159 | 159 | ||
160 | start_temp_file_name: db 'temp.bin',0 |
160 | start_temp_file_name: db 'temp.bin',0 |
161 | 161 | ||
162 | ;--------------------------------------------------------------------- |
162 | ;--------------------------------------------------------------------- |
163 | align 4 |
163 | align 4 |
164 | edit1 edit_box WIN_W-EDIT_X-RIGHT_BTN_W-12, EDIT_X, 3, 0xffffff,\ |
164 | edit1 edit_box WIN_W-EDIT_X-RIGHT_BTN_W-12, EDIT_X, 3, 0xffffff,\ |
165 | 0xA4C4E4, 0x80ff, 0, 0x10000000, 256, inname, mouse_dd, 0, 11,11 |
165 | 0xA4C4E4, 0x80ff, 0, 0x10000000, 256, inname, mouse_dd, 0, 11,11 |
166 | edit2 edit_box WIN_W-EDIT_X-RIGHT_BTN_W-12, EDIT_X, LINE_H+3, 0xffffff,\ |
166 | edit2 edit_box WIN_W-EDIT_X-RIGHT_BTN_W-12, EDIT_X, LINE_H+3, 0xffffff,\ |
167 | 0xA4C4E4, 0x80ff, 0, 0x10000000, 256, outname, mouse_dd, 0, 7,7 |
167 | 0xA4C4E4, 0x80ff, 0, 0x10000000, 256, outname, mouse_dd, 0, 7,7 |
168 | edit3 edit_box WIN_W-EDIT_X-RIGHT_BTN_W-12, EDIT_X, LINE_H*2+3, 0xffffff,\ |
168 | edit3 edit_box WIN_W-EDIT_X-RIGHT_BTN_W-12, EDIT_X, LINE_H*2+3, 0xffffff,\ |
169 | 0xA4C4E4, 0x80ff, 0, 0x10000000, 256, path, mouse_dd, 0, 6,6 |
169 | 0xA4C4E4, 0x80ff, 0, 0x10000000, 256, path, mouse_dd, 0, 6,6 |
170 | editboxes_end: |
170 | editboxes_end: |
171 | 171 | ||
172 | mouse_dd dd 0 |
172 | mouse_dd dd 0 |
173 | ;--------------------------------------------------------------------- |
173 | ;--------------------------------------------------------------------- |
174 | 174 | ||
175 | check1 check_box2 ((WIN_W - RIGHT_BTN_W - 5) shl 16)+15, ((LINE_H*2+6) shl 16)+15, 6, 0xffffff,\ |
175 | check1 check_box2 ((WIN_W - RIGHT_BTN_W - 5) shl 16)+15, ((LINE_H*2+6) shl 16)+15, 6, 0xffffff,\ |
176 | 0x80ff, 0x10000000, check_text,ch_flag_top |
176 | 0x80ff, 0x10000000, check_text,ch_flag_top |
177 | check1_end: |
177 | check1_end: |
178 | 178 | ||
179 | check_text db 'Kernel',0 |
179 | check_text db 'Kernel',0 |
180 | ;********************************************************************* |
180 | ;********************************************************************* |
181 | ; Kerpack data |
181 | ; Kerpack data |
182 | ;********************************************************************* |
182 | ;********************************************************************* |
183 | align 4 |
183 | align 4 |
184 | fn70_read: |
184 | fn70_read: |
185 | dd 0 |
185 | dd 0 |
186 | dd 0 |
186 | dd 0 |
187 | dd 0 |
187 | dd 0 |
188 | insize3 dd 200*1024 |
188 | insize3 dd 200*1024 |
189 | infile3 dd infile |
189 | infile3 dd infile |
190 | db 0 |
190 | db 0 |
191 | dd fullname |
191 | dd fullname |
192 | 192 | ||
193 | align 4 |
193 | align 4 |
194 | fn70_write: |
194 | fn70_write: |
195 | dd 2 |
195 | dd 2 |
196 | dd 0 |
196 | dd 0 |
197 | dd 0 |
197 | dd 0 |
198 | outsize3 dd ? |
198 | outsize3 dd ? |
199 | outfile3 dd outfile |
199 | outfile3 dd outfile |
200 | db 0 |
200 | db 0 |
201 | dd fullname |
201 | dd fullname |
202 | ;*********************************************************************-ker> |
202 | ;*********************************************************************-ker> |